From 4b8c2eb9fa7f9770f05cbe1ca8a3754bd38d073c Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 20 Jan 2024 10:49:57 +0100
Subject: [PATCH] merge

---
 src-client/Client/Game.hs | 10 ++++++++++
 src-client/Main.hs        |  2 ++
 2 files changed, 12 insertions(+)

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