Persist sheet type properly from :put-sheet!

dhleong · Nov 17, 2018 · c98541f · c98541f
1 parent b3d965b
commit c98541f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/cljs/wish/events.cljs b/src/cljs/wish/events.cljs
@@ -251,7 +251,11 @@
   [trim-v]
   (fn-traced [{:keys [db]} [sheet-id sheet]]
     {:db (-> db
-             (assoc-in [:sheets sheet-id] sheet)
+             (update-in [:sheets sheet-id]
+                        (fn [old-value]
+                          (merge
+                            (select-keys old-value [:type])
+                            sheet)))
              (reset-sheet-err sheet-id))
 
      ; NOTE: we're probably on a :sheet page, and we might not have