Move common WebSocket setup to the moduleHEADmaster

1 files changed, 2 insertions, 6 deletions

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"