module Main where

import Criterion.Main

main :: IO ()
main = defaultMain
    [ bench "const" (whnf const ())
    ]