diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-09 16:49:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-09 16:49:31 -0400 |
| commit | 52931654b961221a51448f38116694821c54b4ea (patch) | |
| tree | b703294e5cb16675224c98a9438911290a8239f1 /Remote/S3.hs | |
| parent | 1ebf529787d1766a5b6a25c6c2b58f126053816f (diff) | |
fix meter update
Diffstat (limited to 'Remote/S3.hs')
| -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 |