--- a/netserver/Miscutils.hs	Sat Oct 18 21:47:28 2008 +0000
+++ b/netserver/Miscutils.hs	Mon Oct 20 12:58:16 2008 +0000
@@ -51,6 +51,13 @@
 	}
 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]