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}

src/Dodge/Data/MuzzleEffect.hs

@@ -1,19 +0,0 @@
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
-
-module Dodge.Data.MuzzleEffect where
-
-import Control.Lens
-
---import Data.Aeson
---import Data.Aeson.TH
---import Dodge.Data.Item.Use.Consumption.Ammo
-
-data CumulativeMuzzleEffect = CME
-    { _cmeSound :: Bool
-    }
-    deriving (Eq, Ord, Show, Read)
-
-makeLenses ''CumulativeMuzzleEffect