diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-07-20 21:43:54 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-20 21:43:54 -0700 |
commit | 98c7ada061c61555331e224a701c83cdbc26c68e (patch) | |
tree | 15762c7282e6825c4ce0df2a744f5d450390a359 /src/Text/Pandoc | |
parent | b6c769084eff0fe865c13590dee0737e41ba4e43 (diff) | |
download | pandoc-98c7ada061c61555331e224a701c83cdbc26c68e.tar.gz |
HTML reader: parse Div and Span elements even without `--parse-raw`.
Closes #1434.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index cedbb8c9e..2414dfbf7 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -201,7 +201,6 @@ pRawTag = do pDiv :: TagParser Blocks pDiv = try $ do - getOption readerParseRaw >>= guard TagOpen _ attr <- lookAhead $ pSatisfy $ tagOpen (=="div") (const True) contents <- pInTags "div" block return $ B.divWith (mkAttr attr) contents @@ -429,7 +428,6 @@ pCode = try $ do pSpan :: TagParser Inlines pSpan = try $ do - getOption readerParseRaw >>= guard TagOpen _ attr <- lookAhead $ pSatisfy $ tagOpen (=="span") (const True) contents <- pInTags "span" inline return $ B.spanWith (mkAttr attr) contents |