aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-28 07:19:07 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-28 07:19:07 +0000
commit3e337eb9c86e6776cea1c4f4770d5a48d084aafb (patch)
tree5dff49f4eeb0a5b59d08333f78bcc03f689d2408 /src/Text
parent74dc62e7300b42f020005ec0f56a52e5ad41e1e0 (diff)
downloadpandoc-3e337eb9c86e6776cea1c4f4770d5a48d084aafb.tar.gz
Removed unneeded try in rawHtmlBlocks (Markdown parser).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@936 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
-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 d8c6edf22..e6914ce66 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -306,7 +306,7 @@ list = choice [ bulletList, orderedList, definitionList ] <?> "list"
bulletListStart = try $ do
optional newline -- if preceded by a Plain block in a list context
nonindentSpaces
- notFollowedBy' hrule -- because hrules start out just like lists
+ notFollowedBy' hrule -- because hrules start out just like lists
oneOf bulletListMarkers
spaceChar
skipSpaces
@@ -473,7 +473,7 @@ strictHtmlBlock = try $ do
end <- htmlEndTag tag'
return $ tag ++ concat contents ++ end
-rawHtmlBlocks = try $ do
+rawHtmlBlocks = do
htmlBlocks <- many1 rawHtmlBlock
let combined = concatMap (\(RawHtml str) -> str) htmlBlocks
let combined' = if not (null combined) && last combined == '\n'