diff --git a/src-client/Client/Communication.hs b/src-client/Client/Communication.hs index 0baca8e..7f689a9 100644 --- a/src-client/Client/Communication.hs +++ b/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 ) diff --git a/src-client/Client/Game.hs b/src-client/Client/Game.hs index 8728942..443bf31 100644 --- a/src-client/Client/Game.hs +++ b/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 diff --git a/src-client/Main.hs b/src-client/Main.hs index 51352e9..e852366 100644 --- a/src-client/Main.hs +++ b/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)) []