Fix bug in flame wall damages, cleanup

src/Dodge/Data/EnergyBall/Type.hs

@@ -5,15 +5,17 @@
 
 module Dodge.Data.EnergyBall.Type where
 
+import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 
 data EnergyBallType
     = FlamingBall
-    | FlameletBall Float
+    | FlameletBall {_fbSize :: Float, _fbRot :: Float}
     | ElectricalBall
     | ExplosiveBall
     | FlashBall
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
+makeLenses ''EnergyBallType
 deriveJSON defaultOptions ''EnergyBallType