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 6101 5a4ea2c7b9df
parent 5996 2c72fe81dd37
child 7766 98edc0724a28 
--- a/gameServer/HWProtoCore.hs	Sat Oct 08 16:45:52 2011 +0200
+++ b/gameServer/HWProtoCore.hs	Sat Oct 08 16:54:56 2011 +0200
@@ -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