diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-01 02:10:30 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-01 02:10:30 +0000 |
commit | 8d3bec3e4d8cbd5c623e7d83f271a361e761d16a (patch) | |
tree | 2364615ea47e8ac64ab9d4a03f3125c3a3b65cfb /src/Text | |
parent | bdf78fe33f09979cc0542623e0023a0c3750ba55 (diff) | |
download | pandoc-8d3bec3e4d8cbd5c623e7d83f271a361e761d16a.tar.gz |
Removed unnecessary 'try' in 'codeBlock'.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@977 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 0306ed7c5..a0d6e9968 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -266,7 +266,7 @@ hrule = try $ do indentedLine = indentSpaces >> manyTill anyChar newline >>= return . (++ "\n") -codeBlock = try $ do +codeBlock = do contents <- many1 (indentedLine <|> try (do b <- blanklines l <- indentedLine |