From 80f5a89a0bc7342fed7251d4e3f3bc8bda1a7acc Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 26 Jan 2011 09:13:11 -0800
Subject: LaTeX reader: Fixed an incomplete pattern match.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers/LaTeX.hs')

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)
-- 
cgit v1.2.3