From 3cf68ac0db0e5f839d3f1dd8f345e44584ed13f7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 25 Jul 2026 09:28:44 +0200 Subject: Move common WebSocket setup to the module --- src/Main.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index c8a2e82..547aaca 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -45,7 +45,7 @@ import JavaScript as JS import Storage.Cache import Storage.IndexedDB import Version -import WebSocket (startClient, receiveMessage) +import WebSocket (startDefaultWebSocketConnections) main :: IO () main = error "unused" @@ -288,11 +288,7 @@ setup = do maybe (return ()) (watchPeers gs server) =<< JS.getElementById "peer_list" - startClient server "a.discovery.erebosprotocol.net" 443 "" $ \conn -> do - void $ forkIO $ forever $ do - msg <- receiveMessage conn - receivedFromCustomAddress server conn msg - void $ serverPeerCustom server conn + startDefaultWebSocketConnections server Just inviteGenerateInput <- JS.getElementById "invite_name" Just inviteGenerateForm <- JS.getElementById "invite_generate" -- cgit v1.2.3