summaryrefslogtreecommitdiff
path: root/benchmark
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2023-12-10 09:53:40 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2023-12-10 09:53:40 -0800
commit61314a02dffa96a31361f33dda96b95ed603c131 (patch)
tree7e71402d19ce11de2e6509eabd65eedbaef5cd72 /benchmark
parent3be253fb90deb8ca746156a3b281e5983fc6e8cf (diff)
Benchmark: use standalone documents for reader tests.
Otherwise typst reader test fails. Note: this means that we are now parsing longer documents, so bench results on readers won't be comparable to before.
Diffstat (limited to 'benchmark')
-rw-r--r--benchmark/benchmark-pandoc.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index ff2a334ba..590db542d 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -39,14 +39,15 @@ readerBench doc name = either (const Nothing) Just $
runPure $ do
(rdr, rexts) <- getReader $ FlavoredFormat name mempty
(wtr, wexts) <- getWriter $ FlavoredFormat name mempty
+ tmpl <- Just <$> compileDefaultTemplate name
case (rdr, wtr) of
(TextReader r, TextWriter w) -> do
inp <- w def{ writerWrapText = WrapAuto
- , writerExtensions = wexts } doc
+ , writerExtensions = wexts
+ , writerTemplate = tmpl } doc
return $ bench (T.unpack name) $
nf (either (error . show) id . runPure . r def) inp
(ByteStringReader r, ByteStringWriter w) -> do
- tmpl <- Just <$> compileDefaultTemplate name
inp <- w def{ writerWrapText = WrapAuto
, writerExtensions = wexts
, writerTemplate = tmpl } doc