summaryrefslogtreecommitdiff
path: root/Messages
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-04-03 19:48:56 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-04-03 19:48:56 -0400
commitc4218e0ffed77e2afaafc8efd19efd907a6abd8a (patch)
treefc57ba589bdd3288438206a135b19f79328dad3b /Messages
parentd660e2443b99817a33127443e5d7314c99c291fc (diff)
fix stderr handling
Diffstat (limited to 'Messages')
-rw-r--r--Messages/Progress.hs4
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.