diff --git a/src-client/Client/Communication.hs b/src-client/Client/Communication.hs
index cf3076e..41098c7 100644
--- a/src-client/Client/Communication.hs
+++ b/src-client/Client/Communication.hs
@@ -59,7 +59,7 @@ handleMessages = do
   msgs <- liftIO $ STM.atomically $ STM.flushTQueue queue
   mapM_
     (\msg -> do
-      liftIO $ putStrLn $ "Handling following: " <> show msg
+      -- liftIO $ putStrLn $ "Handling following: " <> show msg
       handleMessage msg
     )
     msgs
diff --git a/src-server/Server/Communication.hs b/src-server/Server/Communication.hs
index 7d49623..bf0de9f 100644
--- a/src-server/Server/Communication.hs
+++ b/src-server/Server/Communication.hs
@@ -112,7 +112,7 @@ dropClient clientList sock = do
   maybe
     (putStrLn $ "closing unknown socket: " <> show sock)
     (\client -> do
-      putStrLn $ "dropping client: " <> show (ccUUID client)
+      putStrLn $ "dropping client: " <> show (fromJust $ ccUUID client)
       killThread (ccListener client)
     )
     mclient
@@ -156,7 +156,7 @@ sendMessage msg uuid clientList = do
   let mSock = ccSocket <$> find (\client -> ccUUID client == Just uuid) clients
       msgJson = A.encode msg
       msgVector = VS.fromList $ B.unpack $ B.toStrict $ ('<' `B8.cons` (msgJson `B8.snoc` '>'))
-  putStrLn $ "Sending: " <> B8.unpack msgJson
+  -- putStrLn $ "Sending: " <> B8.unpack msgJson
   maybe
     (putStrLn $ "unknown client UUID: " <> show uuid)
     (\sock ->
@@ -235,7 +235,7 @@ handleMessage
 handleMessage stateContainer readerContainer msg = do
   let clientList = scClientSockets stateContainer
   clients <- liftIO $ STM.atomically $ STM.readTMVar clientList
-  putStrLn $ "Handling: " <> show msg
+  -- putStrLn $ "Handling: " <> show msg
   case msg of
     IdRequest                      -> do
       clientId <- nextRandom
diff --git a/src-server/Server/Game.hs b/src-server/Server/Game.hs
index b6e7804..8f2559f 100644
--- a/src-server/Server/Game.hs
+++ b/src-server/Server/Game.hs
@@ -35,7 +35,7 @@ runGame = do
       before <- gets scServerLastTick
       now <- liftIO getCurrentTime
       let delta = realToFrac $ diffUTCTime now before
-      liftIO $ B8.hPutStr stdout $ "tick: " <> fromString (show delta) <> "  \r"
+      -- liftIO $ B8.hPutStr stdout $ "tick: " <> fromString (show delta) <> "  \r"
       handleMessages
       updateSpawners delta
       updateWizards delta