merge

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 ()

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