From 89cc2d128f833e65def1066fdf2dbd1c66c7dd11 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 4 Mar 2012 10:49:28 -0400 Subject: [PATCH] make meter slightly wider --- Messages.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Messages.hs b/Messages.hs index e8bbfed133..73a7d976fd 100644 --- a/Messages.hs +++ b/Messages.hs @@ -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