make meter slightly wider

This commit is contained in:
Joey Hess 2012-03-04 10:49:28 -04:00
parent 7ba79cfb8c
commit 89cc2d128f

View file

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