@@ -46,11 +46,11 @@ writeCslJson _opts (Pandoc meta _) = do
4646 locale <- case getLocale lang of
4747 Left e -> throwError $ PandocCiteprocError e
4848 Right l -> return l
49− case lookupMeta "references" meta of
50− Just (MetaList rs) -> return $ (UTF8.toText $
51− toCslJson locale (mapMaybe metaValueToReference rs))
52− <> "\n"
53− _ -> throwError $ PandocAppError "No references field"
49+ let rs = case lookupMeta "references" meta of
50+ Just (MetaList rs) -> rs
51+ _ -> []
52+ return $ UTF8.toText
53+ (toCslJson locale (mapMaybe metaValueToReference rs)) <> "\n"
5454
5555fromInlines :: [Inline] -> CslJson Text
5656fromInlines = foldMap fromInline . B.fromList