@@ -76,7 +76,7 @@ inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
76-- | Read blocks until end tag.
76-- | Read blocks until end tag.
77blocksTilEnd tag = try (do
77blocksTilEnd tag = try (do
78 blocks <- manyTill (do {b <- block; spaces; return b}) (htmlEndTag tag)
78 blocks <- manyTill (do {b <- block; spaces; return b}) (htmlEndTag tag)
79− return blocks)
79+ return $ filter (/= Null) blocks)
81-- | Read inlines until end tag.
81-- | Read inlines until end tag.
82inlinesTilEnd tag = try (do
82inlinesTilEnd tag = try (do
@@ -288,7 +288,7 @@ parseHtml = do
288parseBlocks = do
288parseBlocks = do
290 result <- sepEndBy block spaces
290 result <- sepEndBy block spaces
291− return result
291+ return $ filter (/= Null) result
293block = choice [ codeBlock, header, hrule, list, blockQuote, para, plain,
293block = choice [ codeBlock, header, hrule, list, blockQuote, para, plain,
294 rawHtmlBlock ] <?> "block"
294 rawHtmlBlock ] <?> "block"