Polysemy.Time
type Time = Input UTCTime #
getCurrentTime :: Member Time effs => Sem effs UTCTime #
runCurrentTimeIO :: forall effs m a. (Member (Embed m) effs, MonadIO m) => Sem (Time ': effs) a -> Sem effs a #
runCurrentTimeConst :: UTCTime -> Sem (Time ': effs) a -> Sem effs a #