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 | 3eba512008eb94393e65533966aeb21c90a231f3 (patch) | |
tree | 120f43205b07cf55f8d1af41742dd275a4d863ca /lib/basis.urs | |
parent | 2c8e4cddb5f5c7a85337b8c42135c346b14de1f4 (diff) |
Displayed an alert dialog
Diffstat (limited to 'lib/basis.urs')
-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] => |