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

make meter slightly wider

Browse source
This commit is contained in:
Joey Hess 2012-03-04 10:49:28 -04:00
parent 7ba79cfb8c
commit 89cc2d128f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Messages.hs
View file

@ -65,7 +65,7 @@ metered key a = Annex.getState Annex.output >>= go (keySize key)
where where
go (Just size) Annex.NormalOutput = do go (Just size) Annex.NormalOutput = do
progress <- liftIO $ newProgress "" size progress <- liftIO $ newProgress "" size
meter <- liftIO $ newMeter progress "B" 20 (renderNums binaryOpts 1) meter <- liftIO $ newMeter progress "B" 25 (renderNums binaryOpts 1)
showOutput showOutput
liftIO $ displayMeter stdout meter liftIO $ displayMeter stdout meter
r <- a $ \n -> liftIO $ do r <- a $ \n -> liftIO $ do