diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-12 03:42:17 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-12 03:42:17 +0200 |
commit | 2075209956b31a2aeac4acacc2d49c3d963b9d15 (patch) | |
tree | 8f21050abd58a0c407b0253aa9bff3115dec2c8d /XMonad.hs | |
parent | a7cbcbd85bc6153b87318b78c64a28488350001a (diff) | |
download | xmonad-2075209956b31a2aeac4acacc2d49c3d963b9d15.tar.gz xmonad-2075209956b31a2aeac4acacc2d49c3d963b9d15.tar.xz xmonad-2075209956b31a2aeac4acacc2d49c3d963b9d15.zip |
Add userCode function for the popular m `catchX` return ()
darcs-hash:20071012014217-a5988-06b6f1519b5f87fcbc8220ad5bd69181c721635a.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -18,7 +18,7 @@ module XMonad ( X, WindowSet, WindowSpace, WorkspaceId, ScreenId(..), ScreenDetail(..), XState(..), XConf(..), LayoutClass(..), Layout(..), ReadableLayout(..), Typeable, Message, SomeMessage(..), fromMessage, runLayout, - runX, catchX, io, catchIO, withDisplay, withWindowSet, isRoot, getAtom, spawn, restart, trace, whenJust, whenX, + runX, catchX, userCode, io, catchIO, withDisplay, withWindowSet, isRoot, getAtom, spawn, restart, trace, whenJust, whenX, atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW ) where @@ -95,6 +95,11 @@ catchX (X job) (X errcase) = do put s' return a +-- | Execute the argument, catching all exceptions. Either this function or +-- catchX should be used at all callsites of user customized code. +userCode :: X () -> X () +userCode a = catchX a (return ()) + -- --------------------------------------------------------------------- -- Convenient wrappers to state |