From 94969fad10ad51b74634aec6928570bd43d371b2 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 13 Jun 2007 06:30:18 +0200 Subject: Indentation darcs-hash:20070613043018-a5988-fac19281fc680eb1dd346d42b7d03f6c7928c18c --- XMonad.hs | 14 +++++++------- 1 file 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 -- cgit v1.2.3