From b14de19e8b2bb8d3d47f547e53ff1ec6fe38e24a Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Fri, 21 Mar 2008 17:19:11 +0000
Subject: [PATCH] XMonad.Core: ignore SIGPIPE, let write calls throw

---
 XMonad/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/XMonad/Main.hs b/XMonad/Main.hs
index 667af81..e3aca18 100644
--- a/XMonad/Main.hs
+++ b/XMonad/Main.hs
@@ -24,6 +24,7 @@ import Control.Monad.State
 import Data.Maybe (fromMaybe)
 
 import System.Environment (getArgs)
+import System.Posix.Signals
 
 import Graphics.X11.Xlib hiding (refreshKeyboardMapping)
 import Graphics.X11.Xlib.Extras
@@ -41,6 +42,8 @@ import System.IO
 --
 xmonad :: (LayoutClass l Window, Read (l Window)) => XConfig l -> IO ()
 xmonad initxmc = do
+    -- ignore SIGPIPE
+    installHandler openEndedPipe Ignore Nothing
     -- First, wrap the layout in an existential, to keep things pretty:
     let xmc = initxmc { layoutHook = Layout $ layoutHook initxmc }
     dpy   <- openDisplay ""