summaryrefslogtreecommitdiff
path: root/benchmark/benchmark-pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2014-08-01 13:40:26 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2014-08-01 13:40:26 -0700
commit36c9537b905ab781fd4c6ac34bf68682d51d5e41 (patch)
treef08d950909226927af35280ca3ca5cbf624de4cd /benchmark/benchmark-pandoc.hs
parent836d1f06bb4ea38681c7daf8c8446a7c1be7716e (diff)
benchmark: use only test suite for benchmark.
This way the benchmarks don't take so long to run.
Diffstat (limited to 'benchmark/benchmark-pandoc.hs')
-rw-r--r--benchmark/benchmark-pandoc.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/benchmark/benchmark-pandoc.hs b/benchmark/benchmark-pandoc.hs
index 0dc26ad00..bf67eaa4d 100644
--- a/benchmark/benchmark-pandoc.hs
+++ b/benchmark/benchmark-pandoc.hs
@@ -44,10 +44,9 @@ main = do
args <- getArgs
(conf,_) <- parseArgs defaultConfig{ cfgSamples = Last $ Just 20 }
defaultOptions args
- inp <- readFile "README"
- inp2 <- readFile "tests/testsuite.txt"
+ inp <- readFile "tests/testsuite.txt"
let opts = def{ readerSmart = True }
- let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
+ let doc = readMarkdown opts inp
let readers' = [(n,r) | (n, StringReader r) <- readers]
let readerBs = mapMaybe (readerBench doc)
$ filter (\(n,_) -> n /="haddock") readers'