hide existential Layout (mostly) from user API.

darcs-hash:20071111003055-72aca-77eb2071cd596e0e13746413807f375d199dbe32

1 files changed, 5 insertions, 5 deletions

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 2a6a715..9ef7972 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -51,7 +51,7 @@ data XState = XState
 
 data XConf = XConf
     { display       :: Display        -- ^ the X11 display
-    , config        :: !XConfig       -- ^ initial user configuration
+    , config        :: !(XConfig Layout)       -- ^ initial user configuration
     , theRoot       :: !Window        -- ^ the root window
     , normalBorder  :: !Pixel         -- ^ border color of unfocused windows
     , focusedBorder :: !Pixel         -- ^ border color of the focused window
@@ -62,18 +62,18 @@ data XConf = XConf
     }
 
 -- todo, better name
-data XConfig = XConfig
+data XConfig l = XConfig
     { normalBorderColor  :: !String
     , focusedBorderColor :: !String
     , terminal           :: !String
-    , layoutHook         :: !(Layout Window)
+    , layoutHook         :: !(l Window)
     , manageHook         :: Window -> 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 ())
+    , keys               :: XConfig Layout -> M.Map (ButtonMask,KeySym) (X ())
+    , mouseBindings      :: XConfig Layout -> M.Map (ButtonMask, Button) (Window -> X ())
     , borderWidth        :: !Dimension
     , logHook            :: X ()
     }