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