From 8e327ea4e3e46deff3caab0124a777afa93395ff Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 8 May 2025 11:28:00 -0700 Subject: DocBook writer: use literallayout element for LineBlock. See #10825. --- src/Text/Pandoc/Writers/DocBook.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/DocBook.hs b/src/Text/Pandoc/Writers/DocBook.hs index a2daf897e..ddbf73366 100644 --- a/src/Text/Pandoc/Writers/DocBook.hs +++ b/src/Text/Pandoc/Writers/DocBook.hs @@ -246,7 +246,7 @@ blockToDocBook opts (Para lst) <$> inlinesToDocBook opts lst | otherwise = inTagsIndented "para" <$> inlinesToDocBook opts lst blockToDocBook opts (LineBlock lns) = - blockToDocBook opts $ linesToPara lns + inTags False "literallayout" [] . vcat <$> mapM (inlinesToDocBook opts) lns blockToDocBook opts (BlockQuote blocks) = inTagsIndented "blockquote" <$> blocksToDocBook opts blocks blockToDocBook opts (CodeBlock (_,classes,_) str) = return $ -- cgit v1.2.3