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/HWProtoCore.hs
changeset 5996 2c72fe81dd37
parent 5060 7d0f6e5b1c1c
child 7766 98edc0724a28 
--- a/gameServer/HWProtoCore.hs	Fri Sep 23 09:58:41 2011 +0200
+++ b/gameServer/HWProtoCore.hs	Sat Sep 24 00:00:57 2011 +0400
@@ -52,7 +52,7 @@
     let roomMasterSign = if isMaster cl then "@" else ""
     let adminSign = if isAdministrator cl then "@" else ""
     let roomInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
-    let roomStatus = if gameinprogress clRoom then
+    let roomStatus = if isJust $ gameInfo clRoom then
             if teamsInGame cl > 0 then "(playing)" else "(spectating)"
             else
             ""
hedgewars