make Setup haddock work again

This commit is contained in:
Lukas Mai
2007-11-06 14:18:29 +00:00
parent 7b7b1ce800
commit 58072a2edc
4 changed files with 12 additions and 3 deletions

View File

@@ -32,9 +32,11 @@ import XMonad
-- > layoutHook = Layout $ toggleLayouts (noBorders Full) $ Select layouts
--
-- and a key binding like
--
-- > , ((modMask .|. controlMask, xK_space), sendMessage ToggleLayout)
--
-- or a key binding like
--
-- > , ((modMask .|. controlMask, xK_space), sendMessage (Toggle "Full"))
data ToggleLayouts lt lf a = ToggleLayouts Bool (lt a) (lf a) deriving (Read,Show)