diff -r af8390d807d6 -r a3159a410e5c gameServer/HandlerUtils.hs
--- a/gameServer/HandlerUtils.hs	Sun Jun 06 15:29:33 2010 +0000
+++ b/gameServer/HandlerUtils.hs	Sun Jun 06 19:03:06 2010 +0000
@@ -28,3 +28,6 @@
 
 answerClient :: [B.ByteString] -> Reader (ClientIndex, IRnC) [Action]
 answerClient msg = thisClientChans >>= return . (: []) . flip AnswerClients msg
+
+allRoomInfos :: Reader (a, IRnC) [RoomInfo]
+allRoomInfos = liftM ((\irnc -> map (room irnc) $ allRooms irnc) . snd) ask