diff options
Diffstat (limited to 'Remote/Directory')
| -rw-r--r-- | Remote/Directory/LegacyChunked.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Remote/Directory/LegacyChunked.hs b/Remote/Directory/LegacyChunked.hs index df6d94d04..c7b8ad52c 100644 --- a/Remote/Directory/LegacyChunked.hs +++ b/Remote/Directory/LegacyChunked.hs @@ -7,6 +7,8 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE Rank2Types #-} + module Remote.Directory.LegacyChunked where import qualified Data.ByteString.Lazy as L @@ -88,13 +90,13 @@ store chunksize finalizer k b p = storeHelper finalizer k $ \dests -> - Done very innefficiently, by writing to a temp file. - :/ This is legacy code.. -} -retrieve :: (FilePath -> Key -> [FilePath]) -> FilePath -> PrepareRetriever -retrieve locations d basek = do +retrieve :: (FilePath -> Key -> [FilePath]) -> FilePath -> Preparer Retriever +retrieve locations d basek a = do showLongNote "This remote uses the deprecated chunksize setting. So this will be quite slow." tmpdir <- fromRepo $ gitAnnexTmpMiscDir createAnnexDirectory tmpdir let tmp = tmpdir </> keyFile basek ++ ".directorylegacy.tmp" - return $ Just $ \k -> do + a $ Just $ \k -> do void $ withStoredFiles d locations k $ \fs -> do forM_ fs $ S.appendFile tmp <=< S.readFile |