S3: Added progress display for uploading and downloading.
This commit is contained in:
parent
7ade03bd5f
commit
7df1e71fe3
7 changed files with 46 additions and 41 deletions
|
@ -97,7 +97,7 @@ storeEncrypted r (cipher, enck) k p = metered (Just p) k $ \meterupdate ->
|
|||
davAction r False $ \(baseurl, user, pass) -> do
|
||||
let url = davLocation baseurl enck
|
||||
f <- inRepo $ gitAnnexLocation k
|
||||
liftIO $ encrypt cipher (sendMeteredFile f meterupdate) $
|
||||
liftIO $ encrypt cipher (streamMeteredFile f meterupdate) $
|
||||
readBytes $ storeHelper r url user pass
|
||||
|
||||
storeHelper :: Remote -> DavUrl -> DavUser -> DavPass -> L.ByteString -> IO Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue