diff options
| author | David Roundy <droundy@darcs.net> | 2007-11-11 01:30:55 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-11-11 01:30:55 +0100 |
| commit | a28db8934185db9196420b3ba07204e5053f81d0 (patch) | |
| tree | 01afca187cedba61f602a9f9de81e71353042bf1 /XMonad/Main.hs | |
| parent | 69a0cdb2384cc6ae305e9847f757cbb5d4ed1603 (diff) | |
| download | xmonad-a28db8934185db9196420b3ba07204e5053f81d0.tar.gz xmonad-a28db8934185db9196420b3ba07204e5053f81d0.tar.xz xmonad-a28db8934185db9196420b3ba07204e5053f81d0.zip | |
hide existential Layout (mostly) from user API.
darcs-hash:20071111003055-72aca-77eb2071cd596e0e13746413807f375d199dbe32.gz
Diffstat (limited to 'XMonad/Main.hs')
| -rw-r--r-- | XMonad/Main.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Main.hs b/XMonad/Main.hs index c40e45e..5054c79 100644 --- a/XMonad/Main.hs +++ b/XMonad/Main.hs @@ -38,8 +38,10 @@ import System.IO -- | -- The main entry point -- -xmonad :: XConfig -> IO () -xmonad xmc = do +xmonad :: (LayoutClass l Window, Read (l Window)) => XConfig l -> IO () +xmonad initxmc = do + -- First, wrap the layout in an existential, to keep things pretty: + let xmc = initxmc { layoutHook = Layout $ layoutHook initxmc } dpy <- openDisplay "" let dflt = defaultScreen dpy |