--- a/gameServer/HWProtoInRoomState.hs	Mon Feb 28 22:28:43 2011 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Thu Mar 03 22:15:13 2011 +0300
@@ -15,7 +15,7 @@
 import HandlerUtils
 import RoomsAndClients
 
-handleCmd_inRoom :: CmdHandler
+handleCmd_inRoom :: CmdHandler c
 
 handleCmd_inRoom ["CHAT", msg] = do
     n <- clientNick