mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix inverted logic when determining whether to write a chunkcount file

Browse source 
late-night hlint bit me on this one..
Reviewed c1990702e9 and
the rest of it seems ok
This commit is contained in:
Joey Hess 2013-10-26 14:07:49 -04:00
parent cb440ab423
commit 06ea92282f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Helper/Chunked.hs
View file

@ -58,7 +58,7 @@ chunkStream = map (\n -> ".chunk" ++ show n) [1 :: Integer ..]
- generates a stream of temporary destinations (just one when not chunking) - generates a stream of temporary destinations (just one when not chunking)
- and passes it to an action, which should chunk and store the data, - and passes it to an action, which should chunk and store the data,
- and return the destinations it stored to, or [] on error. Then - and return the destinations it stored to, or [] on error. Then
- calls the storer to write the chunk count (if chunking). Finally, the - calls the recorder to write the chunk count (if chunking). Finally, the
- finalizer is called to rename the tmp into the dest - finalizer is called to rename the tmp into the dest
- (and do any other cleanup). - (and do any other cleanup).
-} -}
@ -68,7 +68,7 @@ storeChunks key tmp dest chunksize storer recorder finalizer = either onerr retu
where where
go = do go = do
stored <- storer tmpdests stored <- storer tmpdests
when (isNothing chunksize) $ do when (isJust chunksize) $ do
let chunkcount = basef ++ chunkCount let chunkcount = basef ++ chunkCount
recorder chunkcount (show $ length stored) recorder chunkcount (show $ length stored)
finalizer tmp dest finalizer tmp dest