diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-01 13:52:47 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-01 13:58:14 -0400 |
| commit | 18a3a186e9cdb69ee503d961d8285a341d818c48 (patch) | |
| tree | d415a97f6c65e2268c948c6c2425d1b94b16df92 /Remote/Web.hs | |
| parent | b6e3e7516dfdc054b9e1a281b2e49b392d235ee2 (diff) | |
type based git config handling for remotes
Still a couple of places that use git config ad-hoc, but this is most of it
done.
Diffstat (limited to 'Remote/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index f1eee7feb..f984137a9 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -35,8 +35,8 @@ list = do r <- liftIO $ Git.Construct.remoteNamed "web" Git.Construct.fromUnknown return [r] -gen :: Git.Repo -> UUID -> RemoteConfig -> Annex Remote -gen r _ _ = +gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex Remote +gen r _ _ gc = return Remote { uuid = webUUID, cost = expensiveRemoteCost, @@ -49,6 +49,7 @@ gen r _ _ = hasKeyCheap = False, whereisKey = Just getUrls, config = M.empty, + gitconfig = gc, localpath = Nothing, repo = r, readonly = True, |