Z-IO-0.6.2.0: bench/GetTime.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeApplications  #-}

{-| gettimeofday bench

This benchmark confirms an unneglectable overhead in common FFI bindings: the
overhead of doing pinned allocation.

Theoretically things will get worse under high concurrent load since pinned
allocation sometime requires lock GHC's sm.
-}
import           Criterion.Main         (Benchmark, bench, bgroup, defaultMain,
                                         nfIO)

import qualified Data.Time.Clock.System as T
import qualified Z.IO.Time              as Z

main :: IO ()
main = do
    defaultMain
      [ bgroup "Z-IO"
          [ bench "gettimeofday-z" $ nfIO Z.getSystemTime'
          , bench "gettimeofday-time" $ nfIO T.getSystemTime
          ]
      ]