Mercurial > urweb
comparison src/settings.sml @ 2299:47d5c94aeeb8
Add consolidation heuristic options.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Thu, 19 Nov 2015 17:29:47 -0500 |
parents | 985c8016b592 |
children | 8d772fbf59c1 |
comparison
equal
deleted
inserted
replaced
2298:6e580e319077 | 2299:47d5c94aeeb8 |
---|---|
809 | 809 |
810 val sqlcache = ref false | 810 val sqlcache = ref false |
811 fun setSqlcache b = sqlcache := b | 811 fun setSqlcache b = sqlcache := b |
812 fun getSqlcache () = !sqlcache | 812 fun getSqlcache () = !sqlcache |
813 | 813 |
814 val sqlcacheHeuristic = ref "always" | |
815 fun setSqlcacheHeuristic h = sqlcacheHeuristic := h | |
816 fun getSqlcacheHeuristic () = !sqlcacheHeuristic | |
817 | |
814 structure SM = BinaryMapFn(struct | 818 structure SM = BinaryMapFn(struct |
815 type ord_key = string | 819 type ord_key = string |
816 val compare = String.compare | 820 val compare = String.compare |
817 end) | 821 end) |
818 | 822 |