diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-10 13:32:09 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-10 13:32:09 -0500 |
| commit | 7cfa621d957e18909cddab064955dc2ab6ad54be (patch) | |
| tree | 0f8fb3c5e3f1278843704633e53f27ec20e49b06 /lib/ur/basis.urs | |
| parent | b084552dfb0f1878ef6ad7319dfe728b887d2bd0 (diff) | |
Basis.url and redirects
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 200d9896..b56c5e5e 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -560,8 +560,11 @@ con tabl = [Body, Table] con tr = [Body, Tr] type url +val show_url : show url val bless : string -> url val checkUrl : string -> option url +val url : transaction page -> url +val redirect : t ::: Type -> url -> transaction t val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ body] => unit -> tag [Signal = signal (xml (body ++ ctx) use bind)] (body ++ ctx) [] use bind |