diff options
| author | John MacFarlane <[email protected]> | 2025-11-28 10:38:11 +0100 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-11-28 10:38:11 +0100 |
| commit | c8e4d4d55aa8e60b3b71e9e8cfa6b1640e5e626f (patch) | |
| tree | f91c8c1884aadd170ed61150bc3d3d8ba305fbd9 | |
| parent | 6c74d926bbced7e6a1da013e17a3625ad1ead9bb (diff) | |
Avoid double attribute on code block.
| -rw-r--r-- | src/Text/Pandoc/Readers/AsciiDoc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/AsciiDoc.hs b/src/Text/Pandoc/Readers/AsciiDoc.hs index 580fa4246..608160f97 100644 --- a/src/Text/Pandoc/Readers/AsciiDoc.hs +++ b/src/Text/Pandoc/Readers/AsciiDoc.hs @@ -222,7 +222,7 @@ doBlock (A.Block attr@(A.Attr ps kvs) mbtitle bt) = do pure $ B.codeBlockWith ("", classes, []) code A.IncludeListing _ _ Nothing -> pure mempty A.IncludeListing mblang _fp (Just lns) -> - doBlock (A.Block attr mbtitle (A.Listing mblang lns)) + doBlock (A.Block mempty mbtitle (A.Listing mblang lns)) A.ExampleBlock bs -> B.divWith ("",["example"],[]) <$> doBlocks bs A.Sidebar bs -> B.divWith ("",["sidebar"],[]) <$> doBlocks bs A.OpenBlock bs -> B.divWith ("",[],[]) <$> doBlocks bs |