summaryrefslogtreecommitdiff
path: root/benchmark
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-09-10 09:56:56 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-09-10 09:56:56 -0700
commit96f64c7c495443366420025d360ff47fdb08f46f (patch)
treef1bdc7fd93b89b087538f474026d489d18bead5d /benchmark
parentc2960d9ded9e471540f48ca962e4c362d8385315 (diff)
benchmark: Remove haddock (no writer to create reader input).
Diffstat (limited to 'benchmark')
-rw-r--r--benchmark/benchmark-pandoc.hs3
1 files changed, 2 insertions, 1 deletions
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