diff options
Diffstat (limited to 'Messages/Progress.hs')
-rw-r--r-- | Messages/Progress.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 1583d922b..c0a88be94 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -45,8 +45,8 @@ metered combinemeterupdate key a = case keySize key of maybe noop (\m -> m n) combinemeterupdate liftIO $ clearMeter stdout meter return r - go size o@(ConcurrentOutput {}) #if WITH_CONCURRENTOUTPUT + go size o@(ConcurrentOutput {}) | concurrentOutputEnabled o = withProgressRegion $ \r -> do (progress, meter) <- mkmeter size a $ \n -> liftIO $ do @@ -54,6 +54,8 @@ metered combinemeterupdate key a = case keySize key of s <- renderMeter meter Regions.setConsoleRegion r ("\n" ++ s) maybe noop (\m -> m n) combinemeterupdate +#else + go _size _o #endif | otherwise = nometer |