14 lines
279 B
Haskell
14 lines
279 B
Haskell
module Dodge.Creature.Update
|
|
( unrandUpdate
|
|
) where
|
|
import Dodge.Data
|
|
|
|
import Data.Monoid
|
|
|
|
unrandUpdate
|
|
:: (Creature -> World -> World)
|
|
-> (Creature -> Maybe Creature)
|
|
-> CRUpdate
|
|
{-# INLINE unrandUpdate #-}
|
|
unrandUpdate h cF cr _ = ( Endo (h cr) , cF cr )
|