From 52931654b961221a51448f38116694821c54b4ea Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 9 Aug 2014 16:49:31 -0400 Subject: fix meter update --- Remote/S3.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index e06a3d6c8..11e681bd8 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -164,7 +164,7 @@ retrieve h = fileRetriever $ \f k p -> liftIO $ runResourceT $ do case mbs of Nothing -> return () Just bs -> do - let sofar' = sofar -- addBytesProcessed $ S.length bs + let sofar' = addBytesProcessed sofar (S.length bs) liftIO $ do void $ meterupdate sofar' S.hPut fh bs -- cgit v1.2.3