Mercurial > urweb
diff src/settings.sml @ 1952:cf7f7e51b0a2
Add some URL-related benignEffectful functions
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Wed, 01 Jan 2014 10:51:47 -0500 |
parents | b6aee1d5b9b1 |
children | 0992323fa264 |
line wrap: on
line diff
--- a/src/settings.sml Tue Dec 31 11:10:19 2013 -0500 +++ b/src/settings.sml Wed Jan 01 10:51:47 2014 -0500 @@ -187,7 +187,10 @@ "preventDefault", "stopPropagation", "fresh", - "giveFocus"] + "giveFocus", + "currentUrlHasPost", + "currentUrlHasQueryString", + "currentUrl"] val benign = ref benignBase fun setBenignEffectful ls = benign := S.addList (benignBase, ls)