@@ -306,7 +306,7 @@ list = choice [ bulletList, orderedList, definitionList ] <?> "list"
306306bulletListStart = try $ do
307307 optional newline -- if preceded by a Plain block in a list context
308308 nonindentSpaces
309− notFollowedBy' hrule -- because hrules start out just like lists
309+ notFollowedBy' hrule -- because hrules start out just like lists
310310 oneOf bulletListMarkers
311311 spaceChar
312312 skipSpaces
@@ -473,7 +473,7 @@ strictHtmlBlock = try $ do
473473 end <- htmlEndTag tag'
474474 return $ tag ++ concat contents ++ end
475475
476−rawHtmlBlocks = try $ do
476+rawHtmlBlocks = do
477477 htmlBlocks <- many1 rawHtmlBlock
478478 let combined = concatMap (\(RawHtml str) -> str) htmlBlocks
479479 let combined' = if not (null combined) && last combined == '\n'