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-03 23:07:55 +0200 |
| commit | b810f2dab0040e9c5a9f2344ecda67e5817893f5 (patch) | |
| tree | 7cc0f296105631c261a148935fcb94de2dac2505 /main/Test.hs | |
| parent | bd3e57cdba7db5e2a70308b18e2b47638fc566fd (diff) | |
Discovery search using global state to ask new peers
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/main/Test.hs b/main/Test.hs index a119b0f..c563291 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -959,8 +959,5 @@ cmdDiscoveryConnect :: Command cmdDiscoveryConnect = do [ tref ] <- asks tiParams Just dgst <- return $ readRefDigest $ encodeUtf8 tref - Just RunningServer {..} <- gets tsServer - peers <- liftIO $ getCurrentPeerList rsServer - forM_ peers $ \peer -> do - sendToPeer peer $ DiscoverySearch $ Right dgst + discoverySearch rsServer dgst |