XMonad.Core: ignore SIGPIPE, let write calls throw

darcs-hash:20080321171911-462cf-b7c8fc03b362a6bf97036963e1646e650e223016.gz

1 files changed, 3 insertions, 0 deletions

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 ""