aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout/LayoutHints.hs
diff options
context:
space:
mode:
authorJoachim Breitner <mail@joachim-breitner.de>2008-10-05 21:02:20 +0200
committerJoachim Breitner <mail@joachim-breitner.de>2008-10-05 21:02:20 +0200
commit1e67a3f13c5ff800ebc6756deee22abb2e4fc6ba (patch)
tree7ba95eb3e9c225ee33881d42cd58c2b3ba7b4247 /XMonad/Layout/LayoutHints.hs
parent72778301857e5ba4e34cbb2bc822612beefb36f2 (diff)
downloadXMonadContrib-1e67a3f13c5ff800ebc6756deee22abb2e4fc6ba.tar.gz
XMonadContrib-1e67a3f13c5ff800ebc6756deee22abb2e4fc6ba.tar.xz
XMonadContrib-1e67a3f13c5ff800ebc6756deee22abb2e4fc6ba.zip
Merge emptyLayoutMod into redoLayout
This removes the emptyLayoutMod method from the LayoutModifier class, and change the Stack parameter to redoLayout to a Maybe Stack one. It also changes all affected code. This should should be a refactoring without any change in program behaviour. darcs-hash:20081005190220-23c07-4701517e3433ecff8c999da75ac582f6f1b65c19.gz
Diffstat (limited to 'XMonad/Layout/LayoutHints.hs')
-rw-r--r--XMonad/Layout/LayoutHints.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs
index 3558cc2..d263f3c 100644
--- a/XMonad/Layout/LayoutHints.hs
+++ b/XMonad/Layout/LayoutHints.hs
@@ -46,7 +46,8 @@ data LayoutHints a = LayoutHints deriving (Read, Show)
instance LayoutModifier LayoutHints Window where
modifierDescription _ = "Hinted"
- redoLayout _ _ s xs = do
+ redoLayout _ _ Nothing xs = return (xs, Nothing)
+ redoLayout _ _ (Just s) xs = do
xs' <- mapM applyHint xs
return (xs', Nothing)
where