summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2023-09-21 14:21:16 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2023-09-21 14:22:30 -0700
commita19cd39a6fae3f5595c7935fbc83d4edc82300d8 (patch)
tree59ee3f9cf1746a83ce981006257a04ca0cff4a84
parent26d077fa21014327ebc4ce3166f1cb8494478b6a (diff)
JATS writer: fix 3.1.4 regression in handling block-level metadata.
Closes #9092.
-rw-r--r--src/Text/Pandoc/Writers/JATS.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 2492a0649..153dfc133 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -124,7 +124,7 @@ docToJATS opts (Pandoc meta blocks') = do
then Just $ writerColumns opts
else Nothing
metadata <- metaToContext opts
- (blocksToJATS opts)
+ (blocksToJATS opts . makeSections False (Just startLvl))
(fmap chomp . inlinesToJATS opts)
meta
main <- blocksToJATS opts bodyblocks