make debugging a bit easier

src-client/Client/Communication.hs

@@ -99,7 +99,7 @@ receiveMessage sock queue = do
     (\msg -> do
       let mJsonMsg = A.decode' msg
       maybe
-        (putStrLn $ "received garbled data: " <> B8.unpack msg)
+        (putStrLn $ "received garbled data: " <> B8.unpack (B8.fromStrict rawMsg))
         (STM.atomically . STM.writeTQueue queue)
         mJsonMsg
     )

src-client/Client/Game.hs

@@ -31,7 +31,7 @@ runGame = do
     (not . clientStop <$> (liftIO . STM.atomically . STM.readTMVar =<< gets scClientState))
     (do
       handleMessages
-      draw
+      -- draw
     )
   liftIO $ killThread recvThread
 

src-client/Main.hs

@@ -58,10 +58,10 @@ main = do
 
   cfg <- standardIOConfig
   vty <- mkVty cfg
-  hideCursor (outputIface vty)
+  -- hideCursor (outputIface vty)
 
   -- shut down graphical interface for now
-  -- shutdown vty
+  shutdown vty
 
   clientState <- STM.newTMVarIO (ClientState vty False False)
   let initSlice = MapSlice (M.matrix 9 9 (const Nothing)) []