Downgraded to Clojure 1.8; and, some minor refactoring
Clojure 1.9 was causing some problems for my tooling.
This commit is contained in:
parent
9433f8cc67
commit
3a8b3dbbfa
4 changed files with 21 additions and 44 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue