status-im/re-frame
2
0
Fork 0
mirror of https://github.com/status-im/re-frame.git synced 2025-02-24 07:48:14 +00:00
Code Issues Projects Releases Wiki Activity

Correct recent breakage

Browse Source
This commit is contained in:
Mike Thompson 2017-07-24 00:19:02 +10:00
parent e2bdbc225b
commit bd67edb571
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/re_frame/fx.cljc
View File

@ -84,7 +84,7 @@
;; {:dispatch-later [{:ms 200 :dispatch [:event-id "param"]} ;; in 200ms do this: (dispatch [:event-id "param"]) ;; {:dispatch-later [{:ms 200 :dispatch [:event-id "param"]} ;; in 200ms do this: (dispatch [:event-id "param"])
;; {:ms 100 :dispatch [:also :this :in :100ms]}]} ;; {:ms 100 :dispatch [:also :this :in :100ms]}]}
;; ;;
(register (reg-fx
:dispatch-later :dispatch-later
(fn [value] (fn [value]
(doseq [{:keys [ms dispatch] :as effect} value] (doseq [{:keys [ms dispatch] :as effect} value]
@ -100,7 +100,7 @@
;; usage: ;; usage:
;; {:dispatch [:event-id "param"] } ;; {:dispatch [:event-id "param"] }
(register (reg-fx
:dispatch :dispatch
(fn [value] (fn [value]
(if-not (vector? value) (if-not (vector? value)
@ -121,7 +121,7 @@
;; {:dispatch-n (list (when (> 3 5) [:conditioned-out]) ;; {:dispatch-n (list (when (> 3 5) [:conditioned-out])
;; [:another-one])} ;; [:another-one])}
;; ;;
(register (reg-fx
:dispatch-n :dispatch-n
(fn [value] (fn [value]
(if-not (sequential? value) (if-not (sequential? value)
@ -139,7 +139,7 @@
;; or: ;; or:
;; {:deregister-event-handler [:one-id :another-id]} ;; {:deregister-event-handler [:one-id :another-id]}
;; ;;
(register (reg-fx
:deregister-event-handler :deregister-event-handler
(fn [value] (fn [value]
(let [clear-event (partial clear-handlers events/kind)] (let [clear-event (partial clear-handlers events/kind)]
@ -155,7 +155,7 @@
;; usage: ;; usage:
;; {:db {:key1 value1 key2 value2}} ;; {:db {:key1 value1 key2 value2}}
;; ;;
(register (reg-fx
:db :db
(fn [value] (fn [value]
(if-not (identical? @app-db value) (if-not (identical? @app-db value)