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 )