equal
deleted
inserted
replaced
48 gamemap :: String, |
48 gamemap :: String, |
49 gameinprogress :: Bool, |
49 gameinprogress :: Bool, |
50 params :: Map.Map String [String] |
50 params :: Map.Map String [String] |
51 } |
51 } |
52 createRoom = (RoomInfo "" "" 0 [] "+rnd+" False Map.empty) |
52 createRoom = (RoomInfo "" "" 0 [] "+rnd+" False Map.empty) |
|
53 |
|
54 data GlobalInfo = |
|
55 GlobalInfo |
|
56 { |
|
57 isDedicated :: Bool, |
|
58 serverMessage :: String |
|
59 } |
53 |
60 |
54 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
61 type ClientsTransform = [ClientInfo] -> [ClientInfo] |
55 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
62 type RoomsTransform = [RoomInfo] -> [RoomInfo] |
56 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |
63 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle] |
57 type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])]) |
64 type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])]) |