Tweak "magnets" that affect bullet movement

src/Dodge/Data/Magnet.hs

@@ -14,14 +14,12 @@ newtype MagnetUpdate = MagnetUpdateTimer Int
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data MagnetBuBu
-    = MagnetBuId
-    | MagnetBuBuCurveAroundField Float Float
+    = MagnetAlign
+    | MagnetDeflect
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Magnet = Magnet
-    { _mgID :: Int
-    , _mgUpdate :: MagnetUpdate
-    , _mgPos :: Point2
+    { _mgPos :: Point2
     , _mgField :: MagnetBuBu
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)