aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorClemens Fruhwirth <clemens@endorphin.org>2010-10-16 18:41:51 +0200
committerClemens Fruhwirth <clemens@endorphin.org>2010-10-16 18:41:51 +0200
commit96a228c312a19431eac4252b58c0cfafaaf91a84 (patch)
treee9d4945ac7090008a721381c2375438dc9ee9211 /XMonad
parent2836dd292e18c0ec210c31446a6efa3607a35f9a (diff)
downloadXMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.tar.gz
XMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.tar.xz
XMonadContrib-96a228c312a19431eac4252b58c0cfafaaf91a84.zip
Make use of field names when constructing TwoDState in X.A.GridSelect
Ignore-this: 17d947c11e6cb4c64e04fd4754568337 darcs-hash:20101016164151-ed0c4-288ca4d4b5be15053a2ee2486d0e6ef80ece2ac1.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Actions/GridSelect.hs15
1 files 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