changeset 4989 | 4771fed9272e |
parent 4986 | 33fe91b2bcbf |
child 6541 | 08ed346ed341 |
--- 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]