diff options
Diffstat (limited to 'Messages')
| -rw-r--r-- | Messages/Progress.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 60ab8271a..c9a7cfda8 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -61,8 +61,8 @@ mkProgressHandler meter = ProgressHandler quietmode = withOutputType $ \t -> return $ case t of ProgressOutput -> True _ -> False - stderrhandler emitter h = do - void $ emitter =<< hGetLine stderr + stderrhandler emitter h = unlessM (hIsEOF h) $ do + void $ emitter =<< hGetLine h stderrhandler emitter h {- Generates an IO action that can be used to emit stderr. |