equal
deleted
inserted
replaced
231 [AnswerClients [clChan] $ teamToNet team, |
231 [AnswerClients [clChan] $ teamToNet team, |
232 AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team], |
232 AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team], |
233 AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]] |
233 AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]] |
234 |
234 |
235 |
235 |
|
236 -- Locale function to localize strings. |
|
237 -- loc is just the identity functions, but it will be collected by scripts |
|
238 -- for localization. Use loc to mark a string for translation. |
236 loc :: B.ByteString -> B.ByteString |
239 loc :: B.ByteString -> B.ByteString |
237 loc = id |
240 loc = id |
238 |
241 |
239 maybeNick :: Maybe ClientInfo -> B.ByteString |
242 maybeNick :: Maybe ClientInfo -> B.ByteString |
240 maybeNick = fromMaybe "[]" . liftM nick |
243 maybeNick = fromMaybe "[]" . liftM nick |