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

Switched to stopwatch

Browse Source
This commit is contained in:
Stefan Risberg 2023-04-17 13:32:33 +02:00
parent cc0c6bc1e9
commit aa7ce69eb8
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Effects/Time.hs
View File

@ -36,8 +36,4 @@ runTimeEff = interpret $ \env -> \case
CurrentTimeT -> CurrentTimeT ->
encode_YmdHMS (SubsecondPrecisionFixed 4) w3c . timeToDatetime encode_YmdHMS (SubsecondPrecisionFixed 4) w3c . timeToDatetime
<$> liftIO now <$> liftIO now
BenchFunction f -> do BenchFunction f -> localSeqUnliftIO env $ \run -> stopwatch . run $ f
s <- liftIO now
!d <- localSeqUnlift env $ \unlift -> unlift f
e <- liftIO now
pure (C.width $ s ... e, d)