Remove (by commenting out) module item-type system

src/Dodge/Data/Bullet.hs

@@ -17,7 +17,7 @@ import Geometry.Data
 data Bullet = Bullet
     { _buDelayFraction :: Float
     , _buEffect :: BulletEffect
-    , _buSpawn :: BulletSpawn
+    , _buPayload :: BulletPayload
     , _buTrajectory :: BulletTrajectory
     , _buVel :: Point2
     , _buDrag :: Float
@@ -39,7 +39,7 @@ data BulletEffect
     | PenetrateBullet
     deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
 
-data BulletSpawn 
+data BulletPayload 
     = BulBall {_spawnEBT :: EnergyBallType} 
     | BulSpark
     | BulFlak
@@ -62,10 +62,10 @@ data BulletTrajectoryType
     deriving (Show, Eq, Ord, Read, Enum, Bounded) --Generic, Flat)
 
 makeLenses ''Bullet
-makeLenses ''BulletSpawn
+makeLenses ''BulletPayload
 deriveJSON defaultOptions ''EnergyBallType
 deriveJSON defaultOptions ''BulletEffect
-deriveJSON defaultOptions ''BulletSpawn
+deriveJSON defaultOptions ''BulletPayload
 deriveJSON defaultOptions ''BulletTrajectory
 deriveJSON defaultOptions ''BulletTrajectoryType
 deriveJSON defaultOptions ''Bullet