diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/CslJson.hs | 2 |
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" |