SOwS5

core.cljs

(go-loop []
  (when-let [msg (<! ch-chsk)]
         (match [msg]
                [[:chsk/recv [:app/sync [d- d+]]]]
                (swap! app-state
                       #(-> %
                            (retract d-)
                            (deep-merge d+)))
                :else nil)
         (recur)))