diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-29 14:53:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-29 15:16:12 -0400 |
| commit | 48674a62c7d1fb9932c2bd234e6f851ec75478ac (patch) | |
| tree | 42e85e57863731f46373052c3d2f6ba269121491 /Remote/Directory | |
| parent | 51a3747830e9c3a966185977b50652a928b3ee84 (diff) | |
add ContentSource type, for remotes that act on files rather than ByteStrings
Note that currently nothing cleans up a ContentSource's file, when eg,
retrieving chunks.
Diffstat (limited to 'Remote/Directory')
| -rw-r--r-- | Remote/Directory/LegacyChunked.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Directory/LegacyChunked.hs b/Remote/Directory/LegacyChunked.hs index c7b8ad52c..af846a2e6 100644 --- a/Remote/Directory/LegacyChunked.hs +++ b/Remote/Directory/LegacyChunked.hs @@ -96,7 +96,7 @@ retrieve locations d basek a = do tmpdir <- fromRepo $ gitAnnexTmpMiscDir createAnnexDirectory tmpdir let tmp = tmpdir </> keyFile basek ++ ".directorylegacy.tmp" - a $ Just $ \k -> do + a $ Just $ byteRetriever $ \k -> do void $ withStoredFiles d locations k $ \fs -> do forM_ fs $ S.appendFile tmp <=< S.readFile |