aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-04-29 19:28:23 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-04-29 19:28:23 +0000
commitf43ae9edb4825572f05c0fef5b7f9c82d20c27ab (patch)
treeb65e8904713f751385a35979043cd78906c9cbff /src/Text/Pandoc
parentdf5244fd486c20fa6125d371898c211906eed58b (diff)
downloadpandoc-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')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs4
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