From 4f137756a6cc8f696a9e4ae79a4d1604c09b307e Mon Sep 17 00:00:00 2001 From: Evan Silberman Date: Wed, 13 Nov 2024 17:11:13 -0800 Subject: [PATCH] Resume using parseInlines in multiline enclosures instead of the less-accurate "many parseInline", which probably crept in while I was trying to fix something weird. --- src/Text/Pandoc/Readers/Mdoc.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Text/Pandoc/Readers/Mdoc.hs b/src/Text/Pandoc/Readers/Mdoc.hs index ed92706e2518..74ae46491b51 100644 --- a/src/Text/Pandoc/Readers/Mdoc.hs +++ b/src/Text/Pandoc/Readers/Mdoc.hs @@ -536,15 +536,14 @@ multilineEnclosure op cl xform = do modifyState $ \s -> s{inLineEnclosure = False} openDelim <- mconcat <$> many (parseDelim Open) optional eol - contents <- many parseInline + contents <- parseInlines (macro cl show cl) closeDelim <- if amNested then mempty else mconcat <$> many (parseDelim Close) <* optional eol modifyState $ \s -> s{inLineEnclosure = amNested} - contents' <- spacify contents - return $ openDelim <> xform contents' <> closeDelim + return $ openDelim <> xform contents <> closeDelim parseEo :: PandocMonad m => MdocParser m Inlines parseEo = do