module ServerState

    (

    module RoomsAndClients,

    clientRoomA,

    ServerState(..),

    client's,

    allClientsS,

    roomClientsS,

    io

    ) where

import Control.Monad.State.Strict

import Data.Set as Set

----------------------

import RoomsAndClients

import CoreTypes

data ServerState c = ServerState {

        clientIndex :: !(Maybe ClientIndex),

        serverInfo :: !(ServerInfo c),

        removedClients :: !(Set.Set ClientIndex),

        roomsClients :: !MRnC

    }

clientRoomA :: StateT (ServerState c) IO RoomIndex

clientRoomA = do

    (Just ci) <- gets clientIndex

    rnc <- gets roomsClients

    io $ clientRoomM rnc ci

client's :: (ClientInfo -> a) -> StateT (ServerState c) IO a

client's f = do

    (Just ci) <- gets clientIndex

    rnc <- gets roomsClients

    io $ client'sM rnc f ci

allClientsS :: StateT (ServerState c) IO [ClientInfo]

allClientsS = gets roomsClients >>= liftIO . clientsM

roomClientsS :: RoomIndex -> StateT (ServerState c) IO [ClientInfo]

roomClientsS ri = do

    rnc <- gets roomsClients

    io $ roomClientsM rnc ri

io :: IO a -> StateT (ServerState c) IO a

io = liftIO