From 77cb199d45873342495df42a80ed563f8f79bd0d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 12 Dec 2010 23:24:02 -0800
Subject: Benchmark: use nf for writers.

whnf gives inaccurate results.
---
 Benchmark.hs | 4 ++--
 1 file 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
-- 
cgit v1.2.3