diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 09:24:56 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-06 09:24:56 -0800 |
commit | 81ea1a59b4ec881d3d53cc946fc63ac29e5291aa (patch) | |
tree | abd6dfaaa7235e0dc2c41f8c6ea3c4de6be47e08 | |
parent | 1be2ca6c785f0001605ef9347107ae98383feef9 (diff) | |
download | pandoc-81ea1a59b4ec881d3d53cc946fc63ac29e5291aa.tar.gz |
LaTeX reader: Removed unnecessary 'spaces'.
-rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 67556eebe..d0bd9270e 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -290,7 +290,6 @@ orderedList = try $ do bulletList :: GenParser Char ParserState Block bulletList = try $ do begin "itemize" - spaces items <- many listItem end "itemize" spaces @@ -299,7 +298,6 @@ bulletList = try $ do definitionList :: GenParser Char ParserState Block definitionList = try $ do begin "description" - spaces items <- many listItem end "description" spaces @@ -761,7 +759,6 @@ math4 = try $ do name <- begin "displaymath" <|> begin "equation" <|> begin "equation*" <|> begin "gather" <|> begin "gather*" <|> begin "gathered" <|> begin "multline" <|> begin "multline*" - spaces manyTill anyChar (end name) math5 :: GenParser Char st String @@ -772,7 +769,6 @@ math6 = try $ do name <- begin "eqnarray" <|> begin "eqnarray*" <|> begin "align" <|> begin "align*" <|> begin "alignat" <|> begin "alignat*" <|> begin "split" <|> begin "aligned" <|> begin "alignedat" - spaces res <- manyTill anyChar (end name) return $ filter (/= '&') res -- remove alignment codes |