diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 10:45:45 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 10:45:45 -0700 |
| commit | da3702357dc9a310b460c82411fe5b8c870416d5 (patch) | |
| tree | 5281c07c458edf84409e67530b16b20fabe8d778 /src/Tests/Readers/Markdown.hs | |
| parent | 0d21b8d6ae2546391085d6977962f7d471d9267f (diff) | |
Put smart, strict in separate options field in state.
This is the beginning of a larger transition that will make
Options, not ParserState, the parameter of the read functions.
(Options will also be used in writers, in place of WriterOptions.)
Next step is to remove strict, replacing it with granular
tests for different extensions.
Diffstat (limited to 'src/Tests/Readers/Markdown.hs')
| -rw-r--r-- | src/Tests/Readers/Markdown.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Tests/Readers/Markdown.hs b/src/Tests/Readers/Markdown.hs index 5ad974adf..7fbeb6350 100644 --- a/src/Tests/Readers/Markdown.hs +++ b/src/Tests/Readers/Markdown.hs @@ -13,7 +13,9 @@ markdown :: String -> Pandoc markdown = readMarkdown defaultParserState{ stateStandalone = True } markdownSmart :: String -> Pandoc -markdownSmart = readMarkdown defaultParserState{ stateSmart = True } +markdownSmart = readMarkdown defaultParserState{ stateOptions = + let oldOpts = stateOptions defaultParserState in + oldOpts { optionSmart = True } } infix 4 =: (=:) :: ToString c |