From 96f64c7c495443366420025d360ff47fdb08f46f Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Tue, 10 Sep 2013 09:56:56 -0700
Subject: benchmark:  Remove haddock (no writer to create reader input).

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

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

diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 60b543e1a..2eaaf91a1 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -31,7 +31,8 @@ main = do
   inp2 <- readFile "tests/testsuite.txt"
   let opts = def{ readerSmart = True }
   let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
-  let readerBs = map (readerBench doc) readers
+  let readerBs = map (readerBench doc)
+                 $ filter (\(n,_) -> n /="haddock") readers
   let writers' = [(n,w) | (n, PureStringWriter w) <- writers]
   defaultMainWith conf (return ()) $
     map (writerBench doc) writers' ++ readerBs
-- 
cgit v1.2.3