twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

clean up some weird formatting/overboard strictness annotations

Browse Source
This commit is contained in:
Don Stewart 2007-11-05 01:14:00 +00:00
parent d1c29a40cf
commit 934fb2c368
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
XMonad.hs
View File

@ -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'