diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
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" |