Strictify all XConfig fields, gives nice error messages when a field is forgotten on construction

darcs-hash:20071229021923-a5988-ca68b84a0437a6d93700c864dbab8f9b46dd6855

1 files changed, 15 insertions, 15 deletions

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 160b2a0..3b97ed3 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -73,21 +73,21 @@ data XConf = XConf
 
 -- todo, better name
 data XConfig l = XConfig
-    { normalBorderColor  :: !String             -- ^ Non focused windows border color. Default: \"#dddddd\"
-    , focusedBorderColor :: !String             -- ^ Focused windows border color. Default: \"#ff0000\"
-    , terminal           :: !String             -- ^ The preferred terminal application. Default: \"xterm\"
-    , layoutHook         :: !(l Window)         -- ^ The available layouts
-    , manageHook         :: !ManageHook         -- ^ The action to run when a new window is opened
-    , workspaces         :: [String]            -- ^ The list of workspaces' names
-    , defaultGaps        :: [(Int,Int,Int,Int)] -- ^ The list of gaps, per screen
-    , numlockMask        :: !KeyMask            -- ^ The numlock modifier
-    , modMask            :: !KeyMask            -- ^ the mod modifier
-    , keys               :: XConfig Layout -> M.Map (ButtonMask,KeySym) (X ())
-                                                -- ^ The key binding: a map from key presses and actions
-    , mouseBindings      :: XConfig Layout -> M.Map (ButtonMask, Button) (Window -> X ())
-                                                -- ^ The mouse bindings
-    , borderWidth        :: !Dimension          -- ^ The border width
-    , logHook            :: X ()                -- ^ The action to perform when the windows set is changed
+    { normalBorderColor  :: !String              -- ^ Non focused windows border color. Default: \"#dddddd\"
+    , focusedBorderColor :: !String              -- ^ Focused windows border color. Default: \"#ff0000\"
+    , terminal           :: !String              -- ^ The preferred terminal application. Default: \"xterm\"
+    , layoutHook         :: !(l Window)          -- ^ The available layouts
+    , manageHook         :: !ManageHook          -- ^ The action to run when a new window is opened
+    , workspaces         :: ![String]            -- ^ The list of workspaces' names
+    , defaultGaps        :: ![(Int,Int,Int,Int)] -- ^ The list of gaps, per screen
+    , numlockMask        :: !KeyMask             -- ^ The numlock modifier
+    , modMask            :: !KeyMask             -- ^ the mod modifier
+    , keys               :: !(XConfig Layout -> M.Map (ButtonMask,KeySym) (X ()))
+                                                 -- ^ The key binding: a map from key presses and actions
+    , mouseBindings      :: !(XConfig Layout -> M.Map (ButtonMask, Button) (Window -> X ()))
+                                                 -- ^ The mouse bindings
+    , borderWidth        :: !Dimension           -- ^ The border width
+    , logHook            :: !(X ())              -- ^ The action to perform when the windows set is changed
     }