fix potential hole in userCode.

This makes userCode catch errors even when the
user does something like (return undefined).

darcs-hash:20071012150253-72aca-72e3ecd20cdc827ee342dc4ebceecf33142d9dd5

1 files changed, 1 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index cf72908..501e684 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -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