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 | b04e123d0e1159d431aae00c3e8f1cc4a1b95684 (patch) | |
| tree | 0f8fb3c5e3f1278843704633e53f27ec20e49b06 /lib/ur | |
| parent | 14163f6e6e160694eff3d409ca3cf0b8b76c4a3a (diff) | |
Basis.url and redirects
Diffstat (limited to 'lib/ur')
| -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 |