Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

benchmark: Remove haddock (no writer to create reader input).

Browse source
This commit is contained in:
John MacFarlane 2013-09-10 09:56:56 -07:00
parent c2960d9ded
commit 96f64c7c49
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
benchmark/benchmark-pandoc.hs
View file

@ -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