From da3702357dc9a310b460c82411fe5b8c870416d5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 25 Jul 2012 10:45:45 -0700 Subject: 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. --- src/Tests/Readers/Markdown.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Tests/Readers') 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 -- cgit v1.2.3