From 031cd0d24354a5840f29c8c6cce0ae09571e891e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 10 Dec 2009 15:20:36 -0500
Subject: Basis.currentUrl, plus redirect debugging

---
 lib/ur/basis.urs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/ur')

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
-- 
cgit v1.2.3