From fec8223d3a6979f675513300b2211c6235b8bccd Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 21 Nov 2020 12:06:01 -0800 Subject: Citeproc BibTeX parser: revert change in getRawField... which was made (for reasons forgotten) when transferring this code from pandoc-citeproc. The change led to `--` in URLs being interpreted as en-dashes, which is unwanted. Closes #6874. --- src/Text/Pandoc/Citeproc/BibTeX.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/Text/Pandoc/Citeproc') 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 -- cgit v1.2.3