aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-07-20 21:43:54 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-07-20 21:43:54 -0700
commit98c7ada061c61555331e224a701c83cdbc26c68e (patch)
tree15762c7282e6825c4ce0df2a744f5d450390a359 /src/Text/Pandoc
parentb6c769084eff0fe865c13590dee0737e41ba4e43 (diff)
downloadpandoc-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.hs2
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