@@ -601,9 +601,7 @@ pFigure = try $ do
601601 let pImg = (\x -> (Just x, Nothing)) <$>
602602 (pOptInTag "p" pImage <* skipMany pBlank)
603603 pCapt = (\x -> (Nothing, Just x)) <$> do
604− skipMany pBlank
605604 bs <- pInTags "figcaption" block
606− skipMany pBlank
607605 return $ blocksToInlines' $ B.toList bs
608606 pSkip = (Nothing, Nothing) <$ pSatisfy (not . matchTagClose "figure")
609607 res <- many (pImg <|> pCapt <|> pSkip)