aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
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