diff --git a/LayoutHints.hs b/LayoutHints.hs
index b24dc4ae..532966b1 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