equal
deleted
inserted
replaced
72 let noSuchClient = isNothing maybeClientId |
72 let noSuchClient = isNothing maybeClientId |
73 let clientId = fromJust maybeClientId |
73 let clientId = fromJust maybeClientId |
74 let cl = rnc `client` fromJust maybeClientId |
74 let cl = rnc `client` fromJust maybeClientId |
75 let roomId = clientRoom rnc clientId |
75 let roomId = clientRoom rnc clientId |
76 let clRoom = room rnc roomId |
76 let clRoom = room rnc roomId |
77 let roomMasterSign = if isMaster cl then "@" else "" |
77 let roomMasterSign = if isMaster cl then "+" else "" |
78 let adminSign = if isAdministrator cl then "@" else "" |
78 let adminSign = if isAdministrator cl then "@" else "" |
79 let rInfo = if roomId /= lobbyId then B.concat [roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby" |
79 let rInfo = if roomId /= lobbyId then B.concat [adminSign, roomMasterSign, "room ", name clRoom] else adminSign `B.append` "lobby" |
80 let roomStatus = if isJust $ gameInfo clRoom then |
80 let roomStatus = if isJust $ gameInfo clRoom then |
81 if teamsInGame cl > 0 then "(playing)" else "(spectating)" |
81 if teamsInGame cl > 0 then "(playing)" else "(spectating)" |
82 else |
82 else |
83 "" |
83 "" |
84 let hostStr = if isAdminAsking then host cl else cutHost $ host cl |
84 let hostStr = if isAdminAsking then host cl else cutHost $ host cl |