equal
deleted
inserted
replaced
49 teams :: [TeamInfo], |
49 teams :: [TeamInfo], |
50 gamemap :: String, |
50 gamemap :: String, |
51 gameinprogress :: Bool, |
51 gameinprogress :: Bool, |
52 playersIn :: Int, |
52 playersIn :: Int, |
53 readyPlayers :: Int, |
53 readyPlayers :: Int, |
|
54 isRestrictedJoins :: Bool, |
|
55 isRestrictedTeams :: Bool, |
54 params :: Map.Map String [String] |
56 params :: Map.Map String [String] |
55 } |
57 } |
56 createRoom = (RoomInfo "" "" 0 [] "+rnd+" False 1 0 Map.empty) |
58 createRoom = (RoomInfo "" "" 0 [] "+rnd+" False 1 0 False False Map.empty) |
57 |
59 |
58 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
60 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
59 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
61 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
60 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |
62 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |
61 type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])]) |
63 type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])]) |