module Dodge.Creature.ChainUpdates where

import Data.Foldable
import Dodge.Data.World

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