script tag rejects valid javascript due to external

[negatratoron]

As you know, style and script tags apply the external function to their content, which here causes the content to be wiped if it contains the "</" characters.

First of all, it would be awesome if these docs mentioned that this happens, since I was very confused about why my input was getting eaten.

Second of all, as-is this appears to be a bug, not a feature, since it rejects perfectly valid javascript code, such as document.write("<p>hello</p>") because that code contains the substring </.

This seems to be a functioning workaround:

script :: String -> Html
script str = preEscapedToHtml ("<script>" ++ str ++ "</script>")