Move flame into its own datatype

src/Dodge/Data/Magnet.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Magnet where
+import Dodge.Data.Bullet
+import Geometry.Data
+import Control.Lens
+
+data Magnet = Magnet
+    { _mgID :: Int
+    , _mgUpdate :: Magnet -> Maybe Magnet
+    , _mgPos :: Point2
+    , _mgField  :: Magnet -> Bullet -> Bullet
+    }
+makeLenses ''Magnet