From e057476beb4eb7e5194665536c6f7073aa6f790f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 5 Jan 2025 15:28:49 +0100
Subject: Automatic discovery init using interface addresses

---
 main/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main/Main.hs')

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
-- 
cgit v1.2.3