system-time-monotonic-0.1: testing/benchmark.hs

import System.Time.Monotonic
import Criterion.Main

main :: IO ()
main = do
    clock <- newClock
    putStrLn $ "Using " ++ clockDriverName clock

    defaultMain
        [ bench "newClock"     newClock
        , bench "clockGetTime" (clockGetTime clock)
        ]