summaryrefslogtreecommitdiff
path: root/demo/tree.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/tree.ur')
-rw-r--r--demo/tree.ur4
1 files changed, 2 insertions, 2 deletions
diff --git a/demo/tree.ur b/demo/tree.ur
index b02e1f00..d7b0919e 100644
--- a/demo/tree.ur
+++ b/demo/tree.ur
@@ -8,7 +8,7 @@ open TreeFun.Make(struct
end)
fun row r = <xml>
- #{[r.Id]}: {[r.Nam]} <a link={del r.Id}>[Delete]</a>
+ #{[r.Id]}: {[r.Nam]} <form><submit action={del r.Id} value="Delete"/></form>
<form>
Add child: <textbox{#Nam}/> <submit action={add (Some r.Id)}/>
@@ -30,6 +30,6 @@ and add parent r =
dml (INSERT INTO t (Id, Parent, Nam) VALUES ({[id]}, {[parent]}, {[r.Nam]}));
main ()
-and del id =
+and del id () =
dml (DELETE FROM t WHERE Id = {[id]});
main ()