blob: b8edbba66bc198db78977cc6d80a1a79e8e2152f (
plain)
1
2
3
4
5
6
7
8
|
val page = fn b => return <xml><body>
{cdata (case b of False => "No!" | True => "Yes!")}
</body></xml>
val main : unit -> transaction page = fn () => return <xml><body>
<li><a link={page True}>True</a></li>
<li><a link={page False}>False</a></li>
</body></xml>
|