diff options
author | David Roundy <droundy@darcs.net> | 2007-10-12 17:02:53 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-10-12 17:02:53 +0200 |
commit | 6af9d782c39a3fe57bdb798fcfc8c561df29e333 (patch) | |
tree | c91cf338556774dfdddd76420d2f163c1556c60f /XMonad.hs | |
parent | 4b5b03b1eff01ca71b48087a0307568563eb71f4 (diff) | |
download | xmonad-6af9d782c39a3fe57bdb798fcfc8c561df29e333.tar.gz xmonad-6af9d782c39a3fe57bdb798fcfc8c561df29e333.tar.xz xmonad-6af9d782c39a3fe57bdb798fcfc8c561df29e333.zip |
fix potential hole in userCode.
This makes userCode catch errors even when the
user does something like (return undefined).
darcs-hash:20071012150253-72aca-72e3ecd20cdc827ee342dc4ebceecf33142d9dd5.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -98,7 +98,7 @@ catchX (X job) (X errcase) = do -- | 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 ()) +userCode a = catchX (a >> return ()) (return ()) -- --------------------------------------------------------------------- -- Convenient wrappers to state |