--- a/gameServer/HandlerUtils.hs	Sun Jun 27 21:06:41 2010 +0400
+++ b/gameServer/HandlerUtils.hs	Sun Jun 27 21:27:26 2010 +0400
@@ -12,6 +12,12 @@
     (ci, rnc) <- ask
     return $ rnc `client` ci
 
+thisRoom :: Reader (ClientIndex, IRnC) RoomInfo
+thisRoom = do
+    (ci, rnc) <- ask
+    let ri = clientRoom rnc ci
+    return $ rnc `room` ri
+
 clientNick :: Reader (ClientIndex, IRnC) B.ByteString
 clientNick = liftM nick thisClient