diff options
| author | Théo Zimmermann | 2019-11-27 17:12:49 +0100 |
|---|---|---|
| committer | Théo Zimmermann | 2019-11-27 17:12:49 +0100 |
| commit | 353b601323ffd7d5b4acc3c02de985b27cddc8e5 (patch) | |
| tree | b338e79bab19d6ef8fe7bf0211fd94516ec010bc /lib | |
| parent | 2184cdb9df3b2f3727fccf0933c2c7e89f8b79a1 (diff) | |
| parent | cec1688022638679300af01c56fc6af908ae0681 (diff) | |
Merge PR #11158: [release] Update files for 8.12 release per release process.
Reviewed-by: Zimmi48
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 6 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 83588779e5..27ca8e9596 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -62,7 +62,7 @@ let we_are_parsing = ref false (* Current means no particular compatibility consideration. For correct comparisons, this constructor should remain the last one. *) -type compat_version = V8_9 | V8_10 | Current +type compat_version = V8_9 | V8_10 | V8_11 | Current let compat_version = ref Current @@ -73,6 +73,9 @@ let version_compare v1 v2 = match v1, v2 with | V8_10, V8_10 -> 0 | V8_10, _ -> -1 | _, V8_10 -> 1 + | V8_11, V8_11 -> 0 + | V8_11, _ -> -1 + | _, V8_11 -> 1 | Current, Current -> 0 let version_strictly_greater v = version_compare !compat_version v > 0 @@ -81,6 +84,7 @@ let version_less_or_equal v = not (version_strictly_greater v) let pr_version = function | V8_9 -> "8.9" | V8_10 -> "8.10" + | V8_11 -> "8.11" | Current -> "current" (* Translate *) diff --git a/lib/flags.mli b/lib/flags.mli index 5df07399c5..36a996401d 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -52,7 +52,7 @@ val we_are_parsing : bool ref (* Set Printing All flag. For some reason it is a global flag *) val raw_print : bool ref -type compat_version = V8_9 | V8_10 | Current +type compat_version = V8_9 | V8_10 | V8_11 | Current val compat_version : compat_version ref val version_compare : compat_version -> compat_version -> int val version_strictly_greater : compat_version -> bool |