diff options
author | Adam Chlipala <adam@chlipala.net> | 2015-12-20 14:18:52 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2015-12-20 14:18:52 -0500 |
commit | 68b355524cc20056d8c059138be225aaa9762e0a (patch) | |
tree | 6c9a407a965d2cdd5f30815cc3e642a6f9b3d451 /src/settings.sml | |
parent | 7bf4f9f063dcdc9fc50ad6ac6143b113535b68f0 (diff) | |
parent | 0271786bacdf9c12a142367a479b24ba111ebd17 (diff) |
Merge Sqlcache
Diffstat (limited to 'src/settings.sml')
-rw-r--r-- | src/settings.sml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index 650122ca..94692a2e 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", @@ -801,6 +802,10 @@ val less = ref false fun setLessSafeFfi b = less := b fun getLessSafeFfi () = !less +val sqlcache = ref false +fun setSqlcache b = sqlcache := b +fun getSqlcache () = !sqlcache + structure SM = BinaryMapFn(struct type ord_key = string val compare = String.compare |