From 4c1e51c54d06da32327883cc6f48afb71fa34648 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 22 Jul 2025 22:37:49 +0200
Subject: =?UTF-8?q?Remove=20obsolete=20=E2=80=98discovery-init=E2=80=99=20?=
 =?UTF-8?q?command?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 main/Main.hs | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/main/Main.hs b/main/Main.hs
index aeae7ba..e2e585a 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -570,7 +570,6 @@ commands =
     , ("contact-reject", cmdContactReject)
     , ("conversations", cmdConversations)
     , ("details", cmdDetails)
-    , ("discovery-init", cmdDiscoveryInit)
     , ("discovery", cmdDiscovery)
     , ("join", cmdJoin)
     , ("join-as", cmdJoinAs)
@@ -941,19 +940,6 @@ cmdDetails = do
                 , map (BC.unpack . showRefDigest . refDigest . storedRef) $ idExtDataF cpid
                 ]
 
-cmdDiscoveryInit :: Command
-cmdDiscoveryInit = void $ do
-    server <- asks ciServer
-
-    (hostname, port) <- (words <$> asks ciLine) >>= return . \case
-        hostname:p:_ -> (hostname, p)
-        [hostname] -> (hostname, show discoveryPort)
-        [] -> ("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" ] Nothing
-    modify $ \s -> s { csIcePeer = Just peer }
-
 cmdDiscovery :: Command
 cmdDiscovery = void $ do
     server <- asks ciServer
-- 
cgit v1.2.3