gameServer/Utils.hs
changeset 10524 2bc0ff00e95b
parent 10511 c33b2f001730
child 10602 1ec0268f28af
--- a/gameServer/Utils.hs	Fri Nov 21 02:03:19 2014 +0100
+++ b/gameServer/Utils.hs	Fri Nov 21 19:09:45 2014 +0100
@@ -184,7 +184,7 @@
         roomFlags = concat [
             "-"
             , ['g' | isJust $ gameInfo r]
-            , ['p' | B.null $ password r]
+            , ['p' | not . B.null $ password r]
             , ['j' | isRestrictedJoins  r]
             , ['r' | isRegisteredOnly  r]
             ]