fix inverted logic

This commit is contained in:
Joey Hess 2019-01-21 15:41:35 -04:00
parent a254abfe78
commit 0aea1a7b93
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -95,7 +95,7 @@ prop_parse_show_Config c
-- whitespace and '=' are not supported in config keys
| any (\k -> any isSpace k || elem '=' k) (M.keys c) = True
-- limit to alphanumerics for simplicity
| any (all isAlphaNum) (M.keys c) = True
| any (not . all isAlphaNum) (M.keys c) = True
| otherwise = A.parseOnly remoteConfigParser (encodeBS $ showConfig c) ~~ Right c
where
normalize v = sort . M.toList <$> v