Box.Time

timing effects

Documentation

sleep :: MonadConc m => Double -> m ()

sleep for x seconds

sleepUntil :: UTCTime -> IO ()

sleep until a certain time (in the future)

data Stamped a

A value with a UTCTime annotation.

Constructors

Stamped

Fields

• stamp :: UTCTime
• value :: a

Instances

Eq a => Eq (Stamped a)

Defined in Box.Time

Methods

(==) :: Stamped a -> Stamped a -> Bool

(/=) :: Stamped a -> Stamped a -> Bool

Read a => Read (Stamped a)

Defined in Box.Time

Methods

readsPrec :: Int -> ReadS (Stamped a)

readList :: ReadS [Stamped a]

readPrec :: ReadPrec (Stamped a)

readListPrec :: ReadPrec [Stamped a]

Show a => Show (Stamped a)

Defined in Box.Time

Methods

showsPrec :: Int -> Stamped a -> ShowS

show :: Stamped a -> String

showList :: [Stamped a] -> ShowS

stampNow :: (MonadConc m, MonadIO m) => a -> m (LocalTime, a)

Add the current time

stampE :: (MonadConc m, MonadIO m) => Emitter m a -> Emitter m (LocalTime, a)

adding a time stamp

emitOn :: Emitter IO (LocalTime, a) -> Emitter IO a

wait until Stamped time before emitting

playback :: Double -> Emitter IO (LocalTime, a) -> IO (Emitter IO (LocalTime, a))

reset the emitter stamps to by in sync with the current time and adjust the speed >>> let e1 = fromListE (zipWith (x a -> Stamped (addUTCTime (fromDouble x) t) a) [0..5] [0..5])

simulate :: Double -> Emitter IO (LocalTime, a) -> Cont IO (Emitter IO a)

simulate a delay from a (Stamped a) Emitter relative to the first timestamp