Work on held item usage

src/Dodge/Data/Item/Params.hs

@@ -48,7 +48,6 @@ data ItemParams
         { _muzVel :: Float
         , _rifling :: Float
         , _bore :: Float
-        , _gunBarrels :: [GunBarrel]
         , _recoil :: Float
         , _torqueAfter :: Float
         , _randomOffset :: Float
@@ -76,12 +75,6 @@ data ShrinkGunStatus = FullSize | Shrunk
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data GunBarrel = GunBarrel
-    { _barlPos :: Point2
-    , _barlRot :: Float
-    , _barlInaccuracy :: Float
-    }
-
 --data GunBarrels
 ----    = MultiBarrel
 ----        { _brlSpread :: BarrelSpread
@@ -103,21 +96,9 @@ data Nozzle = Nozzle
     }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
---data BarrelSpread
---    = AlignedBarrels
---    | SpreadBarrels {_spreadAngle :: Float}
---    | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
---    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
---makeLenses ''BarrelSpread
 makeLenses ''ItemParams
 makeLenses ''Nozzle
---makeLenses ''GunBarrels
-makeLenses ''GunBarrel
 deriveJSON defaultOptions ''ShrinkGunStatus
 deriveJSON defaultOptions ''PreviousArcEffect
 deriveJSON defaultOptions ''Nozzle
---deriveJSON defaultOptions ''BarrelSpread
-deriveJSON defaultOptions ''GunBarrel
---deriveJSON defaultOptions ''GunBarrels
 deriveJSON defaultOptions ''ItemParams