gameServer/Utils.hs
changeset 9753 9579596cf471
parent 9702 27006953d901
child 9837 fa94ee96f006
--- a/gameServer/Utils.hs	Wed Dec 04 12:28:04 2013 +0100
+++ b/gameServer/Utils.hs	Thu Dec 05 00:51:27 2013 +0400
@@ -180,3 +180,6 @@
 
 loc :: B.ByteString -> B.ByteString
 loc = id
+
+maybeNick :: Maybe ClientInfo -> B.ByteString
+maybeNick = fromMaybe "[empty]" . liftM nick