diff options
Diffstat (limited to 'Messages')
| -rw-r--r-- | Messages/Progress.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 24efe0156..e3df73ea4 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -70,6 +70,12 @@ mkOutputHandler = OutputHandler <$> commandProgressDisabled <*> mkStderrEmitter +mkStderrRelayer :: Annex (Handle -> IO ()) +mkStderrRelayer = do + quiet <- commandProgressDisabled + emitter <- mkStderrEmitter + return $ \h -> avoidProgress quiet h emitter + {- Generates an IO action that can be used to emit stderr. - - When a progress meter is displayed, this takes care to avoid |