Cosmetic changes on history events.

This commit is contained in:
Andrey Antukh 2016-04-16 13:42:57 +03:00
parent fda381c1b6
commit 034c26fed4
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95

View file

@ -74,7 +74,7 @@
(defrecord FetchPageHistory [id since max] (defrecord FetchPageHistory [id since max]
rs/WatchEvent rs/WatchEvent
(-apply-watch [this state s] (-apply-watch [_ state s]
(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)))))]