diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-11-26 07:22:01 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-11-26 07:22:01 +0100 |
| commit | 3e01ae405f9bf5f40e1b8e519029825aa4880602 (patch) | |
| tree | 252046d7cd71e91b380cb0d3c3afcb6f7760e460 /src/Text/Pandoc/Readers/HTML.hs | |
| parent | ce606cb688a703b133ab7188fee45679e356a07d (diff) | |
| download | pandoc-3e01ae405f9bf5f40e1b8e519029825aa4880602.tar.gz | |
HTML reader: allow finer grained options for tag omission
Diffstat (limited to 'src/Text/Pandoc/Readers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 95f034521..fa996d2f0 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -514,7 +514,7 @@ pFigure = try $ do TagOpen _ _ <- pSatisfy (matchTagOpen "figure" []) skipMany pBlank let pImg = (\x -> (Just x, Nothing)) <$> - (pInTag True "p" pImage <* skipMany pBlank) + (pInTag TagsOmittable "p" pImage <* skipMany pBlank) pCapt = (\x -> (Nothing, Just x)) <$> do bs <- pInTags "figcaption" block return $ blocksToInlines' $ B.toList bs |