Indentation

darcs-hash:20070613043018-a5988-fac19281fc680eb1dd346d42b7d03f6c7928c18c.gz

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