From d0a5f2aded6ace0e6310b622d6560fa9fee1d9e3 Mon Sep 17 00:00:00 2001
From: Mauro Bieg <mb21@users.noreply.github.com>
Date: Sun, 10 Feb 2019 16:22:12 +0100
Subject: JATS writer: wrap figure caption in <p> to fix validation (#5292)

closes #5290
---
 src/Text/Pandoc/Writers/JATS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 565ed6589..03bcde414 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -230,7 +230,7 @@ blockToJATS opts (Para [Image (ident,_,kvs) txt
   let (maintype, subtype) = imageMimeType src kvs
   let capt = if null txt
                 then empty
-                else inTagsSimple "caption" alt
+                else inTagsSimple "caption" $ inTagsSimple "p" alt
   let attr = [("id", ident) | not (null ident)] ++
              [(k,v) | (k,v) <- kvs, k `elem` ["fig-type", "orientation",
                                               "position", "specific-use"]]
-- 
cgit v1.2.3