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/Main.hs      | 2 +-
 src/WebSocket.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 644b2d3..ed19f41 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -169,7 +169,7 @@ setup = do
     peerList <- JS.getElementById "peer_list"
     watchPeers gs server peerList
 
-    startClient "localhost" 9160 "" $ \conn -> do
+    startClient "a.discovery.erebosprotocol.net" 443 "" $ \conn -> do
         void $ forkIO $ forever $ do
             msg <- receiveMessage conn
             receivedFromCustomAddress server conn msg
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