@@ -768,19 +768,9 @@ compactify'DL items =
768768-- paragraph block
769769--
770770
771−{-
772−isHtmlOrBlank :: Inline -> Bool
773−isHtmlOrBlank (RawInline "html" _) = True
774−isHtmlOrBlank (Space) = True
775−isHtmlOrBlank (LineBreak) = True
776−isHtmlOrBlank _ = False
777−-}
778−
779771para :: MarkdownParser (F Blocks)
780772para = try $ do
781773 result <- trimInlinesF . mconcat <$> many1 inline
782− -- TODO remove this if not really needed? and remove isHtmlOrBlank
783− -- guard $ not $ F.all isHtmlOrBlank result
784774 option (B.plain <$> result) $ try $ do
785775 newline
786776 (blanklines >> return mempty)