Tweak module display and logic

src/Dodge/Data/Bullet.hs

@@ -43,7 +43,7 @@ data BulletEffect
     | PenetrateBullet
     deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
 
-data BulletSpawn = BulBall EnergyBallType | BulSpark
+data BulletSpawn = BulBall {_spawnEBT :: EnergyBallType} | BulSpark
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data BulletTrajectory
@@ -54,6 +54,7 @@ data BulletTrajectory
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 makeLenses ''Bullet
+makeLenses ''BulletSpawn
 deriveJSON defaultOptions ''EnergyBallType
 deriveJSON defaultOptions ''BulletUpdateMod
 deriveJSON defaultOptions ''BulletEffect