diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-05-16 16:08:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-16 16:08:20 -0400 |
| commit | f4b3a2aee0052962f3f82c03f137c62f17d64e18 (patch) | |
| tree | 00ec330f89eebb9ded13689a82e7c2ab1d31c36a /Remote/List.hs | |
| parent | ce4a677871eb33b5989005f6af209d6384d5f8a8 (diff) | |
factor out getRemoteGitConfig
Diffstat (limited to 'Remote/List.hs')
| -rw-r--r-- | Remote/List.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Remote/List.hs b/Remote/List.hs index 221ab9a54..1ec2c32b4 100644 --- a/Remote/List.hs +++ b/Remote/List.hs @@ -15,7 +15,6 @@ import Common.Annex import qualified Annex import Logs.Remote import Types.Remote -import Types.GitConfig import Annex.UUID import Remote.Helper.Hooks import Remote.Helper.ReadOnly @@ -94,8 +93,7 @@ remoteListRefresh = do remoteGen :: M.Map UUID RemoteConfig -> RemoteType -> Git.Repo -> Annex (Maybe Remote) remoteGen m t r = do u <- getRepoUUID r - g <- fromRepo id - let gc = extractRemoteGitConfig g (Git.repoDescribe r) + gc <- Annex.getRemoteGitConfig r let c = fromMaybe M.empty $ M.lookup u m mrmt <- generate t r u c gc return $ adjustReadOnly . addHooks <$> mrmt |