Start simplifying tesla arcs

src/Dodge/Data/Item/Params.hs

@@ -23,8 +23,6 @@ data ItemParams
         , _newArcStep :: NextArcStep --ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
         , _previousArcEffect :: PreviousArcEffect
         }
---    | ParamMID {_paramMID :: Maybe Int}
---    | BoostPropIX {_boostPropIX :: Maybe Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/TeslaArc.hs

@@ -10,11 +10,11 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ArcStep
-import Geometry.Data
+--import Geometry.Data
 
 data TeslaArc = TeslaArc
-    { _taPoints :: [Point2]
-    , _taTimer :: Int
+--    { _taPoints :: [Point2]
+    { _taTimer :: Int
     , _taArcSteps :: [ArcStep]
     , _taColor :: Color
     }