Game.LambdaHack.Server.ProtocolServer

The server definitions for the server-client communication protocol.

The communication channels

data ChanServer resp req

Connection channel between the server and a single client.

Constructors

ChanServer

Fields

responseS :: !(TQueue resp)

requestS :: !(TQueue req)

type ConnServerDict = EnumMap FactionId ConnServerFaction

Connection information for all factions, indexed by faction identifier.

The server-client communication monad

class MonadServer m => MonadServerReadRequest m where

The server monad with the ability to communicate with clients.

Methods

getDict :: m ConnServerDict

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

modifyDict :: (ConnServerDict -> ConnServerDict) -> m ()

putDict :: ConnServerDict -> m ()

liftIO :: IO a -> m a

Protocol

sendUpdateAI :: MonadServerReadRequest m => FactionId -> ResponseAI -> m ()

sendQueryAI :: MonadServerReadRequest m => FactionId -> ActorId -> m RequestAI

sendPingAI :: (MonadAtomic m, MonadServerReadRequest m) => FactionId -> m ()

sendUpdateUI :: MonadServerReadRequest m => FactionId -> ResponseUI -> m ()

sendQueryUI :: (MonadAtomic m, MonadServerReadRequest m) => FactionId -> ActorId -> m RequestUI

sendPingUI :: (MonadAtomic m, MonadServerReadRequest m) => FactionId -> m ()

Assorted

killAllClients :: (MonadAtomic m, MonadServerReadRequest m) => m ()

childrenServer :: MVar [Async ()]

updateConn :: (MonadAtomic m, MonadServerReadRequest m) => (FactionId -> ChanServer ResponseUI RequestUI -> IO ()) -> (FactionId -> ChanServer ResponseAI RequestAI -> IO ()) -> m ()

Update connections to the new definition of factions. Connect to clients in old or newly spawned threads that read and write directly to the channels.