twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-29 18:13:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonad.Core: ignore SIGPIPE, let write calls throw

Browse Source
This commit is contained in:
Lukas Mai
2008-03-21 17:19:11 +00:00
parent e97c326ff0
commit b14de19e8b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Main.hs
View File

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