Switched to stopwatch

2023-04-17 13:32:33 +02:00 · 2023-04-17 13:32:33 +02:00 · aa7ce69eb8
commit aa7ce69eb8
parent cc0c6bc1e9
1 changed files with 1 additions and 5 deletions
--- 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