aggreact/src-benchmark/Main.hs

import Protolude

import Criterion
import Criterion.Main

inc :: Int -> Int
inc = (+1)

main :: IO ()
main = defaultMain [bench "inc 41" (whnf inc (41 :: Int))]