blob: 64e190f598ca8230ec17ba98dfee80d15698e9af (
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
26
27
28
29
30
|
datatype result = Neg | Zero | Pos
table t : {A : int}
fun main () : transaction page =
let
fun check () =
r <- oneRow (SELECT SUM(t.A) AS X FROM t);
return (if r.X < 0 then
Neg
else if r.X = 0 then
Zero
else
Pos)
fun show r =
case r of
Neg => <xml>-</xml>
| Zero => <xml>0</xml>
| Pos => <xml>+</xml>
in
s <- source Zero;
return <xml><body>
<button value="Get It On!"
onclick={r <- check ();
set s r}/><br/>
<br/>
Current: <dyn signal={r <- signal s; return (show r)}/>
</body></xml>
end
|
