diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-31 16:46:48 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-31 16:46:48 +0000 |
| commit | 83cddbc68233ea0efe71a036c88bfb2b4a3cfe6b (patch) | |
| tree | e1033e6678d5049c7bf85616948d03559a5aabc7 /src/Text/Pandoc | |
| parent | 68122303c0f39d0ef23338d401898d4300cdd95f (diff) | |
| download | pandoc-83cddbc68233ea0efe71a036c88bfb2b4a3cfe6b.tar.gz | |
Removed unneeded 'do' block from 'parseBlocks' definition
in Markdown reader.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@352 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 0d58dd87f..585f813d7 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -181,9 +181,7 @@ parseMarkdown = do -- parsing blocks -- -parseBlocks = do - result <- manyTill block eof - return result +parseBlocks = manyTill block eof block = choice [ codeBlock, note, referenceKey, header, hrule, list, blockQuote, htmlBlock, rawLaTeXEnvironment', para, |