aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-09-26 16:27:20 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-09-26 16:27:20 -0700
commit685e2812514ab9674df45837186ffcf76547c185 (patch)
tree3e6dab5ed593873289bc0c73163a3570d901fb5c /src/Text/Pandoc
parentc13f23e0b19d8a6633a1a815114947f79dfb48cc (diff)
downloadpandoc-685e2812514ab9674df45837186ffcf76547c185.tar.gz
Biblio: Remove workaround for toCapital.
Now citeproc-hs is fixed upstream, so this is no longer needed. Closes #531.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Biblio.hs12
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