From b3344699b75ac9b268a176b552c9b158804adc33 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Mon, 11 Jun 2007 17:36:50 +0200 Subject: add safeIO which catches and logs exceptions. darcs-hash:20070611153650-72aca-c802f2ac167c0e9232d17a2897163aca5a5479f0 --- XMonad.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/XMonad.hs b/XMonad.hs index e08956d..4309fe1 100644 --- a/XMonad.hs +++ b/XMonad.hs @@ -17,7 +17,7 @@ module XMonad ( X, WindowSet, WorkspaceId(..), ScreenId(..), XState(..), XConf(..), Layout(..), Typeable, Message, SomeMessage(..), fromMessage, - runX, io, withDisplay, withWindowSet, isRoot, spawn, restart, trace, whenJust, whenX, + runX, io, safeIO, withDisplay, withWindowSet, isRoot, spawn, restart, trace, whenJust, whenX, atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW ) where @@ -137,6 +137,9 @@ fromMessage (SomeMessage m) = cast m io :: IO a -> X a io = liftIO +safeIO :: IO () -> X () +safeIO f = liftIO (f `catch` \e -> do hPutStrLn stderr (show e); hFlush stderr) + -- | spawn. Launch an external application spawn :: String -> X () spawn x = io $ do -- cgit v1.2.3