Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HandlerUtils.hs
changeset 3501 a3159a410e5c
parent 3500 af8390d807d6
child 3542 f216b24aeb7f 
--- 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
hedgewars