Remove list of projectile updates

src/Dodge/Data/Projectile.hs

@@ -19,25 +19,18 @@ data Projectile = Shell
     , _pjVel :: Point2
     , _pjDir :: Float
     , _pjSpin :: Float
-    , _pjSpinFactor :: Float
     , _pjID :: Int
     , _pjPayload :: Payload
     , _pjTimer :: Int
     , _pjZ :: Float
     , _pjZVel :: Float
-    , _pjUpdates :: [ProjectileUpdate]
+    , _pjBarrelSpin :: Maybe (Int, Float)
     , _pjType :: ProjectileType
     , _pjDetonatorID :: Maybe (NewInt ItmInt)
     , _pjScreenID :: Maybe (NewInt ItmInt)
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data ProjectileUpdate
-    = --ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
-     StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
---    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
-    deriving (Show, Eq, Ord, Read) --Generic, Flat)
-
 data ProjectileType
     = Grenade { _gnHitEffect :: GrenadeHitEffect }
     | Rocket
@@ -64,12 +57,10 @@ data RocketSmoke
     = ReducedRocketSmoke
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
-makeLenses ''ProjectileUpdate
 makeLenses ''Projectile
 makeLenses ''ProjectileType
 makeLenses ''RocketHoming
 makeLenses ''GrenadeHitEffect
-deriveJSON defaultOptions ''ProjectileUpdate
 deriveJSON defaultOptions ''GrenadeHitEffect
 deriveJSON defaultOptions ''RocketHoming
 deriveJSON defaultOptions ''RocketSmoke