hodatime-1.0.0.0: bench/HodaTime/OffsetBench.hs

module HodaTime.OffsetBench
(
  offsetBenches
)
where

import Criterion.Main
import Data.HodaTime.Offset (addClamped, fromHours)

offsetBenches :: Benchmark
offsetBenches = bgroup "Offset Benchmarks" [addHour]

addHour :: Benchmark
addHour = bench "add 1"  $ whnf (addClamped oneHour) twoHours
  where
    oneHour = fromHours (1 :: Int)
    twoHours = fromHours (2  :: Int)