clean up some weird formatting/overboard strictness annotations

darcs-hash:20071105011400-cba2c-8595f746a32047213cd1cc7efd355e262a929040

1 files changed, 16 insertions, 15 deletions

diff --git a/XMonad.hs b/XMonad.hs
index eec2a53..97e80be 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -62,19 +62,21 @@ data XConf = XConf
     }
 
 -- todo, better name
-data XConfig = XConfig { normalBorderColor :: !String
-                       , focusedBorderColor :: !String
-                       , terminal :: !String
-                       , layoutHook :: !(Layout Window)
-                       , manageHook :: !(Window -> String -> String -> String -> X (WindowSet -> WindowSet))
-                       , workspaces :: ![String]
-                       , defaultGaps :: ![(Int,Int,Int,Int)]
-                       , numlockMask :: !KeyMask
-                       , modMask :: !KeyMask
-                       , keys :: !(XConfig -> M.Map (ButtonMask,KeySym) (X ()))
-                       , mouseBindings :: !(XConfig -> M.Map (ButtonMask, Button) (Window -> X ()))
-                       , borderWidth :: !Dimension
-                       , logHook :: !(X ()) }
+data XConfig = XConfig
+    { normalBorderColor  :: !String
+    , focusedBorderColor :: !String
+    , terminal           :: !String
+    , layoutHook         :: !(Layout Window)
+    , manageHook         :: Window -> String -> String -> String -> X (WindowSet -> WindowSet)
+    , workspaces         :: [String]
+    , defaultGaps        :: [(Int,Int,Int,Int)]
+    , numlockMask        :: !KeyMask
+    , modMask            :: !KeyMask
+    , keys               :: XConfig -> M.Map (ButtonMask,KeySym) (X ())
+    , mouseBindings      :: XConfig -> M.Map (ButtonMask, Button) (Window -> X ())
+    , borderWidth        :: !Dimension
+    , logHook            :: X ()
+    }
 
 type WindowSet   = StackSet  WorkspaceId (Layout Window) Window ScreenId ScreenDetail
 type WindowSpace = Workspace WorkspaceId (Layout Window) Window
@@ -113,8 +115,7 @@ catchX :: X a -> X a -> X a
 catchX job errcase = do
     st <- get
     c <- ask
-    (a, s') <- io $ runX c st job `catch`
-                    \e -> case e of
+    (a, s') <- io $ runX c st job `catch` \e -> case e of
                             ExitException {} -> throw e
                             _ -> do hPrint stderr e; runX c st errcase
     put s'