Remove obsolete ‘discovery-init’ command

1 files changed, 0 insertions, 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