diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 11:08:06 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-25 11:08:06 -0700 |
| commit | dfa19061abc24a3e95b9b37e4f9484d902110899 (patch) | |
| tree | 22c233b704fd99be18711cce8dcf08964096dab6 /src/Text/Pandoc/Readers/HTML.hs | |
| parent | da3702357dc9a310b460c82411fe5b8c870416d5 (diff) | |
Options -> ReaderOptions.
Better to keep reader and writer options separate.
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 9510f3a30..aa96f3e9e 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -126,7 +126,7 @@ pOrderedList :: TagParser [Block] pOrderedList = try $ do TagOpen _ attribs <- pSatisfy (~== TagOpen "ol" []) st <- getState - let (start, style) = if optionStrict (stateOptions st) + let (start, style) = if readerStrict (stateOptions st) then (1, DefaultStyle) else (sta', sty') where sta = fromMaybe "1" $ @@ -281,7 +281,7 @@ pCodeBlock = try $ do let attribsClasses = words $ fromMaybe "" $ lookup "class" attr let attribsKV = filter (\(k,_) -> k /= "class" && k /= "id") attr st <- getState - let attribs = if optionStrict (stateOptions st) + let attribs = if readerStrict (stateOptions st) then ("",[],[]) else (attribsId, attribsClasses, attribsKV) return [CodeBlock attribs result] |