From 6d381a05c31f488bfaf4e7049eacd39e5dbcada6 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sun, 10 Jun 2007 16:57:40 +0200 Subject: make LayoutHints work with new modifyLayout (in X). darcs-hash:20070610145740-72aca-317bb936ec8831f0d168bd461e7c834ac4e5bf1f.gz --- LayoutHints.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'LayoutHints.hs') diff --git a/LayoutHints.hs b/LayoutHints.hs index 532966b..4c998fd 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 -- cgit v1.2.3