Update JATS.hs

jgm · Sep 26, 2024 · d507d3f · d507d3f
1 parent 17ffe15
commit d507d3f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
@@ -99,6 +99,7 @@ addCreditName val =
                case M.lookup creditId creditNames of
                  Nothing -> val
                  Just creditName -> MapVal $ resetField "credit-name" creditName ctx
+    _ -> val
 
 -- | Convert a @'Pandoc'@ document to JATS (Archiving and Interchange
 -- Tag Set.)