From 7799221082a62df450f28c4b6c9cb0cae7cc6cc9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sat, 9 Jun 2007 19:37:25 +0200
Subject: make LayoutHints robust with regard to future addition of Layout
fields.
darcs-hash:20070609173725-72aca-44eedcd46a4cdcc501a024d1b68772bcaa366761.gz
---
LayoutHints.hs | 4 ++--
1 file 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
--
cgit v1.2.3