diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-18 22:49:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-18 22:49:07 -0400 |
| commit | 7e9c2f1ef320e01320560eb2e3d92e1bc1bae0aa (patch) | |
| tree | 88a9aada9729c9237d786f12548cc138f9574d3c /Remote/WebDAV.hs | |
| parent | 8ffd06e588011fd26cd258530b0c05b42b484a0a (diff) | |
S3: Added progress display for uploading and downloading.
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index e7da3af19..12f0f55a6 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -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 |