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 | 43a2c0777948cd8ab868befbaffbb0585eee208c (patch) | |
| tree | 897f72fa64ec732b9a26c428c5ddeb9a0d7f6cf6 /lib | |
| parent | bd29062df3c929ec338db7aa08363e3167a5429a (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 |