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

Improved benchmark argument parsing.

Browse source 
You can now say 'make bench BENCHARGS="markdown latex reader"'
and both the markdown and latex readers will be benchmarked.
This commit is contained in:
John MacFarlane 2017-12-30 11:22:55 -08:00
parent d5d6c9876d
commit 07b06cb6e6
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
benchmark/benchmark-pandoc.hs
View file

@ -48,18 +48,13 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf
main :: IO () main :: IO ()
main = do main = do
args <- getArgs args <- getArgs
print args
let matchReader (n, TextReader _) = let matchReader (n, TextReader _) =
case args of "reader" `elem` args && n `elem` args
[] -> True matchReader _ = False
[x] -> x == n
(x:y:_) -> x == n && y == "reader"
matchReader (_, _) = False
let matchWriter (n, TextWriter _) = let matchWriter (n, TextWriter _) =
case args of "writer" `elem` args && n `elem` args
[] -> True matchWriter _ = False
[x] -> x == n
(x:y:_) -> x == n && y == "writer"
matchWriter (_, _) = False
let matchedReaders = filter matchReader readers let matchedReaders = filter matchReader readers
let matchedWriters = filter matchWriter writers let matchedWriters = filter matchWriter writers
inp <- UTF8.toText <$> B.readFile "test/testsuite.txt" inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"