11 lines
262 B
Haskell
11 lines
262 B
Haskell
module Dodge.Payload where
|
|
|
|
import Dodge.Data.World
|
|
import Dodge.WorldEvent.Explosion
|
|
import Geometry.Data
|
|
|
|
usePayload :: Payload -> Point2 -> World -> World
|
|
usePayload payload = case payload of
|
|
ExplosionPayload -> makeExplosionAt
|
|
DudPayload -> const id
|