From eff6b8f27d482ae56e49752d38bd985734a2b414 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 27 Sep 2020 16:03:31 -0700 Subject: Use latest citeproc. --- src/Text/Pandoc/Citeproc/BibTeX.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Citeproc/BibTeX.hs b/src/Text/Pandoc/Citeproc/BibTeX.hs index 607442adb..a611c1850 100644 --- a/src/Text/Pandoc/Citeproc/BibTeX.hs +++ b/src/Text/Pandoc/Citeproc/BibTeX.hs @@ -30,8 +30,7 @@ import Text.Pandoc.Error (PandocError) import Text.Pandoc.Shared (stringify) import qualified Text.Pandoc.Walk as Walk import Citeproc.Types -import Citeproc.CaseTransform (withSentenceCase) -import Citeproc.Pandoc (caseTransform) +import Citeproc.Pandoc import Text.Pandoc.Citeproc.Util (toIETF) import Text.Pandoc.Citeproc.Data (biblatexStringMap) import Data.Default @@ -736,7 +735,7 @@ protectCase f = Walk.walk unprotect . f . Walk.walk protect startsWithLowercase _ = False unTitlecase :: Maybe Lang -> Inlines -> Inlines -unTitlecase mblang = protectCase (caseTransform (withSentenceCase mblang)) +unTitlecase mblang = protectCase (addTextCase mblang SentenceCase) getTitle :: Text -> Bib Inlines getTitle f = do -- cgit v1.2.3