From 836d1f06bb4ea38681c7daf8c8446a7c1be7716e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 1 Aug 2014 13:20:08 -0700
Subject: Use nfIO in benchmark instead of getLength trick.

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

(limited to 'benchmark')

diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 294d385dd..0dc26ad00 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -29,9 +29,7 @@ readerBench :: Pandoc
 readerBench doc (name, reader) = case lookup name writers of
   Just (PureStringWriter writer) ->
     let inp = writer def{ writerWrapText = True} doc
-        -- we compute the length to force full evaluation
-        getLength (Pandoc (Meta _) d) = length d
-    in return $ bench (name ++ " reader") $ whnfIO $ getLength `fmap`
+    in return $ bench (name ++ " reader") $ nfIO $
                  (reader def{ readerSmart = True }) inp
   _ -> trace ("\nCould not find writer for " ++ name ++ "\n") Nothing
 
-- 
cgit v1.2.3