From 22f4bf13af32db2e8dc9943e524c2039f33ad977 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sun, 10 Jun 2007 14:57:40 +0000 Subject: [PATCH] make LayoutHints work with new modifyLayout (in X). --- LayoutHints.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/LayoutHints.hs b/LayoutHints.hs index 532966b1..4c998fd8 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -10,7 +10,7 @@ import XMonad hiding ( trace ) layoutHints :: Layout -> Layout layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints - , modifyLayout = \x -> layoutHints `fmap` modifyLayout l x } + , modifyLayout = \x -> fmap layoutHints `fmap` modifyLayout l x } applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)] applyHints xs = mapM applyHint xs