equal
deleted
inserted
replaced
7 allClientsS, |
7 allClientsS, |
8 roomClientsS |
8 roomClientsS |
9 ) where |
9 ) where |
10 |
10 |
11 import Control.Monad.State |
11 import Control.Monad.State |
|
12 import Data.Set as Set |
12 ---------------------- |
13 ---------------------- |
13 import RoomsAndClients |
14 import RoomsAndClients |
14 import CoreTypes |
15 import CoreTypes |
15 |
16 |
16 data ServerState = ServerState { |
17 data ServerState = ServerState { |
17 clientIndex :: Maybe ClientIndex, |
18 clientIndex :: Maybe ClientIndex, |
18 serverInfo :: ServerInfo, |
19 serverInfo :: ServerInfo, |
|
20 removedClients :: Set.Set ClientIndex, |
19 roomsClients :: MRnC |
21 roomsClients :: MRnC |
20 } |
22 } |
21 |
23 |
22 |
24 |
23 clientRoomA :: StateT ServerState IO RoomIndex |
25 clientRoomA :: StateT ServerState IO RoomIndex |