diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-12-26 17:29:03 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-12-26 17:29:03 -0500 |
commit | ad00c1edb8f819c4489dbf1e2106108f92e7bf98 (patch) | |
tree | 897f72fa64ec732b9a26c428c5ddeb9a0d7f6cf6 /lib | |
parent | bfbe3b9c6870d6a501816c080b52d9e0c922db6c (diff) |
queryString and effectfulUrl
Diffstat (limited to 'lib')
-rw-r--r-- | lib/ur/basis.urs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 54500753..a2881cf0 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -625,12 +625,16 @@ con subform = [Body, Subform] con tabl = [Body, Table] con tr = [Body, Tr] +type queryString +val show_queryString : show queryString + type url val show_url : show url val bless : string -> url val checkUrl : string -> option url val currentUrl : transaction url val url : transaction page -> url +val effectfulUrl : (option queryString -> transaction page) -> url val redirect : t ::: Type -> url -> transaction t val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ body] => unit |