summaryrefslogtreecommitdiff
path: root/tests/cdataL.lac
blob: 3aa3bef662a08bbf9c3a775dcbfc869b902b6eed (plain)
1
2
3
4
5
6
7
8
val subpage = fn s => <html><body>
        <h1>{cdata s}</h1>
</body></html>

val main = fn () => <html><body>
        <li> <a link={subpage "<Hi."}>Door #1</a></li>
        <li> <a link={subpage "Bye."}>Door #2</a></li>
</body></html>