aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-13 06:30:18 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-13 06:30:18 +0200
commitbad8eab4e3b6aba4171c10ee8e99a645ef2cb1c8 (patch)
tree052fd11db374576ca55faa3e16bc98d212f58b81
parent0d76490fd90f47163f0838aacad20fc8b4227abc (diff)
downloadxmonad-bad8eab4e3b6aba4171c10ee8e99a645ef2cb1c8.tar.gz
xmonad-bad8eab4e3b6aba4171c10ee8e99a645ef2cb1c8.tar.xz
xmonad-bad8eab4e3b6aba4171c10ee8e99a645ef2cb1c8.zip
Indentation
darcs-hash:20070613043018-a5988-fac19281fc680eb1dd346d42b7d03f6c7928c18c.gz
-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