module Dodge.Creature.Update
  where
import Dodge.Data

--import System.Random
import Data.Monoid
-- combinators for helping with dealing with creature update


unrandUpdate 
    :: (Creature -> World -> World) 
    -> (Creature -> Maybe Creature)
    -> CRUpdate
{-# INLINE unrandUpdate #-}
unrandUpdate h cF cr _ = ( Endo (h cr) , cF cr )
