From 6af9d782c39a3fe57bdb798fcfc8c561df29e333 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Fri, 12 Oct 2007 17:02:53 +0200 Subject: 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 --- XMonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad.hs') 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 -- cgit v1.2.3