From bd505b072a2fb4b7243ee5d1637aff9a609fe8c2 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 25 Oct 2024 12:50:36 +0100
Subject: [PATCH] Make scrolling reduce selected items to 1

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

diff --git a/ghcidOutput b/ghcidOutput
index 2c5fff67e..69ec03cbc 100644
--- a/ghcidOutput
+++ b/ghcidOutput
@@ -1 +1 @@
-All good (596 modules, at 12:39:52)
+All good (596 modules, at 12:49:06)
diff --git a/src/Dodge/Update/Scroll.hs b/src/Dodge/Update/Scroll.hs
index 43113ac14..b4619f6cd 100644
--- a/src/Dodge/Update/Scroll.hs
+++ b/src/Dodge/Update/Scroll.hs
@@ -34,8 +34,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
             EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
             NoRightButtonOptions -> w
         | bdown ButtonLeft -> w & wCam . camZoom +~ y
-        | invKeyDown -> changeSwapSel yi w
-        | otherwise -> scrollAugInvSel yi w
+        | invKeyDown -> changeSwapSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
+        | otherwise -> scrollAugInvSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
     DisplayInventory{_subInventory = ExamineInventory}
         | invKeyDown -> scrollAugInvSel yi w
         | otherwise -> w