@@ -60,7 +60,7 @@ readHtml = readWith parseHtml
62eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
62eitherBlockOrInline = ["applet", "button", "del", "iframe", "ins",
63− "map", "area", "object", "script"]
63+ "map", "area", "object"]
65inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
65inlineHtmlTags = ["a", "abbr", "acronym", "b", "basefont", "bdo", "big",
66 "br", "cite", "code", "dfn", "em", "font", "i", "img",
66 "br", "cite", "code", "dfn", "em", "font", "i", "img",
@@ -73,7 +73,7 @@ blockHtmlTags = ["address", "blockquote", "center", "dir", "div",
73 "h5", "h6", "hr", "isindex", "menu", "noframes",
73 "h5", "h6", "hr", "isindex", "menu", "noframes",
74 "noscript", "ol", "p", "pre", "table", "ul", "dd",
74 "noscript", "ol", "p", "pre", "table", "ul", "dd",
75 "dt", "frameset", "li", "tbody", "td", "tfoot",
75 "dt", "frameset", "li", "tbody", "td", "tfoot",
76− "th", "thead", "tr"] ++ eitherBlockOrInline
76+ "th", "thead", "tr", "script"] ++ eitherBlockOrInline
79-- HTML utility functions
79-- HTML utility functions