Commit before removing stackable items

src/Dodge/Update/Scroll.hs

@@ -10,7 +10,7 @@ import Dodge.HeldScroll
 import Dodge.InputFocus
 import Dodge.Inventory
 import Dodge.SelectionSections
-import Dodge.SoundLogic
+--import Dodge.SoundLogic
 import Dodge.Terminal
 import Dodge.Tweak
 import qualified IntMapHelp as IM
@@ -32,10 +32,10 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
             (Just (invid,hs), _) -> doHeldScroll invid hs y w
         | lbDown -> w & wCam . camZoom +~ y
         | invKeyDown -> changeSwapSel yi w
-        | otherwise -> stopSoundFrom (CrReloadSound 0) $ scrollAugInvSel yi w
+        | otherwise -> scrollAugInvSel yi w
     DisplayInventory{_subInventory = ExamineInventory mi}
         | invKeyDown && rbDown -> w & moveTweakSel yi
-        | invKeyDown -> stopSoundFrom (CrReloadSound 0) $ scrollAugInvSel yi w
+        | invKeyDown -> scrollAugInvSel yi w
         | rbDown -> w & changeTweakParam mi yi
         | otherwise -> w & moveTweakSel yi
     DisplayInventory{_subInventory = CombineInventory{}} -> w & moveCombineSel yi