diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-19 21:40:25 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-19 21:40:25 +0100 |
| commit | 94d84d2b7a35b965b26f823e1ee7e7c1ce419d87 (patch) | |
| tree | df6bd4c3ce2c7c944c63ca77b02aee552a8436d2 /main/Main.hs | |
| parent | 37d10a1912b845e0b1a50062d84f5c50e41c4ea6 (diff) | |
| parent | 1f6eb330e9fd9f0004dec4783496d36520dbd2a3 (diff) | |
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/main/Main.hs b/main/Main.hs index 528b8c2..6e96c14 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -849,7 +849,7 @@ cmdDiscoveryInit = void $ do [] -> ("discovery.erebosprotocol.net", show discoveryPort) addr:_ <- liftIO $ getAddrInfo (Just $ defaultHints { addrSocketType = Datagram }) (Just hostname) (Just port) peer <- liftIO $ serverPeer server (addrAddress addr) - sendToPeer peer $ DiscoverySelf (T.pack "ICE") 0 + sendToPeer peer $ DiscoverySelf [ T.pack "ICE" ] Nothing modify $ \s -> s { csIcePeer = Just peer } cmdDiscovery :: Command |