diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-11-01 15:43:51 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-11-01 15:43:51 +0100 |
| commit | 759aa5095101351bc2e4d2c4629df945b743e7db (patch) | |
| tree | 178ed85af6d0dae421307aa5f5eabad55501a9b8 /src/Text/Pandoc/Lua/Marshaling | |
| parent | 1c02145d934c58c3db4de64ed1e16128ecb54c69 (diff) | |
| download | pandoc-759aa5095101351bc2e4d2c4629df945b743e7db.tar.gz | |
Lua: restore `content` property on Header elements
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling')
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AST.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs index 07b11b3ea..883a6dce2 100644 --- a/src/Text/Pandoc/Lua/Marshaling/AST.hs +++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs @@ -340,6 +340,7 @@ getBlockContent = \case -- inline content Para inlns -> Actual $ ContentInlines inlns Plain inlns -> Actual $ ContentInlines inlns + Header _ _ inlns -> Actual $ ContentInlines inlns -- inline content BlockQuote blks -> Actual $ ContentBlocks blks Div _ blks -> Actual $ ContentBlocks blks @@ -357,6 +358,7 @@ setBlockContent = \case -- inline content Para _ -> Actual . Para . inlineContent Plain _ -> Actual . Plain . inlineContent + Header attr lvl _ -> Actual . Header attr lvl . inlineContent -- block content BlockQuote _ -> Actual . BlockQuote . blockContent Div attr _ -> Actual . Div attr . blockContent |