Refactor damages

src/Dodge/Spark.hs

@@ -39,13 +39,13 @@ sparkDam' ::
 sparkDam' sk sp ep mayEiCrWl = case mayEiCrWl of
     (hitp, eicrwl) -> damageCrWl (thedam hitp) eicrwl
   where
-    thedam hitp = Damage (sparkToDamage sk) 10 sp hitp ep -- NoDamageEffect
+    thedam hitp = sparkToDamage sk
 
-sparkToDamage :: Spark -> DamageType
+sparkToDamage :: Spark -> Damage
 sparkToDamage sp = case _skType sp of
-     ElectricSpark ->ELECTRICAL
-     FireSpark -> FLAMING
-     NormalSpark -> SPARKING
+     ElectricSpark -> Electrical 10
+     FireSpark -> Flaming 1
+     NormalSpark -> Sparking 10
 
 createBarrelSpark :: Point2 -> Float -> World -> World
 createBarrelSpark pos dir = sparkRandDir 0.1 pos dir