diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2013-09-10 09:56:56 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-09-10 09:56:56 -0700 |
commit | 96f64c7c495443366420025d360ff47fdb08f46f (patch) | |
tree | f1bdc7fd93b89b087538f474026d489d18bead5d /benchmark | |
parent | c2960d9ded9e471540f48ca962e4c362d8385315 (diff) |
benchmark: Remove haddock (no writer to create reader input).
Diffstat (limited to 'benchmark')
-rw-r--r-- | benchmark/benchmark-pandoc.hs | 3 |
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 |