diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:08:43 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:08:43 -0400 |
| commit | 063d84ddd33f1aa0624cf5f363f2c58397b98562 (patch) | |
| tree | c94f587d1338b5ab59bf44626c1d70915ec21134 /Remote/Glacier.hs | |
| parent | d5f672ddd59b43cb9b1bac8f836864165c8931f2 (diff) | |
plumb RemoteGitConfig through to setRemoteCredPair
Diffstat (limited to 'Remote/Glacier.hs')
| -rw-r--r-- | Remote/Glacier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 800b16875..234b750d4 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -85,7 +85,7 @@ glacierSetup mu mcreds c gc = do glacierSetup' :: Bool -> UUID -> Maybe CredPair -> RemoteConfig -> RemoteGitConfig -> Annex (RemoteConfig, UUID) glacierSetup' enabling u mcreds c gc = do (c', encsetup) <- encryptionSetup c - c'' <- setRemoteCredPair encsetup c' (AWS.creds u) mcreds + c'' <- setRemoteCredPair encsetup c' gc (AWS.creds u) mcreds let fullconfig = c'' `M.union` defaults unless enabling $ genVault fullconfig gc u |