diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-24 16:42:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-24 16:42:35 -0400 |
| commit | 477243a87dd07ac8282745c482708205c5fa474f (patch) | |
| tree | 8b3155b20a916755a0ff91b1037d067a3dfa174b /Remote/WebDAV.hs | |
| parent | 2b414feaf2d20452794d0cdd608c6dd91feb1ec1 (diff) | |
move meteredWriteFileChunks out of legacy
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 36df60945..4be7e4701 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -140,7 +140,7 @@ retrieve :: Remote -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex retrieve r k _f d p = metered (Just p) k $ \meterupdate -> davAction r False $ \(baseurl, user, pass) -> liftIO $ catchBoolIO $ withStoredFiles r k baseurl user pass onerr $ \urls -> do - Legacy.meteredWriteFileChunks meterupdate d urls $ \url -> do + meteredWriteFileChunks meterupdate d urls $ \url -> do mb <- getDAV url user pass case mb of Nothing -> throwIO "download failed" |