blob: 4ba6015ca3c44c7cd0cd31d86a2ec99d8c72b9d4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
datatype list t = Nil | Cons of t * list t
table t : {A : int}
fun main () : transaction page =
let
fun rows () =
query (SELECT * FROM t)
(fn r ls => return (Cons (r.T.A, ls)))
Nil
fun show ls =
case ls of
Nil => <xml/>
| Cons (x, ls') => <xml>{[x]}<br/>{show ls'}</xml>
in
s <- source Nil;
return <xml><body>
<button value="Get It On!"
onclick={ls <- rows ();
set s ls}/><br/>
<br/>
Current: <dyn signal={ls <- signal s; return (show ls)}/>
</body></xml>
end
|
