Reify shockwaves

src/Dodge/Bullet.hs

@@ -83,7 +83,7 @@ bulletSpawn :: Bullet -> Maybe (Point2 -> World -> World)
 bulletSpawn bu = case _buSpawn bu of
     BulSpark -> Nothing
     BulBall IncBall -> Just incBallAt
-    BulBall ConcBall -> Just $ randParticleAt concBall
+    BulBall ConcBall -> Just $ \p -> shockwaves .:~ concBall p
     BulBall TeslaBall -> Just makeStaticBall
 
 hitEffFromBul :: Float -> Bullet