Biblio: Remove workaround for toCapital.
Now citeproc-hs is fixed upstream, so this is no longer needed. Closes #531.
This commit is contained in:
parent
c13f23e0b1
commit
685e281251
1 changed files with 2 additions and 10 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue