Cleanup

2024-11-25 23:17:54 +00:00
parent f91a5cebb5
commit 145ab77859
3 changed files with 38 additions and 44 deletions
@@ -33,8 +33,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-- & hud . hudElement . diSelectionExtra .~ mempty
-        | otherwise -> scrollAugInvSel yi $ w-- & hud . hudElement . diSelectionExtra .~ mempty
+        | invKeyDown -> changeSwapSel yi w
+        | otherwise -> scrollAugInvSel yi w
    DisplayInventory{_subInventory = ExamineInventory}
        | invKeyDown -> scrollAugInvSel yi w
        | otherwise -> w