blob: 430a42f052a186f16d9a805a09625107d3434eb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
structure MM = Metaform.Make(struct
val names = {X = "x", Y = "y"}
end)
fun diversion () = return <xml><body>
Welcome to the diversion.
</body></xml>
fun main () = return <xml><body>
<li> <a link={diversion ()}>See something shiny!</a></li>
<li> <a link={MM.main ()}>Fill out a form!</a></li>
</body></xml>
|
