simon/youyesyet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Finally, it works. Now lots more to do!

Browse source
This commit is contained in:
Simon Brooke 2018-07-27 13:04:10 +01:00
parent 2c4c61c458
commit 2d106ee582
2 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/youyesyet/routes/rest.clj
View file

@ -2,6 +2,7 @@
:author "Simon Brooke"} youyesyet.routes.rest :author "Simon Brooke"} youyesyet.routes.rest
(:require [adl-support.core :refer [massage-params do-or-log-error]] (:require [adl-support.core :refer [massage-params do-or-log-error]]
[clojure.core.memoize :as memo] [clojure.core.memoize :as memo]
[clojure.data.json :as json]
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :as s] [clojure.string :as s]
[clojure.tools.logging :as log] [clojure.tools.logging :as log]
@ -191,11 +192,7 @@
(if (if
(:result r) (:result r)
{:status 201 {:status 201
:body (with-out-str :body (json/write-str (:result r))}
(print
(hash-map
:id (:id (:result r))
)))}
{:status 500 {:status 500
:body (:error r)})) :body (:error r)}))
{:status 400 {:status 400

4
src/cljs/youyesyet/canvasser_app/handlers.cljs
View file

@ -512,8 +512,8 @@
(reg-event-db (reg-event-db
:tx-failure :tx-failure
(fn [db _] (fn [db [_ response]]
(js/console.log (str "Transmission failed, requeueing" (:tx-item db))) (js/console.log (str "Transmission failed (" response "), requeueing" (:tx-item db)))
(assoc (assoc
(add-to-outqueue db (:tx-item db)) (add-to-outqueue db (:tx-item db))
:error "Transmission failed, requeueing"))) :error "Transmission failed, requeueing")))