From 2ada5880c8ad5a5bf312fe428f1d4e7e59eb2095 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Fri, 21 Mar 2008 18:19:11 +0100
Subject: XMonad.Core: ignore SIGPIPE, let write calls throw

darcs-hash:20080321171911-462cf-b7c8fc03b362a6bf97036963e1646e650e223016.gz
---
 XMonad/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'XMonad')

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 ""
-- 
cgit v1.2.3