1 2 3 4 5 6 7 8 9 10
module Main (main) where import Criterion.Main import Lib main :: IO () main = defaultMain [ bgroup "head" [ bench "head" $ whnf head' [(1 :: Integer)..] ] ]