From 3aa5733f30b6daf755a00d0c2a318fb55a177289 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 25 Jun 2013 18:17:32 -0700
Subject: Revised benchmark for new metadata.

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

(limited to 'benchmark/benchmark-pandoc.hs')

diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 482293ab0..60b543e1a 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -13,8 +13,7 @@ readerBench doc (name, reader) =
                      _ -> error $ "Could not find writer for " ++ name
       inp = writer def{ writerWrapText = True } doc
       -- we compute the length to force full evaluation
-      getLength (Pandoc (Meta a b c) d) =
-            length a + length b + length c + length d
+      getLength (Pandoc (Meta _) d) = length d
   in  bench (name ++ " reader") $ whnfIO $ getLength `fmap`
       (reader def{ readerSmart = True }) inp
 
-- 
cgit v1.2.3