Unify matrix uniform assignment, move towards uniform block

2021-06-24 14:38:17 +02:00
parent 2625927f14
commit d534f08064
19 changed files with 70 additions and 91 deletions
@@ -114,7 +114,7 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
 moveYourAmmoSel :: Int -> World -> World
 moveYourAmmoSel i w = case yourItem w ^? wpAmmo . amPjParams of
    Just l -> w & creatures . ix (_yourID w) . crInv . ix (_crInvSel (you w))
-                    . wpAmmo . amParamSel %~ (`mod` (length l)) . subtract i
+                    . wpAmmo . amParamSel %~ (`mod` length l) . subtract i
    _ -> w
 moveYourAmmoParam :: Int -> World -> World
 moveYourAmmoParam i w = case yourItem w ^? wpAmmo . amPjParams . ix paramid . pjMaxParam of