equal
deleted
inserted
replaced
48 let cl = rnc `client` fromJust maybeClientId |
48 let cl = rnc `client` fromJust maybeClientId |
49 let roomId = clientRoom rnc clientId |
49 let roomId = clientRoom rnc clientId |
50 let clRoom = room rnc roomId |
50 let clRoom = room rnc roomId |
51 let roomMasterSign = if isMaster cl then "@" else "" |
51 let roomMasterSign = if isMaster cl then "@" else "" |
52 let adminSign = if isAdministrator cl then "@" else "" |
52 let adminSign = if isAdministrator cl then "@" else "" |
53 let roomInfo = if roomId /= lobbyId then roomMasterSign `B.append` "room " `B.append` (name clRoom) else adminSign `B.append` "lobby" |
53 let roomInfo = if roomId /= lobbyId then roomMasterSign `B.append` "room " `B.append` name clRoom else adminSign `B.append` "lobby" |
54 let roomStatus = if gameinprogress clRoom then |
54 let roomStatus = if gameinprogress clRoom then |
55 if teamsInGame cl > 0 then "(playing)" else "(spectating)" |
55 if teamsInGame cl > 0 then "(playing)" else "(spectating)" |
56 else |
56 else |
57 "" |
57 "" |
58 if noSuchClient then |
58 if noSuchClient then |