Cleanup barrels

src/Dodge/Bullet.hs

@@ -116,7 +116,7 @@ useBulletPayload bu = case _buPayload bu of
     BulFlak -> makeFlak bu
     BulFrag -> makeFragBullets
     BulGas -> (`makeGasCloud` V2 0 0)
-    BulBall ExplosiveBall -> \p -> cWorld . lWorld . shockwaves .:~ concBall p
+    BulBall ExplosiveBall -> makeMovingEB (_buVel bu) ExplosiveBall
     BulBall ElectricalBall{} -> makeMovingEB (_buVel bu) 
         (ElectricalBall (round $ bu ^. buPos . _1))
     BulBall FlashBall -> makeMovingEB (_buVel bu) FlashBall