equal
deleted
inserted
replaced
13 ---------------------- |
13 ---------------------- |
14 import RoomsAndClients |
14 import RoomsAndClients |
15 import CoreTypes |
15 import CoreTypes |
16 |
16 |
17 data ServerState = ServerState { |
17 data ServerState = ServerState { |
18 clientIndex :: Maybe ClientIndex, |
18 clientIndex :: !(Maybe ClientIndex), |
19 serverInfo :: ServerInfo, |
19 serverInfo :: !ServerInfo, |
20 removedClients :: Set.Set ClientIndex, |
20 removedClients :: !(Set.Set ClientIndex), |
21 roomsClients :: MRnC |
21 roomsClients :: !MRnC |
22 } |
22 } |
23 |
23 |
24 |
24 |
25 clientRoomA :: StateT ServerState IO RoomIndex |
25 clientRoomA :: StateT ServerState IO RoomIndex |
26 clientRoomA = do |
26 clientRoomA = do |