mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix meter update

Browse source
This commit is contained in:
Joey Hess 2014-08-09 16:49:31 -04:00
parent 3659cb9efb
commit 5ee72b1bae
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/S3.hs
View file

@ -164,7 +164,7 @@ retrieve h = fileRetriever $ \f k p -> liftIO $ runResourceT $ do
case mbs of case mbs of
Nothing -> return () Nothing -> return ()
Just bs -> do Just bs -> do
let sofar' = sofar -- addBytesProcessed $ S.length bs let sofar' = addBytesProcessed sofar (S.length bs)
liftIO $ do liftIO $ do
void $ meterupdate sofar' void $ meterupdate sofar'
S.hPut fh bs S.hPut fh bs