@@ -44,10 +44,9 @@ main = do
4444 args <- getArgs
4545 (conf,_) <- parseArgs defaultConfig{ cfgSamples = Last $ Just 20 }
4646 defaultOptions args
47− inp <- readFile "README"
48− inp2 <- readFile "tests/testsuite.txt"
47+ inp <- readFile "tests/testsuite.txt"
4948 let opts = def{ readerSmart = True }
50− let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
49+ let doc = readMarkdown opts inp
5150 let readers' = [(n,r) | (n, StringReader r) <- readers]
5251 let readerBs = mapMaybe (readerBench doc)
5352 $ filter (\(n,_) -> n /="haddock") readers'