@@ -61,7 +61,8 @@ readBibtexString :: Variant -- ^ bibtex or biblatex
61readBibtexString variant locale idpred contents = do
61readBibtexString variant locale idpred contents = do
62 case runParser (((resolveCrossRefs variant <$> bibEntries) <* eof) >>=
62 case runParser (((resolveCrossRefs variant <$> bibEntries) <* eof) >>=
63 mapM (itemToReference locale variant) .
63 mapM (itemToReference locale variant) .
64− filter (idpred . identifier))
64+ filter (\item -> idpred (identifier item) &&
65+ entryType item /= "xdata"))
65 (fromMaybe defaultLang $ localeLanguage locale, Map.empty)
66 (fromMaybe defaultLang $ localeLanguage locale, Map.empty)
66 "" contents of
67 "" contents of
67 Left err -> Left err
68 Left err -> Left err
@@ -1058,7 +1059,6 @@ getTypeAndGenre :: Bib (Text, Maybe Text)
1058getTypeAndGenre = do
1059getTypeAndGenre = do
1059 lang <- gets localeLang
1060 lang <- gets localeLang
1060 et <- asks entryType
1061 et <- asks entryType
1061− guard $ et /= "xdata"
1062 reftype' <- resolveKey' lang <$> getRawField "type"
1062 reftype' <- resolveKey' lang <$> getRawField "type"
1063 <|> return mempty
1063 <|> return mempty
1064 st <- getRawField "entrysubtype" <|> return mempty
1064 st <- getRawField "entrysubtype" <|> return mempty