diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-03-14 10:02:24 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-03-14 10:02:24 +0100 |
| commit | 9b150c9142f644877de81e3d8e1dc92597793738 (patch) | |
| tree | f1bb3cbba134cd014adf25eef9c49f2d274acc15 /src/Main.hs | |
| parent | ed6f93713864acbcea7f049653e76438d2c34400 (diff) | |
Drop websocket peer when connection is closed
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0d6fc45..31b1436 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -205,7 +205,7 @@ setup = do peerList <- JS.getElementById "peer_list" watchPeers gs server peerList - startClient "a.discovery.erebosprotocol.net" 443 "" $ \conn -> do + startClient server "a.discovery.erebosprotocol.net" 443 "" $ \conn -> do void $ forkIO $ forever $ do msg <- receiveMessage conn receivedFromCustomAddress server conn msg |