From 024c1ad3c5b7745dc60ce0aa30f6900021043ba0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 4 Jan 2013 11:11:42 -0800
Subject: Updated benchmark code for changes in Text.Pandoc.

---
 benchmark/benchmark-pandoc.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index c5646a958..2990bed87 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -7,7 +7,7 @@ import System.Environment (getArgs)
 import Data.Monoid
 
 readerBench :: Pandoc
-            -> (String, ReaderOptions -> String -> Pandoc)
+            -> (String, ReaderOptions -> String -> IO Pandoc)
             -> Benchmark
 readerBench doc (name, reader) =
   let writer = case lookup name writers of
@@ -17,8 +17,8 @@ readerBench doc (name, reader) =
       -- we compute the length to force full evaluation
       getLength (Pandoc (Meta a b c) d) =
             length a + length b + length c + length d
-  in  bench (name ++ " reader") $ whnf (getLength .
-         reader def{ readerSmart = True }) inp
+  in  bench (name ++ " reader") $ whnfIO $ getLength `fmap`
+      (reader def{ readerSmart = True }) inp
 
 writerBench :: Pandoc
             -> (String, WriterOptions -> Pandoc -> String)
-- 
cgit v1.2.3