move meteredWriteFileChunks out of legacy

Remote/Helper/Chunked/Legacy.hs

@@ -8,8 +8,7 @@
 module Remote.Helper.Chunked.Legacy where
 
 import Common.Annex
-import Utility.Metered
-import Remote.Helper.Chunked (ChunkSize)
+import Remote.Helper.Chunked
 
 import qualified Data.ByteString.Lazy as L
 import qualified Control.Exception as E
@@ -115,11 +114,3 @@ storeChunked chunksize dests storer content = either onerr return
 			let (chunk, b') = L.splitAt sz b
 			storer d chunk
 			storechunks sz (d:useddests) ds b'
-
-{- Writes a series of chunks to a file. The feeder is called to get
- - each chunk. -}
-meteredWriteFileChunks :: MeterUpdate -> FilePath -> [v] -> (v -> IO L.ByteString) -> IO ()
-meteredWriteFileChunks meterupdate dest chunks feeder =
-	withBinaryFile dest WriteMode $ \h ->
-		forM_ chunks $
-			meteredWrite meterupdate h <=< feeder