From b4b706293734d890bf9ef24d5b5c27c4f80faad6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 7 Jul 2025 20:55:28 +0200
Subject: Do not print note about unsuccessful discovery search

---
 src/Erebos/Discovery.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Erebos/Discovery.hs')

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
-- 
cgit v1.2.3