hs2ats-0.1.0.0: bench/Bench.hs

module Main where

import           Criterion.Main
import           Language.ATS.Generate

main :: IO ()
main =
    defaultMain [ env file $ \f ->
                  bgroup "generateATS"
                      [ bench "test/data/SumType.hs" $ nf generateATS f ]
                ]
    where file = readFile "test/data/SumType.hs"