mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix inverted logic

Browse source
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
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Logs/Remote.hs
View file

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