diff -r 656c511ab0f3 -r 9579596cf471 gameServer/Utils.hs --- 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