From 54c524f1660e40e4b302279c7571cf2f9c9d5488 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 May 2017 16:03:50 -0400 Subject: de-Maybe remoteGitConfig It's always set, so does not need to be a Maybe. --- Types/GitConfig.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Types') diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index 714038070..f66136cb1 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -88,6 +88,7 @@ data GitConfig = GitConfig , receiveDenyCurrentBranch :: DenyCurrentBranch , gcryptId :: Maybe String , gpgCmd :: GpgCmd + , gitConfigRepo :: Git.Repo } extractGitConfig :: Git.Repo -> GitConfig @@ -148,6 +149,7 @@ extractGitConfig r = GitConfig , receiveDenyCurrentBranch = getDenyCurrentBranch r , gcryptId = getmaybe "core.gcrypt-id" , gpgCmd = mkGpgCmd (getmaybe "gpg.program") + , gitConfigRepo = r } where getbool k d = fromMaybe d $ getmaybebool k @@ -216,7 +218,7 @@ data RemoteGitConfig = RemoteGitConfig , remoteAnnexHookType :: Maybe String , remoteAnnexExternalType :: Maybe String {- A regular git remote's git repository config. -} - , remoteGitConfig :: Maybe GitConfig + , remoteGitConfig :: GitConfig } extractRemoteGitConfig :: Git.Repo -> String -> RemoteGitConfig @@ -252,7 +254,7 @@ extractRemoteGitConfig r remotename = RemoteGitConfig , remoteAnnexDdarRepo = getmaybe "ddarrepo" , remoteAnnexHookType = notempty $ getmaybe "hooktype" , remoteAnnexExternalType = notempty $ getmaybe "externaltype" - , remoteGitConfig = Nothing + , remoteGitConfig = extractGitConfig r } where getbool k d = fromMaybe d $ getmaybebool k -- cgit v1.2.3