Get rid of warnings

src/Dodge/Data/Bullet.hs

@@ -36,7 +36,7 @@ data BulletEffect
 
 data BulletPayload
     = BulBall {_spawnEBT :: EnergyBallType}
-    | BulPlain {_sparkDam :: Int}
+    | BulPlain {_buDam :: Int}
     | BulFlak
     | BulFrag
     | BulGas

src/Dodge/Data/EnergyBall.hs

@@ -8,7 +8,6 @@ module Dodge.Data.EnergyBall (
     module Dodge.Data.EnergyBall.Type,
 ) where
 
-import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -17,10 +16,8 @@ import Geometry.Data
 
 data EnergyBall = EnergyBall
     { _ebVel :: Point2
-    , --    , _ebColor :: Color
-      _ebPos :: Point2
-    , --    , _ebWidth :: Float
-      _ebTimer :: Int
+    , _ebPos :: Point2
+    , _ebTimer :: Int
     , _ebEff :: EnergyBallType
     , _ebRot :: Float
     }

src/Dodge/Data/EnergyBall/Type.hs

@@ -5,10 +5,8 @@
 
 module Dodge.Data.EnergyBall.Type where
 
-import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import Geometry.Data
 
 data EnergyBallType
     = FlamingBall