blob: 09cc964abd5ff50c3efa33877bbbc0da3b039bf9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
datatype sum a b = Left of a | Right of b
val l : sum int string = Left 5
val r : sum int string = Right "Hi"
val show = fn x : sum int string => case x of Left _ => "Left _" | Right s => s
val page = fn x => <html><body>
{cdata (show x)}
</body></html>
val main : unit -> page = fn () => <html><body>
<li><a link={page l}>Left</a></li>
<li><a link={page r}>Right</a></li>
</body></html>
|
