From 36c9537b905ab781fd4c6ac34bf68682d51d5e41 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 1 Aug 2014 13:40:26 -0700
Subject: benchmark:  use only test suite for benchmark.

This way the benchmarks don't take so long to run.
---
 benchmark/benchmark-pandoc.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'benchmark')

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'
-- 
cgit v1.2.3