diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-10 16:57:40 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-10 16:57:40 +0200 |
| commit | 6d381a05c31f488bfaf4e7049eacd39e5dbcada6 (patch) | |
| tree | 5df7cc9ceedf99da20f52da78982b3c11b520b08 | |
| parent | 3e305a3ed42aa877c09aa63bad55f0b057547d47 (diff) | |
| download | XMonadContrib-6d381a05c31f488bfaf4e7049eacd39e5dbcada6.tar.gz XMonadContrib-6d381a05c31f488bfaf4e7049eacd39e5dbcada6.tar.xz XMonadContrib-6d381a05c31f488bfaf4e7049eacd39e5dbcada6.zip | |
make LayoutHints work with new modifyLayout (in X).
darcs-hash:20070610145740-72aca-317bb936ec8831f0d168bd461e7c834ac4e5bf1f.gz
| -rw-r--r-- | LayoutHints.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |