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