diff options
| -rw-r--r-- | main/Main.hs | 14 |
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 |