@@ -1,5 +1,5 @@
11import Text.Pandoc
2−import Text.Pandoc.Shared (readDataFile)
2+import Text.Pandoc.Shared (readDataFile, normalize)
33import Criterion.Main
44import Data.List (isSuffixOf)
55
@@ -27,10 +27,13 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf
2727 writerWrapText = True
2828 , writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc
2929
30+normalizeBench :: Pandoc -> Benchmark
31+normalizeBench doc = bench "normalize" $ whnf normalize doc
32+
3033main = do
3134 inp <- readDataFile (Just ".") "README"
3235 let ps = defaultParserState{ stateSmart = True }
3336 let doc = readMarkdown ps inp
3437 let readerBs = map (readerBench doc) readers
35− defaultMain $ map (writerBench doc) writers ++ readerBs
38+ defaultMain $ map (writerBench doc) writers ++ readerBs ++ [normalizeBench doc]
3639