darcykimball

-- There are some functions manipulating values of type Monad m => (a -> m Bool)
-- in `monad-loops`. Feels like they're special cases of something more general?
module MonadPred where


import Data.Monoid (Any(..), All(..), First(..))
import Control.Monad (liftM2)
import Control.Monad.Reader

darcykimball

module Shake where


import Graphics.Gloss.Interface.Pure.Game


-- An animation is represented as a function of time on some interval
data Animation a = Animation {
    _animationDuration :: Float
  , _animationFunction :: Float -> a