Merge pull request #56 from sjakobi/bench-ghc-clock

Add GHC.Clock.getMonotonicTimeNSec to benchmarks
corsis · Apr 3, 2019 · e5208c4 · e5208c4
2 parents 49e6a9c + a5adf25
commit e5208c4
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/bench/benchmarks.hs b/bench/benchmarks.hs
@@ -1,8 +1,13 @@
+{-# language CPP #-}
 module Main (main) where
 
 import Criterion.Main
 import System.Clock
 
+#if MIN_VERSION_base(4,11,0)
+import GHC.Clock
+#endif
+
 main :: IO ()
 main = defaultMain [
     bgroup "getTime" [
@@ -15,4 +20,7 @@ main = defaultMain [
       , bench "MonotonicCoarse" $ whnfIO (getTime MonotonicCoarse)
       , bench "RealtimeCoarse" $ whnfIO (getTime RealtimeCoarse)
       ]
+#if MIN_VERSION_base(4,11,0)
+  , bench "GHC.Clock.getMonotonicTimeNSec" $ whnfIO getMonotonicTimeNSec
+#endif
   ]