view tests/toString.ur @ 548:b3b06fef7bb5

Treat user-provided error messages as XML
author Adam Chlipala <adamc@hcoop.net>
date Sun, 07 Dec 2008 11:19:13 -0500
parents df00701f2323
children
line wrap: on
line source
fun main () : transaction page = return <html><body>
        6 = {cdata (show _ 6)}<br/>
        12.34 = {cdata (show _ 12.34)}<br/>
        Hi = {cdata (show _ "Hi")}<br/>
        False = {cdata (show _ False)}<br/>
</body></html>