wizard-wipeout/src-client/Client/Types.hs

module Client.Types where

import Control.Monad.RWS

import Data.UUID

import Network.Socket

import Options.Applicative as O

-- internal imports

import Library.Types

newtype Options = Options
  { optSockLoc :: FilePath
  }

options :: O.Parser Options
options = Options
  <$> argument str
    ( metavar "FILEPATH"
    <> help "Location of the server's socket"
    )

data ReaderContainer = ReaderContainer
  { rcSocketHandle :: Socket
  , rcClientUUID   :: UUID
  }

newtype StateContainer = StateContainer
  { scWizard :: Wizard
  }

type Game = RWST ReaderContainer String StateContainer IO