This commit is contained in:
Dave Della Costa 2014-09-04 18:10:12 +09:00
commit 970cb80670

View file

@ -97,7 +97,7 @@
(defn post-process-delta-map (defn post-process-delta-map
[post-fn delta-map] [post-fn delta-map]
(if-let [rset (:refresh-set delta-map)] (if-let [rset (:refresh-set delta-map)]
{:refresh-set (mapv post-fn rset)} delta-map
(reduce #(assoc %1 %2 (map post-fn (get delta-map %2))) {} (keys delta-map)))) (reduce #(assoc %1 %2 (map post-fn (get delta-map %2))) {} (keys delta-map))))
(defn post-process-deltas (defn post-process-deltas