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