diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:27:15 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:33:32 -0400 |
| commit | 9a8ff4c743fae057520caebb59a760caf29001b4 (patch) | |
| tree | 6fb8bde572a73366a6749c07ecf711fe550a1bd5 /Remote/GCrypt.hs | |
| parent | 063d84ddd33f1aa0624cf5f363f2c58397b98562 (diff) | |
plumb RemoteGitConfig through to decryptCipher
Diffstat (limited to 'Remote/GCrypt.hs')
| -rw-r--r-- | Remote/GCrypt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index c35f17920..d34c733c5 100644 --- a/Remote/GCrypt.hs +++ b/Remote/GCrypt.hs @@ -170,12 +170,12 @@ unsupportedUrl :: a unsupportedUrl = error "using non-ssh remote repo url with gcrypt is not supported" gCryptSetup :: Maybe UUID -> Maybe CredPair -> RemoteConfig -> RemoteGitConfig -> Annex (RemoteConfig, UUID) -gCryptSetup mu _ c _ = go $ M.lookup "gitrepo" c +gCryptSetup mu _ c gc = go $ M.lookup "gitrepo" c where remotename = fromJust (M.lookup "name" c) go Nothing = error "Specify gitrepo=" go (Just gitrepo) = do - (c', _encsetup) <- encryptionSetup c + (c', _encsetup) <- encryptionSetup c gc inRepo $ Git.Command.run [ Param "remote", Param "add" , Param remotename |