From 905be15a33e76c0cd732ea47a1641d99118a9288 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 25 Nov 2024 10:06:13 +0000
Subject: [PATCH] Tweak bounds for x over selection items

---
 ghcidOutput                    | 2 +-
 src/Dodge/SelectionSections.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghcidOutput b/ghcidOutput
index 09d0284b5..1fd192f4f 100644
--- a/ghcidOutput
+++ b/ghcidOutput
@@ -1 +1 @@
-All good (593 modules, at 10:03:17)
+All good (593 modules, at 10:06:01)
diff --git a/src/Dodge/SelectionSections.hs b/src/Dodge/SelectionSections.hs
index 6f0992af2..a4e312933 100644
--- a/src/Dodge/SelectionSections.hs
+++ b/src/Dodge/SelectionSections.hs
@@ -212,8 +212,8 @@ inverseSelSecYintXPosCheck   cfig ldp x yint sss = do
     let V2 x0 _ = screenPosAbs cfig (ldp ^. ldpPos)
     sindent <- sss ^? ix i . ssIndent
     itindent <- sss ^? ix i . ssItems . ix j . siOffX
-    let x1 = x0 + _ldpScale ldp * 10 * fromIntegral (sindent + itindent)
-    guard $ x - x1 < 150 && x > x1
+    let x1 = x0 + _ldpScale ldp * 10 * (fromIntegral (sindent + itindent) - 0.5)
+    guard $ x - x1 < 160 && x > x1
     return (i,j)
 
 inverseSelNumPos ::