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