@@ -930,7 +930,9 @@ simpleCite = try $ do
930930 mintext = ["textcites"]
931931 mnormal = map (++ "s") biblatex
932932 cmdend = notFollowedBy (letter <|> char '*')
933− addUpper xs = xs ++ map (\(c:cs) -> toUpper c : cs) xs
933+ capit [] = []
934+ capit (x:xs) = toUpper x : xs
935+ addUpper xs = xs ++ map capit xs
934936 toparser l t = try $ oneOfStrings (addUpper l) >> cmdend >> return t
935937 (mode, multi) <- toparser normal (NormalCitation, False)
936938 <|> toparser supress (SuppressAuthor, False)