Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -31,7 +31,7 @@ updateWheelEvent yi w = case w ^. cWorld . lWorld . hud . hudElement of
            (_, EquipOptions{}) -> scrollRBOption y w
            (Nothing, _) -> closeObjScrollDir y w
            (Just f, _) -> doHeldScroll f y (you w) w
-        | lbDown -> w & cWorld . lWorld . camPos . camZoom +~ y
+        | lbDown -> w & cWorld . camPos . camZoom +~ y
        | invKeyDown -> changeSwapInvSel yi w
        | otherwise -> stopSoundFrom (CrReloadSound 0) $ changeAugInvSel yi w
    DisplayInventory (TweakInventory mi)