diff options
| -rw-r--r-- | Benchmark.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Benchmark.hs b/Benchmark.hs index 333b908be..9360b3436 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -20,9 +20,9 @@ readerBench doc (name, reader) = "+lhs" `isSuffixOf` name }) inp writerBench :: Pandoc - -> (String, WriterOptions -> Pandoc -> a) + -> (String, WriterOptions -> Pandoc -> String) -> Benchmark -writerBench doc (name, writer) = bench (name ++ " writer") $ whnf +writerBench doc (name, writer) = bench (name ++ " writer") $ nf (writer defaultWriterOptions{ writerWrapText = True , writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc |