blob: cee35df1758633e83c34a99a1c7f1a47ef7fbdf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
structure S = struct
fun one () =
let
fun save r = return <xml/>
in
return <xml><body><form><submit action={save}/></form></body></xml>
end
fun two () =
let
fun save r = return <xml/>
in
return <xml><body><form><submit action={save}/></form></body></xml>
end
end
fun main () : transaction page = return <xml>
<body>
<a link={S.one()}>one</a>
<a link={S.two()}>two</a>
</body>
</xml>
|