Took out unneeded 'try' in indentSpaces parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1563 788f1e2b-df1e-0410-8736-df70ead52e1b
commitf43ae9edb4825572f05c0fef5b7f9c82d20c27ab
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateWed 29 Apr 2009, 19:28 (17 years ago)
parentdf5244f
src/Text/Pandoc/Readers/Markdown.hs+2−2
@@ -79,8 +79,8 @@ indentSpaces :: GenParser Char ParserState [Char]
7979indentSpaces = try $ do
8080 state <- getState
8181 let tabStop = stateTabStop state
82− try (count tabStop (char ' ')) <|>
83− (many (char ' ') >> string "\t") <?> "indentation"
82+ count tabStop (char ' ') <|>
83+ string "\t" <?> "indentation"
8484
8585nonindentSpaces :: GenParser Char ParserState [Char]
8686nonindentSpaces = do