Move flame into its own datatype

src/Dodge/Data/Spark.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Spark where
+import Dodge.Data.Damage.Type
 import Geometry.Data
 import Color
 import Control.Lens
@@ -10,5 +11,6 @@ data Spark = Spark
     , _skPos    :: Point2
     , _skOldPos :: Point2
     , _skWidth  :: Float 
+    , _skDamageType :: DamageType
     }
 makeLenses ''Spark