aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Benchmark.hs4
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