diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-10-14 00:07:00 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-10-14 00:07:00 -0400 |
| commit | e86ed0717e35bea1ad6127d193e5979aec4841b9 (patch) | |
| tree | 4cad5b76d4d1e760994253144d13e4c3e4a5bd8e /src/settings.sml | |
| parent | 51117ba9333e00cdd8c4c31307effbe93601d328 (diff) | |
Hard-code Sqlcache module (in Ur/Web) as effectful and reorder sqlcache.sml.
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index ff99bf13..ecf353cd 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -151,7 +151,8 @@ val effectfulBase = basis ["dml", val effectful = ref effectfulBase fun setEffectful ls = effectful := S.addList (effectfulBase, ls) -fun isEffectful x = S.member (!effectful, x) +fun isEffectful ("Sqlcache", _) = true + | isEffectful x = S.member (!effectful, x) fun addEffectful x = effectful := S.add (!effectful, x) val benignBase = basis ["get_cookie", |