| changeset 10524 | 2bc0ff00e95b |
| parent 10511 | c33b2f001730 |
| child 10602 | 1ec0268f28af |
| 10523:00ac079fa51f | 10524:2bc0ff00e95b |
|---|---|
182 ] |
182 ] |
183 where |
183 where |
184 roomFlags = concat [ |
184 roomFlags = concat [ |
185 "-" |
185 "-" |
186 , ['g' | isJust $ gameInfo r] |
186 , ['g' | isJust $ gameInfo r] |
187 , ['p' | B.null $ password r] |
187 , ['p' | not . B.null $ password r] |
188 , ['j' | isRestrictedJoins r] |
188 , ['j' | isRestrictedJoins r] |
189 , ['r' | isRegisteredOnly r] |
189 , ['r' | isRegisteredOnly r] |
190 ] |
190 ] |
191 |
191 |
192 answerFullConfigParams :: |
192 answerFullConfigParams :: |