madlang-2.1.1.1: bench/Bench.hs

module Main where

import Criterion.Main
import Text.Megaparsec
import Text.Madlibs
import qualified Data.Text.IO as TIO

fun = parse (parseTokM []) ""

main = do
    file <- TIO.readFile "test/templates/fortune-teller.mad"
    file2 <- TIO.readFile "demo/shakespeare.mad"
    defaultMain [ bgroup "parseFile"
                      [ bench "fortune-teller" $ whnf fun file 
                      , bench "shakespeare" $ whnf fun file2 ]
                ]