-- | Local time starting from the given value.

timeFrom :: (HasTime t s) => t -> Wire s e m a t
timeFrom t' =
    mkSF $ \ds _ ->
        let t = t' + dtime ds
        in t `seq` (t, timeFrom t)
timeFrom :: (HasTime t s) => t -> Wire s e m a t
timeFrom t' =
    mkSF $ \ds _ ->
        let t = t' + dtime ds
        in t `seq` (t, timeFrom t)
timeFrom t' =
    mkSF $ \ds _ ->
        let t = t' + dtime ds
        in t `seq` (t, timeFrom t)