git.iko.soy/typeable/pandoc
on master help sign in
CslJson writer: fix compiler warning
9c8ff53Albert Krewinkel
src/Text/Pandoc/Writers/CslJson.hs+1−1
compare with master
unifiedsplit
@@ -47,7 +47,7 @@ writeCslJson _opts (Pandoc meta _) = do
47 Left e -> throwError $ PandocCiteprocError e
47 Left e -> throwError $ PandocCiteprocError e
48 Right l -> return l
48 Right l -> return l
49 let rs = case lookupMeta "references" meta of
49 let rs = case lookupMeta "references" meta of
50− Just (MetaList rs) -> rs
50+ Just (MetaList xs) -> xs
51 _ -> []
51 _ -> []
52 return $ UTF8.toText
52 return $ UTF8.toText
53 (toCslJson locale (mapMaybe metaValueToReference rs)) <> "\n"
53 (toCslJson locale (mapMaybe metaValueToReference rs)) <> "\n"