diff options
Diffstat (limited to 'src/Ssb/Peer/RPC/Room.hs')
-rw-r--r-- | src/Ssb/Peer/RPC/Room.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Ssb/Peer/RPC/Room.hs b/src/Ssb/Peer/RPC/Room.hs index 47bc956..0b85414 100644 --- a/src/Ssb/Peer/RPC/Room.hs +++ b/src/Ssb/Peer/RPC/Room.hs @@ -149,7 +149,6 @@ fork mVar action = do forkFinally action (\_ -> do - print "exiting fork" atomically $ putTMVar fork' () ) @@ -185,11 +184,6 @@ createTunnel :: Room -> (RPC.Stream, RPC.Stream) -> IO (Either Text ()) createTunnel room (stream1, stream2) = do let peer1 = RPC.connPeer $ RPC.conn stream1 let peer2 = RPC.connPeer $ RPC.conn stream2 - --print - -- $ "creating tunnel for " - -- <> Ssb.formatPublicKey peer1 - -- <> " <-> " - -- <> Ssb.formatPublicKey peer2 let tunnel = newTunnel peer1 peer2 exists <- atomically $ do @@ -243,7 +237,7 @@ connect room stream req = do maybeToRight errPeerNotAvailable mPeer case peerConn of Left err -> do - print $ "errorr! " <> err + putStrLn $ "room error: " <> err return $ Left err Right conn -> RPC.request conn (rpcRequest req) $ \peerStream -> createTunnel room (stream, peerStream) |