Move weapon muzzles up a record

src/Dodge/Default/Item.hs

@@ -42,7 +42,7 @@ defaultBulletWeapon :: Item
 defaultBulletWeapon =
     defaultHeldItem
         & itAmmoSlots .~ singleAmmo BulletAmmo
-        & itUse . heldAim . aimMuzzles .~ 
+        & itUse . heldMuzzles .~ 
             [Muzzle (V2 15 0) 0 0.01 0 BasicFlare MuzzleShootBullet (UseExactly 1) 0]
 
 defaultItEffect :: ItEffect

src/Dodge/Default/Item/Use.hs

@@ -27,7 +27,7 @@ defaultHeldUse :: ItemUse
 defaultHeldUse = UseHeld
     { _heldDelay = FixedRate{_rateMax = 8, _rateTimeLastUsed = 0}
 --    , _heldHammer = HammerUp
-    , _heldAim = defaultAimParams
+    , _heldMuzzles = defaultMuzzles
     , _heldParams = BulletShooterParams
         { _muzVel = ConstFloat 0.8
         , _rifling = ConstFloat 0.8

src/Dodge/Default/Item/Use/AimParams.hs

@@ -1,32 +1,20 @@
 module Dodge.Default.Item.Use.AimParams (
-    defaultAimParams,
---    defaultItZoom,
+    defaultMuzzles,
 ) where
 
 import Dodge.Data.Item.Use
 import Linear
 
-defaultAimParams :: AimParams
-defaultAimParams =
-    AimParams
-        { _aimMuzzles =
-            [ Muzzle
-                { _mzPos = V2 20 0
-                , _mzRot = 0
-                , _mzInaccuracy = 0.05
-                , _mzAmmoSlot = 0
-                , _mzFlareType = NoFlare
-                , _mzEffect = MuzzleShootBullet
-                , _mzAmmoPerShot = UseExactly 1
-                , _mzFrame = 0
-                }
-            ]
+defaultMuzzles :: [Muzzle]
+defaultMuzzles =
+    [ Muzzle
+        { _mzPos = V2 20 0
+        , _mzRot = 0
+        , _mzInaccuracy = 0.05
+        , _mzAmmoSlot = 0
+        , _mzFlareType = NoFlare
+        , _mzEffect = MuzzleShootBullet
+        , _mzAmmoPerShot = UseExactly 1
+        , _mzFrame = 0
         }
-
---defaultItZoom :: ItZoom
---defaultItZoom =
---    ItZoom
---        { _izMax = 20
---        , _izMin = 0.2
---        , _izFac = 1
---        }
+    ]