diff options
Diffstat (limited to 'benchmark')
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 3 |
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 $ |