diff options
| -rw-r--r-- | Remote/S3.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |