summaryrefslogtreecommitdiff
path: root/Remote/Directory
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-29 14:53:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-29 15:16:12 -0400
commit48674a62c7d1fb9932c2bd234e6f851ec75478ac (patch)
tree42e85e57863731f46373052c3d2f6ba269121491 /Remote/Directory
parent51a3747830e9c3a966185977b50652a928b3ee84 (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.hs2
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