diff options
Diffstat (limited to 'Messages/Internal.hs')
-rw-r--r-- | Messages/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Messages/Internal.hs b/Messages/Internal.hs index 1dd856b5e..2495f4fd3 100644 --- a/Messages/Internal.hs +++ b/Messages/Internal.hs @@ -17,7 +17,7 @@ handleMessage json normal = withOutputType go where go NormalOutput = liftIO normal go QuietOutput = q - go ProgressOutput = q + go (ParallelOutput _) = q go JSONOutput = liftIO $ flushed json q :: Monad m => m () |