14 lines
273 B
Haskell
14 lines
273 B
Haskell
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'
|