Mercurial > urweb

comparison src/settings.sml @ 2265:a647a1560628

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Hard-code Sqlcache module (in Ur/Web) as effectful and reorder sqlcache.sml.
author Ziv Scully <ziv@mit.edu>
date Wed, 14 Oct 2015 00:07:00 -0400
parents c05851bf7861
children 1e3ba868f8bf
comparison
equal deleted inserted replaced
2264:bbcf9ba9b39a 2265:a647a1560628
149 "urlifyBool_w", 149 "urlifyBool_w",
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 ("Sqlcache", _) = true
155 | isEffectful x = S.member (!effectful, x)
155 fun addEffectful x = effectful := S.add (!effectful, x) 156 fun addEffectful x = effectful := S.add (!effectful, x)
156 157
157 val benignBase = basis ["get_cookie", 158 val benignBase = basis ["get_cookie",
158 "new_client_source", 159 "new_client_source",
159 "get_client_source", 160 "get_client_source",