@@ -98,7 +98,7 @@ let win10_kb_number_to_lcu (v:win10_release) kb =
98
98
| exception Not_found -> None
99
99
100
100
type t = [
101
- | `Alpine of [ `V3_3 | `V3_4 | `V3_5 | `V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 | `V3_13 | `V3_14 | `Latest ]
101
+ | `Alpine of [ `V3_3 | `V3_4 | `V3_5 | `V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 | `V3_13 | `V3_14 | `V3_15 | ` Latest ]
102
102
| `Archlinux of [ `Latest ]
103
103
| `CentOS of [ `V6 | `V7 | `V8 | `Latest ]
104
104
| `Debian of [ `V11 | `V10 | `V9 | `V8 | `V7 | `Stable | `Testing | `Unstable ]
@@ -143,7 +143,7 @@ type status = [
143
143
] [@@ deriving sexp ]
144
144
145
145
let distros : t list = [
146
- `Alpine `V3_3 ; `Alpine `V3_4 ; `Alpine `V3_5 ; `Alpine `V3_6 ; `Alpine `V3_7 ; `Alpine `V3_8 ; `Alpine `V3_9 ; `Alpine `V3_10 ; `Alpine `V3_11 ; `Alpine `V3_12 ; `Alpine `V3_13 ; `Alpine `V3_14 ; `Alpine `Latest ;
146
+ `Alpine `V3_3 ; `Alpine `V3_4 ; `Alpine `V3_5 ; `Alpine `V3_6 ; `Alpine `V3_7 ; `Alpine `V3_8 ; `Alpine `V3_9 ; `Alpine `V3_10 ; `Alpine `V3_11 ; `Alpine `V3_12 ; `Alpine `V3_13 ; `Alpine `V3_14 ; `Alpine `V3_15 ; `Alpine ` Latest ;
147
147
`Archlinux `Latest ;
148
148
`CentOS `V6 ; `CentOS `V7 ; `CentOS `V8 ; `CentOS `Latest ;
149
149
`Debian `V11 ; `Debian `V10 ; `Debian `V9 ; `Debian `V8 ; `Debian `V7 ;
@@ -204,10 +204,10 @@ let win10_docker_status (base : win10_docker_base_image) v : status =
204
204
let win10_latest_image = `Ltsc2022
205
205
206
206
let distro_status (d :t ) : status = match d with
207
- | `Alpine (`V3_3 | `V3_4 | `V3_5 | `V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 ) -> `Deprecated
208
- | `Alpine `V3_13 -> `Active `Tier2
209
- | `Alpine `V3_14 -> `Active `Tier1
210
- | `Alpine `Latest -> `Alias (`Alpine `V3_14 )
207
+ | `Alpine (`V3_3 | `V3_4 | `V3_5 | `V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 | `V3_13 ) -> `Deprecated
208
+ | `Alpine `V3_14 -> `Active `Tier2
209
+ | `Alpine `V3_15 -> `Active `Tier1
210
+ | `Alpine `Latest -> `Alias (`Alpine `V3_15 )
211
211
| `Archlinux `Latest -> `Active `Tier3
212
212
| `CentOS `V8 -> `Active `Tier2
213
213
| `CentOS `V7 -> `Active `Tier3
@@ -267,7 +267,7 @@ let distro_arches ov (d:t) =
267
267
| `Debian `V11 , ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `I386 ; `X86_64 ; `Aarch64 ; `Ppc64le ; `Aarch32 ; `S390x ]
268
268
| `Debian `V10 , ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `I386 ; `X86_64 ; `Aarch64 ; `Ppc64le ; `Aarch32 ; `S390x ]
269
269
| `Debian `V9 , ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `I386 ; `X86_64 ; `Aarch64 ; `Aarch32 ]
270
- | `Alpine (`V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 | `V3_13 |`V3_14 ), ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `X86_64 ; `Aarch64 ]
270
+ | `Alpine (`V3_6 | `V3_7 | `V3_8 | `V3_9 | `V3_10 | `V3_11 | `V3_12 | `V3_13 | `V3_14 | `V3_15 ), ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `X86_64 ; `Aarch64 ]
271
271
| `Ubuntu (`V18_04 |`V20_04 |`V20_10 |`V21_04 |`V21_10 ), ov when OV. (compare Releases. v4_05_0 ov) = - 1 -> [ `X86_64 ; `Aarch64 ; `Ppc64le ]
272
272
| `Fedora (`V33 |`V34 ), ov when OV. (compare Releases. v4_08_0 ov) = - 1 -> [ `X86_64 ; `Aarch64 ]
273
273
(* 2021-04-19: should be 4.03 but there's a linking failure until 4.06. *)
@@ -335,6 +335,7 @@ let builtin_ocaml_of_distro (d:t) : string option =
335
335
| `Alpine `V3_12 -> Some " 4.08.1"
336
336
| `Alpine `V3_13 -> Some " 4.08.1"
337
337
| `Alpine `V3_14 -> Some " 4.12.0"
338
+ | `Alpine `V3_15 -> Some " 4.13.1"
338
339
| `Archlinux `Latest -> Some " 4.11.1"
339
340
| `Fedora `V21 -> Some " 4.01.0"
340
341
| `Fedora `V22 -> Some " 4.02.0"
@@ -475,6 +476,7 @@ let tag_of_distro (d:t) = match d with
475
476
| `Alpine `V3_12 -> " alpine-3.12"
476
477
| `Alpine `V3_13 -> " alpine-3.13"
477
478
| `Alpine `V3_14 -> " alpine-3.14"
479
+ | `Alpine `V3_15 -> " alpine-3.15"
478
480
| `Alpine `Latest -> " alpine"
479
481
| `Archlinux `Latest -> " archlinux"
480
482
| `OpenSUSE `V42_1 -> " opensuse-42.1"
@@ -556,6 +558,7 @@ let distro_of_tag x : t option =
556
558
| " alpine-3.12" -> Some (`Alpine `V3_12 )
557
559
| " alpine-3.13" -> Some (`Alpine `V3_13 )
558
560
| " alpine-3.14" -> Some (`Alpine `V3_14 )
561
+ | " alpine-3.15" -> Some (`Alpine `V3_15 )
559
562
| " alpine" -> Some (`Alpine `Latest )
560
563
| " archlinux" -> Some (`Archlinux `Latest )
561
564
| " opensuse-42.1" -> Some (`OpenSUSE `V42_1 )
@@ -632,6 +635,7 @@ let rec human_readable_string_of_distro (d:t) =
632
635
| `Alpine `V3_12 -> " Alpine 3.12"
633
636
| `Alpine `V3_13 -> " Alpine 3.13"
634
637
| `Alpine `V3_14 -> " Alpine 3.14"
638
+ | `Alpine `V3_15 -> " Alpine 3.15"
635
639
| `Archlinux `Latest -> " Archlinux"
636
640
| `OpenSUSE `V42_1 -> " OpenSUSE 42.1"
637
641
| `OpenSUSE `V42_2 -> " OpenSUSE 42.2"
@@ -714,6 +718,7 @@ let base_distro_tag ?win10_revision ?(arch=`X86_64) d =
714
718
| `V3_12 -> " 3.12"
715
719
| `V3_13 -> " 3.13"
716
720
| `V3_14 -> " 3.14"
721
+ | `V3_15 -> " 3.15"
717
722
| `Latest -> assert false
718
723
in
719
724
match arch with
0 commit comments