Mercurial > urweb

comparison src/settings.sml @ 1878:df6a040f5389

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make transactional FFI functions effectful by default
author Adam Chlipala <adam@chlipala.net>
date Thu, 10 Oct 2013 18:01:30 -0400
parents c3119c263bd3
children b6aee1d5b9b1
comparison
equal deleted inserted replaced
1877:22b44fe822bf 1878:df6a040f5389
150 "urlifyChannel_w"] 150 "urlifyChannel_w"]
151 151
152 val effectful = ref effectfulBase 152 val effectful = ref effectfulBase
153 fun setEffectful ls = effectful := S.addList (effectfulBase, ls) 153 fun setEffectful ls = effectful := S.addList (effectfulBase, ls)
154 fun isEffectful x = S.member (!effectful, x) 154 fun isEffectful x = S.member (!effectful, x)
155 fun addEffectful x = effectful := S.add (!effectful, x)
155 156
156 val benignBase = basis ["get_cookie", 157 val benignBase = basis ["get_cookie",
157 "new_client_source", 158 "new_client_source",
158 "get_client_source", 159 "get_client_source",
159 "set_client_source", 160 "set_client_source",