diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-10-05 16:35:51 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-10-05 16:35:51 -0700 |
| commit | 128991d4a43238cc92febd167b8babf38649f6e2 (patch) | |
| tree | b652b5eb50946f34098b76ef6c9a5086f06e8a8f /src/Text/Pandoc/Writers/CslJson.hs | |
| parent | 68454e08126e3212d3df1c8e5502e4edbb951c88 (diff) | |
| download | pandoc-128991d4a43238cc92febd167b8babf38649f6e2.tar.gz | |
Add filtering to metaValueToReference, and check other-ids field too.
Diffstat (limited to 'src/Text/Pandoc/Writers/CslJson.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/CslJson.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/CslJson.hs b/src/Text/Pandoc/Writers/CslJson.hs index 9f6f2f8ea..4f4fad212 100644 --- a/src/Text/Pandoc/Writers/CslJson.hs +++ b/src/Text/Pandoc/Writers/CslJson.hs @@ -48,7 +48,8 @@ writeCslJson _opts (Pandoc meta _) = do Right l -> return l case lookupMeta "references" meta of Just (MetaList rs) -> return $ (UTF8.toText $ - toCslJson locale (mapMaybe metaValueToReference rs)) <> "\n" + toCslJson locale (mapMaybe (metaValueToReference (const True)) rs)) + <> "\n" _ -> throwError $ PandocAppError "No references field" fromInlines :: [Inline] -> CslJson Text |