@@ -30,8 +30,7 @@ import Text.Pandoc.Error (PandocError)
3030import Text.Pandoc.Shared (stringify)
3131import qualified Text.Pandoc.Walk as Walk
3232import Citeproc.Types
33−import Citeproc.CaseTransform (withSentenceCase)
34−import Citeproc.Pandoc (caseTransform)
33+import Citeproc.Pandoc
3534import Text.Pandoc.Citeproc.Util (toIETF)
3635import Text.Pandoc.Citeproc.Data (biblatexStringMap)
3736import Data.Default
@@ -736,7 +735,7 @@ protectCase f = Walk.walk unprotect . f . Walk.walk protect
736735 startsWithLowercase _ = False
737736
738737unTitlecase :: Maybe Lang -> Inlines -> Inlines
739−unTitlecase mblang = protectCase (caseTransform (withSentenceCase mblang))
738+unTitlecase mblang = protectCase (addTextCase mblang SentenceCase)
740739
741740getTitle :: Text -> Bib Inlines
742741getTitle f = do