Make slightly less verbose

Remove not needed printing to stdout and replace 'print's with putStrLn
to avoid surrounding output with quotation marks.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Ssb/Peer/TCP.hs b/src/Ssb/Peer/TCP.hs
index 27e3f07..59d7f81 100644
--- a/src/Ssb/Peer/TCP.hs
+++ b/src/Ssb/Peer/TCP.hs
@@ -51,12 +51,12 @@ serveBoxStream host port networkID id cmd =
                                          networkID
                                          id
     case res of
-        Left err -> print $ "client handshake error: " <> err
+        Left err -> putStrLn $ "client handshake error: " <> err
         Right sharedSecrets -> do
             let peerID = (fromMaybe undefined $ SH.secretA sharedSecrets)
             conn <- BoxStream.connectServer socket sharedSecrets
             case conn of
-              Left  err  -> print $ "client error: " <> err
+              Left  err  -> putStrLn $ "client error: " <> err
               Right conn -> cmd conn (Ssb.Identity Nothing peerID)
 
 connectRPC
@@ -96,5 +96,5 @@ serveRPC handler host port networkID id =
   serveBoxStream host port networkID id $ \conn peer -> do
     res <- RPC.connect conn handler (Ssb.publicKey peer) (\_ -> return ())
     case res of
-      Left  err -> print $ "RPC error serving client: " <> err
+      Left  err -> putStrLn $ "RPC error serving client: " <> err
       Right _   -> return ()