From 3e337eb9c86e6776cea1c4f4770d5a48d084aafb Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 28 Aug 2007 07:19:07 +0000
Subject: Removed unneeded try in rawHtmlBlocks (Markdown parser).

git-svn-id: https://pandoc.googlecode.com/svn/trunk@936 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Readers/Markdown.hs | 4 ++--
 1 file 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'
-- 
cgit v1.2.3