starting to make grahics

src-client/Main.hs

@@ -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 defaultConfig
-  -- vty <- mkVty cfg
+  hideCursor (outputIface vty)
-  -- 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

src-server/Server/Communication.hs

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

wizard-wipeout.cabal

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