Biblio: Remove workaround for toCapital.

Now citeproc-hs is fixed upstream, so this is no longer needed.
Closes #531.

1 files changed, 2 insertions, 10 deletions

diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs
index 13569a4d9..eb82f10b2 100644
--- a/src/Text/Pandoc/Biblio.hs
+++ b/src/Text/Pandoc/Biblio.hs
@@ -92,16 +92,8 @@ mvPunct (Space : x : ys) | isNote x = x : ys
 mvPunct xs = xs
 
 sanitize :: [Inline] -> [Inline]
-sanitize xs | endWithPunct xs = toCapital' xs
-            | otherwise       = toCapital' (xs ++ [Str "."])
-
--- NOTE: toCapital' works around a bug in toCapital from citeproc-hs 0.3.4.
--- When citeproc-hs is fixed, we can return to using toCapital in sanitize.
-toCapital' :: [Inline] -> [Inline]
-toCapital' [] = []
-toCapital' xs = case toCapital xs of
-                       [] -> xs
-                       ys -> ys
+sanitize xs | endWithPunct xs = toCapital xs
+            | otherwise       = toCapital (xs ++ [Str "."])
 
 deNote :: [Block] -> [Block]
 deNote = topDown go