diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 09:13:11 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-26 17:23:56 -0800 |
commit | 80f5a89a0bc7342fed7251d4e3f3bc8bda1a7acc (patch) | |
tree | 8604ef632b39b46522df76adf630b8ab0352df78 /src/Text/Pandoc/Readers/LaTeX.hs | |
parent | 066cbbad76a71c3c782216066de3d32fce79af72 (diff) | |
download | pandoc-80f5a89a0bc7342fed7251d4e3f3bc8bda1a7acc.tar.gz |
LaTeX reader: Fixed an incomplete pattern match.
Diffstat (limited to 'src/Text/Pandoc/Readers/LaTeX.hs')
-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) |