blob: 1087bab94d69b7b0fe57bb6250dba1fbfff37268 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
table fruit : { Id : int, Nam : string, Weight : float, Secret : string }
policy query_policy (SELECT fruit.Id, fruit.Nam, fruit.Weight FROM fruit)
fun main () =
xml <- queryX (SELECT fruit.Nam
FROM fruit
ORDER BY fruit.Nam)
(fn x => <xml><li>{[x.Fruit.Nam]}</li></xml>);
return <xml><body>
{xml}
</body></xml>
|