diff options
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -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 |