Remove useless println's.

This commit is contained in:
Andrey Antukh 2016-04-02 13:00:02 +03:00
parent cad95c67a5
commit 4519d6e508

View file

@ -64,7 +64,6 @@
(defrecord FetchPageHistory [id since max] (defrecord FetchPageHistory [id since max]
rs/WatchEvent rs/WatchEvent
(-apply-watch [this state s] (-apply-watch [this state s]
(println "FetchPageHistory" this)
(letfn [(on-success [{history :payload}] (letfn [(on-success [{history :payload}]
(let [history (into [] history)] (let [history (into [] history)]
(->PageHistoryFetched history (not (nil? since))))) (->PageHistoryFetched history (not (nil? since)))))
@ -89,7 +88,6 @@
(defrecord CleanPageHistory [] (defrecord CleanPageHistory []
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(println "CleanPageHistory")
(assoc-in state [:workspace :history] {}))) (assoc-in state [:workspace :history] {})))
(defn clean-page-history (defn clean-page-history
@ -105,7 +103,6 @@
(defrecord WatchPageChanges [] (defrecord WatchPageChanges []
rs/WatchEvent rs/WatchEvent
(-apply-watch [_ state s] (-apply-watch [_ state s]
(println "WatchPageChanges")
(let [stoper (->> (rx/filter clean-page-history? s) (let [stoper (->> (rx/filter clean-page-history? s)
(rx/take 1))] (rx/take 1))]
(->> (rx/filter udp/page-synced? s) (->> (rx/filter udp/page-synced? s)
@ -142,7 +139,6 @@
(defrecord ApplySelectedHistory [id] (defrecord ApplySelectedHistory [id]
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(println "ApplySelectedHistory" id)
(-> state (-> state
(update-in [:pages-by-id id] dissoc :history) (update-in [:pages-by-id id] dissoc :history)
(assoc-in [:workspace :history :selected] nil))) (assoc-in [:workspace :history :selected] nil)))