From 1098db3b47dd085fedfed56591ed208a97a9e404 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Fri, 27 Jul 2018 18:22:36 +0100
Subject: [PATCH] Fix to the :fetch-later issue
Thanks to @mdallastella@functional.cafe
---
.../youyesyet/canvasser_app/handlers.cljs | 28 +++++++++----------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/src/cljs/youyesyet/canvasser_app/handlers.cljs b/src/cljs/youyesyet/canvasser_app/handlers.cljs
index a6894ba..e22cb11 100644
--- a/src/cljs/youyesyet/canvasser_app/handlers.cljs
+++ b/src/cljs/youyesyet/canvasser_app/handlers.cljs
@@ -203,23 +203,23 @@
db))))
-(reg-event-db
- :process-locality
- (fn
- [db [_ response]]
- (js/console.log (str "Updating locality data: " (count response) " addresses " ))
- ;; loop to do it again
- (dispatch [:dispatch-later [{:ms 60000 :dispatch [:fetch-locality]}
- {:ms 1000 :dispatch [:get-current-location]}]])
- (refresh-map-pins)
- (assoc
- (remove-from-feedback db :fetch-locality)
- :addresses (js->clj response))))
+(reg-event-fx
+ :process-locality
+ (fn
+ [{db :db} [_ response]]
+ (js/console.log (str "Updating locality data: " (count response) " addresses " ))
+ (refresh-map-pins)
+ {:dispatch-later [{:ms 60000 :dispatch [:fetch-locality]}
+ {:ms 1000 :dispatch [:get-current-location]}]
+ :db (assoc
+ (remove-from-feedback db :fetch-locality)
+ :addresses (js->clj response))}))
-(reg-event-db
+(reg-event-fx
:bad-locality
- (fn [db _]
+ (fn
+ [{db :db} [_ response]]
;; TODO: signal something has failed? It doesn't matter very much, unless it keeps failing.
(js/console.log "Failed to fetch locality data")
;; loop to do it again