diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-10-10 18:01:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-10-10 18:01:30 -0400 |
| commit | 08bee251e9471ab1c1e634e85cd2e1c3830cd566 (patch) | |
| tree | 36da11fa0eda62dae9ec1f9b6b2e759f28039265 /src/settings.sml | |
| parent | 8b2c97e6fe1a63cb59655d83c1411fe75d9505d4 (diff) | |
Make transactional FFI functions effectful by default
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/settings.sml b/src/settings.sml index afe84617..948906ed 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -152,6 +152,7 @@ val effectfulBase = basis ["dml", val effectful = ref effectfulBase fun setEffectful ls = effectful := S.addList (effectfulBase, ls) fun isEffectful x = S.member (!effectful, x) +fun addEffectful x = effectful := S.add (!effectful, x) val benignBase = basis ["get_cookie", "new_client_source", |