Refactor tesla

src/Dodge/Data/ArcStep.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.ArcStep where
+import Dodge.Data.CrWlID
+import Geometry.Data
+import Control.Lens
+data ArcStep = ArcStep
+    { _asPos :: Point2
+    , _asDir :: Float
+    , _asObject :: CrWlID --Maybe (Either Creature Wall)
+    }
+data NextArcStep = EndArc
+    | DefaultArcStep
+makeLenses ''ArcStep

src/Dodge/Data/CrWlID.hs

@@ -0,0 +1,6 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.CrWlID where
+import Control.Lens
+data CrWlID = CrID Int | WlID Int | NothingID
+makeLenses ''CrWlID