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