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