aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <[email protected]>2025-05-08 11:28:00 -0700
committerJohn MacFarlane <[email protected]>2025-05-08 11:28:00 -0700
commit8e327ea4e3e46deff3caab0124a777afa93395ff (patch)
treef8c2b9cd1a63c920d5cb20a322ad5dc9b07bee3b /src
parent60b4011902d202e25b22542127f10f180c27d87d (diff)
DocBook writer: use literallayout element for LineBlock.
See #10825.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/DocBook.hs2
1 files changed, 1 insertions, 1 deletions
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 $