From 36cf7530768eeec286e4a07a5794c0e1b27b8c3f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 30 Mar 2019 20:11:18 -0400
Subject: Allow Basis.currentUrl on client side

---
 lib/js/urweb.js  | 4 ++++
 src/settings.sml | 1 +
 2 files changed, 5 insertions(+)

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 749e5056..66d427c8 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -3269,6 +3269,10 @@ function confrm(s) {
     return confirm(s) ? true : false;
 }
 
+function currentUrl() {
+    return window.location;
+}
+
 
 // URL blessing
 
diff --git a/src/settings.sml b/src/settings.sml
index edc03d4c..ac403027 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -327,6 +327,7 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("checkUrl", "checkUrl"),
                           ("bless", "bless"),
                           ("blessData", "blessData"),
+                          ("currentUrl", "currentUrl"),
 
                           ("eq_time", "eq"),
                           ("lt_time", "lt"),
-- 
cgit v1.2.3