gameServer/ServerState.hs
author smxx
Fri, 04 Jun 2010 20:50:24 +0000
changeset 3494 208c5671b202
parent 3458 11cd56019f00
child 3501 a3159a410e5c
permissions -rw-r--r--
Frontend: * Avoid overwriting/replacing premade game/weapon schemes

module ServerState
    (
    module RoomsAndClients,
    clientRoomA,
    ServerState(..),
    clients
    ) where

import Control.Monad.State
----------------------
import RoomsAndClients
import CoreTypes

data ServerState = ServerState {
        clientIndex :: Maybe ClientIndex,
        serverInfo :: ServerInfo,
        roomsClients :: MRnC
    }


clientRoomA :: StateT ServerState IO RoomIndex
clientRoomA = do
    (Just ci) <- gets clientIndex
    rnc <- gets roomsClients
    liftIO $ clientRoomM rnc ci

clients :: (ClientInfo -> a) -> StateT ServerState IO a
clients f = do
    (Just ci) <- gets clientIndex
    rnc <- gets roomsClients
    liftIO $ clientsM rnc f ci