fix a fenchpost bug when resuming chunked store at end

Discovered thanks to testremote command!
This commit is contained in:
Joey Hess 2014-08-01 16:29:39 -04:00
parent 8fce4e4bd7
commit 9636cfd9e1

View file

@ -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