thread through original key to retrieveEnctypted
Allows showing progress bar for this last case of the directory special remote.
This commit is contained in:
parent
4638314001
commit
7ba79cfb8c
6 changed files with 17 additions and 16 deletions
|
@ -161,8 +161,8 @@ retrieve r k f = s3Action r False $ \(conn, bucket) -> do
|
|||
retrieveCheap :: Remote -> Key -> FilePath -> Annex Bool
|
||||
retrieveCheap _ _ _ = return False
|
||||
|
||||
retrieveEncrypted :: Remote -> (Cipher, Key) -> FilePath -> Annex Bool
|
||||
retrieveEncrypted r (cipher, enck) f = s3Action r False $ \(conn, bucket) -> do
|
||||
retrieveEncrypted :: Remote -> (Cipher, Key) -> Key -> FilePath -> Annex Bool
|
||||
retrieveEncrypted r (cipher, enck) _ f = s3Action r False $ \(conn, bucket) -> do
|
||||
res <- liftIO $ getObject conn $ bucketKey r bucket enck
|
||||
case res of
|
||||
Right o -> liftIO $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue