From d507d3f61f39677450fd2ab827adb3c8061767de Mon Sep 17 00:00:00 2001
From: Charles Tapley Hoyt <cthoyt@gmail.com>
Date: Thu, 26 Sep 2024 20:17:17 +0200
Subject: [PATCH] Update JATS.hs

---
 src/Text/Pandoc/Writers/JATS.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 935ec7761aa4..28f2d5276e70 100644
--- 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.)