From eb3307da4e53097da52997e276c08b188ed40960 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 15 Oct 2020 17:41:13 -0700
Subject: Fix handling of xdata in bibtex/biblatex bibliographies.

Closes #6752.
---
 src/Text/Pandoc/Citeproc/BibTeX.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Citeproc/BibTeX.hs b/src/Text/Pandoc/Citeproc/BibTeX.hs
index 4828115b6..b24ad0319 100644
--- a/src/Text/Pandoc/Citeproc/BibTeX.hs
+++ b/src/Text/Pandoc/Citeproc/BibTeX.hs
@@ -61,7 +61,8 @@ readBibtexString :: Variant           -- ^ bibtex or biblatex
 readBibtexString variant locale idpred contents = do
   case runParser (((resolveCrossRefs variant <$> bibEntries) <* eof) >>=
                    mapM (itemToReference locale variant) .
-                      filter (idpred . identifier))
+                      filter (\item -> idpred (identifier item) &&
+                                        entryType item /= "xdata"))
            (fromMaybe defaultLang $ localeLanguage locale, Map.empty)
            "" contents of
           Left err -> Left err
@@ -1058,7 +1059,6 @@ getTypeAndGenre :: Bib (Text, Maybe Text)
 getTypeAndGenre = do
   lang <- gets localeLang
   et <- asks entryType
-  guard $ et /= "xdata"
   reftype' <- resolveKey' lang <$> getRawField "type"
          <|> return mempty
   st <- getRawField "entrysubtype" <|> return mempty
-- 
cgit v1.2.3