From f688086979307bb5c81ffe61ed09493bc72785a5 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 27 Dec 2017 12:38:04 -0800
Subject: Small improvement to figcaption parsing.  #4184.

---
 src/Text/Pandoc/Readers/HTML.hs | 2 --
 1 file changed, 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)
-- 
cgit v1.2.3