Partial (not working) refactor of damages, energyballs

src/Dodge/Data/Bullet.hs

@@ -8,6 +8,7 @@ module Dodge.Data.Bullet (
     module Dodge.Data.Damage,
 ) where
 
+import Dodge.Data.EnergyBall.Type
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -27,13 +28,6 @@ data Bullet = Bullet
     }
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
-data EnergyBallType
-    = IncBall
-    | TeslaBall
-    | ConcBall
-    | FlashBall
-    deriving (Show, Eq, Ord, Enum, Bounded, Read) --Generic, Flat)
-
 data BulletEffect
     = DestroyBullet
     | BounceBullet
@@ -64,7 +58,6 @@ data BulletTrajectoryType
 
 makeLenses ''Bullet
 makeLenses ''BulletPayload
-deriveJSON defaultOptions ''EnergyBallType
 deriveJSON defaultOptions ''BulletEffect
 deriveJSON defaultOptions ''BulletPayload
 deriveJSON defaultOptions ''BulletTrajectory