Move muzzles out of records

src/Dodge/Data/Item/Params.hs

@@ -18,6 +18,7 @@ data ItemParams
         { _currentArc :: [ArcStep]}
     | NozzleAngle {_nzAngle :: Float}
     | VolleyUnfiredBarrels {_unfiredBarrels :: [Int]}
+    | AlteRifleSwitch {_alteRifleSwitch :: Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Item/Use.hs

@@ -32,7 +32,7 @@ import Geometry.Data
 data ItemUse
     = UseHeld
         { _heldDelay :: UseDelay
-        , _heldMuzzles :: [Muzzle]
+--        , _heldMuzzles :: [Muzzle]
         , _heldFrame :: Int
         }
     | UseEquip {_uequipEffect :: EquipEffect}