From da57775171d3575816f9b6a0d77fe6872e5d89b7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 12 Nov 2011 13:03:11 -0800
Subject: [PATCH] LaTeX reader: Ignore empty groups {}, { }.
Closes #322.
---
src/Text/Pandoc/Readers/LaTeX.hs | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 02c7361d7..c965c65ce 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -574,6 +574,7 @@ inline = choice [ str
, ensureMath
, rawLaTeXInline'
, escapedChar
+ , emptyGroup
, unescapedChar
, comment
] <?> "inline"
@@ -677,6 +678,13 @@ escapedChar = do
result <- escaped (oneOf specialChars)
return $ if result == Str "\n" then Str " " else result
+emptyGroup :: GenParser Char st Inline
+emptyGroup = try $ do
+ char '{'
+ spaces
+ char '}'
+ return $ Str ""
+
-- nonescaped special characters
unescapedChar :: GenParser Char st Inline
unescapedChar = oneOf "`$^&_#{}[]|<>" >>= return . (\c -> Str [c])