diff options
Diffstat (limited to '')
-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 |