mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

move meteredWriteFileChunks out of legacy

Browse source
This commit is contained in:
Joey Hess 2014-07-24 16:42:35 -04:00
parent e2c44bf656
commit ceea04e77f
4 changed files with 20 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Directory.hs
View file

@ -222,7 +222,7 @@ retrieve :: FilePath -> ChunkConfig -> Key -> AssociatedFile -> FilePath -> Mete
retrieve d chunkconfig k _ f p = metered (Just p) k $ \meterupdate ->
liftIO $ withStoredFiles chunkconfig d k $ \files ->
catchBoolIO $ do
Legacy.meteredWriteFileChunks meterupdate f files L.readFile
meteredWriteFileChunks meterupdate f files L.readFile
return True
retrieveEncrypted :: FilePath -> ChunkConfig -> (Cipher, Key) -> Key -> FilePath -> MeterUpdate -> Annex Bool