From e72beb20765952bf8a183f807a70d25c576348c3 Mon Sep 17 00:00:00 2001
From: Stefan Risberg <steffenomak@gmail.com>
Date: Mon, 10 Apr 2023 20:12:12 +0200
Subject: [PATCH] Added documentation to effects

---
 src/Effects/Time.hs | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/src/Effects/Time.hs b/src/Effects/Time.hs
index 845c910..14f6415 100644
--- a/src/Effects/Time.hs
+++ b/src/Effects/Time.hs
@@ -22,7 +22,22 @@ data Time :: Effect where
   CurrentTimeT :: Time m Text
   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 ::
   (IOE :> es) =>