@@ -38,8 +38,9 @@ normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) do
3838main :: IO ()
3939main = do
4040 inp <- readDataFile (Just ".") "README"
41+ inp2 <- readDataFile (Just ".") "tests/testsuite.txt"
4142 let opts = def{ readerSmart = True }
42− let doc = readMarkdown opts inp
43+ let doc = readMarkdown opts $ inp ++ unlines (drop 3 $ lines inp2)
4344 let readerBs = map (readerBench doc) readers
4445 let writers' = [(n,w) | (n, PureStringWriter w) <- writers]
4546 defaultMain $