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