Game.LambdaHack.SampleImplementation.SampleMonadServer

The implementation of our custom game server monads. Just as any other component of the library, this implementation can be substituted.

Documentation

executorSer :: COps -> KeyKind -> ServerOptions -> IO ()

Run the main server loop, with the given arguments and empty initial states, in the IO monad.

Internal operations

data SerState

Constructors

SerState

Fields

• serState :: State

  current global state

• serServer :: StateServer

  current server state

• serDict :: ConnServerDict

  client-server connection information

• serToSave :: ChanSave (State, StateServer)

  connection to the save thread

newtype SerImplementation a

Server state transformation monad.

Constructors

SerImplementation

Fields

• runSerImplementation :: StateT SerState IO a

Instances

Monad SerImplementation

Methods

(>>=) :: SerImplementation a -> (a -> SerImplementation b) -> SerImplementation b

(>>) :: SerImplementation a -> SerImplementation b -> SerImplementation b

return :: a -> SerImplementation a

fail :: String -> SerImplementation a

Functor SerImplementation

Methods

fmap :: (a -> b) -> SerImplementation a -> SerImplementation b

(<$) :: a -> SerImplementation b -> SerImplementation a

Applicative SerImplementation

Methods

pure :: a -> SerImplementation a

(<*>) :: SerImplementation (a -> b) -> SerImplementation a -> SerImplementation b

liftA2 :: (a -> b -> c) -> SerImplementation a -> SerImplementation b -> SerImplementation c

(*>) :: SerImplementation a -> SerImplementation b -> SerImplementation b

(<*) :: SerImplementation a -> SerImplementation b -> SerImplementation a

MonadStateRead SerImplementation

Methods

getsState :: (State -> a) -> SerImplementation a

MonadStateWrite SerImplementation

Methods

modifyState :: (State -> State) -> SerImplementation ()

MonadServerAtomic SerImplementation

Methods

execUpdAtomic :: UpdAtomic -> SerImplementation ()

execUpdAtomicSer :: UpdAtomic -> SerImplementation Bool

execUpdAtomicFid :: FactionId -> UpdAtomic -> SerImplementation ()

execUpdAtomicFidCatch :: FactionId -> UpdAtomic -> SerImplementation Bool

execSfxAtomic :: SfxAtomic -> SerImplementation ()

execSendPer :: FactionId -> LevelId -> Perception -> Perception -> Perception -> SerImplementation ()

MonadServer SerImplementation

Methods

getsServer :: (StateServer -> a) -> SerImplementation a

modifyServer :: (StateServer -> StateServer) -> SerImplementation ()

chanSaveServer :: SerImplementation (ChanSave (State, StateServer))

liftIO :: IO a -> SerImplementation a

MonadServerReadRequest SerImplementation

Methods

getsDict :: (ConnServerDict -> a) -> SerImplementation a

modifyDict :: (ConnServerDict -> ConnServerDict) -> SerImplementation ()

liftIO :: IO a -> SerImplementation a