S3: Added progress display for uploading and downloading.

This commit is contained in:
Joey Hess 2012-11-18 22:49:07 -04:00
parent 7ade03bd5f
commit 7df1e71fe3
7 changed files with 46 additions and 41 deletions

View file

@ -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