12 lines
260 B
Haskell
12 lines
260 B
Haskell
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'
|