reconnect es after 5 sec in error

#165
swarmpit · Nov 21, 2017 · c74928f · c74928f
1 parent b83ce5a
commit c74928f
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/cljs/swarmpit/event/source.cljs b/src/cljs/swarmpit/event/source.cljs
@@ -39,8 +39,11 @@
   (print "Swarmpit event connection has been opened"))
 
 (defn- on-error!
-  [event]
-  (print "Swarmpit event connection failed. Reconnecting in 5 sec..."))
+  [event error-fx]
+  (when (= (.-readyState @es) 2)
+    (do
+      (print "Swarmpit event connection failed. Reconnecting in 5 sec...")
+      (js/setTimeout #(error-fx) 5000))))
 
 (defn close!
   []
@@ -56,5 +59,5 @@
                          event-source (js/EventSource. event-url)]
                      (.addEventListener event-source "message" on-message!)
                      (.addEventListener event-source "open" on-open!)
-                     (.addEventListener event-source "error" on-error!)
+                     (.addEventListener event-source "error" (fn [e] (on-error! e init!)))
                      (reset! es event-source)))}))