equal
deleted
inserted
replaced
1 module ServerState |
1 module ServerState |
2 ( |
2 ( |
3 module RoomsAndClients, |
3 module RoomsAndClients, |
|
4 module JoinsMonitor, |
4 clientRoomA, |
5 clientRoomA, |
5 ServerState(..), |
6 ServerState(..), |
6 client's, |
7 client's, |
7 allClientsS, |
8 allClientsS, |
8 allRoomsS, |
9 allRoomsS, |
15 import Data.Set as Set(Set) |
16 import Data.Set as Set(Set) |
16 import Data.Word |
17 import Data.Word |
17 ---------------------- |
18 ---------------------- |
18 import RoomsAndClients |
19 import RoomsAndClients |
19 import CoreTypes |
20 import CoreTypes |
|
21 import JoinsMonitor |
20 |
22 |
21 data ServerState = ServerState { |
23 data ServerState = ServerState { |
22 clientIndex :: !(Maybe ClientIndex), |
24 clientIndex :: !(Maybe ClientIndex), |
23 serverInfo :: !ServerInfo, |
25 serverInfo :: !ServerInfo, |
24 removedClients :: !(Set.Set ClientIndex), |
26 removedClients :: !(Set.Set ClientIndex), |
25 roomsClients :: !MRnC |
27 roomsClients :: !MRnC, |
|
28 joinsMonitor :: !JoinsMonitor |
26 } |
29 } |
27 |
30 |
28 |
31 |
29 clientRoomA :: StateT ServerState IO RoomIndex |
32 clientRoomA :: StateT ServerState IO RoomIndex |
30 clientRoomA = do |
33 clientRoomA = do |