gameServer/HWProtoCore.hs
changeset 6101 5a4ea2c7b9df
parent 5996 2c72fe81dd37
child 7766 98edc0724a28
equal deleted inserted replaced
5801:531f64292489 6101:5a4ea2c7b9df
    50     let roomId = clientRoom rnc clientId
    50     let roomId = clientRoom rnc clientId
    51     let clRoom = room rnc roomId
    51     let clRoom = room rnc roomId
    52     let roomMasterSign = if isMaster cl then "@" else ""
    52     let roomMasterSign = if isMaster cl then "@" else ""
    53     let adminSign = if isAdministrator cl then "@" else ""
    53     let adminSign = if isAdministrator cl then "@" else ""
    54     let roomInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
    54     let roomInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby"
    55     let roomStatus = if gameinprogress clRoom then
    55     let roomStatus = if isJust $ gameInfo clRoom then
    56             if teamsInGame cl > 0 then "(playing)" else "(spectating)"
    56             if teamsInGame cl > 0 then "(playing)" else "(spectating)"
    57             else
    57             else
    58             ""
    58             ""
    59     let hostStr = if isAdminAsking then host cl else cutHost $ host cl
    59     let hostStr = if isAdminAsking then host cl else cutHost $ host cl
    60     if noSuchClient then
    60     if noSuchClient then