diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-12-14 20:34:53 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-12-14 20:34:53 -0800 |
| commit | 3e005aa413fdedb39f434015954c33721ff9c001 (patch) | |
| tree | fd6f43cd43b7859393011b95b0e1a19ddda09b28 /benchmark/benchmark-pandoc.hs | |
| parent | a6d810af15df0015e75ed322ed9c14cb9574be61 (diff) | |
Fixed benchmark for new API.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
| -rw-r--r-- | benchmark/benchmark-pandoc.hs | 4 |
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 |