prepare for actual data

src-client/Client/Types.hs

@@ -1,7 +1,17 @@
 module Client.Types where
 
+import Control.Monad.RWS
+
+import Data.UUID
+
 import Options.Applicative as O
 
+import System.IO
+
+-- internal imports
+
+import Library.Types
+
 newtype Options = Options
   { optSockLoc :: FilePath
   }
@@ -12,3 +22,14 @@ options = Options
     ( metavar "FILEPATH"
     <> help "Location of the server's socket"
     )
+
+data ReaderContainer = ReaderContainer
+  { rcSocketHandle :: Handle
+  , rcClientUUID   :: UUID
+  }
+
+newtype StateContainer = StateContainer
+  { scWizard :: Wizard
+  }
+
+type Game = RWST ReaderContainer String StateContainer IO

wizard-wipeout.cabal

@@ -19,7 +19,9 @@ common warnings
 library
     import:           warnings
     exposed-modules:  Library.Types
+                      Library.Types.Communication
     build-depends:    base ^>=4.17.2.1
+                    , aeson
                     , linear
                     , matrix
                     , random
@@ -38,6 +40,7 @@ executable wizard-wipeout-client
                     , mtl
                     , network
                     , optparse-applicative
+                    , uuid
                     , vty
                     , wizard-wipeout
     hs-source-dirs:   src-client