This commit is contained in:
nek0 2024-01-20 10:49:57 +01:00
parent 83956203ca
commit 4b8c2eb9fa
2 changed files with 12 additions and 0 deletions

View file

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

View file

@ -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