add more logging

src-server/Server/Communication.hs

@@ -131,7 +131,7 @@ processRequests = do
               forever $ sendMessageQueue curLevel sockContainer clientQueue
             logPrintIO curLevel Verbose "enabled sender thread"
             pure t
-          print clientSock
+          logPrintIO curLevel Verbose $ show clientSock
           liftIO $ STM.atomically $ do
             slist <- STM.takeTMVar socketList
             STM.putTMVar

src-server/Server/Communication/Receive.hs

@@ -62,7 +62,7 @@ receiveMessage curLevel socketList queueList sockContainer queue = do
         then [] ::  [B8.ByteString]
         else map B8.tail $ init $ B8.split '>' $ B8.fromStrict rawMsg
   logPrintIO curLevel Verbose $ "received messages: " <> show msgs
-  print msgs
+  logPrintIO curLevel Verbose $ show  msgs
   mapM_
     (\msg -> do
       let mJsonMsg = A.decode' msg