author | sheepluva |
Fri, 21 Nov 2014 19:09:45 +0100 | |
changeset 10524 | 2bc0ff00e95b |
parent 10523 | 00ac079fa51f |
child 10525 | 019b4fbb21d4 |
--- 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] ]