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, 4 insertions, 8 deletions

diff --git a/src/Ssb/Peer/RPC.hs b/src/Ssb/Peer/RPC.hs
index e5a4c9a..3286a33 100644
--- a/src/Ssb/Peer/RPC.hs
+++ b/src/Ssb/Peer/RPC.hs
@@ -358,7 +358,7 @@ withM demuxer handler = with <$> demuxer <*> handler
 logMsg :: ConnState -> Text -> IO ()
 logMsg conn msg = do
   _ <- atomically $ takeTMVar (lock conn)
-  print msg
+  putStrLn msg
   atomically $ putTMVar (lock conn) True
 
 logDebug :: ConnState -> Text -> IO ()
@@ -406,13 +406,9 @@ connect boxConn handler peer client = do
   forkIO $
     -- make RPC calls on the peer
            client conn
-  print "entering service loop"
   ret <- serviceLoop conn
-  print "out of service loop"
   _   <- notifyDisconnect handler (connPeer conn)
-  print "disconnecting"
   disconnect conn
-  print "disconnected"
   return ret
  where
   serviceLoop conn = do
@@ -564,15 +560,15 @@ handleMessage handler conn msg = do
               putTMVar (streamsIn conn)          table'
               return . return $ ()
         case err of
-          Left msg -> do
-            print msg
+          Left err -> do
+            putStrLn err
             return False
           Right _ -> do
             -- Serving a request call, how do we close it nicely?
             let endpoint = Endpoint (name req) (typ req)
             spawnConnection stream $ (serve handler) endpoint (args req) stream
             return True
-    where errTooManyRequests = "connection limit reached, dropping request"
+    where errTooManyRequests = "connection limit reached, dropping request" :: Text
 
   demux conn msg = do
     let reqNum    = requestNumber . header $ msg