twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

catch exceptions in spawn, so failing to fork won't kill the wm

Browse Source
This commit is contained in:
Don Stewart
2007-03-12 06:26:12 +00:00
parent 81eef69458
commit 11bb12cc31
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad.hs
View File

@@ -26,6 +26,7 @@ import Control.Monad.State
import System.IO import System.IO
import System.Process (runCommand) import System.Process (runCommand)
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Control.Exception
-- | XState, the window manager state. -- | XState, the window manager state.
-- Just the display, width, height and a window list -- Just the display, width, height and a window list
@@ -72,7 +73,8 @@ io = liftIO
-- | spawn. Launch an external application -- | spawn. Launch an external application
spawn :: String -> X () spawn :: String -> X ()
spawn x = io (runCommand x) >> return () spawn x = do v <- io $ handle (return . Just) (runCommand x >> return Nothing)
whenJust v $ \e -> trace $ "xmonad:spawn: unable to fork "++show x++": "++show e
-- | Run a side effecting action with the current workspace. Like 'when' but -- | Run a side effecting action with the current workspace. Like 'when' but
whenJust :: Maybe a -> (a -> X ()) -> X () whenJust :: Maybe a -> (a -> X ()) -> X ()