diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-12-10 15:20:36 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-12-10 15:20:36 -0500 |
| commit | 031cd0d24354a5840f29c8c6cce0ae09571e891e (patch) | |
| tree | a96bb576eb23eb6f7f8b66cd897787235e0980e1 /lib/ur/basis.urs | |
| parent | 7cfa621d957e18909cddab064955dc2ab6ad54be (diff) | |
Basis.currentUrl, plus redirect debugging
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index b56c5e5e..0347febc 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -565,6 +565,7 @@ val bless : string -> url val checkUrl : string -> option url val url : transaction page -> url val redirect : t ::: Type -> url -> transaction t +val currentUrl : transaction url val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ body] => unit -> tag [Signal = signal (xml (body ++ ctx) use bind)] (body ++ ctx) [] use bind |