diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-12 23:24:02 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-12 23:24:02 -0800 |
| commit | 77cb199d45873342495df42a80ed563f8f79bd0d (patch) | |
| tree | 50dc9b9d69b51bad52e458ff17e29501def7d1d2 | |
| parent | 3748dfeb915777868bb10953ab7b55f5ccd2f87c (diff) | |
| download | pandoc-77cb199d45873342495df42a80ed563f8f79bd0d.tar.gz | |
Benchmark: use nf for writers.
whnf gives inaccurate results.
| -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 |