starting to make grahics

This commit is contained in:
nek0 2024-05-01 23:53:12 +02:00
parent 34ae1d4de4
commit 7a58d222ad
3 changed files with 7 additions and 5 deletions

View file

@ -13,6 +13,7 @@ import Data.IORef
import qualified Data.Matrix as M
import Graphics.Vty
import Graphics.Vty.CrossPlatform
import Options.Applicative
@ -58,9 +59,8 @@ main = do
playerWizard <- head <$> STM.atomically (STM.flushTQueue queue)
putStrLn $ "received wizard: " <> show (initWizard playerWizard)
-- cfg <- standardIOConfig
-- vty <- mkVty cfg
-- hideCursor (outputIface vty)
vty <- mkVty defaultConfig
hideCursor (outputIface vty)
-- shut down graphical interface for now
-- shutdown vty
@ -79,7 +79,8 @@ main = do
)
initRead
initState
-- shutdown vty
showCursor (outputIface vty)
shutdown vty
putStrLn "Shutting down client…"
-- threadDelay 100
-- close sock

View file

@ -8,7 +8,7 @@ import Control.Concurrent
import qualified Control.Concurrent.STM as STM
import Control.Exception.Base
import Control.Exception
import Control.Monad

View file

@ -55,6 +55,7 @@ executable wizard-wipeout-client
, uuid
, vector
, vty
, vty-crossplatform
, wizard-wipeout
hs-source-dirs: src-client
default-language: GHC2021