fixing a number of bugs

src/cljs/auto_ap/effects.cljs

@@ -2,6 +2,8 @@
   (:require-macros [cljs.core.async.macros :refer [go]])
   (:require [re-frame.core :as re-frame]
             [cljs-http.client :as http]
+            [cljs-time.coerce :as c]
+            [cljs-time.core :as time]
             [cljs.core.async :refer [<!]]
             [auto-ap.history :as p]
             [pushy.core :as pushy]))
@@ -19,6 +21,16 @@
      (.setItem js/localStorage name value)
      (.removeItem js/localStorage name ))))
 
+(defn dates->date-times [x]
+  (cond (map? x)
+        (into {}  (map (fn [[k v]]
+                         [k (if (instance? js/Date v)
+                              (time/to-default-time-zone (c/from-date v))
+                              v)])
+                       x))
+        (list? x)
+        (map dates->date-times x)))
+
 (re-frame/reg-fx
  :http
  (fn [{:keys [method uri on-success body headers token]}]
@@ -33,5 +45,6 @@
                            :url uri})
             (<! )
             :body
+            (dates->date-times)
             (conj on-success)
             (re-frame/dispatch))))))