From a4998716e99c67d0f190e69afb44185880dfffa9 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 25 Nov 2024 22:04:23 +0000
Subject: [PATCH] Tweak mouse over alpha

---
 src/Dodge/Render/HUD.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Dodge/Render/HUD.hs b/src/Dodge/Render/HUD.hs
index 61495e86c..58dd4d76e 100644
--- a/src/Dodge/Render/HUD.hs
+++ b/src/Dodge/Render/HUD.hs
@@ -115,8 +115,10 @@ drawMouseOver cfig w =
         sss <- w ^? hud . hudElement . diSections
         let idp = invDisplayParams w
         return . translateScreenPos cfig (invDisplayParams w ^. ldpPos)
-            . color (withAlpha 0.2 white)
+            . color (withAlpha 0.1 white)
+--            . color white
             $ selSecDrawCursorAt 15 idp curs sss (j, i)
+--    curs = BoundaryCursor [West]
     curs = BackdropCursor
     combinvsel = do
         (j, i) <-