Continue reorganising records into functions

src/Dodge/Data/Item/Use.hs

@@ -114,9 +114,6 @@ data AmmoParams
 data AimParams = AimParams
     { _aimWeight :: Int
     , _aimTurnSpeed :: Float
-    , _aimRange :: Float
-    , _aimZoom :: ItZoom
---    , _aimHandlePos :: V2 Float
     , _aimMuzzles :: [Muzzle]
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -179,23 +176,8 @@ data Muzzle = Muzzle
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data AimStance
-    = TwoHandUnder
-    | TwoHandOver
-    | TwoHandFlat
-    | OneHand
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-data ItZoom = ItZoom
-    { _izMax :: Float
-    , _izMin :: Float
-    , _izFac :: Float
-    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 makeLenses ''ItemUse
 makeLenses ''AimParams
-makeLenses ''ItZoom
 makeLenses ''Muzzle
 makeLenses ''HeldParams
 makeLenses ''AttachParams
@@ -215,8 +197,6 @@ deriveJSON defaultOptions ''AmmoParams
 deriveJSON defaultOptions ''HeldParams
 deriveJSON defaultOptions ''AmmoPerShot
 deriveJSON defaultOptions ''Muzzle
-deriveJSON defaultOptions ''AimStance
 deriveJSON defaultOptions ''AttachParams
-deriveJSON defaultOptions ''ItZoom
 deriveJSON defaultOptions ''AimParams
 deriveJSON defaultOptions ''ItemUse