Play around with tesla arcs

src/Dodge/Data/TeslaArc.hs

@@ -1,19 +1,20 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.TeslaArc where
+module Dodge.Data.TeslaArc (
+    module Dodge.Data.TeslaArc,
+    module Dodge.Data.ArcStep,
+) where
 
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.ArcStep
---import Geometry.Data
 
 data TeslaArc = TeslaArc
---    { _taPoints :: [Point2]
     { _taTimer :: Int
     , _taArcSteps :: [ArcStep]
     , _taColor :: Color