Reify shockwaves

src/Dodge/Update.hs

@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.Shockwave.Update
 import Dodge.Tesla.Arc
 import Dodge.Laser.Update
 import Dodge.PressPlate
@@ -90,6 +91,7 @@ functionalUpdate w = checkEndGame
     . over uvWorld updateRadarSweeps
     . over uvWorld updatePosEvents
     . over uvWorld updateFlames
+    . over uvWorld updateShockwaves
     . over uvWorld updateEnergyBalls
     . over uvWorld updateParticles
     . over uvWorld updateBullets
@@ -243,6 +245,11 @@ updateBullets w = updateInstantBullets $ set bullets (catMaybes ps) w'
   where 
     (w',ps) = mapAccumR updateBullet w $ _bullets w
 
+updateShockwaves :: World -> World
+updateShockwaves w = w' & shockwaves .~ catMaybes newflames
+  where
+    (w',newflames) = mapAccumR updateShockwave w $ _shockwaves w
+
 updateFlames :: World -> World
 updateFlames w = w' & flames .~ catMaybes newflames
   where