gameServer/Utils.hs
changeset 12119 cdadc1d487f1
parent 11843 8f730ba4ca3c
child 12839 148c9524f38d
--- a/gameServer/Utils.hs	Fri Dec 23 23:12:00 2016 +0300
+++ b/gameServer/Utils.hs	Fri Dec 23 23:29:00 2016 +0300
@@ -245,3 +245,6 @@
     where
         sc c | isAlphaNum c = c
              | otherwise = '_'
+
+isRegistered :: ClientInfo -> Bool
+isRegistered = (<) 0 . B.length . webPassword