Simplify sparks

src/Dodge/Creature/Damage.hs

@@ -2,7 +2,6 @@ module Dodge.Creature.Damage where
 
 import Dodge.Creature.Material
 import Dodge.Creature.Mass
-import Color
 import Data.List
 import Dodge.Creature.Test
 import Dodge.Data.World
@@ -58,7 +57,7 @@ applyIndividualDamage' cr w dm = case _dmType dm of
 
 applyPiercingDamage :: Creature -> Damage -> World -> World
 applyPiercingDamage cr dm
-    | crIsArmouredFrom p cr = colSpark (brightX 10 1.5 orange) p1 (argV (p1 -.- p))
+    | crIsArmouredFrom p cr = makeSpark NormalSpark p1 (argV (p1 -.- p))
     | otherwise = damageHP cr $ _dmAmount dm
   where
     p = _dmAt dm