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(-)

(limited to 'LayoutHints.hs')

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