diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2014-01-01 10:51:47 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2014-01-01 10:51:47 -0500 |
| commit | d7c4eb5eb07091dfa292943c8a6825a2ec7f244c (patch) | |
| tree | f7d2201b5f618915f1bd7bd4994405267071dee8 /src/settings.sml | |
| parent | 5284cd673fe4eba612ca6828cefee714361a8f65 (diff) | |
Add some URL-related benignEffectful functions
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 5 |
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) |