diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-12-19 12:38:11 -0500 |
commit | e478b4d432d65b33613a601f71204fc0c656c3db (patch) | |
tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /lib | |
parent | ed7c55c7d3d47e59b73cda4d1d7663bec6728934 (diff) |
Displayed an alert dialog
Diffstat (limited to 'lib')
-rw-r--r-- | lib/basis.urs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/basis.urs b/lib/basis.urs index ffba2b37..ac4c4832 100644 --- a/lib/basis.urs +++ b/lib/basis.urs @@ -100,6 +100,11 @@ val getCookie : t ::: Type -> http_cookie t -> transaction (option t) val setCookie : t ::: Type -> http_cookie t -> t -> transaction unit +(** JavaScript-y gadgets *) + +val alert : string -> transaction unit + + (** SQL *) con sql_table :: {Type} -> Type @@ -403,7 +408,7 @@ val ul : bodyTag [] val hr : bodyTag [] -val a : bodyTag [Link = transaction page] +val a : bodyTag [Link = transaction page, Onclick = transaction unit] val form : ctx ::: {Unit} -> bind ::: {Type} -> fn [[Body] ~ ctx] => |