Start moving creature properties out of records

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -1,26 +1,12 @@
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.Item.Use.Consumption.Ammo (
     module Dodge.Data.Item.Use.Consumption.Ammo,
     module Dodge.Data.Bullet,
-    module Dodge.Data.Payload,
+--    module Dodge.Data.Payload,
 ) where
 
-import Control.Lens
-import Data.Aeson
-import Data.Aeson.TH
 import Dodge.Data.Bullet
-import Dodge.Data.Payload
-
-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 ForceFieldType = DefaultForceField
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -30,11 +16,3 @@ data GasFuel = ChemFuel
 
 data GasCreate = CreatePoisonGas | CreateFlame
     deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
-
-makeLenses ''ProjectileUpdate
---makeLenses ''AmmoType
-deriveJSON defaultOptions ''GasFuel
-deriveJSON defaultOptions ''ProjectileUpdate
-deriveJSON defaultOptions ''GasCreate
-deriveJSON defaultOptions ''ForceFieldType
---deriveJSON defaultOptions ''AmmoType