Partial (not working) refactor of damages, energyballs

src/Dodge/Data/EnergyBall.hs

@@ -1,24 +1,27 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.EnergyBall where
+module Dodge.Data.EnergyBall (
+    module Dodge.Data.EnergyBall,
+    module Dodge.Data.EnergyBall.Type,
+) where
 
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import Dodge.Data.Damage.Type
+import Dodge.Data.EnergyBall.Type
 import Geometry.Data
 
 data EnergyBall = EnergyBall
     { _ebVel :: Point2
-    , _ebColor :: Color
-    , _ebPos :: Point2
-    , _ebWidth :: Float
-    , _ebTimer :: Int
-    , _ebEff :: (DamageType, Int)
+    , --    , _ebColor :: Color
+      _ebPos :: Point2
+    , --    , _ebWidth :: Float
+      _ebTimer :: Int
+    , _ebEff :: EnergyBallType
     , _ebRot :: Float
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)