diff options
Diffstat (limited to 'Messages/Progress.hs')
-rw-r--r-- | Messages/Progress.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index a20ba098e..89f2f0c8c 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -65,10 +65,7 @@ metered combinemeterupdate key af a = case keySize key of return r #else -- Old progress bar code, not suitable for concurrent output. - go _ (ConcurrentOutput _) = do - r <- nometer - liftIO $ putStrLn $ fromMaybe (key2file key) af - return r + go _ (ConcurrentOutput _) = nometer go size NormalOutput = do showOutput progress <- liftIO $ newProgress "" size |