module Dodge.Creature.ChainUpdates where
import Dodge.Data

import Data.Foldable

chainCreatureUpdates
    :: [World -> Creature -> Creature] 
    -> World -> Creature -> Creature
chainCreatureUpdates ls w cr = foldl' unf cr ls
  where
    unf cr' g = g w cr'
