recursion-schemes-ext-0.1.0.1: bench/Bench.hs

module Main where

import           Criterion.Main
import           Data.Functor.Foldable.Examples ()

main =
    defaultMain [ bgroup "head"
                      [ bench "fortune-teller" $ whnf head [1..] ]
                ]