diff options
| author | Joey Hess <joeyh@joeyh.name> | 2022-05-04 11:40:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2022-05-04 11:43:20 -0400 |
| commit | c244daa32328f478bbf38a79f2fcacb138a1049f (patch) | |
| tree | f1b2691357b88b267b9a77d5db23213bf0e2ac79 /Git/Config.hs | |
| parent | 3c9630388ab0234df9e13473ac20c147e77074c5 (diff) | |
| download | git-repair-c244daa32328f478bbf38a79f2fcacb138a1049f.tar.gz | |
merge from git-annex
Diffstat (limited to 'Git/Config.hs')
| -rw-r--r-- | Git/Config.hs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/Git/Config.hs b/Git/Config.hs index 20ddf79..5deba6b 100644 --- a/Git/Config.hs +++ b/Git/Config.hs @@ -170,7 +170,7 @@ parse s st {- Checks if a string from git config is a true/false value. -} isTrueFalse :: String -> Maybe Bool -isTrueFalse = isTrueFalse' . ConfigValue . encodeBS' +isTrueFalse = isTrueFalse' . ConfigValue . encodeBS isTrueFalse' :: ConfigValue -> Maybe Bool isTrueFalse' (ConfigValue s) @@ -241,6 +241,14 @@ fromFile r f = fromPipe r "git" , Param "--list" ] ConfigList +{- Changes a git config setting in .git/config. -} +change :: ConfigKey -> S.ByteString -> Repo -> IO Bool +change (ConfigKey k) v = Git.Command.runBool + [ Param "config" + , Param (decodeBS k) + , Param (decodeBS v) + ] + {- Changes a git config setting in the specified config file. - (Creates the file if it does not already exist.) -} changeFile :: FilePath -> ConfigKey -> S.ByteString -> IO Bool @@ -248,8 +256,8 @@ changeFile f (ConfigKey k) v = boolSystem "git" [ Param "config" , Param "--file" , File f - , Param (decodeBS' k) - , Param (decodeBS' v) + , Param (decodeBS k) + , Param (decodeBS v) ] {- Unsets a git config setting, in both the git repo, @@ -264,4 +272,4 @@ unset ck@(ConfigKey k) r = ifM (Git.Command.runBool ps r) , return Nothing ) where - ps = [Param "config", Param "--unset-all", Param (decodeBS' k)] + ps = [Param "config", Param "--unset-all", Param (decodeBS k)] |