--- a/netserver/Miscutils.hs	Sun Oct 05 16:38:26 2008 +0000
+++ b/netserver/Miscutils.hs	Sun Oct 05 23:22:14 2008 +0000
@@ -39,7 +39,7 @@
 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 CmdHandler = ClientInfo -> [ClientInfo] -> [RoomInfo] -> [String] -> (ClientsTransform, RoomsTransform, [(HandlesSelector, [String])])
 
 
 roomByName :: String -> [RoomInfo] -> RoomInfo
@@ -90,6 +90,3 @@
 
 removeRoom :: String -> RoomsTransform
 removeRoom roomname rooms = filter (\rm -> roomname /= name rm) rooms
-
-badCmd :: [String]
-badCmd = ["ERROR", "Bad command, state or incorrect parameter"]