From 3e005aa413fdedb39f434015954c33721ff9c001 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 14 Dec 2015 20:34:53 -0800
Subject: [PATCH] Fixed benchmark for new API.
---
benchmark/benchmark-pandoc.hs | 4 ++--
1 file 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