From 96a228c312a19431eac4252b58c0cfafaaf91a84 Mon Sep 17 00:00:00 2001
From: Clemens Fruhwirth <clemens@endorphin.org>
Date: Sat, 16 Oct 2010 18:41:51 +0200
Subject: Make use of field names when constructing TwoDState in X.A.GridSelect

Ignore-this: 17d947c11e6cb4c64e04fd4754568337

darcs-hash:20101016164151-ed0c4-288ca4d4b5be15053a2ee2486d0e6ef80ece2ac1.gz
---
 XMonad/Actions/GridSelect.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'XMonad/Actions/GridSelect.hs')

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 8cc9f29..0e8951a 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -439,14 +439,13 @@ gridselect gsconfig elmap =
                                 coords = diamondRestrict restrictX restrictY originPosX originPosY
                                 elmap' = zip coords elmap
 
-                            evalTwoD (updateAllElements >> eventLoop)
-                                (TwoDState (head coords)
-                                            elmap'
-                                            gsconfig
-                                            font
-                                            screenWidth
-                                            screenHeight
-                                            win)
+                            evalTwoD (updateAllElements >> eventLoop) TwoDState { td_curpos = (head coords),
+                                                                                  td_elementmap = elmap',
+                                                                                  td_gsconfig = gsconfig,
+                                                                                  td_font = font,
+                                                                                  td_paneX = screenWidth,
+                                                                                  td_paneY = screenHeight,
+                                                                                  td_drawingWin = win }
                       else
                           return Nothing
     liftIO $ do
-- 
cgit v1.2.3