@@ -6,7 +6,7 @@ import Text.JSON.Generic
66import Data.Default
77
88readerBench :: Pandoc
9− -> (String, ParserState -> String -> Pandoc)
9+ -> (String, ReaderOptions -> String -> Pandoc)
1010 -> Benchmark
1111readerBench doc (name, reader) =
1212 let writer = case lookup name writers of
@@ -19,10 +19,8 @@ readerBench doc (name, reader) =
1919 getLength (Pandoc (Meta a b c) d) =
2020 length a + length b + length c + length d
2121 in bench (name ++ " reader") $ whnf (getLength .
22− reader def{ stateOptions = def{
23− readerSmart = True
24− , readerLiterateHaskell = "+lhs" `isSuffixOf` name
25− }
22+ reader def{ readerSmart = True
23+ , readerLiterateHaskell = "+lhs" `isSuffixOf` name
2624 }) inp
2725
2826writerBench :: Pandoc
@@ -40,8 +38,8 @@ normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) do
4038
4139main = do
4240 inp <- readDataFile (Just ".") "README"
43− let ps = defaultParserState{ stateOptions = def{ readerSmart = True }}
44− let doc = readMarkdown ps inp
41+ let opts = def{ readerSmart = True }
42+ let doc = readMarkdown opts inp
4543 let readerBs = map (readerBench doc) readers
4644 let writers' = [(n,w) | (n, PureStringWriter w) <- writers]
4745 defaultMain $ map (writerBench doc) writers' ++ readerBs ++ normalizeBench doc