diff --git a/src-client/Client/Game.hs b/src-client/Client/Game.hs index 6e15ba7..8728942 100644 --- a/src-client/Client/Game.hs +++ b/src-client/Client/Game.hs @@ -10,6 +10,8 @@ import Control.Monad.Loops import Control.Monad.RWS +import Graphics.Vty + -- internal imports import Client.Communication @@ -32,3 +34,11 @@ runGame = do draw ) liftIO $ killThread recvThread + +handleEvent + :: Maybe Event + -> Game () +handleEvent Nothing = + pure () +handleEvent (Just event) = + pure () diff --git a/src-client/Main.hs b/src-client/Main.hs index a7990b2..51352e9 100644 --- a/src-client/Main.hs +++ b/src-client/Main.hs @@ -58,6 +58,7 @@ main = do cfg <- standardIOConfig vty <- mkVty cfg + hideCursor (outputIface vty) -- shut down graphical interface for now -- shutdown vty @@ -75,6 +76,7 @@ main = do ) initRead initState + shutdown vty partingMessage clientId sock threadDelay 100 close sock