diff options
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/main/Main.hs b/main/Main.hs index e9c0ae4..26f4b12 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -923,16 +923,11 @@ cmdDiscoveryInit = void $ do cmdDiscovery :: Command cmdDiscovery = void $ do - Just peer <- gets csIcePeer + server <- asks ciServer sref <- asks ciLine - eprint <- asks ciPrint case readRefDigest (BC.pack sref) of Nothing -> throwOtherError "failed to parse ref" - Just dgst -> liftIO $ do - res <- runExceptT $ sendToPeer peer $ DiscoverySearch $ Right dgst - case res of - Right _ -> return () - Left err -> eprint err + Just dgst -> discoverySearch server dgst #ifdef ENABLE_ICE_SUPPORT |