                                    (put! c x)))]))
     c))
 
-(defn error-handler [{:keys [status status-text]}]
-  (.log js/console (str "something bad happened: " status " " status-text)))
-
 (defn ajax-get [ url callback ]
   (GET url {:handler callback
-            :error-handler error-handler}))
+            :error-handler (fn [ resp ]
+                             (.log js/console (str "HTTP error, url: " url " resp: " resp)))}))
 
 (defn fetch-series-names [ cb ]
   (ajax-get "/series-names" cb))

            [cljs.core.async :refer [put! close! chan <!]]))

(def dashboard-state (atom {:server-time nil
                            :series-names []}))

(defn <<< [f & args]
  (let [c (chan)]

       (fn []
         (go
           (om/update! state :server-time (<! (<<< fetch-server-time)))))
       15000))

    om/IRender
    (render [ this ]
