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

rename Configurable for clarity

Browse source
This commit is contained in:
Joey Hess 2020-09-16 11:16:48 -04:00
parent 7a4f3ff345
commit 8471df3b6d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Config/GitConfig.hs
View file

@ -20,13 +20,13 @@ import Logs.Config
- Note: Be sure to add the config to mergeGitConfig and to
- globalConfigs.
-}
getGitConfigVal :: (GitConfig -> Configurable a) -> Annex a
getGitConfigVal :: (GitConfig -> GlobalConfigurable a) -> Annex a
getGitConfigVal f = getGitConfigVal' f >>= \case
HasGlobalConfig c -> return c
DefaultConfig d -> return d
HasGitConfig c -> return c
getGitConfigVal' :: (GitConfig -> Configurable a) -> Annex (Configurable a)
getGitConfigVal' :: (GitConfig -> GlobalConfigurable a) -> Annex (GlobalConfigurable a)
getGitConfigVal' f = (f <$> Annex.getGitConfig) >>= \case
DefaultConfig _ -> do
r <- Annex.gitRepo