summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/XMonad.hs b/XMonad.hs
index 49c577e..7274e9f 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -79,13 +79,13 @@ runX c st (X a) = runStateT (runReaderT a c) st >> return ()
-- | Run in the X monad, and in case of exception, and catch it and log it
-- to stderr, and run the error case.
catchX :: X a -> X a -> X a
-catchX (X job) (X errcase) =
- do st <- get
- c <- ask
- (a,s') <- io ((runStateT (runReaderT job c) st) `catch`
- \e -> (do hPutStrLn stderr (show e); runStateT (runReaderT errcase c) st))
- put s'
- return a
+catchX (X job) (X errcase) = do
+ st <- get
+ c <- ask
+ (a,s') <- io ((runStateT (runReaderT job c) st) `catch`
+ \e -> (do hPutStrLn stderr (show e); runStateT (runReaderT errcase c) st))
+ put s'
+ return a
-- ---------------------------------------------------------------------
-- Convenient wrappers to state