@@ -20,9 +20,9 @@ readerBench doc (name, reader) =
2020 "+lhs" `isSuffixOf` name }) inp
2121
2222writerBench :: Pandoc
23− -> (String, WriterOptions -> Pandoc -> a)
23+ -> (String, WriterOptions -> Pandoc -> String)
2424 -> Benchmark
25−writerBench doc (name, writer) = bench (name ++ " writer") $ whnf
25+writerBench doc (name, writer) = bench (name ++ " writer") $ nf
2626 (writer defaultWriterOptions{
2727 writerWrapText = True
2828 , writerLiterateHaskell = "+lhs" `isSuffixOf` name }) doc