diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 9442e2506..930fc29fd 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -528,7 +528,9 @@ parseInline (Elem e) = return $ if refType == Just ("ref-type","bibr") then cite (map (\id' -> - Citation{ citationId = id' + let id'' = fromMaybe id' $ + T.stripPrefix "ref-" id' + in Citation { citationId = id'' , citationPrefix = [] , citationSuffix = [] , citationMode = NormalCitation |