steffenomak/ris-utils
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added documentation to effects

Browse Source
This commit is contained in:
Stefan Risberg 2023-04-10 20:12:12 +02:00
parent 62c41d1d36
commit e72beb2076
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Effects/Time.hs
View File

@ -22,7 +22,22 @@ data Time :: Effect where
CurrentTimeT :: Time m Text CurrentTimeT :: Time m Text
BenchFunction :: m a -> Time m (Timespan, a) BenchFunction :: m a -> Time m (Timespan, a)
makeEffect ''Time makeEffect_ ''Time
currentTime ::
Time :> es =>
-- | Returns current time
Eff es C.Time
currentTimeB ::
Time :> es =>
-- | Returns current time
Eff es T.Builder
currentTimeT ::
Time :> es =>
-- | Returns current time
Eff es Text
runTimeEff :: runTimeEff ::
(IOE :> es) => (IOE :> es) =>