Tweak explosions

2024-12-24 14:54:32 +00:00
parent a79dfa1bb3
commit c4b9142d0f
8 changed files with 19 additions and 14 deletions
@@ -4,7 +4,7 @@ import Dodge.Data.World
 import Dodge.WorldEvent.Explosion
 import Geometry.Data

-usePayload :: Payload -> Point2 -> World -> World
+usePayload :: Payload -> Point2 -> Point2 -> World -> World
 usePayload payload = case payload of
    ExplosionPayload -> makeExplosionAt
-    DudPayload -> const id
+    DudPayload -> const (const id)