summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2014-01-01 10:51:47 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2014-01-01 10:51:47 -0500
commitd7c4eb5eb07091dfa292943c8a6825a2ec7f244c (patch)
treef7d2201b5f618915f1bd7bd4994405267071dee8 /src
parent5284cd673fe4eba612ca6828cefee714361a8f65 (diff)
Add some URL-related benignEffectful functions
Diffstat (limited to 'src')
-rw-r--r--src/settings.sml5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml
index 7a75985e..eaaa374d 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -187,7 +187,10 @@ val benignBase = basis ["get_cookie",
"preventDefault",
"stopPropagation",
"fresh",
- "giveFocus"]
+ "giveFocus",
+ "currentUrlHasPost",
+ "currentUrlHasQueryString",
+ "currentUrl"]
val benign = ref benignBase
fun setBenignEffectful ls = benign := S.addList (benignBase, ls)