diff options
-rw-r--r-- | src/Text/Pandoc/Citeproc/BibTeX.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Citeproc/BibTeX.hs b/src/Text/Pandoc/Citeproc/BibTeX.hs index b24ad0319..552339df0 100644 --- a/src/Text/Pandoc/Citeproc/BibTeX.hs +++ b/src/Text/Pandoc/Citeproc/BibTeX.hs @@ -822,12 +822,11 @@ getOldDate prefix = do , dateLiteral = literal } getRawField :: Text -> Bib Text -getRawField f = - (stringify <$> getField f) - <|> do fs <- asks fields - case Map.lookup f fs of - Just x -> return x - Nothing -> notFound f +getRawField f = do + fs <- asks fields + case Map.lookup f fs of + Just x -> return x + Nothing -> notFound f getLiteralList :: Text -> Bib [Inlines] getLiteralList f = do |