Refactor damages

src/Dodge/Data/Damage.hs

@@ -20,7 +20,7 @@ data Damage
     = Piercing {_dmAmount :: Int, _dmPos :: Point2, _dmVector :: Point2}
     | Blunt {_dmAmount :: Int, _dmPos :: Point2, _dmVector :: Point2}
     | Sparking {_dmAmount :: Int}
-    | Crushing {_dmAmount :: Int}
+    | Crushing {_dmAmount :: Int, _dmVector :: Point2}
     | Shattering {_dmAmount :: Int, _dmPos :: Point2, _dmVector :: Point2}
     | Flaming {_dmAmount :: Int}
     | Lasering {_dmAmount :: Int, _dmPos :: Point2, _dmVector :: Point2}

src/Dodge/Data/EnergyBall/Type.hs

@@ -12,7 +12,7 @@ import Geometry.Data
 
 data EnergyBallType
     = FlamingBall
-    | FlameletBall
+    | FlameletBall Float
     | ElectricalBall
     | ExplosiveBall
     | FlashBall