changeset 1383 | d20e6e8928e3 |
parent 1382 | b6ab9fea22fe |
child 1391 | 735f6d43780b |
--- a/netserver/Miscutils.hs Mon Oct 20 12:58:16 2008 +0000 +++ b/netserver/Miscutils.hs Mon Oct 20 15:59:05 2008 +0000 @@ -51,13 +51,6 @@ } createRoom = (RoomInfo "" "" 0 [] "+rnd+" False Map.empty) -data GlobalInfo = - GlobalInfo - { - isDedicated :: Bool, - serverMessage :: String - } - type ClientsTransform = [ClientInfo] -> [ClientInfo] type RoomsTransform = [RoomInfo] -> [RoomInfo] type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle]