diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 20:20:03 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 22:05:06 -0700 |
| commit | 856aa8c244b86a51d4229bf7c5f3799d231570f7 (patch) | |
| tree | c1ad40da3b54b859be20a01c8307d1651df7a7af /Benchmark.hs | |
| parent | 1dba82f25ee17590bf03b00659662240460b7824 (diff) | |
| download | pandoc-856aa8c244b86a51d4229bf7c5f3799d231570f7.tar.gz | |
Moved stateLiterateHaskell to readerLiterateHaskell in Options.
Diffstat (limited to 'Benchmark.hs')
| -rw-r--r-- | Benchmark.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Benchmark.hs b/Benchmark.hs index e7ff718e5..f47980905 100644 --- a/Benchmark.hs +++ b/Benchmark.hs @@ -3,6 +3,7 @@ import Text.Pandoc.Shared (readDataFile, normalize) import Criterion.Main import Data.List (isSuffixOf) import Text.JSON.Generic +import Data.Default readerBench :: Pandoc -> (String, ParserState -> String -> Pandoc) @@ -18,10 +19,11 @@ readerBench doc (name, reader) = getLength (Pandoc (Meta a b c) d) = length a + length b + length c + length d in bench (name ++ " reader") $ whnf (getLength . - reader defaultParserState{ stateSmart = True - , stateStandalone = True - , stateLiterateHaskell = - "+lhs" `isSuffixOf` name }) inp + reader def{ stateOptions = def{ + readerSmart = True + , readerLiterateHaskell = "+lhs" `isSuffixOf` name + } + }) inp writerBench :: Pandoc -> (String, WriterOptions -> Pandoc -> String) @@ -38,7 +40,7 @@ normalizeBench doc = [ bench "normalize - with" $ nf (encodeJSON . normalize) do main = do inp <- readDataFile (Just ".") "README" - let ps = defaultParserState{ stateSmart = True } + let ps = defaultParserState{ stateOptions = def{ readerSmart = True }} let doc = readMarkdown ps inp let readerBs = map (readerBench doc) readers let writers' = [(n,w) | (n, PureStringWriter w) <- writers] |