                     , BehaviorU
                     , Event(..)
                     , liftBehavior
                     , dv
                     ) where

import Prelude hiding ((.), id)
import Control.Arrow
import Control.Category
import Data.Function (fix, (&))
import Data.Semigroup
import Data.Profunctor

-- | delta value to be applied on each input
dv :: Float