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/Hook.hs | |
parent | 063d84ddd33f1aa0624cf5f363f2c58397b98562 (diff) |
plumb RemoteGitConfig through to decryptCipher
Diffstat (limited to 'Remote/Hook.hs')
-rw-r--r-- | Remote/Hook.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Hook.hs b/Remote/Hook.hs index 20f5e5164..7d8f7f096 100644 --- a/Remote/Hook.hs +++ b/Remote/Hook.hs @@ -71,11 +71,11 @@ gen r u c gc = do hooktype = fromMaybe (error "missing hooktype") $ remoteAnnexHookType gc hookSetup :: Maybe UUID -> Maybe CredPair -> RemoteConfig -> RemoteGitConfig -> Annex (RemoteConfig, UUID) -hookSetup mu _ c _ = do +hookSetup mu _ c gc = do u <- maybe (liftIO genUUID) return mu let hooktype = fromMaybe (error "Specify hooktype=") $ M.lookup "hooktype" c - (c', _encsetup) <- encryptionSetup c + (c', _encsetup) <- encryptionSetup c gc gitConfigSpecialRemote u c' "hooktype" hooktype return (c', u) |