Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Use README + testsuite in benchmarks.

Browse source
This commit is contained in:
John MacFarlane 2012-07-27 11:06:24 -07:00
parent 38c452b342
commit 5b6e70c3b5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
benchmark/benchmark-pandoc.hs
View file

@ -38,8 +38,9 @@ normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) do
main :: IO ()
main = do
inp <- readDataFile (Just ".") "README"
inp2 <- readDataFile (Just ".") "tests/testsuite.txt"
let opts = def{ readerSmart = True }
let doc = readMarkdown opts inp
let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
let readerBs = map (readerBench doc) readers
let writers' = [(n,w) | (n, PureStringWriter w) <- writers]
defaultMain $