diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-01 17:39:58 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-12 20:53:10 +0200 |
| commit | e8f3cbe08071c0507abafa76d0bf9d32908bbd7e (patch) | |
| tree | 275347fffda7313b81ae3cfffc2df08d5cf20d17 /main/Main.hs | |
| parent | 0cc2b3ee83e46608495f4fb92ea8c2ca48b4e306 (diff) | |
Discovery search using global state to ask new peers
Diffstat (limited to 'main/Main.hs')
| -rw-r--r-- | main/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/main/Main.hs b/main/Main.hs index e055275..59ea7c3 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -893,14 +893,14 @@ cmdDiscoveryInit = void $ do cmdDiscovery :: Command cmdDiscovery = void $ do - Just peer <- gets csIcePeer + server <- asks ciServer st <- getStorage sref <- asks ciLine eprint <- asks ciPrint liftIO $ readRef st (BC.pack sref) >>= \case Nothing -> error "ref does not exist" Just ref -> do - res <- runExceptT $ sendToPeer peer $ DiscoverySearch ref + res <- runExceptT $ discoverySearch server ref case res of Right _ -> return () Left err -> eprint err |