07b06cb · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Improved benchmark argument parsing.

07b06cbJohn MacFarlane9 years ago

benchmark/benchmark-pandoc.hs+5−10

@@ -48,18 +48,13 @@ writerBench doc (name, writer) = bench (name ++ " writer") $ nf

48main :: IO ()

49main = do

50 args <- getArgs

51+ print args

51 let matchReader (n, TextReader _) =

52 let matchReader (n, TextReader _) =

52− case args of

53+ "reader" `elem` args && n `elem` args

53− [] -> True

54− [x] -> x == n

55− (x:y:_) -> x == n && y == "reader"

56− matchReader (_, _) = False

54+ matchReader _ = False

57 let matchWriter (n, TextWriter _) =

55 let matchWriter (n, TextWriter _) =

58− case args of

56+ "writer" `elem` args && n `elem` args

59− [] -> True

60− [x] -> x == n

61− (x:y:_) -> x == n && y == "writer"

62− matchWriter (_, _) = False

57+ matchWriter _ = False

63 let matchedReaders = filter matchReader readers

58 let matchedReaders = filter matchReader readers

64 let matchedWriters = filter matchWriter writers

59 let matchedWriters = filter matchWriter writers

65 inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"

60 inp <- UTF8.toText <$> B.readFile "test/testsuite.txt"