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

git-annex config: guard against non-repo-global configs

Browse source 
git-annex config: Only allow configs be set that are ones git-annex
actually supports reading from repo-global config, to avoid confused users
trying to set other configs with this.
This commit is contained in:
Joey Hess 2020-03-02 15:50:40 -04:00
parent 5a72e3be18
commit ccd8c43dc8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 136 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Annex/SpecialRemote/Config.hs
View file

@ -16,7 +16,7 @@ import Types
import Types.UUID
import Types.ProposedAccepted
import Types.RemoteConfig
import Config
import Types.GitConfig
import qualified Git.Config
import qualified Data.Map as M
@ -234,8 +234,12 @@ optionalStringParser f fielddesc = RemoteConfigFieldParser
p Nothing _c = Right Nothing
yesNoParser :: RemoteConfigField -> Bool -> FieldDesc -> RemoteConfigFieldParser
yesNoParser f v fd = genParser yesNo f v fd
yesNoParser f v fd = genParser yesno f v fd
(Just (ValueDesc "yes or no"))
where
yesno "yes" = Just True
yesno "no" = Just False
yesno _ = Nothing
trueFalseParser :: RemoteConfigField -> Bool -> FieldDesc -> RemoteConfigFieldParser
trueFalseParser f v fd = genParser Git.Config.isTrueFalse f v fd