diff options
author | David Roundy <droundy@darcs.net> | 2007-06-09 19:37:25 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-09 19:37:25 +0200 |
commit | 7799221082a62df450f28c4b6c9cb0cae7cc6cc9 (patch) | |
tree | eb96e1b25e34002a5dd76f5522c6100c4fb0f41b /LayoutHints.hs | |
parent | ec6b1671aba24b122e8dfaccdf6d8700fc4145a6 (diff) | |
download | XMonadContrib-7799221082a62df450f28c4b6c9cb0cae7cc6cc9.tar.gz XMonadContrib-7799221082a62df450f28c4b6c9cb0cae7cc6cc9.tar.xz XMonadContrib-7799221082a62df450f28c4b6c9cb0cae7cc6cc9.zip |
make LayoutHints robust with regard to future addition of Layout fields.
darcs-hash:20070609173725-72aca-44eedcd46a4cdcc501a024d1b68772bcaa366761.gz
Diffstat (limited to 'LayoutHints.hs')
-rw-r--r-- | LayoutHints.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LayoutHints.hs b/LayoutHints.hs index b24dc4a..532966b 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -9,8 +9,8 @@ import Graphics.X11.Xlib.Extras ( getWMNormalHints ) import XMonad hiding ( trace ) layoutHints :: Layout -> Layout -layoutHints l = Layout { doLayout = \r x -> doLayout l r x >>= applyHints - , modifyLayout = \x -> layoutHints `fmap` modifyLayout l x } +layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints + , modifyLayout = \x -> layoutHints `fmap` modifyLayout l x } applyHints :: [(Window, Rectangle)] -> X [(Window, Rectangle)] applyHints xs = mapM applyHint xs |