diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-09-26 16:27:20 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-26 16:27:20 -0700 |
commit | 685e2812514ab9674df45837186ffcf76547c185 (patch) | |
tree | 3e6dab5ed593873289bc0c73163a3570d901fb5c /src/Text/Pandoc | |
parent | c13f23e0b19d8a6633a1a815114947f79dfb48cc (diff) | |
download | pandoc-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.hs | 12 |
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 |