summaryrefslogtreecommitdiffstats
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
commit94969fad10ad51b74634aec6928570bd43d371b2 (patch)
tree052fd11db374576ca55faa3e16bc98d212f58b81
parent4772aa6c8988644dfcd4704854e0532141a6f4f9 (diff)
downloadmetatile-94969fad10ad51b74634aec6928570bd43d371b2.tar
metatile-94969fad10ad51b74634aec6928570bd43d371b2.zip
Indentation
darcs-hash:20070613043018-a5988-fac19281fc680eb1dd346d42b7d03f6c7928c18c
-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