diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-01-31 14:37:47 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-01-31 14:37:47 +0100 |
| commit | 9c8ff53b54836cbe7fa9417784f3204cd041f3ac (patch) | |
| tree | 1157234839caed0dc90b8570f625be2666146841 /src/Text/Pandoc | |
| parent | a9adb2964862fd8074cf9dfdcb8248d3a13665c5 (diff) | |
| download | pandoc-9c8ff53b54836cbe7fa9417784f3204cd041f3ac.tar.gz | |
CslJson writer: fix compiler warning
Diffstat (limited to 'src/Text/Pandoc')
| -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" |