twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-11 10:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix potential hole in userCode.

Browse Source 
This makes userCode catch errors even when the
user does something like (return undefined).
This commit is contained in:
David Roundy
2007-10-12 15:02:53 +00:00
parent 49f64197b2
commit 6dba9ddeb3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad.hs
View File

@@ -98,7 +98,7 @@ catchX (X job) (X errcase) = do
-- | Execute the argument, catching all exceptions. Either this function or -- | Execute the argument, catching all exceptions. Either this function or
-- catchX should be used at all callsites of user customized code. -- catchX should be used at all callsites of user customized code.
userCode :: X () -> X () userCode :: X () -> X ()
userCode a = catchX a (return ()) userCode a = catchX (a >> return ()) (return ())
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- Convenient wrappers to state -- Convenient wrappers to state