diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-03-09 18:28:44 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-03-09 18:28:44 -0500 |
| commit | ba73bb0f4dc54d67c55f0d8c74ebe8ac62344217 (patch) | |
| tree | cfae7f68e88476d305e0b36b40583cb81a98b2da /src/settings.sml | |
| parent | 886cb3fa5ae08b3012411dd1243ceace4406978a (diff) | |
safeGet
Diffstat (limited to 'src/settings.sml')
| -rw-r--r-- | src/settings.sml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/settings.sml b/src/settings.sml index cd081725..97c16675 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -452,4 +452,13 @@ val sigFile = ref (NONE : string option) fun setSigFile v = sigFile := v fun getSigFile () = !sigFile +structure SS = BinarySetFn(struct + type ord_key = string + val compare = String.compare + end) + +val safeGet = ref SS.empty +fun setSafeGets ls = safeGet := SS.addList (SS.empty, ls) +fun isSafeGet x = SS.member (!safeGet, x) + end |