summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad.hs2
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