summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-11-05 02:14:00 +0100
committerDon Stewart <dons@galois.com>2007-11-05 02:14:00 +0100
commit10a7e265975f8a2a5fe154e3aa4a92701c6a987d (patch)
tree480b61c8f846774770a0e77f084025ef7d1143ef
parente6bec9fc31b71b1f2864bd55c26c7283f77d0023 (diff)
downloadmetatile-10a7e265975f8a2a5fe154e3aa4a92701c6a987d.tar
metatile-10a7e265975f8a2a5fe154e3aa4a92701c6a987d.zip
clean up some weird formatting/overboard strictness annotations
darcs-hash:20071105011400-cba2c-8595f746a32047213cd1cc7efd355e262a929040
-rw-r--r--XMonad.hs31
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'