diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-01 16:29:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-01 16:29:39 -0400 |
| commit | 01c99426c24dfb7c12b803c932b03934b829a352 (patch) | |
| tree | 5209c0a12af7e361010bcebb65630a45d00b75fa /Remote/Helper | |
| parent | 8cf937c5d0d1c204631a7bcd38aacc0011133feb (diff) | |
fix a fenchpost bug when resuming chunked store at end
Discovered thanks to testremote command!
Diffstat (limited to 'Remote/Helper')
| -rw-r--r-- | Remote/Helper/Chunked.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index 129db3281..9482153d1 100644 --- a/Remote/Helper/Chunked.hs +++ b/Remote/Helper/Chunked.hs @@ -172,7 +172,7 @@ seekResume h chunkkeys checker = do | pos >= sz = do -- All chunks are already stored! liftIO $ hSeek h AbsoluteSeek sz - return (cks', toBytesProcessed sz) + return (cks, toBytesProcessed sz) | otherwise = do v <- checker k case v of |