Play around with tesla arcs

src/Dodge/Data/ArcStep.hs

@@ -18,11 +18,10 @@ data ArcStep = ArcStep
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data NextArcStep
-    = EndArc
-    | DefaultArcStep
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--data NextArcStep
+--    = DefaultArcStep
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''ArcStep
 deriveJSON defaultOptions ''ArcStep
-deriveJSON defaultOptions ''NextArcStep
+--deriveJSON defaultOptions ''NextArcStep