Reify tesla arcs

src/Dodge/Update.hs

@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.Tesla.Arc
 import Dodge.Laser.Update
 import Dodge.PressPlate
 import Dodge.ModificationEffect
@@ -96,6 +97,7 @@ functionalUpdate w = checkEndGame
     . over uvWorld updateFlares
     . over uvWorld updateBeams
     . over uvWorld updateLasers
+    . over uvWorld updateTeslaArcs
     . over uvWorld (updateIMl _props _pjUpdate              )
     . over uvWorld (updateIMl' _projectiles updateProjectile)
     . over uvWorld updateLightSources
@@ -229,6 +231,12 @@ updateRadarBlips = radarBlips %~ mapMaybe updateRadarBlip
 updateFlares :: World -> World
 updateFlares = flares %~ mapMaybe updateFlare
 
+updateTeslaArcs :: World -> World
+updateTeslaArcs w = w' & teslaArcs .~ catMaybes newtas
+  where
+    (w',newtas) = mapAccumR moveTeslaArc w $ _teslaArcs w
+
+
 {- Apply internal particle updates, delete 'Nothing's.  -}
 updateBullets :: World -> World
 updateBullets w = updateInstantBullets $ set bullets (catMaybes ps) w'