@@ -88,7 +88,9 @@ docToJATS opts (Pandoc meta blocks) = do
88 mapM (elementToJATS opts' startLvl) elements
88 mapM (elementToJATS opts' startLvl) elements
89 notes <- reverse . map snd <$> gets jatsNotes
89 notes <- reverse . map snd <$> gets jatsNotes
90 backs <- mapM (elementToJATS opts' startLvl) backElements
90 backs <- mapM (elementToJATS opts' startLvl) backElements
91+ let fns = if null notes
91− let fns = inTagsIndented "fn-group" $ vcat notes
93+ else inTagsIndented "fn-group" $ vcat notes
92 let back = render' $ vcat backs $$ fns
94 let back = render' $ vcat backs $$ fns
93 let date = case getField "date" metadata -- an object
95 let date = case getField "date" metadata -- an object