Cleanup tesla arcs

2024-12-22 15:36:28 +00:00
parent 632deb7486
commit e2e1e23881
12 changed files with 191 additions and 221 deletions
@@ -19,7 +19,7 @@ data ItemParams
    | FlatShieldParams
        {_flatShieldWlMIX :: Maybe Int}
    | Arcing
-        { _currentArc :: Maybe [ArcStep]
+        { _currentArc :: [ArcStep]
        , _arcSize :: Float
        , _arcNumber :: Int
        , _newArcStep :: NextArcStep --ItemParams -> World -> ArcStep -> State StdGen (Maybe ArcStep)