aboutsummaryrefslogtreecommitdiff
path: root/benchmark
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-12-14 20:34:53 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2015-12-14 20:34:53 -0800
commit3e005aa413fdedb39f434015954c33721ff9c001 (patch)
treefd6f43cd43b7859393011b95b0e1a19ddda09b28 /benchmark
parenta6d810af15df0015e75ed322ed9c14cb9574be61 (diff)
downloadpandoc-3e005aa413fdedb39f434015954c33721ff9c001.tar.gz
Fixed benchmark for new API.
Diffstat (limited to 'benchmark')
-rw-r--r--benchmark/benchmark-pandoc.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 849448feb..2ea14078f 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -28,7 +28,7 @@ readerBench :: Pandoc
readerBench doc (name, reader) =
case lookup name writers of
Just (PureStringWriter writer) ->
- let inp = writer def{ writerWrapText = True} doc
+ let inp = writer def{ writerWrapText = WrapAuto} doc
in return $ bench (name ++ " reader") $ nfIO $
(fmap handleError <$> reader def{ readerSmart = True }) inp
_ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing
@@ -37,7 +37,7 @@ writerBench :: Pandoc
-> (String, WriterOptions -> Pandoc -> String)
-> Benchmark
writerBench doc (name, writer) = bench (name ++ " writer") $ nf
- (writer def{ writerWrapText = True }) doc
+ (writer def{ writerWrapText = WrapAuto }) doc
main :: IO ()
main = do