diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-04-29 19:28:23 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-04-29 19:28:23 +0000 |
commit | f43ae9edb4825572f05c0fef5b7f9c82d20c27ab (patch) | |
tree | b65e8904713f751385a35979043cd78906c9cbff /src/Text/Pandoc/Readers/Markdown.hs | |
parent | df5244fd486c20fa6125d371898c211906eed58b (diff) | |
download | pandoc-f43ae9edb4825572f05c0fef5b7f9c82d20c27ab.tar.gz |
Took out unneeded 'try' in indentSpaces parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1563 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |