opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 15:44:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Added normalize benchmark to Benchmark.hs.

Browse Source
This commit is contained in:
John MacFarlane
2010-12-25 14:07:26 -08:00
parent 82903cfaf3
commit 87429ef2f2
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Benchmark.hs
+5 -2
View File
@@ -1,5 +1,5 @@
import Text.Pandoc
import Text.Pandoc.Shared (readDataFile)
import Text.Pandoc.Shared (readDataFile, normalize)
import Criterion.Main
import Data.List (isSuffixOf)
@@ -27,10 +27,13 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf
writerWrapText = True
, writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc
normalizeBench :: Pandoc -> Benchmark
normalizeBench doc = bench "normalize" $ whnf normalize doc
main = do
inp <- readDataFile (Just ".") "README"
let ps = defaultParserState{ stateSmart = True }
let doc = readMarkdown ps inp
let readerBs = map (readerBench doc) readers
defaultMain $ map (writerBench doc) writers ++ readerBs
defaultMain $ map (writerBench doc) writers ++ readerBs ++ [normalizeBench doc]