diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-12 22:21:39 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-02-12 22:21:39 +0100 |
| commit | 1b7c33beedd85ecc87874b4ed10a784a37f7b6ae (patch) | |
| tree | 539b1d19623cee6f32afb21f9ab69a7e8dbcb0ce | |
| parent | 3ab6a143f95dad46cee526b709a2687bb28e985b (diff) | |
| -rw-r--r-- | src/Erebos/Discovery.hs | 6 |
1 files 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 |