--- a/netserver/Miscutils.hs	Sun Nov 09 12:35:54 2008 +0000
+++ b/netserver/Miscutils.hs	Mon Nov 10 15:50:46 2008 +0000
@@ -60,10 +60,17 @@
 	}
 createRoom = (RoomInfo "" "" 0 [] "+rnd+" False 1 0 False False Map.empty)
 
+data ServerInfo =
+	ServerInfo
+	{
+		message :: String
+	}
+
 type ClientsTransform = [ClientInfo] -> [ClientInfo]
 type RoomsTransform = [RoomInfo] -> [RoomInfo]
 type HandlesSelector = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [Handle]
-type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])])
+type Answer = (HandlesSelector, [String])
+type CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [Answer])
 
 
 roomByName :: String -> [RoomInfo] -> RoomInfo