@@ -306,7 +306,7 @@ list = choice [ bulletList, orderedList, definitionList ] <?> "list"
306bulletListStart = try $ do
306bulletListStart = try $ do
307 optional newline -- if preceded by a Plain block in a list context
307 optional newline -- if preceded by a Plain block in a list context
308 nonindentSpaces
308 nonindentSpaces
309− notFollowedBy' hrule -- because hrules start out just like lists
309+ notFollowedBy' hrule -- because hrules start out just like lists
310 oneOf bulletListMarkers
310 oneOf bulletListMarkers
311 spaceChar
311 spaceChar
312 skipSpaces
312 skipSpaces
@@ -473,7 +473,7 @@ strictHtmlBlock = try $ do
473 end <- htmlEndTag tag'
473 end <- htmlEndTag tag'
474 return $ tag ++ concat contents ++ end
474 return $ tag ++ concat contents ++ end
476−rawHtmlBlocks = try $ do
476+rawHtmlBlocks = do
477 htmlBlocks <- many1 rawHtmlBlock
477 htmlBlocks <- many1 rawHtmlBlock
478 let combined = concatMap (\(RawHtml str) -> str) htmlBlocks
478 let combined = concatMap (\(RawHtml str) -> str) htmlBlocks
479 let combined' = if not (null combined) && last combined == '\n'
479 let combined' = if not (null combined) && last combined == '\n'