diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 1944dd651..d20acac92 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -930,7 +930,9 @@ simpleCite = try $ do mintext = ["textcites"] mnormal = map (++ "s") biblatex cmdend = notFollowedBy (letter <|> char '*') - addUpper xs = xs ++ map (\(c:cs) -> toUpper c : cs) xs + capit [] = [] + capit (x:xs) = toUpper x : xs + addUpper xs = xs ++ map capit xs toparser l t = try $ oneOfStrings (addUpper l) >> cmdend >> return t (mode, multi) <- toparser normal (NormalCitation, False) <|> toparser supress (SuppressAuthor, False) |