From 01c99426c24dfb7c12b803c932b03934b829a352 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 1 Aug 2014 16:29:39 -0400 Subject: fix a fenchpost bug when resuming chunked store at end Discovered thanks to testremote command! --- Remote/Helper/Chunked.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Remote') 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 -- cgit v1.2.3