diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-07 20:55:28 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-07 20:55:28 +0200 |
| commit | b4b706293734d890bf9ef24d5b5c27c4f80faad6 (patch) | |
| tree | ed94b77e90474bec47e5e8b8530a129eab273fd0 /src | |
| parent | 173816717bca3d07e894c0fd8877f84eb9c3a4f7 (diff) | |
Do not print note about unsuccessful discovery search
Diffstat (limited to 'src')
| -rw-r--r-- | src/Erebos/Discovery.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs index 168a9c5..ede9cc9 100644 --- a/src/Erebos/Discovery.hs +++ b/src/Erebos/Discovery.hs @@ -271,8 +271,9 @@ instance Service DiscoveryService where dpeer <- M.lookup (either refDigest id edgst) . dgsPeers <$> svcGetGlobal replyPacket $ DiscoveryResult edgst $ maybe [] dpAddress dpeer - DiscoveryResult edgst [] -> do - svcPrint $ "Discovery: " ++ show (either refDigest id edgst) ++ " not found" + DiscoveryResult _ [] -> do + -- not found + return () DiscoveryResult edgst addrs -> do let dgst = either refDigest id edgst |