Downgraded to Clojure 1.8; and, some minor refactoring

Clojure 1.9 was causing some problems for my tooling.
This commit is contained in:
Simon Brooke 2018-07-28 16:22:42 +01:00
parent 9433f8cc67
commit 3a8b3dbbfa
4 changed files with 21 additions and 44 deletions

View file

@ -82,14 +82,11 @@
`longitude`, or `locality`. Returns a block of data for that locality"
[request]
(let
[{latitude :latitude longitude :longitude locality :locality}
(keywordize-keys (:params request))
here (if locality
(coerce-to-number locality)
(l/locality
(coerce-to-number latitude)
(coerce-to-number longitude)))]
(in-get-local-data here)))
[m (massage-params request)
here (or (:locality m) (l/locality (:latitude m) (:longitude m)))]
(valid-user-or-forbid
(in-get-local-data here)
request)))
(defn last-visit-by-current-user

View file

@ -264,11 +264,11 @@
(reg-event-db
;; TODO: should try again
:bad-options
(fn [db _]
(fn [db [_ response]]
(js/console.log "Failed to fetch options")
(assoc
(remove-from-feedback db :fetch-options)
:error (cons :fetch-options (:error db)))))
:error (:response response))))
(reg-event-fx
@ -303,11 +303,11 @@
(reg-event-db
;; TODO: should try again
:bad-issues
(fn [db _]
(fn [db [_ response]]
(js/console.log "Failed to fetch issues")
(assoc
(remove-from-feedback db :fetch-issues)
:error (cons :fetch-issues (:error db)))))
:error (:response response))))
(reg-event-db