Refactor tesla

src/Dodge/ArcStep.hs

@@ -0,0 +1,11 @@
+module Dodge.ArcStep where
+import Dodge.Data
+import Dodge.Tesla.Arc.Default
+
+import Control.Monad.State
+import System.Random
+
+doStep :: NextArcStep -> ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)
+doStep nas = case nas of
+    DefaultArcStep -> defaultArcStep
+    EndArc -> const $ const $ const $ return Nothing