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:
parent
f07cb76640
commit
ce3fb0b2e5
4 changed files with 8 additions and 1 deletions
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue