summaryrefslogtreecommitdiff
path: root/lib/ur/basis.urs
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-12-10 15:20:36 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-12-10 15:20:36 -0500
commit031cd0d24354a5840f29c8c6cce0ae09571e891e (patch)
treea96bb576eb23eb6f7f8b66cd897787235e0980e1 /lib/ur/basis.urs
parent7cfa621d957e18909cddab064955dc2ab6ad54be (diff)
Basis.currentUrl, plus redirect debugging
Diffstat (limited to 'lib/ur/basis.urs')
-rw-r--r--lib/ur/basis.urs1
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