Cosmetic changes on history events.

This commit is contained in:
Andrey Antukh
2016-04-16 13:42:57 +03:00
parent fda381c1b6
commit 034c26fed4

View File

@@ -74,7 +74,7 @@
(defrecord FetchPageHistory [id since max]
rs/WatchEvent
(-apply-watch [this state s]
(-apply-watch [_ state s]
(letfn [(on-success [{history :payload}]
(let [history (into [] history)]
(->PageHistoryFetched history (not (nil? since)))))]