@@ -466,7 +466,7 @@ htmlBlock = do
467-- True if tag is self-closing
467-- True if tag is self-closing
468isSelfClosing tag =
468isSelfClosing tag =
469− isSuffixOf "/>" $ filter (\c -> (not (c `elem` " \n\t"))) tag
469+ isSuffixOf "/>" $ filter (not . (`elem` " \n\t")) tag
471strictHtmlBlock = try $ do
471strictHtmlBlock = try $ do
472 tag <- anyHtmlBlockTag
472 tag <- anyHtmlBlockTag