diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-05 15:28:49 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-09 21:42:22 +0100 |
| commit | e057476beb4eb7e5194665536c6f7073aa6f790f (patch) | |
| tree | a1f95a011fb0ab4b68f68b60bfcce1951753758f /main/Main.hs | |
| parent | 0f83948e7f5cad486cb8c8e18b39ebbbfbfa8d98 (diff) | |
Automatic discovery init using interface addresses
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 000bbf9..db141cf 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -846,7 +846,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 |