--- a/gameServer/HandlerUtils.hs	Sat Mar 05 22:39:26 2011 +0300
+++ b/gameServer/HandlerUtils.hs	Sun Mar 06 21:54:37 2011 +0300
@@ -48,7 +48,7 @@
     (ci, rnc) <- ask
     return [sendChan (rnc `client` ci)]
 
-answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action c]
+answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
 answerClient msg = liftM ((: []) . flip AnswerClients msg) thisClientChans
 
 allRoomInfos :: Reader (a, IRnC) [RoomInfo]