From aa7ce69eb807324958f83db3d5d7b57b6e42fb68 Mon Sep 17 00:00:00 2001
From: Stefan Risberg <stefan.risberg@teliacompany.com>
Date: Mon, 17 Apr 2023 13:32:33 +0200
Subject: [PATCH] Switched to stopwatch

---
 src/Effects/Time.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/src/Effects/Time.hs b/src/Effects/Time.hs
index ca51046..845c910 100644
--- a/src/Effects/Time.hs
+++ b/src/Effects/Time.hs
@@ -36,8 +36,4 @@ runTimeEff = interpret $ \env -> \case
   CurrentTimeT ->
     encode_YmdHMS (SubsecondPrecisionFixed 4) w3c . timeToDatetime
       <$> liftIO now
-  BenchFunction f -> do
-    s <- liftIO now
-    !d <- localSeqUnlift env $ \unlift -> unlift f
-    e <- liftIO now
-    pure (C.width $ s ... e, d)
+  BenchFunction f -> localSeqUnliftIO env $ \run -> stopwatch . run $ f