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