Move sparks into dedicated datatype

src/Dodge/Data/Spark.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Spark where
+import Geometry.Data
+import Color
+import Control.Lens
+data Spark = Spark
+    { _skVel    :: Point2
+    , _skColor  :: Color
+    , _skPos    :: Point2
+    , _skOldPos :: Point2
+    , _skWidth  :: Float 
+    }
+makeLenses ''Spark