katydid-0.2.0.1: bench/Benchmarks.hs

module Main where

import qualified Criterion.Main as B
import Suite (readBenches, BenchSuiteCase(..), stretch, runBench)

main :: IO ()
main = do {
    benches <- readBenches;
    benchmarks <- return $ map (\benchcase ->
        B.bench (benchname benchcase) $ B.perBatchEnv (stretch benchcase) runBench
    ) benches;
    B.defaultMain benchmarks;
}