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