Continue record refactor

src/Dodge/Data/Item/Use.hs

@@ -27,7 +27,6 @@ import Dodge.Data.Item.Targeting
 import Dodge.Data.Item.Use.Consumption
 import Dodge.Data.Item.Use.Equipment
 import Geometry.Data
---import Sound.Data
 
 data ItemUse
     = UseHeld
@@ -85,15 +84,9 @@ data HeldParams
         }
     | BeamShooterParams
     | BulletShooterParams
-        { _muzVel :: GenFloat
-        , _rifling :: GenFloat
---        , _recoil :: Float
-        , _torqueAfter :: Float
+        { _torqueAfter :: Float
         , _randomOffset :: Float
         , _sidePush :: Float
---        , _bulGunSound :: Maybe (SoundID, Int) -- if the int is 0, play sound on new channel
-        -- if >0, continue playing sound for
-        -- given time
         , _weaponInvLock :: Int
         , _weaponRepeat :: [Int]
         }
@@ -106,9 +99,6 @@ data AmmoParams
     | NoAmmoParams
     deriving (Eq, Show, Read) --Generic, Flat)
 
---data AimParams = AimParams { _aimMuzzles :: [Muzzle] }
---    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data FlareType
     = NoFlare
     | BasicFlare