Merge pull request #109 from mtelvers/sept-2022-lcu

LCU Update September 2022

src-opam/dockerfile_distro.ml

@@ -30,6 +30,7 @@ type win10_ltsc = [
 
 type win10_lcu = [
   | `LCU
+  | `LCU20220913
   | `LCU20220809
   | `LCU20220712
   | `LCU20220614
@@ -49,12 +50,18 @@ type win10_lcu = [
 
 type win_all = [ win10_release | win10_ltsc ] [@@deriving sexp]
 
-let win10_current_lcu = `LCU20220809
+let win10_current_lcu = `LCU20220913
 
 type win10_revision = win10_release * win10_lcu option [@@deriving sexp]
 
 let win10_lcus : ('a * int * win10_release list) list = [
 
+  `LCU20220913, 5017316, [`V21H2];
+  `LCU20220913, 5017308, [`V21H1];
+  `LCU20220913, 5017315, [`V1809];
+  `LCU20220913, 5017305, [`V1607];
+  `LCU20220913, 5017327, [`V1507];
+
   `LCU20220809, 5016627, [`V21H2];
   `LCU20220809, 5016616, [`V20H2; `V21H1];
   `LCU20220809, 5016623, [`V1809];
@@ -278,7 +285,7 @@ let win10_release_status v : win10_release_status = match resolve_ltsc v with
   | `V1903
   | `V1909 -> `Deprecated
   | `V2004 -> `Deprecated
-  | `V20H2
+  | `V20H2 -> `Deprecated
   | `V21H1 | `V21H2 | `Ltsc2022 -> `Active
 
 let win10_latest_release = `V21H2
@@ -288,7 +295,8 @@ type win10_docker_base_image = [ `Windows | `ServerCore | `NanoServer ]
 (* https://docs.microsoft.com/en-us/virtualization/windowscontainers/deploy-containers/base-image-lifecycle *)
 let win10_docker_status (base : win10_docker_base_image) v : status =
   match base, v with
-  | _, (`V20H2 | `V21H2) -> `Active `Tier3
+  | _, `V21H2 -> `Active `Tier3
+  | _, `V20H2
   | _, `V2004
   | _, `V1909
   | _, `V1903 -> `Deprecated

src-opam/dockerfile_distro.mli

@@ -40,6 +40,7 @@ type win_all = [ win10_release | win10_ltsc ] [@@deriving sexp]
 
 type win10_lcu = [
   | `LCU
+  | `LCU20220913
   | `LCU20220809
   | `LCU20220712
   | `LCU20220614