Main.hs

module Main (main) where

import Criterion.Main
import qualified Data.Text.IO as T
import qualified Text.MMark   as MMark

main :: IO ()
main = defaultMain
  [ bparser "data/bench-yaml-block.md"
  , bparser "data/bench-thematic-break.md"
  , bparser "data/bench-heading.md"
  , bparser "data/bench-fenced-code-block.md"
  , bparser "data/bench-indented-code-block.md"
  , bparser "data/bench-intensive-emphasis.md"
  , bparser "data/bench-unordered-list.md"
  , bparser "data/bench-ordered-list.md"
  , bparser "data/bench-blockquote.md"
  , bparser "data/bench-paragraph.md"
  , bparser "data/table.md"
  , bparser "data/comprehensive.md"
  ]

----------------------------------------------------------------------------
-- Helpers

bparser
  :: FilePath          -- ^ File from which to load parser's input
  -> Benchmark
bparser path = env (T.readFile path) (bench name . nf p)
  where
    name = "with file: " ++ path
    p    = MMark.parse path