From b3f97fe456901bcc31dc421d4b0396e7ba636e44 Mon Sep 17 00:00:00 2001 From: Alejandro Alonso Date: Thu, 7 Mar 2024 10:54:03 +0100 Subject: [PATCH] :bug: Fix concat changes --- common/src/app/common/files/changes_builder.cljc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/common/src/app/common/files/changes_builder.cljc b/common/src/app/common/files/changes_builder.cljc index f868cbd2a..d219fc365 100644 --- a/common/src/app/common/files/changes_builder.cljc +++ b/common/src/app/common/files/changes_builder.cljc @@ -109,11 +109,12 @@ [changes f] (update changes :redo-changes #(mapv f %))) +;; redo-changes is a vector and :undo-changes is a list (defn concat-changes [changes1 changes2] (-> changes1 (update :redo-changes d/concat-vec (:redo-changes changes2)) - (update :undo-changes d/concat-vec (:undo-changes changes2)))) + (update :undo-changes #(concat (:undo-changes changes2) %)))) ; TODO: remove this when not needed (defn- assert-page-id!