This commit is contained in:
Joey Hess 2012-03-03 20:02:48 -04:00
parent 3436aba6de
commit 50c897c082

View file

@ -88,9 +88,7 @@ locations d k = map (d </>) (keyPaths k)
{- An infinite stream of chunks to use for a given file. -}
chunkStream :: FilePath -> [FilePath]
chunkStream f = map tochunk [1 :: Integer ..]
where
tochunk n = f ++ ".chunk" ++ show n
chunkStream f = map (\n -> f ++ ".chunk" ++ show n) [1 :: Integer ..]
{- A file that records the number of chunks used. -}
chunkCount :: FilePath -> FilePath