diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-25 16:11:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-25 16:11:38 -0400 |
| commit | d62ec016f583db5177208ea137b5bed1d2a3f64b (patch) | |
| tree | 329c1346d5c06cc21a0f1cb66ea350c7d6185c9e /Messages.hs | |
| parent | 57b3b871f513c25d68ff67487eebf5961948b8b2 (diff) | |
avoid displaying meter before data is received
The caller may be like glacier, and be running an action that may print
a message and fail. So don't start displaying the meter until data is
flowing, to avoid getting in the way of such messages being displayed.
Diffstat (limited to 'Messages.hs')
| -rw-r--r-- | Messages.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Messages.hs b/Messages.hs index bb91653da..822458143 100644 --- a/Messages.hs +++ b/Messages.hs @@ -78,7 +78,6 @@ meteredBytes combinemeterupdate size a = withOutputType go progress <- liftIO $ newProgress "" size meter <- liftIO $ newMeter progress "B" 25 (renderNums binaryOpts 1) showOutput - liftIO $ displayMeter stdout meter r <- a $ \n -> liftIO $ do incrP progress n displayMeter stdout meter |