From 1b7c33beedd85ecc87874b4ed10a784a37f7b6ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 12 Feb 2026 22:21:39 +0100 Subject: Discovery: avoid usage of putStrLn --- src/Erebos/Discovery.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs index 09ed22d..11156da 100644 --- a/src/Erebos/Discovery.hs +++ b/src/Erebos/Discovery.hs @@ -323,6 +323,7 @@ instance Service DiscoveryService where #ifdef ENABLE_ICE_SUPPORT getIceConfig >>= \case Just config -> do + printOp <- asks svcPrintOp void $ liftIO $ forkIO $ do ice <- iceCreateSession config PjIceSessRoleControlling $ \ice -> do rinfo <- iceRemoteInfo ice @@ -338,7 +339,7 @@ instance Service DiscoveryService where DiscoveryConnectionRequest (emptyConnection (Left $ storedRef $ idData self) edgst') { dconnIceInfo = Just rinfo } case res of Right _ -> return () - Left err -> putStrLn $ "Discovery: failed to send connection request: " ++ err + Left err -> printOp $ "Discovery: failed to send connection request: " ++ err runAsService $ do let upd dp = dp { dpIceSession = Just ice } @@ -391,12 +392,13 @@ instance Service DiscoveryService where peer <- asks svcPeer getIceConfig >>= \case Just config -> do + printOp <- asks svcPrintOp liftIO $ void $ iceCreateSession config PjIceSessRoleControlled $ \ice -> do rinfo <- iceRemoteInfo ice res <- runExceptT $ sendToPeer peer $ DiscoveryConnectionResponse rconn { dconnIceInfo = Just rinfo } case res of Right _ -> iceConnect ice prinfo $ void $ serverPeerIce server ice - Left err -> putStrLn $ "Discovery: failed to send connection response: " ++ err + Left err -> printOp $ "Discovery: failed to send connection response: " ++ err Nothing -> do return () #endif -- cgit v1.2.3