diff options
author | Joey Hess <joey@kitenet.net> | 2012-03-04 03:36:39 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-03-04 03:36:39 -0400 |
commit | 7ba79cfb8c5c2a0fcb1472ab67bb777999e8e88a (patch) | |
tree | 361d18e7f4f42e811f2d48473012f8c3daaec0ff /Remote/Rsync.hs | |
parent | 46383140015fb607ba7d9c7bf5a3c2c435dfb548 (diff) |
thread through original key to retrieveEnctypted
Allows showing progress bar for this last case of the directory special
remote.
Diffstat (limited to 'Remote/Rsync.hs')
-rw-r--r-- | Remote/Rsync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index 54fb890ca..577ea0b04 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -119,8 +119,8 @@ retrieveCheap o k f = do then retrieve o k f else return False -retrieveEncrypted :: RsyncOpts -> (Cipher, Key) -> FilePath -> Annex Bool -retrieveEncrypted o (cipher, enck) f = withTmp enck $ \tmp -> do +retrieveEncrypted :: RsyncOpts -> (Cipher, Key) -> Key -> FilePath -> Annex Bool +retrieveEncrypted o (cipher, enck) _ f = withTmp enck $ \tmp -> do res <- retrieve o enck tmp if res then liftIO $ catchBoolIO $ do |