From af27ce1399b7b7836593bb236e93c99a2ec39716 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 11 Dec 2025 21:57:54 +0100
Subject: Switch to public websocket server

---
 src/WebSocket.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/WebSocket.hs')

diff --git a/src/WebSocket.hs b/src/WebSocket.hs
index c3e6e84..6adbfd9 100644
--- a/src/WebSocket.hs
+++ b/src/WebSocket.hs
@@ -46,7 +46,7 @@ instance PeerAddressType Connection where
 startClient :: String -> Int -> String -> (Connection -> IO ()) -> IO ()
 startClient addr port path fun = do
     connUnique <- newUnique
-    let connAddress = "ws://" <> addr <> ":" <> show port <> "/" <> path
+    let connAddress = "wss://" <> addr <> ":" <> show port <> "/" <> path
     connJS <- js_initWebSocket (toJSString connAddress)
     connInQueue <- newChan
     let conn = Connection {..}
-- 
cgit v1.2.3