Use wss when window.location is https

Author: JarrodCTaylor

resources/public/assets/js/compiled/main.js

@@ -7,5 +7,5 @@
 (goog-define alert-timeout-ms 3000)
 
 ;; ====
-(defonce websocket-uri-base "ws://localhost:")
+(defonce websocket-uri-base "localhost:")
 (defonce websocket-uri-route "/flow-socket")

src/clojurescript/flow_monitor_ui/config.cljs

@@ -185,9 +185,10 @@
     (get-in db [:query-params])))
 
 (defn make-websocket! []
-  (let [params (<sub [::get-params])]
+  (let [params (<sub [::get-params])
+        protocol (if (= (.-protocol js/window.location) "https:") "wss://" "ws://")]
     (if (not (:ws-connected @global-state))
-     (if-let [chan (js/WebSocket. (str websocket-uri-base (or (:port params) 9998) websocket-uri-route))]
+     (if-let [chan (js/WebSocket. (str protocol websocket-uri-base (or (:port params) 9998) websocket-uri-route))]
        (do
          (swap! global-state assoc :ws-connected true)
          (set! (.-onmessage chan) (fn [msg]