gameServer/HandlerUtils.hs
changeset 4975 31da8979e5b1
parent 4932 f11d80bac7ed
child 4986 33fe91b2bcbf
--- a/gameServer/HandlerUtils.hs	Mon Feb 28 22:28:43 2011 +0300
+++ b/gameServer/HandlerUtils.hs	Thu Mar 03 22:15:13 2011 +0300
@@ -51,7 +51,7 @@
     (ci, rnc) <- ask
     return [sendChan (rnc `client` ci)]
 
-answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
+answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action c]
 answerClient msg = liftM ((: []) . flip AnswerClients msg) thisClientChans
 
 allRoomInfos :: Reader (a, IRnC) [RoomInfo]