handling errors

src/cljs/auto_ap/effects.cljs

@@ -33,18 +33,24 @@
 
 (re-frame/reg-fx
  :http
- (fn [{:keys [method uri on-success body headers token]}]
+ (fn [{:keys [method uri on-success on-error body headers token]}]
    (go
      (let [headers (if token
                      (assoc headers "Authorization" (str "Token " token))
-                     headers)]
-       (println headers)
-       (->> (http/request {:method method
-                           :body body
-                           :headers  headers
-                           :url uri})
-            (<! )
-            :body
-            (dates->date-times)
-            (conj on-success)
-            (re-frame/dispatch))))))
+                     headers)
+           response (<! (http/request {:method method
+                                       :body body
+                                       :headers  headers
+                                       :url uri}))]
+       (if (>= (:status response) 400)
+         (when on-error
+           (->> response
+               :body
+               (dates->date-times)
+               (conj on-error)
+               (re-frame/dispatch)))
+         (->> response
+             :body
+             (dates->date-times)
+             (conj on-success)
+             (re-frame/dispatch)))))))