aboutsummaryrefslogtreecommitdiff
path: root/benchmark
diff options
context:
space:
mode:
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