From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 14 Jan 2009 13:46:12 +0000 (+0000)
Subject: #2699: exit silently for EPIPE on stdout
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1e215b361470a13574e5bb341d1910871416a248;p=ghc-base.git

#2699: exit silently for EPIPE on stdout
---

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index dffba02..6a2520a 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -168,8 +168,14 @@ real_handler exit se@(SomeException exn) =
            Just ExitSuccess     -> exit 0
            Just (ExitFailure n) -> exit n
 
-           _ -> do reportError se
-                   exit 1
+           -- EPIPE errors received for stdout are ignored (#2699)
+           _ -> case cast exn of
+                Just IOError{ ioe_type = ResourceVanished,
+                              ioe_errno = Just ioe,
+                              ioe_handle = Just hdl }
+                   | Errno ioe == ePIPE, hdl == stdout -> exit 0
+                _ -> do reportError se
+                        exit 1
            
 
 -- try to flush stdout/stderr, but don't worry if we fail