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/Test.hs | |
| parent | 0cc2b3ee83e46608495f4fb92ea8c2ca48b4e306 (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 0181575..75eaaaf 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -880,8 +880,5 @@ cmdDiscoveryConnect = do st <- asks tiStorage [ tref ] <- asks tiParams Just ref <- liftIO $ readRef st $ encodeUtf8 tref - Just RunningServer {..} <- gets tsServer - peers <- liftIO $ getCurrentPeerList rsServer - forM_ peers $ \peer -> do - sendToPeer peer $ DiscoverySearch ref + discoverySearch rsServer ref |