diff options
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/JATS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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"]] |