@@ -76,7 +76,7 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
7676-- | Read blocks until end tag.
7777blocksTilEnd tag = try (do
7878 blocks <- manyTill (do {b <- block; spaces; return b}) (htmlEndTag tag)
79− return blocks)
79+ return $ filter (/= Null) blocks)
8080
8181-- | Read inlines until end tag.
8282inlinesTilEnd tag = try (do
@@ -288,7 +288,7 @@ parseHtml = do
288288parseBlocks = do
289289 spaces
290290 result <- sepEndBy block spaces
291− return result
291+ return $ filter (/= Null) result
292292
293293block = choice [ codeBlock, header, hrule, list, blockQuote, para, plain,
294294 rawHtmlBlock ] <?> "block"