summaryrefslogtreecommitdiff
path: root/benchmark/benchmark-pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-07-27 11:06:24 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-07-27 11:06:24 -0700
commit5b6e70c3b5725979cc8162cfa0659e4e93a5d538 (patch)
tree1bcd94b893838a3bafbcdacf4568e973b049391c /benchmark/benchmark-pandoc.hs
parent38c452b3426404e322c005f35ab02ff543ad1717 (diff)
Use README + testsuite in benchmarks.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
-rw-r--r--benchmark/benchmark-pandoc.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 8c0c70a9b..90b0eee74 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -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 $