equal
deleted
inserted
replaced
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 |