fixed an oversight that had always prevented annex.resolvemerge from being honored, when it was configured by git-annex config

forgot to add it to the merge function
This commit is contained in:
Joey Hess 2019-12-20 10:55:23 -04:00
parent f07cb76640
commit ce3fb0b2e5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 8 additions and 1 deletions

View file

@ -5,6 +5,8 @@ git-annex (7.20191219) UNRELEASED; urgency=medium
like get also sped up in cases where they have to check a lot of like get also sped up in cases where they have to check a lot of
files but only transfer a few files. Speedups range from 30-100%. files but only transfer a few files. Speedups range from 30-100%.
* Added build dependency on the filepath-bytestring library. * Added build dependency on the filepath-bytestring library.
* Fixed an oversight that had always prevented annex.resolvemerge
from being honored, when it was configured by git-annex config.
-- Joey Hess <id@joeyh.name> Wed, 18 Dec 2019 15:12:40 -0400 -- Joey Hess <id@joeyh.name> Wed, 18 Dec 2019 15:12:40 -0400

View file

@ -15,7 +15,10 @@ import Logs.Config
{- Gets a specific setting from GitConfig. If necessary, loads the {- Gets a specific setting from GitConfig. If necessary, loads the
- repository-global defaults when the GitConfig does not yet - repository-global defaults when the GitConfig does not yet
- have a value. -} - have a value.
-
- Note: Be sure to add the config value to mergeGitConfig.
-}
getGitConfigVal :: (GitConfig -> Configurable a) -> Annex a getGitConfigVal :: (GitConfig -> Configurable a) -> Annex a
getGitConfigVal f = do getGitConfigVal f = do
v <- f <$> Annex.getGitConfig v <- f <$> Annex.getGitConfig

View file

@ -46,6 +46,7 @@ unsetGlobalConfig name = do
setGlobalConfig' name (ConfigValue mempty) setGlobalConfig' name (ConfigValue mempty)
-- Reads the global config log every time. -- Reads the global config log every time.
-- It's more efficient to use Config.GitConfig.
getGlobalConfig :: ConfigKey -> Annex (Maybe ConfigValue) getGlobalConfig :: ConfigKey -> Annex (Maybe ConfigValue)
getGlobalConfig name = M.lookup name <$> loadGlobalConfig getGlobalConfig name = M.lookup name <$> loadGlobalConfig

View file

@ -221,6 +221,7 @@ mergeGitConfig :: GitConfig -> GitConfig -> GitConfig
mergeGitConfig gitconfig repoglobals = gitconfig mergeGitConfig gitconfig repoglobals = gitconfig
{ annexAutoCommit = merge annexAutoCommit { annexAutoCommit = merge annexAutoCommit
, annexSyncContent = merge annexSyncContent , annexSyncContent = merge annexSyncContent
, annexResolveMerge = merge annexResolveMerge
} }
where where
merge f = case f gitconfig of merge f = case f gitconfig of