fix a fenchpost bug when resuming chunked store at end
Discovered thanks to testremote command!
This commit is contained in:
parent
8fce4e4bd7
commit
9636cfd9e1
1 changed files with 1 additions and 1 deletions
|
@ -172,7 +172,7 @@ seekResume h chunkkeys checker = do
|
||||||
| pos >= sz = do
|
| pos >= sz = do
|
||||||
-- All chunks are already stored!
|
-- All chunks are already stored!
|
||||||
liftIO $ hSeek h AbsoluteSeek sz
|
liftIO $ hSeek h AbsoluteSeek sz
|
||||||
return (cks', toBytesProcessed sz)
|
return (cks, toBytesProcessed sz)
|
||||||
| otherwise = do
|
| otherwise = do
|
||||||
v <- checker k
|
v <- checker k
|
||||||
case v of
|
case v of
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue