Move sidepush out of records

src/Dodge/Data/Item/Use.hs

@@ -2,6 +2,7 @@
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
+
 module Dodge.Data.Item.Use (
     module Dodge.Data.Item.Use,
     module Dodge.Data.Item.Use.Equipment,
@@ -75,16 +76,12 @@ data AttachParams
 data HeldParams
     = DefaultHeldParams
     | GasSprayParams
-        { --_randomOffset :: Float
-         _sidePush :: Float
-        , _weaponInvLock :: Int
+        { _weaponInvLock :: Int
         , _weaponRepeat :: [Int]
         }
     | BeamShooterParams
     | BulletShooterParams
-        { --_randomOffset :: Float
-         _sidePush :: Float
-        , _weaponInvLock :: Int
+        { _weaponInvLock :: Int
         , _weaponRepeat :: [Int]
         }
     deriving (Eq, Show, Read) --Generic, Flat)
@@ -155,6 +152,7 @@ data Muzzle = Muzzle
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ItemUse
+
 --makeLenses ''AimParams
 makeLenses ''Muzzle
 makeLenses ''HeldParams
@@ -175,5 +173,6 @@ deriveJSON defaultOptions ''HeldParams
 deriveJSON defaultOptions ''AmmoPerShot
 deriveJSON defaultOptions ''Muzzle
 deriveJSON defaultOptions ''AttachParams
+
 --deriveJSON defaultOptions ''AimParams
 deriveJSON defaultOptions ''ItemUse