From 9c8ff53b54836cbe7fa9417784f3204cd041f3ac Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sun, 31 Jan 2021 14:37:47 +0100
Subject: CslJson writer: fix compiler warning

---
 src/Text/Pandoc/Writers/CslJson.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

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"
-- 
cgit v1.2.3