diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-12-27 12:38:04 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-12-27 12:38:04 -0800 |
| commit | f688086979307bb5c81ffe61ed09493bc72785a5 (patch) | |
| tree | dc3eeb9e199defa334f4b23e8f96e4acb34f4158 | |
| parent | acfa846aab4ed2c5acb00c9d4eab6b80c13114fd (diff) | |
| download | pandoc-f688086979307bb5c81ffe61ed09493bc72785a5.tar.gz | |
Small improvement to figcaption parsing. #4184.
| -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 05a80335a..393917a9c 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -601,9 +601,7 @@ pFigure = try $ do let pImg = (\x -> (Just x, Nothing)) <$> (pOptInTag "p" pImage <* skipMany pBlank) pCapt = (\x -> (Nothing, Just x)) <$> do - skipMany pBlank bs <- pInTags "figcaption" block - skipMany pBlank return $ blocksToInlines' $ B.toList bs pSkip = (Nothing, Nothing) <$ pSatisfy (not . matchTagClose "figure") res <- many (pImg <|> pCapt <|> pSkip) |