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 #
time_ :: Member Time r => Sem r () -> Sem r NominalDiffTime #
Just measure how long action takes, discard its result