Get rid of warnings

2025-06-07 19:14:56 +01:00
parent 81a7dcd962
commit faa3c4cde4
12 changed files with 85 additions and 96 deletions
@@ -118,6 +118,7 @@ useBulletPayload bu = case _buPayload bu of
    BulBall ExplosiveBall -> \p -> cWorld . lWorld . shockwaves .:~ concBall p
    BulBall ElectricalBall -> makeStaticBall
    BulBall FlashBall -> makeFlashBall
+    BulBall (FlameletBall x)  -> \p -> makeFlamelet p 0 x 10

 makeFragBullets :: Point2 -> World -> World
 makeFragBullets p w = w & cWorld . lWorld . bullets .++~ bus