From bad8eab4e3b6aba4171c10ee8e99a645ef2cb1c8 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 13 Jun 2007 06:30:18 +0200
Subject: Indentation

darcs-hash:20070613043018-a5988-fac19281fc680eb1dd346d42b7d03f6c7928c18c.gz
---
 XMonad.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'XMonad.hs')

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
-- 
cgit v1.2.3