prevent some unnecessary cljs repl reconnection attempts

suggested improvement noted in https://github.com/tomjakubowski/weasel/issues/24
2014-09-28 12:16:22 -04:00 · 2014-09-28 12:16:22 -04:00 · e960b6b822
parent b5646383d5
commit e960b6b822
1 changed files with 2 additions and 1 deletions
--- a/src/leiningen/new/yawt/src-cljs/root_ns/client/main.cljs
+++ b/src/leiningen/new/yawt/src-cljs/root_ns/client/main.cljs
@ -23,7 +23,8 @@
 (defn init-app []
  (when (dev?)
    (enable-console-print!)
-    (if (supports-ws?)
+    (if (and (supports-ws?)
+             (not (ws-repl/alive?)))
      (ws-repl/connect "ws://localhost:9001" :verbose true)))
  (secretary/set-config! :prefix "#")
  (hook-browser-navigation!))