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 | 791029f1e6b1320754314a36e75485cd44298c3d (patch) | |
tree | 01afca187cedba61f602a9f9de81e71353042bf1 /XMonad/Main.hs | |
parent | c87dcd06f344a9bb650aaeaeea200169f343650a (diff) | |
download | metatile-791029f1e6b1320754314a36e75485cd44298c3d.tar metatile-791029f1e6b1320754314a36e75485cd44298c3d.zip |
hide existential Layout (mostly) from user API.
darcs-hash:20071111003055-72aca-77eb2071cd596e0e13746413807f375d199dbe32
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 |