diff options
author | 2008-12-20 15:46:48 -0500 | |
---|---|---|
committer | 2008-12-20 15:46:48 -0500 | |
commit | 80be553bea33f3d9cb19f399f64eed36017048a3 (patch) | |
tree | b89e13e840fa39618ad79ac3a89de9ab9370d441 /lib/basis.urs | |
parent | a08075494d9c16a349215fbcaefa3e1d14d2e0f9 (diff) |
Initial <dyn> support
Diffstat (limited to 'lib/basis.urs')
-rw-r--r-- | lib/basis.urs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index ac4c4832..a61bf3ce 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -376,6 +376,9 @@ con form = [Body, Form] con tabl = [Body, Table] con tr = [Body, Tr] +val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> unit + -> tag [Signal = signal (xml ctx use bind)] ctx [] use bind + val head : unit -> tag [] html head [] [] val title : unit -> tag [] head [] [] [] @@ -433,7 +436,7 @@ con select = [Select] val select : formTag string select [] val option : unit -> tag [Value = string, Selected = bool] select [] [] [] -val submit : ctx ::: {Unit} -> use ::: {Type} +val submit : ctx ::: {Unit} -> use ::: {Type} -> fn [[Form] ~ ctx] => unit -> tag [Value = string, Action = $use -> transaction page] |