gameServer/Utils.hs
changeset 9753 9579596cf471
parent 9702 27006953d901
child 9837 fa94ee96f006
equal deleted inserted replaced
9752:656c511ab0f3 9753:9579596cf471
   178             AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]]
   178             AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]]
   179 
   179 
   180 
   180 
   181 loc :: B.ByteString -> B.ByteString
   181 loc :: B.ByteString -> B.ByteString
   182 loc = id
   182 loc = id
       
   183 
       
   184 maybeNick :: Maybe ClientInfo -> B.ByteString
       
   185 maybeNick = fromMaybe "[empty]" . liftM nick