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

add back exclusion of whitespace and =

Browse source
This commit is contained in:
Joey Hess 2019-01-21 12:38:00 -04:00
parent fc1406389d
commit e15d18058b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Logs/Remote.hs
View file

@ -92,8 +92,9 @@ prop_isomorphic_configEscape s = s == (configUnEscape . configEscape) s
prop_parse_show_Config :: RemoteConfig -> Bool prop_parse_show_Config :: RemoteConfig -> Bool
prop_parse_show_Config c prop_parse_show_Config c
-- whitespace and '=' are not supported in config keys; limit to -- whitespace and '=' are not supported in config keys
-- alphanumerics for simplicity | any (\k -> any isSpace k || elem '=' k) (M.keys c) = True
-- limit to alphanumerics for simplicity
| any (all isAlphaNum) (M.keys c) = True | any (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