diff options
author | Adam Chlipala <adam@chlipala.net> | 2018-06-03 15:01:24 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2018-06-03 15:01:24 -0400 |
commit | f3373fd5809689bece7fd390f2d737aa0b43f594 (patch) | |
tree | 739be9eaa093fbf25bc69317811b869775c1ba80 /src/settings.sml | |
parent | 1c493e9ec47f4754dd7237078e8c4f3300925ce3 (diff) |
'filecache' .urp directive, fixing a longstanding MonoUtil bug in the process
Diffstat (limited to 'src/settings.sml')
-rw-r--r-- | src/settings.sml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index 9e6d3e76..47a88932 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -646,7 +646,8 @@ type dbms = { onlyUnion : bool, nestedRelops : bool, windowFunctions: bool, - supportsIsDistinctFrom : bool + supportsIsDistinctFrom : bool, + supportsSHA512 : bool } val dbmses = ref ([] : dbms list) @@ -679,7 +680,8 @@ val curDb = ref ({name = "", onlyUnion = false, nestedRelops = false, windowFunctions = false, - supportsIsDistinctFrom = false} : dbms) + supportsIsDistinctFrom = false, + supportsSHA512 = false} : dbms) fun addDbms v = dbmses := v :: !dbmses fun setDbms s = @@ -724,6 +726,10 @@ val sigFile = ref (NONE : string option) fun setSigFile v = sigFile := v fun getSigFile () = !sigFile +val fileCache = ref (NONE : string option) +fun setFileCache v = fileCache := v +fun getFileCache () = !fileCache + structure SS = BinarySetFn(struct type ord_key = string val compare = String.compare |