git.iko.soy/typeable/pandoc
on master help sign in
JATS Writer: do not emit empty <fn-group> (#5595)

introduced by e87b54dcad5e37133bc0f4cfc8039e9fd0dd1b4e

commitecea807397ac777cf208d90b64e04208b0631c8b authorMauro Bieg <mb21@users.noreply.github.com> dateFri 21 Jun 2019, 19:06 (7 years ago) parentf0edf60
1 file changed+3−1
src/Text/Pandoc/Writers/JATS.hs+3−1
src/Text/Pandoc/Writers/JATS.hs+3−1
@@ -88,7 +88,9 @@ docToJATS opts (Pandoc meta blocks) = do
8888 mapM (elementToJATS opts' startLvl) elements
8989 notes <- reverse . map snd <$> gets jatsNotes
9090 backs <- mapM (elementToJATS opts' startLvl) backElements
91− let fns = inTagsIndented "fn-group" $ vcat notes
91+ let fns = if null notes
92+ then mempty
93+ else inTagsIndented "fn-group" $ vcat notes
9294 let back = render' $ vcat backs $$ fns
9395 let date = case getField "date" metadata -- an object
9496 `mplus`