aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/CslJson.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/CslJson.hs b/src/Text/Pandoc/Writers/CslJson.hs
index f0defdd38..a10def95e 100644
--- a/src/Text/Pandoc/Writers/CslJson.hs
+++ b/src/Text/Pandoc/Writers/CslJson.hs
@@ -47,7 +47,7 @@ writeCslJson _opts (Pandoc meta _) = do
Left e -> throwError $ PandocCiteprocError e
Right l -> return l
let rs = case lookupMeta "references" meta of
- Just (MetaList rs) -> rs
+ Just (MetaList xs) -> xs
_ -> []
return $ UTF8.toText
(toCslJson locale (mapMaybe metaValueToReference rs)) <> "\n"