From f43ae9edb4825572f05c0fef5b7f9c82d20c27ab Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Wed, 29 Apr 2009 19:28:23 +0000 Subject: Took out unneeded 'try' in indentSpaces parser. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1563 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Readers/Markdown.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 18a8eda07..825a15440 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -79,8 +79,8 @@ indentSpaces :: GenParser Char ParserState [Char] indentSpaces = try $ do state <- getState let tabStop = stateTabStop state - try (count tabStop (char ' ')) <|> - (many (char ' ') >> string "\t") "indentation" + count tabStop (char ' ') <|> + string "\t" "indentation" nonindentSpaces :: GenParser Char ParserState [Char] nonindentSpaces = do -- cgit v1.2.3