diff --git a/kubernetes-api.cabal b/kubernetes-api.cabal --- a/kubernetes-api.cabal +++ b/kubernetes-api.cabal @@ -1,5 +1,5 @@ name: kubernetes-api -version: 126.0.1 +version: 127.0.0 synopsis: Auto-generated kubernetes-api API Client description: . Client library for calling the Kubernetes API based on http-client. @@ -8,7 +8,7 @@ . base path: http://localhost . - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 . OpenAPI version: 3.0.1 . @@ -44,7 +44,7 @@ , containers >=0.5.0.0 && <0.8 , deepseq >= 1.4 && <1.6 , exceptions >= 0.4 - , http-api-data >= 0.3.4 && <0.8 + , http-api-data >= 0.3.4 && <0.7 , http-client >=0.5 && <0.8 , http-client-tls , http-media >= 0.4 && < 0.9 @@ -78,6 +78,7 @@ Kubernetes.OpenAPI.API.Authentication Kubernetes.OpenAPI.API.AuthenticationV1 Kubernetes.OpenAPI.API.AuthenticationV1alpha1 + Kubernetes.OpenAPI.API.AuthenticationV1beta1 Kubernetes.OpenAPI.API.Authorization Kubernetes.OpenAPI.API.AuthorizationV1 Kubernetes.OpenAPI.API.Autoscaling @@ -87,6 +88,7 @@ Kubernetes.OpenAPI.API.BatchV1 Kubernetes.OpenAPI.API.Certificates Kubernetes.OpenAPI.API.CertificatesV1 + Kubernetes.OpenAPI.API.CertificatesV1alpha1 Kubernetes.OpenAPI.API.Coordination Kubernetes.OpenAPI.API.CoordinationV1 Kubernetes.OpenAPI.API.Core @@ -113,12 +115,11 @@ Kubernetes.OpenAPI.API.RbacAuthorization Kubernetes.OpenAPI.API.RbacAuthorizationV1 Kubernetes.OpenAPI.API.Resource - Kubernetes.OpenAPI.API.ResourceV1alpha1 + Kubernetes.OpenAPI.API.ResourceV1alpha2 Kubernetes.OpenAPI.API.Scheduling Kubernetes.OpenAPI.API.SchedulingV1 Kubernetes.OpenAPI.API.Storage Kubernetes.OpenAPI.API.StorageV1 - Kubernetes.OpenAPI.API.StorageV1beta1 Kubernetes.OpenAPI.API.Version Kubernetes.OpenAPI.API.WellKnown Kubernetes.OpenAPI.Client diff --git a/lib/Kubernetes/OpenAPI.hs b/lib/Kubernetes/OpenAPI.hs --- a/lib/Kubernetes/OpenAPI.hs +++ b/lib/Kubernetes/OpenAPI.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/Admissionregistration.hs b/lib/Kubernetes/OpenAPI/API/Admissionregistration.hs --- a/lib/Kubernetes/OpenAPI/API/Admissionregistration.hs +++ b/lib/Kubernetes/OpenAPI/API/Admissionregistration.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1.hs b/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1.hs --- a/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateMutatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateValidatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -238,6 +238,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionMutatingWebhookConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionMutatingWebhookConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -329,6 +334,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionValidatingWebhookConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionValidatingWebhookConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -540,6 +550,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListMutatingWebhookConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListMutatingWebhookConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -618,6 +633,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListValidatingWebhookConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListValidatingWebhookConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -677,7 +697,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchMutatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -742,7 +762,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchValidatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -867,7 +887,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceMutatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -921,7 +941,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceValidatingWebhookConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1alpha1.hs --- a/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1alpha1.hs +++ b/lib/Kubernetes/OpenAPI/API/AdmissionregistrationV1alpha1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateValidatingAdmissionPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateValidatingAdmissionPolicyBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -238,6 +238,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionValidatingAdmissionPolicy SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionValidatingAdmissionPolicy TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -329,6 +334,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionValidatingAdmissionPolicyBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionValidatingAdmissionPolicyBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -540,6 +550,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListValidatingAdmissionPolicy SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListValidatingAdmissionPolicy TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -618,6 +633,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListValidatingAdmissionPolicyBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListValidatingAdmissionPolicyBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -677,7 +697,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchValidatingAdmissionPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -742,7 +762,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchValidatingAdmissionPolicyBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -769,6 +789,71 @@ instance Produces PatchValidatingAdmissionPolicyBinding MimeYaml +-- *** patchValidatingAdmissionPolicyStatus + +-- | @PATCH \/apis\/admissionregistration.k8s.io\/v1alpha1\/validatingadmissionpolicies\/{name}\/status@ +-- +-- partially update status of the specified ValidatingAdmissionPolicy +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchValidatingAdmissionPolicyStatus + :: (Consumes PatchValidatingAdmissionPolicyStatus contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ValidatingAdmissionPolicy + -> KubernetesRequest PatchValidatingAdmissionPolicyStatus contentType V1alpha1ValidatingAdmissionPolicy accept +patchValidatingAdmissionPolicyStatus _ _ body (Name name) = + _mkRequest "PATCH" ["/apis/admissionregistration.k8s.io/v1alpha1/validatingadmissionpolicies/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchValidatingAdmissionPolicyStatus +instance HasBodyParam PatchValidatingAdmissionPolicyStatus Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchValidatingAdmissionPolicyStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchValidatingAdmissionPolicyStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchValidatingAdmissionPolicyStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchValidatingAdmissionPolicyStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchValidatingAdmissionPolicyStatus Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchValidatingAdmissionPolicyStatus MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchValidatingAdmissionPolicyStatus MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchValidatingAdmissionPolicyStatus MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchValidatingAdmissionPolicyStatus MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchValidatingAdmissionPolicyStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchValidatingAdmissionPolicyStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchValidatingAdmissionPolicyStatus MimeYaml + + -- *** readValidatingAdmissionPolicy -- | @GET \/apis\/admissionregistration.k8s.io\/v1alpha1\/validatingadmissionpolicies\/{name}@ @@ -829,6 +914,36 @@ instance Produces ReadValidatingAdmissionPolicyBinding MimeYaml +-- *** readValidatingAdmissionPolicyStatus + +-- | @GET \/apis\/admissionregistration.k8s.io\/v1alpha1\/validatingadmissionpolicies\/{name}\/status@ +-- +-- read status of the specified ValidatingAdmissionPolicy +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readValidatingAdmissionPolicyStatus + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ValidatingAdmissionPolicy + -> KubernetesRequest ReadValidatingAdmissionPolicyStatus MimeNoContent V1alpha1ValidatingAdmissionPolicy accept +readValidatingAdmissionPolicyStatus _ (Name name) = + _mkRequest "GET" ["/apis/admissionregistration.k8s.io/v1alpha1/validatingadmissionpolicies/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadValidatingAdmissionPolicyStatus + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadValidatingAdmissionPolicyStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadValidatingAdmissionPolicyStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadValidatingAdmissionPolicyStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadValidatingAdmissionPolicyStatus MimeYaml + + -- *** replaceValidatingAdmissionPolicy -- | @PUT \/apis\/admissionregistration.k8s.io\/v1alpha1\/validatingadmissionpolicies\/{name}@ @@ -867,7 +982,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceValidatingAdmissionPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -921,7 +1036,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceValidatingAdmissionPolicyBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -935,4 +1050,58 @@ instance Produces ReplaceValidatingAdmissionPolicyBinding MimeVndKubernetesProtobuf -- | @application/yaml@ instance Produces ReplaceValidatingAdmissionPolicyBinding MimeYaml + + +-- *** replaceValidatingAdmissionPolicyStatus + +-- | @PUT \/apis\/admissionregistration.k8s.io\/v1alpha1\/validatingadmissionpolicies\/{name}\/status@ +-- +-- replace status of the specified ValidatingAdmissionPolicy +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceValidatingAdmissionPolicyStatus + :: (Consumes ReplaceValidatingAdmissionPolicyStatus contentType, MimeRender contentType V1alpha1ValidatingAdmissionPolicy) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha1ValidatingAdmissionPolicy -- ^ "body" + -> Name -- ^ "name" - name of the ValidatingAdmissionPolicy + -> KubernetesRequest ReplaceValidatingAdmissionPolicyStatus contentType V1alpha1ValidatingAdmissionPolicy accept +replaceValidatingAdmissionPolicyStatus _ _ body (Name name) = + _mkRequest "PUT" ["/apis/admissionregistration.k8s.io/v1alpha1/validatingadmissionpolicies/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceValidatingAdmissionPolicyStatus +instance HasBodyParam ReplaceValidatingAdmissionPolicyStatus V1alpha1ValidatingAdmissionPolicy + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceValidatingAdmissionPolicyStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceValidatingAdmissionPolicyStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceValidatingAdmissionPolicyStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceValidatingAdmissionPolicyStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceValidatingAdmissionPolicyStatus mtype + +-- | @application/json@ +instance Produces ReplaceValidatingAdmissionPolicyStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceValidatingAdmissionPolicyStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceValidatingAdmissionPolicyStatus MimeYaml diff --git a/lib/Kubernetes/OpenAPI/API/Apiextensions.hs b/lib/Kubernetes/OpenAPI/API/Apiextensions.hs --- a/lib/Kubernetes/OpenAPI/API/Apiextensions.hs +++ b/lib/Kubernetes/OpenAPI/API/Apiextensions.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/ApiextensionsV1.hs b/lib/Kubernetes/OpenAPI/API/ApiextensionsV1.hs --- a/lib/Kubernetes/OpenAPI/API/ApiextensionsV1.hs +++ b/lib/Kubernetes/OpenAPI/API/ApiextensionsV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateCustomResourceDefinition FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -185,6 +185,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionCustomResourceDefinition SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionCustomResourceDefinition TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCustomResourceDefinition SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCustomResourceDefinition TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCustomResourceDefinition FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -463,7 +473,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCustomResourceDefinitionStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -588,7 +598,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCustomResourceDefinition FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -642,7 +652,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCustomResourceDefinitionStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Apiregistration.hs b/lib/Kubernetes/OpenAPI/API/Apiregistration.hs --- a/lib/Kubernetes/OpenAPI/API/Apiregistration.hs +++ b/lib/Kubernetes/OpenAPI/API/Apiregistration.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/ApiregistrationV1.hs b/lib/Kubernetes/OpenAPI/API/ApiregistrationV1.hs --- a/lib/Kubernetes/OpenAPI/API/ApiregistrationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/ApiregistrationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateAPIService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -242,6 +242,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionAPIService SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionAPIService TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListAPIService SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListAPIService TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchAPIService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -463,7 +473,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchAPIServiceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -588,7 +598,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceAPIService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -642,7 +652,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceAPIServiceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Apis.hs b/lib/Kubernetes/OpenAPI/API/Apis.hs --- a/lib/Kubernetes/OpenAPI/API/Apis.hs +++ b/lib/Kubernetes/OpenAPI/API/Apis.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/Apps.hs b/lib/Kubernetes/OpenAPI/API/Apps.hs --- a/lib/Kubernetes/OpenAPI/API/Apps.hs +++ b/lib/Kubernetes/OpenAPI/API/Apps.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/AppsV1.hs b/lib/Kubernetes/OpenAPI/API/AppsV1.hs --- a/lib/Kubernetes/OpenAPI/API/AppsV1.hs +++ b/lib/Kubernetes/OpenAPI/API/AppsV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedControllerRevision FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -149,7 +149,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedDaemonSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -203,7 +203,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedDeployment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -257,7 +257,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedReplicaSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -311,7 +311,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedStatefulSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -403,6 +403,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedControllerRevision SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedControllerRevision TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -495,6 +500,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedDaemonSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedDaemonSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -587,6 +597,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedDeployment SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedDeployment TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -679,6 +694,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedReplicaSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedReplicaSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -771,6 +791,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedStatefulSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedStatefulSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1158,6 +1183,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListControllerRevisionForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListControllerRevisionForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1236,6 +1266,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListDaemonSetForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListDaemonSetForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1314,6 +1349,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListDeploymentForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListDeploymentForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1393,6 +1433,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedControllerRevision SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedControllerRevision TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1472,6 +1517,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedDaemonSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedDaemonSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1551,6 +1601,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedDeployment SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedDeployment TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1630,6 +1685,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedReplicaSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedReplicaSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1709,6 +1769,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedStatefulSet SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedStatefulSet TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1787,6 +1852,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListReplicaSetForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListReplicaSetForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1865,6 +1935,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListStatefulSetForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListStatefulSetForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1925,7 +2000,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedControllerRevision FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1991,7 +2066,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedDaemonSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2057,7 +2132,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedDaemonSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2123,7 +2198,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedDeployment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2189,7 +2264,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedDeploymentScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2255,7 +2330,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedDeploymentStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2321,7 +2396,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicaSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2387,7 +2462,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicaSetScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2453,7 +2528,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicaSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2519,7 +2594,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedStatefulSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2585,7 +2660,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedStatefulSetScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2651,7 +2726,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedStatefulSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3089,7 +3164,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedControllerRevision FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3144,7 +3219,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedDaemonSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3199,7 +3274,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedDaemonSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3254,7 +3329,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedDeployment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3309,7 +3384,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedDeploymentScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3364,7 +3439,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedDeploymentStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3419,7 +3494,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicaSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3474,7 +3549,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicaSetScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3529,7 +3604,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicaSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3584,7 +3659,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedStatefulSet FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3639,7 +3714,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedStatefulSetScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -3694,7 +3769,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedStatefulSetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Authentication.hs b/lib/Kubernetes/OpenAPI/API/Authentication.hs --- a/lib/Kubernetes/OpenAPI/API/Authentication.hs +++ b/lib/Kubernetes/OpenAPI/API/Authentication.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/AuthenticationV1.hs b/lib/Kubernetes/OpenAPI/API/AuthenticationV1.hs --- a/lib/Kubernetes/OpenAPI/API/AuthenticationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/AuthenticationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -89,7 +89,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateTokenReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/AuthenticationV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/AuthenticationV1alpha1.hs --- a/lib/Kubernetes/OpenAPI/API/AuthenticationV1alpha1.hs +++ b/lib/Kubernetes/OpenAPI/API/AuthenticationV1alpha1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -89,7 +89,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateSelfSubjectReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/AuthenticationV1beta1.hs b/lib/Kubernetes/OpenAPI/API/AuthenticationV1beta1.hs new file mode 100644 --- /dev/null +++ b/lib/Kubernetes/OpenAPI/API/AuthenticationV1beta1.hs @@ -0,0 +1,135 @@ +{- + Kubernetes + + No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) + + OpenAPI Version: 3.0.1 + Kubernetes API version: release-1.27 + Generated by OpenAPI Generator (https://openapi-generator.tech) +-} + +{-| +Module : Kubernetes.OpenAPI.API.AuthenticationV1beta1 +-} + +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MonoLocalBinds #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} + +module Kubernetes.OpenAPI.API.AuthenticationV1beta1 where + +import Kubernetes.OpenAPI.Core +import Kubernetes.OpenAPI.MimeTypes +import Kubernetes.OpenAPI.Model as M + +import qualified Data.Aeson as A +import qualified Data.ByteString as B +import qualified Data.ByteString.Lazy as BL +import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) +import qualified Data.Foldable as P +import qualified Data.Map as Map +import qualified Data.Maybe as P +import qualified Data.Proxy as P (Proxy(..)) +import qualified Data.Set as Set +import qualified Data.String as P +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import qualified Data.Text.Lazy as TL +import qualified Data.Text.Lazy.Encoding as TL +import qualified Data.Time as TI +import qualified Network.HTTP.Client.MultipartFormData as NH +import qualified Network.HTTP.Media as ME +import qualified Network.HTTP.Types as NH +import qualified Web.FormUrlEncoded as WH +import qualified Web.HttpApiData as WH + +import Data.Text (Text) +import GHC.Base ((<|>)) + +import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) +import qualified Prelude as P + +-- * Operations + + +-- ** AuthenticationV1beta1 + +-- *** createSelfSubjectReview + +-- | @POST \/apis\/authentication.k8s.io\/v1beta1\/selfsubjectreviews@ +-- +-- create a SelfSubjectReview +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createSelfSubjectReview + :: (Consumes CreateSelfSubjectReview contentType, MimeRender contentType V1beta1SelfSubjectReview) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1beta1SelfSubjectReview -- ^ "body" + -> KubernetesRequest CreateSelfSubjectReview contentType V1beta1SelfSubjectReview accept +createSelfSubjectReview _ _ body = + _mkRequest "POST" ["/apis/authentication.k8s.io/v1beta1/selfsubjectreviews"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateSelfSubjectReview +instance HasBodyParam CreateSelfSubjectReview V1beta1SelfSubjectReview + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateSelfSubjectReview DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateSelfSubjectReview FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateSelfSubjectReview FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateSelfSubjectReview Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateSelfSubjectReview mtype + +-- | @application/json@ +instance Produces CreateSelfSubjectReview MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateSelfSubjectReview MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateSelfSubjectReview MimeYaml + + +-- *** getAPIResources + +-- | @GET \/apis\/authentication.k8s.io\/v1beta1\/@ +-- +-- get available resources +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +getAPIResources + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept +getAPIResources _ = + _mkRequest "GET" ["/apis/authentication.k8s.io/v1beta1/"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data GetAPIResources +-- | @application/json@ +instance Produces GetAPIResources MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces GetAPIResources MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces GetAPIResources MimeYaml + diff --git a/lib/Kubernetes/OpenAPI/API/Authorization.hs b/lib/Kubernetes/OpenAPI/API/Authorization.hs --- a/lib/Kubernetes/OpenAPI/API/Authorization.hs +++ b/lib/Kubernetes/OpenAPI/API/Authorization.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/AuthorizationV1.hs b/lib/Kubernetes/OpenAPI/API/AuthorizationV1.hs --- a/lib/Kubernetes/OpenAPI/API/AuthorizationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/AuthorizationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -90,7 +90,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedLocalSubjectAccessReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -143,7 +143,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateSelfSubjectAccessReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -196,7 +196,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateSelfSubjectRulesReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -249,7 +249,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateSubjectAccessReview FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Autoscaling.hs b/lib/Kubernetes/OpenAPI/API/Autoscaling.hs --- a/lib/Kubernetes/OpenAPI/API/Autoscaling.hs +++ b/lib/Kubernetes/OpenAPI/API/Autoscaling.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/AutoscalingV1.hs b/lib/Kubernetes/OpenAPI/API/AutoscalingV1.hs --- a/lib/Kubernetes/OpenAPI/API/AutoscalingV1.hs +++ b/lib/Kubernetes/OpenAPI/API/AutoscalingV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedHorizontalPodAutoscaler SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedHorizontalPodAutoscaler TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -342,6 +347,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListHorizontalPodAutoscalerForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListHorizontalPodAutoscalerForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedHorizontalPodAutoscaler SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedHorizontalPodAutoscaler TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -547,7 +562,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedHorizontalPodAutoscalerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -675,7 +690,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -730,7 +745,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedHorizontalPodAutoscalerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/AutoscalingV2.hs b/lib/Kubernetes/OpenAPI/API/AutoscalingV2.hs --- a/lib/Kubernetes/OpenAPI/API/AutoscalingV2.hs +++ b/lib/Kubernetes/OpenAPI/API/AutoscalingV2.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedHorizontalPodAutoscaler SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedHorizontalPodAutoscaler TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -342,6 +347,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListHorizontalPodAutoscalerForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListHorizontalPodAutoscalerForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedHorizontalPodAutoscaler SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedHorizontalPodAutoscaler TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -547,7 +562,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedHorizontalPodAutoscalerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -675,7 +690,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedHorizontalPodAutoscaler FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -730,7 +745,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedHorizontalPodAutoscalerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Batch.hs b/lib/Kubernetes/OpenAPI/API/Batch.hs --- a/lib/Kubernetes/OpenAPI/API/Batch.hs +++ b/lib/Kubernetes/OpenAPI/API/Batch.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/BatchV1.hs b/lib/Kubernetes/OpenAPI/API/BatchV1.hs --- a/lib/Kubernetes/OpenAPI/API/BatchV1.hs +++ b/lib/Kubernetes/OpenAPI/API/BatchV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedCronJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -149,7 +149,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -241,6 +241,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedCronJob SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedCronJob TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -333,6 +338,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedJob SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedJob TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -546,6 +556,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCronJobForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCronJobForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -624,6 +639,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListJobForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListJobForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -703,6 +723,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedCronJob SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedCronJob TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -782,6 +807,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedJob SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedJob TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -842,7 +872,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedCronJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -908,7 +938,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedCronJobStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -974,7 +1004,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1040,7 +1070,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedJobStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1230,7 +1260,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedCronJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1285,7 +1315,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedCronJobStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1340,7 +1370,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedJob FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1395,7 +1425,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedJobStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Certificates.hs b/lib/Kubernetes/OpenAPI/API/Certificates.hs --- a/lib/Kubernetes/OpenAPI/API/Certificates.hs +++ b/lib/Kubernetes/OpenAPI/API/Certificates.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/CertificatesV1.hs b/lib/Kubernetes/OpenAPI/API/CertificatesV1.hs --- a/lib/Kubernetes/OpenAPI/API/CertificatesV1.hs +++ b/lib/Kubernetes/OpenAPI/API/CertificatesV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateCertificateSigningRequest FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -242,6 +242,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionCertificateSigningRequest SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionCertificateSigningRequest TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCertificateSigningRequest SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCertificateSigningRequest TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCertificateSigningRequest FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -463,7 +473,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCertificateSigningRequestApproval FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -528,7 +538,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCertificateSigningRequestStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -683,7 +693,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCertificateSigningRequest FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -737,7 +747,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCertificateSigningRequestApproval FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -791,7 +801,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCertificateSigningRequestStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/CertificatesV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/CertificatesV1alpha1.hs new file mode 100644 --- /dev/null +++ b/lib/Kubernetes/OpenAPI/API/CertificatesV1alpha1.hs @@ -0,0 +1,520 @@ +{- + Kubernetes + + No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) + + OpenAPI Version: 3.0.1 + Kubernetes API version: release-1.27 + Generated by OpenAPI Generator (https://openapi-generator.tech) +-} + +{-| +Module : Kubernetes.OpenAPI.API.CertificatesV1alpha1 +-} + +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MonoLocalBinds #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} + +module Kubernetes.OpenAPI.API.CertificatesV1alpha1 where + +import Kubernetes.OpenAPI.Core +import Kubernetes.OpenAPI.MimeTypes +import Kubernetes.OpenAPI.Model as M + +import qualified Data.Aeson as A +import qualified Data.ByteString as B +import qualified Data.ByteString.Lazy as BL +import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) +import qualified Data.Foldable as P +import qualified Data.Map as Map +import qualified Data.Maybe as P +import qualified Data.Proxy as P (Proxy(..)) +import qualified Data.Set as Set +import qualified Data.String as P +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import qualified Data.Text.Lazy as TL +import qualified Data.Text.Lazy.Encoding as TL +import qualified Data.Time as TI +import qualified Network.HTTP.Client.MultipartFormData as NH +import qualified Network.HTTP.Media as ME +import qualified Network.HTTP.Types as NH +import qualified Web.FormUrlEncoded as WH +import qualified Web.HttpApiData as WH + +import Data.Text (Text) +import GHC.Base ((<|>)) + +import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) +import qualified Prelude as P + +-- * Operations + + +-- ** CertificatesV1alpha1 + +-- *** createClusterTrustBundle + +-- | @POST \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles@ +-- +-- create a ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createClusterTrustBundle + :: (Consumes CreateClusterTrustBundle contentType, MimeRender contentType V1alpha1ClusterTrustBundle) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha1ClusterTrustBundle -- ^ "body" + -> KubernetesRequest CreateClusterTrustBundle contentType V1alpha1ClusterTrustBundle accept +createClusterTrustBundle _ _ body = + _mkRequest "POST" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateClusterTrustBundle +instance HasBodyParam CreateClusterTrustBundle V1alpha1ClusterTrustBundle + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateClusterTrustBundle DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateClusterTrustBundle FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateClusterTrustBundle FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateClusterTrustBundle mtype + +-- | @application/json@ +instance Produces CreateClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateClusterTrustBundle MimeYaml + + +-- *** deleteClusterTrustBundle + +-- | @DELETE \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles\/{name}@ +-- +-- delete a ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteClusterTrustBundle + :: (Consumes DeleteClusterTrustBundle contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ClusterTrustBundle + -> KubernetesRequest DeleteClusterTrustBundle contentType V1Status accept +deleteClusterTrustBundle _ _ (Name name) = + _mkRequest "DELETE" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteClusterTrustBundle +instance HasBodyParam DeleteClusterTrustBundle V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteClusterTrustBundle DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteClusterTrustBundle GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteClusterTrustBundle OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteClusterTrustBundle PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteClusterTrustBundle mtype + +-- | @application/json@ +instance Produces DeleteClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteClusterTrustBundle MimeYaml + + +-- *** deleteCollectionClusterTrustBundle + +-- | @DELETE \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles@ +-- +-- delete collection of ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionClusterTrustBundle + :: (Consumes DeleteCollectionClusterTrustBundle contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest DeleteCollectionClusterTrustBundle contentType V1Status accept +deleteCollectionClusterTrustBundle _ _ = + _mkRequest "DELETE" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionClusterTrustBundle +instance HasBodyParam DeleteCollectionClusterTrustBundle V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionClusterTrustBundle Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionClusterTrustBundle DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionClusterTrustBundle FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionClusterTrustBundle GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionClusterTrustBundle LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionClusterTrustBundle Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionClusterTrustBundle OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionClusterTrustBundle PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionClusterTrustBundle ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionClusterTrustBundle ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionClusterTrustBundle SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionClusterTrustBundle TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionClusterTrustBundle mtype + +-- | @application/json@ +instance Produces DeleteCollectionClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionClusterTrustBundle MimeYaml + + +-- *** getAPIResources + +-- | @GET \/apis\/certificates.k8s.io\/v1alpha1\/@ +-- +-- get available resources +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +getAPIResources + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept +getAPIResources _ = + _mkRequest "GET" ["/apis/certificates.k8s.io/v1alpha1/"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data GetAPIResources +-- | @application/json@ +instance Produces GetAPIResources MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces GetAPIResources MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces GetAPIResources MimeYaml + + +-- *** listClusterTrustBundle + +-- | @GET \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles@ +-- +-- list or watch objects of kind ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listClusterTrustBundle + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListClusterTrustBundle MimeNoContent V1alpha1ClusterTrustBundleList accept +listClusterTrustBundle _ = + _mkRequest "GET" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListClusterTrustBundle + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListClusterTrustBundle AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListClusterTrustBundle Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListClusterTrustBundle FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListClusterTrustBundle LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListClusterTrustBundle Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListClusterTrustBundle ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListClusterTrustBundle ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListClusterTrustBundle SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListClusterTrustBundle TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListClusterTrustBundle Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListClusterTrustBundle MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListClusterTrustBundle MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListClusterTrustBundle MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListClusterTrustBundle MimeYaml + + +-- *** patchClusterTrustBundle + +-- | @PATCH \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles\/{name}@ +-- +-- partially update the specified ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchClusterTrustBundle + :: (Consumes PatchClusterTrustBundle contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ClusterTrustBundle + -> KubernetesRequest PatchClusterTrustBundle contentType V1alpha1ClusterTrustBundle accept +patchClusterTrustBundle _ _ body (Name name) = + _mkRequest "PATCH" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchClusterTrustBundle +instance HasBodyParam PatchClusterTrustBundle Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchClusterTrustBundle DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchClusterTrustBundle FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchClusterTrustBundle FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchClusterTrustBundle Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchClusterTrustBundle MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchClusterTrustBundle MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchClusterTrustBundle MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchClusterTrustBundle MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchClusterTrustBundle MimeYaml + + +-- *** readClusterTrustBundle + +-- | @GET \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles\/{name}@ +-- +-- read the specified ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readClusterTrustBundle + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ClusterTrustBundle + -> KubernetesRequest ReadClusterTrustBundle MimeNoContent V1alpha1ClusterTrustBundle accept +readClusterTrustBundle _ (Name name) = + _mkRequest "GET" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadClusterTrustBundle + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadClusterTrustBundle MimeYaml + + +-- *** replaceClusterTrustBundle + +-- | @PUT \/apis\/certificates.k8s.io\/v1alpha1\/clustertrustbundles\/{name}@ +-- +-- replace the specified ClusterTrustBundle +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceClusterTrustBundle + :: (Consumes ReplaceClusterTrustBundle contentType, MimeRender contentType V1alpha1ClusterTrustBundle) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha1ClusterTrustBundle -- ^ "body" + -> Name -- ^ "name" - name of the ClusterTrustBundle + -> KubernetesRequest ReplaceClusterTrustBundle contentType V1alpha1ClusterTrustBundle accept +replaceClusterTrustBundle _ _ body (Name name) = + _mkRequest "PUT" ["/apis/certificates.k8s.io/v1alpha1/clustertrustbundles/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceClusterTrustBundle +instance HasBodyParam ReplaceClusterTrustBundle V1alpha1ClusterTrustBundle + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceClusterTrustBundle Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceClusterTrustBundle DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceClusterTrustBundle FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceClusterTrustBundle FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceClusterTrustBundle mtype + +-- | @application/json@ +instance Produces ReplaceClusterTrustBundle MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceClusterTrustBundle MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceClusterTrustBundle MimeYaml + diff --git a/lib/Kubernetes/OpenAPI/API/Coordination.hs b/lib/Kubernetes/OpenAPI/API/Coordination.hs --- a/lib/Kubernetes/OpenAPI/API/Coordination.hs +++ b/lib/Kubernetes/OpenAPI/API/Coordination.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/CoordinationV1.hs b/lib/Kubernetes/OpenAPI/API/CoordinationV1.hs --- a/lib/Kubernetes/OpenAPI/API/CoordinationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/CoordinationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedLease FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedLease SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedLease TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -342,6 +347,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListLeaseForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListLeaseForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedLease SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedLease TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedLease FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -578,7 +593,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedLease FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Core.hs b/lib/Kubernetes/OpenAPI/API/Core.hs --- a/lib/Kubernetes/OpenAPI/API/Core.hs +++ b/lib/Kubernetes/OpenAPI/API/Core.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/CoreV1.hs b/lib/Kubernetes/OpenAPI/API/CoreV1.hs --- a/lib/Kubernetes/OpenAPI/API/CoreV1.hs +++ b/lib/Kubernetes/OpenAPI/API/CoreV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -1487,7 +1487,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespace FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1536,7 +1536,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1595,7 +1595,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedConfigMap FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1649,7 +1649,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedEndpoints FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1703,7 +1703,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1757,7 +1757,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedLimitRange FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1811,7 +1811,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPersistentVolumeClaim FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1865,7 +1865,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPod FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1915,7 +1915,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPodBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1970,7 +1970,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPodEviction FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2029,7 +2029,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPodTemplate FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2083,7 +2083,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedReplicationController FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2137,7 +2137,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedResourceQuota FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2191,7 +2191,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedSecret FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2245,7 +2245,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2299,7 +2299,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedServiceAccount FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2349,7 +2349,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedServiceAccountToken FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2407,7 +2407,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2460,7 +2460,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreatePersistentVolume FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2552,6 +2552,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedConfigMap SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedConfigMap TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -2644,6 +2649,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedEndpoints SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedEndpoints TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -2736,6 +2746,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedEvent SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedEvent TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -2828,6 +2843,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedLimitRange SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedLimitRange TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -2920,6 +2940,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedPersistentVolumeClaim SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedPersistentVolumeClaim TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3012,6 +3037,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedPod SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedPod TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3104,6 +3134,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedPodTemplate SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedPodTemplate TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3196,6 +3231,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedReplicationController SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedReplicationController TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3288,6 +3328,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedResourceQuota SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedResourceQuota TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3380,6 +3425,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedSecret SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedSecret TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3472,6 +3522,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedService SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedService TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3564,6 +3619,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedServiceAccount SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedServiceAccount TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3655,6 +3715,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNode SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNode TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -3746,6 +3811,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionPersistentVolume SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionPersistentVolume TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -4710,6 +4780,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListComponentStatus SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListComponentStatus TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -4788,6 +4863,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListConfigMapForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListConfigMapForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -4866,6 +4946,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListEndpointsForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListEndpointsForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -4944,6 +5029,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListEventForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListEventForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5022,6 +5112,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListLimitRangeForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListLimitRangeForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5100,6 +5195,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespace SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespace TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5179,6 +5279,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedConfigMap SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedConfigMap TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5258,6 +5363,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedEndpoints SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedEndpoints TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5337,6 +5447,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedEvent SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedEvent TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5416,6 +5531,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedLimitRange SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedLimitRange TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5495,6 +5615,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedPersistentVolumeClaim SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedPersistentVolumeClaim TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5574,6 +5699,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedPod SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedPod TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5653,6 +5783,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedPodTemplate SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedPodTemplate TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5732,6 +5867,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedReplicationController SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedReplicationController TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5811,6 +5951,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedResourceQuota SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedResourceQuota TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5890,6 +6035,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedSecret SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedSecret TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -5969,6 +6119,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedService SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedService TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6048,6 +6203,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedServiceAccount SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedServiceAccount TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6126,6 +6286,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNode SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNode TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6204,6 +6369,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPersistentVolume SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPersistentVolume TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6282,6 +6452,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPersistentVolumeClaimForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPersistentVolumeClaimForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6360,6 +6535,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPodForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPodForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6438,6 +6618,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPodTemplateForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPodTemplateForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6516,6 +6701,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListReplicationControllerForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListReplicationControllerForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6594,6 +6784,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListResourceQuotaForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListResourceQuotaForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6672,6 +6867,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListSecretForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListSecretForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6750,6 +6950,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListServiceAccountForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListServiceAccountForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6828,6 +7033,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListServiceForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListServiceForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -6887,7 +7097,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespace FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -6952,7 +7162,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespaceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7018,7 +7228,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedConfigMap FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7084,7 +7294,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedEndpoints FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7150,7 +7360,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7216,7 +7426,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedLimitRange FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7282,7 +7492,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPersistentVolumeClaim FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7348,7 +7558,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPersistentVolumeClaimStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7414,7 +7624,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPod FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7480,7 +7690,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPodEphemeralcontainers FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7546,7 +7756,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPodStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7612,7 +7822,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPodTemplate FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7678,7 +7888,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicationController FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7744,7 +7954,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicationControllerScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7810,7 +8020,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedReplicationControllerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7876,7 +8086,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedResourceQuota FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -7942,7 +8152,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedResourceQuotaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8008,7 +8218,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedSecret FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8074,7 +8284,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8140,7 +8350,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedServiceAccount FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8206,7 +8416,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedServiceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8271,7 +8481,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8336,7 +8546,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNodeStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8401,7 +8611,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPersistentVolume FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -8466,7 +8676,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPersistentVolumeStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9403,7 +9613,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespace FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9452,7 +9662,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespaceFinalize FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9511,7 +9721,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespaceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9566,7 +9776,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedConfigMap FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9621,7 +9831,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedEndpoints FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9676,7 +9886,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9731,7 +9941,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedLimitRange FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9786,7 +9996,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPersistentVolumeClaim FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9841,7 +10051,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPersistentVolumeClaimStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9896,7 +10106,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPod FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -9951,7 +10161,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPodEphemeralcontainers FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10006,7 +10216,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPodStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10061,7 +10271,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPodTemplate FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10116,7 +10326,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicationController FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10171,7 +10381,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicationControllerScale FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10226,7 +10436,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedReplicationControllerStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10281,7 +10491,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedResourceQuota FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10336,7 +10546,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedResourceQuotaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10391,7 +10601,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedSecret FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10446,7 +10656,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedService FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10501,7 +10711,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedServiceAccount FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10556,7 +10766,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedServiceStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10610,7 +10820,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10664,7 +10874,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNodeStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10718,7 +10928,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePersistentVolume FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -10772,7 +10982,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePersistentVolumeStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/CustomObjects.hs b/lib/Kubernetes/OpenAPI/API/CustomObjects.hs --- a/lib/Kubernetes/OpenAPI/API/CustomObjects.hs +++ b/lib/Kubernetes/OpenAPI/API/CustomObjects.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/Discovery.hs b/lib/Kubernetes/OpenAPI/API/Discovery.hs --- a/lib/Kubernetes/OpenAPI/API/Discovery.hs +++ b/lib/Kubernetes/OpenAPI/API/Discovery.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/DiscoveryV1.hs b/lib/Kubernetes/OpenAPI/API/DiscoveryV1.hs --- a/lib/Kubernetes/OpenAPI/API/DiscoveryV1.hs +++ b/lib/Kubernetes/OpenAPI/API/DiscoveryV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedEndpointSlice FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedEndpointSlice SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedEndpointSlice TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -342,6 +347,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListEndpointSliceForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListEndpointSliceForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedEndpointSlice SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedEndpointSlice TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedEndpointSlice FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -578,7 +593,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedEndpointSlice FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Events.hs b/lib/Kubernetes/OpenAPI/API/Events.hs --- a/lib/Kubernetes/OpenAPI/API/Events.hs +++ b/lib/Kubernetes/OpenAPI/API/Events.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/EventsV1.hs b/lib/Kubernetes/OpenAPI/API/EventsV1.hs --- a/lib/Kubernetes/OpenAPI/API/EventsV1.hs +++ b/lib/Kubernetes/OpenAPI/API/EventsV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedEvent SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedEvent TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -342,6 +347,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListEventForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListEventForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedEvent SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedEvent TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -578,7 +593,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedEvent FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserver.hs b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserver.hs --- a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserver.hs +++ b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserver.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta2.hs b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta2.hs --- a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta2.hs +++ b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta2.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreatePriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -238,6 +238,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionFlowSchema SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionFlowSchema TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -329,6 +334,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionPriorityLevelConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionPriorityLevelConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -540,6 +550,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListFlowSchema SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListFlowSchema TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -618,6 +633,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPriorityLevelConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPriorityLevelConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -677,7 +697,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -742,7 +762,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchFlowSchemaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -807,7 +827,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -872,7 +892,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPriorityLevelConfigurationStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1057,7 +1077,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1111,7 +1131,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceFlowSchemaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1165,7 +1185,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1219,7 +1239,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePriorityLevelConfigurationStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta3.hs b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta3.hs --- a/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta3.hs +++ b/lib/Kubernetes/OpenAPI/API/FlowcontrolApiserverV1beta3.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreatePriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -238,6 +238,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionFlowSchema SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionFlowSchema TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -329,6 +334,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionPriorityLevelConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionPriorityLevelConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -540,6 +550,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListFlowSchema SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListFlowSchema TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -618,6 +633,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPriorityLevelConfiguration SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPriorityLevelConfiguration TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -677,7 +697,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -742,7 +762,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchFlowSchemaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -807,7 +827,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -872,7 +892,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPriorityLevelConfigurationStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1057,7 +1077,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceFlowSchema FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1111,7 +1131,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceFlowSchemaStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1165,7 +1185,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePriorityLevelConfiguration FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1219,7 +1239,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePriorityLevelConfigurationStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/InternalApiserver.hs b/lib/Kubernetes/OpenAPI/API/InternalApiserver.hs --- a/lib/Kubernetes/OpenAPI/API/InternalApiserver.hs +++ b/lib/Kubernetes/OpenAPI/API/InternalApiserver.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/InternalApiserverV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/InternalApiserverV1alpha1.hs --- a/lib/Kubernetes/OpenAPI/API/InternalApiserverV1alpha1.hs +++ b/lib/Kubernetes/OpenAPI/API/InternalApiserverV1alpha1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateStorageVersion FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -185,6 +185,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionStorageVersion SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionStorageVersion TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListStorageVersion SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListStorageVersion TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchStorageVersion FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -463,7 +473,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchStorageVersionStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -588,7 +598,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceStorageVersion FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -642,7 +652,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceStorageVersionStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Logs.hs b/lib/Kubernetes/OpenAPI/API/Logs.hs --- a/lib/Kubernetes/OpenAPI/API/Logs.hs +++ b/lib/Kubernetes/OpenAPI/API/Logs.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/Networking.hs b/lib/Kubernetes/OpenAPI/API/Networking.hs --- a/lib/Kubernetes/OpenAPI/API/Networking.hs +++ b/lib/Kubernetes/OpenAPI/API/Networking.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/NetworkingV1.hs b/lib/Kubernetes/OpenAPI/API/NetworkingV1.hs --- a/lib/Kubernetes/OpenAPI/API/NetworkingV1.hs +++ b/lib/Kubernetes/OpenAPI/API/NetworkingV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateIngressClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -148,7 +148,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedIngress FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -202,7 +202,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedNetworkPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -293,6 +293,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionIngressClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionIngressClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -385,6 +390,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedIngress SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedIngress TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -477,6 +487,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedNetworkPolicy SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedNetworkPolicy TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -747,6 +762,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListIngressClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListIngressClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -825,6 +845,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListIngressForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListIngressForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -904,6 +929,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedIngress SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedIngress TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -983,6 +1013,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedNetworkPolicy SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedNetworkPolicy TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1061,6 +1096,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNetworkPolicyForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNetworkPolicyForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1120,7 +1160,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchIngressClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1186,7 +1226,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedIngress FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1252,7 +1292,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedIngressStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1318,7 +1358,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedNetworkPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1384,7 +1424,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedNetworkPolicyStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1603,7 +1643,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceIngressClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1658,7 +1698,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedIngress FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1713,7 +1753,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedIngressStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1768,7 +1808,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedNetworkPolicy FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1823,7 +1863,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedNetworkPolicyStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/NetworkingV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/NetworkingV1alpha1.hs --- a/lib/Kubernetes/OpenAPI/API/NetworkingV1alpha1.hs +++ b/lib/Kubernetes/OpenAPI/API/NetworkingV1alpha1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateClusterCIDR FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -110,6 +110,59 @@ instance Produces CreateClusterCIDR MimeYaml +-- *** createIPAddress + +-- | @POST \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses@ +-- +-- create an IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createIPAddress + :: (Consumes CreateIPAddress contentType, MimeRender contentType V1alpha1IPAddress) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha1IPAddress -- ^ "body" + -> KubernetesRequest CreateIPAddress contentType V1alpha1IPAddress accept +createIPAddress _ _ body = + _mkRequest "POST" ["/apis/networking.k8s.io/v1alpha1/ipaddresses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateIPAddress +instance HasBodyParam CreateIPAddress V1alpha1IPAddress + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateIPAddress DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateIPAddress FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateIPAddress FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateIPAddress mtype + +-- | @application/json@ +instance Produces CreateIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateIPAddress MimeYaml + + -- *** deleteClusterCIDR -- | @DELETE \/apis\/networking.k8s.io\/v1alpha1\/clustercidrs\/{name}@ @@ -242,6 +295,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionClusterCIDR SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionClusterCIDR TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -258,6 +316,159 @@ instance Produces DeleteCollectionClusterCIDR MimeYaml +-- *** deleteCollectionIPAddress + +-- | @DELETE \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses@ +-- +-- delete collection of IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionIPAddress + :: (Consumes DeleteCollectionIPAddress contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest DeleteCollectionIPAddress contentType V1Status accept +deleteCollectionIPAddress _ _ = + _mkRequest "DELETE" ["/apis/networking.k8s.io/v1alpha1/ipaddresses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionIPAddress +instance HasBodyParam DeleteCollectionIPAddress V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionIPAddress Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionIPAddress DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionIPAddress FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionIPAddress GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionIPAddress LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionIPAddress Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionIPAddress OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionIPAddress PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionIPAddress ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionIPAddress ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionIPAddress SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionIPAddress TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionIPAddress mtype + +-- | @application/json@ +instance Produces DeleteCollectionIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionIPAddress MimeYaml + + +-- *** deleteIPAddress + +-- | @DELETE \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses\/{name}@ +-- +-- delete an IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteIPAddress + :: (Consumes DeleteIPAddress contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the IPAddress + -> KubernetesRequest DeleteIPAddress contentType V1Status accept +deleteIPAddress _ _ (Name name) = + _mkRequest "DELETE" ["/apis/networking.k8s.io/v1alpha1/ipaddresses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteIPAddress +instance HasBodyParam DeleteIPAddress V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteIPAddress DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteIPAddress GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteIPAddress OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteIPAddress PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteIPAddress mtype + +-- | @application/json@ +instance Produces DeleteIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteIPAddress MimeYaml + + -- *** getAPIResources -- | @GET \/apis\/networking.k8s.io\/v1alpha1\/@ @@ -339,6 +550,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListClusterCIDR SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListClusterCIDR TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -360,6 +576,89 @@ instance Produces ListClusterCIDR MimeYaml +-- *** listIPAddress + +-- | @GET \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses@ +-- +-- list or watch objects of kind IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listIPAddress + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListIPAddress MimeNoContent V1alpha1IPAddressList accept +listIPAddress _ = + _mkRequest "GET" ["/apis/networking.k8s.io/v1alpha1/ipaddresses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListIPAddress + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListIPAddress AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListIPAddress Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListIPAddress FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListIPAddress LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListIPAddress Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListIPAddress ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListIPAddress ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListIPAddress SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListIPAddress TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListIPAddress Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListIPAddress MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListIPAddress MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListIPAddress MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListIPAddress MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListIPAddress MimeYaml + + -- *** patchClusterCIDR -- | @PATCH \/apis\/networking.k8s.io\/v1alpha1\/clustercidrs\/{name}@ @@ -398,7 +697,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchClusterCIDR FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -425,6 +724,71 @@ instance Produces PatchClusterCIDR MimeYaml +-- *** patchIPAddress + +-- | @PATCH \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses\/{name}@ +-- +-- partially update the specified IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchIPAddress + :: (Consumes PatchIPAddress contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the IPAddress + -> KubernetesRequest PatchIPAddress contentType V1alpha1IPAddress accept +patchIPAddress _ _ body (Name name) = + _mkRequest "PATCH" ["/apis/networking.k8s.io/v1alpha1/ipaddresses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchIPAddress +instance HasBodyParam PatchIPAddress Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchIPAddress DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchIPAddress FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchIPAddress FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchIPAddress Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchIPAddress MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchIPAddress MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchIPAddress MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchIPAddress MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchIPAddress MimeYaml + + -- *** readClusterCIDR -- | @GET \/apis\/networking.k8s.io\/v1alpha1\/clustercidrs\/{name}@ @@ -455,6 +819,36 @@ instance Produces ReadClusterCIDR MimeYaml +-- *** readIPAddress + +-- | @GET \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses\/{name}@ +-- +-- read the specified IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readIPAddress + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the IPAddress + -> KubernetesRequest ReadIPAddress MimeNoContent V1alpha1IPAddress accept +readIPAddress _ (Name name) = + _mkRequest "GET" ["/apis/networking.k8s.io/v1alpha1/ipaddresses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadIPAddress + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadIPAddress MimeYaml + + -- *** replaceClusterCIDR -- | @PUT \/apis\/networking.k8s.io\/v1alpha1\/clustercidrs\/{name}@ @@ -493,7 +887,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceClusterCIDR FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -507,4 +901,58 @@ instance Produces ReplaceClusterCIDR MimeVndKubernetesProtobuf -- | @application/yaml@ instance Produces ReplaceClusterCIDR MimeYaml + + +-- *** replaceIPAddress + +-- | @PUT \/apis\/networking.k8s.io\/v1alpha1\/ipaddresses\/{name}@ +-- +-- replace the specified IPAddress +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceIPAddress + :: (Consumes ReplaceIPAddress contentType, MimeRender contentType V1alpha1IPAddress) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha1IPAddress -- ^ "body" + -> Name -- ^ "name" - name of the IPAddress + -> KubernetesRequest ReplaceIPAddress contentType V1alpha1IPAddress accept +replaceIPAddress _ _ body (Name name) = + _mkRequest "PUT" ["/apis/networking.k8s.io/v1alpha1/ipaddresses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceIPAddress +instance HasBodyParam ReplaceIPAddress V1alpha1IPAddress + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceIPAddress Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceIPAddress DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceIPAddress FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceIPAddress FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceIPAddress mtype + +-- | @application/json@ +instance Produces ReplaceIPAddress MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceIPAddress MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceIPAddress MimeYaml diff --git a/lib/Kubernetes/OpenAPI/API/Node.hs b/lib/Kubernetes/OpenAPI/API/Node.hs --- a/lib/Kubernetes/OpenAPI/API/Node.hs +++ b/lib/Kubernetes/OpenAPI/API/Node.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/NodeV1.hs b/lib/Kubernetes/OpenAPI/API/NodeV1.hs --- a/lib/Kubernetes/OpenAPI/API/NodeV1.hs +++ b/lib/Kubernetes/OpenAPI/API/NodeV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateRuntimeClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -185,6 +185,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionRuntimeClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionRuntimeClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListRuntimeClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListRuntimeClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchRuntimeClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -493,7 +503,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceRuntimeClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Openid.hs b/lib/Kubernetes/OpenAPI/API/Openid.hs --- a/lib/Kubernetes/OpenAPI/API/Openid.hs +++ b/lib/Kubernetes/OpenAPI/API/Openid.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/Policy.hs b/lib/Kubernetes/OpenAPI/API/Policy.hs --- a/lib/Kubernetes/OpenAPI/API/Policy.hs +++ b/lib/Kubernetes/OpenAPI/API/Policy.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/PolicyV1.hs b/lib/Kubernetes/OpenAPI/API/PolicyV1.hs --- a/lib/Kubernetes/OpenAPI/API/PolicyV1.hs +++ b/lib/Kubernetes/OpenAPI/API/PolicyV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -95,7 +95,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedPodDisruptionBudget FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -187,6 +187,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedPodDisruptionBudget SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedPodDisruptionBudget TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -343,6 +348,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedPodDisruptionBudget SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedPodDisruptionBudget TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -421,6 +431,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPodDisruptionBudgetForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPodDisruptionBudgetForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -481,7 +496,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPodDisruptionBudget FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -547,7 +562,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedPodDisruptionBudgetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -675,7 +690,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPodDisruptionBudget FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -730,7 +745,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedPodDisruptionBudgetStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/RbacAuthorization.hs b/lib/Kubernetes/OpenAPI/API/RbacAuthorization.hs --- a/lib/Kubernetes/OpenAPI/API/RbacAuthorization.hs +++ b/lib/Kubernetes/OpenAPI/API/RbacAuthorization.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/RbacAuthorizationV1.hs b/lib/Kubernetes/OpenAPI/API/RbacAuthorizationV1.hs --- a/lib/Kubernetes/OpenAPI/API/RbacAuthorizationV1.hs +++ b/lib/Kubernetes/OpenAPI/API/RbacAuthorizationV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateClusterRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateClusterRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -201,7 +201,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -255,7 +255,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -460,6 +460,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionClusterRole SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionClusterRole TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -551,6 +556,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionClusterRoleBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionClusterRoleBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -643,6 +653,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedRole SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedRole TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -735,6 +750,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedRoleBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedRoleBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -948,6 +968,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListClusterRole SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListClusterRole TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1026,6 +1051,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListClusterRoleBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListClusterRoleBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1105,6 +1135,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedRole SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedRole TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1184,6 +1219,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedRoleBinding SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedRoleBinding TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1262,6 +1302,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListRoleBindingForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListRoleBindingForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1340,6 +1385,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListRoleForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListRoleForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1399,7 +1449,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchClusterRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1464,7 +1514,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchClusterRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1530,7 +1580,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1596,7 +1646,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1783,7 +1833,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceClusterRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1837,7 +1887,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceClusterRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1892,7 +1942,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedRole FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1947,7 +1997,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedRoleBinding FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Resource.hs b/lib/Kubernetes/OpenAPI/API/Resource.hs --- a/lib/Kubernetes/OpenAPI/API/Resource.hs +++ b/lib/Kubernetes/OpenAPI/API/Resource.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/ResourceV1alpha1.hs b/lib/Kubernetes/OpenAPI/API/ResourceV1alpha1.hs deleted file mode 100644 --- a/lib/Kubernetes/OpenAPI/API/ResourceV1alpha1.hs +++ /dev/null @@ -1,2353 +0,0 @@ -{- - Kubernetes - - No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) - - OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : Kubernetes.OpenAPI.API.ResourceV1alpha1 --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module Kubernetes.OpenAPI.API.ResourceV1alpha1 where - -import Kubernetes.OpenAPI.Core -import Kubernetes.OpenAPI.MimeTypes -import Kubernetes.OpenAPI.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** ResourceV1alpha1 - --- *** createNamespacedPodScheduling - --- | @POST \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings@ --- --- create a PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -createNamespacedPodScheduling - :: (Consumes CreateNamespacedPodScheduling contentType, MimeRender contentType V1alpha1PodScheduling) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1PodScheduling -- ^ "body" - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest CreateNamespacedPodScheduling contentType V1alpha1PodScheduling accept -createNamespacedPodScheduling _ _ body (Namespace namespace) = - _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data CreateNamespacedPodScheduling -instance HasBodyParam CreateNamespacedPodScheduling V1alpha1PodScheduling - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam CreateNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam CreateNamespacedPodScheduling DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam CreateNamespacedPodScheduling FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam CreateNamespacedPodScheduling FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes CreateNamespacedPodScheduling mtype - --- | @application/json@ -instance Produces CreateNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces CreateNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces CreateNamespacedPodScheduling MimeYaml - - --- *** createNamespacedResourceClaim - --- | @POST \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims@ --- --- create a ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -createNamespacedResourceClaim - :: (Consumes CreateNamespacedResourceClaim contentType, MimeRender contentType V1alpha1ResourceClaim) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClaim -- ^ "body" - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest CreateNamespacedResourceClaim contentType V1alpha1ResourceClaim accept -createNamespacedResourceClaim _ _ body (Namespace namespace) = - _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data CreateNamespacedResourceClaim -instance HasBodyParam CreateNamespacedResourceClaim V1alpha1ResourceClaim - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam CreateNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam CreateNamespacedResourceClaim DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam CreateNamespacedResourceClaim FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam CreateNamespacedResourceClaim FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes CreateNamespacedResourceClaim mtype - --- | @application/json@ -instance Produces CreateNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces CreateNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces CreateNamespacedResourceClaim MimeYaml - - --- *** createNamespacedResourceClaimTemplate - --- | @POST \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates@ --- --- create a ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -createNamespacedResourceClaimTemplate - :: (Consumes CreateNamespacedResourceClaimTemplate contentType, MimeRender contentType V1alpha1ResourceClaimTemplate) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClaimTemplate -- ^ "body" - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest CreateNamespacedResourceClaimTemplate contentType V1alpha1ResourceClaimTemplate accept -createNamespacedResourceClaimTemplate _ _ body (Namespace namespace) = - _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data CreateNamespacedResourceClaimTemplate -instance HasBodyParam CreateNamespacedResourceClaimTemplate V1alpha1ResourceClaimTemplate - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam CreateNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam CreateNamespacedResourceClaimTemplate DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam CreateNamespacedResourceClaimTemplate FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam CreateNamespacedResourceClaimTemplate FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes CreateNamespacedResourceClaimTemplate mtype - --- | @application/json@ -instance Produces CreateNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces CreateNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces CreateNamespacedResourceClaimTemplate MimeYaml - - --- *** createResourceClass - --- | @POST \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses@ --- --- create a ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -createResourceClass - :: (Consumes CreateResourceClass contentType, MimeRender contentType V1alpha1ResourceClass) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClass -- ^ "body" - -> KubernetesRequest CreateResourceClass contentType V1alpha1ResourceClass accept -createResourceClass _ _ body = - _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha1/resourceclasses"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data CreateResourceClass -instance HasBodyParam CreateResourceClass V1alpha1ResourceClass - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam CreateResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam CreateResourceClass DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam CreateResourceClass FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam CreateResourceClass FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes CreateResourceClass mtype - --- | @application/json@ -instance Produces CreateResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces CreateResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces CreateResourceClass MimeYaml - - --- *** deleteCollectionNamespacedPodScheduling - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings@ --- --- delete collection of PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteCollectionNamespacedPodScheduling - :: (Consumes DeleteCollectionNamespacedPodScheduling contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteCollectionNamespacedPodScheduling contentType V1Status accept -deleteCollectionNamespacedPodScheduling _ _ (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteCollectionNamespacedPodScheduling -instance HasBodyParam DeleteCollectionNamespacedPodScheduling V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam DeleteCollectionNamespacedPodScheduling TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteCollectionNamespacedPodScheduling mtype - --- | @application/json@ -instance Produces DeleteCollectionNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteCollectionNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteCollectionNamespacedPodScheduling MimeYaml - - --- *** deleteCollectionNamespacedResourceClaim - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims@ --- --- delete collection of ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteCollectionNamespacedResourceClaim - :: (Consumes DeleteCollectionNamespacedResourceClaim contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteCollectionNamespacedResourceClaim contentType V1Status accept -deleteCollectionNamespacedResourceClaim _ _ (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteCollectionNamespacedResourceClaim -instance HasBodyParam DeleteCollectionNamespacedResourceClaim V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaim TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteCollectionNamespacedResourceClaim mtype - --- | @application/json@ -instance Produces DeleteCollectionNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteCollectionNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteCollectionNamespacedResourceClaim MimeYaml - - --- *** deleteCollectionNamespacedResourceClaimTemplate - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates@ --- --- delete collection of ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteCollectionNamespacedResourceClaimTemplate - :: (Consumes DeleteCollectionNamespacedResourceClaimTemplate contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteCollectionNamespacedResourceClaimTemplate contentType V1Status accept -deleteCollectionNamespacedResourceClaimTemplate _ _ (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteCollectionNamespacedResourceClaimTemplate -instance HasBodyParam DeleteCollectionNamespacedResourceClaimTemplate V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteCollectionNamespacedResourceClaimTemplate mtype - --- | @application/json@ -instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeYaml - - --- *** deleteCollectionResourceClass - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses@ --- --- delete collection of ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteCollectionResourceClass - :: (Consumes DeleteCollectionResourceClass contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest DeleteCollectionResourceClass contentType V1Status accept -deleteCollectionResourceClass _ _ = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/resourceclasses"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteCollectionResourceClass -instance HasBodyParam DeleteCollectionResourceClass V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteCollectionResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam DeleteCollectionResourceClass Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteCollectionResourceClass DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam DeleteCollectionResourceClass FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteCollectionResourceClass GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam DeleteCollectionResourceClass LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam DeleteCollectionResourceClass Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteCollectionResourceClass OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteCollectionResourceClass PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionResourceClass ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionResourceClass ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam DeleteCollectionResourceClass TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteCollectionResourceClass mtype - --- | @application/json@ -instance Produces DeleteCollectionResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteCollectionResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteCollectionResourceClass MimeYaml - - --- *** deleteNamespacedPodScheduling - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}@ --- --- delete a PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteNamespacedPodScheduling - :: (Consumes DeleteNamespacedPodScheduling contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteNamespacedPodScheduling contentType V1alpha1PodScheduling accept -deleteNamespacedPodScheduling _ _ (Name name) (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteNamespacedPodScheduling -instance HasBodyParam DeleteNamespacedPodScheduling V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteNamespacedPodScheduling DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteNamespacedPodScheduling GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteNamespacedPodScheduling OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteNamespacedPodScheduling PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteNamespacedPodScheduling mtype - --- | @application/json@ -instance Produces DeleteNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteNamespacedPodScheduling MimeYaml - - --- *** deleteNamespacedResourceClaim - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}@ --- --- delete a ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteNamespacedResourceClaim - :: (Consumes DeleteNamespacedResourceClaim contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteNamespacedResourceClaim contentType V1alpha1ResourceClaim accept -deleteNamespacedResourceClaim _ _ (Name name) (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteNamespacedResourceClaim -instance HasBodyParam DeleteNamespacedResourceClaim V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteNamespacedResourceClaim DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteNamespacedResourceClaim GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteNamespacedResourceClaim OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteNamespacedResourceClaim PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteNamespacedResourceClaim mtype - --- | @application/json@ -instance Produces DeleteNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteNamespacedResourceClaim MimeYaml - - --- *** deleteNamespacedResourceClaimTemplate - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ --- --- delete a ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteNamespacedResourceClaimTemplate - :: (Consumes DeleteNamespacedResourceClaimTemplate contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClaimTemplate - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteNamespacedResourceClaimTemplate contentType V1alpha1ResourceClaimTemplate accept -deleteNamespacedResourceClaimTemplate _ _ (Name name) (Namespace namespace) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteNamespacedResourceClaimTemplate -instance HasBodyParam DeleteNamespacedResourceClaimTemplate V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteNamespacedResourceClaimTemplate DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteNamespacedResourceClaimTemplate GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteNamespacedResourceClaimTemplate OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteNamespacedResourceClaimTemplate PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteNamespacedResourceClaimTemplate mtype - --- | @application/json@ -instance Produces DeleteNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteNamespacedResourceClaimTemplate MimeYaml - - --- *** deleteResourceClass - --- | @DELETE \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses\/{name}@ --- --- delete a ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteResourceClass - :: (Consumes DeleteResourceClass contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClass - -> KubernetesRequest DeleteResourceClass contentType V1alpha1ResourceClass accept -deleteResourceClass _ _ (Name name) = - _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha1/resourceclasses/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteResourceClass -instance HasBodyParam DeleteResourceClass V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteResourceClass DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteResourceClass GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteResourceClass OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteResourceClass PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteResourceClass mtype - --- | @application/json@ -instance Produces DeleteResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteResourceClass MimeYaml - - --- *** getAPIResources - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/@ --- --- get available resources --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -getAPIResources - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept -getAPIResources _ = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data GetAPIResources --- | @application/json@ -instance Produces GetAPIResources MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces GetAPIResources MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces GetAPIResources MimeYaml - - --- *** listNamespacedPodScheduling - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings@ --- --- list or watch objects of kind PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listNamespacedPodScheduling - :: Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ListNamespacedPodScheduling MimeNoContent V1alpha1PodSchedulingList accept -listNamespacedPodScheduling _ (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListNamespacedPodScheduling - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListNamespacedPodScheduling AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListNamespacedPodScheduling Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListNamespacedPodScheduling FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListNamespacedPodScheduling LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListNamespacedPodScheduling Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedPodScheduling ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedPodScheduling ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListNamespacedPodScheduling TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListNamespacedPodScheduling Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListNamespacedPodScheduling MimeJSON --- | @application/json;stream=watch@ -instance Produces ListNamespacedPodScheduling MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListNamespacedPodScheduling MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListNamespacedPodScheduling MimeYaml - - --- *** listNamespacedResourceClaim - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims@ --- --- list or watch objects of kind ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listNamespacedResourceClaim - :: Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ListNamespacedResourceClaim MimeNoContent V1alpha1ResourceClaimList accept -listNamespacedResourceClaim _ (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListNamespacedResourceClaim - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListNamespacedResourceClaim AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListNamespacedResourceClaim Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListNamespacedResourceClaim FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListNamespacedResourceClaim LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListNamespacedResourceClaim Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedResourceClaim ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedResourceClaim ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListNamespacedResourceClaim TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListNamespacedResourceClaim Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListNamespacedResourceClaim MimeJSON --- | @application/json;stream=watch@ -instance Produces ListNamespacedResourceClaim MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListNamespacedResourceClaim MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListNamespacedResourceClaim MimeYaml - - --- *** listNamespacedResourceClaimTemplate - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates@ --- --- list or watch objects of kind ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listNamespacedResourceClaimTemplate - :: Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ListNamespacedResourceClaimTemplate MimeNoContent V1alpha1ResourceClaimTemplateList accept -listNamespacedResourceClaimTemplate _ (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListNamespacedResourceClaimTemplate - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListNamespacedResourceClaimTemplate AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListNamespacedResourceClaimTemplate Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListNamespacedResourceClaimTemplate FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListNamespacedResourceClaimTemplate LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListNamespacedResourceClaimTemplate Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedResourceClaimTemplate ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedResourceClaimTemplate ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListNamespacedResourceClaimTemplate TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListNamespacedResourceClaimTemplate Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListNamespacedResourceClaimTemplate MimeJSON --- | @application/json;stream=watch@ -instance Produces ListNamespacedResourceClaimTemplate MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListNamespacedResourceClaimTemplate MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListNamespacedResourceClaimTemplate MimeYaml - - --- *** listPodSchedulingForAllNamespaces - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/podschedulings@ --- --- list or watch objects of kind PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listPodSchedulingForAllNamespaces - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest ListPodSchedulingForAllNamespaces MimeNoContent V1alpha1PodSchedulingList accept -listPodSchedulingForAllNamespaces _ = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/podschedulings"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListPodSchedulingForAllNamespaces - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListPodSchedulingForAllNamespaces AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListPodSchedulingForAllNamespaces Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListPodSchedulingForAllNamespaces FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListPodSchedulingForAllNamespaces LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListPodSchedulingForAllNamespaces Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListPodSchedulingForAllNamespaces Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListPodSchedulingForAllNamespaces ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListPodSchedulingForAllNamespaces ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListPodSchedulingForAllNamespaces TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListPodSchedulingForAllNamespaces Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListPodSchedulingForAllNamespaces MimeJSON --- | @application/json;stream=watch@ -instance Produces ListPodSchedulingForAllNamespaces MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListPodSchedulingForAllNamespaces MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListPodSchedulingForAllNamespaces MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListPodSchedulingForAllNamespaces MimeYaml - - --- *** listResourceClaimForAllNamespaces - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/resourceclaims@ --- --- list or watch objects of kind ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listResourceClaimForAllNamespaces - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest ListResourceClaimForAllNamespaces MimeNoContent V1alpha1ResourceClaimList accept -listResourceClaimForAllNamespaces _ = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/resourceclaims"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListResourceClaimForAllNamespaces - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListResourceClaimForAllNamespaces AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListResourceClaimForAllNamespaces Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListResourceClaimForAllNamespaces FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListResourceClaimForAllNamespaces LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListResourceClaimForAllNamespaces Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListResourceClaimForAllNamespaces Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClaimForAllNamespaces ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClaimForAllNamespaces ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListResourceClaimForAllNamespaces TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListResourceClaimForAllNamespaces Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListResourceClaimForAllNamespaces MimeJSON --- | @application/json;stream=watch@ -instance Produces ListResourceClaimForAllNamespaces MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListResourceClaimForAllNamespaces MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListResourceClaimForAllNamespaces MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListResourceClaimForAllNamespaces MimeYaml - - --- *** listResourceClaimTemplateForAllNamespaces - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/resourceclaimtemplates@ --- --- list or watch objects of kind ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listResourceClaimTemplateForAllNamespaces - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest ListResourceClaimTemplateForAllNamespaces MimeNoContent V1alpha1ResourceClaimTemplateList accept -listResourceClaimTemplateForAllNamespaces _ = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/resourceclaimtemplates"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListResourceClaimTemplateForAllNamespaces - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListResourceClaimTemplateForAllNamespaces MimeJSON --- | @application/json;stream=watch@ -instance Produces ListResourceClaimTemplateForAllNamespaces MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListResourceClaimTemplateForAllNamespaces MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListResourceClaimTemplateForAllNamespaces MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListResourceClaimTemplateForAllNamespaces MimeYaml - - --- *** listResourceClass - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses@ --- --- list or watch objects of kind ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listResourceClass - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest ListResourceClass MimeNoContent V1alpha1ResourceClassList accept -listResourceClass _ = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/resourceclasses"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListResourceClass - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListResourceClass AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListResourceClass Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListResourceClass FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListResourceClass LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListResourceClass Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClass ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListResourceClass ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListResourceClass TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListResourceClass Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListResourceClass MimeJSON --- | @application/json;stream=watch@ -instance Produces ListResourceClass MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListResourceClass MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListResourceClass MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListResourceClass MimeYaml - - --- *** patchNamespacedPodScheduling - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}@ --- --- partially update the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedPodScheduling - :: (Consumes PatchNamespacedPodScheduling contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedPodScheduling contentType V1alpha1PodScheduling accept -patchNamespacedPodScheduling _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedPodScheduling -instance HasBodyParam PatchNamespacedPodScheduling Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedPodScheduling DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedPodScheduling FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedPodScheduling FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedPodScheduling Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedPodScheduling MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedPodScheduling MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedPodScheduling MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedPodScheduling MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedPodScheduling MimeYaml - - --- *** patchNamespacedPodSchedulingStatus - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}\/status@ --- --- partially update status of the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedPodSchedulingStatus - :: (Consumes PatchNamespacedPodSchedulingStatus contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedPodSchedulingStatus contentType V1alpha1PodScheduling accept -patchNamespacedPodSchedulingStatus _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedPodSchedulingStatus -instance HasBodyParam PatchNamespacedPodSchedulingStatus Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedPodSchedulingStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedPodSchedulingStatus DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedPodSchedulingStatus FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedPodSchedulingStatus FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedPodSchedulingStatus Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedPodSchedulingStatus MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedPodSchedulingStatus MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedPodSchedulingStatus MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedPodSchedulingStatus MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedPodSchedulingStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedPodSchedulingStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedPodSchedulingStatus MimeYaml - - --- *** patchNamespacedResourceClaim - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}@ --- --- partially update the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedResourceClaim - :: (Consumes PatchNamespacedResourceClaim contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedResourceClaim contentType V1alpha1ResourceClaim accept -patchNamespacedResourceClaim _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedResourceClaim -instance HasBodyParam PatchNamespacedResourceClaim Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedResourceClaim DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedResourceClaim FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedResourceClaim FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedResourceClaim Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedResourceClaim MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedResourceClaim MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedResourceClaim MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedResourceClaim MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedResourceClaim MimeYaml - - --- *** patchNamespacedResourceClaimStatus - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ --- --- partially update status of the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedResourceClaimStatus - :: (Consumes PatchNamespacedResourceClaimStatus contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedResourceClaimStatus contentType V1alpha1ResourceClaim accept -patchNamespacedResourceClaimStatus _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedResourceClaimStatus -instance HasBodyParam PatchNamespacedResourceClaimStatus Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedResourceClaimStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedResourceClaimStatus DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedResourceClaimStatus FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedResourceClaimStatus FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedResourceClaimStatus Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedResourceClaimStatus MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedResourceClaimStatus MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedResourceClaimStatus MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedResourceClaimStatus MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedResourceClaimStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedResourceClaimStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedResourceClaimStatus MimeYaml - - --- *** patchNamespacedResourceClaimTemplate - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ --- --- partially update the specified ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedResourceClaimTemplate - :: (Consumes PatchNamespacedResourceClaimTemplate contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaimTemplate - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedResourceClaimTemplate contentType V1alpha1ResourceClaimTemplate accept -patchNamespacedResourceClaimTemplate _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedResourceClaimTemplate -instance HasBodyParam PatchNamespacedResourceClaimTemplate Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedResourceClaimTemplate DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedResourceClaimTemplate FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedResourceClaimTemplate FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedResourceClaimTemplate Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedResourceClaimTemplate MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedResourceClaimTemplate MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedResourceClaimTemplate MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedResourceClaimTemplate MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedResourceClaimTemplate MimeYaml - - --- *** patchResourceClass - --- | @PATCH \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses\/{name}@ --- --- partially update the specified ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchResourceClass - :: (Consumes PatchResourceClass contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClass - -> KubernetesRequest PatchResourceClass contentType V1alpha1ResourceClass accept -patchResourceClass _ _ body (Name name) = - _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha1/resourceclasses/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchResourceClass -instance HasBodyParam PatchResourceClass Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchResourceClass DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchResourceClass FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchResourceClass FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchResourceClass Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchResourceClass MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchResourceClass MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchResourceClass MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchResourceClass MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchResourceClass MimeYaml - - --- *** readNamespacedPodScheduling - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}@ --- --- read the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedPodScheduling - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedPodScheduling MimeNoContent V1alpha1PodScheduling accept -readNamespacedPodScheduling _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedPodScheduling - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedPodScheduling MimeYaml - - --- *** readNamespacedPodSchedulingStatus - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}\/status@ --- --- read status of the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedPodSchedulingStatus - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedPodSchedulingStatus MimeNoContent V1alpha1PodScheduling accept -readNamespacedPodSchedulingStatus _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedPodSchedulingStatus - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedPodSchedulingStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedPodSchedulingStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedPodSchedulingStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedPodSchedulingStatus MimeYaml - - --- *** readNamespacedResourceClaim - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}@ --- --- read the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedResourceClaim - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedResourceClaim MimeNoContent V1alpha1ResourceClaim accept -readNamespacedResourceClaim _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedResourceClaim - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedResourceClaim MimeYaml - - --- *** readNamespacedResourceClaimStatus - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ --- --- read status of the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedResourceClaimStatus - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedResourceClaimStatus MimeNoContent V1alpha1ResourceClaim accept -readNamespacedResourceClaimStatus _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedResourceClaimStatus - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedResourceClaimStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedResourceClaimStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedResourceClaimStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedResourceClaimStatus MimeYaml - - --- *** readNamespacedResourceClaimTemplate - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ --- --- read the specified ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedResourceClaimTemplate - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClaimTemplate - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedResourceClaimTemplate MimeNoContent V1alpha1ResourceClaimTemplate accept -readNamespacedResourceClaimTemplate _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedResourceClaimTemplate - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedResourceClaimTemplate MimeYaml - - --- *** readResourceClass - --- | @GET \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses\/{name}@ --- --- read the specified ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readResourceClass - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the ResourceClass - -> KubernetesRequest ReadResourceClass MimeNoContent V1alpha1ResourceClass accept -readResourceClass _ (Name name) = - _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha1/resourceclasses/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadResourceClass - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadResourceClass MimeYaml - - --- *** replaceNamespacedPodScheduling - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}@ --- --- replace the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedPodScheduling - :: (Consumes ReplaceNamespacedPodScheduling contentType, MimeRender contentType V1alpha1PodScheduling) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1PodScheduling -- ^ "body" - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedPodScheduling contentType V1alpha1PodScheduling accept -replaceNamespacedPodScheduling _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedPodScheduling -instance HasBodyParam ReplaceNamespacedPodScheduling V1alpha1PodScheduling - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedPodScheduling Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedPodScheduling DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedPodScheduling FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedPodScheduling FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedPodScheduling mtype - --- | @application/json@ -instance Produces ReplaceNamespacedPodScheduling MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedPodScheduling MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedPodScheduling MimeYaml - - --- *** replaceNamespacedPodSchedulingStatus - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/podschedulings\/{name}\/status@ --- --- replace status of the specified PodScheduling --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedPodSchedulingStatus - :: (Consumes ReplaceNamespacedPodSchedulingStatus contentType, MimeRender contentType V1alpha1PodScheduling) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1PodScheduling -- ^ "body" - -> Name -- ^ "name" - name of the PodScheduling - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedPodSchedulingStatus contentType V1alpha1PodScheduling accept -replaceNamespacedPodSchedulingStatus _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/podschedulings/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedPodSchedulingStatus -instance HasBodyParam ReplaceNamespacedPodSchedulingStatus V1alpha1PodScheduling - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedPodSchedulingStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedPodSchedulingStatus DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedPodSchedulingStatus FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedPodSchedulingStatus FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedPodSchedulingStatus mtype - --- | @application/json@ -instance Produces ReplaceNamespacedPodSchedulingStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedPodSchedulingStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedPodSchedulingStatus MimeYaml - - --- *** replaceNamespacedResourceClaim - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}@ --- --- replace the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedResourceClaim - :: (Consumes ReplaceNamespacedResourceClaim contentType, MimeRender contentType V1alpha1ResourceClaim) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClaim -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedResourceClaim contentType V1alpha1ResourceClaim accept -replaceNamespacedResourceClaim _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedResourceClaim -instance HasBodyParam ReplaceNamespacedResourceClaim V1alpha1ResourceClaim - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedResourceClaim Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedResourceClaim DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedResourceClaim FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedResourceClaim FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedResourceClaim mtype - --- | @application/json@ -instance Produces ReplaceNamespacedResourceClaim MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedResourceClaim MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedResourceClaim MimeYaml - - --- *** replaceNamespacedResourceClaimStatus - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ --- --- replace status of the specified ResourceClaim --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedResourceClaimStatus - :: (Consumes ReplaceNamespacedResourceClaimStatus contentType, MimeRender contentType V1alpha1ResourceClaim) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClaim -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaim - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedResourceClaimStatus contentType V1alpha1ResourceClaim accept -replaceNamespacedResourceClaimStatus _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedResourceClaimStatus -instance HasBodyParam ReplaceNamespacedResourceClaimStatus V1alpha1ResourceClaim - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedResourceClaimStatus Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedResourceClaimStatus DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedResourceClaimStatus FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedResourceClaimStatus FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedResourceClaimStatus mtype - --- | @application/json@ -instance Produces ReplaceNamespacedResourceClaimStatus MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedResourceClaimStatus MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedResourceClaimStatus MimeYaml - - --- *** replaceNamespacedResourceClaimTemplate - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ --- --- replace the specified ResourceClaimTemplate --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedResourceClaimTemplate - :: (Consumes ReplaceNamespacedResourceClaimTemplate contentType, MimeRender contentType V1alpha1ResourceClaimTemplate) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClaimTemplate -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClaimTemplate - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedResourceClaimTemplate contentType V1alpha1ResourceClaimTemplate accept -replaceNamespacedResourceClaimTemplate _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedResourceClaimTemplate -instance HasBodyParam ReplaceNamespacedResourceClaimTemplate V1alpha1ResourceClaimTemplate - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedResourceClaimTemplate mtype - --- | @application/json@ -instance Produces ReplaceNamespacedResourceClaimTemplate MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedResourceClaimTemplate MimeYaml - - --- *** replaceResourceClass - --- | @PUT \/apis\/resource.k8s.io\/v1alpha1\/resourceclasses\/{name}@ --- --- replace the specified ResourceClass --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceResourceClass - :: (Consumes ReplaceResourceClass contentType, MimeRender contentType V1alpha1ResourceClass) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1alpha1ResourceClass -- ^ "body" - -> Name -- ^ "name" - name of the ResourceClass - -> KubernetesRequest ReplaceResourceClass contentType V1alpha1ResourceClass accept -replaceResourceClass _ _ body (Name name) = - _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha1/resourceclasses/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceResourceClass -instance HasBodyParam ReplaceResourceClass V1alpha1ResourceClass - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceResourceClass Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceResourceClass DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceResourceClass FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceResourceClass FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceResourceClass mtype - --- | @application/json@ -instance Produces ReplaceResourceClass MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceResourceClass MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceResourceClass MimeYaml - diff --git a/lib/Kubernetes/OpenAPI/API/ResourceV1alpha2.hs b/lib/Kubernetes/OpenAPI/API/ResourceV1alpha2.hs new file mode 100644 --- /dev/null +++ b/lib/Kubernetes/OpenAPI/API/ResourceV1alpha2.hs @@ -0,0 +1,2408 @@ +{- + Kubernetes + + No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) + + OpenAPI Version: 3.0.1 + Kubernetes API version: release-1.27 + Generated by OpenAPI Generator (https://openapi-generator.tech) +-} + +{-| +Module : Kubernetes.OpenAPI.API.ResourceV1alpha2 +-} + +{-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE MonoLocalBinds #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE OverloadedStrings #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} + +module Kubernetes.OpenAPI.API.ResourceV1alpha2 where + +import Kubernetes.OpenAPI.Core +import Kubernetes.OpenAPI.MimeTypes +import Kubernetes.OpenAPI.Model as M + +import qualified Data.Aeson as A +import qualified Data.ByteString as B +import qualified Data.ByteString.Lazy as BL +import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) +import qualified Data.Foldable as P +import qualified Data.Map as Map +import qualified Data.Maybe as P +import qualified Data.Proxy as P (Proxy(..)) +import qualified Data.Set as Set +import qualified Data.String as P +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import qualified Data.Text.Lazy as TL +import qualified Data.Text.Lazy.Encoding as TL +import qualified Data.Time as TI +import qualified Network.HTTP.Client.MultipartFormData as NH +import qualified Network.HTTP.Media as ME +import qualified Network.HTTP.Types as NH +import qualified Web.FormUrlEncoded as WH +import qualified Web.HttpApiData as WH + +import Data.Text (Text) +import GHC.Base ((<|>)) + +import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) +import qualified Prelude as P + +-- * Operations + + +-- ** ResourceV1alpha2 + +-- *** createNamespacedPodSchedulingContext + +-- | @POST \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts@ +-- +-- create a PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createNamespacedPodSchedulingContext + :: (Consumes CreateNamespacedPodSchedulingContext contentType, MimeRender contentType V1alpha2PodSchedulingContext) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2PodSchedulingContext -- ^ "body" + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest CreateNamespacedPodSchedulingContext contentType V1alpha2PodSchedulingContext accept +createNamespacedPodSchedulingContext _ _ body (Namespace namespace) = + _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateNamespacedPodSchedulingContext +instance HasBodyParam CreateNamespacedPodSchedulingContext V1alpha2PodSchedulingContext + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateNamespacedPodSchedulingContext DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateNamespacedPodSchedulingContext FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateNamespacedPodSchedulingContext FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateNamespacedPodSchedulingContext mtype + +-- | @application/json@ +instance Produces CreateNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateNamespacedPodSchedulingContext MimeYaml + + +-- *** createNamespacedResourceClaim + +-- | @POST \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims@ +-- +-- create a ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createNamespacedResourceClaim + :: (Consumes CreateNamespacedResourceClaim contentType, MimeRender contentType V1alpha2ResourceClaim) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClaim -- ^ "body" + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest CreateNamespacedResourceClaim contentType V1alpha2ResourceClaim accept +createNamespacedResourceClaim _ _ body (Namespace namespace) = + _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateNamespacedResourceClaim +instance HasBodyParam CreateNamespacedResourceClaim V1alpha2ResourceClaim + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateNamespacedResourceClaim DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateNamespacedResourceClaim FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateNamespacedResourceClaim FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateNamespacedResourceClaim mtype + +-- | @application/json@ +instance Produces CreateNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateNamespacedResourceClaim MimeYaml + + +-- *** createNamespacedResourceClaimTemplate + +-- | @POST \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates@ +-- +-- create a ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createNamespacedResourceClaimTemplate + :: (Consumes CreateNamespacedResourceClaimTemplate contentType, MimeRender contentType V1alpha2ResourceClaimTemplate) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClaimTemplate -- ^ "body" + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest CreateNamespacedResourceClaimTemplate contentType V1alpha2ResourceClaimTemplate accept +createNamespacedResourceClaimTemplate _ _ body (Namespace namespace) = + _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateNamespacedResourceClaimTemplate +instance HasBodyParam CreateNamespacedResourceClaimTemplate V1alpha2ResourceClaimTemplate + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateNamespacedResourceClaimTemplate DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateNamespacedResourceClaimTemplate FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateNamespacedResourceClaimTemplate FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateNamespacedResourceClaimTemplate mtype + +-- | @application/json@ +instance Produces CreateNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateNamespacedResourceClaimTemplate MimeYaml + + +-- *** createResourceClass + +-- | @POST \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses@ +-- +-- create a ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +createResourceClass + :: (Consumes CreateResourceClass contentType, MimeRender contentType V1alpha2ResourceClass) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClass -- ^ "body" + -> KubernetesRequest CreateResourceClass contentType V1alpha2ResourceClass accept +createResourceClass _ _ body = + _mkRequest "POST" ["/apis/resource.k8s.io/v1alpha2/resourceclasses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data CreateResourceClass +instance HasBodyParam CreateResourceClass V1alpha2ResourceClass + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam CreateResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam CreateResourceClass DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam CreateResourceClass FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam CreateResourceClass FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes CreateResourceClass mtype + +-- | @application/json@ +instance Produces CreateResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces CreateResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces CreateResourceClass MimeYaml + + +-- *** deleteCollectionNamespacedPodSchedulingContext + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts@ +-- +-- delete collection of PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionNamespacedPodSchedulingContext + :: (Consumes DeleteCollectionNamespacedPodSchedulingContext contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteCollectionNamespacedPodSchedulingContext contentType V1Status accept +deleteCollectionNamespacedPodSchedulingContext _ _ (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionNamespacedPodSchedulingContext +instance HasBodyParam DeleteCollectionNamespacedPodSchedulingContext V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionNamespacedPodSchedulingContext TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionNamespacedPodSchedulingContext mtype + +-- | @application/json@ +instance Produces DeleteCollectionNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionNamespacedPodSchedulingContext MimeYaml + + +-- *** deleteCollectionNamespacedResourceClaim + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims@ +-- +-- delete collection of ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionNamespacedResourceClaim + :: (Consumes DeleteCollectionNamespacedResourceClaim contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteCollectionNamespacedResourceClaim contentType V1Status accept +deleteCollectionNamespacedResourceClaim _ _ (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionNamespacedResourceClaim +instance HasBodyParam DeleteCollectionNamespacedResourceClaim V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaim TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionNamespacedResourceClaim mtype + +-- | @application/json@ +instance Produces DeleteCollectionNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionNamespacedResourceClaim MimeYaml + + +-- *** deleteCollectionNamespacedResourceClaimTemplate + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates@ +-- +-- delete collection of ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionNamespacedResourceClaimTemplate + :: (Consumes DeleteCollectionNamespacedResourceClaimTemplate contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteCollectionNamespacedResourceClaimTemplate contentType V1Status accept +deleteCollectionNamespacedResourceClaimTemplate _ _ (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionNamespacedResourceClaimTemplate +instance HasBodyParam DeleteCollectionNamespacedResourceClaimTemplate V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionNamespacedResourceClaimTemplate TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionNamespacedResourceClaimTemplate mtype + +-- | @application/json@ +instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionNamespacedResourceClaimTemplate MimeYaml + + +-- *** deleteCollectionResourceClass + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses@ +-- +-- delete collection of ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteCollectionResourceClass + :: (Consumes DeleteCollectionResourceClass contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest DeleteCollectionResourceClass contentType V1Status accept +deleteCollectionResourceClass _ _ = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/resourceclasses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteCollectionResourceClass +instance HasBodyParam DeleteCollectionResourceClass V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteCollectionResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam DeleteCollectionResourceClass Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteCollectionResourceClass DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam DeleteCollectionResourceClass FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteCollectionResourceClass GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam DeleteCollectionResourceClass LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam DeleteCollectionResourceClass Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteCollectionResourceClass OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteCollectionResourceClass PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionResourceClass ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam DeleteCollectionResourceClass ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionResourceClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam DeleteCollectionResourceClass TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteCollectionResourceClass mtype + +-- | @application/json@ +instance Produces DeleteCollectionResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteCollectionResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteCollectionResourceClass MimeYaml + + +-- *** deleteNamespacedPodSchedulingContext + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}@ +-- +-- delete a PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteNamespacedPodSchedulingContext + :: (Consumes DeleteNamespacedPodSchedulingContext contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteNamespacedPodSchedulingContext contentType V1alpha2PodSchedulingContext accept +deleteNamespacedPodSchedulingContext _ _ (Name name) (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteNamespacedPodSchedulingContext +instance HasBodyParam DeleteNamespacedPodSchedulingContext V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteNamespacedPodSchedulingContext DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteNamespacedPodSchedulingContext GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteNamespacedPodSchedulingContext OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteNamespacedPodSchedulingContext PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteNamespacedPodSchedulingContext mtype + +-- | @application/json@ +instance Produces DeleteNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteNamespacedPodSchedulingContext MimeYaml + + +-- *** deleteNamespacedResourceClaim + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}@ +-- +-- delete a ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteNamespacedResourceClaim + :: (Consumes DeleteNamespacedResourceClaim contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteNamespacedResourceClaim contentType V1alpha2ResourceClaim accept +deleteNamespacedResourceClaim _ _ (Name name) (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteNamespacedResourceClaim +instance HasBodyParam DeleteNamespacedResourceClaim V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteNamespacedResourceClaim DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteNamespacedResourceClaim GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteNamespacedResourceClaim OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteNamespacedResourceClaim PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteNamespacedResourceClaim mtype + +-- | @application/json@ +instance Produces DeleteNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteNamespacedResourceClaim MimeYaml + + +-- *** deleteNamespacedResourceClaimTemplate + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ +-- +-- delete a ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteNamespacedResourceClaimTemplate + :: (Consumes DeleteNamespacedResourceClaimTemplate contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClaimTemplate + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest DeleteNamespacedResourceClaimTemplate contentType V1alpha2ResourceClaimTemplate accept +deleteNamespacedResourceClaimTemplate _ _ (Name name) (Namespace namespace) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteNamespacedResourceClaimTemplate +instance HasBodyParam DeleteNamespacedResourceClaimTemplate V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteNamespacedResourceClaimTemplate DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteNamespacedResourceClaimTemplate GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteNamespacedResourceClaimTemplate OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteNamespacedResourceClaimTemplate PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteNamespacedResourceClaimTemplate mtype + +-- | @application/json@ +instance Produces DeleteNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteNamespacedResourceClaimTemplate MimeYaml + + +-- *** deleteResourceClass + +-- | @DELETE \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses\/{name}@ +-- +-- delete a ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +deleteResourceClass + :: (Consumes DeleteResourceClass contentType) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClass + -> KubernetesRequest DeleteResourceClass contentType V1alpha2ResourceClass accept +deleteResourceClass _ _ (Name name) = + _mkRequest "DELETE" ["/apis/resource.k8s.io/v1alpha2/resourceclasses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data DeleteResourceClass +instance HasBodyParam DeleteResourceClass V1DeleteOptions + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam DeleteResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam DeleteResourceClass DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. +instance HasOptionalParam DeleteResourceClass GracePeriodSeconds where + applyOptionalParam req (GracePeriodSeconds xs) = + req `addQuery` toQuery ("gracePeriodSeconds", Just xs) + +-- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. +instance HasOptionalParam DeleteResourceClass OrphanDependents where + applyOptionalParam req (OrphanDependents xs) = + req `addQuery` toQuery ("orphanDependents", Just xs) + +-- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. +instance HasOptionalParam DeleteResourceClass PropagationPolicy where + applyOptionalParam req (PropagationPolicy xs) = + req `addQuery` toQuery ("propagationPolicy", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes DeleteResourceClass mtype + +-- | @application/json@ +instance Produces DeleteResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces DeleteResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces DeleteResourceClass MimeYaml + + +-- *** getAPIResources + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/@ +-- +-- get available resources +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +getAPIResources + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept +getAPIResources _ = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data GetAPIResources +-- | @application/json@ +instance Produces GetAPIResources MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces GetAPIResources MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces GetAPIResources MimeYaml + + +-- *** listNamespacedPodSchedulingContext + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts@ +-- +-- list or watch objects of kind PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listNamespacedPodSchedulingContext + :: Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ListNamespacedPodSchedulingContext MimeNoContent V1alpha2PodSchedulingContextList accept +listNamespacedPodSchedulingContext _ (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListNamespacedPodSchedulingContext + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListNamespacedPodSchedulingContext AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListNamespacedPodSchedulingContext Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListNamespacedPodSchedulingContext FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListNamespacedPodSchedulingContext LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListNamespacedPodSchedulingContext Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedPodSchedulingContext ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedPodSchedulingContext ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedPodSchedulingContext SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListNamespacedPodSchedulingContext TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListNamespacedPodSchedulingContext Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListNamespacedPodSchedulingContext MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListNamespacedPodSchedulingContext MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListNamespacedPodSchedulingContext MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListNamespacedPodSchedulingContext MimeYaml + + +-- *** listNamespacedResourceClaim + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims@ +-- +-- list or watch objects of kind ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listNamespacedResourceClaim + :: Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ListNamespacedResourceClaim MimeNoContent V1alpha2ResourceClaimList accept +listNamespacedResourceClaim _ (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListNamespacedResourceClaim + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListNamespacedResourceClaim AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListNamespacedResourceClaim Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListNamespacedResourceClaim FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListNamespacedResourceClaim LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListNamespacedResourceClaim Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedResourceClaim ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedResourceClaim ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedResourceClaim SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListNamespacedResourceClaim TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListNamespacedResourceClaim Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListNamespacedResourceClaim MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListNamespacedResourceClaim MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListNamespacedResourceClaim MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListNamespacedResourceClaim MimeYaml + + +-- *** listNamespacedResourceClaimTemplate + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates@ +-- +-- list or watch objects of kind ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listNamespacedResourceClaimTemplate + :: Accept accept -- ^ request accept ('MimeType') + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ListNamespacedResourceClaimTemplate MimeNoContent V1alpha2ResourceClaimTemplateList accept +listNamespacedResourceClaimTemplate _ (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListNamespacedResourceClaimTemplate + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListNamespacedResourceClaimTemplate AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListNamespacedResourceClaimTemplate Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListNamespacedResourceClaimTemplate FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListNamespacedResourceClaimTemplate LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListNamespacedResourceClaimTemplate Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedResourceClaimTemplate ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListNamespacedResourceClaimTemplate ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedResourceClaimTemplate SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListNamespacedResourceClaimTemplate TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListNamespacedResourceClaimTemplate Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListNamespacedResourceClaimTemplate MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListNamespacedResourceClaimTemplate MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListNamespacedResourceClaimTemplate MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListNamespacedResourceClaimTemplate MimeYaml + + +-- *** listPodSchedulingContextForAllNamespaces + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/podschedulingcontexts@ +-- +-- list or watch objects of kind PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listPodSchedulingContextForAllNamespaces + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListPodSchedulingContextForAllNamespaces MimeNoContent V1alpha2PodSchedulingContextList accept +listPodSchedulingContextForAllNamespaces _ = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/podschedulingcontexts"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListPodSchedulingContextForAllNamespaces + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListPodSchedulingContextForAllNamespaces Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListPodSchedulingContextForAllNamespaces MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListPodSchedulingContextForAllNamespaces MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListPodSchedulingContextForAllNamespaces MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListPodSchedulingContextForAllNamespaces MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListPodSchedulingContextForAllNamespaces MimeYaml + + +-- *** listResourceClaimForAllNamespaces + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/resourceclaims@ +-- +-- list or watch objects of kind ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listResourceClaimForAllNamespaces + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListResourceClaimForAllNamespaces MimeNoContent V1alpha2ResourceClaimList accept +listResourceClaimForAllNamespaces _ = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/resourceclaims"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListResourceClaimForAllNamespaces + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListResourceClaimForAllNamespaces AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListResourceClaimForAllNamespaces Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListResourceClaimForAllNamespaces FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListResourceClaimForAllNamespaces LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListResourceClaimForAllNamespaces Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListResourceClaimForAllNamespaces Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClaimForAllNamespaces ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClaimForAllNamespaces ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListResourceClaimForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListResourceClaimForAllNamespaces TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListResourceClaimForAllNamespaces Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListResourceClaimForAllNamespaces MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListResourceClaimForAllNamespaces MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListResourceClaimForAllNamespaces MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListResourceClaimForAllNamespaces MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListResourceClaimForAllNamespaces MimeYaml + + +-- *** listResourceClaimTemplateForAllNamespaces + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/resourceclaimtemplates@ +-- +-- list or watch objects of kind ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listResourceClaimTemplateForAllNamespaces + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListResourceClaimTemplateForAllNamespaces MimeNoContent V1alpha2ResourceClaimTemplateList accept +listResourceClaimTemplateForAllNamespaces _ = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/resourceclaimtemplates"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListResourceClaimTemplateForAllNamespaces + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListResourceClaimTemplateForAllNamespaces Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListResourceClaimTemplateForAllNamespaces MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListResourceClaimTemplateForAllNamespaces MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListResourceClaimTemplateForAllNamespaces MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListResourceClaimTemplateForAllNamespaces MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListResourceClaimTemplateForAllNamespaces MimeYaml + + +-- *** listResourceClass + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses@ +-- +-- list or watch objects of kind ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +listResourceClass + :: Accept accept -- ^ request accept ('MimeType') + -> KubernetesRequest ListResourceClass MimeNoContent V1alpha2ResourceClassList accept +listResourceClass _ = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/resourceclasses"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ListResourceClass + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ListResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. +instance HasOptionalParam ListResourceClass AllowWatchBookmarks where + applyOptionalParam req (AllowWatchBookmarks xs) = + req `addQuery` toQuery ("allowWatchBookmarks", Just xs) + +-- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. +instance HasOptionalParam ListResourceClass Continue where + applyOptionalParam req (Continue xs) = + req `addQuery` toQuery ("continue", Just xs) + +-- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. +instance HasOptionalParam ListResourceClass FieldSelector where + applyOptionalParam req (FieldSelector xs) = + req `addQuery` toQuery ("fieldSelector", Just xs) + +-- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. +instance HasOptionalParam ListResourceClass LabelSelector where + applyOptionalParam req (LabelSelector xs) = + req `addQuery` toQuery ("labelSelector", Just xs) + +-- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. +instance HasOptionalParam ListResourceClass Limit where + applyOptionalParam req (Limit xs) = + req `addQuery` toQuery ("limit", Just xs) + +-- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClass ResourceVersion where + applyOptionalParam req (ResourceVersion xs) = + req `addQuery` toQuery ("resourceVersion", Just xs) + +-- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset +instance HasOptionalParam ListResourceClass ResourceVersionMatch where + applyOptionalParam req (ResourceVersionMatch xs) = + req `addQuery` toQuery ("resourceVersionMatch", Just xs) + +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListResourceClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + +-- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. +instance HasOptionalParam ListResourceClass TimeoutSeconds where + applyOptionalParam req (TimeoutSeconds xs) = + req `addQuery` toQuery ("timeoutSeconds", Just xs) + +-- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. +instance HasOptionalParam ListResourceClass Watch where + applyOptionalParam req (Watch xs) = + req `addQuery` toQuery ("watch", Just xs) +-- | @application/json@ +instance Produces ListResourceClass MimeJSON +-- | @application/json;stream=watch@ +instance Produces ListResourceClass MimeJsonstreamwatch +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ListResourceClass MimeVndKubernetesProtobuf +-- | @application/vnd.kubernetes.protobuf;stream=watch@ +instance Produces ListResourceClass MimeVndKubernetesProtobufstreamwatch +-- | @application/yaml@ +instance Produces ListResourceClass MimeYaml + + +-- *** patchNamespacedPodSchedulingContext + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}@ +-- +-- partially update the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchNamespacedPodSchedulingContext + :: (Consumes PatchNamespacedPodSchedulingContext contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest PatchNamespacedPodSchedulingContext contentType V1alpha2PodSchedulingContext accept +patchNamespacedPodSchedulingContext _ _ body (Name name) (Namespace namespace) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchNamespacedPodSchedulingContext +instance HasBodyParam PatchNamespacedPodSchedulingContext Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchNamespacedPodSchedulingContext DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchNamespacedPodSchedulingContext FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchNamespacedPodSchedulingContext FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchNamespacedPodSchedulingContext Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchNamespacedPodSchedulingContext MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContext MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContext MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContext MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchNamespacedPodSchedulingContext MimeYaml + + +-- *** patchNamespacedPodSchedulingContextStatus + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}\/status@ +-- +-- partially update status of the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchNamespacedPodSchedulingContextStatus + :: (Consumes PatchNamespacedPodSchedulingContextStatus contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest PatchNamespacedPodSchedulingContextStatus contentType V1alpha2PodSchedulingContext accept +patchNamespacedPodSchedulingContextStatus _ _ body (Name name) (Namespace namespace) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchNamespacedPodSchedulingContextStatus +instance HasBodyParam PatchNamespacedPodSchedulingContextStatus Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchNamespacedPodSchedulingContextStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchNamespacedPodSchedulingContextStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchNamespacedPodSchedulingContextStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchNamespacedPodSchedulingContextStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchNamespacedPodSchedulingContextStatus Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchNamespacedPodSchedulingContextStatus MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContextStatus MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContextStatus MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchNamespacedPodSchedulingContextStatus MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchNamespacedPodSchedulingContextStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchNamespacedPodSchedulingContextStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchNamespacedPodSchedulingContextStatus MimeYaml + + +-- *** patchNamespacedResourceClaim + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}@ +-- +-- partially update the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchNamespacedResourceClaim + :: (Consumes PatchNamespacedResourceClaim contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest PatchNamespacedResourceClaim contentType V1alpha2ResourceClaim accept +patchNamespacedResourceClaim _ _ body (Name name) (Namespace namespace) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchNamespacedResourceClaim +instance HasBodyParam PatchNamespacedResourceClaim Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchNamespacedResourceClaim DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchNamespacedResourceClaim FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchNamespacedResourceClaim FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchNamespacedResourceClaim Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchNamespacedResourceClaim MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchNamespacedResourceClaim MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchNamespacedResourceClaim MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchNamespacedResourceClaim MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchNamespacedResourceClaim MimeYaml + + +-- *** patchNamespacedResourceClaimStatus + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ +-- +-- partially update status of the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchNamespacedResourceClaimStatus + :: (Consumes PatchNamespacedResourceClaimStatus contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest PatchNamespacedResourceClaimStatus contentType V1alpha2ResourceClaim accept +patchNamespacedResourceClaimStatus _ _ body (Name name) (Namespace namespace) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchNamespacedResourceClaimStatus +instance HasBodyParam PatchNamespacedResourceClaimStatus Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchNamespacedResourceClaimStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchNamespacedResourceClaimStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchNamespacedResourceClaimStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchNamespacedResourceClaimStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchNamespacedResourceClaimStatus Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchNamespacedResourceClaimStatus MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchNamespacedResourceClaimStatus MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchNamespacedResourceClaimStatus MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchNamespacedResourceClaimStatus MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchNamespacedResourceClaimStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchNamespacedResourceClaimStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchNamespacedResourceClaimStatus MimeYaml + + +-- *** patchNamespacedResourceClaimTemplate + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ +-- +-- partially update the specified ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchNamespacedResourceClaimTemplate + :: (Consumes PatchNamespacedResourceClaimTemplate contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaimTemplate + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest PatchNamespacedResourceClaimTemplate contentType V1alpha2ResourceClaimTemplate accept +patchNamespacedResourceClaimTemplate _ _ body (Name name) (Namespace namespace) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchNamespacedResourceClaimTemplate +instance HasBodyParam PatchNamespacedResourceClaimTemplate Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchNamespacedResourceClaimTemplate DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchNamespacedResourceClaimTemplate FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchNamespacedResourceClaimTemplate FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchNamespacedResourceClaimTemplate Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchNamespacedResourceClaimTemplate MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchNamespacedResourceClaimTemplate MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchNamespacedResourceClaimTemplate MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchNamespacedResourceClaimTemplate MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchNamespacedResourceClaimTemplate MimeYaml + + +-- *** patchResourceClass + +-- | @PATCH \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses\/{name}@ +-- +-- partially update the specified ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +patchResourceClass + :: (Consumes PatchResourceClass contentType, MimeRender contentType Body) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> Body -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClass + -> KubernetesRequest PatchResourceClass contentType V1alpha2ResourceClass accept +patchResourceClass _ _ body (Name name) = + _mkRequest "PATCH" ["/apis/resource.k8s.io/v1alpha2/resourceclasses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data PatchResourceClass +instance HasBodyParam PatchResourceClass Body + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam PatchResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam PatchResourceClass DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). +instance HasOptionalParam PatchResourceClass FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam PatchResourceClass FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. +instance HasOptionalParam PatchResourceClass Force where + applyOptionalParam req (Force xs) = + req `addQuery` toQuery ("force", Just xs) + +-- | @application/apply-patch+yaml@ +instance Consumes PatchResourceClass MimeApplyPatchyaml +-- | @application/json-patch+json@ +instance Consumes PatchResourceClass MimeJsonPatchjson +-- | @application/merge-patch+json@ +instance Consumes PatchResourceClass MimeMergePatchjson +-- | @application/strategic-merge-patch+json@ +instance Consumes PatchResourceClass MimeStrategicMergePatchjson + +-- | @application/json@ +instance Produces PatchResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces PatchResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces PatchResourceClass MimeYaml + + +-- *** readNamespacedPodSchedulingContext + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}@ +-- +-- read the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readNamespacedPodSchedulingContext + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReadNamespacedPodSchedulingContext MimeNoContent V1alpha2PodSchedulingContext accept +readNamespacedPodSchedulingContext _ (Name name) (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadNamespacedPodSchedulingContext + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadNamespacedPodSchedulingContext MimeYaml + + +-- *** readNamespacedPodSchedulingContextStatus + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}\/status@ +-- +-- read status of the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readNamespacedPodSchedulingContextStatus + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReadNamespacedPodSchedulingContextStatus MimeNoContent V1alpha2PodSchedulingContext accept +readNamespacedPodSchedulingContextStatus _ (Name name) (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadNamespacedPodSchedulingContextStatus + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadNamespacedPodSchedulingContextStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadNamespacedPodSchedulingContextStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadNamespacedPodSchedulingContextStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadNamespacedPodSchedulingContextStatus MimeYaml + + +-- *** readNamespacedResourceClaim + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}@ +-- +-- read the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readNamespacedResourceClaim + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReadNamespacedResourceClaim MimeNoContent V1alpha2ResourceClaim accept +readNamespacedResourceClaim _ (Name name) (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadNamespacedResourceClaim + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadNamespacedResourceClaim MimeYaml + + +-- *** readNamespacedResourceClaimStatus + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ +-- +-- read status of the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readNamespacedResourceClaimStatus + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReadNamespacedResourceClaimStatus MimeNoContent V1alpha2ResourceClaim accept +readNamespacedResourceClaimStatus _ (Name name) (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadNamespacedResourceClaimStatus + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadNamespacedResourceClaimStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadNamespacedResourceClaimStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadNamespacedResourceClaimStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadNamespacedResourceClaimStatus MimeYaml + + +-- *** readNamespacedResourceClaimTemplate + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ +-- +-- read the specified ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readNamespacedResourceClaimTemplate + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClaimTemplate + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReadNamespacedResourceClaimTemplate MimeNoContent V1alpha2ResourceClaimTemplate accept +readNamespacedResourceClaimTemplate _ (Name name) (Namespace namespace) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadNamespacedResourceClaimTemplate + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadNamespacedResourceClaimTemplate MimeYaml + + +-- *** readResourceClass + +-- | @GET \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses\/{name}@ +-- +-- read the specified ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +readResourceClass + :: Accept accept -- ^ request accept ('MimeType') + -> Name -- ^ "name" - name of the ResourceClass + -> KubernetesRequest ReadResourceClass MimeNoContent V1alpha2ResourceClass accept +readResourceClass _ (Name name) = + _mkRequest "GET" ["/apis/resource.k8s.io/v1alpha2/resourceclasses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + +data ReadResourceClass + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReadResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) +-- | @application/json@ +instance Produces ReadResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReadResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReadResourceClass MimeYaml + + +-- *** replaceNamespacedPodSchedulingContext + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}@ +-- +-- replace the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceNamespacedPodSchedulingContext + :: (Consumes ReplaceNamespacedPodSchedulingContext contentType, MimeRender contentType V1alpha2PodSchedulingContext) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2PodSchedulingContext -- ^ "body" + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReplaceNamespacedPodSchedulingContext contentType V1alpha2PodSchedulingContext accept +replaceNamespacedPodSchedulingContext _ _ body (Name name) (Namespace namespace) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceNamespacedPodSchedulingContext +instance HasBodyParam ReplaceNamespacedPodSchedulingContext V1alpha2PodSchedulingContext + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContext Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceNamespacedPodSchedulingContext DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContext FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContext FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceNamespacedPodSchedulingContext mtype + +-- | @application/json@ +instance Produces ReplaceNamespacedPodSchedulingContext MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceNamespacedPodSchedulingContext MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceNamespacedPodSchedulingContext MimeYaml + + +-- *** replaceNamespacedPodSchedulingContextStatus + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/podschedulingcontexts\/{name}\/status@ +-- +-- replace status of the specified PodSchedulingContext +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceNamespacedPodSchedulingContextStatus + :: (Consumes ReplaceNamespacedPodSchedulingContextStatus contentType, MimeRender contentType V1alpha2PodSchedulingContext) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2PodSchedulingContext -- ^ "body" + -> Name -- ^ "name" - name of the PodSchedulingContext + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReplaceNamespacedPodSchedulingContextStatus contentType V1alpha2PodSchedulingContext accept +replaceNamespacedPodSchedulingContextStatus _ _ body (Name name) (Namespace namespace) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/podschedulingcontexts/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceNamespacedPodSchedulingContextStatus +instance HasBodyParam ReplaceNamespacedPodSchedulingContextStatus V1alpha2PodSchedulingContext + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContextStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceNamespacedPodSchedulingContextStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContextStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceNamespacedPodSchedulingContextStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceNamespacedPodSchedulingContextStatus mtype + +-- | @application/json@ +instance Produces ReplaceNamespacedPodSchedulingContextStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceNamespacedPodSchedulingContextStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceNamespacedPodSchedulingContextStatus MimeYaml + + +-- *** replaceNamespacedResourceClaim + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}@ +-- +-- replace the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceNamespacedResourceClaim + :: (Consumes ReplaceNamespacedResourceClaim contentType, MimeRender contentType V1alpha2ResourceClaim) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClaim -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReplaceNamespacedResourceClaim contentType V1alpha2ResourceClaim accept +replaceNamespacedResourceClaim _ _ body (Name name) (Namespace namespace) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceNamespacedResourceClaim +instance HasBodyParam ReplaceNamespacedResourceClaim V1alpha2ResourceClaim + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceNamespacedResourceClaim Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceNamespacedResourceClaim DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceNamespacedResourceClaim FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceNamespacedResourceClaim FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceNamespacedResourceClaim mtype + +-- | @application/json@ +instance Produces ReplaceNamespacedResourceClaim MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceNamespacedResourceClaim MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceNamespacedResourceClaim MimeYaml + + +-- *** replaceNamespacedResourceClaimStatus + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaims\/{name}\/status@ +-- +-- replace status of the specified ResourceClaim +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceNamespacedResourceClaimStatus + :: (Consumes ReplaceNamespacedResourceClaimStatus contentType, MimeRender contentType V1alpha2ResourceClaim) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClaim -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaim + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReplaceNamespacedResourceClaimStatus contentType V1alpha2ResourceClaim accept +replaceNamespacedResourceClaimStatus _ _ body (Name name) (Namespace namespace) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaims/",toPath name,"/status"] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceNamespacedResourceClaimStatus +instance HasBodyParam ReplaceNamespacedResourceClaimStatus V1alpha2ResourceClaim + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceNamespacedResourceClaimStatus Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceNamespacedResourceClaimStatus DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceNamespacedResourceClaimStatus FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceNamespacedResourceClaimStatus FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceNamespacedResourceClaimStatus mtype + +-- | @application/json@ +instance Produces ReplaceNamespacedResourceClaimStatus MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceNamespacedResourceClaimStatus MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceNamespacedResourceClaimStatus MimeYaml + + +-- *** replaceNamespacedResourceClaimTemplate + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/namespaces\/{namespace}\/resourceclaimtemplates\/{name}@ +-- +-- replace the specified ResourceClaimTemplate +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceNamespacedResourceClaimTemplate + :: (Consumes ReplaceNamespacedResourceClaimTemplate contentType, MimeRender contentType V1alpha2ResourceClaimTemplate) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClaimTemplate -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClaimTemplate + -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects + -> KubernetesRequest ReplaceNamespacedResourceClaimTemplate contentType V1alpha2ResourceClaimTemplate accept +replaceNamespacedResourceClaimTemplate _ _ body (Name name) (Namespace namespace) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/namespaces/",toPath namespace,"/resourceclaimtemplates/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceNamespacedResourceClaimTemplate +instance HasBodyParam ReplaceNamespacedResourceClaimTemplate V1alpha2ResourceClaimTemplate + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceNamespacedResourceClaimTemplate FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceNamespacedResourceClaimTemplate mtype + +-- | @application/json@ +instance Produces ReplaceNamespacedResourceClaimTemplate MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceNamespacedResourceClaimTemplate MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceNamespacedResourceClaimTemplate MimeYaml + + +-- *** replaceResourceClass + +-- | @PUT \/apis\/resource.k8s.io\/v1alpha2\/resourceclasses\/{name}@ +-- +-- replace the specified ResourceClass +-- +-- AuthMethod: 'AuthApiKeyBearerToken' +-- +replaceResourceClass + :: (Consumes ReplaceResourceClass contentType, MimeRender contentType V1alpha2ResourceClass) + => ContentType contentType -- ^ request content-type ('MimeType') + -> Accept accept -- ^ request accept ('MimeType') + -> V1alpha2ResourceClass -- ^ "body" + -> Name -- ^ "name" - name of the ResourceClass + -> KubernetesRequest ReplaceResourceClass contentType V1alpha2ResourceClass accept +replaceResourceClass _ _ body (Name name) = + _mkRequest "PUT" ["/apis/resource.k8s.io/v1alpha2/resourceclasses/",toPath name] + `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) + `setBodyParam` body + +data ReplaceResourceClass +instance HasBodyParam ReplaceResourceClass V1alpha2ResourceClass + +-- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. +instance HasOptionalParam ReplaceResourceClass Pretty where + applyOptionalParam req (Pretty xs) = + req `addQuery` toQuery ("pretty", Just xs) + +-- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed +instance HasOptionalParam ReplaceResourceClass DryRun where + applyOptionalParam req (DryRun xs) = + req `addQuery` toQuery ("dryRun", Just xs) + +-- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. +instance HasOptionalParam ReplaceResourceClass FieldManager where + applyOptionalParam req (FieldManager xs) = + req `addQuery` toQuery ("fieldManager", Just xs) + +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +instance HasOptionalParam ReplaceResourceClass FieldValidation where + applyOptionalParam req (FieldValidation xs) = + req `addQuery` toQuery ("fieldValidation", Just xs) + +-- | @*/*@ +instance MimeType mtype => Consumes ReplaceResourceClass mtype + +-- | @application/json@ +instance Produces ReplaceResourceClass MimeJSON +-- | @application/vnd.kubernetes.protobuf@ +instance Produces ReplaceResourceClass MimeVndKubernetesProtobuf +-- | @application/yaml@ +instance Produces ReplaceResourceClass MimeYaml + diff --git a/lib/Kubernetes/OpenAPI/API/Scheduling.hs b/lib/Kubernetes/OpenAPI/API/Scheduling.hs --- a/lib/Kubernetes/OpenAPI/API/Scheduling.hs +++ b/lib/Kubernetes/OpenAPI/API/Scheduling.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/SchedulingV1.hs b/lib/Kubernetes/OpenAPI/API/SchedulingV1.hs --- a/lib/Kubernetes/OpenAPI/API/SchedulingV1.hs +++ b/lib/Kubernetes/OpenAPI/API/SchedulingV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreatePriorityClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -185,6 +185,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionPriorityClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionPriorityClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -339,6 +344,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListPriorityClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListPriorityClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -398,7 +408,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchPriorityClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -493,7 +503,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplacePriorityClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/Storage.hs b/lib/Kubernetes/OpenAPI/API/Storage.hs --- a/lib/Kubernetes/OpenAPI/API/Storage.hs +++ b/lib/Kubernetes/OpenAPI/API/Storage.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/StorageV1.hs b/lib/Kubernetes/OpenAPI/API/StorageV1.hs --- a/lib/Kubernetes/OpenAPI/API/StorageV1.hs +++ b/lib/Kubernetes/OpenAPI/API/StorageV1.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} @@ -94,7 +94,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateCSIDriver FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -147,7 +147,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateCSINode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -201,7 +201,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateNamespacedCSIStorageCapacity FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -254,7 +254,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateStorageClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -307,7 +307,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam CreateVolumeAttachment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -512,6 +512,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionCSIDriver SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionCSIDriver TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -603,6 +608,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionCSINode SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionCSINode TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -695,6 +705,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -786,6 +801,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionStorageClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionStorageClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -877,6 +897,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam DeleteCollectionVolumeAttachment SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam DeleteCollectionVolumeAttachment TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1146,6 +1171,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCSIDriver SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCSIDriver TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1224,6 +1254,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCSINode SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCSINode TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1302,6 +1337,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1381,6 +1421,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListNamespacedCSIStorageCapacity SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListNamespacedCSIStorageCapacity TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1459,6 +1504,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListStorageClass SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListStorageClass TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1537,6 +1587,11 @@ applyOptionalParam req (ResourceVersionMatch xs) = req `addQuery` toQuery ("resourceVersionMatch", Just xs) +-- | /Optional Param/ "sendInitialEvents" - `sendInitialEvents=true` may be set together with `watch=true`. In that case, the watch stream will begin with synthetic events to produce the current state of objects in the collection. Once all such events have been sent, a synthetic \"Bookmark\" event will be sent. The bookmark will report the ResourceVersion (RV) corresponding to the set of objects, and be marked with `\"k8s.io/initial-events-end\": \"true\"` annotation. Afterwards, the watch stream will proceed as usual, sending watch events corresponding to changes (subsequent to the RV) to objects watched. When `sendInitialEvents` option is set, we require `resourceVersionMatch` option to also be set. The semantic of the watch request is as following: - `resourceVersionMatch` = NotOlderThan is interpreted as \"data at least as new as the provided `resourceVersion`\" and the bookmark event is send when the state is synced to a `resourceVersion` at least as fresh as the one provided by the ListOptions. If `resourceVersion` is unset, this is interpreted as \"consistent read\" and the bookmark event is send when the state is synced at least to the moment when request started being processed. - `resourceVersionMatch` set to any other value or unset Invalid error is returned. Defaults to true if `resourceVersion=\"\"` or `resourceVersion=\"0\"` (for backward compatibility reasons) and to false otherwise. +instance HasOptionalParam ListVolumeAttachment SendInitialEvents where + applyOptionalParam req (SendInitialEvents xs) = + req `addQuery` toQuery ("sendInitialEvents", Just xs) + -- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. instance HasOptionalParam ListVolumeAttachment TimeoutSeconds where applyOptionalParam req (TimeoutSeconds xs) = @@ -1596,7 +1651,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCSIDriver FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1661,7 +1716,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchCSINode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1727,7 +1782,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchNamespacedCSIStorageCapacity FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1792,7 +1847,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchStorageClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1857,7 +1912,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchVolumeAttachment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -1922,7 +1977,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam PatchVolumeAttachmentStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2168,7 +2223,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCSIDriver FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2222,7 +2277,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceCSINode FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2277,7 +2332,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceNamespacedCSIStorageCapacity FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2331,7 +2386,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceStorageClass FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2385,7 +2440,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceVolumeAttachment FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) @@ -2439,7 +2494,7 @@ applyOptionalParam req (FieldManager xs) = req `addQuery` toQuery ("fieldManager", Just xs) --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. +-- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default in v1.23+ - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. instance HasOptionalParam ReplaceVolumeAttachmentStatus FieldValidation where applyOptionalParam req (FieldValidation xs) = req `addQuery` toQuery ("fieldValidation", Just xs) diff --git a/lib/Kubernetes/OpenAPI/API/StorageV1beta1.hs b/lib/Kubernetes/OpenAPI/API/StorageV1beta1.hs deleted file mode 100644 --- a/lib/Kubernetes/OpenAPI/API/StorageV1beta1.hs +++ /dev/null @@ -1,595 +0,0 @@ -{- - Kubernetes - - No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) - - OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : Kubernetes.OpenAPI.API.StorageV1beta1 --} - -{-# LANGUAGE FlexibleContexts #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE MonoLocalBinds #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module Kubernetes.OpenAPI.API.StorageV1beta1 where - -import Kubernetes.OpenAPI.Core -import Kubernetes.OpenAPI.MimeTypes -import Kubernetes.OpenAPI.Model as M - -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Proxy as P (Proxy(..)) -import qualified Data.Set as Set -import qualified Data.String as P -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Text.Lazy as TL -import qualified Data.Text.Lazy.Encoding as TL -import qualified Data.Time as TI -import qualified Network.HTTP.Client.MultipartFormData as NH -import qualified Network.HTTP.Media as ME -import qualified Network.HTTP.Types as NH -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Data.Text (Text) -import GHC.Base ((<|>)) - -import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - --- * Operations - - --- ** StorageV1beta1 - --- *** createNamespacedCSIStorageCapacity - --- | @POST \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities@ --- --- create a CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -createNamespacedCSIStorageCapacity - :: (Consumes CreateNamespacedCSIStorageCapacity contentType, MimeRender contentType V1beta1CSIStorageCapacity) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1beta1CSIStorageCapacity -- ^ "body" - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest CreateNamespacedCSIStorageCapacity contentType V1beta1CSIStorageCapacity accept -createNamespacedCSIStorageCapacity _ _ body (Namespace namespace) = - _mkRequest "POST" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data CreateNamespacedCSIStorageCapacity -instance HasBodyParam CreateNamespacedCSIStorageCapacity V1beta1CSIStorageCapacity - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam CreateNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam CreateNamespacedCSIStorageCapacity DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam CreateNamespacedCSIStorageCapacity FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam CreateNamespacedCSIStorageCapacity FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes CreateNamespacedCSIStorageCapacity mtype - --- | @application/json@ -instance Produces CreateNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces CreateNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces CreateNamespacedCSIStorageCapacity MimeYaml - - --- *** deleteCollectionNamespacedCSIStorageCapacity - --- | @DELETE \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities@ --- --- delete collection of CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteCollectionNamespacedCSIStorageCapacity - :: (Consumes DeleteCollectionNamespacedCSIStorageCapacity contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteCollectionNamespacedCSIStorageCapacity contentType V1Status accept -deleteCollectionNamespacedCSIStorageCapacity _ _ (Namespace namespace) = - _mkRequest "DELETE" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteCollectionNamespacedCSIStorageCapacity -instance HasBodyParam DeleteCollectionNamespacedCSIStorageCapacity V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam DeleteCollectionNamespacedCSIStorageCapacity TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteCollectionNamespacedCSIStorageCapacity mtype - --- | @application/json@ -instance Produces DeleteCollectionNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteCollectionNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteCollectionNamespacedCSIStorageCapacity MimeYaml - - --- *** deleteNamespacedCSIStorageCapacity - --- | @DELETE \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities\/{name}@ --- --- delete a CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -deleteNamespacedCSIStorageCapacity - :: (Consumes DeleteNamespacedCSIStorageCapacity contentType) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the CSIStorageCapacity - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest DeleteNamespacedCSIStorageCapacity contentType V1Status accept -deleteNamespacedCSIStorageCapacity _ _ (Name name) (Namespace namespace) = - _mkRequest "DELETE" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data DeleteNamespacedCSIStorageCapacity -instance HasBodyParam DeleteNamespacedCSIStorageCapacity V1DeleteOptions - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam DeleteNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam DeleteNamespacedCSIStorageCapacity DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. -instance HasOptionalParam DeleteNamespacedCSIStorageCapacity GracePeriodSeconds where - applyOptionalParam req (GracePeriodSeconds xs) = - req `addQuery` toQuery ("gracePeriodSeconds", Just xs) - --- | /Optional Param/ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. -instance HasOptionalParam DeleteNamespacedCSIStorageCapacity OrphanDependents where - applyOptionalParam req (OrphanDependents xs) = - req `addQuery` toQuery ("orphanDependents", Just xs) - --- | /Optional Param/ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. -instance HasOptionalParam DeleteNamespacedCSIStorageCapacity PropagationPolicy where - applyOptionalParam req (PropagationPolicy xs) = - req `addQuery` toQuery ("propagationPolicy", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes DeleteNamespacedCSIStorageCapacity mtype - --- | @application/json@ -instance Produces DeleteNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces DeleteNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces DeleteNamespacedCSIStorageCapacity MimeYaml - - --- *** getAPIResources - --- | @GET \/apis\/storage.k8s.io\/v1beta1\/@ --- --- get available resources --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -getAPIResources - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept -getAPIResources _ = - _mkRequest "GET" ["/apis/storage.k8s.io/v1beta1/"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data GetAPIResources --- | @application/json@ -instance Produces GetAPIResources MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces GetAPIResources MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces GetAPIResources MimeYaml - - --- *** listCSIStorageCapacityForAllNamespaces - --- | @GET \/apis\/storage.k8s.io\/v1beta1\/csistoragecapacities@ --- --- list or watch objects of kind CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listCSIStorageCapacityForAllNamespaces - :: Accept accept -- ^ request accept ('MimeType') - -> KubernetesRequest ListCSIStorageCapacityForAllNamespaces MimeNoContent V1beta1CSIStorageCapacityList accept -listCSIStorageCapacityForAllNamespaces _ = - _mkRequest "GET" ["/apis/storage.k8s.io/v1beta1/csistoragecapacities"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListCSIStorageCapacityForAllNamespaces - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListCSIStorageCapacityForAllNamespaces Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListCSIStorageCapacityForAllNamespaces MimeJSON --- | @application/json;stream=watch@ -instance Produces ListCSIStorageCapacityForAllNamespaces MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListCSIStorageCapacityForAllNamespaces MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListCSIStorageCapacityForAllNamespaces MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListCSIStorageCapacityForAllNamespaces MimeYaml - - --- *** listNamespacedCSIStorageCapacity - --- | @GET \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities@ --- --- list or watch objects of kind CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -listNamespacedCSIStorageCapacity - :: Accept accept -- ^ request accept ('MimeType') - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ListNamespacedCSIStorageCapacity MimeNoContent V1beta1CSIStorageCapacityList accept -listNamespacedCSIStorageCapacity _ (Namespace namespace) = - _mkRequest "GET" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities"] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ListNamespacedCSIStorageCapacity - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ListNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "allowWatchBookmarks" - allowWatchBookmarks requests watch events with type \"BOOKMARK\". Servers that do not implement bookmarks may ignore this flag and bookmarks are sent at the server's discretion. Clients should not assume bookmarks are returned at any specific interval, nor may they assume the server will send any BOOKMARK event during a session. If this is not a watch, this field is ignored. -instance HasOptionalParam ListNamespacedCSIStorageCapacity AllowWatchBookmarks where - applyOptionalParam req (AllowWatchBookmarks xs) = - req `addQuery` toQuery ("allowWatchBookmarks", Just xs) - --- | /Optional Param/ "continue" - The continue option should be set when retrieving more results from the server. Since this value is server defined, clients may only use the continue value from a previous query result with identical query parameters (except for the value of continue) and the server may reject a continue value it does not recognize. If the specified continue value is no longer valid whether due to expiration (generally five to fifteen minutes) or a configuration change on the server, the server will respond with a 410 ResourceExpired error together with a continue token. If the client needs a consistent list, it must restart their list without the continue field. Otherwise, the client may send another list request with the token received with the 410 error, the server will respond with a list starting from the next key, but from the latest snapshot, which is inconsistent from the previous list results - objects that are created, modified, or deleted after the first list request will be included in the response, as long as their keys are after the \"next key\". This field is not supported when watch is true. Clients may start a watch from the last resourceVersion value returned by the server and not miss any modifications. -instance HasOptionalParam ListNamespacedCSIStorageCapacity Continue where - applyOptionalParam req (Continue xs) = - req `addQuery` toQuery ("continue", Just xs) - --- | /Optional Param/ "fieldSelector" - A selector to restrict the list of returned objects by their fields. Defaults to everything. -instance HasOptionalParam ListNamespacedCSIStorageCapacity FieldSelector where - applyOptionalParam req (FieldSelector xs) = - req `addQuery` toQuery ("fieldSelector", Just xs) - --- | /Optional Param/ "labelSelector" - A selector to restrict the list of returned objects by their labels. Defaults to everything. -instance HasOptionalParam ListNamespacedCSIStorageCapacity LabelSelector where - applyOptionalParam req (LabelSelector xs) = - req `addQuery` toQuery ("labelSelector", Just xs) - --- | /Optional Param/ "limit" - limit is a maximum number of responses to return for a list call. If more items exist, the server will set the `continue` field on the list metadata to a value that can be used with the same initial query to retrieve the next set of results. Setting a limit may return fewer than the requested amount of items (up to zero items) in the event all requested objects are filtered out and clients should only use the presence of the continue field to determine whether more results are available. Servers may choose not to support the limit argument and will return all of the available results. If limit is specified and the continue field is empty, clients may assume that no more results are available. This field is not supported if watch is true. The server guarantees that the objects returned when using continue will be identical to issuing a single list call without a limit - that is, no objects created, modified, or deleted after the first request is issued will be included in any subsequent continued requests. This is sometimes referred to as a consistent snapshot, and ensures that a client that is using limit to receive smaller chunks of a very large result can ensure they see all possible objects. If objects are updated during a chunked list the version of the object that was present at the time the first list result was calculated is returned. -instance HasOptionalParam ListNamespacedCSIStorageCapacity Limit where - applyOptionalParam req (Limit xs) = - req `addQuery` toQuery ("limit", Just xs) - --- | /Optional Param/ "resourceVersion" - resourceVersion sets a constraint on what resource versions a request may be served from. See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedCSIStorageCapacity ResourceVersion where - applyOptionalParam req (ResourceVersion xs) = - req `addQuery` toQuery ("resourceVersion", Just xs) - --- | /Optional Param/ "resourceVersionMatch" - resourceVersionMatch determines how resourceVersion is applied to list calls. It is highly recommended that resourceVersionMatch be set for list calls where resourceVersion is set See https://kubernetes.io/docs/reference/using-api/api-concepts/#resource-versions for details. Defaults to unset -instance HasOptionalParam ListNamespacedCSIStorageCapacity ResourceVersionMatch where - applyOptionalParam req (ResourceVersionMatch xs) = - req `addQuery` toQuery ("resourceVersionMatch", Just xs) - --- | /Optional Param/ "timeoutSeconds" - Timeout for the list/watch call. This limits the duration of the call, regardless of any activity or inactivity. -instance HasOptionalParam ListNamespacedCSIStorageCapacity TimeoutSeconds where - applyOptionalParam req (TimeoutSeconds xs) = - req `addQuery` toQuery ("timeoutSeconds", Just xs) - --- | /Optional Param/ "watch" - Watch for changes to the described resources and return them as a stream of add, update, and remove notifications. Specify resourceVersion. -instance HasOptionalParam ListNamespacedCSIStorageCapacity Watch where - applyOptionalParam req (Watch xs) = - req `addQuery` toQuery ("watch", Just xs) --- | @application/json@ -instance Produces ListNamespacedCSIStorageCapacity MimeJSON --- | @application/json;stream=watch@ -instance Produces ListNamespacedCSIStorageCapacity MimeJsonstreamwatch --- | @application/vnd.kubernetes.protobuf@ -instance Produces ListNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/vnd.kubernetes.protobuf;stream=watch@ -instance Produces ListNamespacedCSIStorageCapacity MimeVndKubernetesProtobufstreamwatch --- | @application/yaml@ -instance Produces ListNamespacedCSIStorageCapacity MimeYaml - - --- *** patchNamespacedCSIStorageCapacity - --- | @PATCH \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities\/{name}@ --- --- partially update the specified CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -patchNamespacedCSIStorageCapacity - :: (Consumes PatchNamespacedCSIStorageCapacity contentType, MimeRender contentType Body) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> Body -- ^ "body" - -> Name -- ^ "name" - name of the CSIStorageCapacity - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest PatchNamespacedCSIStorageCapacity contentType V1beta1CSIStorageCapacity accept -patchNamespacedCSIStorageCapacity _ _ body (Name name) (Namespace namespace) = - _mkRequest "PATCH" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data PatchNamespacedCSIStorageCapacity -instance HasBodyParam PatchNamespacedCSIStorageCapacity Body - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam PatchNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam PatchNamespacedCSIStorageCapacity DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. This field is required for apply requests (application/apply-patch) but optional for non-apply patch types (JsonPatch, MergePatch, StrategicMergePatch). -instance HasOptionalParam PatchNamespacedCSIStorageCapacity FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam PatchNamespacedCSIStorageCapacity FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | /Optional Param/ "force" - Force is going to \"force\" Apply requests. It means user will re-acquire conflicting fields owned by other people. Force flag must be unset for non-apply patch requests. -instance HasOptionalParam PatchNamespacedCSIStorageCapacity Force where - applyOptionalParam req (Force xs) = - req `addQuery` toQuery ("force", Just xs) - --- | @application/apply-patch+yaml@ -instance Consumes PatchNamespacedCSIStorageCapacity MimeApplyPatchyaml --- | @application/json-patch+json@ -instance Consumes PatchNamespacedCSIStorageCapacity MimeJsonPatchjson --- | @application/merge-patch+json@ -instance Consumes PatchNamespacedCSIStorageCapacity MimeMergePatchjson --- | @application/strategic-merge-patch+json@ -instance Consumes PatchNamespacedCSIStorageCapacity MimeStrategicMergePatchjson - --- | @application/json@ -instance Produces PatchNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces PatchNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces PatchNamespacedCSIStorageCapacity MimeYaml - - --- *** readNamespacedCSIStorageCapacity - --- | @GET \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities\/{name}@ --- --- read the specified CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -readNamespacedCSIStorageCapacity - :: Accept accept -- ^ request accept ('MimeType') - -> Name -- ^ "name" - name of the CSIStorageCapacity - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReadNamespacedCSIStorageCapacity MimeNoContent V1beta1CSIStorageCapacity accept -readNamespacedCSIStorageCapacity _ (Name name) (Namespace namespace) = - _mkRequest "GET" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - -data ReadNamespacedCSIStorageCapacity - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReadNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) --- | @application/json@ -instance Produces ReadNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReadNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReadNamespacedCSIStorageCapacity MimeYaml - - --- *** replaceNamespacedCSIStorageCapacity - --- | @PUT \/apis\/storage.k8s.io\/v1beta1\/namespaces\/{namespace}\/csistoragecapacities\/{name}@ --- --- replace the specified CSIStorageCapacity --- --- AuthMethod: 'AuthApiKeyBearerToken' --- -replaceNamespacedCSIStorageCapacity - :: (Consumes ReplaceNamespacedCSIStorageCapacity contentType, MimeRender contentType V1beta1CSIStorageCapacity) - => ContentType contentType -- ^ request content-type ('MimeType') - -> Accept accept -- ^ request accept ('MimeType') - -> V1beta1CSIStorageCapacity -- ^ "body" - -> Name -- ^ "name" - name of the CSIStorageCapacity - -> Namespace -- ^ "namespace" - object name and auth scope, such as for teams and projects - -> KubernetesRequest ReplaceNamespacedCSIStorageCapacity contentType V1beta1CSIStorageCapacity accept -replaceNamespacedCSIStorageCapacity _ _ body (Name name) (Namespace namespace) = - _mkRequest "PUT" ["/apis/storage.k8s.io/v1beta1/namespaces/",toPath namespace,"/csistoragecapacities/",toPath name] - `_hasAuthType` (P.Proxy :: P.Proxy AuthApiKeyBearerToken) - `setBodyParam` body - -data ReplaceNamespacedCSIStorageCapacity -instance HasBodyParam ReplaceNamespacedCSIStorageCapacity V1beta1CSIStorageCapacity - --- | /Optional Param/ "pretty" - If 'true', then the output is pretty printed. -instance HasOptionalParam ReplaceNamespacedCSIStorageCapacity Pretty where - applyOptionalParam req (Pretty xs) = - req `addQuery` toQuery ("pretty", Just xs) - --- | /Optional Param/ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed -instance HasOptionalParam ReplaceNamespacedCSIStorageCapacity DryRun where - applyOptionalParam req (DryRun xs) = - req `addQuery` toQuery ("dryRun", Just xs) - --- | /Optional Param/ "fieldManager" - fieldManager is a name associated with the actor or entity that is making these changes. The value must be less than or 128 characters long, and only contain printable characters, as defined by https://golang.org/pkg/unicode/#IsPrint. -instance HasOptionalParam ReplaceNamespacedCSIStorageCapacity FieldManager where - applyOptionalParam req (FieldManager xs) = - req `addQuery` toQuery ("fieldManager", Just xs) - --- | /Optional Param/ "fieldValidation" - fieldValidation instructs the server on how to handle objects in the request (POST/PUT/PATCH) containing unknown or duplicate fields, provided that the `ServerSideFieldValidation` feature gate is also enabled. Valid values are: - Ignore: This will ignore any unknown fields that are silently dropped from the object, and will ignore all but the last duplicate field that the decoder encounters. This is the default behavior prior to v1.23 and is the default behavior when the `ServerSideFieldValidation` feature gate is disabled. - Warn: This will send a warning via the standard warning response header for each unknown field that is dropped from the object, and for each duplicate field that is encountered. The request will still succeed if there are no other errors, and will only persist the last of any duplicate fields. This is the default when the `ServerSideFieldValidation` feature gate is enabled. - Strict: This will fail the request with a BadRequest error if any unknown fields would be dropped from the object, or if any duplicate fields are present. The error returned from the server will contain all unknown and duplicate fields encountered. -instance HasOptionalParam ReplaceNamespacedCSIStorageCapacity FieldValidation where - applyOptionalParam req (FieldValidation xs) = - req `addQuery` toQuery ("fieldValidation", Just xs) - --- | @*/*@ -instance MimeType mtype => Consumes ReplaceNamespacedCSIStorageCapacity mtype - --- | @application/json@ -instance Produces ReplaceNamespacedCSIStorageCapacity MimeJSON --- | @application/vnd.kubernetes.protobuf@ -instance Produces ReplaceNamespacedCSIStorageCapacity MimeVndKubernetesProtobuf --- | @application/yaml@ -instance Produces ReplaceNamespacedCSIStorageCapacity MimeYaml - diff --git a/lib/Kubernetes/OpenAPI/API/Version.hs b/lib/Kubernetes/OpenAPI/API/Version.hs --- a/lib/Kubernetes/OpenAPI/API/Version.hs +++ b/lib/Kubernetes/OpenAPI/API/Version.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/API/WellKnown.hs b/lib/Kubernetes/OpenAPI/API/WellKnown.hs --- a/lib/Kubernetes/OpenAPI/API/WellKnown.hs +++ b/lib/Kubernetes/OpenAPI/API/WellKnown.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/Client.hs b/lib/Kubernetes/OpenAPI/Client.hs --- a/lib/Kubernetes/OpenAPI/Client.hs +++ b/lib/Kubernetes/OpenAPI/Client.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/Core.hs b/lib/Kubernetes/OpenAPI/Core.hs --- a/lib/Kubernetes/OpenAPI/Core.hs +++ b/lib/Kubernetes/OpenAPI/Core.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/Logging.hs b/lib/Kubernetes/OpenAPI/Logging.hs --- a/lib/Kubernetes/OpenAPI/Logging.hs +++ b/lib/Kubernetes/OpenAPI/Logging.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/LoggingKatip.hs b/lib/Kubernetes/OpenAPI/LoggingKatip.hs --- a/lib/Kubernetes/OpenAPI/LoggingKatip.hs +++ b/lib/Kubernetes/OpenAPI/LoggingKatip.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/LoggingMonadLogger.hs b/lib/Kubernetes/OpenAPI/LoggingMonadLogger.hs --- a/lib/Kubernetes/OpenAPI/LoggingMonadLogger.hs +++ b/lib/Kubernetes/OpenAPI/LoggingMonadLogger.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/MimeTypes.hs b/lib/Kubernetes/OpenAPI/MimeTypes.hs --- a/lib/Kubernetes/OpenAPI/MimeTypes.hs +++ b/lib/Kubernetes/OpenAPI/MimeTypes.hs @@ -4,7 +4,7 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 + Kubernetes API version: release-1.27 Generated by OpenAPI Generator (https://openapi-generator.tech) -} diff --git a/lib/Kubernetes/OpenAPI/Model.hs b/lib/Kubernetes/OpenAPI/Model.hs --- a/lib/Kubernetes/OpenAPI/Model.hs +++ b/lib/Kubernetes/OpenAPI/Model.hs @@ -4,22469 +4,23045 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : Kubernetes.OpenAPI.Model --} - -{-# LANGUAGE DeriveDataTypeable #-} -{-# LANGUAGE DeriveFoldable #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DeriveTraversable #-} -{-# LANGUAGE DuplicateRecordFields #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE MultiParamTypeClasses #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TupleSections #-} -{-# LANGUAGE TypeFamilies #-} -{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module Kubernetes.OpenAPI.Model (module Kubernetes.OpenAPI.Model, module Kubernetes.OpenAPI.ImportMappings) where - -import Kubernetes.OpenAPI.Core -import Kubernetes.OpenAPI.MimeTypes -import Kubernetes.OpenAPI.ImportMappings - -import Data.Aeson ((.:),(.:!),(.:?),(.=)) - -import qualified Control.Arrow as P (left) -import qualified Data.Aeson as A -import qualified Data.ByteString as B -import qualified Data.ByteString.Base64 as B64 -import qualified Data.ByteString.Char8 as BC -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) -import qualified Data.Foldable as P -import qualified Data.HashMap.Lazy as HM -import qualified Data.Map as Map -import qualified Data.Maybe as P -import qualified Data.Set as Set -import qualified Data.Text as T -import qualified Data.Text.Encoding as T -import qualified Data.Time as TI -import qualified Lens.Micro as L -import qualified Web.FormUrlEncoded as WH -import qualified Web.HttpApiData as WH - -import Control.Applicative ((<|>)) -import Control.Applicative (Alternative) -import Data.Function ((&)) -import Data.Monoid ((<>)) -import Data.Text (Text) -import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) - -import qualified Prelude as P - - - --- * Parameter newtypes - - --- ** AllowWatchBookmarks -newtype AllowWatchBookmarks = AllowWatchBookmarks { unAllowWatchBookmarks :: Bool } deriving (P.Eq, P.Show) - --- ** Body -newtype Body = Body { unBody :: A.Value } deriving (P.Eq, P.Show, A.ToJSON) - --- ** Command -newtype Command = Command { unCommand :: Text } deriving (P.Eq, P.Show) - --- ** Container -newtype Container = Container { unContainer :: Text } deriving (P.Eq, P.Show) - --- ** Continue -newtype Continue = Continue { unContinue :: Text } deriving (P.Eq, P.Show) - --- ** DryRun -newtype DryRun = DryRun { unDryRun :: Text } deriving (P.Eq, P.Show) - --- ** FieldManager -newtype FieldManager = FieldManager { unFieldManager :: Text } deriving (P.Eq, P.Show) - --- ** FieldSelector -newtype FieldSelector = FieldSelector { unFieldSelector :: Text } deriving (P.Eq, P.Show) - --- ** FieldValidation -newtype FieldValidation = FieldValidation { unFieldValidation :: Text } deriving (P.Eq, P.Show) - --- ** Follow -newtype Follow = Follow { unFollow :: Bool } deriving (P.Eq, P.Show) - --- ** Force -newtype Force = Force { unForce :: Bool } deriving (P.Eq, P.Show) - --- ** GracePeriodSeconds -newtype GracePeriodSeconds = GracePeriodSeconds { unGracePeriodSeconds :: Int } deriving (P.Eq, P.Show) - --- ** Group -newtype Group = Group { unGroup :: Text } deriving (P.Eq, P.Show) - --- ** InsecureSkipTlsVerifyBackend -newtype InsecureSkipTlsVerifyBackend = InsecureSkipTlsVerifyBackend { unInsecureSkipTlsVerifyBackend :: Bool } deriving (P.Eq, P.Show) - --- ** LabelSelector -newtype LabelSelector = LabelSelector { unLabelSelector :: Text } deriving (P.Eq, P.Show) - --- ** Limit -newtype Limit = Limit { unLimit :: Int } deriving (P.Eq, P.Show) - --- ** LimitBytes -newtype LimitBytes = LimitBytes { unLimitBytes :: Int } deriving (P.Eq, P.Show) - --- ** Logpath -newtype Logpath = Logpath { unLogpath :: Text } deriving (P.Eq, P.Show) - --- ** Name -newtype Name = Name { unName :: Text } deriving (P.Eq, P.Show) - --- ** Namespace -newtype Namespace = Namespace { unNamespace :: Text } deriving (P.Eq, P.Show) - --- ** OrphanDependents -newtype OrphanDependents = OrphanDependents { unOrphanDependents :: Bool } deriving (P.Eq, P.Show) - --- ** Path -newtype Path = Path { unPath :: Text } deriving (P.Eq, P.Show) - --- ** Path2 -newtype Path2 = Path2 { unPath2 :: Text } deriving (P.Eq, P.Show) - --- ** Plural -newtype Plural = Plural { unPlural :: Text } deriving (P.Eq, P.Show) - --- ** Ports -newtype Ports = Ports { unPorts :: Int } deriving (P.Eq, P.Show) - --- ** Pretty -newtype Pretty = Pretty { unPretty :: Text } deriving (P.Eq, P.Show) - --- ** Previous -newtype Previous = Previous { unPrevious :: Bool } deriving (P.Eq, P.Show) - --- ** PropagationPolicy -newtype PropagationPolicy = PropagationPolicy { unPropagationPolicy :: Text } deriving (P.Eq, P.Show) - --- ** ResourcePlural -newtype ResourcePlural = ResourcePlural { unResourcePlural :: Text } deriving (P.Eq, P.Show) - --- ** ResourceVersion -newtype ResourceVersion = ResourceVersion { unResourceVersion :: Text } deriving (P.Eq, P.Show) - --- ** ResourceVersionMatch -newtype ResourceVersionMatch = ResourceVersionMatch { unResourceVersionMatch :: Text } deriving (P.Eq, P.Show) - --- ** SinceSeconds -newtype SinceSeconds = SinceSeconds { unSinceSeconds :: Int } deriving (P.Eq, P.Show) - --- ** Stderr -newtype Stderr = Stderr { unStderr :: Bool } deriving (P.Eq, P.Show) - --- ** Stdin -newtype Stdin = Stdin { unStdin :: Bool } deriving (P.Eq, P.Show) - --- ** Stdout -newtype Stdout = Stdout { unStdout :: Bool } deriving (P.Eq, P.Show) - --- ** TailLines -newtype TailLines = TailLines { unTailLines :: Int } deriving (P.Eq, P.Show) - --- ** TimeoutSeconds -newtype TimeoutSeconds = TimeoutSeconds { unTimeoutSeconds :: Int } deriving (P.Eq, P.Show) - --- ** Timestamps -newtype Timestamps = Timestamps { unTimestamps :: Bool } deriving (P.Eq, P.Show) - --- ** Tty -newtype Tty = Tty { unTty :: Bool } deriving (P.Eq, P.Show) - --- ** Version -newtype Version = Version { unVersion :: Text } deriving (P.Eq, P.Show) - --- ** Watch -newtype Watch = Watch { unWatch :: Bool } deriving (P.Eq, P.Show) - --- * Models - - --- ** AdmissionregistrationV1ServiceReference --- | AdmissionregistrationV1ServiceReference --- ServiceReference holds a reference to Service.legacy.k8s.io -data AdmissionregistrationV1ServiceReference = AdmissionregistrationV1ServiceReference - { admissionregistrationV1ServiceReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the service. Required - , admissionregistrationV1ServiceReferenceNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of the service. Required - , admissionregistrationV1ServiceReferencePath :: !(Maybe Text) -- ^ "path" - `path` is an optional URL path which will be sent in any request to this service. - , admissionregistrationV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - If specified, the port on the service that hosting webhook. Default to 443 for backward compatibility. `port` should be a valid port number (1-65535, inclusive). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON AdmissionregistrationV1ServiceReference -instance A.FromJSON AdmissionregistrationV1ServiceReference where - parseJSON = A.withObject "AdmissionregistrationV1ServiceReference" $ \o -> - AdmissionregistrationV1ServiceReference - <$> (o .: "name") - <*> (o .: "namespace") - <*> (o .:? "path") - <*> (o .:? "port") - --- | ToJSON AdmissionregistrationV1ServiceReference -instance A.ToJSON AdmissionregistrationV1ServiceReference where - toJSON AdmissionregistrationV1ServiceReference {..} = - _omitNulls - [ "name" .= admissionregistrationV1ServiceReferenceName - , "namespace" .= admissionregistrationV1ServiceReferenceNamespace - , "path" .= admissionregistrationV1ServiceReferencePath - , "port" .= admissionregistrationV1ServiceReferencePort - ] - - --- | Construct a value of type 'AdmissionregistrationV1ServiceReference' (by applying it's required fields, if any) -mkAdmissionregistrationV1ServiceReference - :: Text -- ^ 'admissionregistrationV1ServiceReferenceName': `name` is the name of the service. Required - -> Text -- ^ 'admissionregistrationV1ServiceReferenceNamespace': `namespace` is the namespace of the service. Required - -> AdmissionregistrationV1ServiceReference -mkAdmissionregistrationV1ServiceReference admissionregistrationV1ServiceReferenceName admissionregistrationV1ServiceReferenceNamespace = - AdmissionregistrationV1ServiceReference - { admissionregistrationV1ServiceReferenceName - , admissionregistrationV1ServiceReferenceNamespace - , admissionregistrationV1ServiceReferencePath = Nothing - , admissionregistrationV1ServiceReferencePort = Nothing - } - --- ** AdmissionregistrationV1WebhookClientConfig --- | AdmissionregistrationV1WebhookClientConfig --- WebhookClientConfig contains the information to make a TLS connection with the webhook -data AdmissionregistrationV1WebhookClientConfig = AdmissionregistrationV1WebhookClientConfig - { admissionregistrationV1WebhookClientConfigCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - `caBundle` is a PEM encoded CA bundle which will be used to validate the webhook's server certificate. If unspecified, system trust roots on the apiserver are used. - , admissionregistrationV1WebhookClientConfigService :: !(Maybe AdmissionregistrationV1ServiceReference) -- ^ "service" - , admissionregistrationV1WebhookClientConfigUrl :: !(Maybe Text) -- ^ "url" - `url` gives the location of the webhook, in standard URL form (`scheme://host:port/path`). Exactly one of `url` or `service` must be specified. The `host` should not refer to a service running in the cluster; use the `service` field instead. The host might be resolved via external DNS in some apiservers (e.g., `kube-apiserver` cannot resolve in-cluster DNS as that would be a layering violation). `host` may also be an IP address. Please note that using `localhost` or `127.0.0.1` as a `host` is risky unless you take great care to run this webhook on all hosts which run an apiserver which might need to make calls to this webhook. Such installs are likely to be non-portable, i.e., not easy to turn up in a new cluster. The scheme must be \"https\"; the URL must begin with \"https://\". A path is optional, and if present may be any string permissible in a URL. You may use the path to pass an arbitrary string to the webhook, for example, a cluster identifier. Attempting to use a user or basic auth e.g. \"user:password@\" is not allowed. Fragments (\"#...\") and query parameters (\"?...\") are not allowed, either. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON AdmissionregistrationV1WebhookClientConfig -instance A.FromJSON AdmissionregistrationV1WebhookClientConfig where - parseJSON = A.withObject "AdmissionregistrationV1WebhookClientConfig" $ \o -> - AdmissionregistrationV1WebhookClientConfig - <$> (o .:? "caBundle") - <*> (o .:? "service") - <*> (o .:? "url") - --- | ToJSON AdmissionregistrationV1WebhookClientConfig -instance A.ToJSON AdmissionregistrationV1WebhookClientConfig where - toJSON AdmissionregistrationV1WebhookClientConfig {..} = - _omitNulls - [ "caBundle" .= admissionregistrationV1WebhookClientConfigCaBundle - , "service" .= admissionregistrationV1WebhookClientConfigService - , "url" .= admissionregistrationV1WebhookClientConfigUrl - ] - - --- | Construct a value of type 'AdmissionregistrationV1WebhookClientConfig' (by applying it's required fields, if any) -mkAdmissionregistrationV1WebhookClientConfig - :: AdmissionregistrationV1WebhookClientConfig -mkAdmissionregistrationV1WebhookClientConfig = - AdmissionregistrationV1WebhookClientConfig - { admissionregistrationV1WebhookClientConfigCaBundle = Nothing - , admissionregistrationV1WebhookClientConfigService = Nothing - , admissionregistrationV1WebhookClientConfigUrl = Nothing - } - --- ** ApiextensionsV1ServiceReference --- | ApiextensionsV1ServiceReference --- ServiceReference holds a reference to Service.legacy.k8s.io -data ApiextensionsV1ServiceReference = ApiextensionsV1ServiceReference - { apiextensionsV1ServiceReferenceName :: !(Text) -- ^ /Required/ "name" - name is the name of the service. Required - , apiextensionsV1ServiceReferenceNamespace :: !(Text) -- ^ /Required/ "namespace" - namespace is the namespace of the service. Required - , apiextensionsV1ServiceReferencePath :: !(Maybe Text) -- ^ "path" - path is an optional URL path at which the webhook will be contacted. - , apiextensionsV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - port is an optional service port at which the webhook will be contacted. `port` should be a valid port number (1-65535, inclusive). Defaults to 443 for backward compatibility. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ApiextensionsV1ServiceReference -instance A.FromJSON ApiextensionsV1ServiceReference where - parseJSON = A.withObject "ApiextensionsV1ServiceReference" $ \o -> - ApiextensionsV1ServiceReference - <$> (o .: "name") - <*> (o .: "namespace") - <*> (o .:? "path") - <*> (o .:? "port") - --- | ToJSON ApiextensionsV1ServiceReference -instance A.ToJSON ApiextensionsV1ServiceReference where - toJSON ApiextensionsV1ServiceReference {..} = - _omitNulls - [ "name" .= apiextensionsV1ServiceReferenceName - , "namespace" .= apiextensionsV1ServiceReferenceNamespace - , "path" .= apiextensionsV1ServiceReferencePath - , "port" .= apiextensionsV1ServiceReferencePort - ] - - --- | Construct a value of type 'ApiextensionsV1ServiceReference' (by applying it's required fields, if any) -mkApiextensionsV1ServiceReference - :: Text -- ^ 'apiextensionsV1ServiceReferenceName': name is the name of the service. Required - -> Text -- ^ 'apiextensionsV1ServiceReferenceNamespace': namespace is the namespace of the service. Required - -> ApiextensionsV1ServiceReference -mkApiextensionsV1ServiceReference apiextensionsV1ServiceReferenceName apiextensionsV1ServiceReferenceNamespace = - ApiextensionsV1ServiceReference - { apiextensionsV1ServiceReferenceName - , apiextensionsV1ServiceReferenceNamespace - , apiextensionsV1ServiceReferencePath = Nothing - , apiextensionsV1ServiceReferencePort = Nothing - } - --- ** ApiextensionsV1WebhookClientConfig --- | ApiextensionsV1WebhookClientConfig --- WebhookClientConfig contains the information to make a TLS connection with the webhook. -data ApiextensionsV1WebhookClientConfig = ApiextensionsV1WebhookClientConfig - { apiextensionsV1WebhookClientConfigCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - caBundle is a PEM encoded CA bundle which will be used to validate the webhook's server certificate. If unspecified, system trust roots on the apiserver are used. - , apiextensionsV1WebhookClientConfigService :: !(Maybe ApiextensionsV1ServiceReference) -- ^ "service" - , apiextensionsV1WebhookClientConfigUrl :: !(Maybe Text) -- ^ "url" - url gives the location of the webhook, in standard URL form (`scheme://host:port/path`). Exactly one of `url` or `service` must be specified. The `host` should not refer to a service running in the cluster; use the `service` field instead. The host might be resolved via external DNS in some apiservers (e.g., `kube-apiserver` cannot resolve in-cluster DNS as that would be a layering violation). `host` may also be an IP address. Please note that using `localhost` or `127.0.0.1` as a `host` is risky unless you take great care to run this webhook on all hosts which run an apiserver which might need to make calls to this webhook. Such installs are likely to be non-portable, i.e., not easy to turn up in a new cluster. The scheme must be \"https\"; the URL must begin with \"https://\". A path is optional, and if present may be any string permissible in a URL. You may use the path to pass an arbitrary string to the webhook, for example, a cluster identifier. Attempting to use a user or basic auth e.g. \"user:password@\" is not allowed. Fragments (\"#...\") and query parameters (\"?...\") are not allowed, either. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ApiextensionsV1WebhookClientConfig -instance A.FromJSON ApiextensionsV1WebhookClientConfig where - parseJSON = A.withObject "ApiextensionsV1WebhookClientConfig" $ \o -> - ApiextensionsV1WebhookClientConfig - <$> (o .:? "caBundle") - <*> (o .:? "service") - <*> (o .:? "url") - --- | ToJSON ApiextensionsV1WebhookClientConfig -instance A.ToJSON ApiextensionsV1WebhookClientConfig where - toJSON ApiextensionsV1WebhookClientConfig {..} = - _omitNulls - [ "caBundle" .= apiextensionsV1WebhookClientConfigCaBundle - , "service" .= apiextensionsV1WebhookClientConfigService - , "url" .= apiextensionsV1WebhookClientConfigUrl - ] - - --- | Construct a value of type 'ApiextensionsV1WebhookClientConfig' (by applying it's required fields, if any) -mkApiextensionsV1WebhookClientConfig - :: ApiextensionsV1WebhookClientConfig -mkApiextensionsV1WebhookClientConfig = - ApiextensionsV1WebhookClientConfig - { apiextensionsV1WebhookClientConfigCaBundle = Nothing - , apiextensionsV1WebhookClientConfigService = Nothing - , apiextensionsV1WebhookClientConfigUrl = Nothing - } - --- ** ApiregistrationV1ServiceReference --- | ApiregistrationV1ServiceReference --- ServiceReference holds a reference to Service.legacy.k8s.io -data ApiregistrationV1ServiceReference = ApiregistrationV1ServiceReference - { apiregistrationV1ServiceReferenceName :: !(Maybe Text) -- ^ "name" - Name is the name of the service - , apiregistrationV1ServiceReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the service - , apiregistrationV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - If specified, the port on the service that hosting webhook. Default to 443 for backward compatibility. `port` should be a valid port number (1-65535, inclusive). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON ApiregistrationV1ServiceReference -instance A.FromJSON ApiregistrationV1ServiceReference where - parseJSON = A.withObject "ApiregistrationV1ServiceReference" $ \o -> - ApiregistrationV1ServiceReference - <$> (o .:? "name") - <*> (o .:? "namespace") - <*> (o .:? "port") - --- | ToJSON ApiregistrationV1ServiceReference -instance A.ToJSON ApiregistrationV1ServiceReference where - toJSON ApiregistrationV1ServiceReference {..} = - _omitNulls - [ "name" .= apiregistrationV1ServiceReferenceName - , "namespace" .= apiregistrationV1ServiceReferenceNamespace - , "port" .= apiregistrationV1ServiceReferencePort - ] - - --- | Construct a value of type 'ApiregistrationV1ServiceReference' (by applying it's required fields, if any) -mkApiregistrationV1ServiceReference - :: ApiregistrationV1ServiceReference -mkApiregistrationV1ServiceReference = - ApiregistrationV1ServiceReference - { apiregistrationV1ServiceReferenceName = Nothing - , apiregistrationV1ServiceReferenceNamespace = Nothing - , apiregistrationV1ServiceReferencePort = Nothing - } - --- ** AuthenticationV1TokenRequest --- | AuthenticationV1TokenRequest --- TokenRequest requests a token for a given service account. -data AuthenticationV1TokenRequest = AuthenticationV1TokenRequest - { authenticationV1TokenRequestApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , authenticationV1TokenRequestKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , authenticationV1TokenRequestMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , authenticationV1TokenRequestSpec :: !(V1TokenRequestSpec) -- ^ /Required/ "spec" - , authenticationV1TokenRequestStatus :: !(Maybe V1TokenRequestStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON AuthenticationV1TokenRequest -instance A.FromJSON AuthenticationV1TokenRequest where - parseJSON = A.withObject "AuthenticationV1TokenRequest" $ \o -> - AuthenticationV1TokenRequest - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON AuthenticationV1TokenRequest -instance A.ToJSON AuthenticationV1TokenRequest where - toJSON AuthenticationV1TokenRequest {..} = - _omitNulls - [ "apiVersion" .= authenticationV1TokenRequestApiVersion - , "kind" .= authenticationV1TokenRequestKind - , "metadata" .= authenticationV1TokenRequestMetadata - , "spec" .= authenticationV1TokenRequestSpec - , "status" .= authenticationV1TokenRequestStatus - ] - - --- | Construct a value of type 'AuthenticationV1TokenRequest' (by applying it's required fields, if any) -mkAuthenticationV1TokenRequest - :: V1TokenRequestSpec -- ^ 'authenticationV1TokenRequestSpec' - -> AuthenticationV1TokenRequest -mkAuthenticationV1TokenRequest authenticationV1TokenRequestSpec = - AuthenticationV1TokenRequest - { authenticationV1TokenRequestApiVersion = Nothing - , authenticationV1TokenRequestKind = Nothing - , authenticationV1TokenRequestMetadata = Nothing - , authenticationV1TokenRequestSpec - , authenticationV1TokenRequestStatus = Nothing - } - --- ** CoreV1EndpointPort --- | CoreV1EndpointPort --- EndpointPort is a tuple that describes a single port. -data CoreV1EndpointPort = CoreV1EndpointPort - { coreV1EndpointPortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This field follows standard Kubernetes label syntax. Un-prefixed names are reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). Non-standard protocols should use prefixed names such as mycompany.com/my-custom-protocol. - , coreV1EndpointPortName :: !(Maybe Text) -- ^ "name" - The name of this port. This must match the 'name' field in the corresponding ServicePort. Must be a DNS_LABEL. Optional only if one port is defined. - , coreV1EndpointPortPort :: !(Int) -- ^ /Required/ "port" - The port number of the endpoint. - , coreV1EndpointPortProtocol :: !(Maybe Text) -- ^ "protocol" - The IP protocol for this port. Must be UDP, TCP, or SCTP. Default is TCP. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON CoreV1EndpointPort -instance A.FromJSON CoreV1EndpointPort where - parseJSON = A.withObject "CoreV1EndpointPort" $ \o -> - CoreV1EndpointPort - <$> (o .:? "appProtocol") - <*> (o .:? "name") - <*> (o .: "port") - <*> (o .:? "protocol") - --- | ToJSON CoreV1EndpointPort -instance A.ToJSON CoreV1EndpointPort where - toJSON CoreV1EndpointPort {..} = - _omitNulls - [ "appProtocol" .= coreV1EndpointPortAppProtocol - , "name" .= coreV1EndpointPortName - , "port" .= coreV1EndpointPortPort - , "protocol" .= coreV1EndpointPortProtocol - ] - - --- | Construct a value of type 'CoreV1EndpointPort' (by applying it's required fields, if any) -mkCoreV1EndpointPort - :: Int -- ^ 'coreV1EndpointPortPort': The port number of the endpoint. - -> CoreV1EndpointPort -mkCoreV1EndpointPort coreV1EndpointPortPort = - CoreV1EndpointPort - { coreV1EndpointPortAppProtocol = Nothing - , coreV1EndpointPortName = Nothing - , coreV1EndpointPortPort - , coreV1EndpointPortProtocol = Nothing - } - --- ** CoreV1Event --- | CoreV1Event --- Event is a report of an event somewhere in the cluster. Events have a limited retention time and triggers and messages may evolve with time. Event consumers should not rely on the timing of an event with a given Reason reflecting a consistent underlying trigger, or the continued existence of events with that Reason. Events should be treated as informative, best-effort, supplemental data. -data CoreV1Event = CoreV1Event - { coreV1EventAction :: !(Maybe Text) -- ^ "action" - What action was taken/failed regarding to the Regarding object. - , coreV1EventApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , coreV1EventCount :: !(Maybe Int) -- ^ "count" - The number of times this event has occurred. - , coreV1EventEventTime :: !(Maybe DateTime) -- ^ "eventTime" - Time when this Event was first observed. - , coreV1EventFirstTimestamp :: !(Maybe DateTime) -- ^ "firstTimestamp" - The time at which the event was first recorded. (Time of server receipt is in TypeMeta.) - , coreV1EventInvolvedObject :: !(V1ObjectReference) -- ^ /Required/ "involvedObject" - , coreV1EventKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , coreV1EventLastTimestamp :: !(Maybe DateTime) -- ^ "lastTimestamp" - The time at which the most recent occurrence of this event was recorded. - , coreV1EventMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the status of this operation. - , coreV1EventMetadata :: !(V1ObjectMeta) -- ^ /Required/ "metadata" - , coreV1EventReason :: !(Maybe Text) -- ^ "reason" - This should be a short, machine understandable string that gives the reason for the transition into the object's current status. - , coreV1EventRelated :: !(Maybe V1ObjectReference) -- ^ "related" - , coreV1EventReportingComponent :: !(Maybe Text) -- ^ "reportingComponent" - Name of the controller that emitted this Event, e.g. `kubernetes.io/kubelet`. - , coreV1EventReportingInstance :: !(Maybe Text) -- ^ "reportingInstance" - ID of the controller instance, e.g. `kubelet-xyzf`. - , coreV1EventSeries :: !(Maybe CoreV1EventSeries) -- ^ "series" - , coreV1EventSource :: !(Maybe V1EventSource) -- ^ "source" - , coreV1EventType :: !(Maybe Text) -- ^ "type" - Type of this event (Normal, Warning), new types could be added in the future - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON CoreV1Event -instance A.FromJSON CoreV1Event where - parseJSON = A.withObject "CoreV1Event" $ \o -> - CoreV1Event - <$> (o .:? "action") - <*> (o .:? "apiVersion") - <*> (o .:? "count") - <*> (o .:? "eventTime") - <*> (o .:? "firstTimestamp") - <*> (o .: "involvedObject") - <*> (o .:? "kind") - <*> (o .:? "lastTimestamp") - <*> (o .:? "message") - <*> (o .: "metadata") - <*> (o .:? "reason") - <*> (o .:? "related") - <*> (o .:? "reportingComponent") - <*> (o .:? "reportingInstance") - <*> (o .:? "series") - <*> (o .:? "source") - <*> (o .:? "type") - --- | ToJSON CoreV1Event -instance A.ToJSON CoreV1Event where - toJSON CoreV1Event {..} = - _omitNulls - [ "action" .= coreV1EventAction - , "apiVersion" .= coreV1EventApiVersion - , "count" .= coreV1EventCount - , "eventTime" .= coreV1EventEventTime - , "firstTimestamp" .= coreV1EventFirstTimestamp - , "involvedObject" .= coreV1EventInvolvedObject - , "kind" .= coreV1EventKind - , "lastTimestamp" .= coreV1EventLastTimestamp - , "message" .= coreV1EventMessage - , "metadata" .= coreV1EventMetadata - , "reason" .= coreV1EventReason - , "related" .= coreV1EventRelated - , "reportingComponent" .= coreV1EventReportingComponent - , "reportingInstance" .= coreV1EventReportingInstance - , "series" .= coreV1EventSeries - , "source" .= coreV1EventSource - , "type" .= coreV1EventType - ] - - --- | Construct a value of type 'CoreV1Event' (by applying it's required fields, if any) -mkCoreV1Event - :: V1ObjectReference -- ^ 'coreV1EventInvolvedObject' - -> V1ObjectMeta -- ^ 'coreV1EventMetadata' - -> CoreV1Event -mkCoreV1Event coreV1EventInvolvedObject coreV1EventMetadata = - CoreV1Event - { coreV1EventAction = Nothing - , coreV1EventApiVersion = Nothing - , coreV1EventCount = Nothing - , coreV1EventEventTime = Nothing - , coreV1EventFirstTimestamp = Nothing - , coreV1EventInvolvedObject - , coreV1EventKind = Nothing - , coreV1EventLastTimestamp = Nothing - , coreV1EventMessage = Nothing - , coreV1EventMetadata - , coreV1EventReason = Nothing - , coreV1EventRelated = Nothing - , coreV1EventReportingComponent = Nothing - , coreV1EventReportingInstance = Nothing - , coreV1EventSeries = Nothing - , coreV1EventSource = Nothing - , coreV1EventType = Nothing - } - --- ** CoreV1EventList --- | CoreV1EventList --- EventList is a list of events. -data CoreV1EventList = CoreV1EventList - { coreV1EventListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , coreV1EventListItems :: !([CoreV1Event]) -- ^ /Required/ "items" - List of events - , coreV1EventListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , coreV1EventListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON CoreV1EventList -instance A.FromJSON CoreV1EventList where - parseJSON = A.withObject "CoreV1EventList" $ \o -> - CoreV1EventList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON CoreV1EventList -instance A.ToJSON CoreV1EventList where - toJSON CoreV1EventList {..} = - _omitNulls - [ "apiVersion" .= coreV1EventListApiVersion - , "items" .= coreV1EventListItems - , "kind" .= coreV1EventListKind - , "metadata" .= coreV1EventListMetadata - ] - - --- | Construct a value of type 'CoreV1EventList' (by applying it's required fields, if any) -mkCoreV1EventList - :: [CoreV1Event] -- ^ 'coreV1EventListItems': List of events - -> CoreV1EventList -mkCoreV1EventList coreV1EventListItems = - CoreV1EventList - { coreV1EventListApiVersion = Nothing - , coreV1EventListItems - , coreV1EventListKind = Nothing - , coreV1EventListMetadata = Nothing - } - --- ** CoreV1EventSeries --- | CoreV1EventSeries --- EventSeries contain information on series of events, i.e. thing that was/is happening continuously for some time. -data CoreV1EventSeries = CoreV1EventSeries - { coreV1EventSeriesCount :: !(Maybe Int) -- ^ "count" - Number of occurrences in this series up to the last heartbeat time - , coreV1EventSeriesLastObservedTime :: !(Maybe DateTime) -- ^ "lastObservedTime" - Time of the last occurrence observed - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON CoreV1EventSeries -instance A.FromJSON CoreV1EventSeries where - parseJSON = A.withObject "CoreV1EventSeries" $ \o -> - CoreV1EventSeries - <$> (o .:? "count") - <*> (o .:? "lastObservedTime") - --- | ToJSON CoreV1EventSeries -instance A.ToJSON CoreV1EventSeries where - toJSON CoreV1EventSeries {..} = - _omitNulls - [ "count" .= coreV1EventSeriesCount - , "lastObservedTime" .= coreV1EventSeriesLastObservedTime - ] - - --- | Construct a value of type 'CoreV1EventSeries' (by applying it's required fields, if any) -mkCoreV1EventSeries - :: CoreV1EventSeries -mkCoreV1EventSeries = - CoreV1EventSeries - { coreV1EventSeriesCount = Nothing - , coreV1EventSeriesLastObservedTime = Nothing - } - --- ** DiscoveryV1EndpointPort --- | DiscoveryV1EndpointPort --- EndpointPort represents a Port used by an EndpointSlice -data DiscoveryV1EndpointPort = DiscoveryV1EndpointPort - { discoveryV1EndpointPortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This field follows standard Kubernetes label syntax. Un-prefixed names are reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). Non-standard protocols should use prefixed names such as mycompany.com/my-custom-protocol. - , discoveryV1EndpointPortName :: !(Maybe Text) -- ^ "name" - The name of this port. All ports in an EndpointSlice must have a unique name. If the EndpointSlice is dervied from a Kubernetes service, this corresponds to the Service.ports[].name. Name must either be an empty string or pass DNS_LABEL validation: * must be no more than 63 characters long. * must consist of lower case alphanumeric characters or '-'. * must start and end with an alphanumeric character. Default is empty string. - , discoveryV1EndpointPortPort :: !(Maybe Int) -- ^ "port" - The port number of the endpoint. If this is not specified, ports are not restricted and must be interpreted in the context of the specific consumer. - , discoveryV1EndpointPortProtocol :: !(Maybe Text) -- ^ "protocol" - The IP protocol for this port. Must be UDP, TCP, or SCTP. Default is TCP. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON DiscoveryV1EndpointPort -instance A.FromJSON DiscoveryV1EndpointPort where - parseJSON = A.withObject "DiscoveryV1EndpointPort" $ \o -> - DiscoveryV1EndpointPort - <$> (o .:? "appProtocol") - <*> (o .:? "name") - <*> (o .:? "port") - <*> (o .:? "protocol") - --- | ToJSON DiscoveryV1EndpointPort -instance A.ToJSON DiscoveryV1EndpointPort where - toJSON DiscoveryV1EndpointPort {..} = - _omitNulls - [ "appProtocol" .= discoveryV1EndpointPortAppProtocol - , "name" .= discoveryV1EndpointPortName - , "port" .= discoveryV1EndpointPortPort - , "protocol" .= discoveryV1EndpointPortProtocol - ] - - --- | Construct a value of type 'DiscoveryV1EndpointPort' (by applying it's required fields, if any) -mkDiscoveryV1EndpointPort - :: DiscoveryV1EndpointPort -mkDiscoveryV1EndpointPort = - DiscoveryV1EndpointPort - { discoveryV1EndpointPortAppProtocol = Nothing - , discoveryV1EndpointPortName = Nothing - , discoveryV1EndpointPortPort = Nothing - , discoveryV1EndpointPortProtocol = Nothing - } - --- ** EventsV1Event --- | EventsV1Event --- Event is a report of an event somewhere in the cluster. It generally denotes some state change in the system. Events have a limited retention time and triggers and messages may evolve with time. Event consumers should not rely on the timing of an event with a given Reason reflecting a consistent underlying trigger, or the continued existence of events with that Reason. Events should be treated as informative, best-effort, supplemental data. -data EventsV1Event = EventsV1Event - { eventsV1EventAction :: !(Maybe Text) -- ^ "action" - action is what action was taken/failed regarding to the regarding object. It is machine-readable. This field cannot be empty for new Events and it can have at most 128 characters. - , eventsV1EventApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , eventsV1EventDeprecatedCount :: !(Maybe Int) -- ^ "deprecatedCount" - deprecatedCount is the deprecated field assuring backward compatibility with core.v1 Event type. - , eventsV1EventDeprecatedFirstTimestamp :: !(Maybe DateTime) -- ^ "deprecatedFirstTimestamp" - deprecatedFirstTimestamp is the deprecated field assuring backward compatibility with core.v1 Event type. - , eventsV1EventDeprecatedLastTimestamp :: !(Maybe DateTime) -- ^ "deprecatedLastTimestamp" - deprecatedLastTimestamp is the deprecated field assuring backward compatibility with core.v1 Event type. - , eventsV1EventDeprecatedSource :: !(Maybe V1EventSource) -- ^ "deprecatedSource" - , eventsV1EventEventTime :: !(DateTime) -- ^ /Required/ "eventTime" - eventTime is the time when this Event was first observed. It is required. - , eventsV1EventKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , eventsV1EventMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , eventsV1EventNote :: !(Maybe Text) -- ^ "note" - note is a human-readable description of the status of this operation. Maximal length of the note is 1kB, but libraries should be prepared to handle values up to 64kB. - , eventsV1EventReason :: !(Maybe Text) -- ^ "reason" - reason is why the action was taken. It is human-readable. This field cannot be empty for new Events and it can have at most 128 characters. - , eventsV1EventRegarding :: !(Maybe V1ObjectReference) -- ^ "regarding" - , eventsV1EventRelated :: !(Maybe V1ObjectReference) -- ^ "related" - , eventsV1EventReportingController :: !(Maybe Text) -- ^ "reportingController" - reportingController is the name of the controller that emitted this Event, e.g. `kubernetes.io/kubelet`. This field cannot be empty for new Events. - , eventsV1EventReportingInstance :: !(Maybe Text) -- ^ "reportingInstance" - reportingInstance is the ID of the controller instance, e.g. `kubelet-xyzf`. This field cannot be empty for new Events and it can have at most 128 characters. - , eventsV1EventSeries :: !(Maybe EventsV1EventSeries) -- ^ "series" - , eventsV1EventType :: !(Maybe Text) -- ^ "type" - type is the type of this event (Normal, Warning), new types could be added in the future. It is machine-readable. This field cannot be empty for new Events. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON EventsV1Event -instance A.FromJSON EventsV1Event where - parseJSON = A.withObject "EventsV1Event" $ \o -> - EventsV1Event - <$> (o .:? "action") - <*> (o .:? "apiVersion") - <*> (o .:? "deprecatedCount") - <*> (o .:? "deprecatedFirstTimestamp") - <*> (o .:? "deprecatedLastTimestamp") - <*> (o .:? "deprecatedSource") - <*> (o .: "eventTime") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "note") - <*> (o .:? "reason") - <*> (o .:? "regarding") - <*> (o .:? "related") - <*> (o .:? "reportingController") - <*> (o .:? "reportingInstance") - <*> (o .:? "series") - <*> (o .:? "type") - --- | ToJSON EventsV1Event -instance A.ToJSON EventsV1Event where - toJSON EventsV1Event {..} = - _omitNulls - [ "action" .= eventsV1EventAction - , "apiVersion" .= eventsV1EventApiVersion - , "deprecatedCount" .= eventsV1EventDeprecatedCount - , "deprecatedFirstTimestamp" .= eventsV1EventDeprecatedFirstTimestamp - , "deprecatedLastTimestamp" .= eventsV1EventDeprecatedLastTimestamp - , "deprecatedSource" .= eventsV1EventDeprecatedSource - , "eventTime" .= eventsV1EventEventTime - , "kind" .= eventsV1EventKind - , "metadata" .= eventsV1EventMetadata - , "note" .= eventsV1EventNote - , "reason" .= eventsV1EventReason - , "regarding" .= eventsV1EventRegarding - , "related" .= eventsV1EventRelated - , "reportingController" .= eventsV1EventReportingController - , "reportingInstance" .= eventsV1EventReportingInstance - , "series" .= eventsV1EventSeries - , "type" .= eventsV1EventType - ] - - --- | Construct a value of type 'EventsV1Event' (by applying it's required fields, if any) -mkEventsV1Event - :: DateTime -- ^ 'eventsV1EventEventTime': eventTime is the time when this Event was first observed. It is required. - -> EventsV1Event -mkEventsV1Event eventsV1EventEventTime = - EventsV1Event - { eventsV1EventAction = Nothing - , eventsV1EventApiVersion = Nothing - , eventsV1EventDeprecatedCount = Nothing - , eventsV1EventDeprecatedFirstTimestamp = Nothing - , eventsV1EventDeprecatedLastTimestamp = Nothing - , eventsV1EventDeprecatedSource = Nothing - , eventsV1EventEventTime - , eventsV1EventKind = Nothing - , eventsV1EventMetadata = Nothing - , eventsV1EventNote = Nothing - , eventsV1EventReason = Nothing - , eventsV1EventRegarding = Nothing - , eventsV1EventRelated = Nothing - , eventsV1EventReportingController = Nothing - , eventsV1EventReportingInstance = Nothing - , eventsV1EventSeries = Nothing - , eventsV1EventType = Nothing - } - --- ** EventsV1EventList --- | EventsV1EventList --- EventList is a list of Event objects. -data EventsV1EventList = EventsV1EventList - { eventsV1EventListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , eventsV1EventListItems :: !([EventsV1Event]) -- ^ /Required/ "items" - items is a list of schema objects. - , eventsV1EventListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , eventsV1EventListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON EventsV1EventList -instance A.FromJSON EventsV1EventList where - parseJSON = A.withObject "EventsV1EventList" $ \o -> - EventsV1EventList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON EventsV1EventList -instance A.ToJSON EventsV1EventList where - toJSON EventsV1EventList {..} = - _omitNulls - [ "apiVersion" .= eventsV1EventListApiVersion - , "items" .= eventsV1EventListItems - , "kind" .= eventsV1EventListKind - , "metadata" .= eventsV1EventListMetadata - ] - - --- | Construct a value of type 'EventsV1EventList' (by applying it's required fields, if any) -mkEventsV1EventList - :: [EventsV1Event] -- ^ 'eventsV1EventListItems': items is a list of schema objects. - -> EventsV1EventList -mkEventsV1EventList eventsV1EventListItems = - EventsV1EventList - { eventsV1EventListApiVersion = Nothing - , eventsV1EventListItems - , eventsV1EventListKind = Nothing - , eventsV1EventListMetadata = Nothing - } - --- ** EventsV1EventSeries --- | EventsV1EventSeries --- EventSeries contain information on series of events, i.e. thing that was/is happening continuously for some time. How often to update the EventSeries is up to the event reporters. The default event reporter in \"k8s.io/client-go/tools/events/event_broadcaster.go\" shows how this struct is updated on heartbeats and can guide customized reporter implementations. -data EventsV1EventSeries = EventsV1EventSeries - { eventsV1EventSeriesCount :: !(Int) -- ^ /Required/ "count" - count is the number of occurrences in this series up to the last heartbeat time. - , eventsV1EventSeriesLastObservedTime :: !(DateTime) -- ^ /Required/ "lastObservedTime" - lastObservedTime is the time when last Event from the series was seen before last heartbeat. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON EventsV1EventSeries -instance A.FromJSON EventsV1EventSeries where - parseJSON = A.withObject "EventsV1EventSeries" $ \o -> - EventsV1EventSeries - <$> (o .: "count") - <*> (o .: "lastObservedTime") - --- | ToJSON EventsV1EventSeries -instance A.ToJSON EventsV1EventSeries where - toJSON EventsV1EventSeries {..} = - _omitNulls - [ "count" .= eventsV1EventSeriesCount - , "lastObservedTime" .= eventsV1EventSeriesLastObservedTime - ] - - --- | Construct a value of type 'EventsV1EventSeries' (by applying it's required fields, if any) -mkEventsV1EventSeries - :: Int -- ^ 'eventsV1EventSeriesCount': count is the number of occurrences in this series up to the last heartbeat time. - -> DateTime -- ^ 'eventsV1EventSeriesLastObservedTime': lastObservedTime is the time when last Event from the series was seen before last heartbeat. - -> EventsV1EventSeries -mkEventsV1EventSeries eventsV1EventSeriesCount eventsV1EventSeriesLastObservedTime = - EventsV1EventSeries - { eventsV1EventSeriesCount - , eventsV1EventSeriesLastObservedTime - } - --- ** StorageV1TokenRequest --- | StorageV1TokenRequest --- TokenRequest contains parameters of a service account token. -data StorageV1TokenRequest = StorageV1TokenRequest - { storageV1TokenRequestAudience :: !(Text) -- ^ /Required/ "audience" - Audience is the intended audience of the token in \"TokenRequestSpec\". It will default to the audiences of kube apiserver. - , storageV1TokenRequestExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - ExpirationSeconds is the duration of validity of the token in \"TokenRequestSpec\". It has the same default value of \"ExpirationSeconds\" in \"TokenRequestSpec\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON StorageV1TokenRequest -instance A.FromJSON StorageV1TokenRequest where - parseJSON = A.withObject "StorageV1TokenRequest" $ \o -> - StorageV1TokenRequest - <$> (o .: "audience") - <*> (o .:? "expirationSeconds") - --- | ToJSON StorageV1TokenRequest -instance A.ToJSON StorageV1TokenRequest where - toJSON StorageV1TokenRequest {..} = - _omitNulls - [ "audience" .= storageV1TokenRequestAudience - , "expirationSeconds" .= storageV1TokenRequestExpirationSeconds - ] - - --- | Construct a value of type 'StorageV1TokenRequest' (by applying it's required fields, if any) -mkStorageV1TokenRequest - :: Text -- ^ 'storageV1TokenRequestAudience': Audience is the intended audience of the token in \"TokenRequestSpec\". It will default to the audiences of kube apiserver. - -> StorageV1TokenRequest -mkStorageV1TokenRequest storageV1TokenRequestAudience = - StorageV1TokenRequest - { storageV1TokenRequestAudience - , storageV1TokenRequestExpirationSeconds = Nothing - } - --- ** V1APIGroup --- | V1APIGroup --- APIGroup contains the name, the supported versions, and the preferred version of a group. -data V1APIGroup = V1APIGroup - { v1APIGroupApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIGroupKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1APIGroupName :: !(Text) -- ^ /Required/ "name" - name is the name of the group. - , v1APIGroupPreferredVersion :: !(Maybe V1GroupVersionForDiscovery) -- ^ "preferredVersion" - , v1APIGroupServerAddressByClientCidrs :: !(Maybe [V1ServerAddressByClientCIDR]) -- ^ "serverAddressByClientCIDRs" - a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. - , v1APIGroupVersions :: !([V1GroupVersionForDiscovery]) -- ^ /Required/ "versions" - versions are the versions supported in this group. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIGroup -instance A.FromJSON V1APIGroup where - parseJSON = A.withObject "V1APIGroup" $ \o -> - V1APIGroup - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .: "name") - <*> (o .:? "preferredVersion") - <*> (o .:? "serverAddressByClientCIDRs") - <*> (o .: "versions") - --- | ToJSON V1APIGroup -instance A.ToJSON V1APIGroup where - toJSON V1APIGroup {..} = - _omitNulls - [ "apiVersion" .= v1APIGroupApiVersion - , "kind" .= v1APIGroupKind - , "name" .= v1APIGroupName - , "preferredVersion" .= v1APIGroupPreferredVersion - , "serverAddressByClientCIDRs" .= v1APIGroupServerAddressByClientCidrs - , "versions" .= v1APIGroupVersions - ] - - --- | Construct a value of type 'V1APIGroup' (by applying it's required fields, if any) -mkV1APIGroup - :: Text -- ^ 'v1APIGroupName': name is the name of the group. - -> [V1GroupVersionForDiscovery] -- ^ 'v1APIGroupVersions': versions are the versions supported in this group. - -> V1APIGroup -mkV1APIGroup v1APIGroupName v1APIGroupVersions = - V1APIGroup - { v1APIGroupApiVersion = Nothing - , v1APIGroupKind = Nothing - , v1APIGroupName - , v1APIGroupPreferredVersion = Nothing - , v1APIGroupServerAddressByClientCidrs = Nothing - , v1APIGroupVersions - } - --- ** V1APIGroupList --- | V1APIGroupList --- APIGroupList is a list of APIGroup, to allow clients to discover the API at /apis. -data V1APIGroupList = V1APIGroupList - { v1APIGroupListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIGroupListGroups :: !([V1APIGroup]) -- ^ /Required/ "groups" - groups is a list of APIGroup. - , v1APIGroupListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIGroupList -instance A.FromJSON V1APIGroupList where - parseJSON = A.withObject "V1APIGroupList" $ \o -> - V1APIGroupList - <$> (o .:? "apiVersion") - <*> (o .: "groups") - <*> (o .:? "kind") - --- | ToJSON V1APIGroupList -instance A.ToJSON V1APIGroupList where - toJSON V1APIGroupList {..} = - _omitNulls - [ "apiVersion" .= v1APIGroupListApiVersion - , "groups" .= v1APIGroupListGroups - , "kind" .= v1APIGroupListKind - ] - - --- | Construct a value of type 'V1APIGroupList' (by applying it's required fields, if any) -mkV1APIGroupList - :: [V1APIGroup] -- ^ 'v1APIGroupListGroups': groups is a list of APIGroup. - -> V1APIGroupList -mkV1APIGroupList v1APIGroupListGroups = - V1APIGroupList - { v1APIGroupListApiVersion = Nothing - , v1APIGroupListGroups - , v1APIGroupListKind = Nothing - } - --- ** V1APIResource --- | V1APIResource --- APIResource specifies the name of a resource and whether it is namespaced. -data V1APIResource = V1APIResource - { v1APIResourceCategories :: !(Maybe [Text]) -- ^ "categories" - categories is a list of the grouped resources this resource belongs to (e.g. 'all') - , v1APIResourceGroup :: !(Maybe Text) -- ^ "group" - group is the preferred group of the resource. Empty implies the group of the containing resource list. For subresources, this may have a different value, for example: Scale\". - , v1APIResourceKind :: !(Text) -- ^ /Required/ "kind" - kind is the kind for the resource (e.g. 'Foo' is the kind for a resource 'foo') - , v1APIResourceName :: !(Text) -- ^ /Required/ "name" - name is the plural name of the resource. - , v1APIResourceNamespaced :: !(Bool) -- ^ /Required/ "namespaced" - namespaced indicates if a resource is namespaced or not. - , v1APIResourceShortNames :: !(Maybe [Text]) -- ^ "shortNames" - shortNames is a list of suggested short names of the resource. - , v1APIResourceSingularName :: !(Text) -- ^ /Required/ "singularName" - singularName is the singular name of the resource. This allows clients to handle plural and singular opaquely. The singularName is more correct for reporting status on a single item and both singular and plural are allowed from the kubectl CLI interface. - , v1APIResourceStorageVersionHash :: !(Maybe Text) -- ^ "storageVersionHash" - The hash value of the storage version, the version this resource is converted to when written to the data store. Value must be treated as opaque by clients. Only equality comparison on the value is valid. This is an alpha feature and may change or be removed in the future. The field is populated by the apiserver only if the StorageVersionHash feature gate is enabled. This field will remain optional even if it graduates. - , v1APIResourceVerbs :: !([Text]) -- ^ /Required/ "verbs" - verbs is a list of supported kube verbs (this includes get, list, watch, create, update, patch, delete, deletecollection, and proxy) - , v1APIResourceVersion :: !(Maybe Text) -- ^ "version" - version is the preferred version of the resource. Empty implies the version of the containing resource list For subresources, this may have a different value, for example: v1 (while inside a v1beta1 version of the core resource's group)\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIResource -instance A.FromJSON V1APIResource where - parseJSON = A.withObject "V1APIResource" $ \o -> - V1APIResource - <$> (o .:? "categories") - <*> (o .:? "group") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .: "namespaced") - <*> (o .:? "shortNames") - <*> (o .: "singularName") - <*> (o .:? "storageVersionHash") - <*> (o .: "verbs") - <*> (o .:? "version") - --- | ToJSON V1APIResource -instance A.ToJSON V1APIResource where - toJSON V1APIResource {..} = - _omitNulls - [ "categories" .= v1APIResourceCategories - , "group" .= v1APIResourceGroup - , "kind" .= v1APIResourceKind - , "name" .= v1APIResourceName - , "namespaced" .= v1APIResourceNamespaced - , "shortNames" .= v1APIResourceShortNames - , "singularName" .= v1APIResourceSingularName - , "storageVersionHash" .= v1APIResourceStorageVersionHash - , "verbs" .= v1APIResourceVerbs - , "version" .= v1APIResourceVersion - ] - - --- | Construct a value of type 'V1APIResource' (by applying it's required fields, if any) -mkV1APIResource - :: Text -- ^ 'v1APIResourceKind': kind is the kind for the resource (e.g. 'Foo' is the kind for a resource 'foo') - -> Text -- ^ 'v1APIResourceName': name is the plural name of the resource. - -> Bool -- ^ 'v1APIResourceNamespaced': namespaced indicates if a resource is namespaced or not. - -> Text -- ^ 'v1APIResourceSingularName': singularName is the singular name of the resource. This allows clients to handle plural and singular opaquely. The singularName is more correct for reporting status on a single item and both singular and plural are allowed from the kubectl CLI interface. - -> [Text] -- ^ 'v1APIResourceVerbs': verbs is a list of supported kube verbs (this includes get, list, watch, create, update, patch, delete, deletecollection, and proxy) - -> V1APIResource -mkV1APIResource v1APIResourceKind v1APIResourceName v1APIResourceNamespaced v1APIResourceSingularName v1APIResourceVerbs = - V1APIResource - { v1APIResourceCategories = Nothing - , v1APIResourceGroup = Nothing - , v1APIResourceKind - , v1APIResourceName - , v1APIResourceNamespaced - , v1APIResourceShortNames = Nothing - , v1APIResourceSingularName - , v1APIResourceStorageVersionHash = Nothing - , v1APIResourceVerbs - , v1APIResourceVersion = Nothing - } - --- ** V1APIResourceList --- | V1APIResourceList --- APIResourceList is a list of APIResource, it is used to expose the name of the resources supported in a specific group and version, and if the resource is namespaced. -data V1APIResourceList = V1APIResourceList - { v1APIResourceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIResourceListGroupVersion :: !(Text) -- ^ /Required/ "groupVersion" - groupVersion is the group and version this APIResourceList is for. - , v1APIResourceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1APIResourceListResources :: !([V1APIResource]) -- ^ /Required/ "resources" - resources contains the name of the resources and if they are namespaced. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIResourceList -instance A.FromJSON V1APIResourceList where - parseJSON = A.withObject "V1APIResourceList" $ \o -> - V1APIResourceList - <$> (o .:? "apiVersion") - <*> (o .: "groupVersion") - <*> (o .:? "kind") - <*> (o .: "resources") - --- | ToJSON V1APIResourceList -instance A.ToJSON V1APIResourceList where - toJSON V1APIResourceList {..} = - _omitNulls - [ "apiVersion" .= v1APIResourceListApiVersion - , "groupVersion" .= v1APIResourceListGroupVersion - , "kind" .= v1APIResourceListKind - , "resources" .= v1APIResourceListResources - ] - - --- | Construct a value of type 'V1APIResourceList' (by applying it's required fields, if any) -mkV1APIResourceList - :: Text -- ^ 'v1APIResourceListGroupVersion': groupVersion is the group and version this APIResourceList is for. - -> [V1APIResource] -- ^ 'v1APIResourceListResources': resources contains the name of the resources and if they are namespaced. - -> V1APIResourceList -mkV1APIResourceList v1APIResourceListGroupVersion v1APIResourceListResources = - V1APIResourceList - { v1APIResourceListApiVersion = Nothing - , v1APIResourceListGroupVersion - , v1APIResourceListKind = Nothing - , v1APIResourceListResources - } - --- ** V1APIService --- | V1APIService --- APIService represents a server for a particular GroupVersion. Name must be \"version.group\". -data V1APIService = V1APIService - { v1APIServiceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIServiceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1APIServiceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1APIServiceSpec :: !(Maybe V1APIServiceSpec) -- ^ "spec" - , v1APIServiceStatus :: !(Maybe V1APIServiceStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIService -instance A.FromJSON V1APIService where - parseJSON = A.withObject "V1APIService" $ \o -> - V1APIService - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1APIService -instance A.ToJSON V1APIService where - toJSON V1APIService {..} = - _omitNulls - [ "apiVersion" .= v1APIServiceApiVersion - , "kind" .= v1APIServiceKind - , "metadata" .= v1APIServiceMetadata - , "spec" .= v1APIServiceSpec - , "status" .= v1APIServiceStatus - ] - - --- | Construct a value of type 'V1APIService' (by applying it's required fields, if any) -mkV1APIService - :: V1APIService -mkV1APIService = - V1APIService - { v1APIServiceApiVersion = Nothing - , v1APIServiceKind = Nothing - , v1APIServiceMetadata = Nothing - , v1APIServiceSpec = Nothing - , v1APIServiceStatus = Nothing - } - --- ** V1APIServiceCondition --- | V1APIServiceCondition --- APIServiceCondition describes the state of an APIService at a particular point -data V1APIServiceCondition = V1APIServiceCondition - { v1APIServiceConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1APIServiceConditionMessage :: !(Maybe Text) -- ^ "message" - Human-readable message indicating details about last transition. - , v1APIServiceConditionReason :: !(Maybe Text) -- ^ "reason" - Unique, one-word, CamelCase reason for the condition's last transition. - , v1APIServiceConditionStatus :: !(Text) -- ^ /Required/ "status" - Status is the status of the condition. Can be True, False, Unknown. - , v1APIServiceConditionType :: !(Text) -- ^ /Required/ "type" - Type is the type of the condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIServiceCondition -instance A.FromJSON V1APIServiceCondition where - parseJSON = A.withObject "V1APIServiceCondition" $ \o -> - V1APIServiceCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1APIServiceCondition -instance A.ToJSON V1APIServiceCondition where - toJSON V1APIServiceCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1APIServiceConditionLastTransitionTime - , "message" .= v1APIServiceConditionMessage - , "reason" .= v1APIServiceConditionReason - , "status" .= v1APIServiceConditionStatus - , "type" .= v1APIServiceConditionType - ] - - --- | Construct a value of type 'V1APIServiceCondition' (by applying it's required fields, if any) -mkV1APIServiceCondition - :: Text -- ^ 'v1APIServiceConditionStatus': Status is the status of the condition. Can be True, False, Unknown. - -> Text -- ^ 'v1APIServiceConditionType': Type is the type of the condition. - -> V1APIServiceCondition -mkV1APIServiceCondition v1APIServiceConditionStatus v1APIServiceConditionType = - V1APIServiceCondition - { v1APIServiceConditionLastTransitionTime = Nothing - , v1APIServiceConditionMessage = Nothing - , v1APIServiceConditionReason = Nothing - , v1APIServiceConditionStatus - , v1APIServiceConditionType - } - --- ** V1APIServiceList --- | V1APIServiceList --- APIServiceList is a list of APIService objects. -data V1APIServiceList = V1APIServiceList - { v1APIServiceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIServiceListItems :: !([V1APIService]) -- ^ /Required/ "items" - Items is the list of APIService - , v1APIServiceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1APIServiceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIServiceList -instance A.FromJSON V1APIServiceList where - parseJSON = A.withObject "V1APIServiceList" $ \o -> - V1APIServiceList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1APIServiceList -instance A.ToJSON V1APIServiceList where - toJSON V1APIServiceList {..} = - _omitNulls - [ "apiVersion" .= v1APIServiceListApiVersion - , "items" .= v1APIServiceListItems - , "kind" .= v1APIServiceListKind - , "metadata" .= v1APIServiceListMetadata - ] - - --- | Construct a value of type 'V1APIServiceList' (by applying it's required fields, if any) -mkV1APIServiceList - :: [V1APIService] -- ^ 'v1APIServiceListItems': Items is the list of APIService - -> V1APIServiceList -mkV1APIServiceList v1APIServiceListItems = - V1APIServiceList - { v1APIServiceListApiVersion = Nothing - , v1APIServiceListItems - , v1APIServiceListKind = Nothing - , v1APIServiceListMetadata = Nothing - } - --- ** V1APIServiceSpec --- | V1APIServiceSpec --- APIServiceSpec contains information for locating and communicating with a server. Only https is supported, though you are able to disable certificate verification. -data V1APIServiceSpec = V1APIServiceSpec - { v1APIServiceSpecCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - CABundle is a PEM encoded CA bundle which will be used to validate an API server's serving certificate. If unspecified, system trust roots on the apiserver are used. - , v1APIServiceSpecGroup :: !(Maybe Text) -- ^ "group" - Group is the API group name this server hosts - , v1APIServiceSpecGroupPriorityMinimum :: !(Int) -- ^ /Required/ "groupPriorityMinimum" - GroupPriorityMininum is the priority this group should have at least. Higher priority means that the group is preferred by clients over lower priority ones. Note that other versions of this group might specify even higher GroupPriorityMininum values such that the whole group gets a higher priority. The primary sort is based on GroupPriorityMinimum, ordered highest number to lowest (20 before 10). The secondary sort is based on the alphabetical comparison of the name of the object. (v1.bar before v1.foo) We'd recommend something like: *.k8s.io (except extensions) at 18000 and PaaSes (OpenShift, Deis) are recommended to be in the 2000s - , v1APIServiceSpecInsecureSkipTlsVerify :: !(Maybe Bool) -- ^ "insecureSkipTLSVerify" - InsecureSkipTLSVerify disables TLS certificate verification when communicating with this server. This is strongly discouraged. You should use the CABundle instead. - , v1APIServiceSpecService :: !(Maybe ApiregistrationV1ServiceReference) -- ^ "service" - , v1APIServiceSpecVersion :: !(Maybe Text) -- ^ "version" - Version is the API version this server hosts. For example, \"v1\" - , v1APIServiceSpecVersionPriority :: !(Int) -- ^ /Required/ "versionPriority" - VersionPriority controls the ordering of this API version inside of its group. Must be greater than zero. The primary sort is based on VersionPriority, ordered highest to lowest (20 before 10). Since it's inside of a group, the number can be small, probably in the 10s. In case of equal version priorities, the version string will be used to compute the order inside a group. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIServiceSpec -instance A.FromJSON V1APIServiceSpec where - parseJSON = A.withObject "V1APIServiceSpec" $ \o -> - V1APIServiceSpec - <$> (o .:? "caBundle") - <*> (o .:? "group") - <*> (o .: "groupPriorityMinimum") - <*> (o .:? "insecureSkipTLSVerify") - <*> (o .:? "service") - <*> (o .:? "version") - <*> (o .: "versionPriority") - --- | ToJSON V1APIServiceSpec -instance A.ToJSON V1APIServiceSpec where - toJSON V1APIServiceSpec {..} = - _omitNulls - [ "caBundle" .= v1APIServiceSpecCaBundle - , "group" .= v1APIServiceSpecGroup - , "groupPriorityMinimum" .= v1APIServiceSpecGroupPriorityMinimum - , "insecureSkipTLSVerify" .= v1APIServiceSpecInsecureSkipTlsVerify - , "service" .= v1APIServiceSpecService - , "version" .= v1APIServiceSpecVersion - , "versionPriority" .= v1APIServiceSpecVersionPriority - ] - - --- | Construct a value of type 'V1APIServiceSpec' (by applying it's required fields, if any) -mkV1APIServiceSpec - :: Int -- ^ 'v1APIServiceSpecGroupPriorityMinimum': GroupPriorityMininum is the priority this group should have at least. Higher priority means that the group is preferred by clients over lower priority ones. Note that other versions of this group might specify even higher GroupPriorityMininum values such that the whole group gets a higher priority. The primary sort is based on GroupPriorityMinimum, ordered highest number to lowest (20 before 10). The secondary sort is based on the alphabetical comparison of the name of the object. (v1.bar before v1.foo) We'd recommend something like: *.k8s.io (except extensions) at 18000 and PaaSes (OpenShift, Deis) are recommended to be in the 2000s - -> Int -- ^ 'v1APIServiceSpecVersionPriority': VersionPriority controls the ordering of this API version inside of its group. Must be greater than zero. The primary sort is based on VersionPriority, ordered highest to lowest (20 before 10). Since it's inside of a group, the number can be small, probably in the 10s. In case of equal version priorities, the version string will be used to compute the order inside a group. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. - -> V1APIServiceSpec -mkV1APIServiceSpec v1APIServiceSpecGroupPriorityMinimum v1APIServiceSpecVersionPriority = - V1APIServiceSpec - { v1APIServiceSpecCaBundle = Nothing - , v1APIServiceSpecGroup = Nothing - , v1APIServiceSpecGroupPriorityMinimum - , v1APIServiceSpecInsecureSkipTlsVerify = Nothing - , v1APIServiceSpecService = Nothing - , v1APIServiceSpecVersion = Nothing - , v1APIServiceSpecVersionPriority - } - --- ** V1APIServiceStatus --- | V1APIServiceStatus --- APIServiceStatus contains derived information about an API server -data V1APIServiceStatus = V1APIServiceStatus - { v1APIServiceStatusConditions :: !(Maybe [V1APIServiceCondition]) -- ^ "conditions" - Current service state of apiService. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIServiceStatus -instance A.FromJSON V1APIServiceStatus where - parseJSON = A.withObject "V1APIServiceStatus" $ \o -> - V1APIServiceStatus - <$> (o .:? "conditions") - --- | ToJSON V1APIServiceStatus -instance A.ToJSON V1APIServiceStatus where - toJSON V1APIServiceStatus {..} = - _omitNulls - [ "conditions" .= v1APIServiceStatusConditions - ] - - --- | Construct a value of type 'V1APIServiceStatus' (by applying it's required fields, if any) -mkV1APIServiceStatus - :: V1APIServiceStatus -mkV1APIServiceStatus = - V1APIServiceStatus - { v1APIServiceStatusConditions = Nothing - } - --- ** V1APIVersions --- | V1APIVersions --- APIVersions lists the versions that are available, to allow clients to discover the API at /api, which is the root path of the legacy v1 API. -data V1APIVersions = V1APIVersions - { v1APIVersionsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1APIVersionsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1APIVersionsServerAddressByClientCidrs :: !([V1ServerAddressByClientCIDR]) -- ^ /Required/ "serverAddressByClientCIDRs" - a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. - , v1APIVersionsVersions :: !([Text]) -- ^ /Required/ "versions" - versions are the api versions that are available. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1APIVersions -instance A.FromJSON V1APIVersions where - parseJSON = A.withObject "V1APIVersions" $ \o -> - V1APIVersions - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .: "serverAddressByClientCIDRs") - <*> (o .: "versions") - --- | ToJSON V1APIVersions -instance A.ToJSON V1APIVersions where - toJSON V1APIVersions {..} = - _omitNulls - [ "apiVersion" .= v1APIVersionsApiVersion - , "kind" .= v1APIVersionsKind - , "serverAddressByClientCIDRs" .= v1APIVersionsServerAddressByClientCidrs - , "versions" .= v1APIVersionsVersions - ] - - --- | Construct a value of type 'V1APIVersions' (by applying it's required fields, if any) -mkV1APIVersions - :: [V1ServerAddressByClientCIDR] -- ^ 'v1APIVersionsServerAddressByClientCidrs': a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. - -> [Text] -- ^ 'v1APIVersionsVersions': versions are the api versions that are available. - -> V1APIVersions -mkV1APIVersions v1APIVersionsServerAddressByClientCidrs v1APIVersionsVersions = - V1APIVersions - { v1APIVersionsApiVersion = Nothing - , v1APIVersionsKind = Nothing - , v1APIVersionsServerAddressByClientCidrs - , v1APIVersionsVersions - } - --- ** V1AWSElasticBlockStoreVolumeSource --- | V1AWSElasticBlockStoreVolumeSource --- Represents a Persistent Disk resource in AWS. An AWS EBS disk must exist before mounting to a container. The disk must also be in the same AWS zone as the kubelet. An AWS EBS disk can only be mounted as read/write once. AWS EBS volumes support ownership management and SELinux relabeling. -data V1AWSElasticBlockStoreVolumeSource = V1AWSElasticBlockStoreVolumeSource - { v1AWSElasticBlockStoreVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore - , v1AWSElasticBlockStoreVolumeSourcePartition :: !(Maybe Int) -- ^ "partition" - partition is the partition in the volume that you want to mount. If omitted, the default is to mount by volume name. Examples: For volume /dev/sda1, you specify the partition as \"1\". Similarly, the volume partition for /dev/sda is \"0\" (or you can leave the property empty). - , v1AWSElasticBlockStoreVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly value true will force the readOnly setting in VolumeMounts. More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore - , v1AWSElasticBlockStoreVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID is unique ID of the persistent disk resource in AWS (Amazon EBS volume). More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AWSElasticBlockStoreVolumeSource -instance A.FromJSON V1AWSElasticBlockStoreVolumeSource where - parseJSON = A.withObject "V1AWSElasticBlockStoreVolumeSource" $ \o -> - V1AWSElasticBlockStoreVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "partition") - <*> (o .:? "readOnly") - <*> (o .: "volumeID") - --- | ToJSON V1AWSElasticBlockStoreVolumeSource -instance A.ToJSON V1AWSElasticBlockStoreVolumeSource where - toJSON V1AWSElasticBlockStoreVolumeSource {..} = - _omitNulls - [ "fsType" .= v1AWSElasticBlockStoreVolumeSourceFsType - , "partition" .= v1AWSElasticBlockStoreVolumeSourcePartition - , "readOnly" .= v1AWSElasticBlockStoreVolumeSourceReadOnly - , "volumeID" .= v1AWSElasticBlockStoreVolumeSourceVolumeId - ] - - --- | Construct a value of type 'V1AWSElasticBlockStoreVolumeSource' (by applying it's required fields, if any) -mkV1AWSElasticBlockStoreVolumeSource - :: Text -- ^ 'v1AWSElasticBlockStoreVolumeSourceVolumeId': volumeID is unique ID of the persistent disk resource in AWS (Amazon EBS volume). More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore - -> V1AWSElasticBlockStoreVolumeSource -mkV1AWSElasticBlockStoreVolumeSource v1AWSElasticBlockStoreVolumeSourceVolumeId = - V1AWSElasticBlockStoreVolumeSource - { v1AWSElasticBlockStoreVolumeSourceFsType = Nothing - , v1AWSElasticBlockStoreVolumeSourcePartition = Nothing - , v1AWSElasticBlockStoreVolumeSourceReadOnly = Nothing - , v1AWSElasticBlockStoreVolumeSourceVolumeId - } - --- ** V1Affinity --- | V1Affinity --- Affinity is a group of affinity scheduling rules. -data V1Affinity = V1Affinity - { v1AffinityNodeAffinity :: !(Maybe V1NodeAffinity) -- ^ "nodeAffinity" - , v1AffinityPodAffinity :: !(Maybe V1PodAffinity) -- ^ "podAffinity" - , v1AffinityPodAntiAffinity :: !(Maybe V1PodAntiAffinity) -- ^ "podAntiAffinity" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Affinity -instance A.FromJSON V1Affinity where - parseJSON = A.withObject "V1Affinity" $ \o -> - V1Affinity - <$> (o .:? "nodeAffinity") - <*> (o .:? "podAffinity") - <*> (o .:? "podAntiAffinity") - --- | ToJSON V1Affinity -instance A.ToJSON V1Affinity where - toJSON V1Affinity {..} = - _omitNulls - [ "nodeAffinity" .= v1AffinityNodeAffinity - , "podAffinity" .= v1AffinityPodAffinity - , "podAntiAffinity" .= v1AffinityPodAntiAffinity - ] - - --- | Construct a value of type 'V1Affinity' (by applying it's required fields, if any) -mkV1Affinity - :: V1Affinity -mkV1Affinity = - V1Affinity - { v1AffinityNodeAffinity = Nothing - , v1AffinityPodAffinity = Nothing - , v1AffinityPodAntiAffinity = Nothing - } - --- ** V1AggregationRule --- | V1AggregationRule --- AggregationRule describes how to locate ClusterRoles to aggregate into the ClusterRole -data V1AggregationRule = V1AggregationRule - { v1AggregationRuleClusterRoleSelectors :: !(Maybe [V1LabelSelector]) -- ^ "clusterRoleSelectors" - ClusterRoleSelectors holds a list of selectors which will be used to find ClusterRoles and create the rules. If any of the selectors match, then the ClusterRole's permissions will be added - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AggregationRule -instance A.FromJSON V1AggregationRule where - parseJSON = A.withObject "V1AggregationRule" $ \o -> - V1AggregationRule - <$> (o .:? "clusterRoleSelectors") - --- | ToJSON V1AggregationRule -instance A.ToJSON V1AggregationRule where - toJSON V1AggregationRule {..} = - _omitNulls - [ "clusterRoleSelectors" .= v1AggregationRuleClusterRoleSelectors - ] - - --- | Construct a value of type 'V1AggregationRule' (by applying it's required fields, if any) -mkV1AggregationRule - :: V1AggregationRule -mkV1AggregationRule = - V1AggregationRule - { v1AggregationRuleClusterRoleSelectors = Nothing - } - --- ** V1AttachedVolume --- | V1AttachedVolume --- AttachedVolume describes a volume attached to a node -data V1AttachedVolume = V1AttachedVolume - { v1AttachedVolumeDevicePath :: !(Text) -- ^ /Required/ "devicePath" - DevicePath represents the device path where the volume should be available - , v1AttachedVolumeName :: !(Text) -- ^ /Required/ "name" - Name of the attached volume - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AttachedVolume -instance A.FromJSON V1AttachedVolume where - parseJSON = A.withObject "V1AttachedVolume" $ \o -> - V1AttachedVolume - <$> (o .: "devicePath") - <*> (o .: "name") - --- | ToJSON V1AttachedVolume -instance A.ToJSON V1AttachedVolume where - toJSON V1AttachedVolume {..} = - _omitNulls - [ "devicePath" .= v1AttachedVolumeDevicePath - , "name" .= v1AttachedVolumeName - ] - - --- | Construct a value of type 'V1AttachedVolume' (by applying it's required fields, if any) -mkV1AttachedVolume - :: Text -- ^ 'v1AttachedVolumeDevicePath': DevicePath represents the device path where the volume should be available - -> Text -- ^ 'v1AttachedVolumeName': Name of the attached volume - -> V1AttachedVolume -mkV1AttachedVolume v1AttachedVolumeDevicePath v1AttachedVolumeName = - V1AttachedVolume - { v1AttachedVolumeDevicePath - , v1AttachedVolumeName - } - --- ** V1AzureDiskVolumeSource --- | V1AzureDiskVolumeSource --- AzureDisk represents an Azure Data Disk mount on the host and bind mount to the pod. -data V1AzureDiskVolumeSource = V1AzureDiskVolumeSource - { v1AzureDiskVolumeSourceCachingMode :: !(Maybe Text) -- ^ "cachingMode" - cachingMode is the Host Caching mode: None, Read Only, Read Write. - , v1AzureDiskVolumeSourceDiskName :: !(Text) -- ^ /Required/ "diskName" - diskName is the Name of the data disk in the blob storage - , v1AzureDiskVolumeSourceDiskUri :: !(Text) -- ^ /Required/ "diskURI" - diskURI is the URI of data disk in the blob storage - , v1AzureDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is Filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1AzureDiskVolumeSourceKind :: !(Maybe Text) -- ^ "kind" - kind expected values are Shared: multiple blob disks per storage account Dedicated: single blob disk per storage account Managed: azure managed data disk (only in managed availability set). defaults to shared - , v1AzureDiskVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AzureDiskVolumeSource -instance A.FromJSON V1AzureDiskVolumeSource where - parseJSON = A.withObject "V1AzureDiskVolumeSource" $ \o -> - V1AzureDiskVolumeSource - <$> (o .:? "cachingMode") - <*> (o .: "diskName") - <*> (o .: "diskURI") - <*> (o .:? "fsType") - <*> (o .:? "kind") - <*> (o .:? "readOnly") - --- | ToJSON V1AzureDiskVolumeSource -instance A.ToJSON V1AzureDiskVolumeSource where - toJSON V1AzureDiskVolumeSource {..} = - _omitNulls - [ "cachingMode" .= v1AzureDiskVolumeSourceCachingMode - , "diskName" .= v1AzureDiskVolumeSourceDiskName - , "diskURI" .= v1AzureDiskVolumeSourceDiskUri - , "fsType" .= v1AzureDiskVolumeSourceFsType - , "kind" .= v1AzureDiskVolumeSourceKind - , "readOnly" .= v1AzureDiskVolumeSourceReadOnly - ] - - --- | Construct a value of type 'V1AzureDiskVolumeSource' (by applying it's required fields, if any) -mkV1AzureDiskVolumeSource - :: Text -- ^ 'v1AzureDiskVolumeSourceDiskName': diskName is the Name of the data disk in the blob storage - -> Text -- ^ 'v1AzureDiskVolumeSourceDiskUri': diskURI is the URI of data disk in the blob storage - -> V1AzureDiskVolumeSource -mkV1AzureDiskVolumeSource v1AzureDiskVolumeSourceDiskName v1AzureDiskVolumeSourceDiskUri = - V1AzureDiskVolumeSource - { v1AzureDiskVolumeSourceCachingMode = Nothing - , v1AzureDiskVolumeSourceDiskName - , v1AzureDiskVolumeSourceDiskUri - , v1AzureDiskVolumeSourceFsType = Nothing - , v1AzureDiskVolumeSourceKind = Nothing - , v1AzureDiskVolumeSourceReadOnly = Nothing - } - --- ** V1AzureFilePersistentVolumeSource --- | V1AzureFilePersistentVolumeSource --- AzureFile represents an Azure File Service mount on the host and bind mount to the pod. -data V1AzureFilePersistentVolumeSource = V1AzureFilePersistentVolumeSource - { v1AzureFilePersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1AzureFilePersistentVolumeSourceSecretName :: !(Text) -- ^ /Required/ "secretName" - secretName is the name of secret that contains Azure Storage Account Name and Key - , v1AzureFilePersistentVolumeSourceSecretNamespace :: !(Maybe Text) -- ^ "secretNamespace" - secretNamespace is the namespace of the secret that contains Azure Storage Account Name and Key default is the same as the Pod - , v1AzureFilePersistentVolumeSourceShareName :: !(Text) -- ^ /Required/ "shareName" - shareName is the azure Share Name - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AzureFilePersistentVolumeSource -instance A.FromJSON V1AzureFilePersistentVolumeSource where - parseJSON = A.withObject "V1AzureFilePersistentVolumeSource" $ \o -> - V1AzureFilePersistentVolumeSource - <$> (o .:? "readOnly") - <*> (o .: "secretName") - <*> (o .:? "secretNamespace") - <*> (o .: "shareName") - --- | ToJSON V1AzureFilePersistentVolumeSource -instance A.ToJSON V1AzureFilePersistentVolumeSource where - toJSON V1AzureFilePersistentVolumeSource {..} = - _omitNulls - [ "readOnly" .= v1AzureFilePersistentVolumeSourceReadOnly - , "secretName" .= v1AzureFilePersistentVolumeSourceSecretName - , "secretNamespace" .= v1AzureFilePersistentVolumeSourceSecretNamespace - , "shareName" .= v1AzureFilePersistentVolumeSourceShareName - ] - - --- | Construct a value of type 'V1AzureFilePersistentVolumeSource' (by applying it's required fields, if any) -mkV1AzureFilePersistentVolumeSource - :: Text -- ^ 'v1AzureFilePersistentVolumeSourceSecretName': secretName is the name of secret that contains Azure Storage Account Name and Key - -> Text -- ^ 'v1AzureFilePersistentVolumeSourceShareName': shareName is the azure Share Name - -> V1AzureFilePersistentVolumeSource -mkV1AzureFilePersistentVolumeSource v1AzureFilePersistentVolumeSourceSecretName v1AzureFilePersistentVolumeSourceShareName = - V1AzureFilePersistentVolumeSource - { v1AzureFilePersistentVolumeSourceReadOnly = Nothing - , v1AzureFilePersistentVolumeSourceSecretName - , v1AzureFilePersistentVolumeSourceSecretNamespace = Nothing - , v1AzureFilePersistentVolumeSourceShareName - } - --- ** V1AzureFileVolumeSource --- | V1AzureFileVolumeSource --- AzureFile represents an Azure File Service mount on the host and bind mount to the pod. -data V1AzureFileVolumeSource = V1AzureFileVolumeSource - { v1AzureFileVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1AzureFileVolumeSourceSecretName :: !(Text) -- ^ /Required/ "secretName" - secretName is the name of secret that contains Azure Storage Account Name and Key - , v1AzureFileVolumeSourceShareName :: !(Text) -- ^ /Required/ "shareName" - shareName is the azure share Name - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1AzureFileVolumeSource -instance A.FromJSON V1AzureFileVolumeSource where - parseJSON = A.withObject "V1AzureFileVolumeSource" $ \o -> - V1AzureFileVolumeSource - <$> (o .:? "readOnly") - <*> (o .: "secretName") - <*> (o .: "shareName") - --- | ToJSON V1AzureFileVolumeSource -instance A.ToJSON V1AzureFileVolumeSource where - toJSON V1AzureFileVolumeSource {..} = - _omitNulls - [ "readOnly" .= v1AzureFileVolumeSourceReadOnly - , "secretName" .= v1AzureFileVolumeSourceSecretName - , "shareName" .= v1AzureFileVolumeSourceShareName - ] - - --- | Construct a value of type 'V1AzureFileVolumeSource' (by applying it's required fields, if any) -mkV1AzureFileVolumeSource - :: Text -- ^ 'v1AzureFileVolumeSourceSecretName': secretName is the name of secret that contains Azure Storage Account Name and Key - -> Text -- ^ 'v1AzureFileVolumeSourceShareName': shareName is the azure share Name - -> V1AzureFileVolumeSource -mkV1AzureFileVolumeSource v1AzureFileVolumeSourceSecretName v1AzureFileVolumeSourceShareName = - V1AzureFileVolumeSource - { v1AzureFileVolumeSourceReadOnly = Nothing - , v1AzureFileVolumeSourceSecretName - , v1AzureFileVolumeSourceShareName - } - --- ** V1Binding --- | V1Binding --- Binding ties one object to another; for example, a pod is bound to a node by a scheduler. Deprecated in 1.7, please use the bindings subresource of pods instead. -data V1Binding = V1Binding - { v1BindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1BindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1BindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1BindingTarget :: !(V1ObjectReference) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Binding -instance A.FromJSON V1Binding where - parseJSON = A.withObject "V1Binding" $ \o -> - V1Binding - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "target") - --- | ToJSON V1Binding -instance A.ToJSON V1Binding where - toJSON V1Binding {..} = - _omitNulls - [ "apiVersion" .= v1BindingApiVersion - , "kind" .= v1BindingKind - , "metadata" .= v1BindingMetadata - , "target" .= v1BindingTarget - ] - - --- | Construct a value of type 'V1Binding' (by applying it's required fields, if any) -mkV1Binding - :: V1ObjectReference -- ^ 'v1BindingTarget' - -> V1Binding -mkV1Binding v1BindingTarget = - V1Binding - { v1BindingApiVersion = Nothing - , v1BindingKind = Nothing - , v1BindingMetadata = Nothing - , v1BindingTarget - } - --- ** V1BoundObjectReference --- | V1BoundObjectReference --- BoundObjectReference is a reference to an object that a token is bound to. -data V1BoundObjectReference = V1BoundObjectReference - { v1BoundObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent. - , v1BoundObjectReferenceKind :: !(Maybe Text) -- ^ "kind" - Kind of the referent. Valid kinds are 'Pod' and 'Secret'. - , v1BoundObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. - , v1BoundObjectReferenceUid :: !(Maybe Text) -- ^ "uid" - UID of the referent. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1BoundObjectReference -instance A.FromJSON V1BoundObjectReference where - parseJSON = A.withObject "V1BoundObjectReference" $ \o -> - V1BoundObjectReference - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "name") - <*> (o .:? "uid") - --- | ToJSON V1BoundObjectReference -instance A.ToJSON V1BoundObjectReference where - toJSON V1BoundObjectReference {..} = - _omitNulls - [ "apiVersion" .= v1BoundObjectReferenceApiVersion - , "kind" .= v1BoundObjectReferenceKind - , "name" .= v1BoundObjectReferenceName - , "uid" .= v1BoundObjectReferenceUid - ] - - --- | Construct a value of type 'V1BoundObjectReference' (by applying it's required fields, if any) -mkV1BoundObjectReference - :: V1BoundObjectReference -mkV1BoundObjectReference = - V1BoundObjectReference - { v1BoundObjectReferenceApiVersion = Nothing - , v1BoundObjectReferenceKind = Nothing - , v1BoundObjectReferenceName = Nothing - , v1BoundObjectReferenceUid = Nothing - } - --- ** V1CSIDriver --- | V1CSIDriver --- CSIDriver captures information about a Container Storage Interface (CSI) volume driver deployed on the cluster. Kubernetes attach detach controller uses this object to determine whether attach is required. Kubelet uses this object to determine whether pod information needs to be passed on mount. CSIDriver objects are non-namespaced. -data V1CSIDriver = V1CSIDriver - { v1CSIDriverApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSIDriverKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSIDriverMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CSIDriverSpec :: !(V1CSIDriverSpec) -- ^ /Required/ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIDriver -instance A.FromJSON V1CSIDriver where - parseJSON = A.withObject "V1CSIDriver" $ \o -> - V1CSIDriver - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - --- | ToJSON V1CSIDriver -instance A.ToJSON V1CSIDriver where - toJSON V1CSIDriver {..} = - _omitNulls - [ "apiVersion" .= v1CSIDriverApiVersion - , "kind" .= v1CSIDriverKind - , "metadata" .= v1CSIDriverMetadata - , "spec" .= v1CSIDriverSpec - ] - - --- | Construct a value of type 'V1CSIDriver' (by applying it's required fields, if any) -mkV1CSIDriver - :: V1CSIDriverSpec -- ^ 'v1CSIDriverSpec' - -> V1CSIDriver -mkV1CSIDriver v1CSIDriverSpec = - V1CSIDriver - { v1CSIDriverApiVersion = Nothing - , v1CSIDriverKind = Nothing - , v1CSIDriverMetadata = Nothing - , v1CSIDriverSpec - } - --- ** V1CSIDriverList --- | V1CSIDriverList --- CSIDriverList is a collection of CSIDriver objects. -data V1CSIDriverList = V1CSIDriverList - { v1CSIDriverListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSIDriverListItems :: !([V1CSIDriver]) -- ^ /Required/ "items" - items is the list of CSIDriver - , v1CSIDriverListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSIDriverListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIDriverList -instance A.FromJSON V1CSIDriverList where - parseJSON = A.withObject "V1CSIDriverList" $ \o -> - V1CSIDriverList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CSIDriverList -instance A.ToJSON V1CSIDriverList where - toJSON V1CSIDriverList {..} = - _omitNulls - [ "apiVersion" .= v1CSIDriverListApiVersion - , "items" .= v1CSIDriverListItems - , "kind" .= v1CSIDriverListKind - , "metadata" .= v1CSIDriverListMetadata - ] - - --- | Construct a value of type 'V1CSIDriverList' (by applying it's required fields, if any) -mkV1CSIDriverList - :: [V1CSIDriver] -- ^ 'v1CSIDriverListItems': items is the list of CSIDriver - -> V1CSIDriverList -mkV1CSIDriverList v1CSIDriverListItems = - V1CSIDriverList - { v1CSIDriverListApiVersion = Nothing - , v1CSIDriverListItems - , v1CSIDriverListKind = Nothing - , v1CSIDriverListMetadata = Nothing - } - --- ** V1CSIDriverSpec --- | V1CSIDriverSpec --- CSIDriverSpec is the specification of a CSIDriver. -data V1CSIDriverSpec = V1CSIDriverSpec - { v1CSIDriverSpecAttachRequired :: !(Maybe Bool) -- ^ "attachRequired" - attachRequired indicates this CSI volume driver requires an attach operation (because it implements the CSI ControllerPublishVolume() method), and that the Kubernetes attach detach controller should call the attach volume interface which checks the volumeattachment status and waits until the volume is attached before proceeding to mounting. The CSI external-attacher coordinates with CSI volume driver and updates the volumeattachment status when the attach operation is complete. If the CSIDriverRegistry feature gate is enabled and the value is specified to false, the attach operation will be skipped. Otherwise the attach operation will be called. This field is immutable. - , v1CSIDriverSpecFsGroupPolicy :: !(Maybe Text) -- ^ "fsGroupPolicy" - Defines if the underlying volume supports changing ownership and permission of the volume before being mounted. Refer to the specific FSGroupPolicy values for additional details. This field is immutable. Defaults to ReadWriteOnceWithFSType, which will examine each volume to determine if Kubernetes should modify ownership and permissions of the volume. With the default policy the defined fsGroup will only be applied if a fstype is defined and the volume's access mode contains ReadWriteOnce. - , v1CSIDriverSpecPodInfoOnMount :: !(Maybe Bool) -- ^ "podInfoOnMount" - If set to true, podInfoOnMount indicates this CSI volume driver requires additional pod information (like podName, podUID, etc.) during mount operations. If set to false, pod information will not be passed on mount. Default is false. The CSI driver specifies podInfoOnMount as part of driver deployment. If true, Kubelet will pass pod information as VolumeContext in the CSI NodePublishVolume() calls. The CSI driver is responsible for parsing and validating the information passed in as VolumeContext. The following VolumeConext will be passed if podInfoOnMount is set to true. This list might grow, but the prefix will be used. \"csi.storage.k8s.io/pod.name\": pod.Name \"csi.storage.k8s.io/pod.namespace\": pod.Namespace \"csi.storage.k8s.io/pod.uid\": string(pod.UID) \"csi.storage.k8s.io/ephemeral\": \"true\" if the volume is an ephemeral inline volume defined by a CSIVolumeSource, otherwise \"false\" \"csi.storage.k8s.io/ephemeral\" is a new feature in Kubernetes 1.16. It is only required for drivers which support both the \"Persistent\" and \"Ephemeral\" VolumeLifecycleMode. Other drivers can leave pod info disabled and/or ignore this field. As Kubernetes 1.15 doesn't support this field, drivers can only support one mode when deployed on such a cluster and the deployment determines which mode that is, for example via a command line parameter of the driver. This field is immutable. - , v1CSIDriverSpecRequiresRepublish :: !(Maybe Bool) -- ^ "requiresRepublish" - RequiresRepublish indicates the CSI driver wants `NodePublishVolume` being periodically called to reflect any possible change in the mounted volume. This field defaults to false. Note: After a successful initial NodePublishVolume call, subsequent calls to NodePublishVolume should only update the contents of the volume. New mount points will not be seen by a running container. - , v1CSIDriverSpecSeLinuxMount :: !(Maybe Bool) -- ^ "seLinuxMount" - SELinuxMount specifies if the CSI driver supports \"-o context\" mount option. When \"true\", the CSI driver must ensure that all volumes provided by this CSI driver can be mounted separately with different `-o context` options. This is typical for storage backends that provide volumes as filesystems on block devices or as independent shared volumes. Kubernetes will call NodeStage / NodePublish with \"-o context=xyz\" mount option when mounting a ReadWriteOncePod volume used in Pod that has explicitly set SELinux context. In the future, it may be expanded to other volume AccessModes. In any case, Kubernetes will ensure that the volume is mounted only with a single SELinux context. When \"false\", Kubernetes won't pass any special SELinux mount options to the driver. This is typical for volumes that represent subdirectories of a bigger shared filesystem. Default is \"false\". - , v1CSIDriverSpecStorageCapacity :: !(Maybe Bool) -- ^ "storageCapacity" - If set to true, storageCapacity indicates that the CSI volume driver wants pod scheduling to consider the storage capacity that the driver deployment will report by creating CSIStorageCapacity objects with capacity information. The check can be enabled immediately when deploying a driver. In that case, provisioning new volumes with late binding will pause until the driver deployment has published some suitable CSIStorageCapacity object. Alternatively, the driver can be deployed with the field unset or false and it can be flipped later when storage capacity information has been published. This field was immutable in Kubernetes <= 1.22 and now is mutable. - , v1CSIDriverSpecTokenRequests :: !(Maybe [StorageV1TokenRequest]) -- ^ "tokenRequests" - TokenRequests indicates the CSI driver needs pods' service account tokens it is mounting volume for to do necessary authentication. Kubelet will pass the tokens in VolumeContext in the CSI NodePublishVolume calls. The CSI driver should parse and validate the following VolumeContext: \"csi.storage.k8s.io/serviceAccount.tokens\": { \"<audience>\": { \"token\": <token>, \"expirationTimestamp\": <expiration timestamp in RFC3339>, }, ... } Note: Audience in each TokenRequest should be different and at most one token is empty string. To receive a new token after expiry, RequiresRepublish can be used to trigger NodePublishVolume periodically. - , v1CSIDriverSpecVolumeLifecycleModes :: !(Maybe [Text]) -- ^ "volumeLifecycleModes" - volumeLifecycleModes defines what kind of volumes this CSI volume driver supports. The default if the list is empty is \"Persistent\", which is the usage defined by the CSI specification and implemented in Kubernetes via the usual PV/PVC mechanism. The other mode is \"Ephemeral\". In this mode, volumes are defined inline inside the pod spec with CSIVolumeSource and their lifecycle is tied to the lifecycle of that pod. A driver has to be aware of this because it is only going to get a NodePublishVolume call for such a volume. For more information about implementing this mode, see https://kubernetes-csi.github.io/docs/ephemeral-local-volumes.html A driver can support one or more of these modes and more modes may be added in the future. This field is beta. This field is immutable. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIDriverSpec -instance A.FromJSON V1CSIDriverSpec where - parseJSON = A.withObject "V1CSIDriverSpec" $ \o -> - V1CSIDriverSpec - <$> (o .:? "attachRequired") - <*> (o .:? "fsGroupPolicy") - <*> (o .:? "podInfoOnMount") - <*> (o .:? "requiresRepublish") - <*> (o .:? "seLinuxMount") - <*> (o .:? "storageCapacity") - <*> (o .:? "tokenRequests") - <*> (o .:? "volumeLifecycleModes") - --- | ToJSON V1CSIDriverSpec -instance A.ToJSON V1CSIDriverSpec where - toJSON V1CSIDriverSpec {..} = - _omitNulls - [ "attachRequired" .= v1CSIDriverSpecAttachRequired - , "fsGroupPolicy" .= v1CSIDriverSpecFsGroupPolicy - , "podInfoOnMount" .= v1CSIDriverSpecPodInfoOnMount - , "requiresRepublish" .= v1CSIDriverSpecRequiresRepublish - , "seLinuxMount" .= v1CSIDriverSpecSeLinuxMount - , "storageCapacity" .= v1CSIDriverSpecStorageCapacity - , "tokenRequests" .= v1CSIDriverSpecTokenRequests - , "volumeLifecycleModes" .= v1CSIDriverSpecVolumeLifecycleModes - ] - - --- | Construct a value of type 'V1CSIDriverSpec' (by applying it's required fields, if any) -mkV1CSIDriverSpec - :: V1CSIDriverSpec -mkV1CSIDriverSpec = - V1CSIDriverSpec - { v1CSIDriverSpecAttachRequired = Nothing - , v1CSIDriverSpecFsGroupPolicy = Nothing - , v1CSIDriverSpecPodInfoOnMount = Nothing - , v1CSIDriverSpecRequiresRepublish = Nothing - , v1CSIDriverSpecSeLinuxMount = Nothing - , v1CSIDriverSpecStorageCapacity = Nothing - , v1CSIDriverSpecTokenRequests = Nothing - , v1CSIDriverSpecVolumeLifecycleModes = Nothing - } - --- ** V1CSINode --- | V1CSINode --- CSINode holds information about all CSI drivers installed on a node. CSI drivers do not need to create the CSINode object directly. As long as they use the node-driver-registrar sidecar container, the kubelet will automatically populate the CSINode object for the CSI driver as part of kubelet plugin registration. CSINode has the same name as a node. If the object is missing, it means either there are no CSI Drivers available on the node, or the Kubelet version is low enough that it doesn't create this object. CSINode has an OwnerReference that points to the corresponding node object. -data V1CSINode = V1CSINode - { v1CSINodeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSINodeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSINodeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CSINodeSpec :: !(V1CSINodeSpec) -- ^ /Required/ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSINode -instance A.FromJSON V1CSINode where - parseJSON = A.withObject "V1CSINode" $ \o -> - V1CSINode - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - --- | ToJSON V1CSINode -instance A.ToJSON V1CSINode where - toJSON V1CSINode {..} = - _omitNulls - [ "apiVersion" .= v1CSINodeApiVersion - , "kind" .= v1CSINodeKind - , "metadata" .= v1CSINodeMetadata - , "spec" .= v1CSINodeSpec - ] - - --- | Construct a value of type 'V1CSINode' (by applying it's required fields, if any) -mkV1CSINode - :: V1CSINodeSpec -- ^ 'v1CSINodeSpec' - -> V1CSINode -mkV1CSINode v1CSINodeSpec = - V1CSINode - { v1CSINodeApiVersion = Nothing - , v1CSINodeKind = Nothing - , v1CSINodeMetadata = Nothing - , v1CSINodeSpec - } - --- ** V1CSINodeDriver --- | V1CSINodeDriver --- CSINodeDriver holds information about the specification of one CSI driver installed on a node -data V1CSINodeDriver = V1CSINodeDriver - { v1CSINodeDriverAllocatable :: !(Maybe V1VolumeNodeResources) -- ^ "allocatable" - , v1CSINodeDriverName :: !(Text) -- ^ /Required/ "name" - This is the name of the CSI driver that this object refers to. This MUST be the same name returned by the CSI GetPluginName() call for that driver. - , v1CSINodeDriverNodeId :: !(Text) -- ^ /Required/ "nodeID" - nodeID of the node from the driver point of view. This field enables Kubernetes to communicate with storage systems that do not share the same nomenclature for nodes. For example, Kubernetes may refer to a given node as \"node1\", but the storage system may refer to the same node as \"nodeA\". When Kubernetes issues a command to the storage system to attach a volume to a specific node, it can use this field to refer to the node name using the ID that the storage system will understand, e.g. \"nodeA\" instead of \"node1\". This field is required. - , v1CSINodeDriverTopologyKeys :: !(Maybe [Text]) -- ^ "topologyKeys" - topologyKeys is the list of keys supported by the driver. When a driver is initialized on a cluster, it provides a set of topology keys that it understands (e.g. \"company.com/zone\", \"company.com/region\"). When a driver is initialized on a node, it provides the same topology keys along with values. Kubelet will expose these topology keys as labels on its own node object. When Kubernetes does topology aware provisioning, it can use this list to determine which labels it should retrieve from the node object and pass back to the driver. It is possible for different nodes to use different topology keys. This can be empty if driver does not support topology. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSINodeDriver -instance A.FromJSON V1CSINodeDriver where - parseJSON = A.withObject "V1CSINodeDriver" $ \o -> - V1CSINodeDriver - <$> (o .:? "allocatable") - <*> (o .: "name") - <*> (o .: "nodeID") - <*> (o .:? "topologyKeys") - --- | ToJSON V1CSINodeDriver -instance A.ToJSON V1CSINodeDriver where - toJSON V1CSINodeDriver {..} = - _omitNulls - [ "allocatable" .= v1CSINodeDriverAllocatable - , "name" .= v1CSINodeDriverName - , "nodeID" .= v1CSINodeDriverNodeId - , "topologyKeys" .= v1CSINodeDriverTopologyKeys - ] - - --- | Construct a value of type 'V1CSINodeDriver' (by applying it's required fields, if any) -mkV1CSINodeDriver - :: Text -- ^ 'v1CSINodeDriverName': This is the name of the CSI driver that this object refers to. This MUST be the same name returned by the CSI GetPluginName() call for that driver. - -> Text -- ^ 'v1CSINodeDriverNodeId': nodeID of the node from the driver point of view. This field enables Kubernetes to communicate with storage systems that do not share the same nomenclature for nodes. For example, Kubernetes may refer to a given node as \"node1\", but the storage system may refer to the same node as \"nodeA\". When Kubernetes issues a command to the storage system to attach a volume to a specific node, it can use this field to refer to the node name using the ID that the storage system will understand, e.g. \"nodeA\" instead of \"node1\". This field is required. - -> V1CSINodeDriver -mkV1CSINodeDriver v1CSINodeDriverName v1CSINodeDriverNodeId = - V1CSINodeDriver - { v1CSINodeDriverAllocatable = Nothing - , v1CSINodeDriverName - , v1CSINodeDriverNodeId - , v1CSINodeDriverTopologyKeys = Nothing - } - --- ** V1CSINodeList --- | V1CSINodeList --- CSINodeList is a collection of CSINode objects. -data V1CSINodeList = V1CSINodeList - { v1CSINodeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSINodeListItems :: !([V1CSINode]) -- ^ /Required/ "items" - items is the list of CSINode - , v1CSINodeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSINodeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSINodeList -instance A.FromJSON V1CSINodeList where - parseJSON = A.withObject "V1CSINodeList" $ \o -> - V1CSINodeList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CSINodeList -instance A.ToJSON V1CSINodeList where - toJSON V1CSINodeList {..} = - _omitNulls - [ "apiVersion" .= v1CSINodeListApiVersion - , "items" .= v1CSINodeListItems - , "kind" .= v1CSINodeListKind - , "metadata" .= v1CSINodeListMetadata - ] - - --- | Construct a value of type 'V1CSINodeList' (by applying it's required fields, if any) -mkV1CSINodeList - :: [V1CSINode] -- ^ 'v1CSINodeListItems': items is the list of CSINode - -> V1CSINodeList -mkV1CSINodeList v1CSINodeListItems = - V1CSINodeList - { v1CSINodeListApiVersion = Nothing - , v1CSINodeListItems - , v1CSINodeListKind = Nothing - , v1CSINodeListMetadata = Nothing - } - --- ** V1CSINodeSpec --- | V1CSINodeSpec --- CSINodeSpec holds information about the specification of all CSI drivers installed on a node -data V1CSINodeSpec = V1CSINodeSpec - { v1CSINodeSpecDrivers :: !([V1CSINodeDriver]) -- ^ /Required/ "drivers" - drivers is a list of information of all CSI Drivers existing on a node. If all drivers in the list are uninstalled, this can become empty. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSINodeSpec -instance A.FromJSON V1CSINodeSpec where - parseJSON = A.withObject "V1CSINodeSpec" $ \o -> - V1CSINodeSpec - <$> (o .: "drivers") - --- | ToJSON V1CSINodeSpec -instance A.ToJSON V1CSINodeSpec where - toJSON V1CSINodeSpec {..} = - _omitNulls - [ "drivers" .= v1CSINodeSpecDrivers - ] - - --- | Construct a value of type 'V1CSINodeSpec' (by applying it's required fields, if any) -mkV1CSINodeSpec - :: [V1CSINodeDriver] -- ^ 'v1CSINodeSpecDrivers': drivers is a list of information of all CSI Drivers existing on a node. If all drivers in the list are uninstalled, this can become empty. - -> V1CSINodeSpec -mkV1CSINodeSpec v1CSINodeSpecDrivers = - V1CSINodeSpec - { v1CSINodeSpecDrivers - } - --- ** V1CSIPersistentVolumeSource --- | V1CSIPersistentVolumeSource --- Represents storage that is managed by an external CSI volume driver (Beta feature) -data V1CSIPersistentVolumeSource = V1CSIPersistentVolumeSource - { v1CSIPersistentVolumeSourceControllerExpandSecretRef :: !(Maybe V1SecretReference) -- ^ "controllerExpandSecretRef" - , v1CSIPersistentVolumeSourceControllerPublishSecretRef :: !(Maybe V1SecretReference) -- ^ "controllerPublishSecretRef" - , v1CSIPersistentVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. Required. - , v1CSIPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". - , v1CSIPersistentVolumeSourceNodeExpandSecretRef :: !(Maybe V1SecretReference) -- ^ "nodeExpandSecretRef" - , v1CSIPersistentVolumeSourceNodePublishSecretRef :: !(Maybe V1SecretReference) -- ^ "nodePublishSecretRef" - , v1CSIPersistentVolumeSourceNodeStageSecretRef :: !(Maybe V1SecretReference) -- ^ "nodeStageSecretRef" - , v1CSIPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly value to pass to ControllerPublishVolumeRequest. Defaults to false (read/write). - , v1CSIPersistentVolumeSourceVolumeAttributes :: !(Maybe (Map.Map String Text)) -- ^ "volumeAttributes" - volumeAttributes of the volume to publish. - , v1CSIPersistentVolumeSourceVolumeHandle :: !(Text) -- ^ /Required/ "volumeHandle" - volumeHandle is the unique volume name returned by the CSI volume plugin’s CreateVolume to refer to the volume on all subsequent calls. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIPersistentVolumeSource -instance A.FromJSON V1CSIPersistentVolumeSource where - parseJSON = A.withObject "V1CSIPersistentVolumeSource" $ \o -> - V1CSIPersistentVolumeSource - <$> (o .:? "controllerExpandSecretRef") - <*> (o .:? "controllerPublishSecretRef") - <*> (o .: "driver") - <*> (o .:? "fsType") - <*> (o .:? "nodeExpandSecretRef") - <*> (o .:? "nodePublishSecretRef") - <*> (o .:? "nodeStageSecretRef") - <*> (o .:? "readOnly") - <*> (o .:? "volumeAttributes") - <*> (o .: "volumeHandle") - --- | ToJSON V1CSIPersistentVolumeSource -instance A.ToJSON V1CSIPersistentVolumeSource where - toJSON V1CSIPersistentVolumeSource {..} = - _omitNulls - [ "controllerExpandSecretRef" .= v1CSIPersistentVolumeSourceControllerExpandSecretRef - , "controllerPublishSecretRef" .= v1CSIPersistentVolumeSourceControllerPublishSecretRef - , "driver" .= v1CSIPersistentVolumeSourceDriver - , "fsType" .= v1CSIPersistentVolumeSourceFsType - , "nodeExpandSecretRef" .= v1CSIPersistentVolumeSourceNodeExpandSecretRef - , "nodePublishSecretRef" .= v1CSIPersistentVolumeSourceNodePublishSecretRef - , "nodeStageSecretRef" .= v1CSIPersistentVolumeSourceNodeStageSecretRef - , "readOnly" .= v1CSIPersistentVolumeSourceReadOnly - , "volumeAttributes" .= v1CSIPersistentVolumeSourceVolumeAttributes - , "volumeHandle" .= v1CSIPersistentVolumeSourceVolumeHandle - ] - - --- | Construct a value of type 'V1CSIPersistentVolumeSource' (by applying it's required fields, if any) -mkV1CSIPersistentVolumeSource - :: Text -- ^ 'v1CSIPersistentVolumeSourceDriver': driver is the name of the driver to use for this volume. Required. - -> Text -- ^ 'v1CSIPersistentVolumeSourceVolumeHandle': volumeHandle is the unique volume name returned by the CSI volume plugin’s CreateVolume to refer to the volume on all subsequent calls. Required. - -> V1CSIPersistentVolumeSource -mkV1CSIPersistentVolumeSource v1CSIPersistentVolumeSourceDriver v1CSIPersistentVolumeSourceVolumeHandle = - V1CSIPersistentVolumeSource - { v1CSIPersistentVolumeSourceControllerExpandSecretRef = Nothing - , v1CSIPersistentVolumeSourceControllerPublishSecretRef = Nothing - , v1CSIPersistentVolumeSourceDriver - , v1CSIPersistentVolumeSourceFsType = Nothing - , v1CSIPersistentVolumeSourceNodeExpandSecretRef = Nothing - , v1CSIPersistentVolumeSourceNodePublishSecretRef = Nothing - , v1CSIPersistentVolumeSourceNodeStageSecretRef = Nothing - , v1CSIPersistentVolumeSourceReadOnly = Nothing - , v1CSIPersistentVolumeSourceVolumeAttributes = Nothing - , v1CSIPersistentVolumeSourceVolumeHandle - } - --- ** V1CSIStorageCapacity --- | V1CSIStorageCapacity --- CSIStorageCapacity stores the result of one CSI GetCapacity call. For a given StorageClass, this describes the available capacity in a particular topology segment. This can be used when considering where to instantiate new PersistentVolumes. For example this can express things like: - StorageClass \"standard\" has \"1234 GiB\" available in \"topology.kubernetes.io/zone=us-east1\" - StorageClass \"localssd\" has \"10 GiB\" available in \"kubernetes.io/hostname=knode-abc123\" The following three cases all imply that no capacity is available for a certain combination: - no object exists with suitable topology and storage class name - such an object exists, but the capacity is unset - such an object exists, but the capacity is zero The producer of these objects can decide which approach is more suitable. They are consumed by the kube-scheduler when a CSI driver opts into capacity-aware scheduling with CSIDriverSpec.StorageCapacity. The scheduler compares the MaximumVolumeSize against the requested size of pending volumes to filter out unsuitable nodes. If MaximumVolumeSize is unset, it falls back to a comparison against the less precise Capacity. If that is also unset, the scheduler assumes that capacity is insufficient and tries some other node. -data V1CSIStorageCapacity = V1CSIStorageCapacity - { v1CSIStorageCapacityApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSIStorageCapacityCapacity :: !(Maybe Quantity) -- ^ "capacity" - , v1CSIStorageCapacityKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSIStorageCapacityMaximumVolumeSize :: !(Maybe Quantity) -- ^ "maximumVolumeSize" - , v1CSIStorageCapacityMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CSIStorageCapacityNodeTopology :: !(Maybe V1LabelSelector) -- ^ "nodeTopology" - , v1CSIStorageCapacityStorageClassName :: !(Text) -- ^ /Required/ "storageClassName" - The name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIStorageCapacity -instance A.FromJSON V1CSIStorageCapacity where - parseJSON = A.withObject "V1CSIStorageCapacity" $ \o -> - V1CSIStorageCapacity - <$> (o .:? "apiVersion") - <*> (o .:? "capacity") - <*> (o .:? "kind") - <*> (o .:? "maximumVolumeSize") - <*> (o .:? "metadata") - <*> (o .:? "nodeTopology") - <*> (o .: "storageClassName") - --- | ToJSON V1CSIStorageCapacity -instance A.ToJSON V1CSIStorageCapacity where - toJSON V1CSIStorageCapacity {..} = - _omitNulls - [ "apiVersion" .= v1CSIStorageCapacityApiVersion - , "capacity" .= v1CSIStorageCapacityCapacity - , "kind" .= v1CSIStorageCapacityKind - , "maximumVolumeSize" .= v1CSIStorageCapacityMaximumVolumeSize - , "metadata" .= v1CSIStorageCapacityMetadata - , "nodeTopology" .= v1CSIStorageCapacityNodeTopology - , "storageClassName" .= v1CSIStorageCapacityStorageClassName - ] - - --- | Construct a value of type 'V1CSIStorageCapacity' (by applying it's required fields, if any) -mkV1CSIStorageCapacity - :: Text -- ^ 'v1CSIStorageCapacityStorageClassName': The name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. - -> V1CSIStorageCapacity -mkV1CSIStorageCapacity v1CSIStorageCapacityStorageClassName = - V1CSIStorageCapacity - { v1CSIStorageCapacityApiVersion = Nothing - , v1CSIStorageCapacityCapacity = Nothing - , v1CSIStorageCapacityKind = Nothing - , v1CSIStorageCapacityMaximumVolumeSize = Nothing - , v1CSIStorageCapacityMetadata = Nothing - , v1CSIStorageCapacityNodeTopology = Nothing - , v1CSIStorageCapacityStorageClassName - } - --- ** V1CSIStorageCapacityList --- | V1CSIStorageCapacityList --- CSIStorageCapacityList is a collection of CSIStorageCapacity objects. -data V1CSIStorageCapacityList = V1CSIStorageCapacityList - { v1CSIStorageCapacityListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CSIStorageCapacityListItems :: !([V1CSIStorageCapacity]) -- ^ /Required/ "items" - Items is the list of CSIStorageCapacity objects. - , v1CSIStorageCapacityListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CSIStorageCapacityListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIStorageCapacityList -instance A.FromJSON V1CSIStorageCapacityList where - parseJSON = A.withObject "V1CSIStorageCapacityList" $ \o -> - V1CSIStorageCapacityList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CSIStorageCapacityList -instance A.ToJSON V1CSIStorageCapacityList where - toJSON V1CSIStorageCapacityList {..} = - _omitNulls - [ "apiVersion" .= v1CSIStorageCapacityListApiVersion - , "items" .= v1CSIStorageCapacityListItems - , "kind" .= v1CSIStorageCapacityListKind - , "metadata" .= v1CSIStorageCapacityListMetadata - ] - - --- | Construct a value of type 'V1CSIStorageCapacityList' (by applying it's required fields, if any) -mkV1CSIStorageCapacityList - :: [V1CSIStorageCapacity] -- ^ 'v1CSIStorageCapacityListItems': Items is the list of CSIStorageCapacity objects. - -> V1CSIStorageCapacityList -mkV1CSIStorageCapacityList v1CSIStorageCapacityListItems = - V1CSIStorageCapacityList - { v1CSIStorageCapacityListApiVersion = Nothing - , v1CSIStorageCapacityListItems - , v1CSIStorageCapacityListKind = Nothing - , v1CSIStorageCapacityListMetadata = Nothing - } - --- ** V1CSIVolumeSource --- | V1CSIVolumeSource --- Represents a source location of a volume to mount, managed by an external CSI driver -data V1CSIVolumeSource = V1CSIVolumeSource - { v1CSIVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the CSI driver that handles this volume. Consult with your admin for the correct name as registered in the cluster. - , v1CSIVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType to mount. Ex. \"ext4\", \"xfs\", \"ntfs\". If not provided, the empty value is passed to the associated CSI driver which will determine the default filesystem to apply. - , v1CSIVolumeSourceNodePublishSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "nodePublishSecretRef" - , v1CSIVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly specifies a read-only configuration for the volume. Defaults to false (read/write). - , v1CSIVolumeSourceVolumeAttributes :: !(Maybe (Map.Map String Text)) -- ^ "volumeAttributes" - volumeAttributes stores driver-specific properties that are passed to the CSI driver. Consult your driver's documentation for supported values. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CSIVolumeSource -instance A.FromJSON V1CSIVolumeSource where - parseJSON = A.withObject "V1CSIVolumeSource" $ \o -> - V1CSIVolumeSource - <$> (o .: "driver") - <*> (o .:? "fsType") - <*> (o .:? "nodePublishSecretRef") - <*> (o .:? "readOnly") - <*> (o .:? "volumeAttributes") - --- | ToJSON V1CSIVolumeSource -instance A.ToJSON V1CSIVolumeSource where - toJSON V1CSIVolumeSource {..} = - _omitNulls - [ "driver" .= v1CSIVolumeSourceDriver - , "fsType" .= v1CSIVolumeSourceFsType - , "nodePublishSecretRef" .= v1CSIVolumeSourceNodePublishSecretRef - , "readOnly" .= v1CSIVolumeSourceReadOnly - , "volumeAttributes" .= v1CSIVolumeSourceVolumeAttributes - ] - - --- | Construct a value of type 'V1CSIVolumeSource' (by applying it's required fields, if any) -mkV1CSIVolumeSource - :: Text -- ^ 'v1CSIVolumeSourceDriver': driver is the name of the CSI driver that handles this volume. Consult with your admin for the correct name as registered in the cluster. - -> V1CSIVolumeSource -mkV1CSIVolumeSource v1CSIVolumeSourceDriver = - V1CSIVolumeSource - { v1CSIVolumeSourceDriver - , v1CSIVolumeSourceFsType = Nothing - , v1CSIVolumeSourceNodePublishSecretRef = Nothing - , v1CSIVolumeSourceReadOnly = Nothing - , v1CSIVolumeSourceVolumeAttributes = Nothing - } - --- ** V1Capabilities --- | V1Capabilities --- Adds and removes POSIX capabilities from running containers. -data V1Capabilities = V1Capabilities - { v1CapabilitiesAdd :: !(Maybe [Text]) -- ^ "add" - Added capabilities - , v1CapabilitiesDrop :: !(Maybe [Text]) -- ^ "drop" - Removed capabilities - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Capabilities -instance A.FromJSON V1Capabilities where - parseJSON = A.withObject "V1Capabilities" $ \o -> - V1Capabilities - <$> (o .:? "add") - <*> (o .:? "drop") - --- | ToJSON V1Capabilities -instance A.ToJSON V1Capabilities where - toJSON V1Capabilities {..} = - _omitNulls - [ "add" .= v1CapabilitiesAdd - , "drop" .= v1CapabilitiesDrop - ] - - --- | Construct a value of type 'V1Capabilities' (by applying it's required fields, if any) -mkV1Capabilities - :: V1Capabilities -mkV1Capabilities = - V1Capabilities - { v1CapabilitiesAdd = Nothing - , v1CapabilitiesDrop = Nothing - } - --- ** V1CephFSPersistentVolumeSource --- | V1CephFSPersistentVolumeSource --- Represents a Ceph Filesystem mount that lasts the lifetime of a pod Cephfs volumes do not support ownership management or SELinux relabeling. -data V1CephFSPersistentVolumeSource = V1CephFSPersistentVolumeSource - { v1CephFSPersistentVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSPersistentVolumeSourcePath :: !(Maybe Text) -- ^ "path" - path is Optional: Used as the mounted root, rather than the full Ceph tree, default is / - , v1CephFSPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSPersistentVolumeSourceSecretFile :: !(Maybe Text) -- ^ "secretFile" - secretFile is Optional: SecretFile is the path to key ring for User, default is /etc/ceph/user.secret More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" - , v1CephFSPersistentVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is Optional: User is the rados user name, default is admin More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CephFSPersistentVolumeSource -instance A.FromJSON V1CephFSPersistentVolumeSource where - parseJSON = A.withObject "V1CephFSPersistentVolumeSource" $ \o -> - V1CephFSPersistentVolumeSource - <$> (o .: "monitors") - <*> (o .:? "path") - <*> (o .:? "readOnly") - <*> (o .:? "secretFile") - <*> (o .:? "secretRef") - <*> (o .:? "user") - --- | ToJSON V1CephFSPersistentVolumeSource -instance A.ToJSON V1CephFSPersistentVolumeSource where - toJSON V1CephFSPersistentVolumeSource {..} = - _omitNulls - [ "monitors" .= v1CephFSPersistentVolumeSourceMonitors - , "path" .= v1CephFSPersistentVolumeSourcePath - , "readOnly" .= v1CephFSPersistentVolumeSourceReadOnly - , "secretFile" .= v1CephFSPersistentVolumeSourceSecretFile - , "secretRef" .= v1CephFSPersistentVolumeSourceSecretRef - , "user" .= v1CephFSPersistentVolumeSourceUser - ] - - --- | Construct a value of type 'V1CephFSPersistentVolumeSource' (by applying it's required fields, if any) -mkV1CephFSPersistentVolumeSource - :: [Text] -- ^ 'v1CephFSPersistentVolumeSourceMonitors': monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - -> V1CephFSPersistentVolumeSource -mkV1CephFSPersistentVolumeSource v1CephFSPersistentVolumeSourceMonitors = - V1CephFSPersistentVolumeSource - { v1CephFSPersistentVolumeSourceMonitors - , v1CephFSPersistentVolumeSourcePath = Nothing - , v1CephFSPersistentVolumeSourceReadOnly = Nothing - , v1CephFSPersistentVolumeSourceSecretFile = Nothing - , v1CephFSPersistentVolumeSourceSecretRef = Nothing - , v1CephFSPersistentVolumeSourceUser = Nothing - } - --- ** V1CephFSVolumeSource --- | V1CephFSVolumeSource --- Represents a Ceph Filesystem mount that lasts the lifetime of a pod Cephfs volumes do not support ownership management or SELinux relabeling. -data V1CephFSVolumeSource = V1CephFSVolumeSource - { v1CephFSVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSVolumeSourcePath :: !(Maybe Text) -- ^ "path" - path is Optional: Used as the mounted root, rather than the full Ceph tree, default is / - , v1CephFSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSVolumeSourceSecretFile :: !(Maybe Text) -- ^ "secretFile" - secretFile is Optional: SecretFile is the path to key ring for User, default is /etc/ceph/user.secret More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - , v1CephFSVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - , v1CephFSVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is optional: User is the rados user name, default is admin More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CephFSVolumeSource -instance A.FromJSON V1CephFSVolumeSource where - parseJSON = A.withObject "V1CephFSVolumeSource" $ \o -> - V1CephFSVolumeSource - <$> (o .: "monitors") - <*> (o .:? "path") - <*> (o .:? "readOnly") - <*> (o .:? "secretFile") - <*> (o .:? "secretRef") - <*> (o .:? "user") - --- | ToJSON V1CephFSVolumeSource -instance A.ToJSON V1CephFSVolumeSource where - toJSON V1CephFSVolumeSource {..} = - _omitNulls - [ "monitors" .= v1CephFSVolumeSourceMonitors - , "path" .= v1CephFSVolumeSourcePath - , "readOnly" .= v1CephFSVolumeSourceReadOnly - , "secretFile" .= v1CephFSVolumeSourceSecretFile - , "secretRef" .= v1CephFSVolumeSourceSecretRef - , "user" .= v1CephFSVolumeSourceUser - ] - - --- | Construct a value of type 'V1CephFSVolumeSource' (by applying it's required fields, if any) -mkV1CephFSVolumeSource - :: [Text] -- ^ 'v1CephFSVolumeSourceMonitors': monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it - -> V1CephFSVolumeSource -mkV1CephFSVolumeSource v1CephFSVolumeSourceMonitors = - V1CephFSVolumeSource - { v1CephFSVolumeSourceMonitors - , v1CephFSVolumeSourcePath = Nothing - , v1CephFSVolumeSourceReadOnly = Nothing - , v1CephFSVolumeSourceSecretFile = Nothing - , v1CephFSVolumeSourceSecretRef = Nothing - , v1CephFSVolumeSourceUser = Nothing - } - --- ** V1CertificateSigningRequest --- | V1CertificateSigningRequest --- CertificateSigningRequest objects provide a mechanism to obtain x509 certificates by submitting a certificate signing request, and having it asynchronously approved and issued. Kubelets use this API to obtain: 1. client certificates to authenticate to kube-apiserver (with the \"kubernetes.io/kube-apiserver-client-kubelet\" signerName). 2. serving certificates for TLS endpoints kube-apiserver can connect to securely (with the \"kubernetes.io/kubelet-serving\" signerName). This API can be used to request client certificates to authenticate to kube-apiserver (with the \"kubernetes.io/kube-apiserver-client\" signerName), or to obtain certificates from custom non-Kubernetes signers. -data V1CertificateSigningRequest = V1CertificateSigningRequest - { v1CertificateSigningRequestApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CertificateSigningRequestKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CertificateSigningRequestMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CertificateSigningRequestSpec :: !(V1CertificateSigningRequestSpec) -- ^ /Required/ "spec" - , v1CertificateSigningRequestStatus :: !(Maybe V1CertificateSigningRequestStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CertificateSigningRequest -instance A.FromJSON V1CertificateSigningRequest where - parseJSON = A.withObject "V1CertificateSigningRequest" $ \o -> - V1CertificateSigningRequest - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1CertificateSigningRequest -instance A.ToJSON V1CertificateSigningRequest where - toJSON V1CertificateSigningRequest {..} = - _omitNulls - [ "apiVersion" .= v1CertificateSigningRequestApiVersion - , "kind" .= v1CertificateSigningRequestKind - , "metadata" .= v1CertificateSigningRequestMetadata - , "spec" .= v1CertificateSigningRequestSpec - , "status" .= v1CertificateSigningRequestStatus - ] - - --- | Construct a value of type 'V1CertificateSigningRequest' (by applying it's required fields, if any) -mkV1CertificateSigningRequest - :: V1CertificateSigningRequestSpec -- ^ 'v1CertificateSigningRequestSpec' - -> V1CertificateSigningRequest -mkV1CertificateSigningRequest v1CertificateSigningRequestSpec = - V1CertificateSigningRequest - { v1CertificateSigningRequestApiVersion = Nothing - , v1CertificateSigningRequestKind = Nothing - , v1CertificateSigningRequestMetadata = Nothing - , v1CertificateSigningRequestSpec - , v1CertificateSigningRequestStatus = Nothing - } - --- ** V1CertificateSigningRequestCondition --- | V1CertificateSigningRequestCondition --- CertificateSigningRequestCondition describes a condition of a CertificateSigningRequest object -data V1CertificateSigningRequestCondition = V1CertificateSigningRequestCondition - { v1CertificateSigningRequestConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the time the condition last transitioned from one status to another. If unset, when a new condition type is added or an existing condition's status is changed, the server defaults this to the current time. - , v1CertificateSigningRequestConditionLastUpdateTime :: !(Maybe DateTime) -- ^ "lastUpdateTime" - lastUpdateTime is the time of the last update to this condition - , v1CertificateSigningRequestConditionMessage :: !(Maybe Text) -- ^ "message" - message contains a human readable message with details about the request state - , v1CertificateSigningRequestConditionReason :: !(Maybe Text) -- ^ "reason" - reason indicates a brief reason for the request state - , v1CertificateSigningRequestConditionStatus :: !(Text) -- ^ /Required/ "status" - status of the condition, one of True, False, Unknown. Approved, Denied, and Failed conditions may not be \"False\" or \"Unknown\". - , v1CertificateSigningRequestConditionType :: !(Text) -- ^ /Required/ "type" - type of the condition. Known conditions are \"Approved\", \"Denied\", and \"Failed\". An \"Approved\" condition is added via the /approval subresource, indicating the request was approved and should be issued by the signer. A \"Denied\" condition is added via the /approval subresource, indicating the request was denied and should not be issued by the signer. A \"Failed\" condition is added via the /status subresource, indicating the signer failed to issue the certificate. Approved and Denied conditions are mutually exclusive. Approved, Denied, and Failed conditions cannot be removed once added. Only one condition of a given type is allowed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CertificateSigningRequestCondition -instance A.FromJSON V1CertificateSigningRequestCondition where - parseJSON = A.withObject "V1CertificateSigningRequestCondition" $ \o -> - V1CertificateSigningRequestCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "lastUpdateTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1CertificateSigningRequestCondition -instance A.ToJSON V1CertificateSigningRequestCondition where - toJSON V1CertificateSigningRequestCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1CertificateSigningRequestConditionLastTransitionTime - , "lastUpdateTime" .= v1CertificateSigningRequestConditionLastUpdateTime - , "message" .= v1CertificateSigningRequestConditionMessage - , "reason" .= v1CertificateSigningRequestConditionReason - , "status" .= v1CertificateSigningRequestConditionStatus - , "type" .= v1CertificateSigningRequestConditionType - ] - - --- | Construct a value of type 'V1CertificateSigningRequestCondition' (by applying it's required fields, if any) -mkV1CertificateSigningRequestCondition - :: Text -- ^ 'v1CertificateSigningRequestConditionStatus': status of the condition, one of True, False, Unknown. Approved, Denied, and Failed conditions may not be \"False\" or \"Unknown\". - -> Text -- ^ 'v1CertificateSigningRequestConditionType': type of the condition. Known conditions are \"Approved\", \"Denied\", and \"Failed\". An \"Approved\" condition is added via the /approval subresource, indicating the request was approved and should be issued by the signer. A \"Denied\" condition is added via the /approval subresource, indicating the request was denied and should not be issued by the signer. A \"Failed\" condition is added via the /status subresource, indicating the signer failed to issue the certificate. Approved and Denied conditions are mutually exclusive. Approved, Denied, and Failed conditions cannot be removed once added. Only one condition of a given type is allowed. - -> V1CertificateSigningRequestCondition -mkV1CertificateSigningRequestCondition v1CertificateSigningRequestConditionStatus v1CertificateSigningRequestConditionType = - V1CertificateSigningRequestCondition - { v1CertificateSigningRequestConditionLastTransitionTime = Nothing - , v1CertificateSigningRequestConditionLastUpdateTime = Nothing - , v1CertificateSigningRequestConditionMessage = Nothing - , v1CertificateSigningRequestConditionReason = Nothing - , v1CertificateSigningRequestConditionStatus - , v1CertificateSigningRequestConditionType - } - --- ** V1CertificateSigningRequestList --- | V1CertificateSigningRequestList --- CertificateSigningRequestList is a collection of CertificateSigningRequest objects -data V1CertificateSigningRequestList = V1CertificateSigningRequestList - { v1CertificateSigningRequestListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CertificateSigningRequestListItems :: !([V1CertificateSigningRequest]) -- ^ /Required/ "items" - items is a collection of CertificateSigningRequest objects - , v1CertificateSigningRequestListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CertificateSigningRequestListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CertificateSigningRequestList -instance A.FromJSON V1CertificateSigningRequestList where - parseJSON = A.withObject "V1CertificateSigningRequestList" $ \o -> - V1CertificateSigningRequestList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CertificateSigningRequestList -instance A.ToJSON V1CertificateSigningRequestList where - toJSON V1CertificateSigningRequestList {..} = - _omitNulls - [ "apiVersion" .= v1CertificateSigningRequestListApiVersion - , "items" .= v1CertificateSigningRequestListItems - , "kind" .= v1CertificateSigningRequestListKind - , "metadata" .= v1CertificateSigningRequestListMetadata - ] - - --- | Construct a value of type 'V1CertificateSigningRequestList' (by applying it's required fields, if any) -mkV1CertificateSigningRequestList - :: [V1CertificateSigningRequest] -- ^ 'v1CertificateSigningRequestListItems': items is a collection of CertificateSigningRequest objects - -> V1CertificateSigningRequestList -mkV1CertificateSigningRequestList v1CertificateSigningRequestListItems = - V1CertificateSigningRequestList - { v1CertificateSigningRequestListApiVersion = Nothing - , v1CertificateSigningRequestListItems - , v1CertificateSigningRequestListKind = Nothing - , v1CertificateSigningRequestListMetadata = Nothing - } - --- ** V1CertificateSigningRequestSpec --- | V1CertificateSigningRequestSpec --- CertificateSigningRequestSpec contains the certificate request. -data V1CertificateSigningRequestSpec = V1CertificateSigningRequestSpec - { v1CertificateSigningRequestSpecExpirationSeconds :: !(Maybe Int) -- ^ "expirationSeconds" - expirationSeconds is the requested duration of validity of the issued certificate. The certificate signer may issue a certificate with a different validity duration so a client must check the delta between the notBefore and and notAfter fields in the issued certificate to determine the actual duration. The v1.22+ in-tree implementations of the well-known Kubernetes signers will honor this field as long as the requested duration is not greater than the maximum duration they will honor per the --cluster-signing-duration CLI flag to the Kubernetes controller manager. Certificate signers may not honor this field for various reasons: 1. Old signer that is unaware of the field (such as the in-tree implementations prior to v1.22) 2. Signer whose configured maximum is shorter than the requested duration 3. Signer whose configured minimum is longer than the requested duration The minimum valid value for expirationSeconds is 600, i.e. 10 minutes. - , v1CertificateSigningRequestSpecExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - extra contains extra attributes of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. - , v1CertificateSigningRequestSpecGroups :: !(Maybe [Text]) -- ^ "groups" - groups contains group membership of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. - , v1CertificateSigningRequestSpecRequest :: !(ByteArray) -- ^ /Required/ "request" - request contains an x509 certificate signing request encoded in a \"CERTIFICATE REQUEST\" PEM block. When serialized as JSON or YAML, the data is additionally base64-encoded. - , v1CertificateSigningRequestSpecSignerName :: !(Text) -- ^ /Required/ "signerName" - signerName indicates the requested signer, and is a qualified name. List/watch requests for CertificateSigningRequests can filter on this field using a \"spec.signerName=NAME\" fieldSelector. Well-known Kubernetes signers are: 1. \"kubernetes.io/kube-apiserver-client\": issues client certificates that can be used to authenticate to kube-apiserver. Requests for this signer are never auto-approved by kube-controller-manager, can be issued by the \"csrsigning\" controller in kube-controller-manager. 2. \"kubernetes.io/kube-apiserver-client-kubelet\": issues client certificates that kubelets use to authenticate to kube-apiserver. Requests for this signer can be auto-approved by the \"csrapproving\" controller in kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. 3. \"kubernetes.io/kubelet-serving\" issues serving certificates that kubelets use to serve TLS endpoints, which kube-apiserver can connect to securely. Requests for this signer are never auto-approved by kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. More details are available at https://k8s.io/docs/reference/access-authn-authz/certificate-signing-requests/#kubernetes-signers Custom signerNames can also be specified. The signer defines: 1. Trust distribution: how trust (CA bundles) are distributed. 2. Permitted subjects: and behavior when a disallowed subject is requested. 3. Required, permitted, or forbidden x509 extensions in the request (including whether subjectAltNames are allowed, which types, restrictions on allowed values) and behavior when a disallowed extension is requested. 4. Required, permitted, or forbidden key usages / extended key usages. 5. Expiration/certificate lifetime: whether it is fixed by the signer, configurable by the admin. 6. Whether or not requests for CA certificates are allowed. - , v1CertificateSigningRequestSpecUid :: !(Maybe Text) -- ^ "uid" - uid contains the uid of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. - , v1CertificateSigningRequestSpecUsages :: !(Maybe [Text]) -- ^ "usages" - usages specifies a set of key usages requested in the issued certificate. Requests for TLS client certificates typically request: \"digital signature\", \"key encipherment\", \"client auth\". Requests for TLS serving certificates typically request: \"key encipherment\", \"digital signature\", \"server auth\". Valid values are: \"signing\", \"digital signature\", \"content commitment\", \"key encipherment\", \"key agreement\", \"data encipherment\", \"cert sign\", \"crl sign\", \"encipher only\", \"decipher only\", \"any\", \"server auth\", \"client auth\", \"code signing\", \"email protection\", \"s/mime\", \"ipsec end system\", \"ipsec tunnel\", \"ipsec user\", \"timestamping\", \"ocsp signing\", \"microsoft sgc\", \"netscape sgc\" - , v1CertificateSigningRequestSpecUsername :: !(Maybe Text) -- ^ "username" - username contains the name of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CertificateSigningRequestSpec -instance A.FromJSON V1CertificateSigningRequestSpec where - parseJSON = A.withObject "V1CertificateSigningRequestSpec" $ \o -> - V1CertificateSigningRequestSpec - <$> (o .:? "expirationSeconds") - <*> (o .:? "extra") - <*> (o .:? "groups") - <*> (o .: "request") - <*> (o .: "signerName") - <*> (o .:? "uid") - <*> (o .:? "usages") - <*> (o .:? "username") - --- | ToJSON V1CertificateSigningRequestSpec -instance A.ToJSON V1CertificateSigningRequestSpec where - toJSON V1CertificateSigningRequestSpec {..} = - _omitNulls - [ "expirationSeconds" .= v1CertificateSigningRequestSpecExpirationSeconds - , "extra" .= v1CertificateSigningRequestSpecExtra - , "groups" .= v1CertificateSigningRequestSpecGroups - , "request" .= v1CertificateSigningRequestSpecRequest - , "signerName" .= v1CertificateSigningRequestSpecSignerName - , "uid" .= v1CertificateSigningRequestSpecUid - , "usages" .= v1CertificateSigningRequestSpecUsages - , "username" .= v1CertificateSigningRequestSpecUsername - ] - - --- | Construct a value of type 'V1CertificateSigningRequestSpec' (by applying it's required fields, if any) -mkV1CertificateSigningRequestSpec - :: ByteArray -- ^ 'v1CertificateSigningRequestSpecRequest': request contains an x509 certificate signing request encoded in a \"CERTIFICATE REQUEST\" PEM block. When serialized as JSON or YAML, the data is additionally base64-encoded. - -> Text -- ^ 'v1CertificateSigningRequestSpecSignerName': signerName indicates the requested signer, and is a qualified name. List/watch requests for CertificateSigningRequests can filter on this field using a \"spec.signerName=NAME\" fieldSelector. Well-known Kubernetes signers are: 1. \"kubernetes.io/kube-apiserver-client\": issues client certificates that can be used to authenticate to kube-apiserver. Requests for this signer are never auto-approved by kube-controller-manager, can be issued by the \"csrsigning\" controller in kube-controller-manager. 2. \"kubernetes.io/kube-apiserver-client-kubelet\": issues client certificates that kubelets use to authenticate to kube-apiserver. Requests for this signer can be auto-approved by the \"csrapproving\" controller in kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. 3. \"kubernetes.io/kubelet-serving\" issues serving certificates that kubelets use to serve TLS endpoints, which kube-apiserver can connect to securely. Requests for this signer are never auto-approved by kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. More details are available at https://k8s.io/docs/reference/access-authn-authz/certificate-signing-requests/#kubernetes-signers Custom signerNames can also be specified. The signer defines: 1. Trust distribution: how trust (CA bundles) are distributed. 2. Permitted subjects: and behavior when a disallowed subject is requested. 3. Required, permitted, or forbidden x509 extensions in the request (including whether subjectAltNames are allowed, which types, restrictions on allowed values) and behavior when a disallowed extension is requested. 4. Required, permitted, or forbidden key usages / extended key usages. 5. Expiration/certificate lifetime: whether it is fixed by the signer, configurable by the admin. 6. Whether or not requests for CA certificates are allowed. - -> V1CertificateSigningRequestSpec -mkV1CertificateSigningRequestSpec v1CertificateSigningRequestSpecRequest v1CertificateSigningRequestSpecSignerName = - V1CertificateSigningRequestSpec - { v1CertificateSigningRequestSpecExpirationSeconds = Nothing - , v1CertificateSigningRequestSpecExtra = Nothing - , v1CertificateSigningRequestSpecGroups = Nothing - , v1CertificateSigningRequestSpecRequest - , v1CertificateSigningRequestSpecSignerName - , v1CertificateSigningRequestSpecUid = Nothing - , v1CertificateSigningRequestSpecUsages = Nothing - , v1CertificateSigningRequestSpecUsername = Nothing - } - --- ** V1CertificateSigningRequestStatus --- | V1CertificateSigningRequestStatus --- CertificateSigningRequestStatus contains conditions used to indicate approved/denied/failed status of the request, and the issued certificate. -data V1CertificateSigningRequestStatus = V1CertificateSigningRequestStatus - { v1CertificateSigningRequestStatusCertificate :: !(Maybe ByteArray) -- ^ "certificate" - certificate is populated with an issued certificate by the signer after an Approved condition is present. This field is set via the /status subresource. Once populated, this field is immutable. If the certificate signing request is denied, a condition of type \"Denied\" is added and this field remains empty. If the signer cannot issue the certificate, a condition of type \"Failed\" is added and this field remains empty. Validation requirements: 1. certificate must contain one or more PEM blocks. 2. All PEM blocks must have the \"CERTIFICATE\" label, contain no headers, and the encoded data must be a BER-encoded ASN.1 Certificate structure as described in section 4 of RFC5280. 3. Non-PEM content may appear before or after the \"CERTIFICATE\" PEM blocks and is unvalidated, to allow for explanatory text as described in section 5.2 of RFC7468. If more than one PEM block is present, and the definition of the requested spec.signerName does not indicate otherwise, the first block is the issued certificate, and subsequent blocks should be treated as intermediate certificates and presented in TLS handshakes. The certificate is encoded in PEM format. When serialized as JSON or YAML, the data is additionally base64-encoded, so it consists of: base64( -----BEGIN CERTIFICATE----- ... -----END CERTIFICATE----- ) - , v1CertificateSigningRequestStatusConditions :: !(Maybe [V1CertificateSigningRequestCondition]) -- ^ "conditions" - conditions applied to the request. Known conditions are \"Approved\", \"Denied\", and \"Failed\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CertificateSigningRequestStatus -instance A.FromJSON V1CertificateSigningRequestStatus where - parseJSON = A.withObject "V1CertificateSigningRequestStatus" $ \o -> - V1CertificateSigningRequestStatus - <$> (o .:? "certificate") - <*> (o .:? "conditions") - --- | ToJSON V1CertificateSigningRequestStatus -instance A.ToJSON V1CertificateSigningRequestStatus where - toJSON V1CertificateSigningRequestStatus {..} = - _omitNulls - [ "certificate" .= v1CertificateSigningRequestStatusCertificate - , "conditions" .= v1CertificateSigningRequestStatusConditions - ] - - --- | Construct a value of type 'V1CertificateSigningRequestStatus' (by applying it's required fields, if any) -mkV1CertificateSigningRequestStatus - :: V1CertificateSigningRequestStatus -mkV1CertificateSigningRequestStatus = - V1CertificateSigningRequestStatus - { v1CertificateSigningRequestStatusCertificate = Nothing - , v1CertificateSigningRequestStatusConditions = Nothing - } - --- ** V1CinderPersistentVolumeSource --- | V1CinderPersistentVolumeSource --- Represents a cinder volume resource in Openstack. A Cinder volume must exist before mounting to a container. The volume must also be in the same region as the kubelet. Cinder volumes support ownership management and SELinux relabeling. -data V1CinderPersistentVolumeSource = V1CinderPersistentVolumeSource - { v1CinderPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType Filesystem type to mount. Must be a filesystem type supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - , v1CinderPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - , v1CinderPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" - , v1CinderPersistentVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CinderPersistentVolumeSource -instance A.FromJSON V1CinderPersistentVolumeSource where - parseJSON = A.withObject "V1CinderPersistentVolumeSource" $ \o -> - V1CinderPersistentVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .: "volumeID") - --- | ToJSON V1CinderPersistentVolumeSource -instance A.ToJSON V1CinderPersistentVolumeSource where - toJSON V1CinderPersistentVolumeSource {..} = - _omitNulls - [ "fsType" .= v1CinderPersistentVolumeSourceFsType - , "readOnly" .= v1CinderPersistentVolumeSourceReadOnly - , "secretRef" .= v1CinderPersistentVolumeSourceSecretRef - , "volumeID" .= v1CinderPersistentVolumeSourceVolumeId - ] - - --- | Construct a value of type 'V1CinderPersistentVolumeSource' (by applying it's required fields, if any) -mkV1CinderPersistentVolumeSource - :: Text -- ^ 'v1CinderPersistentVolumeSourceVolumeId': volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - -> V1CinderPersistentVolumeSource -mkV1CinderPersistentVolumeSource v1CinderPersistentVolumeSourceVolumeId = - V1CinderPersistentVolumeSource - { v1CinderPersistentVolumeSourceFsType = Nothing - , v1CinderPersistentVolumeSourceReadOnly = Nothing - , v1CinderPersistentVolumeSourceSecretRef = Nothing - , v1CinderPersistentVolumeSourceVolumeId - } - --- ** V1CinderVolumeSource --- | V1CinderVolumeSource --- Represents a cinder volume resource in Openstack. A Cinder volume must exist before mounting to a container. The volume must also be in the same region as the kubelet. Cinder volumes support ownership management and SELinux relabeling. -data V1CinderVolumeSource = V1CinderVolumeSource - { v1CinderVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - , v1CinderVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - , v1CinderVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - , v1CinderVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CinderVolumeSource -instance A.FromJSON V1CinderVolumeSource where - parseJSON = A.withObject "V1CinderVolumeSource" $ \o -> - V1CinderVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .: "volumeID") - --- | ToJSON V1CinderVolumeSource -instance A.ToJSON V1CinderVolumeSource where - toJSON V1CinderVolumeSource {..} = - _omitNulls - [ "fsType" .= v1CinderVolumeSourceFsType - , "readOnly" .= v1CinderVolumeSourceReadOnly - , "secretRef" .= v1CinderVolumeSourceSecretRef - , "volumeID" .= v1CinderVolumeSourceVolumeId - ] - - --- | Construct a value of type 'V1CinderVolumeSource' (by applying it's required fields, if any) -mkV1CinderVolumeSource - :: Text -- ^ 'v1CinderVolumeSourceVolumeId': volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md - -> V1CinderVolumeSource -mkV1CinderVolumeSource v1CinderVolumeSourceVolumeId = - V1CinderVolumeSource - { v1CinderVolumeSourceFsType = Nothing - , v1CinderVolumeSourceReadOnly = Nothing - , v1CinderVolumeSourceSecretRef = Nothing - , v1CinderVolumeSourceVolumeId - } - --- ** V1ClaimSource --- | V1ClaimSource --- ClaimSource describes a reference to a ResourceClaim. Exactly one of these fields should be set. Consumers of this type must treat an empty object as if it has an unknown value. -data V1ClaimSource = V1ClaimSource - { v1ClaimSourceResourceClaimName :: !(Maybe Text) -- ^ "resourceClaimName" - ResourceClaimName is the name of a ResourceClaim object in the same namespace as this pod. - , v1ClaimSourceResourceClaimTemplateName :: !(Maybe Text) -- ^ "resourceClaimTemplateName" - ResourceClaimTemplateName is the name of a ResourceClaimTemplate object in the same namespace as this pod. The template will be used to create a new ResourceClaim, which will be bound to this pod. When this pod is deleted, the ResourceClaim will also be deleted. The name of the ResourceClaim will be <pod name>-<resource name>, where <resource name> is the PodResourceClaim.Name. Pod validation will reject the pod if the concatenated name is not valid for a ResourceClaim (e.g. too long). An existing ResourceClaim with that name that is not owned by the pod will not be used for the pod to avoid using an unrelated resource by mistake. Scheduling and pod startup are then blocked until the unrelated ResourceClaim is removed. This field is immutable and no changes will be made to the corresponding ResourceClaim by the control plane after creating the ResourceClaim. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClaimSource -instance A.FromJSON V1ClaimSource where - parseJSON = A.withObject "V1ClaimSource" $ \o -> - V1ClaimSource - <$> (o .:? "resourceClaimName") - <*> (o .:? "resourceClaimTemplateName") - --- | ToJSON V1ClaimSource -instance A.ToJSON V1ClaimSource where - toJSON V1ClaimSource {..} = - _omitNulls - [ "resourceClaimName" .= v1ClaimSourceResourceClaimName - , "resourceClaimTemplateName" .= v1ClaimSourceResourceClaimTemplateName - ] - - --- | Construct a value of type 'V1ClaimSource' (by applying it's required fields, if any) -mkV1ClaimSource - :: V1ClaimSource -mkV1ClaimSource = - V1ClaimSource - { v1ClaimSourceResourceClaimName = Nothing - , v1ClaimSourceResourceClaimTemplateName = Nothing - } - --- ** V1ClientIPConfig --- | V1ClientIPConfig --- ClientIPConfig represents the configurations of Client IP based session affinity. -data V1ClientIPConfig = V1ClientIPConfig - { v1ClientIPConfigTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - timeoutSeconds specifies the seconds of ClientIP type session sticky time. The value must be >0 && <=86400(for 1 day) if ServiceAffinity == \"ClientIP\". Default value is 10800(for 3 hours). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClientIPConfig -instance A.FromJSON V1ClientIPConfig where - parseJSON = A.withObject "V1ClientIPConfig" $ \o -> - V1ClientIPConfig - <$> (o .:? "timeoutSeconds") - --- | ToJSON V1ClientIPConfig -instance A.ToJSON V1ClientIPConfig where - toJSON V1ClientIPConfig {..} = - _omitNulls - [ "timeoutSeconds" .= v1ClientIPConfigTimeoutSeconds - ] - - --- | Construct a value of type 'V1ClientIPConfig' (by applying it's required fields, if any) -mkV1ClientIPConfig - :: V1ClientIPConfig -mkV1ClientIPConfig = - V1ClientIPConfig - { v1ClientIPConfigTimeoutSeconds = Nothing - } - --- ** V1ClusterRole --- | V1ClusterRole --- ClusterRole is a cluster level, logical grouping of PolicyRules that can be referenced as a unit by a RoleBinding or ClusterRoleBinding. -data V1ClusterRole = V1ClusterRole - { v1ClusterRoleAggregationRule :: !(Maybe V1AggregationRule) -- ^ "aggregationRule" - , v1ClusterRoleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ClusterRoleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ClusterRoleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ClusterRoleRules :: !(Maybe [V1PolicyRule]) -- ^ "rules" - Rules holds all the PolicyRules for this ClusterRole - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClusterRole -instance A.FromJSON V1ClusterRole where - parseJSON = A.withObject "V1ClusterRole" $ \o -> - V1ClusterRole - <$> (o .:? "aggregationRule") - <*> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "rules") - --- | ToJSON V1ClusterRole -instance A.ToJSON V1ClusterRole where - toJSON V1ClusterRole {..} = - _omitNulls - [ "aggregationRule" .= v1ClusterRoleAggregationRule - , "apiVersion" .= v1ClusterRoleApiVersion - , "kind" .= v1ClusterRoleKind - , "metadata" .= v1ClusterRoleMetadata - , "rules" .= v1ClusterRoleRules - ] - - --- | Construct a value of type 'V1ClusterRole' (by applying it's required fields, if any) -mkV1ClusterRole - :: V1ClusterRole -mkV1ClusterRole = - V1ClusterRole - { v1ClusterRoleAggregationRule = Nothing - , v1ClusterRoleApiVersion = Nothing - , v1ClusterRoleKind = Nothing - , v1ClusterRoleMetadata = Nothing - , v1ClusterRoleRules = Nothing - } - --- ** V1ClusterRoleBinding --- | V1ClusterRoleBinding --- ClusterRoleBinding references a ClusterRole, but not contain it. It can reference a ClusterRole in the global namespace, and adds who information via Subject. -data V1ClusterRoleBinding = V1ClusterRoleBinding - { v1ClusterRoleBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ClusterRoleBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ClusterRoleBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ClusterRoleBindingRoleRef :: !(V1RoleRef) -- ^ /Required/ "roleRef" - , v1ClusterRoleBindingSubjects :: !(Maybe [V1Subject]) -- ^ "subjects" - Subjects holds references to the objects the role applies to. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClusterRoleBinding -instance A.FromJSON V1ClusterRoleBinding where - parseJSON = A.withObject "V1ClusterRoleBinding" $ \o -> - V1ClusterRoleBinding - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "roleRef") - <*> (o .:? "subjects") - --- | ToJSON V1ClusterRoleBinding -instance A.ToJSON V1ClusterRoleBinding where - toJSON V1ClusterRoleBinding {..} = - _omitNulls - [ "apiVersion" .= v1ClusterRoleBindingApiVersion - , "kind" .= v1ClusterRoleBindingKind - , "metadata" .= v1ClusterRoleBindingMetadata - , "roleRef" .= v1ClusterRoleBindingRoleRef - , "subjects" .= v1ClusterRoleBindingSubjects - ] - - --- | Construct a value of type 'V1ClusterRoleBinding' (by applying it's required fields, if any) -mkV1ClusterRoleBinding - :: V1RoleRef -- ^ 'v1ClusterRoleBindingRoleRef' - -> V1ClusterRoleBinding -mkV1ClusterRoleBinding v1ClusterRoleBindingRoleRef = - V1ClusterRoleBinding - { v1ClusterRoleBindingApiVersion = Nothing - , v1ClusterRoleBindingKind = Nothing - , v1ClusterRoleBindingMetadata = Nothing - , v1ClusterRoleBindingRoleRef - , v1ClusterRoleBindingSubjects = Nothing - } - --- ** V1ClusterRoleBindingList --- | V1ClusterRoleBindingList --- ClusterRoleBindingList is a collection of ClusterRoleBindings -data V1ClusterRoleBindingList = V1ClusterRoleBindingList - { v1ClusterRoleBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ClusterRoleBindingListItems :: !([V1ClusterRoleBinding]) -- ^ /Required/ "items" - Items is a list of ClusterRoleBindings - , v1ClusterRoleBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ClusterRoleBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClusterRoleBindingList -instance A.FromJSON V1ClusterRoleBindingList where - parseJSON = A.withObject "V1ClusterRoleBindingList" $ \o -> - V1ClusterRoleBindingList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ClusterRoleBindingList -instance A.ToJSON V1ClusterRoleBindingList where - toJSON V1ClusterRoleBindingList {..} = - _omitNulls - [ "apiVersion" .= v1ClusterRoleBindingListApiVersion - , "items" .= v1ClusterRoleBindingListItems - , "kind" .= v1ClusterRoleBindingListKind - , "metadata" .= v1ClusterRoleBindingListMetadata - ] - - --- | Construct a value of type 'V1ClusterRoleBindingList' (by applying it's required fields, if any) -mkV1ClusterRoleBindingList - :: [V1ClusterRoleBinding] -- ^ 'v1ClusterRoleBindingListItems': Items is a list of ClusterRoleBindings - -> V1ClusterRoleBindingList -mkV1ClusterRoleBindingList v1ClusterRoleBindingListItems = - V1ClusterRoleBindingList - { v1ClusterRoleBindingListApiVersion = Nothing - , v1ClusterRoleBindingListItems - , v1ClusterRoleBindingListKind = Nothing - , v1ClusterRoleBindingListMetadata = Nothing - } - --- ** V1ClusterRoleList --- | V1ClusterRoleList --- ClusterRoleList is a collection of ClusterRoles -data V1ClusterRoleList = V1ClusterRoleList - { v1ClusterRoleListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ClusterRoleListItems :: !([V1ClusterRole]) -- ^ /Required/ "items" - Items is a list of ClusterRoles - , v1ClusterRoleListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ClusterRoleListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ClusterRoleList -instance A.FromJSON V1ClusterRoleList where - parseJSON = A.withObject "V1ClusterRoleList" $ \o -> - V1ClusterRoleList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ClusterRoleList -instance A.ToJSON V1ClusterRoleList where - toJSON V1ClusterRoleList {..} = - _omitNulls - [ "apiVersion" .= v1ClusterRoleListApiVersion - , "items" .= v1ClusterRoleListItems - , "kind" .= v1ClusterRoleListKind - , "metadata" .= v1ClusterRoleListMetadata - ] - - --- | Construct a value of type 'V1ClusterRoleList' (by applying it's required fields, if any) -mkV1ClusterRoleList - :: [V1ClusterRole] -- ^ 'v1ClusterRoleListItems': Items is a list of ClusterRoles - -> V1ClusterRoleList -mkV1ClusterRoleList v1ClusterRoleListItems = - V1ClusterRoleList - { v1ClusterRoleListApiVersion = Nothing - , v1ClusterRoleListItems - , v1ClusterRoleListKind = Nothing - , v1ClusterRoleListMetadata = Nothing - } - --- ** V1ComponentCondition --- | V1ComponentCondition --- Information about the condition of a component. -data V1ComponentCondition = V1ComponentCondition - { v1ComponentConditionError :: !(Maybe Text) -- ^ "error" - Condition error code for a component. For example, a health check error code. - , v1ComponentConditionMessage :: !(Maybe Text) -- ^ "message" - Message about the condition for a component. For example, information about a health check. - , v1ComponentConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition for a component. Valid values for \"Healthy\": \"True\", \"False\", or \"Unknown\". - , v1ComponentConditionType :: !(Text) -- ^ /Required/ "type" - Type of condition for a component. Valid value: \"Healthy\" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ComponentCondition -instance A.FromJSON V1ComponentCondition where - parseJSON = A.withObject "V1ComponentCondition" $ \o -> - V1ComponentCondition - <$> (o .:? "error") - <*> (o .:? "message") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1ComponentCondition -instance A.ToJSON V1ComponentCondition where - toJSON V1ComponentCondition {..} = - _omitNulls - [ "error" .= v1ComponentConditionError - , "message" .= v1ComponentConditionMessage - , "status" .= v1ComponentConditionStatus - , "type" .= v1ComponentConditionType - ] - - --- | Construct a value of type 'V1ComponentCondition' (by applying it's required fields, if any) -mkV1ComponentCondition - :: Text -- ^ 'v1ComponentConditionStatus': Status of the condition for a component. Valid values for \"Healthy\": \"True\", \"False\", or \"Unknown\". - -> Text -- ^ 'v1ComponentConditionType': Type of condition for a component. Valid value: \"Healthy\" - -> V1ComponentCondition -mkV1ComponentCondition v1ComponentConditionStatus v1ComponentConditionType = - V1ComponentCondition - { v1ComponentConditionError = Nothing - , v1ComponentConditionMessage = Nothing - , v1ComponentConditionStatus - , v1ComponentConditionType - } - --- ** V1ComponentStatus --- | V1ComponentStatus --- ComponentStatus (and ComponentStatusList) holds the cluster validation info. Deprecated: This API is deprecated in v1.19+ -data V1ComponentStatus = V1ComponentStatus - { v1ComponentStatusApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ComponentStatusConditions :: !(Maybe [V1ComponentCondition]) -- ^ "conditions" - List of component conditions observed - , v1ComponentStatusKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ComponentStatusMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ComponentStatus -instance A.FromJSON V1ComponentStatus where - parseJSON = A.withObject "V1ComponentStatus" $ \o -> - V1ComponentStatus - <$> (o .:? "apiVersion") - <*> (o .:? "conditions") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ComponentStatus -instance A.ToJSON V1ComponentStatus where - toJSON V1ComponentStatus {..} = - _omitNulls - [ "apiVersion" .= v1ComponentStatusApiVersion - , "conditions" .= v1ComponentStatusConditions - , "kind" .= v1ComponentStatusKind - , "metadata" .= v1ComponentStatusMetadata - ] - - --- | Construct a value of type 'V1ComponentStatus' (by applying it's required fields, if any) -mkV1ComponentStatus - :: V1ComponentStatus -mkV1ComponentStatus = - V1ComponentStatus - { v1ComponentStatusApiVersion = Nothing - , v1ComponentStatusConditions = Nothing - , v1ComponentStatusKind = Nothing - , v1ComponentStatusMetadata = Nothing - } - --- ** V1ComponentStatusList --- | V1ComponentStatusList --- Status of all the conditions for the component as a list of ComponentStatus objects. Deprecated: This API is deprecated in v1.19+ -data V1ComponentStatusList = V1ComponentStatusList - { v1ComponentStatusListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ComponentStatusListItems :: !([V1ComponentStatus]) -- ^ /Required/ "items" - List of ComponentStatus objects. - , v1ComponentStatusListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ComponentStatusListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ComponentStatusList -instance A.FromJSON V1ComponentStatusList where - parseJSON = A.withObject "V1ComponentStatusList" $ \o -> - V1ComponentStatusList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ComponentStatusList -instance A.ToJSON V1ComponentStatusList where - toJSON V1ComponentStatusList {..} = - _omitNulls - [ "apiVersion" .= v1ComponentStatusListApiVersion - , "items" .= v1ComponentStatusListItems - , "kind" .= v1ComponentStatusListKind - , "metadata" .= v1ComponentStatusListMetadata - ] - - --- | Construct a value of type 'V1ComponentStatusList' (by applying it's required fields, if any) -mkV1ComponentStatusList - :: [V1ComponentStatus] -- ^ 'v1ComponentStatusListItems': List of ComponentStatus objects. - -> V1ComponentStatusList -mkV1ComponentStatusList v1ComponentStatusListItems = - V1ComponentStatusList - { v1ComponentStatusListApiVersion = Nothing - , v1ComponentStatusListItems - , v1ComponentStatusListKind = Nothing - , v1ComponentStatusListMetadata = Nothing - } - --- ** V1Condition --- | V1Condition --- Condition contains details for one aspect of the current state of this API Resource. -data V1Condition = V1Condition - { v1ConditionLastTransitionTime :: !(DateTime) -- ^ /Required/ "lastTransitionTime" - lastTransitionTime is the last time the condition transitioned from one status to another. This should be when the underlying condition changed. If that is not known, then using the time when the API field changed is acceptable. - , v1ConditionMessage :: !(Text) -- ^ /Required/ "message" - message is a human readable message indicating details about the transition. This may be an empty string. - , v1ConditionObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration represents the .metadata.generation that the condition was set based upon. For instance, if .metadata.generation is currently 12, but the .status.conditions[x].observedGeneration is 9, the condition is out of date with respect to the current state of the instance. - , v1ConditionReason :: !(Text) -- ^ /Required/ "reason" - reason contains a programmatic identifier indicating the reason for the condition's last transition. Producers of specific condition types may define expected values and meanings for this field, and whether the values are considered a guaranteed API. The value should be a CamelCase string. This field may not be empty. - , v1ConditionStatus :: !(Text) -- ^ /Required/ "status" - status of the condition, one of True, False, Unknown. - , v1ConditionType :: !(Text) -- ^ /Required/ "type" - type of condition in CamelCase or in foo.example.com/CamelCase. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Condition -instance A.FromJSON V1Condition where - parseJSON = A.withObject "V1Condition" $ \o -> - V1Condition - <$> (o .: "lastTransitionTime") - <*> (o .: "message") - <*> (o .:? "observedGeneration") - <*> (o .: "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1Condition -instance A.ToJSON V1Condition where - toJSON V1Condition {..} = - _omitNulls - [ "lastTransitionTime" .= v1ConditionLastTransitionTime - , "message" .= v1ConditionMessage - , "observedGeneration" .= v1ConditionObservedGeneration - , "reason" .= v1ConditionReason - , "status" .= v1ConditionStatus - , "type" .= v1ConditionType - ] - - --- | Construct a value of type 'V1Condition' (by applying it's required fields, if any) -mkV1Condition - :: DateTime -- ^ 'v1ConditionLastTransitionTime': lastTransitionTime is the last time the condition transitioned from one status to another. This should be when the underlying condition changed. If that is not known, then using the time when the API field changed is acceptable. - -> Text -- ^ 'v1ConditionMessage': message is a human readable message indicating details about the transition. This may be an empty string. - -> Text -- ^ 'v1ConditionReason': reason contains a programmatic identifier indicating the reason for the condition's last transition. Producers of specific condition types may define expected values and meanings for this field, and whether the values are considered a guaranteed API. The value should be a CamelCase string. This field may not be empty. - -> Text -- ^ 'v1ConditionStatus': status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1ConditionType': type of condition in CamelCase or in foo.example.com/CamelCase. - -> V1Condition -mkV1Condition v1ConditionLastTransitionTime v1ConditionMessage v1ConditionReason v1ConditionStatus v1ConditionType = - V1Condition - { v1ConditionLastTransitionTime - , v1ConditionMessage - , v1ConditionObservedGeneration = Nothing - , v1ConditionReason - , v1ConditionStatus - , v1ConditionType - } - --- ** V1ConfigMap --- | V1ConfigMap --- ConfigMap holds configuration data for pods to consume. -data V1ConfigMap = V1ConfigMap - { v1ConfigMapApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ConfigMapBinaryData :: !(Maybe (Map.Map String ByteArray)) -- ^ "binaryData" - BinaryData contains the binary data. Each key must consist of alphanumeric characters, '-', '_' or '.'. BinaryData can contain byte sequences that are not in the UTF-8 range. The keys stored in BinaryData must not overlap with the ones in the Data field, this is enforced during validation process. Using this field will require 1.10+ apiserver and kubelet. - , v1ConfigMapData :: !(Maybe (Map.Map String Text)) -- ^ "data" - Data contains the configuration data. Each key must consist of alphanumeric characters, '-', '_' or '.'. Values with non-UTF-8 byte sequences must use the BinaryData field. The keys stored in Data must not overlap with the keys in the BinaryData field, this is enforced during validation process. - , v1ConfigMapImmutable :: !(Maybe Bool) -- ^ "immutable" - Immutable, if set to true, ensures that data stored in the ConfigMap cannot be updated (only object metadata can be modified). If not set to true, the field can be modified at any time. Defaulted to nil. - , v1ConfigMapKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ConfigMapMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMap -instance A.FromJSON V1ConfigMap where - parseJSON = A.withObject "V1ConfigMap" $ \o -> - V1ConfigMap - <$> (o .:? "apiVersion") - <*> (o .:? "binaryData") - <*> (o .:? "data") - <*> (o .:? "immutable") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ConfigMap -instance A.ToJSON V1ConfigMap where - toJSON V1ConfigMap {..} = - _omitNulls - [ "apiVersion" .= v1ConfigMapApiVersion - , "binaryData" .= v1ConfigMapBinaryData - , "data" .= v1ConfigMapData - , "immutable" .= v1ConfigMapImmutable - , "kind" .= v1ConfigMapKind - , "metadata" .= v1ConfigMapMetadata - ] - - --- | Construct a value of type 'V1ConfigMap' (by applying it's required fields, if any) -mkV1ConfigMap - :: V1ConfigMap -mkV1ConfigMap = - V1ConfigMap - { v1ConfigMapApiVersion = Nothing - , v1ConfigMapBinaryData = Nothing - , v1ConfigMapData = Nothing - , v1ConfigMapImmutable = Nothing - , v1ConfigMapKind = Nothing - , v1ConfigMapMetadata = Nothing - } - --- ** V1ConfigMapEnvSource --- | V1ConfigMapEnvSource --- ConfigMapEnvSource selects a ConfigMap to populate the environment variables with. The contents of the target ConfigMap's Data field will represent the key-value pairs as environment variables. -data V1ConfigMapEnvSource = V1ConfigMapEnvSource - { v1ConfigMapEnvSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1ConfigMapEnvSourceOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the ConfigMap must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapEnvSource -instance A.FromJSON V1ConfigMapEnvSource where - parseJSON = A.withObject "V1ConfigMapEnvSource" $ \o -> - V1ConfigMapEnvSource - <$> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1ConfigMapEnvSource -instance A.ToJSON V1ConfigMapEnvSource where - toJSON V1ConfigMapEnvSource {..} = - _omitNulls - [ "name" .= v1ConfigMapEnvSourceName - , "optional" .= v1ConfigMapEnvSourceOptional - ] - - --- | Construct a value of type 'V1ConfigMapEnvSource' (by applying it's required fields, if any) -mkV1ConfigMapEnvSource - :: V1ConfigMapEnvSource -mkV1ConfigMapEnvSource = - V1ConfigMapEnvSource - { v1ConfigMapEnvSourceName = Nothing - , v1ConfigMapEnvSourceOptional = Nothing - } - --- ** V1ConfigMapKeySelector --- | V1ConfigMapKeySelector --- Selects a key from a ConfigMap. -data V1ConfigMapKeySelector = V1ConfigMapKeySelector - { v1ConfigMapKeySelectorKey :: !(Text) -- ^ /Required/ "key" - The key to select. - , v1ConfigMapKeySelectorName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1ConfigMapKeySelectorOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the ConfigMap or its key must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapKeySelector -instance A.FromJSON V1ConfigMapKeySelector where - parseJSON = A.withObject "V1ConfigMapKeySelector" $ \o -> - V1ConfigMapKeySelector - <$> (o .: "key") - <*> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1ConfigMapKeySelector -instance A.ToJSON V1ConfigMapKeySelector where - toJSON V1ConfigMapKeySelector {..} = - _omitNulls - [ "key" .= v1ConfigMapKeySelectorKey - , "name" .= v1ConfigMapKeySelectorName - , "optional" .= v1ConfigMapKeySelectorOptional - ] - - --- | Construct a value of type 'V1ConfigMapKeySelector' (by applying it's required fields, if any) -mkV1ConfigMapKeySelector - :: Text -- ^ 'v1ConfigMapKeySelectorKey': The key to select. - -> V1ConfigMapKeySelector -mkV1ConfigMapKeySelector v1ConfigMapKeySelectorKey = - V1ConfigMapKeySelector - { v1ConfigMapKeySelectorKey - , v1ConfigMapKeySelectorName = Nothing - , v1ConfigMapKeySelectorOptional = Nothing - } - --- ** V1ConfigMapList --- | V1ConfigMapList --- ConfigMapList is a resource containing a list of ConfigMap objects. -data V1ConfigMapList = V1ConfigMapList - { v1ConfigMapListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ConfigMapListItems :: !([V1ConfigMap]) -- ^ /Required/ "items" - Items is the list of ConfigMaps. - , v1ConfigMapListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ConfigMapListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapList -instance A.FromJSON V1ConfigMapList where - parseJSON = A.withObject "V1ConfigMapList" $ \o -> - V1ConfigMapList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ConfigMapList -instance A.ToJSON V1ConfigMapList where - toJSON V1ConfigMapList {..} = - _omitNulls - [ "apiVersion" .= v1ConfigMapListApiVersion - , "items" .= v1ConfigMapListItems - , "kind" .= v1ConfigMapListKind - , "metadata" .= v1ConfigMapListMetadata - ] - - --- | Construct a value of type 'V1ConfigMapList' (by applying it's required fields, if any) -mkV1ConfigMapList - :: [V1ConfigMap] -- ^ 'v1ConfigMapListItems': Items is the list of ConfigMaps. - -> V1ConfigMapList -mkV1ConfigMapList v1ConfigMapListItems = - V1ConfigMapList - { v1ConfigMapListApiVersion = Nothing - , v1ConfigMapListItems - , v1ConfigMapListKind = Nothing - , v1ConfigMapListMetadata = Nothing - } - --- ** V1ConfigMapNodeConfigSource --- | V1ConfigMapNodeConfigSource --- ConfigMapNodeConfigSource contains the information to reference a ConfigMap as a config source for the Node. This API is deprecated since 1.22: https://git.k8s.io/enhancements/keps/sig-node/281-dynamic-kubelet-configuration -data V1ConfigMapNodeConfigSource = V1ConfigMapNodeConfigSource - { v1ConfigMapNodeConfigSourceKubeletConfigKey :: !(Text) -- ^ /Required/ "kubeletConfigKey" - KubeletConfigKey declares which key of the referenced ConfigMap corresponds to the KubeletConfiguration structure This field is required in all cases. - , v1ConfigMapNodeConfigSourceName :: !(Text) -- ^ /Required/ "name" - Name is the metadata.name of the referenced ConfigMap. This field is required in all cases. - , v1ConfigMapNodeConfigSourceNamespace :: !(Text) -- ^ /Required/ "namespace" - Namespace is the metadata.namespace of the referenced ConfigMap. This field is required in all cases. - , v1ConfigMapNodeConfigSourceResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - ResourceVersion is the metadata.ResourceVersion of the referenced ConfigMap. This field is forbidden in Node.Spec, and required in Node.Status. - , v1ConfigMapNodeConfigSourceUid :: !(Maybe Text) -- ^ "uid" - UID is the metadata.UID of the referenced ConfigMap. This field is forbidden in Node.Spec, and required in Node.Status. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapNodeConfigSource -instance A.FromJSON V1ConfigMapNodeConfigSource where - parseJSON = A.withObject "V1ConfigMapNodeConfigSource" $ \o -> - V1ConfigMapNodeConfigSource - <$> (o .: "kubeletConfigKey") - <*> (o .: "name") - <*> (o .: "namespace") - <*> (o .:? "resourceVersion") - <*> (o .:? "uid") - --- | ToJSON V1ConfigMapNodeConfigSource -instance A.ToJSON V1ConfigMapNodeConfigSource where - toJSON V1ConfigMapNodeConfigSource {..} = - _omitNulls - [ "kubeletConfigKey" .= v1ConfigMapNodeConfigSourceKubeletConfigKey - , "name" .= v1ConfigMapNodeConfigSourceName - , "namespace" .= v1ConfigMapNodeConfigSourceNamespace - , "resourceVersion" .= v1ConfigMapNodeConfigSourceResourceVersion - , "uid" .= v1ConfigMapNodeConfigSourceUid - ] - - --- | Construct a value of type 'V1ConfigMapNodeConfigSource' (by applying it's required fields, if any) -mkV1ConfigMapNodeConfigSource - :: Text -- ^ 'v1ConfigMapNodeConfigSourceKubeletConfigKey': KubeletConfigKey declares which key of the referenced ConfigMap corresponds to the KubeletConfiguration structure This field is required in all cases. - -> Text -- ^ 'v1ConfigMapNodeConfigSourceName': Name is the metadata.name of the referenced ConfigMap. This field is required in all cases. - -> Text -- ^ 'v1ConfigMapNodeConfigSourceNamespace': Namespace is the metadata.namespace of the referenced ConfigMap. This field is required in all cases. - -> V1ConfigMapNodeConfigSource -mkV1ConfigMapNodeConfigSource v1ConfigMapNodeConfigSourceKubeletConfigKey v1ConfigMapNodeConfigSourceName v1ConfigMapNodeConfigSourceNamespace = - V1ConfigMapNodeConfigSource - { v1ConfigMapNodeConfigSourceKubeletConfigKey - , v1ConfigMapNodeConfigSourceName - , v1ConfigMapNodeConfigSourceNamespace - , v1ConfigMapNodeConfigSourceResourceVersion = Nothing - , v1ConfigMapNodeConfigSourceUid = Nothing - } - --- ** V1ConfigMapProjection --- | V1ConfigMapProjection --- Adapts a ConfigMap into a projected volume. The contents of the target ConfigMap's Data field will be presented in a projected volume as files using the keys in the Data field as the file names, unless the items element is populated with specific mappings of keys to paths. Note that this is identical to a configmap volume source without the default mode. -data V1ConfigMapProjection = V1ConfigMapProjection - { v1ConfigMapProjectionItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced ConfigMap will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the ConfigMap, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. - , v1ConfigMapProjectionName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1ConfigMapProjectionOptional :: !(Maybe Bool) -- ^ "optional" - optional specify whether the ConfigMap or its keys must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapProjection -instance A.FromJSON V1ConfigMapProjection where - parseJSON = A.withObject "V1ConfigMapProjection" $ \o -> - V1ConfigMapProjection - <$> (o .:? "items") - <*> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1ConfigMapProjection -instance A.ToJSON V1ConfigMapProjection where - toJSON V1ConfigMapProjection {..} = - _omitNulls - [ "items" .= v1ConfigMapProjectionItems - , "name" .= v1ConfigMapProjectionName - , "optional" .= v1ConfigMapProjectionOptional - ] - - --- | Construct a value of type 'V1ConfigMapProjection' (by applying it's required fields, if any) -mkV1ConfigMapProjection - :: V1ConfigMapProjection -mkV1ConfigMapProjection = - V1ConfigMapProjection - { v1ConfigMapProjectionItems = Nothing - , v1ConfigMapProjectionName = Nothing - , v1ConfigMapProjectionOptional = Nothing - } - --- ** V1ConfigMapVolumeSource --- | V1ConfigMapVolumeSource --- Adapts a ConfigMap into a volume. The contents of the target ConfigMap's Data field will be presented in a volume as files using the keys in the Data field as the file names, unless the items element is populated with specific mappings of keys to paths. ConfigMap volumes support ownership management and SELinux relabeling. -data V1ConfigMapVolumeSource = V1ConfigMapVolumeSource - { v1ConfigMapVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode is optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1ConfigMapVolumeSourceItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced ConfigMap will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the ConfigMap, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. - , v1ConfigMapVolumeSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1ConfigMapVolumeSourceOptional :: !(Maybe Bool) -- ^ "optional" - optional specify whether the ConfigMap or its keys must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ConfigMapVolumeSource -instance A.FromJSON V1ConfigMapVolumeSource where - parseJSON = A.withObject "V1ConfigMapVolumeSource" $ \o -> - V1ConfigMapVolumeSource - <$> (o .:? "defaultMode") - <*> (o .:? "items") - <*> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1ConfigMapVolumeSource -instance A.ToJSON V1ConfigMapVolumeSource where - toJSON V1ConfigMapVolumeSource {..} = - _omitNulls - [ "defaultMode" .= v1ConfigMapVolumeSourceDefaultMode - , "items" .= v1ConfigMapVolumeSourceItems - , "name" .= v1ConfigMapVolumeSourceName - , "optional" .= v1ConfigMapVolumeSourceOptional - ] - - --- | Construct a value of type 'V1ConfigMapVolumeSource' (by applying it's required fields, if any) -mkV1ConfigMapVolumeSource - :: V1ConfigMapVolumeSource -mkV1ConfigMapVolumeSource = - V1ConfigMapVolumeSource - { v1ConfigMapVolumeSourceDefaultMode = Nothing - , v1ConfigMapVolumeSourceItems = Nothing - , v1ConfigMapVolumeSourceName = Nothing - , v1ConfigMapVolumeSourceOptional = Nothing - } - --- ** V1Container --- | V1Container --- A single application container that you want to run within a pod. -data V1Container = V1Container - { v1ContainerArgs :: !(Maybe [Text]) -- ^ "args" - Arguments to the entrypoint. The container image's CMD is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell - , v1ContainerCommand :: !(Maybe [Text]) -- ^ "command" - Entrypoint array. Not executed within a shell. The container image's ENTRYPOINT is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell - , v1ContainerEnv :: !(Maybe [V1EnvVar]) -- ^ "env" - List of environment variables to set in the container. Cannot be updated. - , v1ContainerEnvFrom :: !(Maybe [V1EnvFromSource]) -- ^ "envFrom" - List of sources to populate environment variables in the container. The keys defined within a source must be a C_IDENTIFIER. All invalid keys will be reported as an event when the container is starting. When a key exists in multiple sources, the value associated with the last source will take precedence. Values defined by an Env with a duplicate key will take precedence. Cannot be updated. - , v1ContainerImage :: !(Maybe Text) -- ^ "image" - Container image name. More info: https://kubernetes.io/docs/concepts/containers/images This field is optional to allow higher level config management to default or override container images in workload controllers like Deployments and StatefulSets. - , v1ContainerImagePullPolicy :: !(Maybe Text) -- ^ "imagePullPolicy" - Image pull policy. One of Always, Never, IfNotPresent. Defaults to Always if :latest tag is specified, or IfNotPresent otherwise. Cannot be updated. More info: https://kubernetes.io/docs/concepts/containers/images#updating-images - , v1ContainerLifecycle :: !(Maybe V1Lifecycle) -- ^ "lifecycle" - , v1ContainerLivenessProbe :: !(Maybe V1Probe) -- ^ "livenessProbe" - , v1ContainerName :: !(Text) -- ^ /Required/ "name" - Name of the container specified as a DNS_LABEL. Each container in a pod must have a unique name (DNS_LABEL). Cannot be updated. - , v1ContainerPorts :: !(Maybe [V1ContainerPort]) -- ^ "ports" - List of ports to expose from the container. Not specifying a port here DOES NOT prevent that port from being exposed. Any port which is listening on the default \"0.0.0.0\" address inside a container will be accessible from the network. Modifying this array with strategic merge patch may corrupt the data. For more information See https://github.com/kubernetes/kubernetes/issues/108255. Cannot be updated. - , v1ContainerReadinessProbe :: !(Maybe V1Probe) -- ^ "readinessProbe" - , v1ContainerResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" - , v1ContainerSecurityContext :: !(Maybe V1SecurityContext) -- ^ "securityContext" - , v1ContainerStartupProbe :: !(Maybe V1Probe) -- ^ "startupProbe" - , v1ContainerStdin :: !(Maybe Bool) -- ^ "stdin" - Whether this container should allocate a buffer for stdin in the container runtime. If this is not set, reads from stdin in the container will always result in EOF. Default is false. - , v1ContainerStdinOnce :: !(Maybe Bool) -- ^ "stdinOnce" - Whether the container runtime should close the stdin channel after it has been opened by a single attach. When stdin is true the stdin stream will remain open across multiple attach sessions. If stdinOnce is set to true, stdin is opened on container start, is empty until the first client attaches to stdin, and then remains open and accepts data until the client disconnects, at which time stdin is closed and remains closed until the container is restarted. If this flag is false, a container processes that reads from stdin will never receive an EOF. Default is false - , v1ContainerTerminationMessagePath :: !(Maybe Text) -- ^ "terminationMessagePath" - Optional: Path at which the file to which the container's termination message will be written is mounted into the container's filesystem. Message written is intended to be brief final status, such as an assertion failure message. Will be truncated by the node if greater than 4096 bytes. The total message length across all containers will be limited to 12kb. Defaults to /dev/termination-log. Cannot be updated. - , v1ContainerTerminationMessagePolicy :: !(Maybe Text) -- ^ "terminationMessagePolicy" - Indicate how the termination message should be populated. File will use the contents of terminationMessagePath to populate the container status message on both success and failure. FallbackToLogsOnError will use the last chunk of container log output if the termination message file is empty and the container exited with an error. The log output is limited to 2048 bytes or 80 lines, whichever is smaller. Defaults to File. Cannot be updated. - , v1ContainerTty :: !(Maybe Bool) -- ^ "tty" - Whether this container should allocate a TTY for itself, also requires 'stdin' to be true. Default is false. - , v1ContainerVolumeDevices :: !(Maybe [V1VolumeDevice]) -- ^ "volumeDevices" - volumeDevices is the list of block devices to be used by the container. - , v1ContainerVolumeMounts :: !(Maybe [V1VolumeMount]) -- ^ "volumeMounts" - Pod volumes to mount into the container's filesystem. Cannot be updated. - , v1ContainerWorkingDir :: !(Maybe Text) -- ^ "workingDir" - Container's working directory. If not specified, the container runtime's default will be used, which might be configured in the container image. Cannot be updated. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Container -instance A.FromJSON V1Container where - parseJSON = A.withObject "V1Container" $ \o -> - V1Container - <$> (o .:? "args") - <*> (o .:? "command") - <*> (o .:? "env") - <*> (o .:? "envFrom") - <*> (o .:? "image") - <*> (o .:? "imagePullPolicy") - <*> (o .:? "lifecycle") - <*> (o .:? "livenessProbe") - <*> (o .: "name") - <*> (o .:? "ports") - <*> (o .:? "readinessProbe") - <*> (o .:? "resources") - <*> (o .:? "securityContext") - <*> (o .:? "startupProbe") - <*> (o .:? "stdin") - <*> (o .:? "stdinOnce") - <*> (o .:? "terminationMessagePath") - <*> (o .:? "terminationMessagePolicy") - <*> (o .:? "tty") - <*> (o .:? "volumeDevices") - <*> (o .:? "volumeMounts") - <*> (o .:? "workingDir") - --- | ToJSON V1Container -instance A.ToJSON V1Container where - toJSON V1Container {..} = - _omitNulls - [ "args" .= v1ContainerArgs - , "command" .= v1ContainerCommand - , "env" .= v1ContainerEnv - , "envFrom" .= v1ContainerEnvFrom - , "image" .= v1ContainerImage - , "imagePullPolicy" .= v1ContainerImagePullPolicy - , "lifecycle" .= v1ContainerLifecycle - , "livenessProbe" .= v1ContainerLivenessProbe - , "name" .= v1ContainerName - , "ports" .= v1ContainerPorts - , "readinessProbe" .= v1ContainerReadinessProbe - , "resources" .= v1ContainerResources - , "securityContext" .= v1ContainerSecurityContext - , "startupProbe" .= v1ContainerStartupProbe - , "stdin" .= v1ContainerStdin - , "stdinOnce" .= v1ContainerStdinOnce - , "terminationMessagePath" .= v1ContainerTerminationMessagePath - , "terminationMessagePolicy" .= v1ContainerTerminationMessagePolicy - , "tty" .= v1ContainerTty - , "volumeDevices" .= v1ContainerVolumeDevices - , "volumeMounts" .= v1ContainerVolumeMounts - , "workingDir" .= v1ContainerWorkingDir - ] - - --- | Construct a value of type 'V1Container' (by applying it's required fields, if any) -mkV1Container - :: Text -- ^ 'v1ContainerName': Name of the container specified as a DNS_LABEL. Each container in a pod must have a unique name (DNS_LABEL). Cannot be updated. - -> V1Container -mkV1Container v1ContainerName = - V1Container - { v1ContainerArgs = Nothing - , v1ContainerCommand = Nothing - , v1ContainerEnv = Nothing - , v1ContainerEnvFrom = Nothing - , v1ContainerImage = Nothing - , v1ContainerImagePullPolicy = Nothing - , v1ContainerLifecycle = Nothing - , v1ContainerLivenessProbe = Nothing - , v1ContainerName - , v1ContainerPorts = Nothing - , v1ContainerReadinessProbe = Nothing - , v1ContainerResources = Nothing - , v1ContainerSecurityContext = Nothing - , v1ContainerStartupProbe = Nothing - , v1ContainerStdin = Nothing - , v1ContainerStdinOnce = Nothing - , v1ContainerTerminationMessagePath = Nothing - , v1ContainerTerminationMessagePolicy = Nothing - , v1ContainerTty = Nothing - , v1ContainerVolumeDevices = Nothing - , v1ContainerVolumeMounts = Nothing - , v1ContainerWorkingDir = Nothing - } - --- ** V1ContainerImage --- | V1ContainerImage --- Describe a container image -data V1ContainerImage = V1ContainerImage - { v1ContainerImageNames :: !(Maybe [Text]) -- ^ "names" - Names by which this image is known. e.g. [\"kubernetes.example/hyperkube:v1.0.7\", \"cloud-vendor.registry.example/cloud-vendor/hyperkube:v1.0.7\"] - , v1ContainerImageSizeBytes :: !(Maybe Integer) -- ^ "sizeBytes" - The size of the image in bytes. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerImage -instance A.FromJSON V1ContainerImage where - parseJSON = A.withObject "V1ContainerImage" $ \o -> - V1ContainerImage - <$> (o .:? "names") - <*> (o .:? "sizeBytes") - --- | ToJSON V1ContainerImage -instance A.ToJSON V1ContainerImage where - toJSON V1ContainerImage {..} = - _omitNulls - [ "names" .= v1ContainerImageNames - , "sizeBytes" .= v1ContainerImageSizeBytes - ] - - --- | Construct a value of type 'V1ContainerImage' (by applying it's required fields, if any) -mkV1ContainerImage - :: V1ContainerImage -mkV1ContainerImage = - V1ContainerImage - { v1ContainerImageNames = Nothing - , v1ContainerImageSizeBytes = Nothing - } - --- ** V1ContainerPort --- | V1ContainerPort --- ContainerPort represents a network port in a single container. -data V1ContainerPort = V1ContainerPort - { v1ContainerPortContainerPort :: !(Int) -- ^ /Required/ "containerPort" - Number of port to expose on the pod's IP address. This must be a valid port number, 0 < x < 65536. - , v1ContainerPortHostIp :: !(Maybe Text) -- ^ "hostIP" - What host IP to bind the external port to. - , v1ContainerPortHostPort :: !(Maybe Int) -- ^ "hostPort" - Number of port to expose on the host. If specified, this must be a valid port number, 0 < x < 65536. If HostNetwork is specified, this must match ContainerPort. Most containers do not need this. - , v1ContainerPortName :: !(Maybe Text) -- ^ "name" - If specified, this must be an IANA_SVC_NAME and unique within the pod. Each named port in a pod must have a unique name. Name for the port that can be referred to by services. - , v1ContainerPortProtocol :: !(Maybe Text) -- ^ "protocol" - Protocol for port. Must be UDP, TCP, or SCTP. Defaults to \"TCP\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerPort -instance A.FromJSON V1ContainerPort where - parseJSON = A.withObject "V1ContainerPort" $ \o -> - V1ContainerPort - <$> (o .: "containerPort") - <*> (o .:? "hostIP") - <*> (o .:? "hostPort") - <*> (o .:? "name") - <*> (o .:? "protocol") - --- | ToJSON V1ContainerPort -instance A.ToJSON V1ContainerPort where - toJSON V1ContainerPort {..} = - _omitNulls - [ "containerPort" .= v1ContainerPortContainerPort - , "hostIP" .= v1ContainerPortHostIp - , "hostPort" .= v1ContainerPortHostPort - , "name" .= v1ContainerPortName - , "protocol" .= v1ContainerPortProtocol - ] - - --- | Construct a value of type 'V1ContainerPort' (by applying it's required fields, if any) -mkV1ContainerPort - :: Int -- ^ 'v1ContainerPortContainerPort': Number of port to expose on the pod's IP address. This must be a valid port number, 0 < x < 65536. - -> V1ContainerPort -mkV1ContainerPort v1ContainerPortContainerPort = - V1ContainerPort - { v1ContainerPortContainerPort - , v1ContainerPortHostIp = Nothing - , v1ContainerPortHostPort = Nothing - , v1ContainerPortName = Nothing - , v1ContainerPortProtocol = Nothing - } - --- ** V1ContainerState --- | V1ContainerState --- ContainerState holds a possible state of container. Only one of its members may be specified. If none of them is specified, the default one is ContainerStateWaiting. -data V1ContainerState = V1ContainerState - { v1ContainerStateRunning :: !(Maybe V1ContainerStateRunning) -- ^ "running" - , v1ContainerStateTerminated :: !(Maybe V1ContainerStateTerminated) -- ^ "terminated" - , v1ContainerStateWaiting :: !(Maybe V1ContainerStateWaiting) -- ^ "waiting" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerState -instance A.FromJSON V1ContainerState where - parseJSON = A.withObject "V1ContainerState" $ \o -> - V1ContainerState - <$> (o .:? "running") - <*> (o .:? "terminated") - <*> (o .:? "waiting") - --- | ToJSON V1ContainerState -instance A.ToJSON V1ContainerState where - toJSON V1ContainerState {..} = - _omitNulls - [ "running" .= v1ContainerStateRunning - , "terminated" .= v1ContainerStateTerminated - , "waiting" .= v1ContainerStateWaiting - ] - - --- | Construct a value of type 'V1ContainerState' (by applying it's required fields, if any) -mkV1ContainerState - :: V1ContainerState -mkV1ContainerState = - V1ContainerState - { v1ContainerStateRunning = Nothing - , v1ContainerStateTerminated = Nothing - , v1ContainerStateWaiting = Nothing - } - --- ** V1ContainerStateRunning --- | V1ContainerStateRunning --- ContainerStateRunning is a running state of a container. -data V1ContainerStateRunning = V1ContainerStateRunning - { v1ContainerStateRunningStartedAt :: !(Maybe DateTime) -- ^ "startedAt" - Time at which the container was last (re-)started - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerStateRunning -instance A.FromJSON V1ContainerStateRunning where - parseJSON = A.withObject "V1ContainerStateRunning" $ \o -> - V1ContainerStateRunning - <$> (o .:? "startedAt") - --- | ToJSON V1ContainerStateRunning -instance A.ToJSON V1ContainerStateRunning where - toJSON V1ContainerStateRunning {..} = - _omitNulls - [ "startedAt" .= v1ContainerStateRunningStartedAt - ] - - --- | Construct a value of type 'V1ContainerStateRunning' (by applying it's required fields, if any) -mkV1ContainerStateRunning - :: V1ContainerStateRunning -mkV1ContainerStateRunning = - V1ContainerStateRunning - { v1ContainerStateRunningStartedAt = Nothing - } - --- ** V1ContainerStateTerminated --- | V1ContainerStateTerminated --- ContainerStateTerminated is a terminated state of a container. -data V1ContainerStateTerminated = V1ContainerStateTerminated - { v1ContainerStateTerminatedContainerId :: !(Maybe Text) -- ^ "containerID" - Container's ID in the format '<type>://<container_id>' - , v1ContainerStateTerminatedExitCode :: !(Int) -- ^ /Required/ "exitCode" - Exit status from the last termination of the container - , v1ContainerStateTerminatedFinishedAt :: !(Maybe DateTime) -- ^ "finishedAt" - Time at which the container last terminated - , v1ContainerStateTerminatedMessage :: !(Maybe Text) -- ^ "message" - Message regarding the last termination of the container - , v1ContainerStateTerminatedReason :: !(Maybe Text) -- ^ "reason" - (brief) reason from the last termination of the container - , v1ContainerStateTerminatedSignal :: !(Maybe Int) -- ^ "signal" - Signal from the last termination of the container - , v1ContainerStateTerminatedStartedAt :: !(Maybe DateTime) -- ^ "startedAt" - Time at which previous execution of the container started - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerStateTerminated -instance A.FromJSON V1ContainerStateTerminated where - parseJSON = A.withObject "V1ContainerStateTerminated" $ \o -> - V1ContainerStateTerminated - <$> (o .:? "containerID") - <*> (o .: "exitCode") - <*> (o .:? "finishedAt") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .:? "signal") - <*> (o .:? "startedAt") - --- | ToJSON V1ContainerStateTerminated -instance A.ToJSON V1ContainerStateTerminated where - toJSON V1ContainerStateTerminated {..} = - _omitNulls - [ "containerID" .= v1ContainerStateTerminatedContainerId - , "exitCode" .= v1ContainerStateTerminatedExitCode - , "finishedAt" .= v1ContainerStateTerminatedFinishedAt - , "message" .= v1ContainerStateTerminatedMessage - , "reason" .= v1ContainerStateTerminatedReason - , "signal" .= v1ContainerStateTerminatedSignal - , "startedAt" .= v1ContainerStateTerminatedStartedAt - ] - - --- | Construct a value of type 'V1ContainerStateTerminated' (by applying it's required fields, if any) -mkV1ContainerStateTerminated - :: Int -- ^ 'v1ContainerStateTerminatedExitCode': Exit status from the last termination of the container - -> V1ContainerStateTerminated -mkV1ContainerStateTerminated v1ContainerStateTerminatedExitCode = - V1ContainerStateTerminated - { v1ContainerStateTerminatedContainerId = Nothing - , v1ContainerStateTerminatedExitCode - , v1ContainerStateTerminatedFinishedAt = Nothing - , v1ContainerStateTerminatedMessage = Nothing - , v1ContainerStateTerminatedReason = Nothing - , v1ContainerStateTerminatedSignal = Nothing - , v1ContainerStateTerminatedStartedAt = Nothing - } - --- ** V1ContainerStateWaiting --- | V1ContainerStateWaiting --- ContainerStateWaiting is a waiting state of a container. -data V1ContainerStateWaiting = V1ContainerStateWaiting - { v1ContainerStateWaitingMessage :: !(Maybe Text) -- ^ "message" - Message regarding why the container is not yet running. - , v1ContainerStateWaitingReason :: !(Maybe Text) -- ^ "reason" - (brief) reason the container is not yet running. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerStateWaiting -instance A.FromJSON V1ContainerStateWaiting where - parseJSON = A.withObject "V1ContainerStateWaiting" $ \o -> - V1ContainerStateWaiting - <$> (o .:? "message") - <*> (o .:? "reason") - --- | ToJSON V1ContainerStateWaiting -instance A.ToJSON V1ContainerStateWaiting where - toJSON V1ContainerStateWaiting {..} = - _omitNulls - [ "message" .= v1ContainerStateWaitingMessage - , "reason" .= v1ContainerStateWaitingReason - ] - - --- | Construct a value of type 'V1ContainerStateWaiting' (by applying it's required fields, if any) -mkV1ContainerStateWaiting - :: V1ContainerStateWaiting -mkV1ContainerStateWaiting = - V1ContainerStateWaiting - { v1ContainerStateWaitingMessage = Nothing - , v1ContainerStateWaitingReason = Nothing - } - --- ** V1ContainerStatus --- | V1ContainerStatus --- ContainerStatus contains details for the current status of this container. -data V1ContainerStatus = V1ContainerStatus - { v1ContainerStatusContainerId :: !(Maybe Text) -- ^ "containerID" - Container's ID in the format '<type>://<container_id>'. - , v1ContainerStatusImage :: !(Text) -- ^ /Required/ "image" - The image the container is running. More info: https://kubernetes.io/docs/concepts/containers/images. - , v1ContainerStatusImageId :: !(Text) -- ^ /Required/ "imageID" - ImageID of the container's image. - , v1ContainerStatusLastState :: !(Maybe V1ContainerState) -- ^ "lastState" - , v1ContainerStatusName :: !(Text) -- ^ /Required/ "name" - This must be a DNS_LABEL. Each container in a pod must have a unique name. Cannot be updated. - , v1ContainerStatusReady :: !(Bool) -- ^ /Required/ "ready" - Specifies whether the container has passed its readiness probe. - , v1ContainerStatusRestartCount :: !(Int) -- ^ /Required/ "restartCount" - The number of times the container has been restarted. - , v1ContainerStatusStarted :: !(Maybe Bool) -- ^ "started" - Specifies whether the container has passed its startup probe. Initialized as false, becomes true after startupProbe is considered successful. Resets to false when the container is restarted, or if kubelet loses state temporarily. Is always true when no startupProbe is defined. - , v1ContainerStatusState :: !(Maybe V1ContainerState) -- ^ "state" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ContainerStatus -instance A.FromJSON V1ContainerStatus where - parseJSON = A.withObject "V1ContainerStatus" $ \o -> - V1ContainerStatus - <$> (o .:? "containerID") - <*> (o .: "image") - <*> (o .: "imageID") - <*> (o .:? "lastState") - <*> (o .: "name") - <*> (o .: "ready") - <*> (o .: "restartCount") - <*> (o .:? "started") - <*> (o .:? "state") - --- | ToJSON V1ContainerStatus -instance A.ToJSON V1ContainerStatus where - toJSON V1ContainerStatus {..} = - _omitNulls - [ "containerID" .= v1ContainerStatusContainerId - , "image" .= v1ContainerStatusImage - , "imageID" .= v1ContainerStatusImageId - , "lastState" .= v1ContainerStatusLastState - , "name" .= v1ContainerStatusName - , "ready" .= v1ContainerStatusReady - , "restartCount" .= v1ContainerStatusRestartCount - , "started" .= v1ContainerStatusStarted - , "state" .= v1ContainerStatusState - ] - - --- | Construct a value of type 'V1ContainerStatus' (by applying it's required fields, if any) -mkV1ContainerStatus - :: Text -- ^ 'v1ContainerStatusImage': The image the container is running. More info: https://kubernetes.io/docs/concepts/containers/images. - -> Text -- ^ 'v1ContainerStatusImageId': ImageID of the container's image. - -> Text -- ^ 'v1ContainerStatusName': This must be a DNS_LABEL. Each container in a pod must have a unique name. Cannot be updated. - -> Bool -- ^ 'v1ContainerStatusReady': Specifies whether the container has passed its readiness probe. - -> Int -- ^ 'v1ContainerStatusRestartCount': The number of times the container has been restarted. - -> V1ContainerStatus -mkV1ContainerStatus v1ContainerStatusImage v1ContainerStatusImageId v1ContainerStatusName v1ContainerStatusReady v1ContainerStatusRestartCount = - V1ContainerStatus - { v1ContainerStatusContainerId = Nothing - , v1ContainerStatusImage - , v1ContainerStatusImageId - , v1ContainerStatusLastState = Nothing - , v1ContainerStatusName - , v1ContainerStatusReady - , v1ContainerStatusRestartCount - , v1ContainerStatusStarted = Nothing - , v1ContainerStatusState = Nothing - } - --- ** V1ControllerRevision --- | V1ControllerRevision --- ControllerRevision implements an immutable snapshot of state data. Clients are responsible for serializing and deserializing the objects that contain their internal state. Once a ControllerRevision has been successfully created, it can not be updated. The API Server will fail validation of all requests that attempt to mutate the Data field. ControllerRevisions may, however, be deleted. Note that, due to its use by both the DaemonSet and StatefulSet controllers for update and rollback, this object is beta. However, it may be subject to name and representation changes in future releases, and clients should not depend on its stability. It is primarily for internal use by controllers. -data V1ControllerRevision = V1ControllerRevision - { v1ControllerRevisionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ControllerRevisionData :: !(Maybe A.Value) -- ^ "data" - Data is the serialized representation of the state. - , v1ControllerRevisionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ControllerRevisionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ControllerRevisionRevision :: !(Integer) -- ^ /Required/ "revision" - Revision indicates the revision of the state represented by Data. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ControllerRevision -instance A.FromJSON V1ControllerRevision where - parseJSON = A.withObject "V1ControllerRevision" $ \o -> - V1ControllerRevision - <$> (o .:? "apiVersion") - <*> (o .:? "data") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "revision") - --- | ToJSON V1ControllerRevision -instance A.ToJSON V1ControllerRevision where - toJSON V1ControllerRevision {..} = - _omitNulls - [ "apiVersion" .= v1ControllerRevisionApiVersion - , "data" .= v1ControllerRevisionData - , "kind" .= v1ControllerRevisionKind - , "metadata" .= v1ControllerRevisionMetadata - , "revision" .= v1ControllerRevisionRevision - ] - - --- | Construct a value of type 'V1ControllerRevision' (by applying it's required fields, if any) -mkV1ControllerRevision - :: Integer -- ^ 'v1ControllerRevisionRevision': Revision indicates the revision of the state represented by Data. - -> V1ControllerRevision -mkV1ControllerRevision v1ControllerRevisionRevision = - V1ControllerRevision - { v1ControllerRevisionApiVersion = Nothing - , v1ControllerRevisionData = Nothing - , v1ControllerRevisionKind = Nothing - , v1ControllerRevisionMetadata = Nothing - , v1ControllerRevisionRevision - } - --- ** V1ControllerRevisionList --- | V1ControllerRevisionList --- ControllerRevisionList is a resource containing a list of ControllerRevision objects. -data V1ControllerRevisionList = V1ControllerRevisionList - { v1ControllerRevisionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ControllerRevisionListItems :: !([V1ControllerRevision]) -- ^ /Required/ "items" - Items is the list of ControllerRevisions - , v1ControllerRevisionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ControllerRevisionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ControllerRevisionList -instance A.FromJSON V1ControllerRevisionList where - parseJSON = A.withObject "V1ControllerRevisionList" $ \o -> - V1ControllerRevisionList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ControllerRevisionList -instance A.ToJSON V1ControllerRevisionList where - toJSON V1ControllerRevisionList {..} = - _omitNulls - [ "apiVersion" .= v1ControllerRevisionListApiVersion - , "items" .= v1ControllerRevisionListItems - , "kind" .= v1ControllerRevisionListKind - , "metadata" .= v1ControllerRevisionListMetadata - ] - - --- | Construct a value of type 'V1ControllerRevisionList' (by applying it's required fields, if any) -mkV1ControllerRevisionList - :: [V1ControllerRevision] -- ^ 'v1ControllerRevisionListItems': Items is the list of ControllerRevisions - -> V1ControllerRevisionList -mkV1ControllerRevisionList v1ControllerRevisionListItems = - V1ControllerRevisionList - { v1ControllerRevisionListApiVersion = Nothing - , v1ControllerRevisionListItems - , v1ControllerRevisionListKind = Nothing - , v1ControllerRevisionListMetadata = Nothing - } - --- ** V1CronJob --- | V1CronJob --- CronJob represents the configuration of a single cron job. -data V1CronJob = V1CronJob - { v1CronJobApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CronJobKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CronJobMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CronJobSpec :: !(Maybe V1CronJobSpec) -- ^ "spec" - , v1CronJobStatus :: !(Maybe V1CronJobStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CronJob -instance A.FromJSON V1CronJob where - parseJSON = A.withObject "V1CronJob" $ \o -> - V1CronJob - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1CronJob -instance A.ToJSON V1CronJob where - toJSON V1CronJob {..} = - _omitNulls - [ "apiVersion" .= v1CronJobApiVersion - , "kind" .= v1CronJobKind - , "metadata" .= v1CronJobMetadata - , "spec" .= v1CronJobSpec - , "status" .= v1CronJobStatus - ] - - --- | Construct a value of type 'V1CronJob' (by applying it's required fields, if any) -mkV1CronJob - :: V1CronJob -mkV1CronJob = - V1CronJob - { v1CronJobApiVersion = Nothing - , v1CronJobKind = Nothing - , v1CronJobMetadata = Nothing - , v1CronJobSpec = Nothing - , v1CronJobStatus = Nothing - } - --- ** V1CronJobList --- | V1CronJobList --- CronJobList is a collection of cron jobs. -data V1CronJobList = V1CronJobList - { v1CronJobListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CronJobListItems :: !([V1CronJob]) -- ^ /Required/ "items" - items is the list of CronJobs. - , v1CronJobListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CronJobListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CronJobList -instance A.FromJSON V1CronJobList where - parseJSON = A.withObject "V1CronJobList" $ \o -> - V1CronJobList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CronJobList -instance A.ToJSON V1CronJobList where - toJSON V1CronJobList {..} = - _omitNulls - [ "apiVersion" .= v1CronJobListApiVersion - , "items" .= v1CronJobListItems - , "kind" .= v1CronJobListKind - , "metadata" .= v1CronJobListMetadata - ] - - --- | Construct a value of type 'V1CronJobList' (by applying it's required fields, if any) -mkV1CronJobList - :: [V1CronJob] -- ^ 'v1CronJobListItems': items is the list of CronJobs. - -> V1CronJobList -mkV1CronJobList v1CronJobListItems = - V1CronJobList - { v1CronJobListApiVersion = Nothing - , v1CronJobListItems - , v1CronJobListKind = Nothing - , v1CronJobListMetadata = Nothing - } - --- ** V1CronJobSpec --- | V1CronJobSpec --- CronJobSpec describes how the job execution will look like and when it will actually run. -data V1CronJobSpec = V1CronJobSpec - { v1CronJobSpecConcurrencyPolicy :: !(Maybe Text) -- ^ "concurrencyPolicy" - Specifies how to treat concurrent executions of a Job. Valid values are: - \"Allow\" (default): allows CronJobs to run concurrently; - \"Forbid\": forbids concurrent runs, skipping next run if previous run hasn't finished yet; - \"Replace\": cancels currently running job and replaces it with a new one - , v1CronJobSpecFailedJobsHistoryLimit :: !(Maybe Int) -- ^ "failedJobsHistoryLimit" - The number of failed finished jobs to retain. Value must be non-negative integer. Defaults to 1. - , v1CronJobSpecJobTemplate :: !(V1JobTemplateSpec) -- ^ /Required/ "jobTemplate" - , v1CronJobSpecSchedule :: !(Text) -- ^ /Required/ "schedule" - The schedule in Cron format, see https://en.wikipedia.org/wiki/Cron. - , v1CronJobSpecStartingDeadlineSeconds :: !(Maybe Integer) -- ^ "startingDeadlineSeconds" - Optional deadline in seconds for starting the job if it misses scheduled time for any reason. Missed jobs executions will be counted as failed ones. - , v1CronJobSpecSuccessfulJobsHistoryLimit :: !(Maybe Int) -- ^ "successfulJobsHistoryLimit" - The number of successful finished jobs to retain. Value must be non-negative integer. Defaults to 3. - , v1CronJobSpecSuspend :: !(Maybe Bool) -- ^ "suspend" - This flag tells the controller to suspend subsequent executions, it does not apply to already started executions. Defaults to false. - , v1CronJobSpecTimeZone :: !(Maybe Text) -- ^ "timeZone" - The time zone name for the given schedule, see https://en.wikipedia.org/wiki/List_of_tz_database_time_zones. If not specified, this will default to the time zone of the kube-controller-manager process. The set of valid time zone names and the time zone offset is loaded from the system-wide time zone database by the API server during CronJob validation and the controller manager during execution. If no system-wide time zone database can be found a bundled version of the database is used instead. If the time zone name becomes invalid during the lifetime of a CronJob or due to a change in host configuration, the controller will stop creating new new Jobs and will create a system event with the reason UnknownTimeZone. More information can be found in https://kubernetes.io/docs/concepts/workloads/controllers/cron-jobs/#time-zones This is beta field and must be enabled via the `CronJobTimeZone` feature gate. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CronJobSpec -instance A.FromJSON V1CronJobSpec where - parseJSON = A.withObject "V1CronJobSpec" $ \o -> - V1CronJobSpec - <$> (o .:? "concurrencyPolicy") - <*> (o .:? "failedJobsHistoryLimit") - <*> (o .: "jobTemplate") - <*> (o .: "schedule") - <*> (o .:? "startingDeadlineSeconds") - <*> (o .:? "successfulJobsHistoryLimit") - <*> (o .:? "suspend") - <*> (o .:? "timeZone") - --- | ToJSON V1CronJobSpec -instance A.ToJSON V1CronJobSpec where - toJSON V1CronJobSpec {..} = - _omitNulls - [ "concurrencyPolicy" .= v1CronJobSpecConcurrencyPolicy - , "failedJobsHistoryLimit" .= v1CronJobSpecFailedJobsHistoryLimit - , "jobTemplate" .= v1CronJobSpecJobTemplate - , "schedule" .= v1CronJobSpecSchedule - , "startingDeadlineSeconds" .= v1CronJobSpecStartingDeadlineSeconds - , "successfulJobsHistoryLimit" .= v1CronJobSpecSuccessfulJobsHistoryLimit - , "suspend" .= v1CronJobSpecSuspend - , "timeZone" .= v1CronJobSpecTimeZone - ] - - --- | Construct a value of type 'V1CronJobSpec' (by applying it's required fields, if any) -mkV1CronJobSpec - :: V1JobTemplateSpec -- ^ 'v1CronJobSpecJobTemplate' - -> Text -- ^ 'v1CronJobSpecSchedule': The schedule in Cron format, see https://en.wikipedia.org/wiki/Cron. - -> V1CronJobSpec -mkV1CronJobSpec v1CronJobSpecJobTemplate v1CronJobSpecSchedule = - V1CronJobSpec - { v1CronJobSpecConcurrencyPolicy = Nothing - , v1CronJobSpecFailedJobsHistoryLimit = Nothing - , v1CronJobSpecJobTemplate - , v1CronJobSpecSchedule - , v1CronJobSpecStartingDeadlineSeconds = Nothing - , v1CronJobSpecSuccessfulJobsHistoryLimit = Nothing - , v1CronJobSpecSuspend = Nothing - , v1CronJobSpecTimeZone = Nothing - } - --- ** V1CronJobStatus --- | V1CronJobStatus --- CronJobStatus represents the current state of a cron job. -data V1CronJobStatus = V1CronJobStatus - { v1CronJobStatusActive :: !(Maybe [V1ObjectReference]) -- ^ "active" - A list of pointers to currently running jobs. - , v1CronJobStatusLastScheduleTime :: !(Maybe DateTime) -- ^ "lastScheduleTime" - Information when was the last time the job was successfully scheduled. - , v1CronJobStatusLastSuccessfulTime :: !(Maybe DateTime) -- ^ "lastSuccessfulTime" - Information when was the last time the job successfully completed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CronJobStatus -instance A.FromJSON V1CronJobStatus where - parseJSON = A.withObject "V1CronJobStatus" $ \o -> - V1CronJobStatus - <$> (o .:? "active") - <*> (o .:? "lastScheduleTime") - <*> (o .:? "lastSuccessfulTime") - --- | ToJSON V1CronJobStatus -instance A.ToJSON V1CronJobStatus where - toJSON V1CronJobStatus {..} = - _omitNulls - [ "active" .= v1CronJobStatusActive - , "lastScheduleTime" .= v1CronJobStatusLastScheduleTime - , "lastSuccessfulTime" .= v1CronJobStatusLastSuccessfulTime - ] - - --- | Construct a value of type 'V1CronJobStatus' (by applying it's required fields, if any) -mkV1CronJobStatus - :: V1CronJobStatus -mkV1CronJobStatus = - V1CronJobStatus - { v1CronJobStatusActive = Nothing - , v1CronJobStatusLastScheduleTime = Nothing - , v1CronJobStatusLastSuccessfulTime = Nothing - } - --- ** V1CrossVersionObjectReference --- | V1CrossVersionObjectReference --- CrossVersionObjectReference contains enough information to let you identify the referred resource. -data V1CrossVersionObjectReference = V1CrossVersionObjectReference - { v1CrossVersionObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent - , v1CrossVersionObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CrossVersionObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name of the referent; More info: http://kubernetes.io/docs/user-guide/identifiers#names - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CrossVersionObjectReference -instance A.FromJSON V1CrossVersionObjectReference where - parseJSON = A.withObject "V1CrossVersionObjectReference" $ \o -> - V1CrossVersionObjectReference - <$> (o .:? "apiVersion") - <*> (o .: "kind") - <*> (o .: "name") - --- | ToJSON V1CrossVersionObjectReference -instance A.ToJSON V1CrossVersionObjectReference where - toJSON V1CrossVersionObjectReference {..} = - _omitNulls - [ "apiVersion" .= v1CrossVersionObjectReferenceApiVersion - , "kind" .= v1CrossVersionObjectReferenceKind - , "name" .= v1CrossVersionObjectReferenceName - ] - - --- | Construct a value of type 'V1CrossVersionObjectReference' (by applying it's required fields, if any) -mkV1CrossVersionObjectReference - :: Text -- ^ 'v1CrossVersionObjectReferenceKind': Kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - -> Text -- ^ 'v1CrossVersionObjectReferenceName': Name of the referent; More info: http://kubernetes.io/docs/user-guide/identifiers#names - -> V1CrossVersionObjectReference -mkV1CrossVersionObjectReference v1CrossVersionObjectReferenceKind v1CrossVersionObjectReferenceName = - V1CrossVersionObjectReference - { v1CrossVersionObjectReferenceApiVersion = Nothing - , v1CrossVersionObjectReferenceKind - , v1CrossVersionObjectReferenceName - } - --- ** V1CustomResourceColumnDefinition --- | V1CustomResourceColumnDefinition --- CustomResourceColumnDefinition specifies a column for server side printing. -data V1CustomResourceColumnDefinition = V1CustomResourceColumnDefinition - { v1CustomResourceColumnDefinitionDescription :: !(Maybe Text) -- ^ "description" - description is a human readable description of this column. - , v1CustomResourceColumnDefinitionFormat :: !(Maybe Text) -- ^ "format" - format is an optional OpenAPI type definition for this column. The 'name' format is applied to the primary identifier column to assist in clients identifying column is the resource name. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. - , v1CustomResourceColumnDefinitionJsonPath :: !(Text) -- ^ /Required/ "jsonPath" - jsonPath is a simple JSON path (i.e. with array notation) which is evaluated against each custom resource to produce the value for this column. - , v1CustomResourceColumnDefinitionName :: !(Text) -- ^ /Required/ "name" - name is a human readable name for the column. - , v1CustomResourceColumnDefinitionPriority :: !(Maybe Int) -- ^ "priority" - priority is an integer defining the relative importance of this column compared to others. Lower numbers are considered higher priority. Columns that may be omitted in limited space scenarios should be given a priority greater than 0. - , v1CustomResourceColumnDefinitionType :: !(Text) -- ^ /Required/ "type" - type is an OpenAPI type definition for this column. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceColumnDefinition -instance A.FromJSON V1CustomResourceColumnDefinition where - parseJSON = A.withObject "V1CustomResourceColumnDefinition" $ \o -> - V1CustomResourceColumnDefinition - <$> (o .:? "description") - <*> (o .:? "format") - <*> (o .: "jsonPath") - <*> (o .: "name") - <*> (o .:? "priority") - <*> (o .: "type") - --- | ToJSON V1CustomResourceColumnDefinition -instance A.ToJSON V1CustomResourceColumnDefinition where - toJSON V1CustomResourceColumnDefinition {..} = - _omitNulls - [ "description" .= v1CustomResourceColumnDefinitionDescription - , "format" .= v1CustomResourceColumnDefinitionFormat - , "jsonPath" .= v1CustomResourceColumnDefinitionJsonPath - , "name" .= v1CustomResourceColumnDefinitionName - , "priority" .= v1CustomResourceColumnDefinitionPriority - , "type" .= v1CustomResourceColumnDefinitionType - ] - - --- | Construct a value of type 'V1CustomResourceColumnDefinition' (by applying it's required fields, if any) -mkV1CustomResourceColumnDefinition - :: Text -- ^ 'v1CustomResourceColumnDefinitionJsonPath': jsonPath is a simple JSON path (i.e. with array notation) which is evaluated against each custom resource to produce the value for this column. - -> Text -- ^ 'v1CustomResourceColumnDefinitionName': name is a human readable name for the column. - -> Text -- ^ 'v1CustomResourceColumnDefinitionType': type is an OpenAPI type definition for this column. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. - -> V1CustomResourceColumnDefinition -mkV1CustomResourceColumnDefinition v1CustomResourceColumnDefinitionJsonPath v1CustomResourceColumnDefinitionName v1CustomResourceColumnDefinitionType = - V1CustomResourceColumnDefinition - { v1CustomResourceColumnDefinitionDescription = Nothing - , v1CustomResourceColumnDefinitionFormat = Nothing - , v1CustomResourceColumnDefinitionJsonPath - , v1CustomResourceColumnDefinitionName - , v1CustomResourceColumnDefinitionPriority = Nothing - , v1CustomResourceColumnDefinitionType - } - --- ** V1CustomResourceConversion --- | V1CustomResourceConversion --- CustomResourceConversion describes how to convert different versions of a CR. -data V1CustomResourceConversion = V1CustomResourceConversion - { v1CustomResourceConversionStrategy :: !(Text) -- ^ /Required/ "strategy" - strategy specifies how custom resources are converted between versions. Allowed values are: - `None`: The converter only change the apiVersion and would not touch any other field in the custom resource. - `Webhook`: API Server will call to an external webhook to do the conversion. Additional information is needed for this option. This requires spec.preserveUnknownFields to be false, and spec.conversion.webhook to be set. - , v1CustomResourceConversionWebhook :: !(Maybe V1WebhookConversion) -- ^ "webhook" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceConversion -instance A.FromJSON V1CustomResourceConversion where - parseJSON = A.withObject "V1CustomResourceConversion" $ \o -> - V1CustomResourceConversion - <$> (o .: "strategy") - <*> (o .:? "webhook") - --- | ToJSON V1CustomResourceConversion -instance A.ToJSON V1CustomResourceConversion where - toJSON V1CustomResourceConversion {..} = - _omitNulls - [ "strategy" .= v1CustomResourceConversionStrategy - , "webhook" .= v1CustomResourceConversionWebhook - ] - - --- | Construct a value of type 'V1CustomResourceConversion' (by applying it's required fields, if any) -mkV1CustomResourceConversion - :: Text -- ^ 'v1CustomResourceConversionStrategy': strategy specifies how custom resources are converted between versions. Allowed values are: - `None`: The converter only change the apiVersion and would not touch any other field in the custom resource. - `Webhook`: API Server will call to an external webhook to do the conversion. Additional information is needed for this option. This requires spec.preserveUnknownFields to be false, and spec.conversion.webhook to be set. - -> V1CustomResourceConversion -mkV1CustomResourceConversion v1CustomResourceConversionStrategy = - V1CustomResourceConversion - { v1CustomResourceConversionStrategy - , v1CustomResourceConversionWebhook = Nothing - } - --- ** V1CustomResourceDefinition --- | V1CustomResourceDefinition --- CustomResourceDefinition represents a resource that should be exposed on the API server. Its name MUST be in the format <.spec.name>.<.spec.group>. -data V1CustomResourceDefinition = V1CustomResourceDefinition - { v1CustomResourceDefinitionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CustomResourceDefinitionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CustomResourceDefinitionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1CustomResourceDefinitionSpec :: !(V1CustomResourceDefinitionSpec) -- ^ /Required/ "spec" - , v1CustomResourceDefinitionStatus :: !(Maybe V1CustomResourceDefinitionStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinition -instance A.FromJSON V1CustomResourceDefinition where - parseJSON = A.withObject "V1CustomResourceDefinition" $ \o -> - V1CustomResourceDefinition - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1CustomResourceDefinition -instance A.ToJSON V1CustomResourceDefinition where - toJSON V1CustomResourceDefinition {..} = - _omitNulls - [ "apiVersion" .= v1CustomResourceDefinitionApiVersion - , "kind" .= v1CustomResourceDefinitionKind - , "metadata" .= v1CustomResourceDefinitionMetadata - , "spec" .= v1CustomResourceDefinitionSpec - , "status" .= v1CustomResourceDefinitionStatus - ] - - --- | Construct a value of type 'V1CustomResourceDefinition' (by applying it's required fields, if any) -mkV1CustomResourceDefinition - :: V1CustomResourceDefinitionSpec -- ^ 'v1CustomResourceDefinitionSpec' - -> V1CustomResourceDefinition -mkV1CustomResourceDefinition v1CustomResourceDefinitionSpec = - V1CustomResourceDefinition - { v1CustomResourceDefinitionApiVersion = Nothing - , v1CustomResourceDefinitionKind = Nothing - , v1CustomResourceDefinitionMetadata = Nothing - , v1CustomResourceDefinitionSpec - , v1CustomResourceDefinitionStatus = Nothing - } - --- ** V1CustomResourceDefinitionCondition --- | V1CustomResourceDefinitionCondition --- CustomResourceDefinitionCondition contains details for the current condition of this pod. -data V1CustomResourceDefinitionCondition = V1CustomResourceDefinitionCondition - { v1CustomResourceDefinitionConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime last time the condition transitioned from one status to another. - , v1CustomResourceDefinitionConditionMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable message indicating details about last transition. - , v1CustomResourceDefinitionConditionReason :: !(Maybe Text) -- ^ "reason" - reason is a unique, one-word, CamelCase reason for the condition's last transition. - , v1CustomResourceDefinitionConditionStatus :: !(Text) -- ^ /Required/ "status" - status is the status of the condition. Can be True, False, Unknown. - , v1CustomResourceDefinitionConditionType :: !(Text) -- ^ /Required/ "type" - type is the type of the condition. Types include Established, NamesAccepted and Terminating. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionCondition -instance A.FromJSON V1CustomResourceDefinitionCondition where - parseJSON = A.withObject "V1CustomResourceDefinitionCondition" $ \o -> - V1CustomResourceDefinitionCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1CustomResourceDefinitionCondition -instance A.ToJSON V1CustomResourceDefinitionCondition where - toJSON V1CustomResourceDefinitionCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1CustomResourceDefinitionConditionLastTransitionTime - , "message" .= v1CustomResourceDefinitionConditionMessage - , "reason" .= v1CustomResourceDefinitionConditionReason - , "status" .= v1CustomResourceDefinitionConditionStatus - , "type" .= v1CustomResourceDefinitionConditionType - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionCondition' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionCondition - :: Text -- ^ 'v1CustomResourceDefinitionConditionStatus': status is the status of the condition. Can be True, False, Unknown. - -> Text -- ^ 'v1CustomResourceDefinitionConditionType': type is the type of the condition. Types include Established, NamesAccepted and Terminating. - -> V1CustomResourceDefinitionCondition -mkV1CustomResourceDefinitionCondition v1CustomResourceDefinitionConditionStatus v1CustomResourceDefinitionConditionType = - V1CustomResourceDefinitionCondition - { v1CustomResourceDefinitionConditionLastTransitionTime = Nothing - , v1CustomResourceDefinitionConditionMessage = Nothing - , v1CustomResourceDefinitionConditionReason = Nothing - , v1CustomResourceDefinitionConditionStatus - , v1CustomResourceDefinitionConditionType - } - --- ** V1CustomResourceDefinitionList --- | V1CustomResourceDefinitionList --- CustomResourceDefinitionList is a list of CustomResourceDefinition objects. -data V1CustomResourceDefinitionList = V1CustomResourceDefinitionList - { v1CustomResourceDefinitionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1CustomResourceDefinitionListItems :: !([V1CustomResourceDefinition]) -- ^ /Required/ "items" - items list individual CustomResourceDefinition objects - , v1CustomResourceDefinitionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1CustomResourceDefinitionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionList -instance A.FromJSON V1CustomResourceDefinitionList where - parseJSON = A.withObject "V1CustomResourceDefinitionList" $ \o -> - V1CustomResourceDefinitionList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1CustomResourceDefinitionList -instance A.ToJSON V1CustomResourceDefinitionList where - toJSON V1CustomResourceDefinitionList {..} = - _omitNulls - [ "apiVersion" .= v1CustomResourceDefinitionListApiVersion - , "items" .= v1CustomResourceDefinitionListItems - , "kind" .= v1CustomResourceDefinitionListKind - , "metadata" .= v1CustomResourceDefinitionListMetadata - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionList' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionList - :: [V1CustomResourceDefinition] -- ^ 'v1CustomResourceDefinitionListItems': items list individual CustomResourceDefinition objects - -> V1CustomResourceDefinitionList -mkV1CustomResourceDefinitionList v1CustomResourceDefinitionListItems = - V1CustomResourceDefinitionList - { v1CustomResourceDefinitionListApiVersion = Nothing - , v1CustomResourceDefinitionListItems - , v1CustomResourceDefinitionListKind = Nothing - , v1CustomResourceDefinitionListMetadata = Nothing - } - --- ** V1CustomResourceDefinitionNames --- | V1CustomResourceDefinitionNames --- CustomResourceDefinitionNames indicates the names to serve this CustomResourceDefinition -data V1CustomResourceDefinitionNames = V1CustomResourceDefinitionNames - { v1CustomResourceDefinitionNamesCategories :: !(Maybe [Text]) -- ^ "categories" - categories is a list of grouped resources this custom resource belongs to (e.g. 'all'). This is published in API discovery documents, and used by clients to support invocations like `kubectl get all`. - , v1CustomResourceDefinitionNamesKind :: !(Text) -- ^ /Required/ "kind" - kind is the serialized kind of the resource. It is normally CamelCase and singular. Custom resource instances will use this value as the `kind` attribute in API calls. - , v1CustomResourceDefinitionNamesListKind :: !(Maybe Text) -- ^ "listKind" - listKind is the serialized kind of the list for this resource. Defaults to \"`kind`List\". - , v1CustomResourceDefinitionNamesPlural :: !(Text) -- ^ /Required/ "plural" - plural is the plural name of the resource to serve. The custom resources are served under `/apis/<group>/<version>/.../<plural>`. Must match the name of the CustomResourceDefinition (in the form `<names.plural>.<group>`). Must be all lowercase. - , v1CustomResourceDefinitionNamesShortNames :: !(Maybe [Text]) -- ^ "shortNames" - shortNames are short names for the resource, exposed in API discovery documents, and used by clients to support invocations like `kubectl get <shortname>`. It must be all lowercase. - , v1CustomResourceDefinitionNamesSingular :: !(Maybe Text) -- ^ "singular" - singular is the singular name of the resource. It must be all lowercase. Defaults to lowercased `kind`. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionNames -instance A.FromJSON V1CustomResourceDefinitionNames where - parseJSON = A.withObject "V1CustomResourceDefinitionNames" $ \o -> - V1CustomResourceDefinitionNames - <$> (o .:? "categories") - <*> (o .: "kind") - <*> (o .:? "listKind") - <*> (o .: "plural") - <*> (o .:? "shortNames") - <*> (o .:? "singular") - --- | ToJSON V1CustomResourceDefinitionNames -instance A.ToJSON V1CustomResourceDefinitionNames where - toJSON V1CustomResourceDefinitionNames {..} = - _omitNulls - [ "categories" .= v1CustomResourceDefinitionNamesCategories - , "kind" .= v1CustomResourceDefinitionNamesKind - , "listKind" .= v1CustomResourceDefinitionNamesListKind - , "plural" .= v1CustomResourceDefinitionNamesPlural - , "shortNames" .= v1CustomResourceDefinitionNamesShortNames - , "singular" .= v1CustomResourceDefinitionNamesSingular - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionNames' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionNames - :: Text -- ^ 'v1CustomResourceDefinitionNamesKind': kind is the serialized kind of the resource. It is normally CamelCase and singular. Custom resource instances will use this value as the `kind` attribute in API calls. - -> Text -- ^ 'v1CustomResourceDefinitionNamesPlural': plural is the plural name of the resource to serve. The custom resources are served under `/apis///.../`. Must match the name of the CustomResourceDefinition (in the form `.`). Must be all lowercase. - -> V1CustomResourceDefinitionNames -mkV1CustomResourceDefinitionNames v1CustomResourceDefinitionNamesKind v1CustomResourceDefinitionNamesPlural = - V1CustomResourceDefinitionNames - { v1CustomResourceDefinitionNamesCategories = Nothing - , v1CustomResourceDefinitionNamesKind - , v1CustomResourceDefinitionNamesListKind = Nothing - , v1CustomResourceDefinitionNamesPlural - , v1CustomResourceDefinitionNamesShortNames = Nothing - , v1CustomResourceDefinitionNamesSingular = Nothing - } - --- ** V1CustomResourceDefinitionSpec --- | V1CustomResourceDefinitionSpec --- CustomResourceDefinitionSpec describes how a user wants their resource to appear -data V1CustomResourceDefinitionSpec = V1CustomResourceDefinitionSpec - { v1CustomResourceDefinitionSpecConversion :: !(Maybe V1CustomResourceConversion) -- ^ "conversion" - , v1CustomResourceDefinitionSpecGroup :: !(Text) -- ^ /Required/ "group" - group is the API group of the defined custom resource. The custom resources are served under `/apis/<group>/...`. Must match the name of the CustomResourceDefinition (in the form `<names.plural>.<group>`). - , v1CustomResourceDefinitionSpecNames :: !(V1CustomResourceDefinitionNames) -- ^ /Required/ "names" - , v1CustomResourceDefinitionSpecPreserveUnknownFields :: !(Maybe Bool) -- ^ "preserveUnknownFields" - preserveUnknownFields indicates that object fields which are not specified in the OpenAPI schema should be preserved when persisting to storage. apiVersion, kind, metadata and known fields inside metadata are always preserved. This field is deprecated in favor of setting `x-preserve-unknown-fields` to true in `spec.versions[*].schema.openAPIV3Schema`. See https://kubernetes.io/docs/tasks/extend-kubernetes/custom-resources/custom-resource-definitions/#field-pruning for details. - , v1CustomResourceDefinitionSpecScope :: !(Text) -- ^ /Required/ "scope" - scope indicates whether the defined custom resource is cluster- or namespace-scoped. Allowed values are `Cluster` and `Namespaced`. - , v1CustomResourceDefinitionSpecVersions :: !([V1CustomResourceDefinitionVersion]) -- ^ /Required/ "versions" - versions is the list of all API versions of the defined custom resource. Version names are used to compute the order in which served versions are listed in API discovery. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionSpec -instance A.FromJSON V1CustomResourceDefinitionSpec where - parseJSON = A.withObject "V1CustomResourceDefinitionSpec" $ \o -> - V1CustomResourceDefinitionSpec - <$> (o .:? "conversion") - <*> (o .: "group") - <*> (o .: "names") - <*> (o .:? "preserveUnknownFields") - <*> (o .: "scope") - <*> (o .: "versions") - --- | ToJSON V1CustomResourceDefinitionSpec -instance A.ToJSON V1CustomResourceDefinitionSpec where - toJSON V1CustomResourceDefinitionSpec {..} = - _omitNulls - [ "conversion" .= v1CustomResourceDefinitionSpecConversion - , "group" .= v1CustomResourceDefinitionSpecGroup - , "names" .= v1CustomResourceDefinitionSpecNames - , "preserveUnknownFields" .= v1CustomResourceDefinitionSpecPreserveUnknownFields - , "scope" .= v1CustomResourceDefinitionSpecScope - , "versions" .= v1CustomResourceDefinitionSpecVersions - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionSpec' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionSpec - :: Text -- ^ 'v1CustomResourceDefinitionSpecGroup': group is the API group of the defined custom resource. The custom resources are served under `/apis//...`. Must match the name of the CustomResourceDefinition (in the form `.`). - -> V1CustomResourceDefinitionNames -- ^ 'v1CustomResourceDefinitionSpecNames' - -> Text -- ^ 'v1CustomResourceDefinitionSpecScope': scope indicates whether the defined custom resource is cluster- or namespace-scoped. Allowed values are `Cluster` and `Namespaced`. - -> [V1CustomResourceDefinitionVersion] -- ^ 'v1CustomResourceDefinitionSpecVersions': versions is the list of all API versions of the defined custom resource. Version names are used to compute the order in which served versions are listed in API discovery. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. - -> V1CustomResourceDefinitionSpec -mkV1CustomResourceDefinitionSpec v1CustomResourceDefinitionSpecGroup v1CustomResourceDefinitionSpecNames v1CustomResourceDefinitionSpecScope v1CustomResourceDefinitionSpecVersions = - V1CustomResourceDefinitionSpec - { v1CustomResourceDefinitionSpecConversion = Nothing - , v1CustomResourceDefinitionSpecGroup - , v1CustomResourceDefinitionSpecNames - , v1CustomResourceDefinitionSpecPreserveUnknownFields = Nothing - , v1CustomResourceDefinitionSpecScope - , v1CustomResourceDefinitionSpecVersions - } - --- ** V1CustomResourceDefinitionStatus --- | V1CustomResourceDefinitionStatus --- CustomResourceDefinitionStatus indicates the state of the CustomResourceDefinition -data V1CustomResourceDefinitionStatus = V1CustomResourceDefinitionStatus - { v1CustomResourceDefinitionStatusAcceptedNames :: !(Maybe V1CustomResourceDefinitionNames) -- ^ "acceptedNames" - , v1CustomResourceDefinitionStatusConditions :: !(Maybe [V1CustomResourceDefinitionCondition]) -- ^ "conditions" - conditions indicate state for particular aspects of a CustomResourceDefinition - , v1CustomResourceDefinitionStatusStoredVersions :: !(Maybe [Text]) -- ^ "storedVersions" - storedVersions lists all versions of CustomResources that were ever persisted. Tracking these versions allows a migration path for stored versions in etcd. The field is mutable so a migration controller can finish a migration to another version (ensuring no old objects are left in storage), and then remove the rest of the versions from this list. Versions may not be removed from `spec.versions` while they exist in this list. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionStatus -instance A.FromJSON V1CustomResourceDefinitionStatus where - parseJSON = A.withObject "V1CustomResourceDefinitionStatus" $ \o -> - V1CustomResourceDefinitionStatus - <$> (o .:? "acceptedNames") - <*> (o .:? "conditions") - <*> (o .:? "storedVersions") - --- | ToJSON V1CustomResourceDefinitionStatus -instance A.ToJSON V1CustomResourceDefinitionStatus where - toJSON V1CustomResourceDefinitionStatus {..} = - _omitNulls - [ "acceptedNames" .= v1CustomResourceDefinitionStatusAcceptedNames - , "conditions" .= v1CustomResourceDefinitionStatusConditions - , "storedVersions" .= v1CustomResourceDefinitionStatusStoredVersions - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionStatus' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionStatus - :: V1CustomResourceDefinitionStatus -mkV1CustomResourceDefinitionStatus = - V1CustomResourceDefinitionStatus - { v1CustomResourceDefinitionStatusAcceptedNames = Nothing - , v1CustomResourceDefinitionStatusConditions = Nothing - , v1CustomResourceDefinitionStatusStoredVersions = Nothing - } - --- ** V1CustomResourceDefinitionVersion --- | V1CustomResourceDefinitionVersion --- CustomResourceDefinitionVersion describes a version for CRD. -data V1CustomResourceDefinitionVersion = V1CustomResourceDefinitionVersion - { v1CustomResourceDefinitionVersionAdditionalPrinterColumns :: !(Maybe [V1CustomResourceColumnDefinition]) -- ^ "additionalPrinterColumns" - additionalPrinterColumns specifies additional columns returned in Table output. See https://kubernetes.io/docs/reference/using-api/api-concepts/#receiving-resources-as-tables for details. If no columns are specified, a single column displaying the age of the custom resource is used. - , v1CustomResourceDefinitionVersionDeprecated :: !(Maybe Bool) -- ^ "deprecated" - deprecated indicates this version of the custom resource API is deprecated. When set to true, API requests to this version receive a warning header in the server response. Defaults to false. - , v1CustomResourceDefinitionVersionDeprecationWarning :: !(Maybe Text) -- ^ "deprecationWarning" - deprecationWarning overrides the default warning returned to API clients. May only be set when `deprecated` is true. The default warning indicates this version is deprecated and recommends use of the newest served version of equal or greater stability, if one exists. - , v1CustomResourceDefinitionVersionName :: !(Text) -- ^ /Required/ "name" - name is the version name, e.g. “v1”, “v2beta1”, etc. The custom resources are served under this version at `/apis/<group>/<version>/...` if `served` is true. - , v1CustomResourceDefinitionVersionSchema :: !(Maybe V1CustomResourceValidation) -- ^ "schema" - , v1CustomResourceDefinitionVersionServed :: !(Bool) -- ^ /Required/ "served" - served is a flag enabling/disabling this version from being served via REST APIs - , v1CustomResourceDefinitionVersionStorage :: !(Bool) -- ^ /Required/ "storage" - storage indicates this version should be used when persisting custom resources to storage. There must be exactly one version with storage=true. - , v1CustomResourceDefinitionVersionSubresources :: !(Maybe V1CustomResourceSubresources) -- ^ "subresources" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceDefinitionVersion -instance A.FromJSON V1CustomResourceDefinitionVersion where - parseJSON = A.withObject "V1CustomResourceDefinitionVersion" $ \o -> - V1CustomResourceDefinitionVersion - <$> (o .:? "additionalPrinterColumns") - <*> (o .:? "deprecated") - <*> (o .:? "deprecationWarning") - <*> (o .: "name") - <*> (o .:? "schema") - <*> (o .: "served") - <*> (o .: "storage") - <*> (o .:? "subresources") - --- | ToJSON V1CustomResourceDefinitionVersion -instance A.ToJSON V1CustomResourceDefinitionVersion where - toJSON V1CustomResourceDefinitionVersion {..} = - _omitNulls - [ "additionalPrinterColumns" .= v1CustomResourceDefinitionVersionAdditionalPrinterColumns - , "deprecated" .= v1CustomResourceDefinitionVersionDeprecated - , "deprecationWarning" .= v1CustomResourceDefinitionVersionDeprecationWarning - , "name" .= v1CustomResourceDefinitionVersionName - , "schema" .= v1CustomResourceDefinitionVersionSchema - , "served" .= v1CustomResourceDefinitionVersionServed - , "storage" .= v1CustomResourceDefinitionVersionStorage - , "subresources" .= v1CustomResourceDefinitionVersionSubresources - ] - - --- | Construct a value of type 'V1CustomResourceDefinitionVersion' (by applying it's required fields, if any) -mkV1CustomResourceDefinitionVersion - :: Text -- ^ 'v1CustomResourceDefinitionVersionName': name is the version name, e.g. “v1”, “v2beta1”, etc. The custom resources are served under this version at `/apis///...` if `served` is true. - -> Bool -- ^ 'v1CustomResourceDefinitionVersionServed': served is a flag enabling/disabling this version from being served via REST APIs - -> Bool -- ^ 'v1CustomResourceDefinitionVersionStorage': storage indicates this version should be used when persisting custom resources to storage. There must be exactly one version with storage=true. - -> V1CustomResourceDefinitionVersion -mkV1CustomResourceDefinitionVersion v1CustomResourceDefinitionVersionName v1CustomResourceDefinitionVersionServed v1CustomResourceDefinitionVersionStorage = - V1CustomResourceDefinitionVersion - { v1CustomResourceDefinitionVersionAdditionalPrinterColumns = Nothing - , v1CustomResourceDefinitionVersionDeprecated = Nothing - , v1CustomResourceDefinitionVersionDeprecationWarning = Nothing - , v1CustomResourceDefinitionVersionName - , v1CustomResourceDefinitionVersionSchema = Nothing - , v1CustomResourceDefinitionVersionServed - , v1CustomResourceDefinitionVersionStorage - , v1CustomResourceDefinitionVersionSubresources = Nothing - } - --- ** V1CustomResourceSubresourceScale --- | V1CustomResourceSubresourceScale --- CustomResourceSubresourceScale defines how to serve the scale subresource for CustomResources. -data V1CustomResourceSubresourceScale = V1CustomResourceSubresourceScale - { v1CustomResourceSubresourceScaleLabelSelectorPath :: !(Maybe Text) -- ^ "labelSelectorPath" - labelSelectorPath defines the JSON path inside of a custom resource that corresponds to Scale `status.selector`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status` or `.spec`. Must be set to work with HorizontalPodAutoscaler. The field pointed by this JSON path must be a string field (not a complex selector struct) which contains a serialized label selector in string form. More info: https://kubernetes.io/docs/tasks/access-kubernetes-api/custom-resources/custom-resource-definitions#scale-subresource If there is no value under the given path in the custom resource, the `status.selector` value in the `/scale` subresource will default to the empty string. - , v1CustomResourceSubresourceScaleSpecReplicasPath :: !(Text) -- ^ /Required/ "specReplicasPath" - specReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `spec.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.spec`. If there is no value under the given path in the custom resource, the `/scale` subresource will return an error on GET. - , v1CustomResourceSubresourceScaleStatusReplicasPath :: !(Text) -- ^ /Required/ "statusReplicasPath" - statusReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `status.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status`. If there is no value under the given path in the custom resource, the `status.replicas` value in the `/scale` subresource will default to 0. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceSubresourceScale -instance A.FromJSON V1CustomResourceSubresourceScale where - parseJSON = A.withObject "V1CustomResourceSubresourceScale" $ \o -> - V1CustomResourceSubresourceScale - <$> (o .:? "labelSelectorPath") - <*> (o .: "specReplicasPath") - <*> (o .: "statusReplicasPath") - --- | ToJSON V1CustomResourceSubresourceScale -instance A.ToJSON V1CustomResourceSubresourceScale where - toJSON V1CustomResourceSubresourceScale {..} = - _omitNulls - [ "labelSelectorPath" .= v1CustomResourceSubresourceScaleLabelSelectorPath - , "specReplicasPath" .= v1CustomResourceSubresourceScaleSpecReplicasPath - , "statusReplicasPath" .= v1CustomResourceSubresourceScaleStatusReplicasPath - ] - - --- | Construct a value of type 'V1CustomResourceSubresourceScale' (by applying it's required fields, if any) -mkV1CustomResourceSubresourceScale - :: Text -- ^ 'v1CustomResourceSubresourceScaleSpecReplicasPath': specReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `spec.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.spec`. If there is no value under the given path in the custom resource, the `/scale` subresource will return an error on GET. - -> Text -- ^ 'v1CustomResourceSubresourceScaleStatusReplicasPath': statusReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `status.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status`. If there is no value under the given path in the custom resource, the `status.replicas` value in the `/scale` subresource will default to 0. - -> V1CustomResourceSubresourceScale -mkV1CustomResourceSubresourceScale v1CustomResourceSubresourceScaleSpecReplicasPath v1CustomResourceSubresourceScaleStatusReplicasPath = - V1CustomResourceSubresourceScale - { v1CustomResourceSubresourceScaleLabelSelectorPath = Nothing - , v1CustomResourceSubresourceScaleSpecReplicasPath - , v1CustomResourceSubresourceScaleStatusReplicasPath - } - --- ** V1CustomResourceSubresources --- | V1CustomResourceSubresources --- CustomResourceSubresources defines the status and scale subresources for CustomResources. -data V1CustomResourceSubresources = V1CustomResourceSubresources - { v1CustomResourceSubresourcesScale :: !(Maybe V1CustomResourceSubresourceScale) -- ^ "scale" - , v1CustomResourceSubresourcesStatus :: !(Maybe A.Value) -- ^ "status" - status indicates the custom resource should serve a `/status` subresource. When enabled: 1. requests to the custom resource primary endpoint ignore changes to the `status` stanza of the object. 2. requests to the custom resource `/status` subresource ignore changes to anything other than the `status` stanza of the object. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceSubresources -instance A.FromJSON V1CustomResourceSubresources where - parseJSON = A.withObject "V1CustomResourceSubresources" $ \o -> - V1CustomResourceSubresources - <$> (o .:? "scale") - <*> (o .:? "status") - --- | ToJSON V1CustomResourceSubresources -instance A.ToJSON V1CustomResourceSubresources where - toJSON V1CustomResourceSubresources {..} = - _omitNulls - [ "scale" .= v1CustomResourceSubresourcesScale - , "status" .= v1CustomResourceSubresourcesStatus - ] - - --- | Construct a value of type 'V1CustomResourceSubresources' (by applying it's required fields, if any) -mkV1CustomResourceSubresources - :: V1CustomResourceSubresources -mkV1CustomResourceSubresources = - V1CustomResourceSubresources - { v1CustomResourceSubresourcesScale = Nothing - , v1CustomResourceSubresourcesStatus = Nothing - } - --- ** V1CustomResourceValidation --- | V1CustomResourceValidation --- CustomResourceValidation is a list of validation methods for CustomResources. -data V1CustomResourceValidation = V1CustomResourceValidation - { v1CustomResourceValidationOpenApiv3Schema :: !(Maybe V1JSONSchemaProps) -- ^ "openAPIV3Schema" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1CustomResourceValidation -instance A.FromJSON V1CustomResourceValidation where - parseJSON = A.withObject "V1CustomResourceValidation" $ \o -> - V1CustomResourceValidation - <$> (o .:? "openAPIV3Schema") - --- | ToJSON V1CustomResourceValidation -instance A.ToJSON V1CustomResourceValidation where - toJSON V1CustomResourceValidation {..} = - _omitNulls - [ "openAPIV3Schema" .= v1CustomResourceValidationOpenApiv3Schema - ] - - --- | Construct a value of type 'V1CustomResourceValidation' (by applying it's required fields, if any) -mkV1CustomResourceValidation - :: V1CustomResourceValidation -mkV1CustomResourceValidation = - V1CustomResourceValidation - { v1CustomResourceValidationOpenApiv3Schema = Nothing - } - --- ** V1DaemonEndpoint --- | V1DaemonEndpoint --- DaemonEndpoint contains information about a single Daemon endpoint. -data V1DaemonEndpoint = V1DaemonEndpoint - { v1DaemonEndpointPort :: !(Int) -- ^ /Required/ "Port" - Port number of the given endpoint. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonEndpoint -instance A.FromJSON V1DaemonEndpoint where - parseJSON = A.withObject "V1DaemonEndpoint" $ \o -> - V1DaemonEndpoint - <$> (o .: "Port") - --- | ToJSON V1DaemonEndpoint -instance A.ToJSON V1DaemonEndpoint where - toJSON V1DaemonEndpoint {..} = - _omitNulls - [ "Port" .= v1DaemonEndpointPort - ] - - --- | Construct a value of type 'V1DaemonEndpoint' (by applying it's required fields, if any) -mkV1DaemonEndpoint - :: Int -- ^ 'v1DaemonEndpointPort': Port number of the given endpoint. - -> V1DaemonEndpoint -mkV1DaemonEndpoint v1DaemonEndpointPort = - V1DaemonEndpoint - { v1DaemonEndpointPort - } - --- ** V1DaemonSet --- | V1DaemonSet --- DaemonSet represents the configuration of a daemon set. -data V1DaemonSet = V1DaemonSet - { v1DaemonSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1DaemonSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1DaemonSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1DaemonSetSpec :: !(Maybe V1DaemonSetSpec) -- ^ "spec" - , v1DaemonSetStatus :: !(Maybe V1DaemonSetStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSet -instance A.FromJSON V1DaemonSet where - parseJSON = A.withObject "V1DaemonSet" $ \o -> - V1DaemonSet - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1DaemonSet -instance A.ToJSON V1DaemonSet where - toJSON V1DaemonSet {..} = - _omitNulls - [ "apiVersion" .= v1DaemonSetApiVersion - , "kind" .= v1DaemonSetKind - , "metadata" .= v1DaemonSetMetadata - , "spec" .= v1DaemonSetSpec - , "status" .= v1DaemonSetStatus - ] - - --- | Construct a value of type 'V1DaemonSet' (by applying it's required fields, if any) -mkV1DaemonSet - :: V1DaemonSet -mkV1DaemonSet = - V1DaemonSet - { v1DaemonSetApiVersion = Nothing - , v1DaemonSetKind = Nothing - , v1DaemonSetMetadata = Nothing - , v1DaemonSetSpec = Nothing - , v1DaemonSetStatus = Nothing - } - --- ** V1DaemonSetCondition --- | V1DaemonSetCondition --- DaemonSetCondition describes the state of a DaemonSet at a certain point. -data V1DaemonSetCondition = V1DaemonSetCondition - { v1DaemonSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1DaemonSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1DaemonSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. - , v1DaemonSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1DaemonSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of DaemonSet condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSetCondition -instance A.FromJSON V1DaemonSetCondition where - parseJSON = A.withObject "V1DaemonSetCondition" $ \o -> - V1DaemonSetCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1DaemonSetCondition -instance A.ToJSON V1DaemonSetCondition where - toJSON V1DaemonSetCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1DaemonSetConditionLastTransitionTime - , "message" .= v1DaemonSetConditionMessage - , "reason" .= v1DaemonSetConditionReason - , "status" .= v1DaemonSetConditionStatus - , "type" .= v1DaemonSetConditionType - ] - - --- | Construct a value of type 'V1DaemonSetCondition' (by applying it's required fields, if any) -mkV1DaemonSetCondition - :: Text -- ^ 'v1DaemonSetConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1DaemonSetConditionType': Type of DaemonSet condition. - -> V1DaemonSetCondition -mkV1DaemonSetCondition v1DaemonSetConditionStatus v1DaemonSetConditionType = - V1DaemonSetCondition - { v1DaemonSetConditionLastTransitionTime = Nothing - , v1DaemonSetConditionMessage = Nothing - , v1DaemonSetConditionReason = Nothing - , v1DaemonSetConditionStatus - , v1DaemonSetConditionType - } - --- ** V1DaemonSetList --- | V1DaemonSetList --- DaemonSetList is a collection of daemon sets. -data V1DaemonSetList = V1DaemonSetList - { v1DaemonSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1DaemonSetListItems :: !([V1DaemonSet]) -- ^ /Required/ "items" - A list of daemon sets. - , v1DaemonSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1DaemonSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSetList -instance A.FromJSON V1DaemonSetList where - parseJSON = A.withObject "V1DaemonSetList" $ \o -> - V1DaemonSetList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1DaemonSetList -instance A.ToJSON V1DaemonSetList where - toJSON V1DaemonSetList {..} = - _omitNulls - [ "apiVersion" .= v1DaemonSetListApiVersion - , "items" .= v1DaemonSetListItems - , "kind" .= v1DaemonSetListKind - , "metadata" .= v1DaemonSetListMetadata - ] - - --- | Construct a value of type 'V1DaemonSetList' (by applying it's required fields, if any) -mkV1DaemonSetList - :: [V1DaemonSet] -- ^ 'v1DaemonSetListItems': A list of daemon sets. - -> V1DaemonSetList -mkV1DaemonSetList v1DaemonSetListItems = - V1DaemonSetList - { v1DaemonSetListApiVersion = Nothing - , v1DaemonSetListItems - , v1DaemonSetListKind = Nothing - , v1DaemonSetListMetadata = Nothing - } - --- ** V1DaemonSetSpec --- | V1DaemonSetSpec --- DaemonSetSpec is the specification of a daemon set. -data V1DaemonSetSpec = V1DaemonSetSpec - { v1DaemonSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - The minimum number of seconds for which a newly created DaemonSet pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready). - , v1DaemonSetSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - The number of old history to retain to allow rollback. This is a pointer to distinguish between explicit zero and not specified. Defaults to 10. - , v1DaemonSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" - , v1DaemonSetSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" - , v1DaemonSetSpecUpdateStrategy :: !(Maybe V1DaemonSetUpdateStrategy) -- ^ "updateStrategy" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSetSpec -instance A.FromJSON V1DaemonSetSpec where - parseJSON = A.withObject "V1DaemonSetSpec" $ \o -> - V1DaemonSetSpec - <$> (o .:? "minReadySeconds") - <*> (o .:? "revisionHistoryLimit") - <*> (o .: "selector") - <*> (o .: "template") - <*> (o .:? "updateStrategy") - --- | ToJSON V1DaemonSetSpec -instance A.ToJSON V1DaemonSetSpec where - toJSON V1DaemonSetSpec {..} = - _omitNulls - [ "minReadySeconds" .= v1DaemonSetSpecMinReadySeconds - , "revisionHistoryLimit" .= v1DaemonSetSpecRevisionHistoryLimit - , "selector" .= v1DaemonSetSpecSelector - , "template" .= v1DaemonSetSpecTemplate - , "updateStrategy" .= v1DaemonSetSpecUpdateStrategy - ] - - --- | Construct a value of type 'V1DaemonSetSpec' (by applying it's required fields, if any) -mkV1DaemonSetSpec - :: V1LabelSelector -- ^ 'v1DaemonSetSpecSelector' - -> V1PodTemplateSpec -- ^ 'v1DaemonSetSpecTemplate' - -> V1DaemonSetSpec -mkV1DaemonSetSpec v1DaemonSetSpecSelector v1DaemonSetSpecTemplate = - V1DaemonSetSpec - { v1DaemonSetSpecMinReadySeconds = Nothing - , v1DaemonSetSpecRevisionHistoryLimit = Nothing - , v1DaemonSetSpecSelector - , v1DaemonSetSpecTemplate - , v1DaemonSetSpecUpdateStrategy = Nothing - } - --- ** V1DaemonSetStatus --- | V1DaemonSetStatus --- DaemonSetStatus represents the current status of a daemon set. -data V1DaemonSetStatus = V1DaemonSetStatus - { v1DaemonSetStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - Count of hash collisions for the DaemonSet. The DaemonSet controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ControllerRevision. - , v1DaemonSetStatusConditions :: !(Maybe [V1DaemonSetCondition]) -- ^ "conditions" - Represents the latest available observations of a DaemonSet's current state. - , v1DaemonSetStatusCurrentNumberScheduled :: !(Int) -- ^ /Required/ "currentNumberScheduled" - The number of nodes that are running at least 1 daemon pod and are supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - , v1DaemonSetStatusDesiredNumberScheduled :: !(Int) -- ^ /Required/ "desiredNumberScheduled" - The total number of nodes that should be running the daemon pod (including nodes correctly running the daemon pod). More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - , v1DaemonSetStatusNumberAvailable :: !(Maybe Int) -- ^ "numberAvailable" - The number of nodes that should be running the daemon pod and have one or more of the daemon pod running and available (ready for at least spec.minReadySeconds) - , v1DaemonSetStatusNumberMisscheduled :: !(Int) -- ^ /Required/ "numberMisscheduled" - The number of nodes that are running the daemon pod, but are not supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - , v1DaemonSetStatusNumberReady :: !(Int) -- ^ /Required/ "numberReady" - numberReady is the number of nodes that should be running the daemon pod and have one or more of the daemon pod running with a Ready Condition. - , v1DaemonSetStatusNumberUnavailable :: !(Maybe Int) -- ^ "numberUnavailable" - The number of nodes that should be running the daemon pod and have none of the daemon pod running and available (ready for at least spec.minReadySeconds) - , v1DaemonSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - The most recent generation observed by the daemon set controller. - , v1DaemonSetStatusUpdatedNumberScheduled :: !(Maybe Int) -- ^ "updatedNumberScheduled" - The total number of nodes that are running updated daemon pod - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSetStatus -instance A.FromJSON V1DaemonSetStatus where - parseJSON = A.withObject "V1DaemonSetStatus" $ \o -> - V1DaemonSetStatus - <$> (o .:? "collisionCount") - <*> (o .:? "conditions") - <*> (o .: "currentNumberScheduled") - <*> (o .: "desiredNumberScheduled") - <*> (o .:? "numberAvailable") - <*> (o .: "numberMisscheduled") - <*> (o .: "numberReady") - <*> (o .:? "numberUnavailable") - <*> (o .:? "observedGeneration") - <*> (o .:? "updatedNumberScheduled") - --- | ToJSON V1DaemonSetStatus -instance A.ToJSON V1DaemonSetStatus where - toJSON V1DaemonSetStatus {..} = - _omitNulls - [ "collisionCount" .= v1DaemonSetStatusCollisionCount - , "conditions" .= v1DaemonSetStatusConditions - , "currentNumberScheduled" .= v1DaemonSetStatusCurrentNumberScheduled - , "desiredNumberScheduled" .= v1DaemonSetStatusDesiredNumberScheduled - , "numberAvailable" .= v1DaemonSetStatusNumberAvailable - , "numberMisscheduled" .= v1DaemonSetStatusNumberMisscheduled - , "numberReady" .= v1DaemonSetStatusNumberReady - , "numberUnavailable" .= v1DaemonSetStatusNumberUnavailable - , "observedGeneration" .= v1DaemonSetStatusObservedGeneration - , "updatedNumberScheduled" .= v1DaemonSetStatusUpdatedNumberScheduled - ] - - --- | Construct a value of type 'V1DaemonSetStatus' (by applying it's required fields, if any) -mkV1DaemonSetStatus - :: Int -- ^ 'v1DaemonSetStatusCurrentNumberScheduled': The number of nodes that are running at least 1 daemon pod and are supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - -> Int -- ^ 'v1DaemonSetStatusDesiredNumberScheduled': The total number of nodes that should be running the daemon pod (including nodes correctly running the daemon pod). More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - -> Int -- ^ 'v1DaemonSetStatusNumberMisscheduled': The number of nodes that are running the daemon pod, but are not supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ - -> Int -- ^ 'v1DaemonSetStatusNumberReady': numberReady is the number of nodes that should be running the daemon pod and have one or more of the daemon pod running with a Ready Condition. - -> V1DaemonSetStatus -mkV1DaemonSetStatus v1DaemonSetStatusCurrentNumberScheduled v1DaemonSetStatusDesiredNumberScheduled v1DaemonSetStatusNumberMisscheduled v1DaemonSetStatusNumberReady = - V1DaemonSetStatus - { v1DaemonSetStatusCollisionCount = Nothing - , v1DaemonSetStatusConditions = Nothing - , v1DaemonSetStatusCurrentNumberScheduled - , v1DaemonSetStatusDesiredNumberScheduled - , v1DaemonSetStatusNumberAvailable = Nothing - , v1DaemonSetStatusNumberMisscheduled - , v1DaemonSetStatusNumberReady - , v1DaemonSetStatusNumberUnavailable = Nothing - , v1DaemonSetStatusObservedGeneration = Nothing - , v1DaemonSetStatusUpdatedNumberScheduled = Nothing - } - --- ** V1DaemonSetUpdateStrategy --- | V1DaemonSetUpdateStrategy --- DaemonSetUpdateStrategy is a struct used to control the update strategy for a DaemonSet. -data V1DaemonSetUpdateStrategy = V1DaemonSetUpdateStrategy - { v1DaemonSetUpdateStrategyRollingUpdate :: !(Maybe V1RollingUpdateDaemonSet) -- ^ "rollingUpdate" - , v1DaemonSetUpdateStrategyType :: !(Maybe Text) -- ^ "type" - Type of daemon set update. Can be \"RollingUpdate\" or \"OnDelete\". Default is RollingUpdate. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DaemonSetUpdateStrategy -instance A.FromJSON V1DaemonSetUpdateStrategy where - parseJSON = A.withObject "V1DaemonSetUpdateStrategy" $ \o -> - V1DaemonSetUpdateStrategy - <$> (o .:? "rollingUpdate") - <*> (o .:? "type") - --- | ToJSON V1DaemonSetUpdateStrategy -instance A.ToJSON V1DaemonSetUpdateStrategy where - toJSON V1DaemonSetUpdateStrategy {..} = - _omitNulls - [ "rollingUpdate" .= v1DaemonSetUpdateStrategyRollingUpdate - , "type" .= v1DaemonSetUpdateStrategyType - ] - - --- | Construct a value of type 'V1DaemonSetUpdateStrategy' (by applying it's required fields, if any) -mkV1DaemonSetUpdateStrategy - :: V1DaemonSetUpdateStrategy -mkV1DaemonSetUpdateStrategy = - V1DaemonSetUpdateStrategy - { v1DaemonSetUpdateStrategyRollingUpdate = Nothing - , v1DaemonSetUpdateStrategyType = Nothing - } - --- ** V1DeleteOptions --- | V1DeleteOptions --- DeleteOptions may be provided when deleting an API object. -data V1DeleteOptions = V1DeleteOptions - { v1DeleteOptionsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1DeleteOptionsDryRun :: !(Maybe [Text]) -- ^ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed - , v1DeleteOptionsGracePeriodSeconds :: !(Maybe Integer) -- ^ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. - , v1DeleteOptionsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1DeleteOptionsOrphanDependents :: !(Maybe Bool) -- ^ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. - , v1DeleteOptionsPreconditions :: !(Maybe V1Preconditions) -- ^ "preconditions" - , v1DeleteOptionsPropagationPolicy :: !(Maybe Text) -- ^ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeleteOptions -instance A.FromJSON V1DeleteOptions where - parseJSON = A.withObject "V1DeleteOptions" $ \o -> - V1DeleteOptions - <$> (o .:? "apiVersion") - <*> (o .:? "dryRun") - <*> (o .:? "gracePeriodSeconds") - <*> (o .:? "kind") - <*> (o .:? "orphanDependents") - <*> (o .:? "preconditions") - <*> (o .:? "propagationPolicy") - --- | ToJSON V1DeleteOptions -instance A.ToJSON V1DeleteOptions where - toJSON V1DeleteOptions {..} = - _omitNulls - [ "apiVersion" .= v1DeleteOptionsApiVersion - , "dryRun" .= v1DeleteOptionsDryRun - , "gracePeriodSeconds" .= v1DeleteOptionsGracePeriodSeconds - , "kind" .= v1DeleteOptionsKind - , "orphanDependents" .= v1DeleteOptionsOrphanDependents - , "preconditions" .= v1DeleteOptionsPreconditions - , "propagationPolicy" .= v1DeleteOptionsPropagationPolicy - ] - - --- | Construct a value of type 'V1DeleteOptions' (by applying it's required fields, if any) -mkV1DeleteOptions - :: V1DeleteOptions -mkV1DeleteOptions = - V1DeleteOptions - { v1DeleteOptionsApiVersion = Nothing - , v1DeleteOptionsDryRun = Nothing - , v1DeleteOptionsGracePeriodSeconds = Nothing - , v1DeleteOptionsKind = Nothing - , v1DeleteOptionsOrphanDependents = Nothing - , v1DeleteOptionsPreconditions = Nothing - , v1DeleteOptionsPropagationPolicy = Nothing - } - --- ** V1Deployment --- | V1Deployment --- Deployment enables declarative updates for Pods and ReplicaSets. -data V1Deployment = V1Deployment - { v1DeploymentApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1DeploymentKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1DeploymentMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1DeploymentSpec :: !(Maybe V1DeploymentSpec) -- ^ "spec" - , v1DeploymentStatus :: !(Maybe V1DeploymentStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Deployment -instance A.FromJSON V1Deployment where - parseJSON = A.withObject "V1Deployment" $ \o -> - V1Deployment - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Deployment -instance A.ToJSON V1Deployment where - toJSON V1Deployment {..} = - _omitNulls - [ "apiVersion" .= v1DeploymentApiVersion - , "kind" .= v1DeploymentKind - , "metadata" .= v1DeploymentMetadata - , "spec" .= v1DeploymentSpec - , "status" .= v1DeploymentStatus - ] - - --- | Construct a value of type 'V1Deployment' (by applying it's required fields, if any) -mkV1Deployment - :: V1Deployment -mkV1Deployment = - V1Deployment - { v1DeploymentApiVersion = Nothing - , v1DeploymentKind = Nothing - , v1DeploymentMetadata = Nothing - , v1DeploymentSpec = Nothing - , v1DeploymentStatus = Nothing - } - --- ** V1DeploymentCondition --- | V1DeploymentCondition --- DeploymentCondition describes the state of a deployment at a certain point. -data V1DeploymentCondition = V1DeploymentCondition - { v1DeploymentConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1DeploymentConditionLastUpdateTime :: !(Maybe DateTime) -- ^ "lastUpdateTime" - The last time this condition was updated. - , v1DeploymentConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1DeploymentConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. - , v1DeploymentConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1DeploymentConditionType :: !(Text) -- ^ /Required/ "type" - Type of deployment condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeploymentCondition -instance A.FromJSON V1DeploymentCondition where - parseJSON = A.withObject "V1DeploymentCondition" $ \o -> - V1DeploymentCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "lastUpdateTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1DeploymentCondition -instance A.ToJSON V1DeploymentCondition where - toJSON V1DeploymentCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1DeploymentConditionLastTransitionTime - , "lastUpdateTime" .= v1DeploymentConditionLastUpdateTime - , "message" .= v1DeploymentConditionMessage - , "reason" .= v1DeploymentConditionReason - , "status" .= v1DeploymentConditionStatus - , "type" .= v1DeploymentConditionType - ] - - --- | Construct a value of type 'V1DeploymentCondition' (by applying it's required fields, if any) -mkV1DeploymentCondition - :: Text -- ^ 'v1DeploymentConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1DeploymentConditionType': Type of deployment condition. - -> V1DeploymentCondition -mkV1DeploymentCondition v1DeploymentConditionStatus v1DeploymentConditionType = - V1DeploymentCondition - { v1DeploymentConditionLastTransitionTime = Nothing - , v1DeploymentConditionLastUpdateTime = Nothing - , v1DeploymentConditionMessage = Nothing - , v1DeploymentConditionReason = Nothing - , v1DeploymentConditionStatus - , v1DeploymentConditionType - } - --- ** V1DeploymentList --- | V1DeploymentList --- DeploymentList is a list of Deployments. -data V1DeploymentList = V1DeploymentList - { v1DeploymentListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1DeploymentListItems :: !([V1Deployment]) -- ^ /Required/ "items" - Items is the list of Deployments. - , v1DeploymentListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1DeploymentListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeploymentList -instance A.FromJSON V1DeploymentList where - parseJSON = A.withObject "V1DeploymentList" $ \o -> - V1DeploymentList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1DeploymentList -instance A.ToJSON V1DeploymentList where - toJSON V1DeploymentList {..} = - _omitNulls - [ "apiVersion" .= v1DeploymentListApiVersion - , "items" .= v1DeploymentListItems - , "kind" .= v1DeploymentListKind - , "metadata" .= v1DeploymentListMetadata - ] - - --- | Construct a value of type 'V1DeploymentList' (by applying it's required fields, if any) -mkV1DeploymentList - :: [V1Deployment] -- ^ 'v1DeploymentListItems': Items is the list of Deployments. - -> V1DeploymentList -mkV1DeploymentList v1DeploymentListItems = - V1DeploymentList - { v1DeploymentListApiVersion = Nothing - , v1DeploymentListItems - , v1DeploymentListKind = Nothing - , v1DeploymentListMetadata = Nothing - } - --- ** V1DeploymentSpec --- | V1DeploymentSpec --- DeploymentSpec is the specification of the desired behavior of the Deployment. -data V1DeploymentSpec = V1DeploymentSpec - { v1DeploymentSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) - , v1DeploymentSpecPaused :: !(Maybe Bool) -- ^ "paused" - Indicates that the deployment is paused. - , v1DeploymentSpecProgressDeadlineSeconds :: !(Maybe Int) -- ^ "progressDeadlineSeconds" - The maximum time in seconds for a deployment to make progress before it is considered to be failed. The deployment controller will continue to process failed deployments and a condition with a ProgressDeadlineExceeded reason will be surfaced in the deployment status. Note that progress will not be estimated during the time a deployment is paused. Defaults to 600s. - , v1DeploymentSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Number of desired pods. This is a pointer to distinguish between explicit zero and not specified. Defaults to 1. - , v1DeploymentSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - The number of old ReplicaSets to retain to allow rollback. This is a pointer to distinguish between explicit zero and not specified. Defaults to 10. - , v1DeploymentSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" - , v1DeploymentSpecStrategy :: !(Maybe V1DeploymentStrategy) -- ^ "strategy" - , v1DeploymentSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeploymentSpec -instance A.FromJSON V1DeploymentSpec where - parseJSON = A.withObject "V1DeploymentSpec" $ \o -> - V1DeploymentSpec - <$> (o .:? "minReadySeconds") - <*> (o .:? "paused") - <*> (o .:? "progressDeadlineSeconds") - <*> (o .:? "replicas") - <*> (o .:? "revisionHistoryLimit") - <*> (o .: "selector") - <*> (o .:? "strategy") - <*> (o .: "template") - --- | ToJSON V1DeploymentSpec -instance A.ToJSON V1DeploymentSpec where - toJSON V1DeploymentSpec {..} = - _omitNulls - [ "minReadySeconds" .= v1DeploymentSpecMinReadySeconds - , "paused" .= v1DeploymentSpecPaused - , "progressDeadlineSeconds" .= v1DeploymentSpecProgressDeadlineSeconds - , "replicas" .= v1DeploymentSpecReplicas - , "revisionHistoryLimit" .= v1DeploymentSpecRevisionHistoryLimit - , "selector" .= v1DeploymentSpecSelector - , "strategy" .= v1DeploymentSpecStrategy - , "template" .= v1DeploymentSpecTemplate - ] - - --- | Construct a value of type 'V1DeploymentSpec' (by applying it's required fields, if any) -mkV1DeploymentSpec - :: V1LabelSelector -- ^ 'v1DeploymentSpecSelector' - -> V1PodTemplateSpec -- ^ 'v1DeploymentSpecTemplate' - -> V1DeploymentSpec -mkV1DeploymentSpec v1DeploymentSpecSelector v1DeploymentSpecTemplate = - V1DeploymentSpec - { v1DeploymentSpecMinReadySeconds = Nothing - , v1DeploymentSpecPaused = Nothing - , v1DeploymentSpecProgressDeadlineSeconds = Nothing - , v1DeploymentSpecReplicas = Nothing - , v1DeploymentSpecRevisionHistoryLimit = Nothing - , v1DeploymentSpecSelector - , v1DeploymentSpecStrategy = Nothing - , v1DeploymentSpecTemplate - } - --- ** V1DeploymentStatus --- | V1DeploymentStatus --- DeploymentStatus is the most recently observed status of the Deployment. -data V1DeploymentStatus = V1DeploymentStatus - { v1DeploymentStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - Total number of available pods (ready for at least minReadySeconds) targeted by this deployment. - , v1DeploymentStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - Count of hash collisions for the Deployment. The Deployment controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ReplicaSet. - , v1DeploymentStatusConditions :: !(Maybe [V1DeploymentCondition]) -- ^ "conditions" - Represents the latest available observations of a deployment's current state. - , v1DeploymentStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - The generation observed by the deployment controller. - , v1DeploymentStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods targeted by this Deployment with a Ready Condition. - , v1DeploymentStatusReplicas :: !(Maybe Int) -- ^ "replicas" - Total number of non-terminated pods targeted by this deployment (their labels match the selector). - , v1DeploymentStatusUnavailableReplicas :: !(Maybe Int) -- ^ "unavailableReplicas" - Total number of unavailable pods targeted by this deployment. This is the total number of pods that are still required for the deployment to have 100% available capacity. They may either be pods that are running but not yet available or pods that still have not been created. - , v1DeploymentStatusUpdatedReplicas :: !(Maybe Int) -- ^ "updatedReplicas" - Total number of non-terminated pods targeted by this deployment that have the desired template spec. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeploymentStatus -instance A.FromJSON V1DeploymentStatus where - parseJSON = A.withObject "V1DeploymentStatus" $ \o -> - V1DeploymentStatus - <$> (o .:? "availableReplicas") - <*> (o .:? "collisionCount") - <*> (o .:? "conditions") - <*> (o .:? "observedGeneration") - <*> (o .:? "readyReplicas") - <*> (o .:? "replicas") - <*> (o .:? "unavailableReplicas") - <*> (o .:? "updatedReplicas") - --- | ToJSON V1DeploymentStatus -instance A.ToJSON V1DeploymentStatus where - toJSON V1DeploymentStatus {..} = - _omitNulls - [ "availableReplicas" .= v1DeploymentStatusAvailableReplicas - , "collisionCount" .= v1DeploymentStatusCollisionCount - , "conditions" .= v1DeploymentStatusConditions - , "observedGeneration" .= v1DeploymentStatusObservedGeneration - , "readyReplicas" .= v1DeploymentStatusReadyReplicas - , "replicas" .= v1DeploymentStatusReplicas - , "unavailableReplicas" .= v1DeploymentStatusUnavailableReplicas - , "updatedReplicas" .= v1DeploymentStatusUpdatedReplicas - ] - - --- | Construct a value of type 'V1DeploymentStatus' (by applying it's required fields, if any) -mkV1DeploymentStatus - :: V1DeploymentStatus -mkV1DeploymentStatus = - V1DeploymentStatus - { v1DeploymentStatusAvailableReplicas = Nothing - , v1DeploymentStatusCollisionCount = Nothing - , v1DeploymentStatusConditions = Nothing - , v1DeploymentStatusObservedGeneration = Nothing - , v1DeploymentStatusReadyReplicas = Nothing - , v1DeploymentStatusReplicas = Nothing - , v1DeploymentStatusUnavailableReplicas = Nothing - , v1DeploymentStatusUpdatedReplicas = Nothing - } - --- ** V1DeploymentStrategy --- | V1DeploymentStrategy --- DeploymentStrategy describes how to replace existing pods with new ones. -data V1DeploymentStrategy = V1DeploymentStrategy - { v1DeploymentStrategyRollingUpdate :: !(Maybe V1RollingUpdateDeployment) -- ^ "rollingUpdate" - , v1DeploymentStrategyType :: !(Maybe Text) -- ^ "type" - Type of deployment. Can be \"Recreate\" or \"RollingUpdate\". Default is RollingUpdate. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DeploymentStrategy -instance A.FromJSON V1DeploymentStrategy where - parseJSON = A.withObject "V1DeploymentStrategy" $ \o -> - V1DeploymentStrategy - <$> (o .:? "rollingUpdate") - <*> (o .:? "type") - --- | ToJSON V1DeploymentStrategy -instance A.ToJSON V1DeploymentStrategy where - toJSON V1DeploymentStrategy {..} = - _omitNulls - [ "rollingUpdate" .= v1DeploymentStrategyRollingUpdate - , "type" .= v1DeploymentStrategyType - ] - - --- | Construct a value of type 'V1DeploymentStrategy' (by applying it's required fields, if any) -mkV1DeploymentStrategy - :: V1DeploymentStrategy -mkV1DeploymentStrategy = - V1DeploymentStrategy - { v1DeploymentStrategyRollingUpdate = Nothing - , v1DeploymentStrategyType = Nothing - } - --- ** V1DownwardAPIProjection --- | V1DownwardAPIProjection --- Represents downward API info for projecting into a projected volume. Note that this is identical to a downwardAPI volume source without the default mode. -data V1DownwardAPIProjection = V1DownwardAPIProjection - { v1DownwardAPIProjectionItems :: !(Maybe [V1DownwardAPIVolumeFile]) -- ^ "items" - Items is a list of DownwardAPIVolume file - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DownwardAPIProjection -instance A.FromJSON V1DownwardAPIProjection where - parseJSON = A.withObject "V1DownwardAPIProjection" $ \o -> - V1DownwardAPIProjection - <$> (o .:? "items") - --- | ToJSON V1DownwardAPIProjection -instance A.ToJSON V1DownwardAPIProjection where - toJSON V1DownwardAPIProjection {..} = - _omitNulls - [ "items" .= v1DownwardAPIProjectionItems - ] - - --- | Construct a value of type 'V1DownwardAPIProjection' (by applying it's required fields, if any) -mkV1DownwardAPIProjection - :: V1DownwardAPIProjection -mkV1DownwardAPIProjection = - V1DownwardAPIProjection - { v1DownwardAPIProjectionItems = Nothing - } - --- ** V1DownwardAPIVolumeFile --- | V1DownwardAPIVolumeFile --- DownwardAPIVolumeFile represents information to create the file containing the pod field -data V1DownwardAPIVolumeFile = V1DownwardAPIVolumeFile - { v1DownwardAPIVolumeFileFieldRef :: !(Maybe V1ObjectFieldSelector) -- ^ "fieldRef" - , v1DownwardAPIVolumeFileMode :: !(Maybe Int) -- ^ "mode" - Optional: mode bits used to set permissions on this file, must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. If not specified, the volume defaultMode will be used. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1DownwardAPIVolumeFilePath :: !(Text) -- ^ /Required/ "path" - Required: Path is the relative path name of the file to be created. Must not be absolute or contain the '..' path. Must be utf-8 encoded. The first item of the relative path must not start with '..' - , v1DownwardAPIVolumeFileResourceFieldRef :: !(Maybe V1ResourceFieldSelector) -- ^ "resourceFieldRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DownwardAPIVolumeFile -instance A.FromJSON V1DownwardAPIVolumeFile where - parseJSON = A.withObject "V1DownwardAPIVolumeFile" $ \o -> - V1DownwardAPIVolumeFile - <$> (o .:? "fieldRef") - <*> (o .:? "mode") - <*> (o .: "path") - <*> (o .:? "resourceFieldRef") - --- | ToJSON V1DownwardAPIVolumeFile -instance A.ToJSON V1DownwardAPIVolumeFile where - toJSON V1DownwardAPIVolumeFile {..} = - _omitNulls - [ "fieldRef" .= v1DownwardAPIVolumeFileFieldRef - , "mode" .= v1DownwardAPIVolumeFileMode - , "path" .= v1DownwardAPIVolumeFilePath - , "resourceFieldRef" .= v1DownwardAPIVolumeFileResourceFieldRef - ] - - --- | Construct a value of type 'V1DownwardAPIVolumeFile' (by applying it's required fields, if any) -mkV1DownwardAPIVolumeFile - :: Text -- ^ 'v1DownwardAPIVolumeFilePath': Required: Path is the relative path name of the file to be created. Must not be absolute or contain the '..' path. Must be utf-8 encoded. The first item of the relative path must not start with '..' - -> V1DownwardAPIVolumeFile -mkV1DownwardAPIVolumeFile v1DownwardAPIVolumeFilePath = - V1DownwardAPIVolumeFile - { v1DownwardAPIVolumeFileFieldRef = Nothing - , v1DownwardAPIVolumeFileMode = Nothing - , v1DownwardAPIVolumeFilePath - , v1DownwardAPIVolumeFileResourceFieldRef = Nothing - } - --- ** V1DownwardAPIVolumeSource --- | V1DownwardAPIVolumeSource --- DownwardAPIVolumeSource represents a volume containing downward API info. Downward API volumes support ownership management and SELinux relabeling. -data V1DownwardAPIVolumeSource = V1DownwardAPIVolumeSource - { v1DownwardAPIVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - Optional: mode bits to use on created files by default. Must be a Optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1DownwardAPIVolumeSourceItems :: !(Maybe [V1DownwardAPIVolumeFile]) -- ^ "items" - Items is a list of downward API volume file - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1DownwardAPIVolumeSource -instance A.FromJSON V1DownwardAPIVolumeSource where - parseJSON = A.withObject "V1DownwardAPIVolumeSource" $ \o -> - V1DownwardAPIVolumeSource - <$> (o .:? "defaultMode") - <*> (o .:? "items") - --- | ToJSON V1DownwardAPIVolumeSource -instance A.ToJSON V1DownwardAPIVolumeSource where - toJSON V1DownwardAPIVolumeSource {..} = - _omitNulls - [ "defaultMode" .= v1DownwardAPIVolumeSourceDefaultMode - , "items" .= v1DownwardAPIVolumeSourceItems - ] - - --- | Construct a value of type 'V1DownwardAPIVolumeSource' (by applying it's required fields, if any) -mkV1DownwardAPIVolumeSource - :: V1DownwardAPIVolumeSource -mkV1DownwardAPIVolumeSource = - V1DownwardAPIVolumeSource - { v1DownwardAPIVolumeSourceDefaultMode = Nothing - , v1DownwardAPIVolumeSourceItems = Nothing - } - --- ** V1EmptyDirVolumeSource --- | V1EmptyDirVolumeSource --- Represents an empty directory for a pod. Empty directory volumes support ownership management and SELinux relabeling. -data V1EmptyDirVolumeSource = V1EmptyDirVolumeSource - { v1EmptyDirVolumeSourceMedium :: !(Maybe Text) -- ^ "medium" - medium represents what type of storage medium should back this directory. The default is \"\" which means to use the node's default medium. Must be an empty string (default) or Memory. More info: https://kubernetes.io/docs/concepts/storage/volumes#emptydir - , v1EmptyDirVolumeSourceSizeLimit :: !(Maybe Quantity) -- ^ "sizeLimit" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EmptyDirVolumeSource -instance A.FromJSON V1EmptyDirVolumeSource where - parseJSON = A.withObject "V1EmptyDirVolumeSource" $ \o -> - V1EmptyDirVolumeSource - <$> (o .:? "medium") - <*> (o .:? "sizeLimit") - --- | ToJSON V1EmptyDirVolumeSource -instance A.ToJSON V1EmptyDirVolumeSource where - toJSON V1EmptyDirVolumeSource {..} = - _omitNulls - [ "medium" .= v1EmptyDirVolumeSourceMedium - , "sizeLimit" .= v1EmptyDirVolumeSourceSizeLimit - ] - - --- | Construct a value of type 'V1EmptyDirVolumeSource' (by applying it's required fields, if any) -mkV1EmptyDirVolumeSource - :: V1EmptyDirVolumeSource -mkV1EmptyDirVolumeSource = - V1EmptyDirVolumeSource - { v1EmptyDirVolumeSourceMedium = Nothing - , v1EmptyDirVolumeSourceSizeLimit = Nothing - } - --- ** V1Endpoint --- | V1Endpoint --- Endpoint represents a single logical \"backend\" implementing a service. -data V1Endpoint = V1Endpoint - { v1EndpointAddresses :: !([Text]) -- ^ /Required/ "addresses" - addresses of this endpoint. The contents of this field are interpreted according to the corresponding EndpointSlice addressType field. Consumers must handle different types of addresses in the context of their own capabilities. This must contain at least one address but no more than 100. These are all assumed to be fungible and clients may choose to only use the first element. Refer to: https://issue.k8s.io/106267 - , v1EndpointConditions :: !(Maybe V1EndpointConditions) -- ^ "conditions" - , v1EndpointDeprecatedTopology :: !(Maybe (Map.Map String Text)) -- ^ "deprecatedTopology" - deprecatedTopology contains topology information part of the v1beta1 API. This field is deprecated, and will be removed when the v1beta1 API is removed (no sooner than kubernetes v1.24). While this field can hold values, it is not writable through the v1 API, and any attempts to write to it will be silently ignored. Topology information can be found in the zone and nodeName fields instead. - , v1EndpointHints :: !(Maybe V1EndpointHints) -- ^ "hints" - , v1EndpointHostname :: !(Maybe Text) -- ^ "hostname" - hostname of this endpoint. This field may be used by consumers of endpoints to distinguish endpoints from each other (e.g. in DNS names). Multiple endpoints which use the same hostname should be considered fungible (e.g. multiple A values in DNS). Must be lowercase and pass DNS Label (RFC 1123) validation. - , v1EndpointNodeName :: !(Maybe Text) -- ^ "nodeName" - nodeName represents the name of the Node hosting this endpoint. This can be used to determine endpoints local to a Node. - , v1EndpointTargetRef :: !(Maybe V1ObjectReference) -- ^ "targetRef" - , v1EndpointZone :: !(Maybe Text) -- ^ "zone" - zone is the name of the Zone this endpoint exists in. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Endpoint -instance A.FromJSON V1Endpoint where - parseJSON = A.withObject "V1Endpoint" $ \o -> - V1Endpoint - <$> (o .: "addresses") - <*> (o .:? "conditions") - <*> (o .:? "deprecatedTopology") - <*> (o .:? "hints") - <*> (o .:? "hostname") - <*> (o .:? "nodeName") - <*> (o .:? "targetRef") - <*> (o .:? "zone") - --- | ToJSON V1Endpoint -instance A.ToJSON V1Endpoint where - toJSON V1Endpoint {..} = - _omitNulls - [ "addresses" .= v1EndpointAddresses - , "conditions" .= v1EndpointConditions - , "deprecatedTopology" .= v1EndpointDeprecatedTopology - , "hints" .= v1EndpointHints - , "hostname" .= v1EndpointHostname - , "nodeName" .= v1EndpointNodeName - , "targetRef" .= v1EndpointTargetRef - , "zone" .= v1EndpointZone - ] - - --- | Construct a value of type 'V1Endpoint' (by applying it's required fields, if any) -mkV1Endpoint - :: [Text] -- ^ 'v1EndpointAddresses': addresses of this endpoint. The contents of this field are interpreted according to the corresponding EndpointSlice addressType field. Consumers must handle different types of addresses in the context of their own capabilities. This must contain at least one address but no more than 100. These are all assumed to be fungible and clients may choose to only use the first element. Refer to: https://issue.k8s.io/106267 - -> V1Endpoint -mkV1Endpoint v1EndpointAddresses = - V1Endpoint - { v1EndpointAddresses - , v1EndpointConditions = Nothing - , v1EndpointDeprecatedTopology = Nothing - , v1EndpointHints = Nothing - , v1EndpointHostname = Nothing - , v1EndpointNodeName = Nothing - , v1EndpointTargetRef = Nothing - , v1EndpointZone = Nothing - } - --- ** V1EndpointAddress --- | V1EndpointAddress --- EndpointAddress is a tuple that describes single IP address. -data V1EndpointAddress = V1EndpointAddress - { v1EndpointAddressHostname :: !(Maybe Text) -- ^ "hostname" - The Hostname of this endpoint - , v1EndpointAddressIp :: !(Text) -- ^ /Required/ "ip" - The IP of this endpoint. May not be loopback (127.0.0.0/8), link-local (169.254.0.0/16), or link-local multicast ((224.0.0.0/24). IPv6 is also accepted but not fully supported on all platforms. Also, certain kubernetes components, like kube-proxy, are not IPv6 ready. - , v1EndpointAddressNodeName :: !(Maybe Text) -- ^ "nodeName" - Optional: Node hosting this endpoint. This can be used to determine endpoints local to a node. - , v1EndpointAddressTargetRef :: !(Maybe V1ObjectReference) -- ^ "targetRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointAddress -instance A.FromJSON V1EndpointAddress where - parseJSON = A.withObject "V1EndpointAddress" $ \o -> - V1EndpointAddress - <$> (o .:? "hostname") - <*> (o .: "ip") - <*> (o .:? "nodeName") - <*> (o .:? "targetRef") - --- | ToJSON V1EndpointAddress -instance A.ToJSON V1EndpointAddress where - toJSON V1EndpointAddress {..} = - _omitNulls - [ "hostname" .= v1EndpointAddressHostname - , "ip" .= v1EndpointAddressIp - , "nodeName" .= v1EndpointAddressNodeName - , "targetRef" .= v1EndpointAddressTargetRef - ] - - --- | Construct a value of type 'V1EndpointAddress' (by applying it's required fields, if any) -mkV1EndpointAddress - :: Text -- ^ 'v1EndpointAddressIp': The IP of this endpoint. May not be loopback (127.0.0.0/8), link-local (169.254.0.0/16), or link-local multicast ((224.0.0.0/24). IPv6 is also accepted but not fully supported on all platforms. Also, certain kubernetes components, like kube-proxy, are not IPv6 ready. - -> V1EndpointAddress -mkV1EndpointAddress v1EndpointAddressIp = - V1EndpointAddress - { v1EndpointAddressHostname = Nothing - , v1EndpointAddressIp - , v1EndpointAddressNodeName = Nothing - , v1EndpointAddressTargetRef = Nothing - } - --- ** V1EndpointConditions --- | V1EndpointConditions --- EndpointConditions represents the current condition of an endpoint. -data V1EndpointConditions = V1EndpointConditions - { v1EndpointConditionsReady :: !(Maybe Bool) -- ^ "ready" - ready indicates that this endpoint is prepared to receive traffic, according to whatever system is managing the endpoint. A nil value indicates an unknown state. In most cases consumers should interpret this unknown state as ready. For compatibility reasons, ready should never be \"true\" for terminating endpoints. - , v1EndpointConditionsServing :: !(Maybe Bool) -- ^ "serving" - serving is identical to ready except that it is set regardless of the terminating state of endpoints. This condition should be set to true for a ready endpoint that is terminating. If nil, consumers should defer to the ready condition. - , v1EndpointConditionsTerminating :: !(Maybe Bool) -- ^ "terminating" - terminating indicates that this endpoint is terminating. A nil value indicates an unknown state. Consumers should interpret this unknown state to mean that the endpoint is not terminating. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointConditions -instance A.FromJSON V1EndpointConditions where - parseJSON = A.withObject "V1EndpointConditions" $ \o -> - V1EndpointConditions - <$> (o .:? "ready") - <*> (o .:? "serving") - <*> (o .:? "terminating") - --- | ToJSON V1EndpointConditions -instance A.ToJSON V1EndpointConditions where - toJSON V1EndpointConditions {..} = - _omitNulls - [ "ready" .= v1EndpointConditionsReady - , "serving" .= v1EndpointConditionsServing - , "terminating" .= v1EndpointConditionsTerminating - ] - - --- | Construct a value of type 'V1EndpointConditions' (by applying it's required fields, if any) -mkV1EndpointConditions - :: V1EndpointConditions -mkV1EndpointConditions = - V1EndpointConditions - { v1EndpointConditionsReady = Nothing - , v1EndpointConditionsServing = Nothing - , v1EndpointConditionsTerminating = Nothing - } - --- ** V1EndpointHints --- | V1EndpointHints --- EndpointHints provides hints describing how an endpoint should be consumed. -data V1EndpointHints = V1EndpointHints - { v1EndpointHintsForZones :: !(Maybe [V1ForZone]) -- ^ "forZones" - forZones indicates the zone(s) this endpoint should be consumed by to enable topology aware routing. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointHints -instance A.FromJSON V1EndpointHints where - parseJSON = A.withObject "V1EndpointHints" $ \o -> - V1EndpointHints - <$> (o .:? "forZones") - --- | ToJSON V1EndpointHints -instance A.ToJSON V1EndpointHints where - toJSON V1EndpointHints {..} = - _omitNulls - [ "forZones" .= v1EndpointHintsForZones - ] - - --- | Construct a value of type 'V1EndpointHints' (by applying it's required fields, if any) -mkV1EndpointHints - :: V1EndpointHints -mkV1EndpointHints = - V1EndpointHints - { v1EndpointHintsForZones = Nothing - } - --- ** V1EndpointSlice --- | V1EndpointSlice --- EndpointSlice represents a subset of the endpoints that implement a service. For a given service there may be multiple EndpointSlice objects, selected by labels, which must be joined to produce the full set of endpoints. -data V1EndpointSlice = V1EndpointSlice - { v1EndpointSliceAddressType :: !(Text) -- ^ /Required/ "addressType" - addressType specifies the type of address carried by this EndpointSlice. All addresses in this slice must be the same type. This field is immutable after creation. The following address types are currently supported: * IPv4: Represents an IPv4 Address. * IPv6: Represents an IPv6 Address. * FQDN: Represents a Fully Qualified Domain Name. - , v1EndpointSliceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1EndpointSliceEndpoints :: !([V1Endpoint]) -- ^ /Required/ "endpoints" - endpoints is a list of unique endpoints in this slice. Each slice may include a maximum of 1000 endpoints. - , v1EndpointSliceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1EndpointSliceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1EndpointSlicePorts :: !(Maybe [DiscoveryV1EndpointPort]) -- ^ "ports" - ports specifies the list of network ports exposed by each endpoint in this slice. Each port must have a unique name. When ports is empty, it indicates that there are no defined ports. When a port is defined with a nil port value, it indicates \"all ports\". Each slice may include a maximum of 100 ports. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointSlice -instance A.FromJSON V1EndpointSlice where - parseJSON = A.withObject "V1EndpointSlice" $ \o -> - V1EndpointSlice - <$> (o .: "addressType") - <*> (o .:? "apiVersion") - <*> (o .: "endpoints") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "ports") - --- | ToJSON V1EndpointSlice -instance A.ToJSON V1EndpointSlice where - toJSON V1EndpointSlice {..} = - _omitNulls - [ "addressType" .= v1EndpointSliceAddressType - , "apiVersion" .= v1EndpointSliceApiVersion - , "endpoints" .= v1EndpointSliceEndpoints - , "kind" .= v1EndpointSliceKind - , "metadata" .= v1EndpointSliceMetadata - , "ports" .= v1EndpointSlicePorts - ] - - --- | Construct a value of type 'V1EndpointSlice' (by applying it's required fields, if any) -mkV1EndpointSlice - :: Text -- ^ 'v1EndpointSliceAddressType': addressType specifies the type of address carried by this EndpointSlice. All addresses in this slice must be the same type. This field is immutable after creation. The following address types are currently supported: * IPv4: Represents an IPv4 Address. * IPv6: Represents an IPv6 Address. * FQDN: Represents a Fully Qualified Domain Name. - -> [V1Endpoint] -- ^ 'v1EndpointSliceEndpoints': endpoints is a list of unique endpoints in this slice. Each slice may include a maximum of 1000 endpoints. - -> V1EndpointSlice -mkV1EndpointSlice v1EndpointSliceAddressType v1EndpointSliceEndpoints = - V1EndpointSlice - { v1EndpointSliceAddressType - , v1EndpointSliceApiVersion = Nothing - , v1EndpointSliceEndpoints - , v1EndpointSliceKind = Nothing - , v1EndpointSliceMetadata = Nothing - , v1EndpointSlicePorts = Nothing - } - --- ** V1EndpointSliceList --- | V1EndpointSliceList --- EndpointSliceList represents a list of endpoint slices -data V1EndpointSliceList = V1EndpointSliceList - { v1EndpointSliceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1EndpointSliceListItems :: !([V1EndpointSlice]) -- ^ /Required/ "items" - List of endpoint slices - , v1EndpointSliceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1EndpointSliceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointSliceList -instance A.FromJSON V1EndpointSliceList where - parseJSON = A.withObject "V1EndpointSliceList" $ \o -> - V1EndpointSliceList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1EndpointSliceList -instance A.ToJSON V1EndpointSliceList where - toJSON V1EndpointSliceList {..} = - _omitNulls - [ "apiVersion" .= v1EndpointSliceListApiVersion - , "items" .= v1EndpointSliceListItems - , "kind" .= v1EndpointSliceListKind - , "metadata" .= v1EndpointSliceListMetadata - ] - - --- | Construct a value of type 'V1EndpointSliceList' (by applying it's required fields, if any) -mkV1EndpointSliceList - :: [V1EndpointSlice] -- ^ 'v1EndpointSliceListItems': List of endpoint slices - -> V1EndpointSliceList -mkV1EndpointSliceList v1EndpointSliceListItems = - V1EndpointSliceList - { v1EndpointSliceListApiVersion = Nothing - , v1EndpointSliceListItems - , v1EndpointSliceListKind = Nothing - , v1EndpointSliceListMetadata = Nothing - } - --- ** V1EndpointSubset --- | V1EndpointSubset --- EndpointSubset is a group of addresses with a common set of ports. The expanded set of endpoints is the Cartesian product of Addresses x Ports. For example, given: { Addresses: [{\"ip\": \"10.10.1.1\"}, {\"ip\": \"10.10.2.2\"}], Ports: [{\"name\": \"a\", \"port\": 8675}, {\"name\": \"b\", \"port\": 309}] } The resulting set of endpoints can be viewed as: a: [ 10.10.1.1:8675, 10.10.2.2:8675 ], b: [ 10.10.1.1:309, 10.10.2.2:309 ] -data V1EndpointSubset = V1EndpointSubset - { v1EndpointSubsetAddresses :: !(Maybe [V1EndpointAddress]) -- ^ "addresses" - IP addresses which offer the related ports that are marked as ready. These endpoints should be considered safe for load balancers and clients to utilize. - , v1EndpointSubsetNotReadyAddresses :: !(Maybe [V1EndpointAddress]) -- ^ "notReadyAddresses" - IP addresses which offer the related ports but are not currently marked as ready because they have not yet finished starting, have recently failed a readiness check, or have recently failed a liveness check. - , v1EndpointSubsetPorts :: !(Maybe [CoreV1EndpointPort]) -- ^ "ports" - Port numbers available on the related IP addresses. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointSubset -instance A.FromJSON V1EndpointSubset where - parseJSON = A.withObject "V1EndpointSubset" $ \o -> - V1EndpointSubset - <$> (o .:? "addresses") - <*> (o .:? "notReadyAddresses") - <*> (o .:? "ports") - --- | ToJSON V1EndpointSubset -instance A.ToJSON V1EndpointSubset where - toJSON V1EndpointSubset {..} = - _omitNulls - [ "addresses" .= v1EndpointSubsetAddresses - , "notReadyAddresses" .= v1EndpointSubsetNotReadyAddresses - , "ports" .= v1EndpointSubsetPorts - ] - - --- | Construct a value of type 'V1EndpointSubset' (by applying it's required fields, if any) -mkV1EndpointSubset - :: V1EndpointSubset -mkV1EndpointSubset = - V1EndpointSubset - { v1EndpointSubsetAddresses = Nothing - , v1EndpointSubsetNotReadyAddresses = Nothing - , v1EndpointSubsetPorts = Nothing - } - --- ** V1Endpoints --- | V1Endpoints --- Endpoints is a collection of endpoints that implement the actual service. Example: Name: \"mysvc\", Subsets: [ { Addresses: [{\"ip\": \"10.10.1.1\"}, {\"ip\": \"10.10.2.2\"}], Ports: [{\"name\": \"a\", \"port\": 8675}, {\"name\": \"b\", \"port\": 309}] }, { Addresses: [{\"ip\": \"10.10.3.3\"}], Ports: [{\"name\": \"a\", \"port\": 93}, {\"name\": \"b\", \"port\": 76}] }, ] -data V1Endpoints = V1Endpoints - { v1EndpointsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1EndpointsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1EndpointsMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1EndpointsSubsets :: !(Maybe [V1EndpointSubset]) -- ^ "subsets" - The set of all endpoints is the union of all subsets. Addresses are placed into subsets according to the IPs they share. A single address with multiple ports, some of which are ready and some of which are not (because they come from different containers) will result in the address being displayed in different subsets for the different ports. No address will appear in both Addresses and NotReadyAddresses in the same subset. Sets of addresses and ports that comprise a service. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Endpoints -instance A.FromJSON V1Endpoints where - parseJSON = A.withObject "V1Endpoints" $ \o -> - V1Endpoints - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "subsets") - --- | ToJSON V1Endpoints -instance A.ToJSON V1Endpoints where - toJSON V1Endpoints {..} = - _omitNulls - [ "apiVersion" .= v1EndpointsApiVersion - , "kind" .= v1EndpointsKind - , "metadata" .= v1EndpointsMetadata - , "subsets" .= v1EndpointsSubsets - ] - - --- | Construct a value of type 'V1Endpoints' (by applying it's required fields, if any) -mkV1Endpoints - :: V1Endpoints -mkV1Endpoints = - V1Endpoints - { v1EndpointsApiVersion = Nothing - , v1EndpointsKind = Nothing - , v1EndpointsMetadata = Nothing - , v1EndpointsSubsets = Nothing - } - --- ** V1EndpointsList --- | V1EndpointsList --- EndpointsList is a list of endpoints. -data V1EndpointsList = V1EndpointsList - { v1EndpointsListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1EndpointsListItems :: !([V1Endpoints]) -- ^ /Required/ "items" - List of endpoints. - , v1EndpointsListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1EndpointsListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EndpointsList -instance A.FromJSON V1EndpointsList where - parseJSON = A.withObject "V1EndpointsList" $ \o -> - V1EndpointsList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1EndpointsList -instance A.ToJSON V1EndpointsList where - toJSON V1EndpointsList {..} = - _omitNulls - [ "apiVersion" .= v1EndpointsListApiVersion - , "items" .= v1EndpointsListItems - , "kind" .= v1EndpointsListKind - , "metadata" .= v1EndpointsListMetadata - ] - - --- | Construct a value of type 'V1EndpointsList' (by applying it's required fields, if any) -mkV1EndpointsList - :: [V1Endpoints] -- ^ 'v1EndpointsListItems': List of endpoints. - -> V1EndpointsList -mkV1EndpointsList v1EndpointsListItems = - V1EndpointsList - { v1EndpointsListApiVersion = Nothing - , v1EndpointsListItems - , v1EndpointsListKind = Nothing - , v1EndpointsListMetadata = Nothing - } - --- ** V1EnvFromSource --- | V1EnvFromSource --- EnvFromSource represents the source of a set of ConfigMaps -data V1EnvFromSource = V1EnvFromSource - { v1EnvFromSourceConfigMapRef :: !(Maybe V1ConfigMapEnvSource) -- ^ "configMapRef" - , v1EnvFromSourcePrefix :: !(Maybe Text) -- ^ "prefix" - An optional identifier to prepend to each key in the ConfigMap. Must be a C_IDENTIFIER. - , v1EnvFromSourceSecretRef :: !(Maybe V1SecretEnvSource) -- ^ "secretRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EnvFromSource -instance A.FromJSON V1EnvFromSource where - parseJSON = A.withObject "V1EnvFromSource" $ \o -> - V1EnvFromSource - <$> (o .:? "configMapRef") - <*> (o .:? "prefix") - <*> (o .:? "secretRef") - --- | ToJSON V1EnvFromSource -instance A.ToJSON V1EnvFromSource where - toJSON V1EnvFromSource {..} = - _omitNulls - [ "configMapRef" .= v1EnvFromSourceConfigMapRef - , "prefix" .= v1EnvFromSourcePrefix - , "secretRef" .= v1EnvFromSourceSecretRef - ] - - --- | Construct a value of type 'V1EnvFromSource' (by applying it's required fields, if any) -mkV1EnvFromSource - :: V1EnvFromSource -mkV1EnvFromSource = - V1EnvFromSource - { v1EnvFromSourceConfigMapRef = Nothing - , v1EnvFromSourcePrefix = Nothing - , v1EnvFromSourceSecretRef = Nothing - } - --- ** V1EnvVar --- | V1EnvVar --- EnvVar represents an environment variable present in a Container. -data V1EnvVar = V1EnvVar - { v1EnvVarName :: !(Text) -- ^ /Required/ "name" - Name of the environment variable. Must be a C_IDENTIFIER. - , v1EnvVarValue :: !(Maybe Text) -- ^ "value" - Variable references $(VAR_NAME) are expanded using the previously defined environment variables in the container and any service environment variables. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Defaults to \"\". - , v1EnvVarValueFrom :: !(Maybe V1EnvVarSource) -- ^ "valueFrom" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EnvVar -instance A.FromJSON V1EnvVar where - parseJSON = A.withObject "V1EnvVar" $ \o -> - V1EnvVar - <$> (o .: "name") - <*> (o .:? "value") - <*> (o .:? "valueFrom") - --- | ToJSON V1EnvVar -instance A.ToJSON V1EnvVar where - toJSON V1EnvVar {..} = - _omitNulls - [ "name" .= v1EnvVarName - , "value" .= v1EnvVarValue - , "valueFrom" .= v1EnvVarValueFrom - ] - - --- | Construct a value of type 'V1EnvVar' (by applying it's required fields, if any) -mkV1EnvVar - :: Text -- ^ 'v1EnvVarName': Name of the environment variable. Must be a C_IDENTIFIER. - -> V1EnvVar -mkV1EnvVar v1EnvVarName = - V1EnvVar - { v1EnvVarName - , v1EnvVarValue = Nothing - , v1EnvVarValueFrom = Nothing - } - --- ** V1EnvVarSource --- | V1EnvVarSource --- EnvVarSource represents a source for the value of an EnvVar. -data V1EnvVarSource = V1EnvVarSource - { v1EnvVarSourceConfigMapKeyRef :: !(Maybe V1ConfigMapKeySelector) -- ^ "configMapKeyRef" - , v1EnvVarSourceFieldRef :: !(Maybe V1ObjectFieldSelector) -- ^ "fieldRef" - , v1EnvVarSourceResourceFieldRef :: !(Maybe V1ResourceFieldSelector) -- ^ "resourceFieldRef" - , v1EnvVarSourceSecretKeyRef :: !(Maybe V1SecretKeySelector) -- ^ "secretKeyRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EnvVarSource -instance A.FromJSON V1EnvVarSource where - parseJSON = A.withObject "V1EnvVarSource" $ \o -> - V1EnvVarSource - <$> (o .:? "configMapKeyRef") - <*> (o .:? "fieldRef") - <*> (o .:? "resourceFieldRef") - <*> (o .:? "secretKeyRef") - --- | ToJSON V1EnvVarSource -instance A.ToJSON V1EnvVarSource where - toJSON V1EnvVarSource {..} = - _omitNulls - [ "configMapKeyRef" .= v1EnvVarSourceConfigMapKeyRef - , "fieldRef" .= v1EnvVarSourceFieldRef - , "resourceFieldRef" .= v1EnvVarSourceResourceFieldRef - , "secretKeyRef" .= v1EnvVarSourceSecretKeyRef - ] - - --- | Construct a value of type 'V1EnvVarSource' (by applying it's required fields, if any) -mkV1EnvVarSource - :: V1EnvVarSource -mkV1EnvVarSource = - V1EnvVarSource - { v1EnvVarSourceConfigMapKeyRef = Nothing - , v1EnvVarSourceFieldRef = Nothing - , v1EnvVarSourceResourceFieldRef = Nothing - , v1EnvVarSourceSecretKeyRef = Nothing - } - --- ** V1EphemeralContainer --- | V1EphemeralContainer --- An EphemeralContainer is a temporary container that you may add to an existing Pod for user-initiated activities such as debugging. Ephemeral containers have no resource or scheduling guarantees, and they will not be restarted when they exit or when a Pod is removed or restarted. The kubelet may evict a Pod if an ephemeral container causes the Pod to exceed its resource allocation. To add an ephemeral container, use the ephemeralcontainers subresource of an existing Pod. Ephemeral containers may not be removed or restarted. -data V1EphemeralContainer = V1EphemeralContainer - { v1EphemeralContainerArgs :: !(Maybe [Text]) -- ^ "args" - Arguments to the entrypoint. The image's CMD is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell - , v1EphemeralContainerCommand :: !(Maybe [Text]) -- ^ "command" - Entrypoint array. Not executed within a shell. The image's ENTRYPOINT is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell - , v1EphemeralContainerEnv :: !(Maybe [V1EnvVar]) -- ^ "env" - List of environment variables to set in the container. Cannot be updated. - , v1EphemeralContainerEnvFrom :: !(Maybe [V1EnvFromSource]) -- ^ "envFrom" - List of sources to populate environment variables in the container. The keys defined within a source must be a C_IDENTIFIER. All invalid keys will be reported as an event when the container is starting. When a key exists in multiple sources, the value associated with the last source will take precedence. Values defined by an Env with a duplicate key will take precedence. Cannot be updated. - , v1EphemeralContainerImage :: !(Maybe Text) -- ^ "image" - Container image name. More info: https://kubernetes.io/docs/concepts/containers/images - , v1EphemeralContainerImagePullPolicy :: !(Maybe Text) -- ^ "imagePullPolicy" - Image pull policy. One of Always, Never, IfNotPresent. Defaults to Always if :latest tag is specified, or IfNotPresent otherwise. Cannot be updated. More info: https://kubernetes.io/docs/concepts/containers/images#updating-images - , v1EphemeralContainerLifecycle :: !(Maybe V1Lifecycle) -- ^ "lifecycle" - , v1EphemeralContainerLivenessProbe :: !(Maybe V1Probe) -- ^ "livenessProbe" - , v1EphemeralContainerName :: !(Text) -- ^ /Required/ "name" - Name of the ephemeral container specified as a DNS_LABEL. This name must be unique among all containers, init containers and ephemeral containers. - , v1EphemeralContainerPorts :: !(Maybe [V1ContainerPort]) -- ^ "ports" - Ports are not allowed for ephemeral containers. - , v1EphemeralContainerReadinessProbe :: !(Maybe V1Probe) -- ^ "readinessProbe" - , v1EphemeralContainerResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" - , v1EphemeralContainerSecurityContext :: !(Maybe V1SecurityContext) -- ^ "securityContext" - , v1EphemeralContainerStartupProbe :: !(Maybe V1Probe) -- ^ "startupProbe" - , v1EphemeralContainerStdin :: !(Maybe Bool) -- ^ "stdin" - Whether this container should allocate a buffer for stdin in the container runtime. If this is not set, reads from stdin in the container will always result in EOF. Default is false. - , v1EphemeralContainerStdinOnce :: !(Maybe Bool) -- ^ "stdinOnce" - Whether the container runtime should close the stdin channel after it has been opened by a single attach. When stdin is true the stdin stream will remain open across multiple attach sessions. If stdinOnce is set to true, stdin is opened on container start, is empty until the first client attaches to stdin, and then remains open and accepts data until the client disconnects, at which time stdin is closed and remains closed until the container is restarted. If this flag is false, a container processes that reads from stdin will never receive an EOF. Default is false - , v1EphemeralContainerTargetContainerName :: !(Maybe Text) -- ^ "targetContainerName" - If set, the name of the container from PodSpec that this ephemeral container targets. The ephemeral container will be run in the namespaces (IPC, PID, etc) of this container. If not set then the ephemeral container uses the namespaces configured in the Pod spec. The container runtime must implement support for this feature. If the runtime does not support namespace targeting then the result of setting this field is undefined. - , v1EphemeralContainerTerminationMessagePath :: !(Maybe Text) -- ^ "terminationMessagePath" - Optional: Path at which the file to which the container's termination message will be written is mounted into the container's filesystem. Message written is intended to be brief final status, such as an assertion failure message. Will be truncated by the node if greater than 4096 bytes. The total message length across all containers will be limited to 12kb. Defaults to /dev/termination-log. Cannot be updated. - , v1EphemeralContainerTerminationMessagePolicy :: !(Maybe Text) -- ^ "terminationMessagePolicy" - Indicate how the termination message should be populated. File will use the contents of terminationMessagePath to populate the container status message on both success and failure. FallbackToLogsOnError will use the last chunk of container log output if the termination message file is empty and the container exited with an error. The log output is limited to 2048 bytes or 80 lines, whichever is smaller. Defaults to File. Cannot be updated. - , v1EphemeralContainerTty :: !(Maybe Bool) -- ^ "tty" - Whether this container should allocate a TTY for itself, also requires 'stdin' to be true. Default is false. - , v1EphemeralContainerVolumeDevices :: !(Maybe [V1VolumeDevice]) -- ^ "volumeDevices" - volumeDevices is the list of block devices to be used by the container. - , v1EphemeralContainerVolumeMounts :: !(Maybe [V1VolumeMount]) -- ^ "volumeMounts" - Pod volumes to mount into the container's filesystem. Subpath mounts are not allowed for ephemeral containers. Cannot be updated. - , v1EphemeralContainerWorkingDir :: !(Maybe Text) -- ^ "workingDir" - Container's working directory. If not specified, the container runtime's default will be used, which might be configured in the container image. Cannot be updated. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EphemeralContainer -instance A.FromJSON V1EphemeralContainer where - parseJSON = A.withObject "V1EphemeralContainer" $ \o -> - V1EphemeralContainer - <$> (o .:? "args") - <*> (o .:? "command") - <*> (o .:? "env") - <*> (o .:? "envFrom") - <*> (o .:? "image") - <*> (o .:? "imagePullPolicy") - <*> (o .:? "lifecycle") - <*> (o .:? "livenessProbe") - <*> (o .: "name") - <*> (o .:? "ports") - <*> (o .:? "readinessProbe") - <*> (o .:? "resources") - <*> (o .:? "securityContext") - <*> (o .:? "startupProbe") - <*> (o .:? "stdin") - <*> (o .:? "stdinOnce") - <*> (o .:? "targetContainerName") - <*> (o .:? "terminationMessagePath") - <*> (o .:? "terminationMessagePolicy") - <*> (o .:? "tty") - <*> (o .:? "volumeDevices") - <*> (o .:? "volumeMounts") - <*> (o .:? "workingDir") - --- | ToJSON V1EphemeralContainer -instance A.ToJSON V1EphemeralContainer where - toJSON V1EphemeralContainer {..} = - _omitNulls - [ "args" .= v1EphemeralContainerArgs - , "command" .= v1EphemeralContainerCommand - , "env" .= v1EphemeralContainerEnv - , "envFrom" .= v1EphemeralContainerEnvFrom - , "image" .= v1EphemeralContainerImage - , "imagePullPolicy" .= v1EphemeralContainerImagePullPolicy - , "lifecycle" .= v1EphemeralContainerLifecycle - , "livenessProbe" .= v1EphemeralContainerLivenessProbe - , "name" .= v1EphemeralContainerName - , "ports" .= v1EphemeralContainerPorts - , "readinessProbe" .= v1EphemeralContainerReadinessProbe - , "resources" .= v1EphemeralContainerResources - , "securityContext" .= v1EphemeralContainerSecurityContext - , "startupProbe" .= v1EphemeralContainerStartupProbe - , "stdin" .= v1EphemeralContainerStdin - , "stdinOnce" .= v1EphemeralContainerStdinOnce - , "targetContainerName" .= v1EphemeralContainerTargetContainerName - , "terminationMessagePath" .= v1EphemeralContainerTerminationMessagePath - , "terminationMessagePolicy" .= v1EphemeralContainerTerminationMessagePolicy - , "tty" .= v1EphemeralContainerTty - , "volumeDevices" .= v1EphemeralContainerVolumeDevices - , "volumeMounts" .= v1EphemeralContainerVolumeMounts - , "workingDir" .= v1EphemeralContainerWorkingDir - ] - - --- | Construct a value of type 'V1EphemeralContainer' (by applying it's required fields, if any) -mkV1EphemeralContainer - :: Text -- ^ 'v1EphemeralContainerName': Name of the ephemeral container specified as a DNS_LABEL. This name must be unique among all containers, init containers and ephemeral containers. - -> V1EphemeralContainer -mkV1EphemeralContainer v1EphemeralContainerName = - V1EphemeralContainer - { v1EphemeralContainerArgs = Nothing - , v1EphemeralContainerCommand = Nothing - , v1EphemeralContainerEnv = Nothing - , v1EphemeralContainerEnvFrom = Nothing - , v1EphemeralContainerImage = Nothing - , v1EphemeralContainerImagePullPolicy = Nothing - , v1EphemeralContainerLifecycle = Nothing - , v1EphemeralContainerLivenessProbe = Nothing - , v1EphemeralContainerName - , v1EphemeralContainerPorts = Nothing - , v1EphemeralContainerReadinessProbe = Nothing - , v1EphemeralContainerResources = Nothing - , v1EphemeralContainerSecurityContext = Nothing - , v1EphemeralContainerStartupProbe = Nothing - , v1EphemeralContainerStdin = Nothing - , v1EphemeralContainerStdinOnce = Nothing - , v1EphemeralContainerTargetContainerName = Nothing - , v1EphemeralContainerTerminationMessagePath = Nothing - , v1EphemeralContainerTerminationMessagePolicy = Nothing - , v1EphemeralContainerTty = Nothing - , v1EphemeralContainerVolumeDevices = Nothing - , v1EphemeralContainerVolumeMounts = Nothing - , v1EphemeralContainerWorkingDir = Nothing - } - --- ** V1EphemeralVolumeSource --- | V1EphemeralVolumeSource --- Represents an ephemeral volume that is handled by a normal storage driver. -data V1EphemeralVolumeSource = V1EphemeralVolumeSource - { v1EphemeralVolumeSourceVolumeClaimTemplate :: !(Maybe V1PersistentVolumeClaimTemplate) -- ^ "volumeClaimTemplate" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EphemeralVolumeSource -instance A.FromJSON V1EphemeralVolumeSource where - parseJSON = A.withObject "V1EphemeralVolumeSource" $ \o -> - V1EphemeralVolumeSource - <$> (o .:? "volumeClaimTemplate") - --- | ToJSON V1EphemeralVolumeSource -instance A.ToJSON V1EphemeralVolumeSource where - toJSON V1EphemeralVolumeSource {..} = - _omitNulls - [ "volumeClaimTemplate" .= v1EphemeralVolumeSourceVolumeClaimTemplate - ] - - --- | Construct a value of type 'V1EphemeralVolumeSource' (by applying it's required fields, if any) -mkV1EphemeralVolumeSource - :: V1EphemeralVolumeSource -mkV1EphemeralVolumeSource = - V1EphemeralVolumeSource - { v1EphemeralVolumeSourceVolumeClaimTemplate = Nothing - } - --- ** V1EventSource --- | V1EventSource --- EventSource contains information for an event. -data V1EventSource = V1EventSource - { v1EventSourceComponent :: !(Maybe Text) -- ^ "component" - Component from which the event is generated. - , v1EventSourceHost :: !(Maybe Text) -- ^ "host" - Node name on which the event is generated. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1EventSource -instance A.FromJSON V1EventSource where - parseJSON = A.withObject "V1EventSource" $ \o -> - V1EventSource - <$> (o .:? "component") - <*> (o .:? "host") - --- | ToJSON V1EventSource -instance A.ToJSON V1EventSource where - toJSON V1EventSource {..} = - _omitNulls - [ "component" .= v1EventSourceComponent - , "host" .= v1EventSourceHost - ] - - --- | Construct a value of type 'V1EventSource' (by applying it's required fields, if any) -mkV1EventSource - :: V1EventSource -mkV1EventSource = - V1EventSource - { v1EventSourceComponent = Nothing - , v1EventSourceHost = Nothing - } - --- ** V1Eviction --- | V1Eviction --- Eviction evicts a pod from its node subject to certain policies and safety constraints. This is a subresource of Pod. A request to cause such an eviction is created by POSTing to .../pods//evictions. -data V1Eviction = V1Eviction - { v1EvictionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1EvictionDeleteOptions :: !(Maybe V1DeleteOptions) -- ^ "deleteOptions" - , v1EvictionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1EvictionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Eviction -instance A.FromJSON V1Eviction where - parseJSON = A.withObject "V1Eviction" $ \o -> - V1Eviction - <$> (o .:? "apiVersion") - <*> (o .:? "deleteOptions") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1Eviction -instance A.ToJSON V1Eviction where - toJSON V1Eviction {..} = - _omitNulls - [ "apiVersion" .= v1EvictionApiVersion - , "deleteOptions" .= v1EvictionDeleteOptions - , "kind" .= v1EvictionKind - , "metadata" .= v1EvictionMetadata - ] - - --- | Construct a value of type 'V1Eviction' (by applying it's required fields, if any) -mkV1Eviction - :: V1Eviction -mkV1Eviction = - V1Eviction - { v1EvictionApiVersion = Nothing - , v1EvictionDeleteOptions = Nothing - , v1EvictionKind = Nothing - , v1EvictionMetadata = Nothing - } - --- ** V1ExecAction --- | V1ExecAction --- ExecAction describes a \"run in container\" action. -data V1ExecAction = V1ExecAction - { v1ExecActionCommand :: !(Maybe [Text]) -- ^ "command" - Command is the command line to execute inside the container, the working directory for the command is root ('/') in the container's filesystem. The command is simply exec'd, it is not run inside a shell, so traditional shell instructions ('|', etc) won't work. To use a shell, you need to explicitly call out to that shell. Exit status of 0 is treated as live/healthy and non-zero is unhealthy. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ExecAction -instance A.FromJSON V1ExecAction where - parseJSON = A.withObject "V1ExecAction" $ \o -> - V1ExecAction - <$> (o .:? "command") - --- | ToJSON V1ExecAction -instance A.ToJSON V1ExecAction where - toJSON V1ExecAction {..} = - _omitNulls - [ "command" .= v1ExecActionCommand - ] - - --- | Construct a value of type 'V1ExecAction' (by applying it's required fields, if any) -mkV1ExecAction - :: V1ExecAction -mkV1ExecAction = - V1ExecAction - { v1ExecActionCommand = Nothing - } - --- ** V1ExternalDocumentation --- | V1ExternalDocumentation --- ExternalDocumentation allows referencing an external resource for extended documentation. -data V1ExternalDocumentation = V1ExternalDocumentation - { v1ExternalDocumentationDescription :: !(Maybe Text) -- ^ "description" - , v1ExternalDocumentationUrl :: !(Maybe Text) -- ^ "url" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ExternalDocumentation -instance A.FromJSON V1ExternalDocumentation where - parseJSON = A.withObject "V1ExternalDocumentation" $ \o -> - V1ExternalDocumentation - <$> (o .:? "description") - <*> (o .:? "url") - --- | ToJSON V1ExternalDocumentation -instance A.ToJSON V1ExternalDocumentation where - toJSON V1ExternalDocumentation {..} = - _omitNulls - [ "description" .= v1ExternalDocumentationDescription - , "url" .= v1ExternalDocumentationUrl - ] - - --- | Construct a value of type 'V1ExternalDocumentation' (by applying it's required fields, if any) -mkV1ExternalDocumentation - :: V1ExternalDocumentation -mkV1ExternalDocumentation = - V1ExternalDocumentation - { v1ExternalDocumentationDescription = Nothing - , v1ExternalDocumentationUrl = Nothing - } - --- ** V1FCVolumeSource --- | V1FCVolumeSource --- Represents a Fibre Channel volume. Fibre Channel volumes can only be mounted as read/write once. Fibre Channel volumes support ownership management and SELinux relabeling. -data V1FCVolumeSource = V1FCVolumeSource - { v1FCVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1FCVolumeSourceLun :: !(Maybe Int) -- ^ "lun" - lun is Optional: FC target lun number - , v1FCVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1FCVolumeSourceTargetWwns :: !(Maybe [Text]) -- ^ "targetWWNs" - targetWWNs is Optional: FC target worldwide names (WWNs) - , v1FCVolumeSourceWwids :: !(Maybe [Text]) -- ^ "wwids" - wwids Optional: FC volume world wide identifiers (wwids) Either wwids or combination of targetWWNs and lun must be set, but not both simultaneously. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1FCVolumeSource -instance A.FromJSON V1FCVolumeSource where - parseJSON = A.withObject "V1FCVolumeSource" $ \o -> - V1FCVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "lun") - <*> (o .:? "readOnly") - <*> (o .:? "targetWWNs") - <*> (o .:? "wwids") - --- | ToJSON V1FCVolumeSource -instance A.ToJSON V1FCVolumeSource where - toJSON V1FCVolumeSource {..} = - _omitNulls - [ "fsType" .= v1FCVolumeSourceFsType - , "lun" .= v1FCVolumeSourceLun - , "readOnly" .= v1FCVolumeSourceReadOnly - , "targetWWNs" .= v1FCVolumeSourceTargetWwns - , "wwids" .= v1FCVolumeSourceWwids - ] - - --- | Construct a value of type 'V1FCVolumeSource' (by applying it's required fields, if any) -mkV1FCVolumeSource - :: V1FCVolumeSource -mkV1FCVolumeSource = - V1FCVolumeSource - { v1FCVolumeSourceFsType = Nothing - , v1FCVolumeSourceLun = Nothing - , v1FCVolumeSourceReadOnly = Nothing - , v1FCVolumeSourceTargetWwns = Nothing - , v1FCVolumeSourceWwids = Nothing - } - --- ** V1FlexPersistentVolumeSource --- | V1FlexPersistentVolumeSource --- FlexPersistentVolumeSource represents a generic persistent volume resource that is provisioned/attached using an exec based plugin. -data V1FlexPersistentVolumeSource = V1FlexPersistentVolumeSource - { v1FlexPersistentVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. - , v1FlexPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the Filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default filesystem depends on FlexVolume script. - , v1FlexPersistentVolumeSourceOptions :: !(Maybe (Map.Map String Text)) -- ^ "options" - options is Optional: this field holds extra command options if any. - , v1FlexPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1FlexPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1FlexPersistentVolumeSource -instance A.FromJSON V1FlexPersistentVolumeSource where - parseJSON = A.withObject "V1FlexPersistentVolumeSource" $ \o -> - V1FlexPersistentVolumeSource - <$> (o .: "driver") - <*> (o .:? "fsType") - <*> (o .:? "options") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - --- | ToJSON V1FlexPersistentVolumeSource -instance A.ToJSON V1FlexPersistentVolumeSource where - toJSON V1FlexPersistentVolumeSource {..} = - _omitNulls - [ "driver" .= v1FlexPersistentVolumeSourceDriver - , "fsType" .= v1FlexPersistentVolumeSourceFsType - , "options" .= v1FlexPersistentVolumeSourceOptions - , "readOnly" .= v1FlexPersistentVolumeSourceReadOnly - , "secretRef" .= v1FlexPersistentVolumeSourceSecretRef - ] - - --- | Construct a value of type 'V1FlexPersistentVolumeSource' (by applying it's required fields, if any) -mkV1FlexPersistentVolumeSource - :: Text -- ^ 'v1FlexPersistentVolumeSourceDriver': driver is the name of the driver to use for this volume. - -> V1FlexPersistentVolumeSource -mkV1FlexPersistentVolumeSource v1FlexPersistentVolumeSourceDriver = - V1FlexPersistentVolumeSource - { v1FlexPersistentVolumeSourceDriver - , v1FlexPersistentVolumeSourceFsType = Nothing - , v1FlexPersistentVolumeSourceOptions = Nothing - , v1FlexPersistentVolumeSourceReadOnly = Nothing - , v1FlexPersistentVolumeSourceSecretRef = Nothing - } - --- ** V1FlexVolumeSource --- | V1FlexVolumeSource --- FlexVolume represents a generic volume resource that is provisioned/attached using an exec based plugin. -data V1FlexVolumeSource = V1FlexVolumeSource - { v1FlexVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. - , v1FlexVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default filesystem depends on FlexVolume script. - , v1FlexVolumeSourceOptions :: !(Maybe (Map.Map String Text)) -- ^ "options" - options is Optional: this field holds extra command options if any. - , v1FlexVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1FlexVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1FlexVolumeSource -instance A.FromJSON V1FlexVolumeSource where - parseJSON = A.withObject "V1FlexVolumeSource" $ \o -> - V1FlexVolumeSource - <$> (o .: "driver") - <*> (o .:? "fsType") - <*> (o .:? "options") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - --- | ToJSON V1FlexVolumeSource -instance A.ToJSON V1FlexVolumeSource where - toJSON V1FlexVolumeSource {..} = - _omitNulls - [ "driver" .= v1FlexVolumeSourceDriver - , "fsType" .= v1FlexVolumeSourceFsType - , "options" .= v1FlexVolumeSourceOptions - , "readOnly" .= v1FlexVolumeSourceReadOnly - , "secretRef" .= v1FlexVolumeSourceSecretRef - ] - - --- | Construct a value of type 'V1FlexVolumeSource' (by applying it's required fields, if any) -mkV1FlexVolumeSource - :: Text -- ^ 'v1FlexVolumeSourceDriver': driver is the name of the driver to use for this volume. - -> V1FlexVolumeSource -mkV1FlexVolumeSource v1FlexVolumeSourceDriver = - V1FlexVolumeSource - { v1FlexVolumeSourceDriver - , v1FlexVolumeSourceFsType = Nothing - , v1FlexVolumeSourceOptions = Nothing - , v1FlexVolumeSourceReadOnly = Nothing - , v1FlexVolumeSourceSecretRef = Nothing - } - --- ** V1FlockerVolumeSource --- | V1FlockerVolumeSource --- Represents a Flocker volume mounted by the Flocker agent. One and only one of datasetName and datasetUUID should be set. Flocker volumes do not support ownership management or SELinux relabeling. -data V1FlockerVolumeSource = V1FlockerVolumeSource - { v1FlockerVolumeSourceDatasetName :: !(Maybe Text) -- ^ "datasetName" - datasetName is Name of the dataset stored as metadata -> name on the dataset for Flocker should be considered as deprecated - , v1FlockerVolumeSourceDatasetUuid :: !(Maybe Text) -- ^ "datasetUUID" - datasetUUID is the UUID of the dataset. This is unique identifier of a Flocker dataset - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1FlockerVolumeSource -instance A.FromJSON V1FlockerVolumeSource where - parseJSON = A.withObject "V1FlockerVolumeSource" $ \o -> - V1FlockerVolumeSource - <$> (o .:? "datasetName") - <*> (o .:? "datasetUUID") - --- | ToJSON V1FlockerVolumeSource -instance A.ToJSON V1FlockerVolumeSource where - toJSON V1FlockerVolumeSource {..} = - _omitNulls - [ "datasetName" .= v1FlockerVolumeSourceDatasetName - , "datasetUUID" .= v1FlockerVolumeSourceDatasetUuid - ] - - --- | Construct a value of type 'V1FlockerVolumeSource' (by applying it's required fields, if any) -mkV1FlockerVolumeSource - :: V1FlockerVolumeSource -mkV1FlockerVolumeSource = - V1FlockerVolumeSource - { v1FlockerVolumeSourceDatasetName = Nothing - , v1FlockerVolumeSourceDatasetUuid = Nothing - } - --- ** V1ForZone --- | V1ForZone --- ForZone provides information about which zones should consume this endpoint. -data V1ForZone = V1ForZone - { v1ForZoneName :: !(Text) -- ^ /Required/ "name" - name represents the name of the zone. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ForZone -instance A.FromJSON V1ForZone where - parseJSON = A.withObject "V1ForZone" $ \o -> - V1ForZone - <$> (o .: "name") - --- | ToJSON V1ForZone -instance A.ToJSON V1ForZone where - toJSON V1ForZone {..} = - _omitNulls - [ "name" .= v1ForZoneName - ] - - --- | Construct a value of type 'V1ForZone' (by applying it's required fields, if any) -mkV1ForZone - :: Text -- ^ 'v1ForZoneName': name represents the name of the zone. - -> V1ForZone -mkV1ForZone v1ForZoneName = - V1ForZone - { v1ForZoneName - } - --- ** V1GCEPersistentDiskVolumeSource --- | V1GCEPersistentDiskVolumeSource --- Represents a Persistent Disk resource in Google Compute Engine. A GCE PD must exist before mounting to a container. The disk must also be in the same GCE project and zone as the kubelet. A GCE PD can only be mounted as read/write once or read-only many times. GCE PDs support ownership management and SELinux relabeling. -data V1GCEPersistentDiskVolumeSource = V1GCEPersistentDiskVolumeSource - { v1GCEPersistentDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk - , v1GCEPersistentDiskVolumeSourcePartition :: !(Maybe Int) -- ^ "partition" - partition is the partition in the volume that you want to mount. If omitted, the default is to mount by volume name. Examples: For volume /dev/sda1, you specify the partition as \"1\". Similarly, the volume partition for /dev/sda is \"0\" (or you can leave the property empty). More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk - , v1GCEPersistentDiskVolumeSourcePdName :: !(Text) -- ^ /Required/ "pdName" - pdName is unique name of the PD resource in GCE. Used to identify the disk in GCE. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk - , v1GCEPersistentDiskVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GCEPersistentDiskVolumeSource -instance A.FromJSON V1GCEPersistentDiskVolumeSource where - parseJSON = A.withObject "V1GCEPersistentDiskVolumeSource" $ \o -> - V1GCEPersistentDiskVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "partition") - <*> (o .: "pdName") - <*> (o .:? "readOnly") - --- | ToJSON V1GCEPersistentDiskVolumeSource -instance A.ToJSON V1GCEPersistentDiskVolumeSource where - toJSON V1GCEPersistentDiskVolumeSource {..} = - _omitNulls - [ "fsType" .= v1GCEPersistentDiskVolumeSourceFsType - , "partition" .= v1GCEPersistentDiskVolumeSourcePartition - , "pdName" .= v1GCEPersistentDiskVolumeSourcePdName - , "readOnly" .= v1GCEPersistentDiskVolumeSourceReadOnly - ] - - --- | Construct a value of type 'V1GCEPersistentDiskVolumeSource' (by applying it's required fields, if any) -mkV1GCEPersistentDiskVolumeSource - :: Text -- ^ 'v1GCEPersistentDiskVolumeSourcePdName': pdName is unique name of the PD resource in GCE. Used to identify the disk in GCE. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk - -> V1GCEPersistentDiskVolumeSource -mkV1GCEPersistentDiskVolumeSource v1GCEPersistentDiskVolumeSourcePdName = - V1GCEPersistentDiskVolumeSource - { v1GCEPersistentDiskVolumeSourceFsType = Nothing - , v1GCEPersistentDiskVolumeSourcePartition = Nothing - , v1GCEPersistentDiskVolumeSourcePdName - , v1GCEPersistentDiskVolumeSourceReadOnly = Nothing - } - --- ** V1GRPCAction --- | V1GRPCAction -data V1GRPCAction = V1GRPCAction - { v1GRPCActionPort :: !(Int) -- ^ /Required/ "port" - Port number of the gRPC service. Number must be in the range 1 to 65535. - , v1GRPCActionService :: !(Maybe Text) -- ^ "service" - Service is the name of the service to place in the gRPC HealthCheckRequest (see https://github.com/grpc/grpc/blob/master/doc/health-checking.md). If this is not specified, the default behavior is defined by gRPC. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GRPCAction -instance A.FromJSON V1GRPCAction where - parseJSON = A.withObject "V1GRPCAction" $ \o -> - V1GRPCAction - <$> (o .: "port") - <*> (o .:? "service") - --- | ToJSON V1GRPCAction -instance A.ToJSON V1GRPCAction where - toJSON V1GRPCAction {..} = - _omitNulls - [ "port" .= v1GRPCActionPort - , "service" .= v1GRPCActionService - ] - - --- | Construct a value of type 'V1GRPCAction' (by applying it's required fields, if any) -mkV1GRPCAction - :: Int -- ^ 'v1GRPCActionPort': Port number of the gRPC service. Number must be in the range 1 to 65535. - -> V1GRPCAction -mkV1GRPCAction v1GRPCActionPort = - V1GRPCAction - { v1GRPCActionPort - , v1GRPCActionService = Nothing - } - --- ** V1GitRepoVolumeSource --- | V1GitRepoVolumeSource --- Represents a volume that is populated with the contents of a git repository. Git repo volumes do not support ownership management. Git repo volumes support SELinux relabeling. DEPRECATED: GitRepo is deprecated. To provision a container with a git repo, mount an EmptyDir into an InitContainer that clones the repo using git, then mount the EmptyDir into the Pod's container. -data V1GitRepoVolumeSource = V1GitRepoVolumeSource - { v1GitRepoVolumeSourceDirectory :: !(Maybe Text) -- ^ "directory" - directory is the target directory name. Must not contain or start with '..'. If '.' is supplied, the volume directory will be the git repository. Otherwise, if specified, the volume will contain the git repository in the subdirectory with the given name. - , v1GitRepoVolumeSourceRepository :: !(Text) -- ^ /Required/ "repository" - repository is the URL - , v1GitRepoVolumeSourceRevision :: !(Maybe Text) -- ^ "revision" - revision is the commit hash for the specified revision. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GitRepoVolumeSource -instance A.FromJSON V1GitRepoVolumeSource where - parseJSON = A.withObject "V1GitRepoVolumeSource" $ \o -> - V1GitRepoVolumeSource - <$> (o .:? "directory") - <*> (o .: "repository") - <*> (o .:? "revision") - --- | ToJSON V1GitRepoVolumeSource -instance A.ToJSON V1GitRepoVolumeSource where - toJSON V1GitRepoVolumeSource {..} = - _omitNulls - [ "directory" .= v1GitRepoVolumeSourceDirectory - , "repository" .= v1GitRepoVolumeSourceRepository - , "revision" .= v1GitRepoVolumeSourceRevision - ] - - --- | Construct a value of type 'V1GitRepoVolumeSource' (by applying it's required fields, if any) -mkV1GitRepoVolumeSource - :: Text -- ^ 'v1GitRepoVolumeSourceRepository': repository is the URL - -> V1GitRepoVolumeSource -mkV1GitRepoVolumeSource v1GitRepoVolumeSourceRepository = - V1GitRepoVolumeSource - { v1GitRepoVolumeSourceDirectory = Nothing - , v1GitRepoVolumeSourceRepository - , v1GitRepoVolumeSourceRevision = Nothing - } - --- ** V1GlusterfsPersistentVolumeSource --- | V1GlusterfsPersistentVolumeSource --- Represents a Glusterfs mount that lasts the lifetime of a pod. Glusterfs volumes do not support ownership management or SELinux relabeling. -data V1GlusterfsPersistentVolumeSource = V1GlusterfsPersistentVolumeSource - { v1GlusterfsPersistentVolumeSourceEndpoints :: !(Text) -- ^ /Required/ "endpoints" - endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - , v1GlusterfsPersistentVolumeSourceEndpointsNamespace :: !(Maybe Text) -- ^ "endpointsNamespace" - endpointsNamespace is the namespace that contains Glusterfs endpoint. If this field is empty, the EndpointNamespace defaults to the same namespace as the bound PVC. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - , v1GlusterfsPersistentVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - , v1GlusterfsPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Glusterfs volume to be mounted with read-only permissions. Defaults to false. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GlusterfsPersistentVolumeSource -instance A.FromJSON V1GlusterfsPersistentVolumeSource where - parseJSON = A.withObject "V1GlusterfsPersistentVolumeSource" $ \o -> - V1GlusterfsPersistentVolumeSource - <$> (o .: "endpoints") - <*> (o .:? "endpointsNamespace") - <*> (o .: "path") - <*> (o .:? "readOnly") - --- | ToJSON V1GlusterfsPersistentVolumeSource -instance A.ToJSON V1GlusterfsPersistentVolumeSource where - toJSON V1GlusterfsPersistentVolumeSource {..} = - _omitNulls - [ "endpoints" .= v1GlusterfsPersistentVolumeSourceEndpoints - , "endpointsNamespace" .= v1GlusterfsPersistentVolumeSourceEndpointsNamespace - , "path" .= v1GlusterfsPersistentVolumeSourcePath - , "readOnly" .= v1GlusterfsPersistentVolumeSourceReadOnly - ] - - --- | Construct a value of type 'V1GlusterfsPersistentVolumeSource' (by applying it's required fields, if any) -mkV1GlusterfsPersistentVolumeSource - :: Text -- ^ 'v1GlusterfsPersistentVolumeSourceEndpoints': endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - -> Text -- ^ 'v1GlusterfsPersistentVolumeSourcePath': path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - -> V1GlusterfsPersistentVolumeSource -mkV1GlusterfsPersistentVolumeSource v1GlusterfsPersistentVolumeSourceEndpoints v1GlusterfsPersistentVolumeSourcePath = - V1GlusterfsPersistentVolumeSource - { v1GlusterfsPersistentVolumeSourceEndpoints - , v1GlusterfsPersistentVolumeSourceEndpointsNamespace = Nothing - , v1GlusterfsPersistentVolumeSourcePath - , v1GlusterfsPersistentVolumeSourceReadOnly = Nothing - } - --- ** V1GlusterfsVolumeSource --- | V1GlusterfsVolumeSource --- Represents a Glusterfs mount that lasts the lifetime of a pod. Glusterfs volumes do not support ownership management or SELinux relabeling. -data V1GlusterfsVolumeSource = V1GlusterfsVolumeSource - { v1GlusterfsVolumeSourceEndpoints :: !(Text) -- ^ /Required/ "endpoints" - endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - , v1GlusterfsVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - , v1GlusterfsVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Glusterfs volume to be mounted with read-only permissions. Defaults to false. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GlusterfsVolumeSource -instance A.FromJSON V1GlusterfsVolumeSource where - parseJSON = A.withObject "V1GlusterfsVolumeSource" $ \o -> - V1GlusterfsVolumeSource - <$> (o .: "endpoints") - <*> (o .: "path") - <*> (o .:? "readOnly") - --- | ToJSON V1GlusterfsVolumeSource -instance A.ToJSON V1GlusterfsVolumeSource where - toJSON V1GlusterfsVolumeSource {..} = - _omitNulls - [ "endpoints" .= v1GlusterfsVolumeSourceEndpoints - , "path" .= v1GlusterfsVolumeSourcePath - , "readOnly" .= v1GlusterfsVolumeSourceReadOnly - ] - - --- | Construct a value of type 'V1GlusterfsVolumeSource' (by applying it's required fields, if any) -mkV1GlusterfsVolumeSource - :: Text -- ^ 'v1GlusterfsVolumeSourceEndpoints': endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - -> Text -- ^ 'v1GlusterfsVolumeSourcePath': path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod - -> V1GlusterfsVolumeSource -mkV1GlusterfsVolumeSource v1GlusterfsVolumeSourceEndpoints v1GlusterfsVolumeSourcePath = - V1GlusterfsVolumeSource - { v1GlusterfsVolumeSourceEndpoints - , v1GlusterfsVolumeSourcePath - , v1GlusterfsVolumeSourceReadOnly = Nothing - } - --- ** V1GroupVersionForDiscovery --- | V1GroupVersionForDiscovery --- GroupVersion contains the \"group/version\" and \"version\" string of a version. It is made a struct to keep extensibility. -data V1GroupVersionForDiscovery = V1GroupVersionForDiscovery - { v1GroupVersionForDiscoveryGroupVersion :: !(Text) -- ^ /Required/ "groupVersion" - groupVersion specifies the API group and version in the form \"group/version\" - , v1GroupVersionForDiscoveryVersion :: !(Text) -- ^ /Required/ "version" - version specifies the version in the form of \"version\". This is to save the clients the trouble of splitting the GroupVersion. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1GroupVersionForDiscovery -instance A.FromJSON V1GroupVersionForDiscovery where - parseJSON = A.withObject "V1GroupVersionForDiscovery" $ \o -> - V1GroupVersionForDiscovery - <$> (o .: "groupVersion") - <*> (o .: "version") - --- | ToJSON V1GroupVersionForDiscovery -instance A.ToJSON V1GroupVersionForDiscovery where - toJSON V1GroupVersionForDiscovery {..} = - _omitNulls - [ "groupVersion" .= v1GroupVersionForDiscoveryGroupVersion - , "version" .= v1GroupVersionForDiscoveryVersion - ] - - --- | Construct a value of type 'V1GroupVersionForDiscovery' (by applying it's required fields, if any) -mkV1GroupVersionForDiscovery - :: Text -- ^ 'v1GroupVersionForDiscoveryGroupVersion': groupVersion specifies the API group and version in the form \"group/version\" - -> Text -- ^ 'v1GroupVersionForDiscoveryVersion': version specifies the version in the form of \"version\". This is to save the clients the trouble of splitting the GroupVersion. - -> V1GroupVersionForDiscovery -mkV1GroupVersionForDiscovery v1GroupVersionForDiscoveryGroupVersion v1GroupVersionForDiscoveryVersion = - V1GroupVersionForDiscovery - { v1GroupVersionForDiscoveryGroupVersion - , v1GroupVersionForDiscoveryVersion - } - --- ** V1HTTPGetAction --- | V1HTTPGetAction --- HTTPGetAction describes an action based on HTTP Get requests. -data V1HTTPGetAction = V1HTTPGetAction - { v1HTTPGetActionHost :: !(Maybe Text) -- ^ "host" - Host name to connect to, defaults to the pod IP. You probably want to set \"Host\" in httpHeaders instead. - , v1HTTPGetActionHttpHeaders :: !(Maybe [V1HTTPHeader]) -- ^ "httpHeaders" - Custom headers to set in the request. HTTP allows repeated headers. - , v1HTTPGetActionPath :: !(Maybe Text) -- ^ "path" - Path to access on the HTTP server. - , v1HTTPGetActionPort :: !(IntOrString) -- ^ /Required/ "port" - , v1HTTPGetActionScheme :: !(Maybe Text) -- ^ "scheme" - Scheme to use for connecting to the host. Defaults to HTTP. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HTTPGetAction -instance A.FromJSON V1HTTPGetAction where - parseJSON = A.withObject "V1HTTPGetAction" $ \o -> - V1HTTPGetAction - <$> (o .:? "host") - <*> (o .:? "httpHeaders") - <*> (o .:? "path") - <*> (o .: "port") - <*> (o .:? "scheme") - --- | ToJSON V1HTTPGetAction -instance A.ToJSON V1HTTPGetAction where - toJSON V1HTTPGetAction {..} = - _omitNulls - [ "host" .= v1HTTPGetActionHost - , "httpHeaders" .= v1HTTPGetActionHttpHeaders - , "path" .= v1HTTPGetActionPath - , "port" .= v1HTTPGetActionPort - , "scheme" .= v1HTTPGetActionScheme - ] - - --- | Construct a value of type 'V1HTTPGetAction' (by applying it's required fields, if any) -mkV1HTTPGetAction - :: IntOrString -- ^ 'v1HTTPGetActionPort' - -> V1HTTPGetAction -mkV1HTTPGetAction v1HTTPGetActionPort = - V1HTTPGetAction - { v1HTTPGetActionHost = Nothing - , v1HTTPGetActionHttpHeaders = Nothing - , v1HTTPGetActionPath = Nothing - , v1HTTPGetActionPort - , v1HTTPGetActionScheme = Nothing - } - --- ** V1HTTPHeader --- | V1HTTPHeader --- HTTPHeader describes a custom header to be used in HTTP probes -data V1HTTPHeader = V1HTTPHeader - { v1HTTPHeaderName :: !(Text) -- ^ /Required/ "name" - The header field name. This will be canonicalized upon output, so case-variant names will be understood as the same header. - , v1HTTPHeaderValue :: !(Text) -- ^ /Required/ "value" - The header field value - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HTTPHeader -instance A.FromJSON V1HTTPHeader where - parseJSON = A.withObject "V1HTTPHeader" $ \o -> - V1HTTPHeader - <$> (o .: "name") - <*> (o .: "value") - --- | ToJSON V1HTTPHeader -instance A.ToJSON V1HTTPHeader where - toJSON V1HTTPHeader {..} = - _omitNulls - [ "name" .= v1HTTPHeaderName - , "value" .= v1HTTPHeaderValue - ] - - --- | Construct a value of type 'V1HTTPHeader' (by applying it's required fields, if any) -mkV1HTTPHeader - :: Text -- ^ 'v1HTTPHeaderName': The header field name. This will be canonicalized upon output, so case-variant names will be understood as the same header. - -> Text -- ^ 'v1HTTPHeaderValue': The header field value - -> V1HTTPHeader -mkV1HTTPHeader v1HTTPHeaderName v1HTTPHeaderValue = - V1HTTPHeader - { v1HTTPHeaderName - , v1HTTPHeaderValue - } - --- ** V1HTTPIngressPath --- | V1HTTPIngressPath --- HTTPIngressPath associates a path with a backend. Incoming urls matching the path are forwarded to the backend. -data V1HTTPIngressPath = V1HTTPIngressPath - { v1HTTPIngressPathBackend :: !(V1IngressBackend) -- ^ /Required/ "backend" - , v1HTTPIngressPathPath :: !(Maybe Text) -- ^ "path" - Path is matched against the path of an incoming request. Currently it can contain characters disallowed from the conventional \"path\" part of a URL as defined by RFC 3986. Paths must begin with a '/' and must be present when using PathType with value \"Exact\" or \"Prefix\". - , v1HTTPIngressPathPathType :: !(Text) -- ^ /Required/ "pathType" - PathType determines the interpretation of the Path matching. PathType can be one of the following values: * Exact: Matches the URL path exactly. * Prefix: Matches based on a URL path prefix split by '/'. Matching is done on a path element by element basis. A path element refers is the list of labels in the path split by the '/' separator. A request is a match for path p if every p is an element-wise prefix of p of the request path. Note that if the last element of the path is a substring of the last element in request path, it is not a match (e.g. /foo/bar matches /foo/bar/baz, but does not match /foo/barbaz). * ImplementationSpecific: Interpretation of the Path matching is up to the IngressClass. Implementations can treat this as a separate PathType or treat it identically to Prefix or Exact path types. Implementations are required to support all path types. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HTTPIngressPath -instance A.FromJSON V1HTTPIngressPath where - parseJSON = A.withObject "V1HTTPIngressPath" $ \o -> - V1HTTPIngressPath - <$> (o .: "backend") - <*> (o .:? "path") - <*> (o .: "pathType") - --- | ToJSON V1HTTPIngressPath -instance A.ToJSON V1HTTPIngressPath where - toJSON V1HTTPIngressPath {..} = - _omitNulls - [ "backend" .= v1HTTPIngressPathBackend - , "path" .= v1HTTPIngressPathPath - , "pathType" .= v1HTTPIngressPathPathType - ] - - --- | Construct a value of type 'V1HTTPIngressPath' (by applying it's required fields, if any) -mkV1HTTPIngressPath - :: V1IngressBackend -- ^ 'v1HTTPIngressPathBackend' - -> Text -- ^ 'v1HTTPIngressPathPathType': PathType determines the interpretation of the Path matching. PathType can be one of the following values: * Exact: Matches the URL path exactly. * Prefix: Matches based on a URL path prefix split by '/'. Matching is done on a path element by element basis. A path element refers is the list of labels in the path split by the '/' separator. A request is a match for path p if every p is an element-wise prefix of p of the request path. Note that if the last element of the path is a substring of the last element in request path, it is not a match (e.g. /foo/bar matches /foo/bar/baz, but does not match /foo/barbaz). * ImplementationSpecific: Interpretation of the Path matching is up to the IngressClass. Implementations can treat this as a separate PathType or treat it identically to Prefix or Exact path types. Implementations are required to support all path types. - -> V1HTTPIngressPath -mkV1HTTPIngressPath v1HTTPIngressPathBackend v1HTTPIngressPathPathType = - V1HTTPIngressPath - { v1HTTPIngressPathBackend - , v1HTTPIngressPathPath = Nothing - , v1HTTPIngressPathPathType - } - --- ** V1HTTPIngressRuleValue --- | V1HTTPIngressRuleValue --- HTTPIngressRuleValue is a list of http selectors pointing to backends. In the example: http:///? -> backend where where parts of the url correspond to RFC 3986, this resource will be used to match against everything after the last '/' and before the first '?' or '#'. -data V1HTTPIngressRuleValue = V1HTTPIngressRuleValue - { v1HTTPIngressRuleValuePaths :: !([V1HTTPIngressPath]) -- ^ /Required/ "paths" - A collection of paths that map requests to backends. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HTTPIngressRuleValue -instance A.FromJSON V1HTTPIngressRuleValue where - parseJSON = A.withObject "V1HTTPIngressRuleValue" $ \o -> - V1HTTPIngressRuleValue - <$> (o .: "paths") - --- | ToJSON V1HTTPIngressRuleValue -instance A.ToJSON V1HTTPIngressRuleValue where - toJSON V1HTTPIngressRuleValue {..} = - _omitNulls - [ "paths" .= v1HTTPIngressRuleValuePaths - ] - - --- | Construct a value of type 'V1HTTPIngressRuleValue' (by applying it's required fields, if any) -mkV1HTTPIngressRuleValue - :: [V1HTTPIngressPath] -- ^ 'v1HTTPIngressRuleValuePaths': A collection of paths that map requests to backends. - -> V1HTTPIngressRuleValue -mkV1HTTPIngressRuleValue v1HTTPIngressRuleValuePaths = - V1HTTPIngressRuleValue - { v1HTTPIngressRuleValuePaths - } - --- ** V1HorizontalPodAutoscaler --- | V1HorizontalPodAutoscaler --- configuration of a horizontal pod autoscaler. -data V1HorizontalPodAutoscaler = V1HorizontalPodAutoscaler - { v1HorizontalPodAutoscalerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1HorizontalPodAutoscalerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1HorizontalPodAutoscalerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1HorizontalPodAutoscalerSpec :: !(Maybe V1HorizontalPodAutoscalerSpec) -- ^ "spec" - , v1HorizontalPodAutoscalerStatus :: !(Maybe V1HorizontalPodAutoscalerStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HorizontalPodAutoscaler -instance A.FromJSON V1HorizontalPodAutoscaler where - parseJSON = A.withObject "V1HorizontalPodAutoscaler" $ \o -> - V1HorizontalPodAutoscaler - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1HorizontalPodAutoscaler -instance A.ToJSON V1HorizontalPodAutoscaler where - toJSON V1HorizontalPodAutoscaler {..} = - _omitNulls - [ "apiVersion" .= v1HorizontalPodAutoscalerApiVersion - , "kind" .= v1HorizontalPodAutoscalerKind - , "metadata" .= v1HorizontalPodAutoscalerMetadata - , "spec" .= v1HorizontalPodAutoscalerSpec - , "status" .= v1HorizontalPodAutoscalerStatus - ] - - --- | Construct a value of type 'V1HorizontalPodAutoscaler' (by applying it's required fields, if any) -mkV1HorizontalPodAutoscaler - :: V1HorizontalPodAutoscaler -mkV1HorizontalPodAutoscaler = - V1HorizontalPodAutoscaler - { v1HorizontalPodAutoscalerApiVersion = Nothing - , v1HorizontalPodAutoscalerKind = Nothing - , v1HorizontalPodAutoscalerMetadata = Nothing - , v1HorizontalPodAutoscalerSpec = Nothing - , v1HorizontalPodAutoscalerStatus = Nothing - } - --- ** V1HorizontalPodAutoscalerList --- | V1HorizontalPodAutoscalerList --- list of horizontal pod autoscaler objects. -data V1HorizontalPodAutoscalerList = V1HorizontalPodAutoscalerList - { v1HorizontalPodAutoscalerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1HorizontalPodAutoscalerListItems :: !([V1HorizontalPodAutoscaler]) -- ^ /Required/ "items" - list of horizontal pod autoscaler objects. - , v1HorizontalPodAutoscalerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1HorizontalPodAutoscalerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HorizontalPodAutoscalerList -instance A.FromJSON V1HorizontalPodAutoscalerList where - parseJSON = A.withObject "V1HorizontalPodAutoscalerList" $ \o -> - V1HorizontalPodAutoscalerList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1HorizontalPodAutoscalerList -instance A.ToJSON V1HorizontalPodAutoscalerList where - toJSON V1HorizontalPodAutoscalerList {..} = - _omitNulls - [ "apiVersion" .= v1HorizontalPodAutoscalerListApiVersion - , "items" .= v1HorizontalPodAutoscalerListItems - , "kind" .= v1HorizontalPodAutoscalerListKind - , "metadata" .= v1HorizontalPodAutoscalerListMetadata - ] - - --- | Construct a value of type 'V1HorizontalPodAutoscalerList' (by applying it's required fields, if any) -mkV1HorizontalPodAutoscalerList - :: [V1HorizontalPodAutoscaler] -- ^ 'v1HorizontalPodAutoscalerListItems': list of horizontal pod autoscaler objects. - -> V1HorizontalPodAutoscalerList -mkV1HorizontalPodAutoscalerList v1HorizontalPodAutoscalerListItems = - V1HorizontalPodAutoscalerList - { v1HorizontalPodAutoscalerListApiVersion = Nothing - , v1HorizontalPodAutoscalerListItems - , v1HorizontalPodAutoscalerListKind = Nothing - , v1HorizontalPodAutoscalerListMetadata = Nothing - } - --- ** V1HorizontalPodAutoscalerSpec --- | V1HorizontalPodAutoscalerSpec --- specification of a horizontal pod autoscaler. -data V1HorizontalPodAutoscalerSpec = V1HorizontalPodAutoscalerSpec - { v1HorizontalPodAutoscalerSpecMaxReplicas :: !(Int) -- ^ /Required/ "maxReplicas" - upper limit for the number of pods that can be set by the autoscaler; cannot be smaller than MinReplicas. - , v1HorizontalPodAutoscalerSpecMinReplicas :: !(Maybe Int) -- ^ "minReplicas" - minReplicas is the lower limit for the number of replicas to which the autoscaler can scale down. It defaults to 1 pod. minReplicas is allowed to be 0 if the alpha feature gate HPAScaleToZero is enabled and at least one Object or External metric is configured. Scaling is active as long as at least one metric value is available. - , v1HorizontalPodAutoscalerSpecScaleTargetRef :: !(V1CrossVersionObjectReference) -- ^ /Required/ "scaleTargetRef" - , v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage :: !(Maybe Int) -- ^ "targetCPUUtilizationPercentage" - target average CPU utilization (represented as a percentage of requested CPU) over all the pods; if not specified the default autoscaling policy will be used. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HorizontalPodAutoscalerSpec -instance A.FromJSON V1HorizontalPodAutoscalerSpec where - parseJSON = A.withObject "V1HorizontalPodAutoscalerSpec" $ \o -> - V1HorizontalPodAutoscalerSpec - <$> (o .: "maxReplicas") - <*> (o .:? "minReplicas") - <*> (o .: "scaleTargetRef") - <*> (o .:? "targetCPUUtilizationPercentage") - --- | ToJSON V1HorizontalPodAutoscalerSpec -instance A.ToJSON V1HorizontalPodAutoscalerSpec where - toJSON V1HorizontalPodAutoscalerSpec {..} = - _omitNulls - [ "maxReplicas" .= v1HorizontalPodAutoscalerSpecMaxReplicas - , "minReplicas" .= v1HorizontalPodAutoscalerSpecMinReplicas - , "scaleTargetRef" .= v1HorizontalPodAutoscalerSpecScaleTargetRef - , "targetCPUUtilizationPercentage" .= v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage - ] - - --- | Construct a value of type 'V1HorizontalPodAutoscalerSpec' (by applying it's required fields, if any) -mkV1HorizontalPodAutoscalerSpec - :: Int -- ^ 'v1HorizontalPodAutoscalerSpecMaxReplicas': upper limit for the number of pods that can be set by the autoscaler; cannot be smaller than MinReplicas. - -> V1CrossVersionObjectReference -- ^ 'v1HorizontalPodAutoscalerSpecScaleTargetRef' - -> V1HorizontalPodAutoscalerSpec -mkV1HorizontalPodAutoscalerSpec v1HorizontalPodAutoscalerSpecMaxReplicas v1HorizontalPodAutoscalerSpecScaleTargetRef = - V1HorizontalPodAutoscalerSpec - { v1HorizontalPodAutoscalerSpecMaxReplicas - , v1HorizontalPodAutoscalerSpecMinReplicas = Nothing - , v1HorizontalPodAutoscalerSpecScaleTargetRef - , v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage = Nothing - } - --- ** V1HorizontalPodAutoscalerStatus --- | V1HorizontalPodAutoscalerStatus --- current status of a horizontal pod autoscaler -data V1HorizontalPodAutoscalerStatus = V1HorizontalPodAutoscalerStatus - { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage :: !(Maybe Int) -- ^ "currentCPUUtilizationPercentage" - current average CPU utilization over all pods, represented as a percentage of requested CPU, e.g. 70 means that an average pod is using now 70% of its requested CPU. - , v1HorizontalPodAutoscalerStatusCurrentReplicas :: !(Int) -- ^ /Required/ "currentReplicas" - current number of replicas of pods managed by this autoscaler. - , v1HorizontalPodAutoscalerStatusDesiredReplicas :: !(Int) -- ^ /Required/ "desiredReplicas" - desired number of replicas of pods managed by this autoscaler. - , v1HorizontalPodAutoscalerStatusLastScaleTime :: !(Maybe DateTime) -- ^ "lastScaleTime" - last time the HorizontalPodAutoscaler scaled the number of pods; used by the autoscaler to control how often the number of pods is changed. - , v1HorizontalPodAutoscalerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - most recent generation observed by this autoscaler. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HorizontalPodAutoscalerStatus -instance A.FromJSON V1HorizontalPodAutoscalerStatus where - parseJSON = A.withObject "V1HorizontalPodAutoscalerStatus" $ \o -> - V1HorizontalPodAutoscalerStatus - <$> (o .:? "currentCPUUtilizationPercentage") - <*> (o .: "currentReplicas") - <*> (o .: "desiredReplicas") - <*> (o .:? "lastScaleTime") - <*> (o .:? "observedGeneration") - --- | ToJSON V1HorizontalPodAutoscalerStatus -instance A.ToJSON V1HorizontalPodAutoscalerStatus where - toJSON V1HorizontalPodAutoscalerStatus {..} = - _omitNulls - [ "currentCPUUtilizationPercentage" .= v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage - , "currentReplicas" .= v1HorizontalPodAutoscalerStatusCurrentReplicas - , "desiredReplicas" .= v1HorizontalPodAutoscalerStatusDesiredReplicas - , "lastScaleTime" .= v1HorizontalPodAutoscalerStatusLastScaleTime - , "observedGeneration" .= v1HorizontalPodAutoscalerStatusObservedGeneration - ] - - --- | Construct a value of type 'V1HorizontalPodAutoscalerStatus' (by applying it's required fields, if any) -mkV1HorizontalPodAutoscalerStatus - :: Int -- ^ 'v1HorizontalPodAutoscalerStatusCurrentReplicas': current number of replicas of pods managed by this autoscaler. - -> Int -- ^ 'v1HorizontalPodAutoscalerStatusDesiredReplicas': desired number of replicas of pods managed by this autoscaler. - -> V1HorizontalPodAutoscalerStatus -mkV1HorizontalPodAutoscalerStatus v1HorizontalPodAutoscalerStatusCurrentReplicas v1HorizontalPodAutoscalerStatusDesiredReplicas = - V1HorizontalPodAutoscalerStatus - { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage = Nothing - , v1HorizontalPodAutoscalerStatusCurrentReplicas - , v1HorizontalPodAutoscalerStatusDesiredReplicas - , v1HorizontalPodAutoscalerStatusLastScaleTime = Nothing - , v1HorizontalPodAutoscalerStatusObservedGeneration = Nothing - } - --- ** V1HostAlias --- | V1HostAlias --- HostAlias holds the mapping between IP and hostnames that will be injected as an entry in the pod's hosts file. -data V1HostAlias = V1HostAlias - { v1HostAliasHostnames :: !(Maybe [Text]) -- ^ "hostnames" - Hostnames for the above IP address. - , v1HostAliasIp :: !(Maybe Text) -- ^ "ip" - IP address of the host file entry. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HostAlias -instance A.FromJSON V1HostAlias where - parseJSON = A.withObject "V1HostAlias" $ \o -> - V1HostAlias - <$> (o .:? "hostnames") - <*> (o .:? "ip") - --- | ToJSON V1HostAlias -instance A.ToJSON V1HostAlias where - toJSON V1HostAlias {..} = - _omitNulls - [ "hostnames" .= v1HostAliasHostnames - , "ip" .= v1HostAliasIp - ] - - --- | Construct a value of type 'V1HostAlias' (by applying it's required fields, if any) -mkV1HostAlias - :: V1HostAlias -mkV1HostAlias = - V1HostAlias - { v1HostAliasHostnames = Nothing - , v1HostAliasIp = Nothing - } - --- ** V1HostPathVolumeSource --- | V1HostPathVolumeSource --- Represents a host path mapped into a pod. Host path volumes do not support ownership management or SELinux relabeling. -data V1HostPathVolumeSource = V1HostPathVolumeSource - { v1HostPathVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path of the directory on the host. If the path is a symlink, it will follow the link to the real path. More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath - , v1HostPathVolumeSourceType :: !(Maybe Text) -- ^ "type" - type for HostPath Volume Defaults to \"\" More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1HostPathVolumeSource -instance A.FromJSON V1HostPathVolumeSource where - parseJSON = A.withObject "V1HostPathVolumeSource" $ \o -> - V1HostPathVolumeSource - <$> (o .: "path") - <*> (o .:? "type") - --- | ToJSON V1HostPathVolumeSource -instance A.ToJSON V1HostPathVolumeSource where - toJSON V1HostPathVolumeSource {..} = - _omitNulls - [ "path" .= v1HostPathVolumeSourcePath - , "type" .= v1HostPathVolumeSourceType - ] - - --- | Construct a value of type 'V1HostPathVolumeSource' (by applying it's required fields, if any) -mkV1HostPathVolumeSource - :: Text -- ^ 'v1HostPathVolumeSourcePath': path of the directory on the host. If the path is a symlink, it will follow the link to the real path. More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath - -> V1HostPathVolumeSource -mkV1HostPathVolumeSource v1HostPathVolumeSourcePath = - V1HostPathVolumeSource - { v1HostPathVolumeSourcePath - , v1HostPathVolumeSourceType = Nothing - } - --- ** V1IPBlock --- | V1IPBlock --- IPBlock describes a particular CIDR (Ex. \"192.168.1.0/24\",\"2001:db8::/64\") that is allowed to the pods matched by a NetworkPolicySpec's podSelector. The except entry describes CIDRs that should not be included within this rule. -data V1IPBlock = V1IPBlock - { v1IPBlockCidr :: !(Text) -- ^ /Required/ "cidr" - CIDR is a string representing the IP Block Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" - , v1IPBlockExcept :: !(Maybe [Text]) -- ^ "except" - Except is a slice of CIDRs that should not be included within an IP Block Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" Except values will be rejected if they are outside the CIDR range - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IPBlock -instance A.FromJSON V1IPBlock where - parseJSON = A.withObject "V1IPBlock" $ \o -> - V1IPBlock - <$> (o .: "cidr") - <*> (o .:? "except") - --- | ToJSON V1IPBlock -instance A.ToJSON V1IPBlock where - toJSON V1IPBlock {..} = - _omitNulls - [ "cidr" .= v1IPBlockCidr - , "except" .= v1IPBlockExcept - ] - - --- | Construct a value of type 'V1IPBlock' (by applying it's required fields, if any) -mkV1IPBlock - :: Text -- ^ 'v1IPBlockCidr': CIDR is a string representing the IP Block Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" - -> V1IPBlock -mkV1IPBlock v1IPBlockCidr = - V1IPBlock - { v1IPBlockCidr - , v1IPBlockExcept = Nothing - } - --- ** V1ISCSIPersistentVolumeSource --- | V1ISCSIPersistentVolumeSource --- ISCSIPersistentVolumeSource represents an ISCSI disk. ISCSI volumes can only be mounted as read/write once. ISCSI volumes support ownership management and SELinux relabeling. -data V1ISCSIPersistentVolumeSource = V1ISCSIPersistentVolumeSource - { v1ISCSIPersistentVolumeSourceChapAuthDiscovery :: !(Maybe Bool) -- ^ "chapAuthDiscovery" - chapAuthDiscovery defines whether support iSCSI Discovery CHAP authentication - , v1ISCSIPersistentVolumeSourceChapAuthSession :: !(Maybe Bool) -- ^ "chapAuthSession" - chapAuthSession defines whether support iSCSI Session CHAP authentication - , v1ISCSIPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#iscsi - , v1ISCSIPersistentVolumeSourceInitiatorName :: !(Maybe Text) -- ^ "initiatorName" - initiatorName is the custom iSCSI Initiator Name. If initiatorName is specified with iscsiInterface simultaneously, new iSCSI interface <target portal>:<volume name> will be created for the connection. - , v1ISCSIPersistentVolumeSourceIqn :: !(Text) -- ^ /Required/ "iqn" - iqn is Target iSCSI Qualified Name. - , v1ISCSIPersistentVolumeSourceIscsiInterface :: !(Maybe Text) -- ^ "iscsiInterface" - iscsiInterface is the interface Name that uses an iSCSI transport. Defaults to 'default' (tcp). - , v1ISCSIPersistentVolumeSourceLun :: !(Int) -- ^ /Required/ "lun" - lun is iSCSI Target Lun number. - , v1ISCSIPersistentVolumeSourcePortals :: !(Maybe [Text]) -- ^ "portals" - portals is the iSCSI Target Portal List. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - , v1ISCSIPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. - , v1ISCSIPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" - , v1ISCSIPersistentVolumeSourceTargetPortal :: !(Text) -- ^ /Required/ "targetPortal" - targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ISCSIPersistentVolumeSource -instance A.FromJSON V1ISCSIPersistentVolumeSource where - parseJSON = A.withObject "V1ISCSIPersistentVolumeSource" $ \o -> - V1ISCSIPersistentVolumeSource - <$> (o .:? "chapAuthDiscovery") - <*> (o .:? "chapAuthSession") - <*> (o .:? "fsType") - <*> (o .:? "initiatorName") - <*> (o .: "iqn") - <*> (o .:? "iscsiInterface") - <*> (o .: "lun") - <*> (o .:? "portals") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .: "targetPortal") - --- | ToJSON V1ISCSIPersistentVolumeSource -instance A.ToJSON V1ISCSIPersistentVolumeSource where - toJSON V1ISCSIPersistentVolumeSource {..} = - _omitNulls - [ "chapAuthDiscovery" .= v1ISCSIPersistentVolumeSourceChapAuthDiscovery - , "chapAuthSession" .= v1ISCSIPersistentVolumeSourceChapAuthSession - , "fsType" .= v1ISCSIPersistentVolumeSourceFsType - , "initiatorName" .= v1ISCSIPersistentVolumeSourceInitiatorName - , "iqn" .= v1ISCSIPersistentVolumeSourceIqn - , "iscsiInterface" .= v1ISCSIPersistentVolumeSourceIscsiInterface - , "lun" .= v1ISCSIPersistentVolumeSourceLun - , "portals" .= v1ISCSIPersistentVolumeSourcePortals - , "readOnly" .= v1ISCSIPersistentVolumeSourceReadOnly - , "secretRef" .= v1ISCSIPersistentVolumeSourceSecretRef - , "targetPortal" .= v1ISCSIPersistentVolumeSourceTargetPortal - ] - - --- | Construct a value of type 'V1ISCSIPersistentVolumeSource' (by applying it's required fields, if any) -mkV1ISCSIPersistentVolumeSource - :: Text -- ^ 'v1ISCSIPersistentVolumeSourceIqn': iqn is Target iSCSI Qualified Name. - -> Int -- ^ 'v1ISCSIPersistentVolumeSourceLun': lun is iSCSI Target Lun number. - -> Text -- ^ 'v1ISCSIPersistentVolumeSourceTargetPortal': targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - -> V1ISCSIPersistentVolumeSource -mkV1ISCSIPersistentVolumeSource v1ISCSIPersistentVolumeSourceIqn v1ISCSIPersistentVolumeSourceLun v1ISCSIPersistentVolumeSourceTargetPortal = - V1ISCSIPersistentVolumeSource - { v1ISCSIPersistentVolumeSourceChapAuthDiscovery = Nothing - , v1ISCSIPersistentVolumeSourceChapAuthSession = Nothing - , v1ISCSIPersistentVolumeSourceFsType = Nothing - , v1ISCSIPersistentVolumeSourceInitiatorName = Nothing - , v1ISCSIPersistentVolumeSourceIqn - , v1ISCSIPersistentVolumeSourceIscsiInterface = Nothing - , v1ISCSIPersistentVolumeSourceLun - , v1ISCSIPersistentVolumeSourcePortals = Nothing - , v1ISCSIPersistentVolumeSourceReadOnly = Nothing - , v1ISCSIPersistentVolumeSourceSecretRef = Nothing - , v1ISCSIPersistentVolumeSourceTargetPortal - } - --- ** V1ISCSIVolumeSource --- | V1ISCSIVolumeSource --- Represents an ISCSI disk. ISCSI volumes can only be mounted as read/write once. ISCSI volumes support ownership management and SELinux relabeling. -data V1ISCSIVolumeSource = V1ISCSIVolumeSource - { v1ISCSIVolumeSourceChapAuthDiscovery :: !(Maybe Bool) -- ^ "chapAuthDiscovery" - chapAuthDiscovery defines whether support iSCSI Discovery CHAP authentication - , v1ISCSIVolumeSourceChapAuthSession :: !(Maybe Bool) -- ^ "chapAuthSession" - chapAuthSession defines whether support iSCSI Session CHAP authentication - , v1ISCSIVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#iscsi - , v1ISCSIVolumeSourceInitiatorName :: !(Maybe Text) -- ^ "initiatorName" - initiatorName is the custom iSCSI Initiator Name. If initiatorName is specified with iscsiInterface simultaneously, new iSCSI interface <target portal>:<volume name> will be created for the connection. - , v1ISCSIVolumeSourceIqn :: !(Text) -- ^ /Required/ "iqn" - iqn is the target iSCSI Qualified Name. - , v1ISCSIVolumeSourceIscsiInterface :: !(Maybe Text) -- ^ "iscsiInterface" - iscsiInterface is the interface Name that uses an iSCSI transport. Defaults to 'default' (tcp). - , v1ISCSIVolumeSourceLun :: !(Int) -- ^ /Required/ "lun" - lun represents iSCSI Target Lun number. - , v1ISCSIVolumeSourcePortals :: !(Maybe [Text]) -- ^ "portals" - portals is the iSCSI Target Portal List. The portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - , v1ISCSIVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. - , v1ISCSIVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - , v1ISCSIVolumeSourceTargetPortal :: !(Text) -- ^ /Required/ "targetPortal" - targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ISCSIVolumeSource -instance A.FromJSON V1ISCSIVolumeSource where - parseJSON = A.withObject "V1ISCSIVolumeSource" $ \o -> - V1ISCSIVolumeSource - <$> (o .:? "chapAuthDiscovery") - <*> (o .:? "chapAuthSession") - <*> (o .:? "fsType") - <*> (o .:? "initiatorName") - <*> (o .: "iqn") - <*> (o .:? "iscsiInterface") - <*> (o .: "lun") - <*> (o .:? "portals") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .: "targetPortal") - --- | ToJSON V1ISCSIVolumeSource -instance A.ToJSON V1ISCSIVolumeSource where - toJSON V1ISCSIVolumeSource {..} = - _omitNulls - [ "chapAuthDiscovery" .= v1ISCSIVolumeSourceChapAuthDiscovery - , "chapAuthSession" .= v1ISCSIVolumeSourceChapAuthSession - , "fsType" .= v1ISCSIVolumeSourceFsType - , "initiatorName" .= v1ISCSIVolumeSourceInitiatorName - , "iqn" .= v1ISCSIVolumeSourceIqn - , "iscsiInterface" .= v1ISCSIVolumeSourceIscsiInterface - , "lun" .= v1ISCSIVolumeSourceLun - , "portals" .= v1ISCSIVolumeSourcePortals - , "readOnly" .= v1ISCSIVolumeSourceReadOnly - , "secretRef" .= v1ISCSIVolumeSourceSecretRef - , "targetPortal" .= v1ISCSIVolumeSourceTargetPortal - ] - - --- | Construct a value of type 'V1ISCSIVolumeSource' (by applying it's required fields, if any) -mkV1ISCSIVolumeSource - :: Text -- ^ 'v1ISCSIVolumeSourceIqn': iqn is the target iSCSI Qualified Name. - -> Int -- ^ 'v1ISCSIVolumeSourceLun': lun represents iSCSI Target Lun number. - -> Text -- ^ 'v1ISCSIVolumeSourceTargetPortal': targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). - -> V1ISCSIVolumeSource -mkV1ISCSIVolumeSource v1ISCSIVolumeSourceIqn v1ISCSIVolumeSourceLun v1ISCSIVolumeSourceTargetPortal = - V1ISCSIVolumeSource - { v1ISCSIVolumeSourceChapAuthDiscovery = Nothing - , v1ISCSIVolumeSourceChapAuthSession = Nothing - , v1ISCSIVolumeSourceFsType = Nothing - , v1ISCSIVolumeSourceInitiatorName = Nothing - , v1ISCSIVolumeSourceIqn - , v1ISCSIVolumeSourceIscsiInterface = Nothing - , v1ISCSIVolumeSourceLun - , v1ISCSIVolumeSourcePortals = Nothing - , v1ISCSIVolumeSourceReadOnly = Nothing - , v1ISCSIVolumeSourceSecretRef = Nothing - , v1ISCSIVolumeSourceTargetPortal - } - --- ** V1Ingress --- | V1Ingress --- Ingress is a collection of rules that allow inbound connections to reach the endpoints defined by a backend. An Ingress can be configured to give services externally-reachable urls, load balance traffic, terminate SSL, offer name based virtual hosting etc. -data V1Ingress = V1Ingress - { v1IngressApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1IngressKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1IngressMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1IngressSpec :: !(Maybe V1IngressSpec) -- ^ "spec" - , v1IngressStatus :: !(Maybe V1IngressStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Ingress -instance A.FromJSON V1Ingress where - parseJSON = A.withObject "V1Ingress" $ \o -> - V1Ingress - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Ingress -instance A.ToJSON V1Ingress where - toJSON V1Ingress {..} = - _omitNulls - [ "apiVersion" .= v1IngressApiVersion - , "kind" .= v1IngressKind - , "metadata" .= v1IngressMetadata - , "spec" .= v1IngressSpec - , "status" .= v1IngressStatus - ] - - --- | Construct a value of type 'V1Ingress' (by applying it's required fields, if any) -mkV1Ingress - :: V1Ingress -mkV1Ingress = - V1Ingress - { v1IngressApiVersion = Nothing - , v1IngressKind = Nothing - , v1IngressMetadata = Nothing - , v1IngressSpec = Nothing - , v1IngressStatus = Nothing - } - --- ** V1IngressBackend --- | V1IngressBackend --- IngressBackend describes all endpoints for a given service and port. -data V1IngressBackend = V1IngressBackend - { v1IngressBackendResource :: !(Maybe V1TypedLocalObjectReference) -- ^ "resource" - , v1IngressBackendService :: !(Maybe V1IngressServiceBackend) -- ^ "service" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressBackend -instance A.FromJSON V1IngressBackend where - parseJSON = A.withObject "V1IngressBackend" $ \o -> - V1IngressBackend - <$> (o .:? "resource") - <*> (o .:? "service") - --- | ToJSON V1IngressBackend -instance A.ToJSON V1IngressBackend where - toJSON V1IngressBackend {..} = - _omitNulls - [ "resource" .= v1IngressBackendResource - , "service" .= v1IngressBackendService - ] - - --- | Construct a value of type 'V1IngressBackend' (by applying it's required fields, if any) -mkV1IngressBackend - :: V1IngressBackend -mkV1IngressBackend = - V1IngressBackend - { v1IngressBackendResource = Nothing - , v1IngressBackendService = Nothing - } - --- ** V1IngressClass --- | V1IngressClass --- IngressClass represents the class of the Ingress, referenced by the Ingress Spec. The `ingressclass.kubernetes.io/is-default-class` annotation can be used to indicate that an IngressClass should be considered default. When a single IngressClass resource has this annotation set to true, new Ingress resources without a class specified will be assigned this default class. -data V1IngressClass = V1IngressClass - { v1IngressClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1IngressClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1IngressClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1IngressClassSpec :: !(Maybe V1IngressClassSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressClass -instance A.FromJSON V1IngressClass where - parseJSON = A.withObject "V1IngressClass" $ \o -> - V1IngressClass - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1IngressClass -instance A.ToJSON V1IngressClass where - toJSON V1IngressClass {..} = - _omitNulls - [ "apiVersion" .= v1IngressClassApiVersion - , "kind" .= v1IngressClassKind - , "metadata" .= v1IngressClassMetadata - , "spec" .= v1IngressClassSpec - ] - - --- | Construct a value of type 'V1IngressClass' (by applying it's required fields, if any) -mkV1IngressClass - :: V1IngressClass -mkV1IngressClass = - V1IngressClass - { v1IngressClassApiVersion = Nothing - , v1IngressClassKind = Nothing - , v1IngressClassMetadata = Nothing - , v1IngressClassSpec = Nothing - } - --- ** V1IngressClassList --- | V1IngressClassList --- IngressClassList is a collection of IngressClasses. -data V1IngressClassList = V1IngressClassList - { v1IngressClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1IngressClassListItems :: !([V1IngressClass]) -- ^ /Required/ "items" - Items is the list of IngressClasses. - , v1IngressClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1IngressClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressClassList -instance A.FromJSON V1IngressClassList where - parseJSON = A.withObject "V1IngressClassList" $ \o -> - V1IngressClassList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1IngressClassList -instance A.ToJSON V1IngressClassList where - toJSON V1IngressClassList {..} = - _omitNulls - [ "apiVersion" .= v1IngressClassListApiVersion - , "items" .= v1IngressClassListItems - , "kind" .= v1IngressClassListKind - , "metadata" .= v1IngressClassListMetadata - ] - - --- | Construct a value of type 'V1IngressClassList' (by applying it's required fields, if any) -mkV1IngressClassList - :: [V1IngressClass] -- ^ 'v1IngressClassListItems': Items is the list of IngressClasses. - -> V1IngressClassList -mkV1IngressClassList v1IngressClassListItems = - V1IngressClassList - { v1IngressClassListApiVersion = Nothing - , v1IngressClassListItems - , v1IngressClassListKind = Nothing - , v1IngressClassListMetadata = Nothing - } - --- ** V1IngressClassParametersReference --- | V1IngressClassParametersReference --- IngressClassParametersReference identifies an API object. This can be used to specify a cluster or namespace-scoped resource. -data V1IngressClassParametersReference = V1IngressClassParametersReference - { v1IngressClassParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. - , v1IngressClassParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced. - , v1IngressClassParametersReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. - , v1IngressClassParametersReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the resource being referenced. This field is required when scope is set to \"Namespace\" and must be unset when scope is set to \"Cluster\". - , v1IngressClassParametersReferenceScope :: !(Maybe Text) -- ^ "scope" - Scope represents if this refers to a cluster or namespace scoped resource. This may be set to \"Cluster\" (default) or \"Namespace\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressClassParametersReference -instance A.FromJSON V1IngressClassParametersReference where - parseJSON = A.withObject "V1IngressClassParametersReference" $ \o -> - V1IngressClassParametersReference - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .:? "namespace") - <*> (o .:? "scope") - --- | ToJSON V1IngressClassParametersReference -instance A.ToJSON V1IngressClassParametersReference where - toJSON V1IngressClassParametersReference {..} = - _omitNulls - [ "apiGroup" .= v1IngressClassParametersReferenceApiGroup - , "kind" .= v1IngressClassParametersReferenceKind - , "name" .= v1IngressClassParametersReferenceName - , "namespace" .= v1IngressClassParametersReferenceNamespace - , "scope" .= v1IngressClassParametersReferenceScope - ] - - --- | Construct a value of type 'V1IngressClassParametersReference' (by applying it's required fields, if any) -mkV1IngressClassParametersReference - :: Text -- ^ 'v1IngressClassParametersReferenceKind': Kind is the type of resource being referenced. - -> Text -- ^ 'v1IngressClassParametersReferenceName': Name is the name of resource being referenced. - -> V1IngressClassParametersReference -mkV1IngressClassParametersReference v1IngressClassParametersReferenceKind v1IngressClassParametersReferenceName = - V1IngressClassParametersReference - { v1IngressClassParametersReferenceApiGroup = Nothing - , v1IngressClassParametersReferenceKind - , v1IngressClassParametersReferenceName - , v1IngressClassParametersReferenceNamespace = Nothing - , v1IngressClassParametersReferenceScope = Nothing - } - --- ** V1IngressClassSpec --- | V1IngressClassSpec --- IngressClassSpec provides information about the class of an Ingress. -data V1IngressClassSpec = V1IngressClassSpec - { v1IngressClassSpecController :: !(Maybe Text) -- ^ "controller" - Controller refers to the name of the controller that should handle this class. This allows for different \"flavors\" that are controlled by the same controller. For example, you may have different Parameters for the same implementing controller. This should be specified as a domain-prefixed path no more than 250 characters in length, e.g. \"acme.io/ingress-controller\". This field is immutable. - , v1IngressClassSpecParameters :: !(Maybe V1IngressClassParametersReference) -- ^ "parameters" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressClassSpec -instance A.FromJSON V1IngressClassSpec where - parseJSON = A.withObject "V1IngressClassSpec" $ \o -> - V1IngressClassSpec - <$> (o .:? "controller") - <*> (o .:? "parameters") - --- | ToJSON V1IngressClassSpec -instance A.ToJSON V1IngressClassSpec where - toJSON V1IngressClassSpec {..} = - _omitNulls - [ "controller" .= v1IngressClassSpecController - , "parameters" .= v1IngressClassSpecParameters - ] - - --- | Construct a value of type 'V1IngressClassSpec' (by applying it's required fields, if any) -mkV1IngressClassSpec - :: V1IngressClassSpec -mkV1IngressClassSpec = - V1IngressClassSpec - { v1IngressClassSpecController = Nothing - , v1IngressClassSpecParameters = Nothing - } - --- ** V1IngressList --- | V1IngressList --- IngressList is a collection of Ingress. -data V1IngressList = V1IngressList - { v1IngressListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1IngressListItems :: !([V1Ingress]) -- ^ /Required/ "items" - Items is the list of Ingress. - , v1IngressListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1IngressListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressList -instance A.FromJSON V1IngressList where - parseJSON = A.withObject "V1IngressList" $ \o -> - V1IngressList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1IngressList -instance A.ToJSON V1IngressList where - toJSON V1IngressList {..} = - _omitNulls - [ "apiVersion" .= v1IngressListApiVersion - , "items" .= v1IngressListItems - , "kind" .= v1IngressListKind - , "metadata" .= v1IngressListMetadata - ] - - --- | Construct a value of type 'V1IngressList' (by applying it's required fields, if any) -mkV1IngressList - :: [V1Ingress] -- ^ 'v1IngressListItems': Items is the list of Ingress. - -> V1IngressList -mkV1IngressList v1IngressListItems = - V1IngressList - { v1IngressListApiVersion = Nothing - , v1IngressListItems - , v1IngressListKind = Nothing - , v1IngressListMetadata = Nothing - } - --- ** V1IngressLoadBalancerIngress --- | V1IngressLoadBalancerIngress --- IngressLoadBalancerIngress represents the status of a load-balancer ingress point. -data V1IngressLoadBalancerIngress = V1IngressLoadBalancerIngress - { v1IngressLoadBalancerIngressHostname :: !(Maybe Text) -- ^ "hostname" - Hostname is set for load-balancer ingress points that are DNS based. - , v1IngressLoadBalancerIngressIp :: !(Maybe Text) -- ^ "ip" - IP is set for load-balancer ingress points that are IP based. - , v1IngressLoadBalancerIngressPorts :: !(Maybe [V1IngressPortStatus]) -- ^ "ports" - Ports provides information about the ports exposed by this LoadBalancer. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressLoadBalancerIngress -instance A.FromJSON V1IngressLoadBalancerIngress where - parseJSON = A.withObject "V1IngressLoadBalancerIngress" $ \o -> - V1IngressLoadBalancerIngress - <$> (o .:? "hostname") - <*> (o .:? "ip") - <*> (o .:? "ports") - --- | ToJSON V1IngressLoadBalancerIngress -instance A.ToJSON V1IngressLoadBalancerIngress where - toJSON V1IngressLoadBalancerIngress {..} = - _omitNulls - [ "hostname" .= v1IngressLoadBalancerIngressHostname - , "ip" .= v1IngressLoadBalancerIngressIp - , "ports" .= v1IngressLoadBalancerIngressPorts - ] - - --- | Construct a value of type 'V1IngressLoadBalancerIngress' (by applying it's required fields, if any) -mkV1IngressLoadBalancerIngress - :: V1IngressLoadBalancerIngress -mkV1IngressLoadBalancerIngress = - V1IngressLoadBalancerIngress - { v1IngressLoadBalancerIngressHostname = Nothing - , v1IngressLoadBalancerIngressIp = Nothing - , v1IngressLoadBalancerIngressPorts = Nothing - } - --- ** V1IngressLoadBalancerStatus --- | V1IngressLoadBalancerStatus --- IngressLoadBalancerStatus represents the status of a load-balancer. -data V1IngressLoadBalancerStatus = V1IngressLoadBalancerStatus - { v1IngressLoadBalancerStatusIngress :: !(Maybe [V1IngressLoadBalancerIngress]) -- ^ "ingress" - Ingress is a list containing ingress points for the load-balancer. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressLoadBalancerStatus -instance A.FromJSON V1IngressLoadBalancerStatus where - parseJSON = A.withObject "V1IngressLoadBalancerStatus" $ \o -> - V1IngressLoadBalancerStatus - <$> (o .:? "ingress") - --- | ToJSON V1IngressLoadBalancerStatus -instance A.ToJSON V1IngressLoadBalancerStatus where - toJSON V1IngressLoadBalancerStatus {..} = - _omitNulls - [ "ingress" .= v1IngressLoadBalancerStatusIngress - ] - - --- | Construct a value of type 'V1IngressLoadBalancerStatus' (by applying it's required fields, if any) -mkV1IngressLoadBalancerStatus - :: V1IngressLoadBalancerStatus -mkV1IngressLoadBalancerStatus = - V1IngressLoadBalancerStatus - { v1IngressLoadBalancerStatusIngress = Nothing - } - --- ** V1IngressPortStatus --- | V1IngressPortStatus --- IngressPortStatus represents the error condition of a service port -data V1IngressPortStatus = V1IngressPortStatus - { v1IngressPortStatusError :: !(Maybe Text) -- ^ "error" - Error is to record the problem with the service port The format of the error shall comply with the following rules: - built-in error values shall be specified in this file and those shall use CamelCase names - cloud provider specific error values must have names that comply with the format foo.example.com/CamelCase. - , v1IngressPortStatusPort :: !(Int) -- ^ /Required/ "port" - Port is the port number of the ingress port. - , v1IngressPortStatusProtocol :: !(Text) -- ^ /Required/ "protocol" - Protocol is the protocol of the ingress port. The supported values are: \"TCP\", \"UDP\", \"SCTP\" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressPortStatus -instance A.FromJSON V1IngressPortStatus where - parseJSON = A.withObject "V1IngressPortStatus" $ \o -> - V1IngressPortStatus - <$> (o .:? "error") - <*> (o .: "port") - <*> (o .: "protocol") - --- | ToJSON V1IngressPortStatus -instance A.ToJSON V1IngressPortStatus where - toJSON V1IngressPortStatus {..} = - _omitNulls - [ "error" .= v1IngressPortStatusError - , "port" .= v1IngressPortStatusPort - , "protocol" .= v1IngressPortStatusProtocol - ] - - --- | Construct a value of type 'V1IngressPortStatus' (by applying it's required fields, if any) -mkV1IngressPortStatus - :: Int -- ^ 'v1IngressPortStatusPort': Port is the port number of the ingress port. - -> Text -- ^ 'v1IngressPortStatusProtocol': Protocol is the protocol of the ingress port. The supported values are: \"TCP\", \"UDP\", \"SCTP\" - -> V1IngressPortStatus -mkV1IngressPortStatus v1IngressPortStatusPort v1IngressPortStatusProtocol = - V1IngressPortStatus - { v1IngressPortStatusError = Nothing - , v1IngressPortStatusPort - , v1IngressPortStatusProtocol - } - --- ** V1IngressRule --- | V1IngressRule --- IngressRule represents the rules mapping the paths under a specified host to the related backend services. Incoming requests are first evaluated for a host match, then routed to the backend associated with the matching IngressRuleValue. -data V1IngressRule = V1IngressRule - { v1IngressRuleHost :: !(Maybe Text) -- ^ "host" - Host is the fully qualified domain name of a network host, as defined by RFC 3986. Note the following deviations from the \"host\" part of the URI as defined in RFC 3986: 1. IPs are not allowed. Currently an IngressRuleValue can only apply to the IP in the Spec of the parent Ingress. 2. The `:` delimiter is not respected because ports are not allowed. Currently the port of an Ingress is implicitly :80 for http and :443 for https. Both these may change in the future. Incoming requests are matched against the host before the IngressRuleValue. If the host is unspecified, the Ingress routes all traffic based on the specified IngressRuleValue. Host can be \"precise\" which is a domain name without the terminating dot of a network host (e.g. \"foo.bar.com\") or \"wildcard\", which is a domain name prefixed with a single wildcard label (e.g. \"*.foo.com\"). The wildcard character '*' must appear by itself as the first DNS label and matches only a single label. You cannot have a wildcard label by itself (e.g. Host == \"*\"). Requests will be matched against the Host field in the following way: 1. If Host is precise, the request matches this rule if the http host header is equal to Host. 2. If Host is a wildcard, then the request matches this rule if the http host header is to equal to the suffix (removing the first label) of the wildcard rule. - , v1IngressRuleHttp :: !(Maybe V1HTTPIngressRuleValue) -- ^ "http" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressRule -instance A.FromJSON V1IngressRule where - parseJSON = A.withObject "V1IngressRule" $ \o -> - V1IngressRule - <$> (o .:? "host") - <*> (o .:? "http") - --- | ToJSON V1IngressRule -instance A.ToJSON V1IngressRule where - toJSON V1IngressRule {..} = - _omitNulls - [ "host" .= v1IngressRuleHost - , "http" .= v1IngressRuleHttp - ] - - --- | Construct a value of type 'V1IngressRule' (by applying it's required fields, if any) -mkV1IngressRule - :: V1IngressRule -mkV1IngressRule = - V1IngressRule - { v1IngressRuleHost = Nothing - , v1IngressRuleHttp = Nothing - } - --- ** V1IngressServiceBackend --- | V1IngressServiceBackend --- IngressServiceBackend references a Kubernetes Service as a Backend. -data V1IngressServiceBackend = V1IngressServiceBackend - { v1IngressServiceBackendName :: !(Text) -- ^ /Required/ "name" - Name is the referenced service. The service must exist in the same namespace as the Ingress object. - , v1IngressServiceBackendPort :: !(Maybe V1ServiceBackendPort) -- ^ "port" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressServiceBackend -instance A.FromJSON V1IngressServiceBackend where - parseJSON = A.withObject "V1IngressServiceBackend" $ \o -> - V1IngressServiceBackend - <$> (o .: "name") - <*> (o .:? "port") - --- | ToJSON V1IngressServiceBackend -instance A.ToJSON V1IngressServiceBackend where - toJSON V1IngressServiceBackend {..} = - _omitNulls - [ "name" .= v1IngressServiceBackendName - , "port" .= v1IngressServiceBackendPort - ] - - --- | Construct a value of type 'V1IngressServiceBackend' (by applying it's required fields, if any) -mkV1IngressServiceBackend - :: Text -- ^ 'v1IngressServiceBackendName': Name is the referenced service. The service must exist in the same namespace as the Ingress object. - -> V1IngressServiceBackend -mkV1IngressServiceBackend v1IngressServiceBackendName = - V1IngressServiceBackend - { v1IngressServiceBackendName - , v1IngressServiceBackendPort = Nothing - } - --- ** V1IngressSpec --- | V1IngressSpec --- IngressSpec describes the Ingress the user wishes to exist. -data V1IngressSpec = V1IngressSpec - { v1IngressSpecDefaultBackend :: !(Maybe V1IngressBackend) -- ^ "defaultBackend" - , v1IngressSpecIngressClassName :: !(Maybe Text) -- ^ "ingressClassName" - IngressClassName is the name of an IngressClass cluster resource. Ingress controller implementations use this field to know whether they should be serving this Ingress resource, by a transitive connection (controller -> IngressClass -> Ingress resource). Although the `kubernetes.io/ingress.class` annotation (simple constant name) was never formally defined, it was widely supported by Ingress controllers to create a direct binding between Ingress controller and Ingress resources. Newly created Ingress resources should prefer using the field. However, even though the annotation is officially deprecated, for backwards compatibility reasons, ingress controllers should still honor that annotation if present. - , v1IngressSpecRules :: !(Maybe [V1IngressRule]) -- ^ "rules" - A list of host rules used to configure the Ingress. If unspecified, or no rule matches, all traffic is sent to the default backend. - , v1IngressSpecTls :: !(Maybe [V1IngressTLS]) -- ^ "tls" - TLS configuration. Currently the Ingress only supports a single TLS port, 443. If multiple members of this list specify different hosts, they will be multiplexed on the same port according to the hostname specified through the SNI TLS extension, if the ingress controller fulfilling the ingress supports SNI. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressSpec -instance A.FromJSON V1IngressSpec where - parseJSON = A.withObject "V1IngressSpec" $ \o -> - V1IngressSpec - <$> (o .:? "defaultBackend") - <*> (o .:? "ingressClassName") - <*> (o .:? "rules") - <*> (o .:? "tls") - --- | ToJSON V1IngressSpec -instance A.ToJSON V1IngressSpec where - toJSON V1IngressSpec {..} = - _omitNulls - [ "defaultBackend" .= v1IngressSpecDefaultBackend - , "ingressClassName" .= v1IngressSpecIngressClassName - , "rules" .= v1IngressSpecRules - , "tls" .= v1IngressSpecTls - ] - - --- | Construct a value of type 'V1IngressSpec' (by applying it's required fields, if any) -mkV1IngressSpec - :: V1IngressSpec -mkV1IngressSpec = - V1IngressSpec - { v1IngressSpecDefaultBackend = Nothing - , v1IngressSpecIngressClassName = Nothing - , v1IngressSpecRules = Nothing - , v1IngressSpecTls = Nothing - } - --- ** V1IngressStatus --- | V1IngressStatus --- IngressStatus describe the current state of the Ingress. -data V1IngressStatus = V1IngressStatus - { v1IngressStatusLoadBalancer :: !(Maybe V1IngressLoadBalancerStatus) -- ^ "loadBalancer" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressStatus -instance A.FromJSON V1IngressStatus where - parseJSON = A.withObject "V1IngressStatus" $ \o -> - V1IngressStatus - <$> (o .:? "loadBalancer") - --- | ToJSON V1IngressStatus -instance A.ToJSON V1IngressStatus where - toJSON V1IngressStatus {..} = - _omitNulls - [ "loadBalancer" .= v1IngressStatusLoadBalancer - ] - - --- | Construct a value of type 'V1IngressStatus' (by applying it's required fields, if any) -mkV1IngressStatus - :: V1IngressStatus -mkV1IngressStatus = - V1IngressStatus - { v1IngressStatusLoadBalancer = Nothing - } - --- ** V1IngressTLS --- | V1IngressTLS --- IngressTLS describes the transport layer security associated with an Ingress. -data V1IngressTLS = V1IngressTLS - { v1IngressTLSHosts :: !(Maybe [Text]) -- ^ "hosts" - Hosts are a list of hosts included in the TLS certificate. The values in this list must match the name/s used in the tlsSecret. Defaults to the wildcard host setting for the loadbalancer controller fulfilling this Ingress, if left unspecified. - , v1IngressTLSSecretName :: !(Maybe Text) -- ^ "secretName" - SecretName is the name of the secret used to terminate TLS traffic on port 443. Field is left optional to allow TLS routing based on SNI hostname alone. If the SNI host in a listener conflicts with the \"Host\" header field used by an IngressRule, the SNI host is used for termination and value of the Host header is used for routing. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1IngressTLS -instance A.FromJSON V1IngressTLS where - parseJSON = A.withObject "V1IngressTLS" $ \o -> - V1IngressTLS - <$> (o .:? "hosts") - <*> (o .:? "secretName") - --- | ToJSON V1IngressTLS -instance A.ToJSON V1IngressTLS where - toJSON V1IngressTLS {..} = - _omitNulls - [ "hosts" .= v1IngressTLSHosts - , "secretName" .= v1IngressTLSSecretName - ] - - --- | Construct a value of type 'V1IngressTLS' (by applying it's required fields, if any) -mkV1IngressTLS - :: V1IngressTLS -mkV1IngressTLS = - V1IngressTLS - { v1IngressTLSHosts = Nothing - , v1IngressTLSSecretName = Nothing - } - --- ** V1JSONSchemaProps --- | V1JSONSchemaProps --- JSONSchemaProps is a JSON-Schema following Specification Draft 4 (http://json-schema.org/). -data V1JSONSchemaProps = V1JSONSchemaProps - { v1JSONSchemaPropsRef :: !(Maybe Text) -- ^ "$ref" - , v1JSONSchemaPropsSchema :: !(Maybe Text) -- ^ "$schema" - , v1JSONSchemaPropsAdditionalItems :: !(Maybe A.Value) -- ^ "additionalItems" - JSONSchemaPropsOrBool represents JSONSchemaProps or a boolean value. Defaults to true for the boolean property. - , v1JSONSchemaPropsAdditionalProperties :: !(Maybe A.Value) -- ^ "additionalProperties" - JSONSchemaPropsOrBool represents JSONSchemaProps or a boolean value. Defaults to true for the boolean property. - , v1JSONSchemaPropsAllOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "allOf" - , v1JSONSchemaPropsAnyOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "anyOf" - , v1JSONSchemaPropsDefault :: !(Maybe A.Value) -- ^ "default" - default is a default value for undefined object fields. Defaulting is a beta feature under the CustomResourceDefaulting feature gate. Defaulting requires spec.preserveUnknownFields to be false. - , v1JSONSchemaPropsDefinitions :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "definitions" - , v1JSONSchemaPropsDependencies :: !(Maybe (Map.Map String A.Value)) -- ^ "dependencies" - , v1JSONSchemaPropsDescription :: !(Maybe Text) -- ^ "description" - , v1JSONSchemaPropsEnum :: !(Maybe [A.Value]) -- ^ "enum" - , v1JSONSchemaPropsExample :: !(Maybe A.Value) -- ^ "example" - JSON represents any valid JSON value. These types are supported: bool, int64, float64, string, []interface{}, map[string]interface{} and nil. - , v1JSONSchemaPropsExclusiveMaximum :: !(Maybe Bool) -- ^ "exclusiveMaximum" - , v1JSONSchemaPropsExclusiveMinimum :: !(Maybe Bool) -- ^ "exclusiveMinimum" - , v1JSONSchemaPropsExternalDocs :: !(Maybe V1ExternalDocumentation) -- ^ "externalDocs" - , v1JSONSchemaPropsFormat :: !(Maybe Text) -- ^ "format" - format is an OpenAPI v3 format string. Unknown formats are ignored. The following formats are validated: - bsonobjectid: a bson object ID, i.e. a 24 characters hex string - uri: an URI as parsed by Golang net/url.ParseRequestURI - email: an email address as parsed by Golang net/mail.ParseAddress - hostname: a valid representation for an Internet host name, as defined by RFC 1034, section 3.1 [RFC1034]. - ipv4: an IPv4 IP as parsed by Golang net.ParseIP - ipv6: an IPv6 IP as parsed by Golang net.ParseIP - cidr: a CIDR as parsed by Golang net.ParseCIDR - mac: a MAC address as parsed by Golang net.ParseMAC - uuid: an UUID that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{12}$ - uuid3: an UUID3 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?3[0-9a-f]{3}-?[0-9a-f]{4}-?[0-9a-f]{12}$ - uuid4: an UUID4 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?4[0-9a-f]{3}-?[89ab][0-9a-f]{3}-?[0-9a-f]{12}$ - uuid5: an UUID5 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?5[0-9a-f]{3}-?[89ab][0-9a-f]{3}-?[0-9a-f]{12}$ - isbn: an ISBN10 or ISBN13 number string like \"0321751043\" or \"978-0321751041\" - isbn10: an ISBN10 number string like \"0321751043\" - isbn13: an ISBN13 number string like \"978-0321751041\" - creditcard: a credit card number defined by the regex ^(?:4[0-9]{12}(?:[0-9]{3})?|5[1-5][0-9]{14}|6(?:011|5[0-9][0-9])[0-9]{12}|3[47][0-9]{13}|3(?:0[0-5]|[68][0-9])[0-9]{11}|(?:2131|1800|35\\d{3})\\d{11})$ with any non digit characters mixed in - ssn: a U.S. social security number following the regex ^\\d{3}[- ]?\\d{2}[- ]?\\d{4}$ - hexcolor: an hexadecimal color code like \"#FFFFFF: following the regex ^#?([0-9a-fA-F]{3}|[0-9a-fA-F]{6})$ - rgbcolor: an RGB color code like rgb like \"rgb(255,255,2559\" - byte: base64 encoded binary data - password: any kind of string - date: a date string like \"2006-01-02\" as defined by full-date in RFC3339 - duration: a duration string like \"22 ns\" as parsed by Golang time.ParseDuration or compatible with Scala duration format - datetime: a date time string like \"2014-12-15T19:30:20.000Z\" as defined by date-time in RFC3339. - , v1JSONSchemaPropsId :: !(Maybe Text) -- ^ "id" - , v1JSONSchemaPropsItems :: !(Maybe A.Value) -- ^ "items" - JSONSchemaPropsOrArray represents a value that can either be a JSONSchemaProps or an array of JSONSchemaProps. Mainly here for serialization purposes. - , v1JSONSchemaPropsMaxItems :: !(Maybe Integer) -- ^ "maxItems" - , v1JSONSchemaPropsMaxLength :: !(Maybe Integer) -- ^ "maxLength" - , v1JSONSchemaPropsMaxProperties :: !(Maybe Integer) -- ^ "maxProperties" - , v1JSONSchemaPropsMaximum :: !(Maybe Double) -- ^ "maximum" - , v1JSONSchemaPropsMinItems :: !(Maybe Integer) -- ^ "minItems" - , v1JSONSchemaPropsMinLength :: !(Maybe Integer) -- ^ "minLength" - , v1JSONSchemaPropsMinProperties :: !(Maybe Integer) -- ^ "minProperties" - , v1JSONSchemaPropsMinimum :: !(Maybe Double) -- ^ "minimum" - , v1JSONSchemaPropsMultipleOf :: !(Maybe Double) -- ^ "multipleOf" - , v1JSONSchemaPropsNot :: !(Maybe V1JSONSchemaProps) -- ^ "not" - , v1JSONSchemaPropsNullable :: !(Maybe Bool) -- ^ "nullable" - , v1JSONSchemaPropsOneOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "oneOf" - , v1JSONSchemaPropsPattern :: !(Maybe Text) -- ^ "pattern" - , v1JSONSchemaPropsPatternProperties :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "patternProperties" - , v1JSONSchemaPropsProperties :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "properties" - , v1JSONSchemaPropsRequired :: !(Maybe [Text]) -- ^ "required" - , v1JSONSchemaPropsTitle :: !(Maybe Text) -- ^ "title" - , v1JSONSchemaPropsType :: !(Maybe Text) -- ^ "type" - , v1JSONSchemaPropsUniqueItems :: !(Maybe Bool) -- ^ "uniqueItems" - , v1JSONSchemaPropsXKubernetesEmbeddedResource :: !(Maybe Bool) -- ^ "x-kubernetes-embedded-resource" - x-kubernetes-embedded-resource defines that the value is an embedded Kubernetes runtime.Object, with TypeMeta and ObjectMeta. The type must be object. It is allowed to further restrict the embedded object. kind, apiVersion and metadata are validated automatically. x-kubernetes-preserve-unknown-fields is allowed to be true, but does not have to be if the object is fully specified (up to kind, apiVersion, metadata). - , v1JSONSchemaPropsXKubernetesIntOrString :: !(Maybe Bool) -- ^ "x-kubernetes-int-or-string" - x-kubernetes-int-or-string specifies that this value is either an integer or a string. If this is true, an empty type is allowed and type as child of anyOf is permitted if following one of the following patterns: 1) anyOf: - type: integer - type: string 2) allOf: - anyOf: - type: integer - type: string - ... zero or more - , v1JSONSchemaPropsXKubernetesListMapKeys :: !(Maybe [Text]) -- ^ "x-kubernetes-list-map-keys" - x-kubernetes-list-map-keys annotates an array with the x-kubernetes-list-type `map` by specifying the keys used as the index of the map. This tag MUST only be used on lists that have the \"x-kubernetes-list-type\" extension set to \"map\". Also, the values specified for this attribute must be a scalar typed field of the child structure (no nesting is supported). The properties specified must either be required or have a default value, to ensure those properties are present for all list items. - , v1JSONSchemaPropsXKubernetesListType :: !(Maybe Text) -- ^ "x-kubernetes-list-type" - x-kubernetes-list-type annotates an array to further describe its topology. This extension must only be used on lists and may have 3 possible values: 1) `atomic`: the list is treated as a single entity, like a scalar. Atomic lists will be entirely replaced when updated. This extension may be used on any type of list (struct, scalar, ...). 2) `set`: Sets are lists that must not have multiple items with the same value. Each value must be a scalar, an object with x-kubernetes-map-type `atomic` or an array with x-kubernetes-list-type `atomic`. 3) `map`: These lists are like maps in that their elements have a non-index key used to identify them. Order is preserved upon merge. The map tag must only be used on a list with elements of type object. Defaults to atomic for arrays. - , v1JSONSchemaPropsXKubernetesMapType :: !(Maybe Text) -- ^ "x-kubernetes-map-type" - x-kubernetes-map-type annotates an object to further describe its topology. This extension must only be used when type is object and may have 2 possible values: 1) `granular`: These maps are actual maps (key-value pairs) and each fields are independent from each other (they can each be manipulated by separate actors). This is the default behaviour for all maps. 2) `atomic`: the list is treated as a single entity, like a scalar. Atomic maps will be entirely replaced when updated. - , v1JSONSchemaPropsXKubernetesPreserveUnknownFields :: !(Maybe Bool) -- ^ "x-kubernetes-preserve-unknown-fields" - x-kubernetes-preserve-unknown-fields stops the API server decoding step from pruning fields which are not specified in the validation schema. This affects fields recursively, but switches back to normal pruning behaviour if nested properties or additionalProperties are specified in the schema. This can either be true or undefined. False is forbidden. - , v1JSONSchemaPropsXKubernetesValidations :: !(Maybe [V1ValidationRule]) -- ^ "x-kubernetes-validations" - x-kubernetes-validations describes a list of validation rules written in the CEL expression language. This field is an alpha-level. Using this field requires the feature gate `CustomResourceValidationExpressions` to be enabled. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JSONSchemaProps -instance A.FromJSON V1JSONSchemaProps where - parseJSON = A.withObject "V1JSONSchemaProps" $ \o -> - V1JSONSchemaProps - <$> (o .:? "$ref") - <*> (o .:? "$schema") - <*> (o .:? "additionalItems") - <*> (o .:? "additionalProperties") - <*> (o .:? "allOf") - <*> (o .:? "anyOf") - <*> (o .:? "default") - <*> (o .:? "definitions") - <*> (o .:? "dependencies") - <*> (o .:? "description") - <*> (o .:? "enum") - <*> (o .:? "example") - <*> (o .:? "exclusiveMaximum") - <*> (o .:? "exclusiveMinimum") - <*> (o .:? "externalDocs") - <*> (o .:? "format") - <*> (o .:? "id") - <*> (o .:? "items") - <*> (o .:? "maxItems") - <*> (o .:? "maxLength") - <*> (o .:? "maxProperties") - <*> (o .:? "maximum") - <*> (o .:? "minItems") - <*> (o .:? "minLength") - <*> (o .:? "minProperties") - <*> (o .:? "minimum") - <*> (o .:? "multipleOf") - <*> (o .:? "not") - <*> (o .:? "nullable") - <*> (o .:? "oneOf") - <*> (o .:? "pattern") - <*> (o .:? "patternProperties") - <*> (o .:? "properties") - <*> (o .:? "required") - <*> (o .:? "title") - <*> (o .:? "type") - <*> (o .:? "uniqueItems") - <*> (o .:? "x-kubernetes-embedded-resource") - <*> (o .:? "x-kubernetes-int-or-string") - <*> (o .:? "x-kubernetes-list-map-keys") - <*> (o .:? "x-kubernetes-list-type") - <*> (o .:? "x-kubernetes-map-type") - <*> (o .:? "x-kubernetes-preserve-unknown-fields") - <*> (o .:? "x-kubernetes-validations") - --- | ToJSON V1JSONSchemaProps -instance A.ToJSON V1JSONSchemaProps where - toJSON V1JSONSchemaProps {..} = - _omitNulls - [ "$ref" .= v1JSONSchemaPropsRef - , "$schema" .= v1JSONSchemaPropsSchema - , "additionalItems" .= v1JSONSchemaPropsAdditionalItems - , "additionalProperties" .= v1JSONSchemaPropsAdditionalProperties - , "allOf" .= v1JSONSchemaPropsAllOf - , "anyOf" .= v1JSONSchemaPropsAnyOf - , "default" .= v1JSONSchemaPropsDefault - , "definitions" .= v1JSONSchemaPropsDefinitions - , "dependencies" .= v1JSONSchemaPropsDependencies - , "description" .= v1JSONSchemaPropsDescription - , "enum" .= v1JSONSchemaPropsEnum - , "example" .= v1JSONSchemaPropsExample - , "exclusiveMaximum" .= v1JSONSchemaPropsExclusiveMaximum - , "exclusiveMinimum" .= v1JSONSchemaPropsExclusiveMinimum - , "externalDocs" .= v1JSONSchemaPropsExternalDocs - , "format" .= v1JSONSchemaPropsFormat - , "id" .= v1JSONSchemaPropsId - , "items" .= v1JSONSchemaPropsItems - , "maxItems" .= v1JSONSchemaPropsMaxItems - , "maxLength" .= v1JSONSchemaPropsMaxLength - , "maxProperties" .= v1JSONSchemaPropsMaxProperties - , "maximum" .= v1JSONSchemaPropsMaximum - , "minItems" .= v1JSONSchemaPropsMinItems - , "minLength" .= v1JSONSchemaPropsMinLength - , "minProperties" .= v1JSONSchemaPropsMinProperties - , "minimum" .= v1JSONSchemaPropsMinimum - , "multipleOf" .= v1JSONSchemaPropsMultipleOf - , "not" .= v1JSONSchemaPropsNot - , "nullable" .= v1JSONSchemaPropsNullable - , "oneOf" .= v1JSONSchemaPropsOneOf - , "pattern" .= v1JSONSchemaPropsPattern - , "patternProperties" .= v1JSONSchemaPropsPatternProperties - , "properties" .= v1JSONSchemaPropsProperties - , "required" .= v1JSONSchemaPropsRequired - , "title" .= v1JSONSchemaPropsTitle - , "type" .= v1JSONSchemaPropsType - , "uniqueItems" .= v1JSONSchemaPropsUniqueItems - , "x-kubernetes-embedded-resource" .= v1JSONSchemaPropsXKubernetesEmbeddedResource - , "x-kubernetes-int-or-string" .= v1JSONSchemaPropsXKubernetesIntOrString - , "x-kubernetes-list-map-keys" .= v1JSONSchemaPropsXKubernetesListMapKeys - , "x-kubernetes-list-type" .= v1JSONSchemaPropsXKubernetesListType - , "x-kubernetes-map-type" .= v1JSONSchemaPropsXKubernetesMapType - , "x-kubernetes-preserve-unknown-fields" .= v1JSONSchemaPropsXKubernetesPreserveUnknownFields - , "x-kubernetes-validations" .= v1JSONSchemaPropsXKubernetesValidations - ] - - --- | Construct a value of type 'V1JSONSchemaProps' (by applying it's required fields, if any) -mkV1JSONSchemaProps - :: V1JSONSchemaProps -mkV1JSONSchemaProps = - V1JSONSchemaProps - { v1JSONSchemaPropsRef = Nothing - , v1JSONSchemaPropsSchema = Nothing - , v1JSONSchemaPropsAdditionalItems = Nothing - , v1JSONSchemaPropsAdditionalProperties = Nothing - , v1JSONSchemaPropsAllOf = Nothing - , v1JSONSchemaPropsAnyOf = Nothing - , v1JSONSchemaPropsDefault = Nothing - , v1JSONSchemaPropsDefinitions = Nothing - , v1JSONSchemaPropsDependencies = Nothing - , v1JSONSchemaPropsDescription = Nothing - , v1JSONSchemaPropsEnum = Nothing - , v1JSONSchemaPropsExample = Nothing - , v1JSONSchemaPropsExclusiveMaximum = Nothing - , v1JSONSchemaPropsExclusiveMinimum = Nothing - , v1JSONSchemaPropsExternalDocs = Nothing - , v1JSONSchemaPropsFormat = Nothing - , v1JSONSchemaPropsId = Nothing - , v1JSONSchemaPropsItems = Nothing - , v1JSONSchemaPropsMaxItems = Nothing - , v1JSONSchemaPropsMaxLength = Nothing - , v1JSONSchemaPropsMaxProperties = Nothing - , v1JSONSchemaPropsMaximum = Nothing - , v1JSONSchemaPropsMinItems = Nothing - , v1JSONSchemaPropsMinLength = Nothing - , v1JSONSchemaPropsMinProperties = Nothing - , v1JSONSchemaPropsMinimum = Nothing - , v1JSONSchemaPropsMultipleOf = Nothing - , v1JSONSchemaPropsNot = Nothing - , v1JSONSchemaPropsNullable = Nothing - , v1JSONSchemaPropsOneOf = Nothing - , v1JSONSchemaPropsPattern = Nothing - , v1JSONSchemaPropsPatternProperties = Nothing - , v1JSONSchemaPropsProperties = Nothing - , v1JSONSchemaPropsRequired = Nothing - , v1JSONSchemaPropsTitle = Nothing - , v1JSONSchemaPropsType = Nothing - , v1JSONSchemaPropsUniqueItems = Nothing - , v1JSONSchemaPropsXKubernetesEmbeddedResource = Nothing - , v1JSONSchemaPropsXKubernetesIntOrString = Nothing - , v1JSONSchemaPropsXKubernetesListMapKeys = Nothing - , v1JSONSchemaPropsXKubernetesListType = Nothing - , v1JSONSchemaPropsXKubernetesMapType = Nothing - , v1JSONSchemaPropsXKubernetesPreserveUnknownFields = Nothing - , v1JSONSchemaPropsXKubernetesValidations = Nothing - } - --- ** V1Job --- | V1Job --- Job represents the configuration of a single job. -data V1Job = V1Job - { v1JobApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1JobKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1JobMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1JobSpec :: !(Maybe V1JobSpec) -- ^ "spec" - , v1JobStatus :: !(Maybe V1JobStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Job -instance A.FromJSON V1Job where - parseJSON = A.withObject "V1Job" $ \o -> - V1Job - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Job -instance A.ToJSON V1Job where - toJSON V1Job {..} = - _omitNulls - [ "apiVersion" .= v1JobApiVersion - , "kind" .= v1JobKind - , "metadata" .= v1JobMetadata - , "spec" .= v1JobSpec - , "status" .= v1JobStatus - ] - - --- | Construct a value of type 'V1Job' (by applying it's required fields, if any) -mkV1Job - :: V1Job -mkV1Job = - V1Job - { v1JobApiVersion = Nothing - , v1JobKind = Nothing - , v1JobMetadata = Nothing - , v1JobSpec = Nothing - , v1JobStatus = Nothing - } - --- ** V1JobCondition --- | V1JobCondition --- JobCondition describes current state of a job. -data V1JobCondition = V1JobCondition - { v1JobConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - Last time the condition was checked. - , v1JobConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transit from one status to another. - , v1JobConditionMessage :: !(Maybe Text) -- ^ "message" - Human readable message indicating details about last transition. - , v1JobConditionReason :: !(Maybe Text) -- ^ "reason" - (brief) reason for the condition's last transition. - , v1JobConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1JobConditionType :: !(Text) -- ^ /Required/ "type" - Type of job condition, Complete or Failed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JobCondition -instance A.FromJSON V1JobCondition where - parseJSON = A.withObject "V1JobCondition" $ \o -> - V1JobCondition - <$> (o .:? "lastProbeTime") - <*> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1JobCondition -instance A.ToJSON V1JobCondition where - toJSON V1JobCondition {..} = - _omitNulls - [ "lastProbeTime" .= v1JobConditionLastProbeTime - , "lastTransitionTime" .= v1JobConditionLastTransitionTime - , "message" .= v1JobConditionMessage - , "reason" .= v1JobConditionReason - , "status" .= v1JobConditionStatus - , "type" .= v1JobConditionType - ] - - --- | Construct a value of type 'V1JobCondition' (by applying it's required fields, if any) -mkV1JobCondition - :: Text -- ^ 'v1JobConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1JobConditionType': Type of job condition, Complete or Failed. - -> V1JobCondition -mkV1JobCondition v1JobConditionStatus v1JobConditionType = - V1JobCondition - { v1JobConditionLastProbeTime = Nothing - , v1JobConditionLastTransitionTime = Nothing - , v1JobConditionMessage = Nothing - , v1JobConditionReason = Nothing - , v1JobConditionStatus - , v1JobConditionType - } - --- ** V1JobList --- | V1JobList --- JobList is a collection of jobs. -data V1JobList = V1JobList - { v1JobListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1JobListItems :: !([V1Job]) -- ^ /Required/ "items" - items is the list of Jobs. - , v1JobListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1JobListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JobList -instance A.FromJSON V1JobList where - parseJSON = A.withObject "V1JobList" $ \o -> - V1JobList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1JobList -instance A.ToJSON V1JobList where - toJSON V1JobList {..} = - _omitNulls - [ "apiVersion" .= v1JobListApiVersion - , "items" .= v1JobListItems - , "kind" .= v1JobListKind - , "metadata" .= v1JobListMetadata - ] - - --- | Construct a value of type 'V1JobList' (by applying it's required fields, if any) -mkV1JobList - :: [V1Job] -- ^ 'v1JobListItems': items is the list of Jobs. - -> V1JobList -mkV1JobList v1JobListItems = - V1JobList - { v1JobListApiVersion = Nothing - , v1JobListItems - , v1JobListKind = Nothing - , v1JobListMetadata = Nothing - } - --- ** V1JobSpec --- | V1JobSpec --- JobSpec describes how the job execution will look like. -data V1JobSpec = V1JobSpec - { v1JobSpecActiveDeadlineSeconds :: !(Maybe Integer) -- ^ "activeDeadlineSeconds" - Specifies the duration in seconds relative to the startTime that the job may be continuously active before the system tries to terminate it; value must be positive integer. If a Job is suspended (at creation or through an update), this timer will effectively be stopped and reset when the Job is resumed again. - , v1JobSpecBackoffLimit :: !(Maybe Int) -- ^ "backoffLimit" - Specifies the number of retries before marking this job failed. Defaults to 6 - , v1JobSpecCompletionMode :: !(Maybe Text) -- ^ "completionMode" - CompletionMode specifies how Pod completions are tracked. It can be `NonIndexed` (default) or `Indexed`. `NonIndexed` means that the Job is considered complete when there have been .spec.completions successfully completed Pods. Each Pod completion is homologous to each other. `Indexed` means that the Pods of a Job get an associated completion index from 0 to (.spec.completions - 1), available in the annotation batch.kubernetes.io/job-completion-index. The Job is considered complete when there is one successfully completed Pod for each index. When value is `Indexed`, .spec.completions must be specified and `.spec.parallelism` must be less than or equal to 10^5. In addition, The Pod name takes the form `$(job-name)-$(index)-$(random-string)`, the Pod hostname takes the form `$(job-name)-$(index)`. More completion modes can be added in the future. If the Job controller observes a mode that it doesn't recognize, which is possible during upgrades due to version skew, the controller skips updates for the Job. - , v1JobSpecCompletions :: !(Maybe Int) -- ^ "completions" - Specifies the desired number of successfully finished pods the job should be run with. Setting to nil means that the success of any pod signals the success of all pods, and allows parallelism to have any positive value. Setting to 1 means that parallelism is limited to 1 and the success of that pod signals the success of the job. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ - , v1JobSpecManualSelector :: !(Maybe Bool) -- ^ "manualSelector" - manualSelector controls generation of pod labels and pod selectors. Leave `manualSelector` unset unless you are certain what you are doing. When false or unset, the system pick labels unique to this job and appends those labels to the pod template. When true, the user is responsible for picking unique labels and specifying the selector. Failure to pick a unique label may cause this and other jobs to not function correctly. However, You may see `manualSelector=true` in jobs that were created with the old `extensions/v1beta1` API. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/#specifying-your-own-pod-selector - , v1JobSpecParallelism :: !(Maybe Int) -- ^ "parallelism" - Specifies the maximum desired number of pods the job should run at any given time. The actual number of pods running in steady state will be less than this number when ((.spec.completions - .status.successful) < .spec.parallelism), i.e. when the work left to do is less than max parallelism. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ - , v1JobSpecPodFailurePolicy :: !(Maybe V1PodFailurePolicy) -- ^ "podFailurePolicy" - , v1JobSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" - , v1JobSpecSuspend :: !(Maybe Bool) -- ^ "suspend" - Suspend specifies whether the Job controller should create Pods or not. If a Job is created with suspend set to true, no Pods are created by the Job controller. If a Job is suspended after creation (i.e. the flag goes from false to true), the Job controller will delete all active Pods associated with this Job. Users must design their workload to gracefully handle this. Suspending a Job will reset the StartTime field of the Job, effectively resetting the ActiveDeadlineSeconds timer too. Defaults to false. - , v1JobSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" - , v1JobSpecTtlSecondsAfterFinished :: !(Maybe Int) -- ^ "ttlSecondsAfterFinished" - ttlSecondsAfterFinished limits the lifetime of a Job that has finished execution (either Complete or Failed). If this field is set, ttlSecondsAfterFinished after the Job finishes, it is eligible to be automatically deleted. When the Job is being deleted, its lifecycle guarantees (e.g. finalizers) will be honored. If this field is unset, the Job won't be automatically deleted. If this field is set to zero, the Job becomes eligible to be deleted immediately after it finishes. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JobSpec -instance A.FromJSON V1JobSpec where - parseJSON = A.withObject "V1JobSpec" $ \o -> - V1JobSpec - <$> (o .:? "activeDeadlineSeconds") - <*> (o .:? "backoffLimit") - <*> (o .:? "completionMode") - <*> (o .:? "completions") - <*> (o .:? "manualSelector") - <*> (o .:? "parallelism") - <*> (o .:? "podFailurePolicy") - <*> (o .:? "selector") - <*> (o .:? "suspend") - <*> (o .: "template") - <*> (o .:? "ttlSecondsAfterFinished") - --- | ToJSON V1JobSpec -instance A.ToJSON V1JobSpec where - toJSON V1JobSpec {..} = - _omitNulls - [ "activeDeadlineSeconds" .= v1JobSpecActiveDeadlineSeconds - , "backoffLimit" .= v1JobSpecBackoffLimit - , "completionMode" .= v1JobSpecCompletionMode - , "completions" .= v1JobSpecCompletions - , "manualSelector" .= v1JobSpecManualSelector - , "parallelism" .= v1JobSpecParallelism - , "podFailurePolicy" .= v1JobSpecPodFailurePolicy - , "selector" .= v1JobSpecSelector - , "suspend" .= v1JobSpecSuspend - , "template" .= v1JobSpecTemplate - , "ttlSecondsAfterFinished" .= v1JobSpecTtlSecondsAfterFinished - ] - - --- | Construct a value of type 'V1JobSpec' (by applying it's required fields, if any) -mkV1JobSpec - :: V1PodTemplateSpec -- ^ 'v1JobSpecTemplate' - -> V1JobSpec -mkV1JobSpec v1JobSpecTemplate = - V1JobSpec - { v1JobSpecActiveDeadlineSeconds = Nothing - , v1JobSpecBackoffLimit = Nothing - , v1JobSpecCompletionMode = Nothing - , v1JobSpecCompletions = Nothing - , v1JobSpecManualSelector = Nothing - , v1JobSpecParallelism = Nothing - , v1JobSpecPodFailurePolicy = Nothing - , v1JobSpecSelector = Nothing - , v1JobSpecSuspend = Nothing - , v1JobSpecTemplate - , v1JobSpecTtlSecondsAfterFinished = Nothing - } - --- ** V1JobStatus --- | V1JobStatus --- JobStatus represents the current state of a Job. -data V1JobStatus = V1JobStatus - { v1JobStatusActive :: !(Maybe Int) -- ^ "active" - The number of pending and running pods. - , v1JobStatusCompletedIndexes :: !(Maybe Text) -- ^ "completedIndexes" - CompletedIndexes holds the completed indexes when .spec.completionMode = \"Indexed\" in a text format. The indexes are represented as decimal integers separated by commas. The numbers are listed in increasing order. Three or more consecutive numbers are compressed and represented by the first and last element of the series, separated by a hyphen. For example, if the completed indexes are 1, 3, 4, 5 and 7, they are represented as \"1,3-5,7\". - , v1JobStatusCompletionTime :: !(Maybe DateTime) -- ^ "completionTime" - Represents time when the job was completed. It is not guaranteed to be set in happens-before order across separate operations. It is represented in RFC3339 form and is in UTC. The completion time is only set when the job finishes successfully. - , v1JobStatusConditions :: !(Maybe [V1JobCondition]) -- ^ "conditions" - The latest available observations of an object's current state. When a Job fails, one of the conditions will have type \"Failed\" and status true. When a Job is suspended, one of the conditions will have type \"Suspended\" and status true; when the Job is resumed, the status of this condition will become false. When a Job is completed, one of the conditions will have type \"Complete\" and status true. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ - , v1JobStatusFailed :: !(Maybe Int) -- ^ "failed" - The number of pods which reached phase Failed. - , v1JobStatusReady :: !(Maybe Int) -- ^ "ready" - The number of pods which have a Ready condition. This field is beta-level. The job controller populates the field when the feature gate JobReadyPods is enabled (enabled by default). - , v1JobStatusStartTime :: !(Maybe DateTime) -- ^ "startTime" - Represents time when the job controller started processing a job. When a Job is created in the suspended state, this field is not set until the first time it is resumed. This field is reset every time a Job is resumed from suspension. It is represented in RFC3339 form and is in UTC. - , v1JobStatusSucceeded :: !(Maybe Int) -- ^ "succeeded" - The number of pods which reached phase Succeeded. - , v1JobStatusUncountedTerminatedPods :: !(Maybe V1UncountedTerminatedPods) -- ^ "uncountedTerminatedPods" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JobStatus -instance A.FromJSON V1JobStatus where - parseJSON = A.withObject "V1JobStatus" $ \o -> - V1JobStatus - <$> (o .:? "active") - <*> (o .:? "completedIndexes") - <*> (o .:? "completionTime") - <*> (o .:? "conditions") - <*> (o .:? "failed") - <*> (o .:? "ready") - <*> (o .:? "startTime") - <*> (o .:? "succeeded") - <*> (o .:? "uncountedTerminatedPods") - --- | ToJSON V1JobStatus -instance A.ToJSON V1JobStatus where - toJSON V1JobStatus {..} = - _omitNulls - [ "active" .= v1JobStatusActive - , "completedIndexes" .= v1JobStatusCompletedIndexes - , "completionTime" .= v1JobStatusCompletionTime - , "conditions" .= v1JobStatusConditions - , "failed" .= v1JobStatusFailed - , "ready" .= v1JobStatusReady - , "startTime" .= v1JobStatusStartTime - , "succeeded" .= v1JobStatusSucceeded - , "uncountedTerminatedPods" .= v1JobStatusUncountedTerminatedPods - ] - - --- | Construct a value of type 'V1JobStatus' (by applying it's required fields, if any) -mkV1JobStatus - :: V1JobStatus -mkV1JobStatus = - V1JobStatus - { v1JobStatusActive = Nothing - , v1JobStatusCompletedIndexes = Nothing - , v1JobStatusCompletionTime = Nothing - , v1JobStatusConditions = Nothing - , v1JobStatusFailed = Nothing - , v1JobStatusReady = Nothing - , v1JobStatusStartTime = Nothing - , v1JobStatusSucceeded = Nothing - , v1JobStatusUncountedTerminatedPods = Nothing - } - --- ** V1JobTemplateSpec --- | V1JobTemplateSpec --- JobTemplateSpec describes the data a Job should have when created from a template -data V1JobTemplateSpec = V1JobTemplateSpec - { v1JobTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1JobTemplateSpecSpec :: !(Maybe V1JobSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1JobTemplateSpec -instance A.FromJSON V1JobTemplateSpec where - parseJSON = A.withObject "V1JobTemplateSpec" $ \o -> - V1JobTemplateSpec - <$> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1JobTemplateSpec -instance A.ToJSON V1JobTemplateSpec where - toJSON V1JobTemplateSpec {..} = - _omitNulls - [ "metadata" .= v1JobTemplateSpecMetadata - , "spec" .= v1JobTemplateSpecSpec - ] - - --- | Construct a value of type 'V1JobTemplateSpec' (by applying it's required fields, if any) -mkV1JobTemplateSpec - :: V1JobTemplateSpec -mkV1JobTemplateSpec = - V1JobTemplateSpec - { v1JobTemplateSpecMetadata = Nothing - , v1JobTemplateSpecSpec = Nothing - } - --- ** V1KeyToPath --- | V1KeyToPath --- Maps a string key to a path within a volume. -data V1KeyToPath = V1KeyToPath - { v1KeyToPathKey :: !(Text) -- ^ /Required/ "key" - key is the key to project. - , v1KeyToPathMode :: !(Maybe Int) -- ^ "mode" - mode is Optional: mode bits used to set permissions on this file. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. If not specified, the volume defaultMode will be used. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1KeyToPathPath :: !(Text) -- ^ /Required/ "path" - path is the relative path of the file to map the key to. May not be an absolute path. May not contain the path element '..'. May not start with the string '..'. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1KeyToPath -instance A.FromJSON V1KeyToPath where - parseJSON = A.withObject "V1KeyToPath" $ \o -> - V1KeyToPath - <$> (o .: "key") - <*> (o .:? "mode") - <*> (o .: "path") - --- | ToJSON V1KeyToPath -instance A.ToJSON V1KeyToPath where - toJSON V1KeyToPath {..} = - _omitNulls - [ "key" .= v1KeyToPathKey - , "mode" .= v1KeyToPathMode - , "path" .= v1KeyToPathPath - ] - - --- | Construct a value of type 'V1KeyToPath' (by applying it's required fields, if any) -mkV1KeyToPath - :: Text -- ^ 'v1KeyToPathKey': key is the key to project. - -> Text -- ^ 'v1KeyToPathPath': path is the relative path of the file to map the key to. May not be an absolute path. May not contain the path element '..'. May not start with the string '..'. - -> V1KeyToPath -mkV1KeyToPath v1KeyToPathKey v1KeyToPathPath = - V1KeyToPath - { v1KeyToPathKey - , v1KeyToPathMode = Nothing - , v1KeyToPathPath - } - --- ** V1LabelSelector --- | V1LabelSelector --- A label selector is a label query over a set of resources. The result of matchLabels and matchExpressions are ANDed. An empty label selector matches all objects. A null label selector matches no objects. -data V1LabelSelector = V1LabelSelector - { v1LabelSelectorMatchExpressions :: !(Maybe [V1LabelSelectorRequirement]) -- ^ "matchExpressions" - matchExpressions is a list of label selector requirements. The requirements are ANDed. - , v1LabelSelectorMatchLabels :: !(Maybe (Map.Map String Text)) -- ^ "matchLabels" - matchLabels is a map of {key,value} pairs. A single {key,value} in the matchLabels map is equivalent to an element of matchExpressions, whose key field is \"key\", the operator is \"In\", and the values array contains only \"value\". The requirements are ANDed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LabelSelector -instance A.FromJSON V1LabelSelector where - parseJSON = A.withObject "V1LabelSelector" $ \o -> - V1LabelSelector - <$> (o .:? "matchExpressions") - <*> (o .:? "matchLabels") - --- | ToJSON V1LabelSelector -instance A.ToJSON V1LabelSelector where - toJSON V1LabelSelector {..} = - _omitNulls - [ "matchExpressions" .= v1LabelSelectorMatchExpressions - , "matchLabels" .= v1LabelSelectorMatchLabels - ] - - --- | Construct a value of type 'V1LabelSelector' (by applying it's required fields, if any) -mkV1LabelSelector - :: V1LabelSelector -mkV1LabelSelector = - V1LabelSelector - { v1LabelSelectorMatchExpressions = Nothing - , v1LabelSelectorMatchLabels = Nothing - } - --- ** V1LabelSelectorRequirement --- | V1LabelSelectorRequirement --- A label selector requirement is a selector that contains values, a key, and an operator that relates the key and values. -data V1LabelSelectorRequirement = V1LabelSelectorRequirement - { v1LabelSelectorRequirementKey :: !(Text) -- ^ /Required/ "key" - key is the label key that the selector applies to. - , v1LabelSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - operator represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists and DoesNotExist. - , v1LabelSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - values is an array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. This array is replaced during a strategic merge patch. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LabelSelectorRequirement -instance A.FromJSON V1LabelSelectorRequirement where - parseJSON = A.withObject "V1LabelSelectorRequirement" $ \o -> - V1LabelSelectorRequirement - <$> (o .: "key") - <*> (o .: "operator") - <*> (o .:? "values") - --- | ToJSON V1LabelSelectorRequirement -instance A.ToJSON V1LabelSelectorRequirement where - toJSON V1LabelSelectorRequirement {..} = - _omitNulls - [ "key" .= v1LabelSelectorRequirementKey - , "operator" .= v1LabelSelectorRequirementOperator - , "values" .= v1LabelSelectorRequirementValues - ] - - --- | Construct a value of type 'V1LabelSelectorRequirement' (by applying it's required fields, if any) -mkV1LabelSelectorRequirement - :: Text -- ^ 'v1LabelSelectorRequirementKey': key is the label key that the selector applies to. - -> Text -- ^ 'v1LabelSelectorRequirementOperator': operator represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists and DoesNotExist. - -> V1LabelSelectorRequirement -mkV1LabelSelectorRequirement v1LabelSelectorRequirementKey v1LabelSelectorRequirementOperator = - V1LabelSelectorRequirement - { v1LabelSelectorRequirementKey - , v1LabelSelectorRequirementOperator - , v1LabelSelectorRequirementValues = Nothing - } - --- ** V1Lease --- | V1Lease --- Lease defines a lease concept. -data V1Lease = V1Lease - { v1LeaseApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1LeaseKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1LeaseMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1LeaseSpec :: !(Maybe V1LeaseSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Lease -instance A.FromJSON V1Lease where - parseJSON = A.withObject "V1Lease" $ \o -> - V1Lease - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1Lease -instance A.ToJSON V1Lease where - toJSON V1Lease {..} = - _omitNulls - [ "apiVersion" .= v1LeaseApiVersion - , "kind" .= v1LeaseKind - , "metadata" .= v1LeaseMetadata - , "spec" .= v1LeaseSpec - ] - - --- | Construct a value of type 'V1Lease' (by applying it's required fields, if any) -mkV1Lease - :: V1Lease -mkV1Lease = - V1Lease - { v1LeaseApiVersion = Nothing - , v1LeaseKind = Nothing - , v1LeaseMetadata = Nothing - , v1LeaseSpec = Nothing - } - --- ** V1LeaseList --- | V1LeaseList --- LeaseList is a list of Lease objects. -data V1LeaseList = V1LeaseList - { v1LeaseListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1LeaseListItems :: !([V1Lease]) -- ^ /Required/ "items" - Items is a list of schema objects. - , v1LeaseListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1LeaseListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LeaseList -instance A.FromJSON V1LeaseList where - parseJSON = A.withObject "V1LeaseList" $ \o -> - V1LeaseList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1LeaseList -instance A.ToJSON V1LeaseList where - toJSON V1LeaseList {..} = - _omitNulls - [ "apiVersion" .= v1LeaseListApiVersion - , "items" .= v1LeaseListItems - , "kind" .= v1LeaseListKind - , "metadata" .= v1LeaseListMetadata - ] - - --- | Construct a value of type 'V1LeaseList' (by applying it's required fields, if any) -mkV1LeaseList - :: [V1Lease] -- ^ 'v1LeaseListItems': Items is a list of schema objects. - -> V1LeaseList -mkV1LeaseList v1LeaseListItems = - V1LeaseList - { v1LeaseListApiVersion = Nothing - , v1LeaseListItems - , v1LeaseListKind = Nothing - , v1LeaseListMetadata = Nothing - } - --- ** V1LeaseSpec --- | V1LeaseSpec --- LeaseSpec is a specification of a Lease. -data V1LeaseSpec = V1LeaseSpec - { v1LeaseSpecAcquireTime :: !(Maybe DateTime) -- ^ "acquireTime" - acquireTime is a time when the current lease was acquired. - , v1LeaseSpecHolderIdentity :: !(Maybe Text) -- ^ "holderIdentity" - holderIdentity contains the identity of the holder of a current lease. - , v1LeaseSpecLeaseDurationSeconds :: !(Maybe Int) -- ^ "leaseDurationSeconds" - leaseDurationSeconds is a duration that candidates for a lease need to wait to force acquire it. This is measure against time of last observed RenewTime. - , v1LeaseSpecLeaseTransitions :: !(Maybe Int) -- ^ "leaseTransitions" - leaseTransitions is the number of transitions of a lease between holders. - , v1LeaseSpecRenewTime :: !(Maybe DateTime) -- ^ "renewTime" - renewTime is a time when the current holder of a lease has last updated the lease. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LeaseSpec -instance A.FromJSON V1LeaseSpec where - parseJSON = A.withObject "V1LeaseSpec" $ \o -> - V1LeaseSpec - <$> (o .:? "acquireTime") - <*> (o .:? "holderIdentity") - <*> (o .:? "leaseDurationSeconds") - <*> (o .:? "leaseTransitions") - <*> (o .:? "renewTime") - --- | ToJSON V1LeaseSpec -instance A.ToJSON V1LeaseSpec where - toJSON V1LeaseSpec {..} = - _omitNulls - [ "acquireTime" .= v1LeaseSpecAcquireTime - , "holderIdentity" .= v1LeaseSpecHolderIdentity - , "leaseDurationSeconds" .= v1LeaseSpecLeaseDurationSeconds - , "leaseTransitions" .= v1LeaseSpecLeaseTransitions - , "renewTime" .= v1LeaseSpecRenewTime - ] - - --- | Construct a value of type 'V1LeaseSpec' (by applying it's required fields, if any) -mkV1LeaseSpec - :: V1LeaseSpec -mkV1LeaseSpec = - V1LeaseSpec - { v1LeaseSpecAcquireTime = Nothing - , v1LeaseSpecHolderIdentity = Nothing - , v1LeaseSpecLeaseDurationSeconds = Nothing - , v1LeaseSpecLeaseTransitions = Nothing - , v1LeaseSpecRenewTime = Nothing - } - --- ** V1Lifecycle --- | V1Lifecycle --- Lifecycle describes actions that the management system should take in response to container lifecycle events. For the PostStart and PreStop lifecycle handlers, management of the container blocks until the action is complete, unless the container process fails, in which case the handler is aborted. -data V1Lifecycle = V1Lifecycle - { v1LifecyclePostStart :: !(Maybe V1LifecycleHandler) -- ^ "postStart" - , v1LifecyclePreStop :: !(Maybe V1LifecycleHandler) -- ^ "preStop" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Lifecycle -instance A.FromJSON V1Lifecycle where - parseJSON = A.withObject "V1Lifecycle" $ \o -> - V1Lifecycle - <$> (o .:? "postStart") - <*> (o .:? "preStop") - --- | ToJSON V1Lifecycle -instance A.ToJSON V1Lifecycle where - toJSON V1Lifecycle {..} = - _omitNulls - [ "postStart" .= v1LifecyclePostStart - , "preStop" .= v1LifecyclePreStop - ] - - --- | Construct a value of type 'V1Lifecycle' (by applying it's required fields, if any) -mkV1Lifecycle - :: V1Lifecycle -mkV1Lifecycle = - V1Lifecycle - { v1LifecyclePostStart = Nothing - , v1LifecyclePreStop = Nothing - } - --- ** V1LifecycleHandler --- | V1LifecycleHandler --- LifecycleHandler defines a specific action that should be taken in a lifecycle hook. One and only one of the fields, except TCPSocket must be specified. -data V1LifecycleHandler = V1LifecycleHandler - { v1LifecycleHandlerExec :: !(Maybe V1ExecAction) -- ^ "exec" - , v1LifecycleHandlerHttpGet :: !(Maybe V1HTTPGetAction) -- ^ "httpGet" - , v1LifecycleHandlerTcpSocket :: !(Maybe V1TCPSocketAction) -- ^ "tcpSocket" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LifecycleHandler -instance A.FromJSON V1LifecycleHandler where - parseJSON = A.withObject "V1LifecycleHandler" $ \o -> - V1LifecycleHandler - <$> (o .:? "exec") - <*> (o .:? "httpGet") - <*> (o .:? "tcpSocket") - --- | ToJSON V1LifecycleHandler -instance A.ToJSON V1LifecycleHandler where - toJSON V1LifecycleHandler {..} = - _omitNulls - [ "exec" .= v1LifecycleHandlerExec - , "httpGet" .= v1LifecycleHandlerHttpGet - , "tcpSocket" .= v1LifecycleHandlerTcpSocket - ] - - --- | Construct a value of type 'V1LifecycleHandler' (by applying it's required fields, if any) -mkV1LifecycleHandler - :: V1LifecycleHandler -mkV1LifecycleHandler = - V1LifecycleHandler - { v1LifecycleHandlerExec = Nothing - , v1LifecycleHandlerHttpGet = Nothing - , v1LifecycleHandlerTcpSocket = Nothing - } - --- ** V1LimitRange --- | V1LimitRange --- LimitRange sets resource usage limits for each kind of resource in a Namespace. -data V1LimitRange = V1LimitRange - { v1LimitRangeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1LimitRangeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1LimitRangeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1LimitRangeSpec :: !(Maybe V1LimitRangeSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LimitRange -instance A.FromJSON V1LimitRange where - parseJSON = A.withObject "V1LimitRange" $ \o -> - V1LimitRange - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1LimitRange -instance A.ToJSON V1LimitRange where - toJSON V1LimitRange {..} = - _omitNulls - [ "apiVersion" .= v1LimitRangeApiVersion - , "kind" .= v1LimitRangeKind - , "metadata" .= v1LimitRangeMetadata - , "spec" .= v1LimitRangeSpec - ] - - --- | Construct a value of type 'V1LimitRange' (by applying it's required fields, if any) -mkV1LimitRange - :: V1LimitRange -mkV1LimitRange = - V1LimitRange - { v1LimitRangeApiVersion = Nothing - , v1LimitRangeKind = Nothing - , v1LimitRangeMetadata = Nothing - , v1LimitRangeSpec = Nothing - } - --- ** V1LimitRangeItem --- | V1LimitRangeItem --- LimitRangeItem defines a min/max usage limit for any resource that matches on kind. -data V1LimitRangeItem = V1LimitRangeItem - { v1LimitRangeItemDefault :: !(Maybe (Map.Map String Quantity)) -- ^ "default" - Default resource requirement limit value by resource name if resource limit is omitted. - , v1LimitRangeItemDefaultRequest :: !(Maybe (Map.Map String Quantity)) -- ^ "defaultRequest" - DefaultRequest is the default resource requirement request value by resource name if resource request is omitted. - , v1LimitRangeItemMax :: !(Maybe (Map.Map String Quantity)) -- ^ "max" - Max usage constraints on this kind by resource name. - , v1LimitRangeItemMaxLimitRequestRatio :: !(Maybe (Map.Map String Quantity)) -- ^ "maxLimitRequestRatio" - MaxLimitRequestRatio if specified, the named resource must have a request and limit that are both non-zero where limit divided by request is less than or equal to the enumerated value; this represents the max burst for the named resource. - , v1LimitRangeItemMin :: !(Maybe (Map.Map String Quantity)) -- ^ "min" - Min usage constraints on this kind by resource name. - , v1LimitRangeItemType :: !(Text) -- ^ /Required/ "type" - Type of resource that this limit applies to. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LimitRangeItem -instance A.FromJSON V1LimitRangeItem where - parseJSON = A.withObject "V1LimitRangeItem" $ \o -> - V1LimitRangeItem - <$> (o .:? "default") - <*> (o .:? "defaultRequest") - <*> (o .:? "max") - <*> (o .:? "maxLimitRequestRatio") - <*> (o .:? "min") - <*> (o .: "type") - --- | ToJSON V1LimitRangeItem -instance A.ToJSON V1LimitRangeItem where - toJSON V1LimitRangeItem {..} = - _omitNulls - [ "default" .= v1LimitRangeItemDefault - , "defaultRequest" .= v1LimitRangeItemDefaultRequest - , "max" .= v1LimitRangeItemMax - , "maxLimitRequestRatio" .= v1LimitRangeItemMaxLimitRequestRatio - , "min" .= v1LimitRangeItemMin - , "type" .= v1LimitRangeItemType - ] - - --- | Construct a value of type 'V1LimitRangeItem' (by applying it's required fields, if any) -mkV1LimitRangeItem - :: Text -- ^ 'v1LimitRangeItemType': Type of resource that this limit applies to. - -> V1LimitRangeItem -mkV1LimitRangeItem v1LimitRangeItemType = - V1LimitRangeItem - { v1LimitRangeItemDefault = Nothing - , v1LimitRangeItemDefaultRequest = Nothing - , v1LimitRangeItemMax = Nothing - , v1LimitRangeItemMaxLimitRequestRatio = Nothing - , v1LimitRangeItemMin = Nothing - , v1LimitRangeItemType - } - --- ** V1LimitRangeList --- | V1LimitRangeList --- LimitRangeList is a list of LimitRange items. -data V1LimitRangeList = V1LimitRangeList - { v1LimitRangeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1LimitRangeListItems :: !([V1LimitRange]) -- ^ /Required/ "items" - Items is a list of LimitRange objects. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ - , v1LimitRangeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1LimitRangeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LimitRangeList -instance A.FromJSON V1LimitRangeList where - parseJSON = A.withObject "V1LimitRangeList" $ \o -> - V1LimitRangeList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1LimitRangeList -instance A.ToJSON V1LimitRangeList where - toJSON V1LimitRangeList {..} = - _omitNulls - [ "apiVersion" .= v1LimitRangeListApiVersion - , "items" .= v1LimitRangeListItems - , "kind" .= v1LimitRangeListKind - , "metadata" .= v1LimitRangeListMetadata - ] - - --- | Construct a value of type 'V1LimitRangeList' (by applying it's required fields, if any) -mkV1LimitRangeList - :: [V1LimitRange] -- ^ 'v1LimitRangeListItems': Items is a list of LimitRange objects. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ - -> V1LimitRangeList -mkV1LimitRangeList v1LimitRangeListItems = - V1LimitRangeList - { v1LimitRangeListApiVersion = Nothing - , v1LimitRangeListItems - , v1LimitRangeListKind = Nothing - , v1LimitRangeListMetadata = Nothing - } - --- ** V1LimitRangeSpec --- | V1LimitRangeSpec --- LimitRangeSpec defines a min/max usage limit for resources that match on kind. -data V1LimitRangeSpec = V1LimitRangeSpec - { v1LimitRangeSpecLimits :: !([V1LimitRangeItem]) -- ^ /Required/ "limits" - Limits is the list of LimitRangeItem objects that are enforced. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LimitRangeSpec -instance A.FromJSON V1LimitRangeSpec where - parseJSON = A.withObject "V1LimitRangeSpec" $ \o -> - V1LimitRangeSpec - <$> (o .: "limits") - --- | ToJSON V1LimitRangeSpec -instance A.ToJSON V1LimitRangeSpec where - toJSON V1LimitRangeSpec {..} = - _omitNulls - [ "limits" .= v1LimitRangeSpecLimits - ] - - --- | Construct a value of type 'V1LimitRangeSpec' (by applying it's required fields, if any) -mkV1LimitRangeSpec - :: [V1LimitRangeItem] -- ^ 'v1LimitRangeSpecLimits': Limits is the list of LimitRangeItem objects that are enforced. - -> V1LimitRangeSpec -mkV1LimitRangeSpec v1LimitRangeSpecLimits = - V1LimitRangeSpec - { v1LimitRangeSpecLimits - } - --- ** V1ListMeta --- | V1ListMeta --- ListMeta describes metadata that synthetic resources must have, including lists and various status objects. A resource may have only one of {ObjectMeta, ListMeta}. -data V1ListMeta = V1ListMeta - { v1ListMetaContinue :: !(Maybe Text) -- ^ "continue" - continue may be set if the user set a limit on the number of items returned, and indicates that the server has more data available. The value is opaque and may be used to issue another request to the endpoint that served this list to retrieve the next set of available objects. Continuing a consistent list may not be possible if the server configuration has changed or more than a few minutes have passed. The resourceVersion field returned when using this continue value will be identical to the value in the first response, unless you have received this token from an error message. - , v1ListMetaRemainingItemCount :: !(Maybe Integer) -- ^ "remainingItemCount" - remainingItemCount is the number of subsequent items in the list which are not included in this list response. If the list request contained label or field selectors, then the number of remaining items is unknown and the field will be left unset and omitted during serialization. If the list is complete (either because it is not chunking or because this is the last chunk), then there are no more remaining items and this field will be left unset and omitted during serialization. Servers older than v1.15 do not set this field. The intended use of the remainingItemCount is *estimating* the size of a collection. Clients should not rely on the remainingItemCount to be set or to be exact. - , v1ListMetaResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - String that identifies the server's internal version of this object that can be used by clients to determine when objects have changed. Value must be treated as opaque by clients and passed unmodified back to the server. Populated by the system. Read-only. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency - , v1ListMetaSelfLink :: !(Maybe Text) -- ^ "selfLink" - Deprecated: selfLink is a legacy read-only field that is no longer populated by the system. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ListMeta -instance A.FromJSON V1ListMeta where - parseJSON = A.withObject "V1ListMeta" $ \o -> - V1ListMeta - <$> (o .:? "continue") - <*> (o .:? "remainingItemCount") - <*> (o .:? "resourceVersion") - <*> (o .:? "selfLink") - --- | ToJSON V1ListMeta -instance A.ToJSON V1ListMeta where - toJSON V1ListMeta {..} = - _omitNulls - [ "continue" .= v1ListMetaContinue - , "remainingItemCount" .= v1ListMetaRemainingItemCount - , "resourceVersion" .= v1ListMetaResourceVersion - , "selfLink" .= v1ListMetaSelfLink - ] - - --- | Construct a value of type 'V1ListMeta' (by applying it's required fields, if any) -mkV1ListMeta - :: V1ListMeta -mkV1ListMeta = - V1ListMeta - { v1ListMetaContinue = Nothing - , v1ListMetaRemainingItemCount = Nothing - , v1ListMetaResourceVersion = Nothing - , v1ListMetaSelfLink = Nothing - } - --- ** V1LoadBalancerIngress --- | V1LoadBalancerIngress --- LoadBalancerIngress represents the status of a load-balancer ingress point: traffic intended for the service should be sent to an ingress point. -data V1LoadBalancerIngress = V1LoadBalancerIngress - { v1LoadBalancerIngressHostname :: !(Maybe Text) -- ^ "hostname" - Hostname is set for load-balancer ingress points that are DNS based (typically AWS load-balancers) - , v1LoadBalancerIngressIp :: !(Maybe Text) -- ^ "ip" - IP is set for load-balancer ingress points that are IP based (typically GCE or OpenStack load-balancers) - , v1LoadBalancerIngressPorts :: !(Maybe [V1PortStatus]) -- ^ "ports" - Ports is a list of records of service ports If used, every port defined in the service should have an entry in it - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LoadBalancerIngress -instance A.FromJSON V1LoadBalancerIngress where - parseJSON = A.withObject "V1LoadBalancerIngress" $ \o -> - V1LoadBalancerIngress - <$> (o .:? "hostname") - <*> (o .:? "ip") - <*> (o .:? "ports") - --- | ToJSON V1LoadBalancerIngress -instance A.ToJSON V1LoadBalancerIngress where - toJSON V1LoadBalancerIngress {..} = - _omitNulls - [ "hostname" .= v1LoadBalancerIngressHostname - , "ip" .= v1LoadBalancerIngressIp - , "ports" .= v1LoadBalancerIngressPorts - ] - - --- | Construct a value of type 'V1LoadBalancerIngress' (by applying it's required fields, if any) -mkV1LoadBalancerIngress - :: V1LoadBalancerIngress -mkV1LoadBalancerIngress = - V1LoadBalancerIngress - { v1LoadBalancerIngressHostname = Nothing - , v1LoadBalancerIngressIp = Nothing - , v1LoadBalancerIngressPorts = Nothing - } - --- ** V1LoadBalancerStatus --- | V1LoadBalancerStatus --- LoadBalancerStatus represents the status of a load-balancer. -data V1LoadBalancerStatus = V1LoadBalancerStatus - { v1LoadBalancerStatusIngress :: !(Maybe [V1LoadBalancerIngress]) -- ^ "ingress" - Ingress is a list containing ingress points for the load-balancer. Traffic intended for the service should be sent to these ingress points. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LoadBalancerStatus -instance A.FromJSON V1LoadBalancerStatus where - parseJSON = A.withObject "V1LoadBalancerStatus" $ \o -> - V1LoadBalancerStatus - <$> (o .:? "ingress") - --- | ToJSON V1LoadBalancerStatus -instance A.ToJSON V1LoadBalancerStatus where - toJSON V1LoadBalancerStatus {..} = - _omitNulls - [ "ingress" .= v1LoadBalancerStatusIngress - ] - - --- | Construct a value of type 'V1LoadBalancerStatus' (by applying it's required fields, if any) -mkV1LoadBalancerStatus - :: V1LoadBalancerStatus -mkV1LoadBalancerStatus = - V1LoadBalancerStatus - { v1LoadBalancerStatusIngress = Nothing - } - --- ** V1LocalObjectReference --- | V1LocalObjectReference --- LocalObjectReference contains enough information to let you locate the referenced object inside the same namespace. -data V1LocalObjectReference = V1LocalObjectReference - { v1LocalObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LocalObjectReference -instance A.FromJSON V1LocalObjectReference where - parseJSON = A.withObject "V1LocalObjectReference" $ \o -> - V1LocalObjectReference - <$> (o .:? "name") - --- | ToJSON V1LocalObjectReference -instance A.ToJSON V1LocalObjectReference where - toJSON V1LocalObjectReference {..} = - _omitNulls - [ "name" .= v1LocalObjectReferenceName - ] - - --- | Construct a value of type 'V1LocalObjectReference' (by applying it's required fields, if any) -mkV1LocalObjectReference - :: V1LocalObjectReference -mkV1LocalObjectReference = - V1LocalObjectReference - { v1LocalObjectReferenceName = Nothing - } - --- ** V1LocalSubjectAccessReview --- | V1LocalSubjectAccessReview --- LocalSubjectAccessReview checks whether or not a user or group can perform an action in a given namespace. Having a namespace scoped resource makes it much easier to grant namespace scoped policy that includes permissions checking. -data V1LocalSubjectAccessReview = V1LocalSubjectAccessReview - { v1LocalSubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1LocalSubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1LocalSubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1LocalSubjectAccessReviewSpec :: !(V1SubjectAccessReviewSpec) -- ^ /Required/ "spec" - , v1LocalSubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LocalSubjectAccessReview -instance A.FromJSON V1LocalSubjectAccessReview where - parseJSON = A.withObject "V1LocalSubjectAccessReview" $ \o -> - V1LocalSubjectAccessReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1LocalSubjectAccessReview -instance A.ToJSON V1LocalSubjectAccessReview where - toJSON V1LocalSubjectAccessReview {..} = - _omitNulls - [ "apiVersion" .= v1LocalSubjectAccessReviewApiVersion - , "kind" .= v1LocalSubjectAccessReviewKind - , "metadata" .= v1LocalSubjectAccessReviewMetadata - , "spec" .= v1LocalSubjectAccessReviewSpec - , "status" .= v1LocalSubjectAccessReviewStatus - ] - - --- | Construct a value of type 'V1LocalSubjectAccessReview' (by applying it's required fields, if any) -mkV1LocalSubjectAccessReview - :: V1SubjectAccessReviewSpec -- ^ 'v1LocalSubjectAccessReviewSpec' - -> V1LocalSubjectAccessReview -mkV1LocalSubjectAccessReview v1LocalSubjectAccessReviewSpec = - V1LocalSubjectAccessReview - { v1LocalSubjectAccessReviewApiVersion = Nothing - , v1LocalSubjectAccessReviewKind = Nothing - , v1LocalSubjectAccessReviewMetadata = Nothing - , v1LocalSubjectAccessReviewSpec - , v1LocalSubjectAccessReviewStatus = Nothing - } - --- ** V1LocalVolumeSource --- | V1LocalVolumeSource --- Local represents directly-attached storage with node affinity (Beta feature) -data V1LocalVolumeSource = V1LocalVolumeSource - { v1LocalVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. It applies only when the Path is a block device. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default value is to auto-select a filesystem if unspecified. - , v1LocalVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path of the full path to the volume on the node. It can be either a directory or block device (disk, partition, ...). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1LocalVolumeSource -instance A.FromJSON V1LocalVolumeSource where - parseJSON = A.withObject "V1LocalVolumeSource" $ \o -> - V1LocalVolumeSource - <$> (o .:? "fsType") - <*> (o .: "path") - --- | ToJSON V1LocalVolumeSource -instance A.ToJSON V1LocalVolumeSource where - toJSON V1LocalVolumeSource {..} = - _omitNulls - [ "fsType" .= v1LocalVolumeSourceFsType - , "path" .= v1LocalVolumeSourcePath - ] - - --- | Construct a value of type 'V1LocalVolumeSource' (by applying it's required fields, if any) -mkV1LocalVolumeSource - :: Text -- ^ 'v1LocalVolumeSourcePath': path of the full path to the volume on the node. It can be either a directory or block device (disk, partition, ...). - -> V1LocalVolumeSource -mkV1LocalVolumeSource v1LocalVolumeSourcePath = - V1LocalVolumeSource - { v1LocalVolumeSourceFsType = Nothing - , v1LocalVolumeSourcePath - } - --- ** V1ManagedFieldsEntry --- | V1ManagedFieldsEntry --- ManagedFieldsEntry is a workflow-id, a FieldSet and the group version of the resource that the fieldset applies to. -data V1ManagedFieldsEntry = V1ManagedFieldsEntry - { v1ManagedFieldsEntryApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the version of this resource that this field set applies to. The format is \"group/version\" just like the top-level APIVersion field. It is necessary to track the version of a field set because it cannot be automatically converted. - , v1ManagedFieldsEntryFieldsType :: !(Maybe Text) -- ^ "fieldsType" - FieldsType is the discriminator for the different fields format and version. There is currently only one possible value: \"FieldsV1\" - , v1ManagedFieldsEntryFieldsV1 :: !(Maybe A.Value) -- ^ "fieldsV1" - FieldsV1 holds the first JSON version format as described in the \"FieldsV1\" type. - , v1ManagedFieldsEntryManager :: !(Maybe Text) -- ^ "manager" - Manager is an identifier of the workflow managing these fields. - , v1ManagedFieldsEntryOperation :: !(Maybe Text) -- ^ "operation" - Operation is the type of operation which lead to this ManagedFieldsEntry being created. The only valid values for this field are 'Apply' and 'Update'. - , v1ManagedFieldsEntrySubresource :: !(Maybe Text) -- ^ "subresource" - Subresource is the name of the subresource used to update that object, or empty string if the object was updated through the main resource. The value of this field is used to distinguish between managers, even if they share the same name. For example, a status update will be distinct from a regular update using the same manager name. Note that the APIVersion field is not related to the Subresource field and it always corresponds to the version of the main resource. - , v1ManagedFieldsEntryTime :: !(Maybe DateTime) -- ^ "time" - Time is the timestamp of when the ManagedFields entry was added. The timestamp will also be updated if a field is added, the manager changes any of the owned fields value or removes a field. The timestamp does not update when a field is removed from the entry because another manager took it over. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ManagedFieldsEntry -instance A.FromJSON V1ManagedFieldsEntry where - parseJSON = A.withObject "V1ManagedFieldsEntry" $ \o -> - V1ManagedFieldsEntry - <$> (o .:? "apiVersion") - <*> (o .:? "fieldsType") - <*> (o .:? "fieldsV1") - <*> (o .:? "manager") - <*> (o .:? "operation") - <*> (o .:? "subresource") - <*> (o .:? "time") - --- | ToJSON V1ManagedFieldsEntry -instance A.ToJSON V1ManagedFieldsEntry where - toJSON V1ManagedFieldsEntry {..} = - _omitNulls - [ "apiVersion" .= v1ManagedFieldsEntryApiVersion - , "fieldsType" .= v1ManagedFieldsEntryFieldsType - , "fieldsV1" .= v1ManagedFieldsEntryFieldsV1 - , "manager" .= v1ManagedFieldsEntryManager - , "operation" .= v1ManagedFieldsEntryOperation - , "subresource" .= v1ManagedFieldsEntrySubresource - , "time" .= v1ManagedFieldsEntryTime - ] - - --- | Construct a value of type 'V1ManagedFieldsEntry' (by applying it's required fields, if any) -mkV1ManagedFieldsEntry - :: V1ManagedFieldsEntry -mkV1ManagedFieldsEntry = - V1ManagedFieldsEntry - { v1ManagedFieldsEntryApiVersion = Nothing - , v1ManagedFieldsEntryFieldsType = Nothing - , v1ManagedFieldsEntryFieldsV1 = Nothing - , v1ManagedFieldsEntryManager = Nothing - , v1ManagedFieldsEntryOperation = Nothing - , v1ManagedFieldsEntrySubresource = Nothing - , v1ManagedFieldsEntryTime = Nothing - } - --- ** V1MutatingWebhook --- | V1MutatingWebhook --- MutatingWebhook describes an admission webhook and the resources and operations it applies to. -data V1MutatingWebhook = V1MutatingWebhook - { v1MutatingWebhookAdmissionReviewVersions :: !([Text]) -- ^ /Required/ "admissionReviewVersions" - AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. - , v1MutatingWebhookClientConfig :: !(AdmissionregistrationV1WebhookClientConfig) -- ^ /Required/ "clientConfig" - , v1MutatingWebhookFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - FailurePolicy defines how unrecognized errors from the admission endpoint are handled - allowed values are Ignore or Fail. Defaults to Fail. - , v1MutatingWebhookMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"rules\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the webhook. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the webhook. Defaults to \"Equivalent\" - , v1MutatingWebhookName :: !(Text) -- ^ /Required/ "name" - The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. - , v1MutatingWebhookNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" - , v1MutatingWebhookObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" - , v1MutatingWebhookReinvocationPolicy :: !(Maybe Text) -- ^ "reinvocationPolicy" - reinvocationPolicy indicates whether this webhook should be called multiple times as part of a single admission evaluation. Allowed values are \"Never\" and \"IfNeeded\". Never: the webhook will not be called more than once in a single admission evaluation. IfNeeded: the webhook will be called at least one additional time as part of the admission evaluation if the object being admitted is modified by other admission plugins after the initial webhook call. Webhooks that specify this option *must* be idempotent, able to process objects they previously admitted. Note: * the number of additional invocations is not guaranteed to be exactly one. * if additional invocations result in further modifications to the object, webhooks are not guaranteed to be invoked again. * webhooks that use this option may be reordered to minimize the number of additional invocations. * to validate an object after all mutations are guaranteed complete, use a validating admission webhook instead. Defaults to \"Never\". - , v1MutatingWebhookRules :: !(Maybe [V1RuleWithOperations]) -- ^ "rules" - Rules describes what operations on what resources/subresources the webhook cares about. The webhook cares about an operation if it matches _any_ Rule. However, in order to prevent ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks from putting the cluster in a state which cannot be recovered from without completely disabling the plugin, ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks are never called on admission requests for ValidatingWebhookConfiguration and MutatingWebhookConfiguration objects. - , v1MutatingWebhookSideEffects :: !(Text) -- ^ /Required/ "sideEffects" - SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. - , v1MutatingWebhookTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - TimeoutSeconds specifies the timeout for this webhook. After the timeout passes, the webhook call will be ignored or the API call will fail based on the failure policy. The timeout value must be between 1 and 30 seconds. Default to 10 seconds. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1MutatingWebhook -instance A.FromJSON V1MutatingWebhook where - parseJSON = A.withObject "V1MutatingWebhook" $ \o -> - V1MutatingWebhook - <$> (o .: "admissionReviewVersions") - <*> (o .: "clientConfig") - <*> (o .:? "failurePolicy") - <*> (o .:? "matchPolicy") - <*> (o .: "name") - <*> (o .:? "namespaceSelector") - <*> (o .:? "objectSelector") - <*> (o .:? "reinvocationPolicy") - <*> (o .:? "rules") - <*> (o .: "sideEffects") - <*> (o .:? "timeoutSeconds") - --- | ToJSON V1MutatingWebhook -instance A.ToJSON V1MutatingWebhook where - toJSON V1MutatingWebhook {..} = - _omitNulls - [ "admissionReviewVersions" .= v1MutatingWebhookAdmissionReviewVersions - , "clientConfig" .= v1MutatingWebhookClientConfig - , "failurePolicy" .= v1MutatingWebhookFailurePolicy - , "matchPolicy" .= v1MutatingWebhookMatchPolicy - , "name" .= v1MutatingWebhookName - , "namespaceSelector" .= v1MutatingWebhookNamespaceSelector - , "objectSelector" .= v1MutatingWebhookObjectSelector - , "reinvocationPolicy" .= v1MutatingWebhookReinvocationPolicy - , "rules" .= v1MutatingWebhookRules - , "sideEffects" .= v1MutatingWebhookSideEffects - , "timeoutSeconds" .= v1MutatingWebhookTimeoutSeconds - ] - - --- | Construct a value of type 'V1MutatingWebhook' (by applying it's required fields, if any) -mkV1MutatingWebhook - :: [Text] -- ^ 'v1MutatingWebhookAdmissionReviewVersions': AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. - -> AdmissionregistrationV1WebhookClientConfig -- ^ 'v1MutatingWebhookClientConfig' - -> Text -- ^ 'v1MutatingWebhookName': The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. - -> Text -- ^ 'v1MutatingWebhookSideEffects': SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. - -> V1MutatingWebhook -mkV1MutatingWebhook v1MutatingWebhookAdmissionReviewVersions v1MutatingWebhookClientConfig v1MutatingWebhookName v1MutatingWebhookSideEffects = - V1MutatingWebhook - { v1MutatingWebhookAdmissionReviewVersions - , v1MutatingWebhookClientConfig - , v1MutatingWebhookFailurePolicy = Nothing - , v1MutatingWebhookMatchPolicy = Nothing - , v1MutatingWebhookName - , v1MutatingWebhookNamespaceSelector = Nothing - , v1MutatingWebhookObjectSelector = Nothing - , v1MutatingWebhookReinvocationPolicy = Nothing - , v1MutatingWebhookRules = Nothing - , v1MutatingWebhookSideEffects - , v1MutatingWebhookTimeoutSeconds = Nothing - } - --- ** V1MutatingWebhookConfiguration --- | V1MutatingWebhookConfiguration --- MutatingWebhookConfiguration describes the configuration of and admission webhook that accept or reject and may change the object. -data V1MutatingWebhookConfiguration = V1MutatingWebhookConfiguration - { v1MutatingWebhookConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1MutatingWebhookConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1MutatingWebhookConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1MutatingWebhookConfigurationWebhooks :: !(Maybe [V1MutatingWebhook]) -- ^ "webhooks" - Webhooks is a list of webhooks and the affected resources and operations. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1MutatingWebhookConfiguration -instance A.FromJSON V1MutatingWebhookConfiguration where - parseJSON = A.withObject "V1MutatingWebhookConfiguration" $ \o -> - V1MutatingWebhookConfiguration - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "webhooks") - --- | ToJSON V1MutatingWebhookConfiguration -instance A.ToJSON V1MutatingWebhookConfiguration where - toJSON V1MutatingWebhookConfiguration {..} = - _omitNulls - [ "apiVersion" .= v1MutatingWebhookConfigurationApiVersion - , "kind" .= v1MutatingWebhookConfigurationKind - , "metadata" .= v1MutatingWebhookConfigurationMetadata - , "webhooks" .= v1MutatingWebhookConfigurationWebhooks - ] - - --- | Construct a value of type 'V1MutatingWebhookConfiguration' (by applying it's required fields, if any) -mkV1MutatingWebhookConfiguration - :: V1MutatingWebhookConfiguration -mkV1MutatingWebhookConfiguration = - V1MutatingWebhookConfiguration - { v1MutatingWebhookConfigurationApiVersion = Nothing - , v1MutatingWebhookConfigurationKind = Nothing - , v1MutatingWebhookConfigurationMetadata = Nothing - , v1MutatingWebhookConfigurationWebhooks = Nothing - } - --- ** V1MutatingWebhookConfigurationList --- | V1MutatingWebhookConfigurationList --- MutatingWebhookConfigurationList is a list of MutatingWebhookConfiguration. -data V1MutatingWebhookConfigurationList = V1MutatingWebhookConfigurationList - { v1MutatingWebhookConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1MutatingWebhookConfigurationListItems :: !([V1MutatingWebhookConfiguration]) -- ^ /Required/ "items" - List of MutatingWebhookConfiguration. - , v1MutatingWebhookConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1MutatingWebhookConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1MutatingWebhookConfigurationList -instance A.FromJSON V1MutatingWebhookConfigurationList where - parseJSON = A.withObject "V1MutatingWebhookConfigurationList" $ \o -> - V1MutatingWebhookConfigurationList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1MutatingWebhookConfigurationList -instance A.ToJSON V1MutatingWebhookConfigurationList where - toJSON V1MutatingWebhookConfigurationList {..} = - _omitNulls - [ "apiVersion" .= v1MutatingWebhookConfigurationListApiVersion - , "items" .= v1MutatingWebhookConfigurationListItems - , "kind" .= v1MutatingWebhookConfigurationListKind - , "metadata" .= v1MutatingWebhookConfigurationListMetadata - ] - - --- | Construct a value of type 'V1MutatingWebhookConfigurationList' (by applying it's required fields, if any) -mkV1MutatingWebhookConfigurationList - :: [V1MutatingWebhookConfiguration] -- ^ 'v1MutatingWebhookConfigurationListItems': List of MutatingWebhookConfiguration. - -> V1MutatingWebhookConfigurationList -mkV1MutatingWebhookConfigurationList v1MutatingWebhookConfigurationListItems = - V1MutatingWebhookConfigurationList - { v1MutatingWebhookConfigurationListApiVersion = Nothing - , v1MutatingWebhookConfigurationListItems - , v1MutatingWebhookConfigurationListKind = Nothing - , v1MutatingWebhookConfigurationListMetadata = Nothing - } - --- ** V1NFSVolumeSource --- | V1NFSVolumeSource --- Represents an NFS mount that lasts the lifetime of a pod. NFS volumes do not support ownership management or SELinux relabeling. -data V1NFSVolumeSource = V1NFSVolumeSource - { v1NFSVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path that is exported by the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs - , v1NFSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the NFS export to be mounted with read-only permissions. Defaults to false. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs - , v1NFSVolumeSourceServer :: !(Text) -- ^ /Required/ "server" - server is the hostname or IP address of the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NFSVolumeSource -instance A.FromJSON V1NFSVolumeSource where - parseJSON = A.withObject "V1NFSVolumeSource" $ \o -> - V1NFSVolumeSource - <$> (o .: "path") - <*> (o .:? "readOnly") - <*> (o .: "server") - --- | ToJSON V1NFSVolumeSource -instance A.ToJSON V1NFSVolumeSource where - toJSON V1NFSVolumeSource {..} = - _omitNulls - [ "path" .= v1NFSVolumeSourcePath - , "readOnly" .= v1NFSVolumeSourceReadOnly - , "server" .= v1NFSVolumeSourceServer - ] - - --- | Construct a value of type 'V1NFSVolumeSource' (by applying it's required fields, if any) -mkV1NFSVolumeSource - :: Text -- ^ 'v1NFSVolumeSourcePath': path that is exported by the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs - -> Text -- ^ 'v1NFSVolumeSourceServer': server is the hostname or IP address of the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs - -> V1NFSVolumeSource -mkV1NFSVolumeSource v1NFSVolumeSourcePath v1NFSVolumeSourceServer = - V1NFSVolumeSource - { v1NFSVolumeSourcePath - , v1NFSVolumeSourceReadOnly = Nothing - , v1NFSVolumeSourceServer - } - --- ** V1Namespace --- | V1Namespace --- Namespace provides a scope for Names. Use of multiple namespaces is optional. -data V1Namespace = V1Namespace - { v1NamespaceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NamespaceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NamespaceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1NamespaceSpec :: !(Maybe V1NamespaceSpec) -- ^ "spec" - , v1NamespaceStatus :: !(Maybe V1NamespaceStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Namespace -instance A.FromJSON V1Namespace where - parseJSON = A.withObject "V1Namespace" $ \o -> - V1Namespace - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Namespace -instance A.ToJSON V1Namespace where - toJSON V1Namespace {..} = - _omitNulls - [ "apiVersion" .= v1NamespaceApiVersion - , "kind" .= v1NamespaceKind - , "metadata" .= v1NamespaceMetadata - , "spec" .= v1NamespaceSpec - , "status" .= v1NamespaceStatus - ] - - --- | Construct a value of type 'V1Namespace' (by applying it's required fields, if any) -mkV1Namespace - :: V1Namespace -mkV1Namespace = - V1Namespace - { v1NamespaceApiVersion = Nothing - , v1NamespaceKind = Nothing - , v1NamespaceMetadata = Nothing - , v1NamespaceSpec = Nothing - , v1NamespaceStatus = Nothing - } - --- ** V1NamespaceCondition --- | V1NamespaceCondition --- NamespaceCondition contains details about state of namespace. -data V1NamespaceCondition = V1NamespaceCondition - { v1NamespaceConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Time is a wrapper around time.Time which supports correct marshaling to YAML and JSON. Wrappers are provided for many of the factory methods that the time package offers. - , v1NamespaceConditionMessage :: !(Maybe Text) -- ^ "message" - , v1NamespaceConditionReason :: !(Maybe Text) -- ^ "reason" - , v1NamespaceConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1NamespaceConditionType :: !(Text) -- ^ /Required/ "type" - Type of namespace controller condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NamespaceCondition -instance A.FromJSON V1NamespaceCondition where - parseJSON = A.withObject "V1NamespaceCondition" $ \o -> - V1NamespaceCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1NamespaceCondition -instance A.ToJSON V1NamespaceCondition where - toJSON V1NamespaceCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1NamespaceConditionLastTransitionTime - , "message" .= v1NamespaceConditionMessage - , "reason" .= v1NamespaceConditionReason - , "status" .= v1NamespaceConditionStatus - , "type" .= v1NamespaceConditionType - ] - - --- | Construct a value of type 'V1NamespaceCondition' (by applying it's required fields, if any) -mkV1NamespaceCondition - :: Text -- ^ 'v1NamespaceConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1NamespaceConditionType': Type of namespace controller condition. - -> V1NamespaceCondition -mkV1NamespaceCondition v1NamespaceConditionStatus v1NamespaceConditionType = - V1NamespaceCondition - { v1NamespaceConditionLastTransitionTime = Nothing - , v1NamespaceConditionMessage = Nothing - , v1NamespaceConditionReason = Nothing - , v1NamespaceConditionStatus - , v1NamespaceConditionType - } - --- ** V1NamespaceList --- | V1NamespaceList --- NamespaceList is a list of Namespaces. -data V1NamespaceList = V1NamespaceList - { v1NamespaceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NamespaceListItems :: !([V1Namespace]) -- ^ /Required/ "items" - Items is the list of Namespace objects in the list. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ - , v1NamespaceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NamespaceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NamespaceList -instance A.FromJSON V1NamespaceList where - parseJSON = A.withObject "V1NamespaceList" $ \o -> - V1NamespaceList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1NamespaceList -instance A.ToJSON V1NamespaceList where - toJSON V1NamespaceList {..} = - _omitNulls - [ "apiVersion" .= v1NamespaceListApiVersion - , "items" .= v1NamespaceListItems - , "kind" .= v1NamespaceListKind - , "metadata" .= v1NamespaceListMetadata - ] - - --- | Construct a value of type 'V1NamespaceList' (by applying it's required fields, if any) -mkV1NamespaceList - :: [V1Namespace] -- ^ 'v1NamespaceListItems': Items is the list of Namespace objects in the list. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ - -> V1NamespaceList -mkV1NamespaceList v1NamespaceListItems = - V1NamespaceList - { v1NamespaceListApiVersion = Nothing - , v1NamespaceListItems - , v1NamespaceListKind = Nothing - , v1NamespaceListMetadata = Nothing - } - --- ** V1NamespaceSpec --- | V1NamespaceSpec --- NamespaceSpec describes the attributes on a Namespace. -data V1NamespaceSpec = V1NamespaceSpec - { v1NamespaceSpecFinalizers :: !(Maybe [Text]) -- ^ "finalizers" - Finalizers is an opaque list of values that must be empty to permanently remove object from storage. More info: https://kubernetes.io/docs/tasks/administer-cluster/namespaces/ - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NamespaceSpec -instance A.FromJSON V1NamespaceSpec where - parseJSON = A.withObject "V1NamespaceSpec" $ \o -> - V1NamespaceSpec - <$> (o .:? "finalizers") - --- | ToJSON V1NamespaceSpec -instance A.ToJSON V1NamespaceSpec where - toJSON V1NamespaceSpec {..} = - _omitNulls - [ "finalizers" .= v1NamespaceSpecFinalizers - ] - - --- | Construct a value of type 'V1NamespaceSpec' (by applying it's required fields, if any) -mkV1NamespaceSpec - :: V1NamespaceSpec -mkV1NamespaceSpec = - V1NamespaceSpec - { v1NamespaceSpecFinalizers = Nothing - } - --- ** V1NamespaceStatus --- | V1NamespaceStatus --- NamespaceStatus is information about the current status of a Namespace. -data V1NamespaceStatus = V1NamespaceStatus - { v1NamespaceStatusConditions :: !(Maybe [V1NamespaceCondition]) -- ^ "conditions" - Represents the latest available observations of a namespace's current state. - , v1NamespaceStatusPhase :: !(Maybe Text) -- ^ "phase" - Phase is the current lifecycle phase of the namespace. More info: https://kubernetes.io/docs/tasks/administer-cluster/namespaces/ - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NamespaceStatus -instance A.FromJSON V1NamespaceStatus where - parseJSON = A.withObject "V1NamespaceStatus" $ \o -> - V1NamespaceStatus - <$> (o .:? "conditions") - <*> (o .:? "phase") - --- | ToJSON V1NamespaceStatus -instance A.ToJSON V1NamespaceStatus where - toJSON V1NamespaceStatus {..} = - _omitNulls - [ "conditions" .= v1NamespaceStatusConditions - , "phase" .= v1NamespaceStatusPhase - ] - - --- | Construct a value of type 'V1NamespaceStatus' (by applying it's required fields, if any) -mkV1NamespaceStatus - :: V1NamespaceStatus -mkV1NamespaceStatus = - V1NamespaceStatus - { v1NamespaceStatusConditions = Nothing - , v1NamespaceStatusPhase = Nothing - } - --- ** V1NetworkPolicy --- | V1NetworkPolicy --- NetworkPolicy describes what network traffic is allowed for a set of Pods -data V1NetworkPolicy = V1NetworkPolicy - { v1NetworkPolicyApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NetworkPolicyKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NetworkPolicyMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1NetworkPolicySpec :: !(Maybe V1NetworkPolicySpec) -- ^ "spec" - , v1NetworkPolicyStatus :: !(Maybe V1NetworkPolicyStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicy -instance A.FromJSON V1NetworkPolicy where - parseJSON = A.withObject "V1NetworkPolicy" $ \o -> - V1NetworkPolicy - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1NetworkPolicy -instance A.ToJSON V1NetworkPolicy where - toJSON V1NetworkPolicy {..} = - _omitNulls - [ "apiVersion" .= v1NetworkPolicyApiVersion - , "kind" .= v1NetworkPolicyKind - , "metadata" .= v1NetworkPolicyMetadata - , "spec" .= v1NetworkPolicySpec - , "status" .= v1NetworkPolicyStatus - ] - - --- | Construct a value of type 'V1NetworkPolicy' (by applying it's required fields, if any) -mkV1NetworkPolicy - :: V1NetworkPolicy -mkV1NetworkPolicy = - V1NetworkPolicy - { v1NetworkPolicyApiVersion = Nothing - , v1NetworkPolicyKind = Nothing - , v1NetworkPolicyMetadata = Nothing - , v1NetworkPolicySpec = Nothing - , v1NetworkPolicyStatus = Nothing - } - --- ** V1NetworkPolicyEgressRule --- | V1NetworkPolicyEgressRule --- NetworkPolicyEgressRule describes a particular set of traffic that is allowed out of pods matched by a NetworkPolicySpec's podSelector. The traffic must match both ports and to. This type is beta-level in 1.8 -data V1NetworkPolicyEgressRule = V1NetworkPolicyEgressRule - { v1NetworkPolicyEgressRulePorts :: !(Maybe [V1NetworkPolicyPort]) -- ^ "ports" - List of destination ports for outgoing traffic. Each item in this list is combined using a logical OR. If this field is empty or missing, this rule matches all ports (traffic not restricted by port). If this field is present and contains at least one item, then this rule allows traffic only if the traffic matches at least one port in the list. - , v1NetworkPolicyEgressRuleTo :: !(Maybe [V1NetworkPolicyPeer]) -- ^ "to" - List of destinations for outgoing traffic of pods selected for this rule. Items in this list are combined using a logical OR operation. If this field is empty or missing, this rule matches all destinations (traffic not restricted by destination). If this field is present and contains at least one item, this rule allows traffic only if the traffic matches at least one item in the to list. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyEgressRule -instance A.FromJSON V1NetworkPolicyEgressRule where - parseJSON = A.withObject "V1NetworkPolicyEgressRule" $ \o -> - V1NetworkPolicyEgressRule - <$> (o .:? "ports") - <*> (o .:? "to") - --- | ToJSON V1NetworkPolicyEgressRule -instance A.ToJSON V1NetworkPolicyEgressRule where - toJSON V1NetworkPolicyEgressRule {..} = - _omitNulls - [ "ports" .= v1NetworkPolicyEgressRulePorts - , "to" .= v1NetworkPolicyEgressRuleTo - ] - - --- | Construct a value of type 'V1NetworkPolicyEgressRule' (by applying it's required fields, if any) -mkV1NetworkPolicyEgressRule - :: V1NetworkPolicyEgressRule -mkV1NetworkPolicyEgressRule = - V1NetworkPolicyEgressRule - { v1NetworkPolicyEgressRulePorts = Nothing - , v1NetworkPolicyEgressRuleTo = Nothing - } - --- ** V1NetworkPolicyIngressRule --- | V1NetworkPolicyIngressRule --- NetworkPolicyIngressRule describes a particular set of traffic that is allowed to the pods matched by a NetworkPolicySpec's podSelector. The traffic must match both ports and from. -data V1NetworkPolicyIngressRule = V1NetworkPolicyIngressRule - { v1NetworkPolicyIngressRuleFrom :: !(Maybe [V1NetworkPolicyPeer]) -- ^ "from" - List of sources which should be able to access the pods selected for this rule. Items in this list are combined using a logical OR operation. If this field is empty or missing, this rule matches all sources (traffic not restricted by source). If this field is present and contains at least one item, this rule allows traffic only if the traffic matches at least one item in the from list. - , v1NetworkPolicyIngressRulePorts :: !(Maybe [V1NetworkPolicyPort]) -- ^ "ports" - List of ports which should be made accessible on the pods selected for this rule. Each item in this list is combined using a logical OR. If this field is empty or missing, this rule matches all ports (traffic not restricted by port). If this field is present and contains at least one item, then this rule allows traffic only if the traffic matches at least one port in the list. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyIngressRule -instance A.FromJSON V1NetworkPolicyIngressRule where - parseJSON = A.withObject "V1NetworkPolicyIngressRule" $ \o -> - V1NetworkPolicyIngressRule - <$> (o .:? "from") - <*> (o .:? "ports") - --- | ToJSON V1NetworkPolicyIngressRule -instance A.ToJSON V1NetworkPolicyIngressRule where - toJSON V1NetworkPolicyIngressRule {..} = - _omitNulls - [ "from" .= v1NetworkPolicyIngressRuleFrom - , "ports" .= v1NetworkPolicyIngressRulePorts - ] - - --- | Construct a value of type 'V1NetworkPolicyIngressRule' (by applying it's required fields, if any) -mkV1NetworkPolicyIngressRule - :: V1NetworkPolicyIngressRule -mkV1NetworkPolicyIngressRule = - V1NetworkPolicyIngressRule - { v1NetworkPolicyIngressRuleFrom = Nothing - , v1NetworkPolicyIngressRulePorts = Nothing - } - --- ** V1NetworkPolicyList --- | V1NetworkPolicyList --- NetworkPolicyList is a list of NetworkPolicy objects. -data V1NetworkPolicyList = V1NetworkPolicyList - { v1NetworkPolicyListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NetworkPolicyListItems :: !([V1NetworkPolicy]) -- ^ /Required/ "items" - Items is a list of schema objects. - , v1NetworkPolicyListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NetworkPolicyListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyList -instance A.FromJSON V1NetworkPolicyList where - parseJSON = A.withObject "V1NetworkPolicyList" $ \o -> - V1NetworkPolicyList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1NetworkPolicyList -instance A.ToJSON V1NetworkPolicyList where - toJSON V1NetworkPolicyList {..} = - _omitNulls - [ "apiVersion" .= v1NetworkPolicyListApiVersion - , "items" .= v1NetworkPolicyListItems - , "kind" .= v1NetworkPolicyListKind - , "metadata" .= v1NetworkPolicyListMetadata - ] - - --- | Construct a value of type 'V1NetworkPolicyList' (by applying it's required fields, if any) -mkV1NetworkPolicyList - :: [V1NetworkPolicy] -- ^ 'v1NetworkPolicyListItems': Items is a list of schema objects. - -> V1NetworkPolicyList -mkV1NetworkPolicyList v1NetworkPolicyListItems = - V1NetworkPolicyList - { v1NetworkPolicyListApiVersion = Nothing - , v1NetworkPolicyListItems - , v1NetworkPolicyListKind = Nothing - , v1NetworkPolicyListMetadata = Nothing - } - --- ** V1NetworkPolicyPeer --- | V1NetworkPolicyPeer --- NetworkPolicyPeer describes a peer to allow traffic to/from. Only certain combinations of fields are allowed -data V1NetworkPolicyPeer = V1NetworkPolicyPeer - { v1NetworkPolicyPeerIpBlock :: !(Maybe V1IPBlock) -- ^ "ipBlock" - , v1NetworkPolicyPeerNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" - , v1NetworkPolicyPeerPodSelector :: !(Maybe V1LabelSelector) -- ^ "podSelector" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyPeer -instance A.FromJSON V1NetworkPolicyPeer where - parseJSON = A.withObject "V1NetworkPolicyPeer" $ \o -> - V1NetworkPolicyPeer - <$> (o .:? "ipBlock") - <*> (o .:? "namespaceSelector") - <*> (o .:? "podSelector") - --- | ToJSON V1NetworkPolicyPeer -instance A.ToJSON V1NetworkPolicyPeer where - toJSON V1NetworkPolicyPeer {..} = - _omitNulls - [ "ipBlock" .= v1NetworkPolicyPeerIpBlock - , "namespaceSelector" .= v1NetworkPolicyPeerNamespaceSelector - , "podSelector" .= v1NetworkPolicyPeerPodSelector - ] - - --- | Construct a value of type 'V1NetworkPolicyPeer' (by applying it's required fields, if any) -mkV1NetworkPolicyPeer - :: V1NetworkPolicyPeer -mkV1NetworkPolicyPeer = - V1NetworkPolicyPeer - { v1NetworkPolicyPeerIpBlock = Nothing - , v1NetworkPolicyPeerNamespaceSelector = Nothing - , v1NetworkPolicyPeerPodSelector = Nothing - } - --- ** V1NetworkPolicyPort --- | V1NetworkPolicyPort --- NetworkPolicyPort describes a port to allow traffic on -data V1NetworkPolicyPort = V1NetworkPolicyPort - { v1NetworkPolicyPortEndPort :: !(Maybe Int) -- ^ "endPort" - If set, indicates that the range of ports from port to endPort, inclusive, should be allowed by the policy. This field cannot be defined if the port field is not defined or if the port field is defined as a named (string) port. The endPort must be equal or greater than port. - , v1NetworkPolicyPortPort :: !(Maybe IntOrString) -- ^ "port" - , v1NetworkPolicyPortProtocol :: !(Maybe Text) -- ^ "protocol" - The protocol (TCP, UDP, or SCTP) which traffic must match. If not specified, this field defaults to TCP. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyPort -instance A.FromJSON V1NetworkPolicyPort where - parseJSON = A.withObject "V1NetworkPolicyPort" $ \o -> - V1NetworkPolicyPort - <$> (o .:? "endPort") - <*> (o .:? "port") - <*> (o .:? "protocol") - --- | ToJSON V1NetworkPolicyPort -instance A.ToJSON V1NetworkPolicyPort where - toJSON V1NetworkPolicyPort {..} = - _omitNulls - [ "endPort" .= v1NetworkPolicyPortEndPort - , "port" .= v1NetworkPolicyPortPort - , "protocol" .= v1NetworkPolicyPortProtocol - ] - - --- | Construct a value of type 'V1NetworkPolicyPort' (by applying it's required fields, if any) -mkV1NetworkPolicyPort - :: V1NetworkPolicyPort -mkV1NetworkPolicyPort = - V1NetworkPolicyPort - { v1NetworkPolicyPortEndPort = Nothing - , v1NetworkPolicyPortPort = Nothing - , v1NetworkPolicyPortProtocol = Nothing - } - --- ** V1NetworkPolicySpec --- | V1NetworkPolicySpec --- NetworkPolicySpec provides the specification of a NetworkPolicy -data V1NetworkPolicySpec = V1NetworkPolicySpec - { v1NetworkPolicySpecEgress :: !(Maybe [V1NetworkPolicyEgressRule]) -- ^ "egress" - List of egress rules to be applied to the selected pods. Outgoing traffic is allowed if there are no NetworkPolicies selecting the pod (and cluster policy otherwise allows the traffic), OR if the traffic matches at least one egress rule across all of the NetworkPolicy objects whose podSelector matches the pod. If this field is empty then this NetworkPolicy limits all outgoing traffic (and serves solely to ensure that the pods it selects are isolated by default). This field is beta-level in 1.8 - , v1NetworkPolicySpecIngress :: !(Maybe [V1NetworkPolicyIngressRule]) -- ^ "ingress" - List of ingress rules to be applied to the selected pods. Traffic is allowed to a pod if there are no NetworkPolicies selecting the pod (and cluster policy otherwise allows the traffic), OR if the traffic source is the pod's local node, OR if the traffic matches at least one ingress rule across all of the NetworkPolicy objects whose podSelector matches the pod. If this field is empty then this NetworkPolicy does not allow any traffic (and serves solely to ensure that the pods it selects are isolated by default) - , v1NetworkPolicySpecPodSelector :: !(V1LabelSelector) -- ^ /Required/ "podSelector" - , v1NetworkPolicySpecPolicyTypes :: !(Maybe [Text]) -- ^ "policyTypes" - List of rule types that the NetworkPolicy relates to. Valid options are [\"Ingress\"], [\"Egress\"], or [\"Ingress\", \"Egress\"]. If this field is not specified, it will default based on the existence of Ingress or Egress rules; policies that contain an Egress section are assumed to affect Egress, and all policies (whether or not they contain an Ingress section) are assumed to affect Ingress. If you want to write an egress-only policy, you must explicitly specify policyTypes [ \"Egress\" ]. Likewise, if you want to write a policy that specifies that no egress is allowed, you must specify a policyTypes value that include \"Egress\" (since such a policy would not include an Egress section and would otherwise default to just [ \"Ingress\" ]). This field is beta-level in 1.8 - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicySpec -instance A.FromJSON V1NetworkPolicySpec where - parseJSON = A.withObject "V1NetworkPolicySpec" $ \o -> - V1NetworkPolicySpec - <$> (o .:? "egress") - <*> (o .:? "ingress") - <*> (o .: "podSelector") - <*> (o .:? "policyTypes") - --- | ToJSON V1NetworkPolicySpec -instance A.ToJSON V1NetworkPolicySpec where - toJSON V1NetworkPolicySpec {..} = - _omitNulls - [ "egress" .= v1NetworkPolicySpecEgress - , "ingress" .= v1NetworkPolicySpecIngress - , "podSelector" .= v1NetworkPolicySpecPodSelector - , "policyTypes" .= v1NetworkPolicySpecPolicyTypes - ] - - --- | Construct a value of type 'V1NetworkPolicySpec' (by applying it's required fields, if any) -mkV1NetworkPolicySpec - :: V1LabelSelector -- ^ 'v1NetworkPolicySpecPodSelector' - -> V1NetworkPolicySpec -mkV1NetworkPolicySpec v1NetworkPolicySpecPodSelector = - V1NetworkPolicySpec - { v1NetworkPolicySpecEgress = Nothing - , v1NetworkPolicySpecIngress = Nothing - , v1NetworkPolicySpecPodSelector - , v1NetworkPolicySpecPolicyTypes = Nothing - } - --- ** V1NetworkPolicyStatus --- | V1NetworkPolicyStatus --- NetworkPolicyStatus describe the current state of the NetworkPolicy. -data V1NetworkPolicyStatus = V1NetworkPolicyStatus - { v1NetworkPolicyStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - Conditions holds an array of metav1.Condition that describe the state of the NetworkPolicy. Current service state - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NetworkPolicyStatus -instance A.FromJSON V1NetworkPolicyStatus where - parseJSON = A.withObject "V1NetworkPolicyStatus" $ \o -> - V1NetworkPolicyStatus - <$> (o .:? "conditions") - --- | ToJSON V1NetworkPolicyStatus -instance A.ToJSON V1NetworkPolicyStatus where - toJSON V1NetworkPolicyStatus {..} = - _omitNulls - [ "conditions" .= v1NetworkPolicyStatusConditions - ] - - --- | Construct a value of type 'V1NetworkPolicyStatus' (by applying it's required fields, if any) -mkV1NetworkPolicyStatus - :: V1NetworkPolicyStatus -mkV1NetworkPolicyStatus = - V1NetworkPolicyStatus - { v1NetworkPolicyStatusConditions = Nothing - } - --- ** V1Node --- | V1Node --- Node is a worker node in Kubernetes. Each node will have a unique identifier in the cache (i.e. in etcd). -data V1Node = V1Node - { v1NodeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NodeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NodeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1NodeSpec :: !(Maybe V1NodeSpec) -- ^ "spec" - , v1NodeStatus :: !(Maybe V1NodeStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Node -instance A.FromJSON V1Node where - parseJSON = A.withObject "V1Node" $ \o -> - V1Node - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Node -instance A.ToJSON V1Node where - toJSON V1Node {..} = - _omitNulls - [ "apiVersion" .= v1NodeApiVersion - , "kind" .= v1NodeKind - , "metadata" .= v1NodeMetadata - , "spec" .= v1NodeSpec - , "status" .= v1NodeStatus - ] - - --- | Construct a value of type 'V1Node' (by applying it's required fields, if any) -mkV1Node - :: V1Node -mkV1Node = - V1Node - { v1NodeApiVersion = Nothing - , v1NodeKind = Nothing - , v1NodeMetadata = Nothing - , v1NodeSpec = Nothing - , v1NodeStatus = Nothing - } - --- ** V1NodeAddress --- | V1NodeAddress --- NodeAddress contains information for the node's address. -data V1NodeAddress = V1NodeAddress - { v1NodeAddressAddress :: !(Text) -- ^ /Required/ "address" - The node address. - , v1NodeAddressType :: !(Text) -- ^ /Required/ "type" - Node address type, one of Hostname, ExternalIP or InternalIP. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeAddress -instance A.FromJSON V1NodeAddress where - parseJSON = A.withObject "V1NodeAddress" $ \o -> - V1NodeAddress - <$> (o .: "address") - <*> (o .: "type") - --- | ToJSON V1NodeAddress -instance A.ToJSON V1NodeAddress where - toJSON V1NodeAddress {..} = - _omitNulls - [ "address" .= v1NodeAddressAddress - , "type" .= v1NodeAddressType - ] - - --- | Construct a value of type 'V1NodeAddress' (by applying it's required fields, if any) -mkV1NodeAddress - :: Text -- ^ 'v1NodeAddressAddress': The node address. - -> Text -- ^ 'v1NodeAddressType': Node address type, one of Hostname, ExternalIP or InternalIP. - -> V1NodeAddress -mkV1NodeAddress v1NodeAddressAddress v1NodeAddressType = - V1NodeAddress - { v1NodeAddressAddress - , v1NodeAddressType - } - --- ** V1NodeAffinity --- | V1NodeAffinity --- Node affinity is a group of node affinity scheduling rules. -data V1NodeAffinity = V1NodeAffinity - { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PreferredSchedulingTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node matches the corresponding matchExpressions; the node(s) with the highest sum are the most preferred. - , v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe V1NodeSelector) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeAffinity -instance A.FromJSON V1NodeAffinity where - parseJSON = A.withObject "V1NodeAffinity" $ \o -> - V1NodeAffinity - <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") - <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") - --- | ToJSON V1NodeAffinity -instance A.ToJSON V1NodeAffinity where - toJSON V1NodeAffinity {..} = - _omitNulls - [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution - , "requiredDuringSchedulingIgnoredDuringExecution" .= v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution - ] - - --- | Construct a value of type 'V1NodeAffinity' (by applying it's required fields, if any) -mkV1NodeAffinity - :: V1NodeAffinity -mkV1NodeAffinity = - V1NodeAffinity - { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing - , v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing - } - --- ** V1NodeCondition --- | V1NodeCondition --- NodeCondition contains condition information for a node. -data V1NodeCondition = V1NodeCondition - { v1NodeConditionLastHeartbeatTime :: !(Maybe DateTime) -- ^ "lastHeartbeatTime" - Last time we got an update on a given condition. - , v1NodeConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transit from one status to another. - , v1NodeConditionMessage :: !(Maybe Text) -- ^ "message" - Human readable message indicating details about last transition. - , v1NodeConditionReason :: !(Maybe Text) -- ^ "reason" - (brief) reason for the condition's last transition. - , v1NodeConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1NodeConditionType :: !(Text) -- ^ /Required/ "type" - Type of node condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeCondition -instance A.FromJSON V1NodeCondition where - parseJSON = A.withObject "V1NodeCondition" $ \o -> - V1NodeCondition - <$> (o .:? "lastHeartbeatTime") - <*> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1NodeCondition -instance A.ToJSON V1NodeCondition where - toJSON V1NodeCondition {..} = - _omitNulls - [ "lastHeartbeatTime" .= v1NodeConditionLastHeartbeatTime - , "lastTransitionTime" .= v1NodeConditionLastTransitionTime - , "message" .= v1NodeConditionMessage - , "reason" .= v1NodeConditionReason - , "status" .= v1NodeConditionStatus - , "type" .= v1NodeConditionType - ] - - --- | Construct a value of type 'V1NodeCondition' (by applying it's required fields, if any) -mkV1NodeCondition - :: Text -- ^ 'v1NodeConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1NodeConditionType': Type of node condition. - -> V1NodeCondition -mkV1NodeCondition v1NodeConditionStatus v1NodeConditionType = - V1NodeCondition - { v1NodeConditionLastHeartbeatTime = Nothing - , v1NodeConditionLastTransitionTime = Nothing - , v1NodeConditionMessage = Nothing - , v1NodeConditionReason = Nothing - , v1NodeConditionStatus - , v1NodeConditionType - } - --- ** V1NodeConfigSource --- | V1NodeConfigSource --- NodeConfigSource specifies a source of node configuration. Exactly one subfield (excluding metadata) must be non-nil. This API is deprecated since 1.22 -data V1NodeConfigSource = V1NodeConfigSource - { v1NodeConfigSourceConfigMap :: !(Maybe V1ConfigMapNodeConfigSource) -- ^ "configMap" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeConfigSource -instance A.FromJSON V1NodeConfigSource where - parseJSON = A.withObject "V1NodeConfigSource" $ \o -> - V1NodeConfigSource - <$> (o .:? "configMap") - --- | ToJSON V1NodeConfigSource -instance A.ToJSON V1NodeConfigSource where - toJSON V1NodeConfigSource {..} = - _omitNulls - [ "configMap" .= v1NodeConfigSourceConfigMap - ] - - --- | Construct a value of type 'V1NodeConfigSource' (by applying it's required fields, if any) -mkV1NodeConfigSource - :: V1NodeConfigSource -mkV1NodeConfigSource = - V1NodeConfigSource - { v1NodeConfigSourceConfigMap = Nothing - } - --- ** V1NodeConfigStatus --- | V1NodeConfigStatus --- NodeConfigStatus describes the status of the config assigned by Node.Spec.ConfigSource. -data V1NodeConfigStatus = V1NodeConfigStatus - { v1NodeConfigStatusActive :: !(Maybe V1NodeConfigSource) -- ^ "active" - , v1NodeConfigStatusAssigned :: !(Maybe V1NodeConfigSource) -- ^ "assigned" - , v1NodeConfigStatusError :: !(Maybe Text) -- ^ "error" - Error describes any problems reconciling the Spec.ConfigSource to the Active config. Errors may occur, for example, attempting to checkpoint Spec.ConfigSource to the local Assigned record, attempting to checkpoint the payload associated with Spec.ConfigSource, attempting to load or validate the Assigned config, etc. Errors may occur at different points while syncing config. Earlier errors (e.g. download or checkpointing errors) will not result in a rollback to LastKnownGood, and may resolve across Kubelet retries. Later errors (e.g. loading or validating a checkpointed config) will result in a rollback to LastKnownGood. In the latter case, it is usually possible to resolve the error by fixing the config assigned in Spec.ConfigSource. You can find additional information for debugging by searching the error message in the Kubelet log. Error is a human-readable description of the error state; machines can check whether or not Error is empty, but should not rely on the stability of the Error text across Kubelet versions. - , v1NodeConfigStatusLastKnownGood :: !(Maybe V1NodeConfigSource) -- ^ "lastKnownGood" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeConfigStatus -instance A.FromJSON V1NodeConfigStatus where - parseJSON = A.withObject "V1NodeConfigStatus" $ \o -> - V1NodeConfigStatus - <$> (o .:? "active") - <*> (o .:? "assigned") - <*> (o .:? "error") - <*> (o .:? "lastKnownGood") - --- | ToJSON V1NodeConfigStatus -instance A.ToJSON V1NodeConfigStatus where - toJSON V1NodeConfigStatus {..} = - _omitNulls - [ "active" .= v1NodeConfigStatusActive - , "assigned" .= v1NodeConfigStatusAssigned - , "error" .= v1NodeConfigStatusError - , "lastKnownGood" .= v1NodeConfigStatusLastKnownGood - ] - - --- | Construct a value of type 'V1NodeConfigStatus' (by applying it's required fields, if any) -mkV1NodeConfigStatus - :: V1NodeConfigStatus -mkV1NodeConfigStatus = - V1NodeConfigStatus - { v1NodeConfigStatusActive = Nothing - , v1NodeConfigStatusAssigned = Nothing - , v1NodeConfigStatusError = Nothing - , v1NodeConfigStatusLastKnownGood = Nothing - } - --- ** V1NodeDaemonEndpoints --- | V1NodeDaemonEndpoints --- NodeDaemonEndpoints lists ports opened by daemons running on the Node. -data V1NodeDaemonEndpoints = V1NodeDaemonEndpoints - { v1NodeDaemonEndpointsKubeletEndpoint :: !(Maybe V1DaemonEndpoint) -- ^ "kubeletEndpoint" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeDaemonEndpoints -instance A.FromJSON V1NodeDaemonEndpoints where - parseJSON = A.withObject "V1NodeDaemonEndpoints" $ \o -> - V1NodeDaemonEndpoints - <$> (o .:? "kubeletEndpoint") - --- | ToJSON V1NodeDaemonEndpoints -instance A.ToJSON V1NodeDaemonEndpoints where - toJSON V1NodeDaemonEndpoints {..} = - _omitNulls - [ "kubeletEndpoint" .= v1NodeDaemonEndpointsKubeletEndpoint - ] - - --- | Construct a value of type 'V1NodeDaemonEndpoints' (by applying it's required fields, if any) -mkV1NodeDaemonEndpoints - :: V1NodeDaemonEndpoints -mkV1NodeDaemonEndpoints = - V1NodeDaemonEndpoints - { v1NodeDaemonEndpointsKubeletEndpoint = Nothing - } - --- ** V1NodeList --- | V1NodeList --- NodeList is the whole list of all Nodes which have been registered with master. -data V1NodeList = V1NodeList - { v1NodeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1NodeListItems :: !([V1Node]) -- ^ /Required/ "items" - List of nodes - , v1NodeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1NodeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeList -instance A.FromJSON V1NodeList where - parseJSON = A.withObject "V1NodeList" $ \o -> - V1NodeList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1NodeList -instance A.ToJSON V1NodeList where - toJSON V1NodeList {..} = - _omitNulls - [ "apiVersion" .= v1NodeListApiVersion - , "items" .= v1NodeListItems - , "kind" .= v1NodeListKind - , "metadata" .= v1NodeListMetadata - ] - - --- | Construct a value of type 'V1NodeList' (by applying it's required fields, if any) -mkV1NodeList - :: [V1Node] -- ^ 'v1NodeListItems': List of nodes - -> V1NodeList -mkV1NodeList v1NodeListItems = - V1NodeList - { v1NodeListApiVersion = Nothing - , v1NodeListItems - , v1NodeListKind = Nothing - , v1NodeListMetadata = Nothing - } - --- ** V1NodeSelector --- | V1NodeSelector --- A node selector represents the union of the results of one or more label queries over a set of nodes; that is, it represents the OR of the selectors represented by the node selector terms. -data V1NodeSelector = V1NodeSelector - { v1NodeSelectorNodeSelectorTerms :: !([V1NodeSelectorTerm]) -- ^ /Required/ "nodeSelectorTerms" - Required. A list of node selector terms. The terms are ORed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeSelector -instance A.FromJSON V1NodeSelector where - parseJSON = A.withObject "V1NodeSelector" $ \o -> - V1NodeSelector - <$> (o .: "nodeSelectorTerms") - --- | ToJSON V1NodeSelector -instance A.ToJSON V1NodeSelector where - toJSON V1NodeSelector {..} = - _omitNulls - [ "nodeSelectorTerms" .= v1NodeSelectorNodeSelectorTerms - ] - - --- | Construct a value of type 'V1NodeSelector' (by applying it's required fields, if any) -mkV1NodeSelector - :: [V1NodeSelectorTerm] -- ^ 'v1NodeSelectorNodeSelectorTerms': Required. A list of node selector terms. The terms are ORed. - -> V1NodeSelector -mkV1NodeSelector v1NodeSelectorNodeSelectorTerms = - V1NodeSelector - { v1NodeSelectorNodeSelectorTerms - } - --- ** V1NodeSelectorRequirement --- | V1NodeSelectorRequirement --- A node selector requirement is a selector that contains values, a key, and an operator that relates the key and values. -data V1NodeSelectorRequirement = V1NodeSelectorRequirement - { v1NodeSelectorRequirementKey :: !(Text) -- ^ /Required/ "key" - The label key that the selector applies to. - , v1NodeSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. Gt, and Lt. - , v1NodeSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - An array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. If the operator is Gt or Lt, the values array must have a single element, which will be interpreted as an integer. This array is replaced during a strategic merge patch. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeSelectorRequirement -instance A.FromJSON V1NodeSelectorRequirement where - parseJSON = A.withObject "V1NodeSelectorRequirement" $ \o -> - V1NodeSelectorRequirement - <$> (o .: "key") - <*> (o .: "operator") - <*> (o .:? "values") - --- | ToJSON V1NodeSelectorRequirement -instance A.ToJSON V1NodeSelectorRequirement where - toJSON V1NodeSelectorRequirement {..} = - _omitNulls - [ "key" .= v1NodeSelectorRequirementKey - , "operator" .= v1NodeSelectorRequirementOperator - , "values" .= v1NodeSelectorRequirementValues - ] - - --- | Construct a value of type 'V1NodeSelectorRequirement' (by applying it's required fields, if any) -mkV1NodeSelectorRequirement - :: Text -- ^ 'v1NodeSelectorRequirementKey': The label key that the selector applies to. - -> Text -- ^ 'v1NodeSelectorRequirementOperator': Represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. Gt, and Lt. - -> V1NodeSelectorRequirement -mkV1NodeSelectorRequirement v1NodeSelectorRequirementKey v1NodeSelectorRequirementOperator = - V1NodeSelectorRequirement - { v1NodeSelectorRequirementKey - , v1NodeSelectorRequirementOperator - , v1NodeSelectorRequirementValues = Nothing - } - --- ** V1NodeSelectorTerm --- | V1NodeSelectorTerm --- A null or empty node selector term matches no objects. The requirements of them are ANDed. The TopologySelectorTerm type implements a subset of the NodeSelectorTerm. -data V1NodeSelectorTerm = V1NodeSelectorTerm - { v1NodeSelectorTermMatchExpressions :: !(Maybe [V1NodeSelectorRequirement]) -- ^ "matchExpressions" - A list of node selector requirements by node's labels. - , v1NodeSelectorTermMatchFields :: !(Maybe [V1NodeSelectorRequirement]) -- ^ "matchFields" - A list of node selector requirements by node's fields. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeSelectorTerm -instance A.FromJSON V1NodeSelectorTerm where - parseJSON = A.withObject "V1NodeSelectorTerm" $ \o -> - V1NodeSelectorTerm - <$> (o .:? "matchExpressions") - <*> (o .:? "matchFields") - --- | ToJSON V1NodeSelectorTerm -instance A.ToJSON V1NodeSelectorTerm where - toJSON V1NodeSelectorTerm {..} = - _omitNulls - [ "matchExpressions" .= v1NodeSelectorTermMatchExpressions - , "matchFields" .= v1NodeSelectorTermMatchFields - ] - - --- | Construct a value of type 'V1NodeSelectorTerm' (by applying it's required fields, if any) -mkV1NodeSelectorTerm - :: V1NodeSelectorTerm -mkV1NodeSelectorTerm = - V1NodeSelectorTerm - { v1NodeSelectorTermMatchExpressions = Nothing - , v1NodeSelectorTermMatchFields = Nothing - } - --- ** V1NodeSpec --- | V1NodeSpec --- NodeSpec describes the attributes that a node is created with. -data V1NodeSpec = V1NodeSpec - { v1NodeSpecConfigSource :: !(Maybe V1NodeConfigSource) -- ^ "configSource" - , v1NodeSpecExternalId :: !(Maybe Text) -- ^ "externalID" - Deprecated. Not all kubelets will set this field. Remove field after 1.13. see: https://issues.k8s.io/61966 - , v1NodeSpecPodCidr :: !(Maybe Text) -- ^ "podCIDR" - PodCIDR represents the pod IP range assigned to the node. - , v1NodeSpecPodCidrs :: !(Maybe [Text]) -- ^ "podCIDRs" - podCIDRs represents the IP ranges assigned to the node for usage by Pods on that node. If this field is specified, the 0th entry must match the podCIDR field. It may contain at most 1 value for each of IPv4 and IPv6. - , v1NodeSpecProviderId :: !(Maybe Text) -- ^ "providerID" - ID of the node assigned by the cloud provider in the format: <ProviderName>://<ProviderSpecificNodeID> - , v1NodeSpecTaints :: !(Maybe [V1Taint]) -- ^ "taints" - If specified, the node's taints. - , v1NodeSpecUnschedulable :: !(Maybe Bool) -- ^ "unschedulable" - Unschedulable controls node schedulability of new pods. By default, node is schedulable. More info: https://kubernetes.io/docs/concepts/nodes/node/#manual-node-administration - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeSpec -instance A.FromJSON V1NodeSpec where - parseJSON = A.withObject "V1NodeSpec" $ \o -> - V1NodeSpec - <$> (o .:? "configSource") - <*> (o .:? "externalID") - <*> (o .:? "podCIDR") - <*> (o .:? "podCIDRs") - <*> (o .:? "providerID") - <*> (o .:? "taints") - <*> (o .:? "unschedulable") - --- | ToJSON V1NodeSpec -instance A.ToJSON V1NodeSpec where - toJSON V1NodeSpec {..} = - _omitNulls - [ "configSource" .= v1NodeSpecConfigSource - , "externalID" .= v1NodeSpecExternalId - , "podCIDR" .= v1NodeSpecPodCidr - , "podCIDRs" .= v1NodeSpecPodCidrs - , "providerID" .= v1NodeSpecProviderId - , "taints" .= v1NodeSpecTaints - , "unschedulable" .= v1NodeSpecUnschedulable - ] - - --- | Construct a value of type 'V1NodeSpec' (by applying it's required fields, if any) -mkV1NodeSpec - :: V1NodeSpec -mkV1NodeSpec = - V1NodeSpec - { v1NodeSpecConfigSource = Nothing - , v1NodeSpecExternalId = Nothing - , v1NodeSpecPodCidr = Nothing - , v1NodeSpecPodCidrs = Nothing - , v1NodeSpecProviderId = Nothing - , v1NodeSpecTaints = Nothing - , v1NodeSpecUnschedulable = Nothing - } - --- ** V1NodeStatus --- | V1NodeStatus --- NodeStatus is information about the current status of a node. -data V1NodeStatus = V1NodeStatus - { v1NodeStatusAddresses :: !(Maybe [V1NodeAddress]) -- ^ "addresses" - List of addresses reachable to the node. Queried from cloud provider, if available. More info: https://kubernetes.io/docs/concepts/nodes/node/#addresses Note: This field is declared as mergeable, but the merge key is not sufficiently unique, which can cause data corruption when it is merged. Callers should instead use a full-replacement patch. See https://pr.k8s.io/79391 for an example. - , v1NodeStatusAllocatable :: !(Maybe (Map.Map String Quantity)) -- ^ "allocatable" - Allocatable represents the resources of a node that are available for scheduling. Defaults to Capacity. - , v1NodeStatusCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - Capacity represents the total resources of a node. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#capacity - , v1NodeStatusConditions :: !(Maybe [V1NodeCondition]) -- ^ "conditions" - Conditions is an array of current observed node conditions. More info: https://kubernetes.io/docs/concepts/nodes/node/#condition - , v1NodeStatusConfig :: !(Maybe V1NodeConfigStatus) -- ^ "config" - , v1NodeStatusDaemonEndpoints :: !(Maybe V1NodeDaemonEndpoints) -- ^ "daemonEndpoints" - , v1NodeStatusImages :: !(Maybe [V1ContainerImage]) -- ^ "images" - List of container images on this node - , v1NodeStatusNodeInfo :: !(Maybe V1NodeSystemInfo) -- ^ "nodeInfo" - , v1NodeStatusPhase :: !(Maybe Text) -- ^ "phase" - NodePhase is the recently observed lifecycle phase of the node. More info: https://kubernetes.io/docs/concepts/nodes/node/#phase The field is never populated, and now is deprecated. - , v1NodeStatusVolumesAttached :: !(Maybe [V1AttachedVolume]) -- ^ "volumesAttached" - List of volumes that are attached to the node. - , v1NodeStatusVolumesInUse :: !(Maybe [Text]) -- ^ "volumesInUse" - List of attachable volumes in use (mounted) by the node. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeStatus -instance A.FromJSON V1NodeStatus where - parseJSON = A.withObject "V1NodeStatus" $ \o -> - V1NodeStatus - <$> (o .:? "addresses") - <*> (o .:? "allocatable") - <*> (o .:? "capacity") - <*> (o .:? "conditions") - <*> (o .:? "config") - <*> (o .:? "daemonEndpoints") - <*> (o .:? "images") - <*> (o .:? "nodeInfo") - <*> (o .:? "phase") - <*> (o .:? "volumesAttached") - <*> (o .:? "volumesInUse") - --- | ToJSON V1NodeStatus -instance A.ToJSON V1NodeStatus where - toJSON V1NodeStatus {..} = - _omitNulls - [ "addresses" .= v1NodeStatusAddresses - , "allocatable" .= v1NodeStatusAllocatable - , "capacity" .= v1NodeStatusCapacity - , "conditions" .= v1NodeStatusConditions - , "config" .= v1NodeStatusConfig - , "daemonEndpoints" .= v1NodeStatusDaemonEndpoints - , "images" .= v1NodeStatusImages - , "nodeInfo" .= v1NodeStatusNodeInfo - , "phase" .= v1NodeStatusPhase - , "volumesAttached" .= v1NodeStatusVolumesAttached - , "volumesInUse" .= v1NodeStatusVolumesInUse - ] - - --- | Construct a value of type 'V1NodeStatus' (by applying it's required fields, if any) -mkV1NodeStatus - :: V1NodeStatus -mkV1NodeStatus = - V1NodeStatus - { v1NodeStatusAddresses = Nothing - , v1NodeStatusAllocatable = Nothing - , v1NodeStatusCapacity = Nothing - , v1NodeStatusConditions = Nothing - , v1NodeStatusConfig = Nothing - , v1NodeStatusDaemonEndpoints = Nothing - , v1NodeStatusImages = Nothing - , v1NodeStatusNodeInfo = Nothing - , v1NodeStatusPhase = Nothing - , v1NodeStatusVolumesAttached = Nothing - , v1NodeStatusVolumesInUse = Nothing - } - --- ** V1NodeSystemInfo --- | V1NodeSystemInfo --- NodeSystemInfo is a set of ids/uuids to uniquely identify the node. -data V1NodeSystemInfo = V1NodeSystemInfo - { v1NodeSystemInfoArchitecture :: !(Text) -- ^ /Required/ "architecture" - The Architecture reported by the node - , v1NodeSystemInfoBootId :: !(Text) -- ^ /Required/ "bootID" - Boot ID reported by the node. - , v1NodeSystemInfoContainerRuntimeVersion :: !(Text) -- ^ /Required/ "containerRuntimeVersion" - ContainerRuntime Version reported by the node through runtime remote API (e.g. containerd://1.4.2). - , v1NodeSystemInfoKernelVersion :: !(Text) -- ^ /Required/ "kernelVersion" - Kernel Version reported by the node from 'uname -r' (e.g. 3.16.0-0.bpo.4-amd64). - , v1NodeSystemInfoKubeProxyVersion :: !(Text) -- ^ /Required/ "kubeProxyVersion" - KubeProxy Version reported by the node. - , v1NodeSystemInfoKubeletVersion :: !(Text) -- ^ /Required/ "kubeletVersion" - Kubelet Version reported by the node. - , v1NodeSystemInfoMachineId :: !(Text) -- ^ /Required/ "machineID" - MachineID reported by the node. For unique machine identification in the cluster this field is preferred. Learn more from man(5) machine-id: http://man7.org/linux/man-pages/man5/machine-id.5.html - , v1NodeSystemInfoOperatingSystem :: !(Text) -- ^ /Required/ "operatingSystem" - The Operating System reported by the node - , v1NodeSystemInfoOsImage :: !(Text) -- ^ /Required/ "osImage" - OS Image reported by the node from /etc/os-release (e.g. Debian GNU/Linux 7 (wheezy)). - , v1NodeSystemInfoSystemUuid :: !(Text) -- ^ /Required/ "systemUUID" - SystemUUID reported by the node. For unique machine identification MachineID is preferred. This field is specific to Red Hat hosts https://access.redhat.com/documentation/en-us/red_hat_subscription_management/1/html/rhsm/uuid - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NodeSystemInfo -instance A.FromJSON V1NodeSystemInfo where - parseJSON = A.withObject "V1NodeSystemInfo" $ \o -> - V1NodeSystemInfo - <$> (o .: "architecture") - <*> (o .: "bootID") - <*> (o .: "containerRuntimeVersion") - <*> (o .: "kernelVersion") - <*> (o .: "kubeProxyVersion") - <*> (o .: "kubeletVersion") - <*> (o .: "machineID") - <*> (o .: "operatingSystem") - <*> (o .: "osImage") - <*> (o .: "systemUUID") - --- | ToJSON V1NodeSystemInfo -instance A.ToJSON V1NodeSystemInfo where - toJSON V1NodeSystemInfo {..} = - _omitNulls - [ "architecture" .= v1NodeSystemInfoArchitecture - , "bootID" .= v1NodeSystemInfoBootId - , "containerRuntimeVersion" .= v1NodeSystemInfoContainerRuntimeVersion - , "kernelVersion" .= v1NodeSystemInfoKernelVersion - , "kubeProxyVersion" .= v1NodeSystemInfoKubeProxyVersion - , "kubeletVersion" .= v1NodeSystemInfoKubeletVersion - , "machineID" .= v1NodeSystemInfoMachineId - , "operatingSystem" .= v1NodeSystemInfoOperatingSystem - , "osImage" .= v1NodeSystemInfoOsImage - , "systemUUID" .= v1NodeSystemInfoSystemUuid - ] - - --- | Construct a value of type 'V1NodeSystemInfo' (by applying it's required fields, if any) -mkV1NodeSystemInfo - :: Text -- ^ 'v1NodeSystemInfoArchitecture': The Architecture reported by the node - -> Text -- ^ 'v1NodeSystemInfoBootId': Boot ID reported by the node. - -> Text -- ^ 'v1NodeSystemInfoContainerRuntimeVersion': ContainerRuntime Version reported by the node through runtime remote API (e.g. containerd://1.4.2). - -> Text -- ^ 'v1NodeSystemInfoKernelVersion': Kernel Version reported by the node from 'uname -r' (e.g. 3.16.0-0.bpo.4-amd64). - -> Text -- ^ 'v1NodeSystemInfoKubeProxyVersion': KubeProxy Version reported by the node. - -> Text -- ^ 'v1NodeSystemInfoKubeletVersion': Kubelet Version reported by the node. - -> Text -- ^ 'v1NodeSystemInfoMachineId': MachineID reported by the node. For unique machine identification in the cluster this field is preferred. Learn more from man(5) machine-id: http://man7.org/linux/man-pages/man5/machine-id.5.html - -> Text -- ^ 'v1NodeSystemInfoOperatingSystem': The Operating System reported by the node - -> Text -- ^ 'v1NodeSystemInfoOsImage': OS Image reported by the node from /etc/os-release (e.g. Debian GNU/Linux 7 (wheezy)). - -> Text -- ^ 'v1NodeSystemInfoSystemUuid': SystemUUID reported by the node. For unique machine identification MachineID is preferred. This field is specific to Red Hat hosts https://access.redhat.com/documentation/en-us/red_hat_subscription_management/1/html/rhsm/uuid - -> V1NodeSystemInfo -mkV1NodeSystemInfo v1NodeSystemInfoArchitecture v1NodeSystemInfoBootId v1NodeSystemInfoContainerRuntimeVersion v1NodeSystemInfoKernelVersion v1NodeSystemInfoKubeProxyVersion v1NodeSystemInfoKubeletVersion v1NodeSystemInfoMachineId v1NodeSystemInfoOperatingSystem v1NodeSystemInfoOsImage v1NodeSystemInfoSystemUuid = - V1NodeSystemInfo - { v1NodeSystemInfoArchitecture - , v1NodeSystemInfoBootId - , v1NodeSystemInfoContainerRuntimeVersion - , v1NodeSystemInfoKernelVersion - , v1NodeSystemInfoKubeProxyVersion - , v1NodeSystemInfoKubeletVersion - , v1NodeSystemInfoMachineId - , v1NodeSystemInfoOperatingSystem - , v1NodeSystemInfoOsImage - , v1NodeSystemInfoSystemUuid - } - --- ** V1NonResourceAttributes --- | V1NonResourceAttributes --- NonResourceAttributes includes the authorization attributes available for non-resource requests to the Authorizer interface -data V1NonResourceAttributes = V1NonResourceAttributes - { v1NonResourceAttributesPath :: !(Maybe Text) -- ^ "path" - Path is the URL path of the request - , v1NonResourceAttributesVerb :: !(Maybe Text) -- ^ "verb" - Verb is the standard HTTP verb - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NonResourceAttributes -instance A.FromJSON V1NonResourceAttributes where - parseJSON = A.withObject "V1NonResourceAttributes" $ \o -> - V1NonResourceAttributes - <$> (o .:? "path") - <*> (o .:? "verb") - --- | ToJSON V1NonResourceAttributes -instance A.ToJSON V1NonResourceAttributes where - toJSON V1NonResourceAttributes {..} = - _omitNulls - [ "path" .= v1NonResourceAttributesPath - , "verb" .= v1NonResourceAttributesVerb - ] - - --- | Construct a value of type 'V1NonResourceAttributes' (by applying it's required fields, if any) -mkV1NonResourceAttributes - :: V1NonResourceAttributes -mkV1NonResourceAttributes = - V1NonResourceAttributes - { v1NonResourceAttributesPath = Nothing - , v1NonResourceAttributesVerb = Nothing - } - --- ** V1NonResourceRule --- | V1NonResourceRule --- NonResourceRule holds information that describes a rule for the non-resource -data V1NonResourceRule = V1NonResourceRule - { v1NonResourceRuleNonResourceUrls :: !(Maybe [Text]) -- ^ "nonResourceURLs" - NonResourceURLs is a set of partial urls that a user should have access to. *s are allowed, but only as the full, final step in the path. \"*\" means all. - , v1NonResourceRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verb is a list of kubernetes non-resource API verbs, like: get, post, put, delete, patch, head, options. \"*\" means all. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1NonResourceRule -instance A.FromJSON V1NonResourceRule where - parseJSON = A.withObject "V1NonResourceRule" $ \o -> - V1NonResourceRule - <$> (o .:? "nonResourceURLs") - <*> (o .: "verbs") - --- | ToJSON V1NonResourceRule -instance A.ToJSON V1NonResourceRule where - toJSON V1NonResourceRule {..} = - _omitNulls - [ "nonResourceURLs" .= v1NonResourceRuleNonResourceUrls - , "verbs" .= v1NonResourceRuleVerbs - ] - - --- | Construct a value of type 'V1NonResourceRule' (by applying it's required fields, if any) -mkV1NonResourceRule - :: [Text] -- ^ 'v1NonResourceRuleVerbs': Verb is a list of kubernetes non-resource API verbs, like: get, post, put, delete, patch, head, options. \"*\" means all. - -> V1NonResourceRule -mkV1NonResourceRule v1NonResourceRuleVerbs = - V1NonResourceRule - { v1NonResourceRuleNonResourceUrls = Nothing - , v1NonResourceRuleVerbs - } - --- ** V1ObjectFieldSelector --- | V1ObjectFieldSelector --- ObjectFieldSelector selects an APIVersioned field of an object. -data V1ObjectFieldSelector = V1ObjectFieldSelector - { v1ObjectFieldSelectorApiVersion :: !(Maybe Text) -- ^ "apiVersion" - Version of the schema the FieldPath is written in terms of, defaults to \"v1\". - , v1ObjectFieldSelectorFieldPath :: !(Text) -- ^ /Required/ "fieldPath" - Path of the field to select in the specified API version. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ObjectFieldSelector -instance A.FromJSON V1ObjectFieldSelector where - parseJSON = A.withObject "V1ObjectFieldSelector" $ \o -> - V1ObjectFieldSelector - <$> (o .:? "apiVersion") - <*> (o .: "fieldPath") - --- | ToJSON V1ObjectFieldSelector -instance A.ToJSON V1ObjectFieldSelector where - toJSON V1ObjectFieldSelector {..} = - _omitNulls - [ "apiVersion" .= v1ObjectFieldSelectorApiVersion - , "fieldPath" .= v1ObjectFieldSelectorFieldPath - ] - - --- | Construct a value of type 'V1ObjectFieldSelector' (by applying it's required fields, if any) -mkV1ObjectFieldSelector - :: Text -- ^ 'v1ObjectFieldSelectorFieldPath': Path of the field to select in the specified API version. - -> V1ObjectFieldSelector -mkV1ObjectFieldSelector v1ObjectFieldSelectorFieldPath = - V1ObjectFieldSelector - { v1ObjectFieldSelectorApiVersion = Nothing - , v1ObjectFieldSelectorFieldPath - } - --- ** V1ObjectMeta --- | V1ObjectMeta --- ObjectMeta is metadata that all persisted resources must have, which includes all objects users must create. -data V1ObjectMeta = V1ObjectMeta - { v1ObjectMetaAnnotations :: !(Maybe (Map.Map String Text)) -- ^ "annotations" - Annotations is an unstructured key value map stored with a resource that may be set by external tools to store and retrieve arbitrary metadata. They are not queryable and should be preserved when modifying objects. More info: http://kubernetes.io/docs/user-guide/annotations - , v1ObjectMetaCreationTimestamp :: !(Maybe DateTime) -- ^ "creationTimestamp" - CreationTimestamp is a timestamp representing the server time when this object was created. It is not guaranteed to be set in happens-before order across separate operations. Clients may not set this value. It is represented in RFC3339 form and is in UTC. Populated by the system. Read-only. Null for lists. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#metadata - , v1ObjectMetaDeletionGracePeriodSeconds :: !(Maybe Integer) -- ^ "deletionGracePeriodSeconds" - Number of seconds allowed for this object to gracefully terminate before it will be removed from the system. Only set when deletionTimestamp is also set. May only be shortened. Read-only. - , v1ObjectMetaDeletionTimestamp :: !(Maybe DateTime) -- ^ "deletionTimestamp" - DeletionTimestamp is RFC 3339 date and time at which this resource will be deleted. This field is set by the server when a graceful deletion is requested by the user, and is not directly settable by a client. The resource is expected to be deleted (no longer visible from resource lists, and not reachable by name) after the time in this field, once the finalizers list is empty. As long as the finalizers list contains items, deletion is blocked. Once the deletionTimestamp is set, this value may not be unset or be set further into the future, although it may be shortened or the resource may be deleted prior to this time. For example, a user may request that a pod is deleted in 30 seconds. The Kubelet will react by sending a graceful termination signal to the containers in the pod. After that 30 seconds, the Kubelet will send a hard termination signal (SIGKILL) to the container and after cleanup, remove the pod from the API. In the presence of network partitions, this object may still exist after this timestamp, until an administrator or automated process can determine the resource is fully terminated. If not set, graceful deletion of the object has not been requested. Populated by the system when a graceful deletion is requested. Read-only. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#metadata - , v1ObjectMetaFinalizers :: !(Maybe [Text]) -- ^ "finalizers" - Must be empty before the object is deleted from the registry. Each entry is an identifier for the responsible component that will remove the entry from the list. If the deletionTimestamp of the object is non-nil, entries in this list can only be removed. Finalizers may be processed and removed in any order. Order is NOT enforced because it introduces significant risk of stuck finalizers. finalizers is a shared field, any actor with permission can reorder it. If the finalizer list is processed in order, then this can lead to a situation in which the component responsible for the first finalizer in the list is waiting for a signal (field value, external system, or other) produced by a component responsible for a finalizer later in the list, resulting in a deadlock. Without enforced ordering finalizers are free to order amongst themselves and are not vulnerable to ordering changes in the list. - , v1ObjectMetaGenerateName :: !(Maybe Text) -- ^ "generateName" - GenerateName is an optional prefix, used by the server, to generate a unique name ONLY IF the Name field has not been provided. If this field is used, the name returned to the client will be different than the name passed. This value will also be combined with a unique suffix. The provided value has the same validation rules as the Name field, and may be truncated by the length of the suffix required to make the value unique on the server. If this field is specified and the generated name exists, the server will return a 409. Applied only if Name is not specified. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#idempotency - , v1ObjectMetaGeneration :: !(Maybe Integer) -- ^ "generation" - A sequence number representing a specific generation of the desired state. Populated by the system. Read-only. - , v1ObjectMetaLabels :: !(Maybe (Map.Map String Text)) -- ^ "labels" - Map of string keys and values that can be used to organize and categorize (scope and select) objects. May match selectors of replication controllers and services. More info: http://kubernetes.io/docs/user-guide/labels - , v1ObjectMetaManagedFields :: !(Maybe [V1ManagedFieldsEntry]) -- ^ "managedFields" - ManagedFields maps workflow-id and version to the set of fields that are managed by that workflow. This is mostly for internal housekeeping, and users typically shouldn't need to set or understand this field. A workflow can be the user's name, a controller's name, or the name of a specific apply path like \"ci-cd\". The set of fields is always in the version that the workflow used when modifying the object. - , v1ObjectMetaName :: !(Maybe Text) -- ^ "name" - Name must be unique within a namespace. Is required when creating resources, although some resources may allow a client to request the generation of an appropriate name automatically. Name is primarily intended for creation idempotence and configuration definition. Cannot be updated. More info: http://kubernetes.io/docs/user-guide/identifiers#names - , v1ObjectMetaNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace defines the space within which each name must be unique. An empty namespace is equivalent to the \"default\" namespace, but \"default\" is the canonical representation. Not all objects are required to be scoped to a namespace - the value of this field for those objects will be empty. Must be a DNS_LABEL. Cannot be updated. More info: http://kubernetes.io/docs/user-guide/namespaces - , v1ObjectMetaOwnerReferences :: !(Maybe [V1OwnerReference]) -- ^ "ownerReferences" - List of objects depended by this object. If ALL objects in the list have been deleted, this object will be garbage collected. If this object is managed by a controller, then an entry in this list will point to this controller, with the controller field set to true. There cannot be more than one managing controller. - , v1ObjectMetaResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - An opaque value that represents the internal version of this object that can be used by clients to determine when objects have changed. May be used for optimistic concurrency, change detection, and the watch operation on a resource or set of resources. Clients must treat these values as opaque and passed unmodified back to the server. They may only be valid for a particular resource or set of resources. Populated by the system. Read-only. Value must be treated as opaque by clients and . More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency - , v1ObjectMetaSelfLink :: !(Maybe Text) -- ^ "selfLink" - Deprecated: selfLink is a legacy read-only field that is no longer populated by the system. - , v1ObjectMetaUid :: !(Maybe Text) -- ^ "uid" - UID is the unique in time and space value for this object. It is typically generated by the server on successful creation of a resource and is not allowed to change on PUT operations. Populated by the system. Read-only. More info: http://kubernetes.io/docs/user-guide/identifiers#uids - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ObjectMeta -instance A.FromJSON V1ObjectMeta where - parseJSON = A.withObject "V1ObjectMeta" $ \o -> - V1ObjectMeta - <$> (o .:? "annotations") - <*> (o .:? "creationTimestamp") - <*> (o .:? "deletionGracePeriodSeconds") - <*> (o .:? "deletionTimestamp") - <*> (o .:? "finalizers") - <*> (o .:? "generateName") - <*> (o .:? "generation") - <*> (o .:? "labels") - <*> (o .:? "managedFields") - <*> (o .:? "name") - <*> (o .:? "namespace") - <*> (o .:? "ownerReferences") - <*> (o .:? "resourceVersion") - <*> (o .:? "selfLink") - <*> (o .:? "uid") - --- | ToJSON V1ObjectMeta -instance A.ToJSON V1ObjectMeta where - toJSON V1ObjectMeta {..} = - _omitNulls - [ "annotations" .= v1ObjectMetaAnnotations - , "creationTimestamp" .= v1ObjectMetaCreationTimestamp - , "deletionGracePeriodSeconds" .= v1ObjectMetaDeletionGracePeriodSeconds - , "deletionTimestamp" .= v1ObjectMetaDeletionTimestamp - , "finalizers" .= v1ObjectMetaFinalizers - , "generateName" .= v1ObjectMetaGenerateName - , "generation" .= v1ObjectMetaGeneration - , "labels" .= v1ObjectMetaLabels - , "managedFields" .= v1ObjectMetaManagedFields - , "name" .= v1ObjectMetaName - , "namespace" .= v1ObjectMetaNamespace - , "ownerReferences" .= v1ObjectMetaOwnerReferences - , "resourceVersion" .= v1ObjectMetaResourceVersion - , "selfLink" .= v1ObjectMetaSelfLink - , "uid" .= v1ObjectMetaUid - ] - - --- | Construct a value of type 'V1ObjectMeta' (by applying it's required fields, if any) -mkV1ObjectMeta - :: V1ObjectMeta -mkV1ObjectMeta = - V1ObjectMeta - { v1ObjectMetaAnnotations = Nothing - , v1ObjectMetaCreationTimestamp = Nothing - , v1ObjectMetaDeletionGracePeriodSeconds = Nothing - , v1ObjectMetaDeletionTimestamp = Nothing - , v1ObjectMetaFinalizers = Nothing - , v1ObjectMetaGenerateName = Nothing - , v1ObjectMetaGeneration = Nothing - , v1ObjectMetaLabels = Nothing - , v1ObjectMetaManagedFields = Nothing - , v1ObjectMetaName = Nothing - , v1ObjectMetaNamespace = Nothing - , v1ObjectMetaOwnerReferences = Nothing - , v1ObjectMetaResourceVersion = Nothing - , v1ObjectMetaSelfLink = Nothing - , v1ObjectMetaUid = Nothing - } - --- ** V1ObjectReference --- | V1ObjectReference --- ObjectReference contains enough information to let you inspect or modify the referred object. -data V1ObjectReference = V1ObjectReference - { v1ObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent. - , v1ObjectReferenceFieldPath :: !(Maybe Text) -- ^ "fieldPath" - If referring to a piece of an object instead of an entire object, this string should contain a valid JSON/Go field access statement, such as desiredState.manifest.containers[2]. For example, if the object reference is to a container within a pod, this would take on a value like: \"spec.containers{name}\" (where \"name\" refers to the name of the container that triggered the event) or if no container name is specified \"spec.containers[2]\" (container with index 2 in this pod). This syntax is chosen only to have some well-defined way of referencing a part of an object. - , v1ObjectReferenceKind :: !(Maybe Text) -- ^ "kind" - Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1ObjectReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ - , v1ObjectReferenceResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - Specific resourceVersion to which this reference is made, if any. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency - , v1ObjectReferenceUid :: !(Maybe Text) -- ^ "uid" - UID of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#uids - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ObjectReference -instance A.FromJSON V1ObjectReference where - parseJSON = A.withObject "V1ObjectReference" $ \o -> - V1ObjectReference - <$> (o .:? "apiVersion") - <*> (o .:? "fieldPath") - <*> (o .:? "kind") - <*> (o .:? "name") - <*> (o .:? "namespace") - <*> (o .:? "resourceVersion") - <*> (o .:? "uid") - --- | ToJSON V1ObjectReference -instance A.ToJSON V1ObjectReference where - toJSON V1ObjectReference {..} = - _omitNulls - [ "apiVersion" .= v1ObjectReferenceApiVersion - , "fieldPath" .= v1ObjectReferenceFieldPath - , "kind" .= v1ObjectReferenceKind - , "name" .= v1ObjectReferenceName - , "namespace" .= v1ObjectReferenceNamespace - , "resourceVersion" .= v1ObjectReferenceResourceVersion - , "uid" .= v1ObjectReferenceUid - ] - - --- | Construct a value of type 'V1ObjectReference' (by applying it's required fields, if any) -mkV1ObjectReference - :: V1ObjectReference -mkV1ObjectReference = - V1ObjectReference - { v1ObjectReferenceApiVersion = Nothing - , v1ObjectReferenceFieldPath = Nothing - , v1ObjectReferenceKind = Nothing - , v1ObjectReferenceName = Nothing - , v1ObjectReferenceNamespace = Nothing - , v1ObjectReferenceResourceVersion = Nothing - , v1ObjectReferenceUid = Nothing - } - --- ** V1Overhead --- | V1Overhead --- Overhead structure represents the resource overhead associated with running a pod. -data V1Overhead = V1Overhead - { v1OverheadPodFixed :: !(Maybe (Map.Map String Quantity)) -- ^ "podFixed" - PodFixed represents the fixed resource overhead associated with running a pod. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Overhead -instance A.FromJSON V1Overhead where - parseJSON = A.withObject "V1Overhead" $ \o -> - V1Overhead - <$> (o .:? "podFixed") - --- | ToJSON V1Overhead -instance A.ToJSON V1Overhead where - toJSON V1Overhead {..} = - _omitNulls - [ "podFixed" .= v1OverheadPodFixed - ] - - --- | Construct a value of type 'V1Overhead' (by applying it's required fields, if any) -mkV1Overhead - :: V1Overhead -mkV1Overhead = - V1Overhead - { v1OverheadPodFixed = Nothing - } - --- ** V1OwnerReference --- | V1OwnerReference --- OwnerReference contains enough information to let you identify an owning object. An owning object must be in the same namespace as the dependent, or be cluster-scoped, so there is no namespace field. -data V1OwnerReference = V1OwnerReference - { v1OwnerReferenceApiVersion :: !(Text) -- ^ /Required/ "apiVersion" - API version of the referent. - , v1OwnerReferenceBlockOwnerDeletion :: !(Maybe Bool) -- ^ "blockOwnerDeletion" - If true, AND if the owner has the \"foregroundDeletion\" finalizer, then the owner cannot be deleted from the key-value store until this reference is removed. See https://kubernetes.io/docs/concepts/architecture/garbage-collection/#foreground-deletion for how the garbage collector interacts with this field and enforces the foreground deletion. Defaults to false. To set this field, a user needs \"delete\" permission of the owner, otherwise 422 (Unprocessable Entity) will be returned. - , v1OwnerReferenceController :: !(Maybe Bool) -- ^ "controller" - If true, this reference points to the managing controller. - , v1OwnerReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1OwnerReferenceName :: !(Text) -- ^ /Required/ "name" - Name of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#names - , v1OwnerReferenceUid :: !(Text) -- ^ /Required/ "uid" - UID of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#uids - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1OwnerReference -instance A.FromJSON V1OwnerReference where - parseJSON = A.withObject "V1OwnerReference" $ \o -> - V1OwnerReference - <$> (o .: "apiVersion") - <*> (o .:? "blockOwnerDeletion") - <*> (o .:? "controller") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .: "uid") - --- | ToJSON V1OwnerReference -instance A.ToJSON V1OwnerReference where - toJSON V1OwnerReference {..} = - _omitNulls - [ "apiVersion" .= v1OwnerReferenceApiVersion - , "blockOwnerDeletion" .= v1OwnerReferenceBlockOwnerDeletion - , "controller" .= v1OwnerReferenceController - , "kind" .= v1OwnerReferenceKind - , "name" .= v1OwnerReferenceName - , "uid" .= v1OwnerReferenceUid - ] - - --- | Construct a value of type 'V1OwnerReference' (by applying it's required fields, if any) -mkV1OwnerReference - :: Text -- ^ 'v1OwnerReferenceApiVersion': API version of the referent. - -> Text -- ^ 'v1OwnerReferenceKind': Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - -> Text -- ^ 'v1OwnerReferenceName': Name of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#names - -> Text -- ^ 'v1OwnerReferenceUid': UID of the referent. More info: http://kubernetes.io/docs/user-guide/identifiers#uids - -> V1OwnerReference -mkV1OwnerReference v1OwnerReferenceApiVersion v1OwnerReferenceKind v1OwnerReferenceName v1OwnerReferenceUid = - V1OwnerReference - { v1OwnerReferenceApiVersion - , v1OwnerReferenceBlockOwnerDeletion = Nothing - , v1OwnerReferenceController = Nothing - , v1OwnerReferenceKind - , v1OwnerReferenceName - , v1OwnerReferenceUid - } - --- ** V1PersistentVolume --- | V1PersistentVolume --- PersistentVolume (PV) is a storage resource provisioned by an administrator. It is analogous to a node. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes -data V1PersistentVolume = V1PersistentVolume - { v1PersistentVolumeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PersistentVolumeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PersistentVolumeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PersistentVolumeSpec :: !(Maybe V1PersistentVolumeSpec) -- ^ "spec" - , v1PersistentVolumeStatus :: !(Maybe V1PersistentVolumeStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolume -instance A.FromJSON V1PersistentVolume where - parseJSON = A.withObject "V1PersistentVolume" $ \o -> - V1PersistentVolume - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1PersistentVolume -instance A.ToJSON V1PersistentVolume where - toJSON V1PersistentVolume {..} = - _omitNulls - [ "apiVersion" .= v1PersistentVolumeApiVersion - , "kind" .= v1PersistentVolumeKind - , "metadata" .= v1PersistentVolumeMetadata - , "spec" .= v1PersistentVolumeSpec - , "status" .= v1PersistentVolumeStatus - ] - - --- | Construct a value of type 'V1PersistentVolume' (by applying it's required fields, if any) -mkV1PersistentVolume - :: V1PersistentVolume -mkV1PersistentVolume = - V1PersistentVolume - { v1PersistentVolumeApiVersion = Nothing - , v1PersistentVolumeKind = Nothing - , v1PersistentVolumeMetadata = Nothing - , v1PersistentVolumeSpec = Nothing - , v1PersistentVolumeStatus = Nothing - } - --- ** V1PersistentVolumeClaim --- | V1PersistentVolumeClaim --- PersistentVolumeClaim is a user's request for and claim to a persistent volume -data V1PersistentVolumeClaim = V1PersistentVolumeClaim - { v1PersistentVolumeClaimApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PersistentVolumeClaimKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PersistentVolumeClaimMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PersistentVolumeClaimSpec :: !(Maybe V1PersistentVolumeClaimSpec) -- ^ "spec" - , v1PersistentVolumeClaimStatus :: !(Maybe V1PersistentVolumeClaimStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaim -instance A.FromJSON V1PersistentVolumeClaim where - parseJSON = A.withObject "V1PersistentVolumeClaim" $ \o -> - V1PersistentVolumeClaim - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1PersistentVolumeClaim -instance A.ToJSON V1PersistentVolumeClaim where - toJSON V1PersistentVolumeClaim {..} = - _omitNulls - [ "apiVersion" .= v1PersistentVolumeClaimApiVersion - , "kind" .= v1PersistentVolumeClaimKind - , "metadata" .= v1PersistentVolumeClaimMetadata - , "spec" .= v1PersistentVolumeClaimSpec - , "status" .= v1PersistentVolumeClaimStatus - ] - - --- | Construct a value of type 'V1PersistentVolumeClaim' (by applying it's required fields, if any) -mkV1PersistentVolumeClaim - :: V1PersistentVolumeClaim -mkV1PersistentVolumeClaim = - V1PersistentVolumeClaim - { v1PersistentVolumeClaimApiVersion = Nothing - , v1PersistentVolumeClaimKind = Nothing - , v1PersistentVolumeClaimMetadata = Nothing - , v1PersistentVolumeClaimSpec = Nothing - , v1PersistentVolumeClaimStatus = Nothing - } - --- ** V1PersistentVolumeClaimCondition --- | V1PersistentVolumeClaimCondition --- PersistentVolumeClaimCondition contails details about state of pvc -data V1PersistentVolumeClaimCondition = V1PersistentVolumeClaimCondition - { v1PersistentVolumeClaimConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - lastProbeTime is the time we probed the condition. - , v1PersistentVolumeClaimConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the time the condition transitioned from one status to another. - , v1PersistentVolumeClaimConditionMessage :: !(Maybe Text) -- ^ "message" - message is the human-readable message indicating details about last transition. - , v1PersistentVolumeClaimConditionReason :: !(Maybe Text) -- ^ "reason" - reason is a unique, this should be a short, machine understandable string that gives the reason for condition's last transition. If it reports \"ResizeStarted\" that means the underlying persistent volume is being resized. - , v1PersistentVolumeClaimConditionStatus :: !(Text) -- ^ /Required/ "status" - , v1PersistentVolumeClaimConditionType :: !(Text) -- ^ /Required/ "type" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimCondition -instance A.FromJSON V1PersistentVolumeClaimCondition where - parseJSON = A.withObject "V1PersistentVolumeClaimCondition" $ \o -> - V1PersistentVolumeClaimCondition - <$> (o .:? "lastProbeTime") - <*> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1PersistentVolumeClaimCondition -instance A.ToJSON V1PersistentVolumeClaimCondition where - toJSON V1PersistentVolumeClaimCondition {..} = - _omitNulls - [ "lastProbeTime" .= v1PersistentVolumeClaimConditionLastProbeTime - , "lastTransitionTime" .= v1PersistentVolumeClaimConditionLastTransitionTime - , "message" .= v1PersistentVolumeClaimConditionMessage - , "reason" .= v1PersistentVolumeClaimConditionReason - , "status" .= v1PersistentVolumeClaimConditionStatus - , "type" .= v1PersistentVolumeClaimConditionType - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimCondition' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimCondition - :: Text -- ^ 'v1PersistentVolumeClaimConditionStatus' - -> Text -- ^ 'v1PersistentVolumeClaimConditionType' - -> V1PersistentVolumeClaimCondition -mkV1PersistentVolumeClaimCondition v1PersistentVolumeClaimConditionStatus v1PersistentVolumeClaimConditionType = - V1PersistentVolumeClaimCondition - { v1PersistentVolumeClaimConditionLastProbeTime = Nothing - , v1PersistentVolumeClaimConditionLastTransitionTime = Nothing - , v1PersistentVolumeClaimConditionMessage = Nothing - , v1PersistentVolumeClaimConditionReason = Nothing - , v1PersistentVolumeClaimConditionStatus - , v1PersistentVolumeClaimConditionType - } - --- ** V1PersistentVolumeClaimList --- | V1PersistentVolumeClaimList --- PersistentVolumeClaimList is a list of PersistentVolumeClaim items. -data V1PersistentVolumeClaimList = V1PersistentVolumeClaimList - { v1PersistentVolumeClaimListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PersistentVolumeClaimListItems :: !([V1PersistentVolumeClaim]) -- ^ /Required/ "items" - items is a list of persistent volume claims. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims - , v1PersistentVolumeClaimListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PersistentVolumeClaimListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimList -instance A.FromJSON V1PersistentVolumeClaimList where - parseJSON = A.withObject "V1PersistentVolumeClaimList" $ \o -> - V1PersistentVolumeClaimList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PersistentVolumeClaimList -instance A.ToJSON V1PersistentVolumeClaimList where - toJSON V1PersistentVolumeClaimList {..} = - _omitNulls - [ "apiVersion" .= v1PersistentVolumeClaimListApiVersion - , "items" .= v1PersistentVolumeClaimListItems - , "kind" .= v1PersistentVolumeClaimListKind - , "metadata" .= v1PersistentVolumeClaimListMetadata - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimList' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimList - :: [V1PersistentVolumeClaim] -- ^ 'v1PersistentVolumeClaimListItems': items is a list of persistent volume claims. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims - -> V1PersistentVolumeClaimList -mkV1PersistentVolumeClaimList v1PersistentVolumeClaimListItems = - V1PersistentVolumeClaimList - { v1PersistentVolumeClaimListApiVersion = Nothing - , v1PersistentVolumeClaimListItems - , v1PersistentVolumeClaimListKind = Nothing - , v1PersistentVolumeClaimListMetadata = Nothing - } - --- ** V1PersistentVolumeClaimSpec --- | V1PersistentVolumeClaimSpec --- PersistentVolumeClaimSpec describes the common attributes of storage devices and allows a Source for provider-specific attributes -data V1PersistentVolumeClaimSpec = V1PersistentVolumeClaimSpec - { v1PersistentVolumeClaimSpecAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains the desired access modes the volume should have. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes-1 - , v1PersistentVolumeClaimSpecDataSource :: !(Maybe V1TypedLocalObjectReference) -- ^ "dataSource" - , v1PersistentVolumeClaimSpecDataSourceRef :: !(Maybe V1TypedObjectReference) -- ^ "dataSourceRef" - , v1PersistentVolumeClaimSpecResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" - , v1PersistentVolumeClaimSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" - , v1PersistentVolumeClaimSpecStorageClassName :: !(Maybe Text) -- ^ "storageClassName" - storageClassName is the name of the StorageClass required by the claim. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#class-1 - , v1PersistentVolumeClaimSpecVolumeMode :: !(Maybe Text) -- ^ "volumeMode" - volumeMode defines what type of volume is required by the claim. Value of Filesystem is implied when not included in claim spec. - , v1PersistentVolumeClaimSpecVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the binding reference to the PersistentVolume backing this claim. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimSpec -instance A.FromJSON V1PersistentVolumeClaimSpec where - parseJSON = A.withObject "V1PersistentVolumeClaimSpec" $ \o -> - V1PersistentVolumeClaimSpec - <$> (o .:? "accessModes") - <*> (o .:? "dataSource") - <*> (o .:? "dataSourceRef") - <*> (o .:? "resources") - <*> (o .:? "selector") - <*> (o .:? "storageClassName") - <*> (o .:? "volumeMode") - <*> (o .:? "volumeName") - --- | ToJSON V1PersistentVolumeClaimSpec -instance A.ToJSON V1PersistentVolumeClaimSpec where - toJSON V1PersistentVolumeClaimSpec {..} = - _omitNulls - [ "accessModes" .= v1PersistentVolumeClaimSpecAccessModes - , "dataSource" .= v1PersistentVolumeClaimSpecDataSource - , "dataSourceRef" .= v1PersistentVolumeClaimSpecDataSourceRef - , "resources" .= v1PersistentVolumeClaimSpecResources - , "selector" .= v1PersistentVolumeClaimSpecSelector - , "storageClassName" .= v1PersistentVolumeClaimSpecStorageClassName - , "volumeMode" .= v1PersistentVolumeClaimSpecVolumeMode - , "volumeName" .= v1PersistentVolumeClaimSpecVolumeName - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimSpec' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimSpec - :: V1PersistentVolumeClaimSpec -mkV1PersistentVolumeClaimSpec = - V1PersistentVolumeClaimSpec - { v1PersistentVolumeClaimSpecAccessModes = Nothing - , v1PersistentVolumeClaimSpecDataSource = Nothing - , v1PersistentVolumeClaimSpecDataSourceRef = Nothing - , v1PersistentVolumeClaimSpecResources = Nothing - , v1PersistentVolumeClaimSpecSelector = Nothing - , v1PersistentVolumeClaimSpecStorageClassName = Nothing - , v1PersistentVolumeClaimSpecVolumeMode = Nothing - , v1PersistentVolumeClaimSpecVolumeName = Nothing - } - --- ** V1PersistentVolumeClaimStatus --- | V1PersistentVolumeClaimStatus --- PersistentVolumeClaimStatus is the current status of a persistent volume claim. -data V1PersistentVolumeClaimStatus = V1PersistentVolumeClaimStatus - { v1PersistentVolumeClaimStatusAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains the actual access modes the volume backing the PVC has. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes-1 - , v1PersistentVolumeClaimStatusAllocatedResources :: !(Maybe (Map.Map String Quantity)) -- ^ "allocatedResources" - allocatedResources is the storage resource within AllocatedResources tracks the capacity allocated to a PVC. It may be larger than the actual capacity when a volume expansion operation is requested. For storage quota, the larger value from allocatedResources and PVC.spec.resources is used. If allocatedResources is not set, PVC.spec.resources alone is used for quota calculation. If a volume expansion capacity request is lowered, allocatedResources is only lowered if there are no expansion operations in progress and if the actual volume capacity is equal or lower than the requested capacity. This is an alpha field and requires enabling RecoverVolumeExpansionFailure feature. - , v1PersistentVolumeClaimStatusCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - capacity represents the actual resources of the underlying volume. - , v1PersistentVolumeClaimStatusConditions :: !(Maybe [V1PersistentVolumeClaimCondition]) -- ^ "conditions" - conditions is the current Condition of persistent volume claim. If underlying persistent volume is being resized then the Condition will be set to 'ResizeStarted'. - , v1PersistentVolumeClaimStatusPhase :: !(Maybe Text) -- ^ "phase" - phase represents the current phase of PersistentVolumeClaim. - , v1PersistentVolumeClaimStatusResizeStatus :: !(Maybe Text) -- ^ "resizeStatus" - resizeStatus stores status of resize operation. ResizeStatus is not set by default but when expansion is complete resizeStatus is set to empty string by resize controller or kubelet. This is an alpha field and requires enabling RecoverVolumeExpansionFailure feature. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimStatus -instance A.FromJSON V1PersistentVolumeClaimStatus where - parseJSON = A.withObject "V1PersistentVolumeClaimStatus" $ \o -> - V1PersistentVolumeClaimStatus - <$> (o .:? "accessModes") - <*> (o .:? "allocatedResources") - <*> (o .:? "capacity") - <*> (o .:? "conditions") - <*> (o .:? "phase") - <*> (o .:? "resizeStatus") - --- | ToJSON V1PersistentVolumeClaimStatus -instance A.ToJSON V1PersistentVolumeClaimStatus where - toJSON V1PersistentVolumeClaimStatus {..} = - _omitNulls - [ "accessModes" .= v1PersistentVolumeClaimStatusAccessModes - , "allocatedResources" .= v1PersistentVolumeClaimStatusAllocatedResources - , "capacity" .= v1PersistentVolumeClaimStatusCapacity - , "conditions" .= v1PersistentVolumeClaimStatusConditions - , "phase" .= v1PersistentVolumeClaimStatusPhase - , "resizeStatus" .= v1PersistentVolumeClaimStatusResizeStatus - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimStatus' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimStatus - :: V1PersistentVolumeClaimStatus -mkV1PersistentVolumeClaimStatus = - V1PersistentVolumeClaimStatus - { v1PersistentVolumeClaimStatusAccessModes = Nothing - , v1PersistentVolumeClaimStatusAllocatedResources = Nothing - , v1PersistentVolumeClaimStatusCapacity = Nothing - , v1PersistentVolumeClaimStatusConditions = Nothing - , v1PersistentVolumeClaimStatusPhase = Nothing - , v1PersistentVolumeClaimStatusResizeStatus = Nothing - } - --- ** V1PersistentVolumeClaimTemplate --- | V1PersistentVolumeClaimTemplate --- PersistentVolumeClaimTemplate is used to produce PersistentVolumeClaim objects as part of an EphemeralVolumeSource. -data V1PersistentVolumeClaimTemplate = V1PersistentVolumeClaimTemplate - { v1PersistentVolumeClaimTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PersistentVolumeClaimTemplateSpec :: !(V1PersistentVolumeClaimSpec) -- ^ /Required/ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimTemplate -instance A.FromJSON V1PersistentVolumeClaimTemplate where - parseJSON = A.withObject "V1PersistentVolumeClaimTemplate" $ \o -> - V1PersistentVolumeClaimTemplate - <$> (o .:? "metadata") - <*> (o .: "spec") - --- | ToJSON V1PersistentVolumeClaimTemplate -instance A.ToJSON V1PersistentVolumeClaimTemplate where - toJSON V1PersistentVolumeClaimTemplate {..} = - _omitNulls - [ "metadata" .= v1PersistentVolumeClaimTemplateMetadata - , "spec" .= v1PersistentVolumeClaimTemplateSpec - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimTemplate' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimTemplate - :: V1PersistentVolumeClaimSpec -- ^ 'v1PersistentVolumeClaimTemplateSpec' - -> V1PersistentVolumeClaimTemplate -mkV1PersistentVolumeClaimTemplate v1PersistentVolumeClaimTemplateSpec = - V1PersistentVolumeClaimTemplate - { v1PersistentVolumeClaimTemplateMetadata = Nothing - , v1PersistentVolumeClaimTemplateSpec - } - --- ** V1PersistentVolumeClaimVolumeSource --- | V1PersistentVolumeClaimVolumeSource --- PersistentVolumeClaimVolumeSource references the user's PVC in the same namespace. This volume finds the bound PV and mounts that volume for the pod. A PersistentVolumeClaimVolumeSource is, essentially, a wrapper around another type of volume that is owned by someone else (the system). -data V1PersistentVolumeClaimVolumeSource = V1PersistentVolumeClaimVolumeSource - { v1PersistentVolumeClaimVolumeSourceClaimName :: !(Text) -- ^ /Required/ "claimName" - claimName is the name of a PersistentVolumeClaim in the same namespace as the pod using this volume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims - , v1PersistentVolumeClaimVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Will force the ReadOnly setting in VolumeMounts. Default false. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeClaimVolumeSource -instance A.FromJSON V1PersistentVolumeClaimVolumeSource where - parseJSON = A.withObject "V1PersistentVolumeClaimVolumeSource" $ \o -> - V1PersistentVolumeClaimVolumeSource - <$> (o .: "claimName") - <*> (o .:? "readOnly") - --- | ToJSON V1PersistentVolumeClaimVolumeSource -instance A.ToJSON V1PersistentVolumeClaimVolumeSource where - toJSON V1PersistentVolumeClaimVolumeSource {..} = - _omitNulls - [ "claimName" .= v1PersistentVolumeClaimVolumeSourceClaimName - , "readOnly" .= v1PersistentVolumeClaimVolumeSourceReadOnly - ] - - --- | Construct a value of type 'V1PersistentVolumeClaimVolumeSource' (by applying it's required fields, if any) -mkV1PersistentVolumeClaimVolumeSource - :: Text -- ^ 'v1PersistentVolumeClaimVolumeSourceClaimName': claimName is the name of a PersistentVolumeClaim in the same namespace as the pod using this volume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims - -> V1PersistentVolumeClaimVolumeSource -mkV1PersistentVolumeClaimVolumeSource v1PersistentVolumeClaimVolumeSourceClaimName = - V1PersistentVolumeClaimVolumeSource - { v1PersistentVolumeClaimVolumeSourceClaimName - , v1PersistentVolumeClaimVolumeSourceReadOnly = Nothing - } - --- ** V1PersistentVolumeList --- | V1PersistentVolumeList --- PersistentVolumeList is a list of PersistentVolume items. -data V1PersistentVolumeList = V1PersistentVolumeList - { v1PersistentVolumeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PersistentVolumeListItems :: !([V1PersistentVolume]) -- ^ /Required/ "items" - items is a list of persistent volumes. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes - , v1PersistentVolumeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PersistentVolumeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeList -instance A.FromJSON V1PersistentVolumeList where - parseJSON = A.withObject "V1PersistentVolumeList" $ \o -> - V1PersistentVolumeList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PersistentVolumeList -instance A.ToJSON V1PersistentVolumeList where - toJSON V1PersistentVolumeList {..} = - _omitNulls - [ "apiVersion" .= v1PersistentVolumeListApiVersion - , "items" .= v1PersistentVolumeListItems - , "kind" .= v1PersistentVolumeListKind - , "metadata" .= v1PersistentVolumeListMetadata - ] - - --- | Construct a value of type 'V1PersistentVolumeList' (by applying it's required fields, if any) -mkV1PersistentVolumeList - :: [V1PersistentVolume] -- ^ 'v1PersistentVolumeListItems': items is a list of persistent volumes. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes - -> V1PersistentVolumeList -mkV1PersistentVolumeList v1PersistentVolumeListItems = - V1PersistentVolumeList - { v1PersistentVolumeListApiVersion = Nothing - , v1PersistentVolumeListItems - , v1PersistentVolumeListKind = Nothing - , v1PersistentVolumeListMetadata = Nothing - } - --- ** V1PersistentVolumeSpec --- | V1PersistentVolumeSpec --- PersistentVolumeSpec is the specification of a persistent volume. -data V1PersistentVolumeSpec = V1PersistentVolumeSpec - { v1PersistentVolumeSpecAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains all ways the volume can be mounted. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes - , v1PersistentVolumeSpecAwsElasticBlockStore :: !(Maybe V1AWSElasticBlockStoreVolumeSource) -- ^ "awsElasticBlockStore" - , v1PersistentVolumeSpecAzureDisk :: !(Maybe V1AzureDiskVolumeSource) -- ^ "azureDisk" - , v1PersistentVolumeSpecAzureFile :: !(Maybe V1AzureFilePersistentVolumeSource) -- ^ "azureFile" - , v1PersistentVolumeSpecCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - capacity is the description of the persistent volume's resources and capacity. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#capacity - , v1PersistentVolumeSpecCephfs :: !(Maybe V1CephFSPersistentVolumeSource) -- ^ "cephfs" - , v1PersistentVolumeSpecCinder :: !(Maybe V1CinderPersistentVolumeSource) -- ^ "cinder" - , v1PersistentVolumeSpecClaimRef :: !(Maybe V1ObjectReference) -- ^ "claimRef" - , v1PersistentVolumeSpecCsi :: !(Maybe V1CSIPersistentVolumeSource) -- ^ "csi" - , v1PersistentVolumeSpecFc :: !(Maybe V1FCVolumeSource) -- ^ "fc" - , v1PersistentVolumeSpecFlexVolume :: !(Maybe V1FlexPersistentVolumeSource) -- ^ "flexVolume" - , v1PersistentVolumeSpecFlocker :: !(Maybe V1FlockerVolumeSource) -- ^ "flocker" - , v1PersistentVolumeSpecGcePersistentDisk :: !(Maybe V1GCEPersistentDiskVolumeSource) -- ^ "gcePersistentDisk" - , v1PersistentVolumeSpecGlusterfs :: !(Maybe V1GlusterfsPersistentVolumeSource) -- ^ "glusterfs" - , v1PersistentVolumeSpecHostPath :: !(Maybe V1HostPathVolumeSource) -- ^ "hostPath" - , v1PersistentVolumeSpecIscsi :: !(Maybe V1ISCSIPersistentVolumeSource) -- ^ "iscsi" - , v1PersistentVolumeSpecLocal :: !(Maybe V1LocalVolumeSource) -- ^ "local" - , v1PersistentVolumeSpecMountOptions :: !(Maybe [Text]) -- ^ "mountOptions" - mountOptions is the list of mount options, e.g. [\"ro\", \"soft\"]. Not validated - mount will simply fail if one is invalid. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes/#mount-options - , v1PersistentVolumeSpecNfs :: !(Maybe V1NFSVolumeSource) -- ^ "nfs" - , v1PersistentVolumeSpecNodeAffinity :: !(Maybe V1VolumeNodeAffinity) -- ^ "nodeAffinity" - , v1PersistentVolumeSpecPersistentVolumeReclaimPolicy :: !(Maybe Text) -- ^ "persistentVolumeReclaimPolicy" - persistentVolumeReclaimPolicy defines what happens to a persistent volume when released from its claim. Valid options are Retain (default for manually created PersistentVolumes), Delete (default for dynamically provisioned PersistentVolumes), and Recycle (deprecated). Recycle must be supported by the volume plugin underlying this PersistentVolume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#reclaiming - , v1PersistentVolumeSpecPhotonPersistentDisk :: !(Maybe V1PhotonPersistentDiskVolumeSource) -- ^ "photonPersistentDisk" - , v1PersistentVolumeSpecPortworxVolume :: !(Maybe V1PortworxVolumeSource) -- ^ "portworxVolume" - , v1PersistentVolumeSpecQuobyte :: !(Maybe V1QuobyteVolumeSource) -- ^ "quobyte" - , v1PersistentVolumeSpecRbd :: !(Maybe V1RBDPersistentVolumeSource) -- ^ "rbd" - , v1PersistentVolumeSpecScaleIo :: !(Maybe V1ScaleIOPersistentVolumeSource) -- ^ "scaleIO" - , v1PersistentVolumeSpecStorageClassName :: !(Maybe Text) -- ^ "storageClassName" - storageClassName is the name of StorageClass to which this persistent volume belongs. Empty value means that this volume does not belong to any StorageClass. - , v1PersistentVolumeSpecStorageos :: !(Maybe V1StorageOSPersistentVolumeSource) -- ^ "storageos" - , v1PersistentVolumeSpecVolumeMode :: !(Maybe Text) -- ^ "volumeMode" - volumeMode defines if a volume is intended to be used with a formatted filesystem or to remain in raw block state. Value of Filesystem is implied when not included in spec. - , v1PersistentVolumeSpecVsphereVolume :: !(Maybe V1VsphereVirtualDiskVolumeSource) -- ^ "vsphereVolume" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeSpec -instance A.FromJSON V1PersistentVolumeSpec where - parseJSON = A.withObject "V1PersistentVolumeSpec" $ \o -> - V1PersistentVolumeSpec - <$> (o .:? "accessModes") - <*> (o .:? "awsElasticBlockStore") - <*> (o .:? "azureDisk") - <*> (o .:? "azureFile") - <*> (o .:? "capacity") - <*> (o .:? "cephfs") - <*> (o .:? "cinder") - <*> (o .:? "claimRef") - <*> (o .:? "csi") - <*> (o .:? "fc") - <*> (o .:? "flexVolume") - <*> (o .:? "flocker") - <*> (o .:? "gcePersistentDisk") - <*> (o .:? "glusterfs") - <*> (o .:? "hostPath") - <*> (o .:? "iscsi") - <*> (o .:? "local") - <*> (o .:? "mountOptions") - <*> (o .:? "nfs") - <*> (o .:? "nodeAffinity") - <*> (o .:? "persistentVolumeReclaimPolicy") - <*> (o .:? "photonPersistentDisk") - <*> (o .:? "portworxVolume") - <*> (o .:? "quobyte") - <*> (o .:? "rbd") - <*> (o .:? "scaleIO") - <*> (o .:? "storageClassName") - <*> (o .:? "storageos") - <*> (o .:? "volumeMode") - <*> (o .:? "vsphereVolume") - --- | ToJSON V1PersistentVolumeSpec -instance A.ToJSON V1PersistentVolumeSpec where - toJSON V1PersistentVolumeSpec {..} = - _omitNulls - [ "accessModes" .= v1PersistentVolumeSpecAccessModes - , "awsElasticBlockStore" .= v1PersistentVolumeSpecAwsElasticBlockStore - , "azureDisk" .= v1PersistentVolumeSpecAzureDisk - , "azureFile" .= v1PersistentVolumeSpecAzureFile - , "capacity" .= v1PersistentVolumeSpecCapacity - , "cephfs" .= v1PersistentVolumeSpecCephfs - , "cinder" .= v1PersistentVolumeSpecCinder - , "claimRef" .= v1PersistentVolumeSpecClaimRef - , "csi" .= v1PersistentVolumeSpecCsi - , "fc" .= v1PersistentVolumeSpecFc - , "flexVolume" .= v1PersistentVolumeSpecFlexVolume - , "flocker" .= v1PersistentVolumeSpecFlocker - , "gcePersistentDisk" .= v1PersistentVolumeSpecGcePersistentDisk - , "glusterfs" .= v1PersistentVolumeSpecGlusterfs - , "hostPath" .= v1PersistentVolumeSpecHostPath - , "iscsi" .= v1PersistentVolumeSpecIscsi - , "local" .= v1PersistentVolumeSpecLocal - , "mountOptions" .= v1PersistentVolumeSpecMountOptions - , "nfs" .= v1PersistentVolumeSpecNfs - , "nodeAffinity" .= v1PersistentVolumeSpecNodeAffinity - , "persistentVolumeReclaimPolicy" .= v1PersistentVolumeSpecPersistentVolumeReclaimPolicy - , "photonPersistentDisk" .= v1PersistentVolumeSpecPhotonPersistentDisk - , "portworxVolume" .= v1PersistentVolumeSpecPortworxVolume - , "quobyte" .= v1PersistentVolumeSpecQuobyte - , "rbd" .= v1PersistentVolumeSpecRbd - , "scaleIO" .= v1PersistentVolumeSpecScaleIo - , "storageClassName" .= v1PersistentVolumeSpecStorageClassName - , "storageos" .= v1PersistentVolumeSpecStorageos - , "volumeMode" .= v1PersistentVolumeSpecVolumeMode - , "vsphereVolume" .= v1PersistentVolumeSpecVsphereVolume - ] - - --- | Construct a value of type 'V1PersistentVolumeSpec' (by applying it's required fields, if any) -mkV1PersistentVolumeSpec - :: V1PersistentVolumeSpec -mkV1PersistentVolumeSpec = - V1PersistentVolumeSpec - { v1PersistentVolumeSpecAccessModes = Nothing - , v1PersistentVolumeSpecAwsElasticBlockStore = Nothing - , v1PersistentVolumeSpecAzureDisk = Nothing - , v1PersistentVolumeSpecAzureFile = Nothing - , v1PersistentVolumeSpecCapacity = Nothing - , v1PersistentVolumeSpecCephfs = Nothing - , v1PersistentVolumeSpecCinder = Nothing - , v1PersistentVolumeSpecClaimRef = Nothing - , v1PersistentVolumeSpecCsi = Nothing - , v1PersistentVolumeSpecFc = Nothing - , v1PersistentVolumeSpecFlexVolume = Nothing - , v1PersistentVolumeSpecFlocker = Nothing - , v1PersistentVolumeSpecGcePersistentDisk = Nothing - , v1PersistentVolumeSpecGlusterfs = Nothing - , v1PersistentVolumeSpecHostPath = Nothing - , v1PersistentVolumeSpecIscsi = Nothing - , v1PersistentVolumeSpecLocal = Nothing - , v1PersistentVolumeSpecMountOptions = Nothing - , v1PersistentVolumeSpecNfs = Nothing - , v1PersistentVolumeSpecNodeAffinity = Nothing - , v1PersistentVolumeSpecPersistentVolumeReclaimPolicy = Nothing - , v1PersistentVolumeSpecPhotonPersistentDisk = Nothing - , v1PersistentVolumeSpecPortworxVolume = Nothing - , v1PersistentVolumeSpecQuobyte = Nothing - , v1PersistentVolumeSpecRbd = Nothing - , v1PersistentVolumeSpecScaleIo = Nothing - , v1PersistentVolumeSpecStorageClassName = Nothing - , v1PersistentVolumeSpecStorageos = Nothing - , v1PersistentVolumeSpecVolumeMode = Nothing - , v1PersistentVolumeSpecVsphereVolume = Nothing - } - --- ** V1PersistentVolumeStatus --- | V1PersistentVolumeStatus --- PersistentVolumeStatus is the current status of a persistent volume. -data V1PersistentVolumeStatus = V1PersistentVolumeStatus - { v1PersistentVolumeStatusMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable message indicating details about why the volume is in this state. - , v1PersistentVolumeStatusPhase :: !(Maybe Text) -- ^ "phase" - phase indicates if a volume is available, bound to a claim, or released by a claim. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#phase - , v1PersistentVolumeStatusReason :: !(Maybe Text) -- ^ "reason" - reason is a brief CamelCase string that describes any failure and is meant for machine parsing and tidy display in the CLI. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PersistentVolumeStatus -instance A.FromJSON V1PersistentVolumeStatus where - parseJSON = A.withObject "V1PersistentVolumeStatus" $ \o -> - V1PersistentVolumeStatus - <$> (o .:? "message") - <*> (o .:? "phase") - <*> (o .:? "reason") - --- | ToJSON V1PersistentVolumeStatus -instance A.ToJSON V1PersistentVolumeStatus where - toJSON V1PersistentVolumeStatus {..} = - _omitNulls - [ "message" .= v1PersistentVolumeStatusMessage - , "phase" .= v1PersistentVolumeStatusPhase - , "reason" .= v1PersistentVolumeStatusReason - ] - - --- | Construct a value of type 'V1PersistentVolumeStatus' (by applying it's required fields, if any) -mkV1PersistentVolumeStatus - :: V1PersistentVolumeStatus -mkV1PersistentVolumeStatus = - V1PersistentVolumeStatus - { v1PersistentVolumeStatusMessage = Nothing - , v1PersistentVolumeStatusPhase = Nothing - , v1PersistentVolumeStatusReason = Nothing - } - --- ** V1PhotonPersistentDiskVolumeSource --- | V1PhotonPersistentDiskVolumeSource --- Represents a Photon Controller persistent disk resource. -data V1PhotonPersistentDiskVolumeSource = V1PhotonPersistentDiskVolumeSource - { v1PhotonPersistentDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1PhotonPersistentDiskVolumeSourcePdId :: !(Text) -- ^ /Required/ "pdID" - pdID is the ID that identifies Photon Controller persistent disk - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PhotonPersistentDiskVolumeSource -instance A.FromJSON V1PhotonPersistentDiskVolumeSource where - parseJSON = A.withObject "V1PhotonPersistentDiskVolumeSource" $ \o -> - V1PhotonPersistentDiskVolumeSource - <$> (o .:? "fsType") - <*> (o .: "pdID") - --- | ToJSON V1PhotonPersistentDiskVolumeSource -instance A.ToJSON V1PhotonPersistentDiskVolumeSource where - toJSON V1PhotonPersistentDiskVolumeSource {..} = - _omitNulls - [ "fsType" .= v1PhotonPersistentDiskVolumeSourceFsType - , "pdID" .= v1PhotonPersistentDiskVolumeSourcePdId - ] - - --- | Construct a value of type 'V1PhotonPersistentDiskVolumeSource' (by applying it's required fields, if any) -mkV1PhotonPersistentDiskVolumeSource - :: Text -- ^ 'v1PhotonPersistentDiskVolumeSourcePdId': pdID is the ID that identifies Photon Controller persistent disk - -> V1PhotonPersistentDiskVolumeSource -mkV1PhotonPersistentDiskVolumeSource v1PhotonPersistentDiskVolumeSourcePdId = - V1PhotonPersistentDiskVolumeSource - { v1PhotonPersistentDiskVolumeSourceFsType = Nothing - , v1PhotonPersistentDiskVolumeSourcePdId - } - --- ** V1Pod --- | V1Pod --- Pod is a collection of containers that can run on a host. This resource is created by clients and scheduled onto hosts. -data V1Pod = V1Pod - { v1PodApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PodSpec :: !(Maybe V1PodSpec) -- ^ "spec" - , v1PodStatus :: !(Maybe V1PodStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Pod -instance A.FromJSON V1Pod where - parseJSON = A.withObject "V1Pod" $ \o -> - V1Pod - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Pod -instance A.ToJSON V1Pod where - toJSON V1Pod {..} = - _omitNulls - [ "apiVersion" .= v1PodApiVersion - , "kind" .= v1PodKind - , "metadata" .= v1PodMetadata - , "spec" .= v1PodSpec - , "status" .= v1PodStatus - ] - - --- | Construct a value of type 'V1Pod' (by applying it's required fields, if any) -mkV1Pod - :: V1Pod -mkV1Pod = - V1Pod - { v1PodApiVersion = Nothing - , v1PodKind = Nothing - , v1PodMetadata = Nothing - , v1PodSpec = Nothing - , v1PodStatus = Nothing - } - --- ** V1PodAffinity --- | V1PodAffinity --- Pod affinity is a group of inter pod affinity scheduling rules. -data V1PodAffinity = V1PodAffinity - { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1WeightedPodAffinityTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node has pods which matches the corresponding podAffinityTerm; the node(s) with the highest sum are the most preferred. - , v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PodAffinityTerm]) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" - If the affinity requirements specified by this field are not met at scheduling time, the pod will not be scheduled onto the node. If the affinity requirements specified by this field cease to be met at some point during pod execution (e.g. due to a pod label update), the system may or may not try to eventually evict the pod from its node. When there are multiple elements, the lists of nodes corresponding to each podAffinityTerm are intersected, i.e. all terms must be satisfied. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodAffinity -instance A.FromJSON V1PodAffinity where - parseJSON = A.withObject "V1PodAffinity" $ \o -> - V1PodAffinity - <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") - <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") - --- | ToJSON V1PodAffinity -instance A.ToJSON V1PodAffinity where - toJSON V1PodAffinity {..} = - _omitNulls - [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution - , "requiredDuringSchedulingIgnoredDuringExecution" .= v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution - ] - - --- | Construct a value of type 'V1PodAffinity' (by applying it's required fields, if any) -mkV1PodAffinity - :: V1PodAffinity -mkV1PodAffinity = - V1PodAffinity - { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing - , v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing - } - --- ** V1PodAffinityTerm --- | V1PodAffinityTerm --- Defines a set of pods (namely those matching the labelSelector relative to the given namespace(s)) that this pod should be co-located (affinity) or not co-located (anti-affinity) with, where co-located is defined as running on a node whose value of the label with key matches that of any node on which a pod of the set of pods is running -data V1PodAffinityTerm = V1PodAffinityTerm - { v1PodAffinityTermLabelSelector :: !(Maybe V1LabelSelector) -- ^ "labelSelector" - , v1PodAffinityTermNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" - , v1PodAffinityTermNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - namespaces specifies a static list of namespace names that the term applies to. The term is applied to the union of the namespaces listed in this field and the ones selected by namespaceSelector. null or empty namespaces list and null namespaceSelector means \"this pod's namespace\". - , v1PodAffinityTermTopologyKey :: !(Text) -- ^ /Required/ "topologyKey" - This pod should be co-located (affinity) or not co-located (anti-affinity) with the pods matching the labelSelector in the specified namespaces, where co-located is defined as running on a node whose value of the label with key topologyKey matches that of any node on which any of the selected pods is running. Empty topologyKey is not allowed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodAffinityTerm -instance A.FromJSON V1PodAffinityTerm where - parseJSON = A.withObject "V1PodAffinityTerm" $ \o -> - V1PodAffinityTerm - <$> (o .:? "labelSelector") - <*> (o .:? "namespaceSelector") - <*> (o .:? "namespaces") - <*> (o .: "topologyKey") - --- | ToJSON V1PodAffinityTerm -instance A.ToJSON V1PodAffinityTerm where - toJSON V1PodAffinityTerm {..} = - _omitNulls - [ "labelSelector" .= v1PodAffinityTermLabelSelector - , "namespaceSelector" .= v1PodAffinityTermNamespaceSelector - , "namespaces" .= v1PodAffinityTermNamespaces - , "topologyKey" .= v1PodAffinityTermTopologyKey - ] - - --- | Construct a value of type 'V1PodAffinityTerm' (by applying it's required fields, if any) -mkV1PodAffinityTerm - :: Text -- ^ 'v1PodAffinityTermTopologyKey': This pod should be co-located (affinity) or not co-located (anti-affinity) with the pods matching the labelSelector in the specified namespaces, where co-located is defined as running on a node whose value of the label with key topologyKey matches that of any node on which any of the selected pods is running. Empty topologyKey is not allowed. - -> V1PodAffinityTerm -mkV1PodAffinityTerm v1PodAffinityTermTopologyKey = - V1PodAffinityTerm - { v1PodAffinityTermLabelSelector = Nothing - , v1PodAffinityTermNamespaceSelector = Nothing - , v1PodAffinityTermNamespaces = Nothing - , v1PodAffinityTermTopologyKey - } - --- ** V1PodAntiAffinity --- | V1PodAntiAffinity --- Pod anti affinity is a group of inter pod anti affinity scheduling rules. -data V1PodAntiAffinity = V1PodAntiAffinity - { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1WeightedPodAffinityTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the anti-affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling anti-affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node has pods which matches the corresponding podAffinityTerm; the node(s) with the highest sum are the most preferred. - , v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PodAffinityTerm]) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" - If the anti-affinity requirements specified by this field are not met at scheduling time, the pod will not be scheduled onto the node. If the anti-affinity requirements specified by this field cease to be met at some point during pod execution (e.g. due to a pod label update), the system may or may not try to eventually evict the pod from its node. When there are multiple elements, the lists of nodes corresponding to each podAffinityTerm are intersected, i.e. all terms must be satisfied. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodAntiAffinity -instance A.FromJSON V1PodAntiAffinity where - parseJSON = A.withObject "V1PodAntiAffinity" $ \o -> - V1PodAntiAffinity - <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") - <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") - --- | ToJSON V1PodAntiAffinity -instance A.ToJSON V1PodAntiAffinity where - toJSON V1PodAntiAffinity {..} = - _omitNulls - [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution - , "requiredDuringSchedulingIgnoredDuringExecution" .= v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution - ] - - --- | Construct a value of type 'V1PodAntiAffinity' (by applying it's required fields, if any) -mkV1PodAntiAffinity - :: V1PodAntiAffinity -mkV1PodAntiAffinity = - V1PodAntiAffinity - { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing - , v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing - } - --- ** V1PodCondition --- | V1PodCondition --- PodCondition contains details for the current condition of this pod. -data V1PodCondition = V1PodCondition - { v1PodConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - Last time we probed the condition. - , v1PodConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1PodConditionMessage :: !(Maybe Text) -- ^ "message" - Human-readable message indicating details about last transition. - , v1PodConditionReason :: !(Maybe Text) -- ^ "reason" - Unique, one-word, CamelCase reason for the condition's last transition. - , v1PodConditionStatus :: !(Text) -- ^ /Required/ "status" - Status is the status of the condition. Can be True, False, Unknown. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions - , v1PodConditionType :: !(Text) -- ^ /Required/ "type" - Type is the type of the condition. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodCondition -instance A.FromJSON V1PodCondition where - parseJSON = A.withObject "V1PodCondition" $ \o -> - V1PodCondition - <$> (o .:? "lastProbeTime") - <*> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1PodCondition -instance A.ToJSON V1PodCondition where - toJSON V1PodCondition {..} = - _omitNulls - [ "lastProbeTime" .= v1PodConditionLastProbeTime - , "lastTransitionTime" .= v1PodConditionLastTransitionTime - , "message" .= v1PodConditionMessage - , "reason" .= v1PodConditionReason - , "status" .= v1PodConditionStatus - , "type" .= v1PodConditionType - ] - - --- | Construct a value of type 'V1PodCondition' (by applying it's required fields, if any) -mkV1PodCondition - :: Text -- ^ 'v1PodConditionStatus': Status is the status of the condition. Can be True, False, Unknown. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions - -> Text -- ^ 'v1PodConditionType': Type is the type of the condition. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions - -> V1PodCondition -mkV1PodCondition v1PodConditionStatus v1PodConditionType = - V1PodCondition - { v1PodConditionLastProbeTime = Nothing - , v1PodConditionLastTransitionTime = Nothing - , v1PodConditionMessage = Nothing - , v1PodConditionReason = Nothing - , v1PodConditionStatus - , v1PodConditionType - } - --- ** V1PodDNSConfig --- | V1PodDNSConfig --- PodDNSConfig defines the DNS parameters of a pod in addition to those generated from DNSPolicy. -data V1PodDNSConfig = V1PodDNSConfig - { v1PodDNSConfigNameservers :: !(Maybe [Text]) -- ^ "nameservers" - A list of DNS name server IP addresses. This will be appended to the base nameservers generated from DNSPolicy. Duplicated nameservers will be removed. - , v1PodDNSConfigOptions :: !(Maybe [V1PodDNSConfigOption]) -- ^ "options" - A list of DNS resolver options. This will be merged with the base options generated from DNSPolicy. Duplicated entries will be removed. Resolution options given in Options will override those that appear in the base DNSPolicy. - , v1PodDNSConfigSearches :: !(Maybe [Text]) -- ^ "searches" - A list of DNS search domains for host-name lookup. This will be appended to the base search paths generated from DNSPolicy. Duplicated search paths will be removed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDNSConfig -instance A.FromJSON V1PodDNSConfig where - parseJSON = A.withObject "V1PodDNSConfig" $ \o -> - V1PodDNSConfig - <$> (o .:? "nameservers") - <*> (o .:? "options") - <*> (o .:? "searches") - --- | ToJSON V1PodDNSConfig -instance A.ToJSON V1PodDNSConfig where - toJSON V1PodDNSConfig {..} = - _omitNulls - [ "nameservers" .= v1PodDNSConfigNameservers - , "options" .= v1PodDNSConfigOptions - , "searches" .= v1PodDNSConfigSearches - ] - - --- | Construct a value of type 'V1PodDNSConfig' (by applying it's required fields, if any) -mkV1PodDNSConfig - :: V1PodDNSConfig -mkV1PodDNSConfig = - V1PodDNSConfig - { v1PodDNSConfigNameservers = Nothing - , v1PodDNSConfigOptions = Nothing - , v1PodDNSConfigSearches = Nothing - } - --- ** V1PodDNSConfigOption --- | V1PodDNSConfigOption --- PodDNSConfigOption defines DNS resolver options of a pod. -data V1PodDNSConfigOption = V1PodDNSConfigOption - { v1PodDNSConfigOptionName :: !(Maybe Text) -- ^ "name" - Required. - , v1PodDNSConfigOptionValue :: !(Maybe Text) -- ^ "value" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDNSConfigOption -instance A.FromJSON V1PodDNSConfigOption where - parseJSON = A.withObject "V1PodDNSConfigOption" $ \o -> - V1PodDNSConfigOption - <$> (o .:? "name") - <*> (o .:? "value") - --- | ToJSON V1PodDNSConfigOption -instance A.ToJSON V1PodDNSConfigOption where - toJSON V1PodDNSConfigOption {..} = - _omitNulls - [ "name" .= v1PodDNSConfigOptionName - , "value" .= v1PodDNSConfigOptionValue - ] - - --- | Construct a value of type 'V1PodDNSConfigOption' (by applying it's required fields, if any) -mkV1PodDNSConfigOption - :: V1PodDNSConfigOption -mkV1PodDNSConfigOption = - V1PodDNSConfigOption - { v1PodDNSConfigOptionName = Nothing - , v1PodDNSConfigOptionValue = Nothing - } - --- ** V1PodDisruptionBudget --- | V1PodDisruptionBudget --- PodDisruptionBudget is an object to define the max disruption that can be caused to a collection of pods -data V1PodDisruptionBudget = V1PodDisruptionBudget - { v1PodDisruptionBudgetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodDisruptionBudgetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodDisruptionBudgetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PodDisruptionBudgetSpec :: !(Maybe V1PodDisruptionBudgetSpec) -- ^ "spec" - , v1PodDisruptionBudgetStatus :: !(Maybe V1PodDisruptionBudgetStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDisruptionBudget -instance A.FromJSON V1PodDisruptionBudget where - parseJSON = A.withObject "V1PodDisruptionBudget" $ \o -> - V1PodDisruptionBudget - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1PodDisruptionBudget -instance A.ToJSON V1PodDisruptionBudget where - toJSON V1PodDisruptionBudget {..} = - _omitNulls - [ "apiVersion" .= v1PodDisruptionBudgetApiVersion - , "kind" .= v1PodDisruptionBudgetKind - , "metadata" .= v1PodDisruptionBudgetMetadata - , "spec" .= v1PodDisruptionBudgetSpec - , "status" .= v1PodDisruptionBudgetStatus - ] - - --- | Construct a value of type 'V1PodDisruptionBudget' (by applying it's required fields, if any) -mkV1PodDisruptionBudget - :: V1PodDisruptionBudget -mkV1PodDisruptionBudget = - V1PodDisruptionBudget - { v1PodDisruptionBudgetApiVersion = Nothing - , v1PodDisruptionBudgetKind = Nothing - , v1PodDisruptionBudgetMetadata = Nothing - , v1PodDisruptionBudgetSpec = Nothing - , v1PodDisruptionBudgetStatus = Nothing - } - --- ** V1PodDisruptionBudgetList --- | V1PodDisruptionBudgetList --- PodDisruptionBudgetList is a collection of PodDisruptionBudgets. -data V1PodDisruptionBudgetList = V1PodDisruptionBudgetList - { v1PodDisruptionBudgetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodDisruptionBudgetListItems :: !([V1PodDisruptionBudget]) -- ^ /Required/ "items" - Items is a list of PodDisruptionBudgets - , v1PodDisruptionBudgetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodDisruptionBudgetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDisruptionBudgetList -instance A.FromJSON V1PodDisruptionBudgetList where - parseJSON = A.withObject "V1PodDisruptionBudgetList" $ \o -> - V1PodDisruptionBudgetList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PodDisruptionBudgetList -instance A.ToJSON V1PodDisruptionBudgetList where - toJSON V1PodDisruptionBudgetList {..} = - _omitNulls - [ "apiVersion" .= v1PodDisruptionBudgetListApiVersion - , "items" .= v1PodDisruptionBudgetListItems - , "kind" .= v1PodDisruptionBudgetListKind - , "metadata" .= v1PodDisruptionBudgetListMetadata - ] - - --- | Construct a value of type 'V1PodDisruptionBudgetList' (by applying it's required fields, if any) -mkV1PodDisruptionBudgetList - :: [V1PodDisruptionBudget] -- ^ 'v1PodDisruptionBudgetListItems': Items is a list of PodDisruptionBudgets - -> V1PodDisruptionBudgetList -mkV1PodDisruptionBudgetList v1PodDisruptionBudgetListItems = - V1PodDisruptionBudgetList - { v1PodDisruptionBudgetListApiVersion = Nothing - , v1PodDisruptionBudgetListItems - , v1PodDisruptionBudgetListKind = Nothing - , v1PodDisruptionBudgetListMetadata = Nothing - } - --- ** V1PodDisruptionBudgetSpec --- | V1PodDisruptionBudgetSpec --- PodDisruptionBudgetSpec is a description of a PodDisruptionBudget. -data V1PodDisruptionBudgetSpec = V1PodDisruptionBudgetSpec - { v1PodDisruptionBudgetSpecMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" - , v1PodDisruptionBudgetSpecMinAvailable :: !(Maybe IntOrString) -- ^ "minAvailable" - , v1PodDisruptionBudgetSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" - , v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy :: !(Maybe Text) -- ^ "unhealthyPodEvictionPolicy" - UnhealthyPodEvictionPolicy defines the criteria for when unhealthy pods should be considered for eviction. Current implementation considers healthy pods, as pods that have status.conditions item with type=\"Ready\",status=\"True\". Valid policies are IfHealthyBudget and AlwaysAllow. If no policy is specified, the default behavior will be used, which corresponds to the IfHealthyBudget policy. IfHealthyBudget policy means that running pods (status.phase=\"Running\"), but not yet healthy can be evicted only if the guarded application is not disrupted (status.currentHealthy is at least equal to status.desiredHealthy). Healthy pods will be subject to the PDB for eviction. AlwaysAllow policy means that all running pods (status.phase=\"Running\"), but not yet healthy are considered disrupted and can be evicted regardless of whether the criteria in a PDB is met. This means perspective running pods of a disrupted application might not get a chance to become healthy. Healthy pods will be subject to the PDB for eviction. Additional policies may be added in the future. Clients making eviction decisions should disallow eviction of unhealthy pods if they encounter an unrecognized policy in this field. This field is alpha-level. The eviction API uses this field when the feature gate PDBUnhealthyPodEvictionPolicy is enabled (disabled by default). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDisruptionBudgetSpec -instance A.FromJSON V1PodDisruptionBudgetSpec where - parseJSON = A.withObject "V1PodDisruptionBudgetSpec" $ \o -> - V1PodDisruptionBudgetSpec - <$> (o .:? "maxUnavailable") - <*> (o .:? "minAvailable") - <*> (o .:? "selector") - <*> (o .:? "unhealthyPodEvictionPolicy") - --- | ToJSON V1PodDisruptionBudgetSpec -instance A.ToJSON V1PodDisruptionBudgetSpec where - toJSON V1PodDisruptionBudgetSpec {..} = - _omitNulls - [ "maxUnavailable" .= v1PodDisruptionBudgetSpecMaxUnavailable - , "minAvailable" .= v1PodDisruptionBudgetSpecMinAvailable - , "selector" .= v1PodDisruptionBudgetSpecSelector - , "unhealthyPodEvictionPolicy" .= v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy - ] - - --- | Construct a value of type 'V1PodDisruptionBudgetSpec' (by applying it's required fields, if any) -mkV1PodDisruptionBudgetSpec - :: V1PodDisruptionBudgetSpec -mkV1PodDisruptionBudgetSpec = - V1PodDisruptionBudgetSpec - { v1PodDisruptionBudgetSpecMaxUnavailable = Nothing - , v1PodDisruptionBudgetSpecMinAvailable = Nothing - , v1PodDisruptionBudgetSpecSelector = Nothing - , v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy = Nothing - } - --- ** V1PodDisruptionBudgetStatus --- | V1PodDisruptionBudgetStatus --- PodDisruptionBudgetStatus represents information about the status of a PodDisruptionBudget. Status may trail the actual state of a system. -data V1PodDisruptionBudgetStatus = V1PodDisruptionBudgetStatus - { v1PodDisruptionBudgetStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - Conditions contain conditions for PDB. The disruption controller sets the DisruptionAllowed condition. The following are known values for the reason field (additional reasons could be added in the future): - SyncFailed: The controller encountered an error and wasn't able to compute the number of allowed disruptions. Therefore no disruptions are allowed and the status of the condition will be False. - InsufficientPods: The number of pods are either at or below the number required by the PodDisruptionBudget. No disruptions are allowed and the status of the condition will be False. - SufficientPods: There are more pods than required by the PodDisruptionBudget. The condition will be True, and the number of allowed disruptions are provided by the disruptionsAllowed property. - , v1PodDisruptionBudgetStatusCurrentHealthy :: !(Int) -- ^ /Required/ "currentHealthy" - current number of healthy pods - , v1PodDisruptionBudgetStatusDesiredHealthy :: !(Int) -- ^ /Required/ "desiredHealthy" - minimum desired number of healthy pods - , v1PodDisruptionBudgetStatusDisruptedPods :: !(Maybe (Map.Map String DateTime)) -- ^ "disruptedPods" - DisruptedPods contains information about pods whose eviction was processed by the API server eviction subresource handler but has not yet been observed by the PodDisruptionBudget controller. A pod will be in this map from the time when the API server processed the eviction request to the time when the pod is seen by PDB controller as having been marked for deletion (or after a timeout). The key in the map is the name of the pod and the value is the time when the API server processed the eviction request. If the deletion didn't occur and a pod is still there it will be removed from the list automatically by PodDisruptionBudget controller after some time. If everything goes smooth this map should be empty for the most of the time. Large number of entries in the map may indicate problems with pod deletions. - , v1PodDisruptionBudgetStatusDisruptionsAllowed :: !(Int) -- ^ /Required/ "disruptionsAllowed" - Number of pod disruptions that are currently allowed. - , v1PodDisruptionBudgetStatusExpectedPods :: !(Int) -- ^ /Required/ "expectedPods" - total number of pods counted by this disruption budget - , v1PodDisruptionBudgetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - Most recent generation observed when updating this PDB status. DisruptionsAllowed and other status information is valid only if observedGeneration equals to PDB's object generation. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodDisruptionBudgetStatus -instance A.FromJSON V1PodDisruptionBudgetStatus where - parseJSON = A.withObject "V1PodDisruptionBudgetStatus" $ \o -> - V1PodDisruptionBudgetStatus - <$> (o .:? "conditions") - <*> (o .: "currentHealthy") - <*> (o .: "desiredHealthy") - <*> (o .:? "disruptedPods") - <*> (o .: "disruptionsAllowed") - <*> (o .: "expectedPods") - <*> (o .:? "observedGeneration") - --- | ToJSON V1PodDisruptionBudgetStatus -instance A.ToJSON V1PodDisruptionBudgetStatus where - toJSON V1PodDisruptionBudgetStatus {..} = - _omitNulls - [ "conditions" .= v1PodDisruptionBudgetStatusConditions - , "currentHealthy" .= v1PodDisruptionBudgetStatusCurrentHealthy - , "desiredHealthy" .= v1PodDisruptionBudgetStatusDesiredHealthy - , "disruptedPods" .= v1PodDisruptionBudgetStatusDisruptedPods - , "disruptionsAllowed" .= v1PodDisruptionBudgetStatusDisruptionsAllowed - , "expectedPods" .= v1PodDisruptionBudgetStatusExpectedPods - , "observedGeneration" .= v1PodDisruptionBudgetStatusObservedGeneration - ] - - --- | Construct a value of type 'V1PodDisruptionBudgetStatus' (by applying it's required fields, if any) -mkV1PodDisruptionBudgetStatus - :: Int -- ^ 'v1PodDisruptionBudgetStatusCurrentHealthy': current number of healthy pods - -> Int -- ^ 'v1PodDisruptionBudgetStatusDesiredHealthy': minimum desired number of healthy pods - -> Int -- ^ 'v1PodDisruptionBudgetStatusDisruptionsAllowed': Number of pod disruptions that are currently allowed. - -> Int -- ^ 'v1PodDisruptionBudgetStatusExpectedPods': total number of pods counted by this disruption budget - -> V1PodDisruptionBudgetStatus -mkV1PodDisruptionBudgetStatus v1PodDisruptionBudgetStatusCurrentHealthy v1PodDisruptionBudgetStatusDesiredHealthy v1PodDisruptionBudgetStatusDisruptionsAllowed v1PodDisruptionBudgetStatusExpectedPods = - V1PodDisruptionBudgetStatus - { v1PodDisruptionBudgetStatusConditions = Nothing - , v1PodDisruptionBudgetStatusCurrentHealthy - , v1PodDisruptionBudgetStatusDesiredHealthy - , v1PodDisruptionBudgetStatusDisruptedPods = Nothing - , v1PodDisruptionBudgetStatusDisruptionsAllowed - , v1PodDisruptionBudgetStatusExpectedPods - , v1PodDisruptionBudgetStatusObservedGeneration = Nothing - } - --- ** V1PodFailurePolicy --- | V1PodFailurePolicy --- PodFailurePolicy describes how failed pods influence the backoffLimit. -data V1PodFailurePolicy = V1PodFailurePolicy - { v1PodFailurePolicyRules :: !([V1PodFailurePolicyRule]) -- ^ /Required/ "rules" - A list of pod failure policy rules. The rules are evaluated in order. Once a rule matches a Pod failure, the remaining of the rules are ignored. When no rule matches the Pod failure, the default handling applies - the counter of pod failures is incremented and it is checked against the backoffLimit. At most 20 elements are allowed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodFailurePolicy -instance A.FromJSON V1PodFailurePolicy where - parseJSON = A.withObject "V1PodFailurePolicy" $ \o -> - V1PodFailurePolicy - <$> (o .: "rules") - --- | ToJSON V1PodFailurePolicy -instance A.ToJSON V1PodFailurePolicy where - toJSON V1PodFailurePolicy {..} = - _omitNulls - [ "rules" .= v1PodFailurePolicyRules - ] - - --- | Construct a value of type 'V1PodFailurePolicy' (by applying it's required fields, if any) -mkV1PodFailurePolicy - :: [V1PodFailurePolicyRule] -- ^ 'v1PodFailurePolicyRules': A list of pod failure policy rules. The rules are evaluated in order. Once a rule matches a Pod failure, the remaining of the rules are ignored. When no rule matches the Pod failure, the default handling applies - the counter of pod failures is incremented and it is checked against the backoffLimit. At most 20 elements are allowed. - -> V1PodFailurePolicy -mkV1PodFailurePolicy v1PodFailurePolicyRules = - V1PodFailurePolicy - { v1PodFailurePolicyRules - } - --- ** V1PodFailurePolicyOnExitCodesRequirement --- | V1PodFailurePolicyOnExitCodesRequirement --- PodFailurePolicyOnExitCodesRequirement describes the requirement for handling a failed pod based on its container exit codes. In particular, it lookups the .state.terminated.exitCode for each app container and init container status, represented by the .status.containerStatuses and .status.initContainerStatuses fields in the Pod status, respectively. Containers completed with success (exit code 0) are excluded from the requirement check. -data V1PodFailurePolicyOnExitCodesRequirement = V1PodFailurePolicyOnExitCodesRequirement - { v1PodFailurePolicyOnExitCodesRequirementContainerName :: !(Maybe Text) -- ^ "containerName" - Restricts the check for exit codes to the container with the specified name. When null, the rule applies to all containers. When specified, it should match one the container or initContainer names in the pod template. - , v1PodFailurePolicyOnExitCodesRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents the relationship between the container exit code(s) and the specified values. Containers completed with success (exit code 0) are excluded from the requirement check. Possible values are: - In: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is in the set of specified values. - NotIn: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is not in the set of specified values. Additional values are considered to be added in the future. Clients should react to an unknown operator by assuming the requirement is not satisfied. - , v1PodFailurePolicyOnExitCodesRequirementValues :: !([Int]) -- ^ /Required/ "values" - Specifies the set of values. Each returned container exit code (might be multiple in case of multiple containers) is checked against this set of values with respect to the operator. The list of values must be ordered and must not contain duplicates. Value '0' cannot be used for the In operator. At least one element is required. At most 255 elements are allowed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodFailurePolicyOnExitCodesRequirement -instance A.FromJSON V1PodFailurePolicyOnExitCodesRequirement where - parseJSON = A.withObject "V1PodFailurePolicyOnExitCodesRequirement" $ \o -> - V1PodFailurePolicyOnExitCodesRequirement - <$> (o .:? "containerName") - <*> (o .: "operator") - <*> (o .: "values") - --- | ToJSON V1PodFailurePolicyOnExitCodesRequirement -instance A.ToJSON V1PodFailurePolicyOnExitCodesRequirement where - toJSON V1PodFailurePolicyOnExitCodesRequirement {..} = - _omitNulls - [ "containerName" .= v1PodFailurePolicyOnExitCodesRequirementContainerName - , "operator" .= v1PodFailurePolicyOnExitCodesRequirementOperator - , "values" .= v1PodFailurePolicyOnExitCodesRequirementValues - ] - - --- | Construct a value of type 'V1PodFailurePolicyOnExitCodesRequirement' (by applying it's required fields, if any) -mkV1PodFailurePolicyOnExitCodesRequirement - :: Text -- ^ 'v1PodFailurePolicyOnExitCodesRequirementOperator': Represents the relationship between the container exit code(s) and the specified values. Containers completed with success (exit code 0) are excluded from the requirement check. Possible values are: - In: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is in the set of specified values. - NotIn: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is not in the set of specified values. Additional values are considered to be added in the future. Clients should react to an unknown operator by assuming the requirement is not satisfied. - -> [Int] -- ^ 'v1PodFailurePolicyOnExitCodesRequirementValues': Specifies the set of values. Each returned container exit code (might be multiple in case of multiple containers) is checked against this set of values with respect to the operator. The list of values must be ordered and must not contain duplicates. Value '0' cannot be used for the In operator. At least one element is required. At most 255 elements are allowed. - -> V1PodFailurePolicyOnExitCodesRequirement -mkV1PodFailurePolicyOnExitCodesRequirement v1PodFailurePolicyOnExitCodesRequirementOperator v1PodFailurePolicyOnExitCodesRequirementValues = - V1PodFailurePolicyOnExitCodesRequirement - { v1PodFailurePolicyOnExitCodesRequirementContainerName = Nothing - , v1PodFailurePolicyOnExitCodesRequirementOperator - , v1PodFailurePolicyOnExitCodesRequirementValues - } - --- ** V1PodFailurePolicyOnPodConditionsPattern --- | V1PodFailurePolicyOnPodConditionsPattern --- PodFailurePolicyOnPodConditionsPattern describes a pattern for matching an actual pod condition type. -data V1PodFailurePolicyOnPodConditionsPattern = V1PodFailurePolicyOnPodConditionsPattern - { v1PodFailurePolicyOnPodConditionsPatternStatus :: !(Text) -- ^ /Required/ "status" - Specifies the required Pod condition status. To match a pod condition it is required that the specified status equals the pod condition status. Defaults to True. - , v1PodFailurePolicyOnPodConditionsPatternType :: !(Text) -- ^ /Required/ "type" - Specifies the required Pod condition type. To match a pod condition it is required that specified type equals the pod condition type. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodFailurePolicyOnPodConditionsPattern -instance A.FromJSON V1PodFailurePolicyOnPodConditionsPattern where - parseJSON = A.withObject "V1PodFailurePolicyOnPodConditionsPattern" $ \o -> - V1PodFailurePolicyOnPodConditionsPattern - <$> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1PodFailurePolicyOnPodConditionsPattern -instance A.ToJSON V1PodFailurePolicyOnPodConditionsPattern where - toJSON V1PodFailurePolicyOnPodConditionsPattern {..} = - _omitNulls - [ "status" .= v1PodFailurePolicyOnPodConditionsPatternStatus - , "type" .= v1PodFailurePolicyOnPodConditionsPatternType - ] - - --- | Construct a value of type 'V1PodFailurePolicyOnPodConditionsPattern' (by applying it's required fields, if any) -mkV1PodFailurePolicyOnPodConditionsPattern - :: Text -- ^ 'v1PodFailurePolicyOnPodConditionsPatternStatus': Specifies the required Pod condition status. To match a pod condition it is required that the specified status equals the pod condition status. Defaults to True. - -> Text -- ^ 'v1PodFailurePolicyOnPodConditionsPatternType': Specifies the required Pod condition type. To match a pod condition it is required that specified type equals the pod condition type. - -> V1PodFailurePolicyOnPodConditionsPattern -mkV1PodFailurePolicyOnPodConditionsPattern v1PodFailurePolicyOnPodConditionsPatternStatus v1PodFailurePolicyOnPodConditionsPatternType = - V1PodFailurePolicyOnPodConditionsPattern - { v1PodFailurePolicyOnPodConditionsPatternStatus - , v1PodFailurePolicyOnPodConditionsPatternType - } - --- ** V1PodFailurePolicyRule --- | V1PodFailurePolicyRule --- PodFailurePolicyRule describes how a pod failure is handled when the requirements are met. One of OnExitCodes and onPodConditions, but not both, can be used in each rule. -data V1PodFailurePolicyRule = V1PodFailurePolicyRule - { v1PodFailurePolicyRuleAction :: !(Text) -- ^ /Required/ "action" - Specifies the action taken on a pod failure when the requirements are satisfied. Possible values are: - FailJob: indicates that the pod's job is marked as Failed and all running pods are terminated. - Ignore: indicates that the counter towards the .backoffLimit is not incremented and a replacement pod is created. - Count: indicates that the pod is handled in the default way - the counter towards the .backoffLimit is incremented. Additional values are considered to be added in the future. Clients should react to an unknown action by skipping the rule. - , v1PodFailurePolicyRuleOnExitCodes :: !(Maybe V1PodFailurePolicyOnExitCodesRequirement) -- ^ "onExitCodes" - , v1PodFailurePolicyRuleOnPodConditions :: !(Maybe [V1PodFailurePolicyOnPodConditionsPattern]) -- ^ "onPodConditions" - Represents the requirement on the pod conditions. The requirement is represented as a list of pod condition patterns. The requirement is satisfied if at least one pattern matches an actual pod condition. At most 20 elements are allowed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodFailurePolicyRule -instance A.FromJSON V1PodFailurePolicyRule where - parseJSON = A.withObject "V1PodFailurePolicyRule" $ \o -> - V1PodFailurePolicyRule - <$> (o .: "action") - <*> (o .:? "onExitCodes") - <*> (o .:? "onPodConditions") - --- | ToJSON V1PodFailurePolicyRule -instance A.ToJSON V1PodFailurePolicyRule where - toJSON V1PodFailurePolicyRule {..} = - _omitNulls - [ "action" .= v1PodFailurePolicyRuleAction - , "onExitCodes" .= v1PodFailurePolicyRuleOnExitCodes - , "onPodConditions" .= v1PodFailurePolicyRuleOnPodConditions - ] - - --- | Construct a value of type 'V1PodFailurePolicyRule' (by applying it's required fields, if any) -mkV1PodFailurePolicyRule - :: Text -- ^ 'v1PodFailurePolicyRuleAction': Specifies the action taken on a pod failure when the requirements are satisfied. Possible values are: - FailJob: indicates that the pod's job is marked as Failed and all running pods are terminated. - Ignore: indicates that the counter towards the .backoffLimit is not incremented and a replacement pod is created. - Count: indicates that the pod is handled in the default way - the counter towards the .backoffLimit is incremented. Additional values are considered to be added in the future. Clients should react to an unknown action by skipping the rule. - -> V1PodFailurePolicyRule -mkV1PodFailurePolicyRule v1PodFailurePolicyRuleAction = - V1PodFailurePolicyRule - { v1PodFailurePolicyRuleAction - , v1PodFailurePolicyRuleOnExitCodes = Nothing - , v1PodFailurePolicyRuleOnPodConditions = Nothing - } - --- ** V1PodIP --- | V1PodIP --- IP address information for entries in the (plural) PodIPs field. Each entry includes: IP: An IP address allocated to the pod. Routable at least within the cluster. -data V1PodIP = V1PodIP - { v1PodIPIp :: !(Maybe Text) -- ^ "ip" - ip is an IP address (IPv4 or IPv6) assigned to the pod - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodIP -instance A.FromJSON V1PodIP where - parseJSON = A.withObject "V1PodIP" $ \o -> - V1PodIP - <$> (o .:? "ip") - --- | ToJSON V1PodIP -instance A.ToJSON V1PodIP where - toJSON V1PodIP {..} = - _omitNulls - [ "ip" .= v1PodIPIp - ] - - --- | Construct a value of type 'V1PodIP' (by applying it's required fields, if any) -mkV1PodIP - :: V1PodIP -mkV1PodIP = - V1PodIP - { v1PodIPIp = Nothing - } - --- ** V1PodList --- | V1PodList --- PodList is a list of Pods. -data V1PodList = V1PodList - { v1PodListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodListItems :: !([V1Pod]) -- ^ /Required/ "items" - List of pods. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md - , v1PodListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodList -instance A.FromJSON V1PodList where - parseJSON = A.withObject "V1PodList" $ \o -> - V1PodList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PodList -instance A.ToJSON V1PodList where - toJSON V1PodList {..} = - _omitNulls - [ "apiVersion" .= v1PodListApiVersion - , "items" .= v1PodListItems - , "kind" .= v1PodListKind - , "metadata" .= v1PodListMetadata - ] - - --- | Construct a value of type 'V1PodList' (by applying it's required fields, if any) -mkV1PodList - :: [V1Pod] -- ^ 'v1PodListItems': List of pods. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md - -> V1PodList -mkV1PodList v1PodListItems = - V1PodList - { v1PodListApiVersion = Nothing - , v1PodListItems - , v1PodListKind = Nothing - , v1PodListMetadata = Nothing - } - --- ** V1PodOS --- | V1PodOS --- PodOS defines the OS parameters of a pod. -data V1PodOS = V1PodOS - { v1PodOSName :: !(Text) -- ^ /Required/ "name" - Name is the name of the operating system. The currently supported values are linux and windows. Additional value may be defined in future and can be one of: https://github.com/opencontainers/runtime-spec/blob/master/config.md#platform-specific-configuration Clients should expect to handle additional values and treat unrecognized values in this field as os: null - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodOS -instance A.FromJSON V1PodOS where - parseJSON = A.withObject "V1PodOS" $ \o -> - V1PodOS - <$> (o .: "name") - --- | ToJSON V1PodOS -instance A.ToJSON V1PodOS where - toJSON V1PodOS {..} = - _omitNulls - [ "name" .= v1PodOSName - ] - - --- | Construct a value of type 'V1PodOS' (by applying it's required fields, if any) -mkV1PodOS - :: Text -- ^ 'v1PodOSName': Name is the name of the operating system. The currently supported values are linux and windows. Additional value may be defined in future and can be one of: https://github.com/opencontainers/runtime-spec/blob/master/config.md#platform-specific-configuration Clients should expect to handle additional values and treat unrecognized values in this field as os: null - -> V1PodOS -mkV1PodOS v1PodOSName = - V1PodOS - { v1PodOSName - } - --- ** V1PodReadinessGate --- | V1PodReadinessGate --- PodReadinessGate contains the reference to a pod condition -data V1PodReadinessGate = V1PodReadinessGate - { v1PodReadinessGateConditionType :: !(Text) -- ^ /Required/ "conditionType" - ConditionType refers to a condition in the pod's condition list with matching type. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodReadinessGate -instance A.FromJSON V1PodReadinessGate where - parseJSON = A.withObject "V1PodReadinessGate" $ \o -> - V1PodReadinessGate - <$> (o .: "conditionType") - --- | ToJSON V1PodReadinessGate -instance A.ToJSON V1PodReadinessGate where - toJSON V1PodReadinessGate {..} = - _omitNulls - [ "conditionType" .= v1PodReadinessGateConditionType - ] - - --- | Construct a value of type 'V1PodReadinessGate' (by applying it's required fields, if any) -mkV1PodReadinessGate - :: Text -- ^ 'v1PodReadinessGateConditionType': ConditionType refers to a condition in the pod's condition list with matching type. - -> V1PodReadinessGate -mkV1PodReadinessGate v1PodReadinessGateConditionType = - V1PodReadinessGate - { v1PodReadinessGateConditionType - } - --- ** V1PodResourceClaim --- | V1PodResourceClaim --- PodResourceClaim references exactly one ResourceClaim through a ClaimSource. It adds a name to it that uniquely identifies the ResourceClaim inside the Pod. Containers that need access to the ResourceClaim reference it with this name. -data V1PodResourceClaim = V1PodResourceClaim - { v1PodResourceClaimName :: !(Text) -- ^ /Required/ "name" - Name uniquely identifies this resource claim inside the pod. This must be a DNS_LABEL. - , v1PodResourceClaimSource :: !(Maybe V1ClaimSource) -- ^ "source" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodResourceClaim -instance A.FromJSON V1PodResourceClaim where - parseJSON = A.withObject "V1PodResourceClaim" $ \o -> - V1PodResourceClaim - <$> (o .: "name") - <*> (o .:? "source") - --- | ToJSON V1PodResourceClaim -instance A.ToJSON V1PodResourceClaim where - toJSON V1PodResourceClaim {..} = - _omitNulls - [ "name" .= v1PodResourceClaimName - , "source" .= v1PodResourceClaimSource - ] - - --- | Construct a value of type 'V1PodResourceClaim' (by applying it's required fields, if any) -mkV1PodResourceClaim - :: Text -- ^ 'v1PodResourceClaimName': Name uniquely identifies this resource claim inside the pod. This must be a DNS_LABEL. - -> V1PodResourceClaim -mkV1PodResourceClaim v1PodResourceClaimName = - V1PodResourceClaim - { v1PodResourceClaimName - , v1PodResourceClaimSource = Nothing - } - --- ** V1PodSchedulingGate --- | V1PodSchedulingGate --- PodSchedulingGate is associated to a Pod to guard its scheduling. -data V1PodSchedulingGate = V1PodSchedulingGate - { v1PodSchedulingGateName :: !(Text) -- ^ /Required/ "name" - Name of the scheduling gate. Each scheduling gate must have a unique name field. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodSchedulingGate -instance A.FromJSON V1PodSchedulingGate where - parseJSON = A.withObject "V1PodSchedulingGate" $ \o -> - V1PodSchedulingGate - <$> (o .: "name") - --- | ToJSON V1PodSchedulingGate -instance A.ToJSON V1PodSchedulingGate where - toJSON V1PodSchedulingGate {..} = - _omitNulls - [ "name" .= v1PodSchedulingGateName - ] - - --- | Construct a value of type 'V1PodSchedulingGate' (by applying it's required fields, if any) -mkV1PodSchedulingGate - :: Text -- ^ 'v1PodSchedulingGateName': Name of the scheduling gate. Each scheduling gate must have a unique name field. - -> V1PodSchedulingGate -mkV1PodSchedulingGate v1PodSchedulingGateName = - V1PodSchedulingGate - { v1PodSchedulingGateName - } - --- ** V1PodSecurityContext --- | V1PodSecurityContext --- PodSecurityContext holds pod-level security attributes and common container settings. Some fields are also present in container.securityContext. Field values of container.securityContext take precedence over field values of PodSecurityContext. -data V1PodSecurityContext = V1PodSecurityContext - { v1PodSecurityContextFsGroup :: !(Maybe Integer) -- ^ "fsGroup" - A special supplemental group that applies to all containers in a pod. Some volume types allow the Kubelet to change the ownership of that volume to be owned by the pod: 1. The owning GID will be the FSGroup 2. The setgid bit is set (new files created in the volume will be owned by FSGroup) 3. The permission bits are OR'd with rw-rw---- If unset, the Kubelet will not modify the ownership and permissions of any volume. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextFsGroupChangePolicy :: !(Maybe Text) -- ^ "fsGroupChangePolicy" - fsGroupChangePolicy defines behavior of changing ownership and permission of the volume before being exposed inside Pod. This field will only apply to volume types which support fsGroup based ownership(and permissions). It will have no effect on ephemeral volume types such as: secret, configmaps and emptydir. Valid values are \"OnRootMismatch\" and \"Always\". If not specified, \"Always\" is used. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextRunAsGroup :: !(Maybe Integer) -- ^ "runAsGroup" - The GID to run the entrypoint of the container process. Uses runtime default if unset. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence for that container. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextRunAsNonRoot :: !(Maybe Bool) -- ^ "runAsNonRoot" - Indicates that the container must run as a non-root user. If true, the Kubelet will validate the image at runtime to ensure that it does not run as UID 0 (root) and fail to start the container if it does. If unset or false, no such validation will be performed. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. - , v1PodSecurityContextRunAsUser :: !(Maybe Integer) -- ^ "runAsUser" - The UID to run the entrypoint of the container process. Defaults to user specified in image metadata if unspecified. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence for that container. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextSeLinuxOptions :: !(Maybe V1SELinuxOptions) -- ^ "seLinuxOptions" - , v1PodSecurityContextSeccompProfile :: !(Maybe V1SeccompProfile) -- ^ "seccompProfile" - , v1PodSecurityContextSupplementalGroups :: !(Maybe [Integer]) -- ^ "supplementalGroups" - A list of groups applied to the first process run in each container, in addition to the container's primary GID, the fsGroup (if specified), and group memberships defined in the container image for the uid of the container process. If unspecified, no additional groups are added to any container. Note that group memberships defined in the container image for the uid of the container process are still effective, even if they are not included in this list. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextSysctls :: !(Maybe [V1Sysctl]) -- ^ "sysctls" - Sysctls hold a list of namespaced sysctls used for the pod. Pods with unsupported sysctls (by the container runtime) might fail to launch. Note that this field cannot be set when spec.os.name is windows. - , v1PodSecurityContextWindowsOptions :: !(Maybe V1WindowsSecurityContextOptions) -- ^ "windowsOptions" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodSecurityContext -instance A.FromJSON V1PodSecurityContext where - parseJSON = A.withObject "V1PodSecurityContext" $ \o -> - V1PodSecurityContext - <$> (o .:? "fsGroup") - <*> (o .:? "fsGroupChangePolicy") - <*> (o .:? "runAsGroup") - <*> (o .:? "runAsNonRoot") - <*> (o .:? "runAsUser") - <*> (o .:? "seLinuxOptions") - <*> (o .:? "seccompProfile") - <*> (o .:? "supplementalGroups") - <*> (o .:? "sysctls") - <*> (o .:? "windowsOptions") - --- | ToJSON V1PodSecurityContext -instance A.ToJSON V1PodSecurityContext where - toJSON V1PodSecurityContext {..} = - _omitNulls - [ "fsGroup" .= v1PodSecurityContextFsGroup - , "fsGroupChangePolicy" .= v1PodSecurityContextFsGroupChangePolicy - , "runAsGroup" .= v1PodSecurityContextRunAsGroup - , "runAsNonRoot" .= v1PodSecurityContextRunAsNonRoot - , "runAsUser" .= v1PodSecurityContextRunAsUser - , "seLinuxOptions" .= v1PodSecurityContextSeLinuxOptions - , "seccompProfile" .= v1PodSecurityContextSeccompProfile - , "supplementalGroups" .= v1PodSecurityContextSupplementalGroups - , "sysctls" .= v1PodSecurityContextSysctls - , "windowsOptions" .= v1PodSecurityContextWindowsOptions - ] - - --- | Construct a value of type 'V1PodSecurityContext' (by applying it's required fields, if any) -mkV1PodSecurityContext - :: V1PodSecurityContext -mkV1PodSecurityContext = - V1PodSecurityContext - { v1PodSecurityContextFsGroup = Nothing - , v1PodSecurityContextFsGroupChangePolicy = Nothing - , v1PodSecurityContextRunAsGroup = Nothing - , v1PodSecurityContextRunAsNonRoot = Nothing - , v1PodSecurityContextRunAsUser = Nothing - , v1PodSecurityContextSeLinuxOptions = Nothing - , v1PodSecurityContextSeccompProfile = Nothing - , v1PodSecurityContextSupplementalGroups = Nothing - , v1PodSecurityContextSysctls = Nothing - , v1PodSecurityContextWindowsOptions = Nothing - } - --- ** V1PodSpec --- | V1PodSpec --- PodSpec is a description of a pod. -data V1PodSpec = V1PodSpec - { v1PodSpecActiveDeadlineSeconds :: !(Maybe Integer) -- ^ "activeDeadlineSeconds" - Optional duration in seconds the pod may be active on the node relative to StartTime before the system will actively try to mark it failed and kill associated containers. Value must be a positive integer. - , v1PodSpecAffinity :: !(Maybe V1Affinity) -- ^ "affinity" - , v1PodSpecAutomountServiceAccountToken :: !(Maybe Bool) -- ^ "automountServiceAccountToken" - AutomountServiceAccountToken indicates whether a service account token should be automatically mounted. - , v1PodSpecContainers :: !([V1Container]) -- ^ /Required/ "containers" - List of containers belonging to the pod. Containers cannot currently be added or removed. There must be at least one container in a Pod. Cannot be updated. - , v1PodSpecDnsConfig :: !(Maybe V1PodDNSConfig) -- ^ "dnsConfig" - , v1PodSpecDnsPolicy :: !(Maybe Text) -- ^ "dnsPolicy" - Set DNS policy for the pod. Defaults to \"ClusterFirst\". Valid values are 'ClusterFirstWithHostNet', 'ClusterFirst', 'Default' or 'None'. DNS parameters given in DNSConfig will be merged with the policy selected with DNSPolicy. To have DNS options set along with hostNetwork, you have to specify DNS policy explicitly to 'ClusterFirstWithHostNet'. - , v1PodSpecEnableServiceLinks :: !(Maybe Bool) -- ^ "enableServiceLinks" - EnableServiceLinks indicates whether information about services should be injected into pod's environment variables, matching the syntax of Docker links. Optional: Defaults to true. - , v1PodSpecEphemeralContainers :: !(Maybe [V1EphemeralContainer]) -- ^ "ephemeralContainers" - List of ephemeral containers run in this pod. Ephemeral containers may be run in an existing pod to perform user-initiated actions such as debugging. This list cannot be specified when creating a pod, and it cannot be modified by updating the pod spec. In order to add an ephemeral container to an existing pod, use the pod's ephemeralcontainers subresource. - , v1PodSpecHostAliases :: !(Maybe [V1HostAlias]) -- ^ "hostAliases" - HostAliases is an optional list of hosts and IPs that will be injected into the pod's hosts file if specified. This is only valid for non-hostNetwork pods. - , v1PodSpecHostIpc :: !(Maybe Bool) -- ^ "hostIPC" - Use the host's ipc namespace. Optional: Default to false. - , v1PodSpecHostNetwork :: !(Maybe Bool) -- ^ "hostNetwork" - Host networking requested for this pod. Use the host's network namespace. If this option is set, the ports that will be used must be specified. Default to false. - , v1PodSpecHostPid :: !(Maybe Bool) -- ^ "hostPID" - Use the host's pid namespace. Optional: Default to false. - , v1PodSpecHostUsers :: !(Maybe Bool) -- ^ "hostUsers" - Use the host's user namespace. Optional: Default to true. If set to true or not present, the pod will be run in the host user namespace, useful for when the pod needs a feature only available to the host user namespace, such as loading a kernel module with CAP_SYS_MODULE. When set to false, a new userns is created for the pod. Setting false is useful for mitigating container breakout vulnerabilities even allowing users to run their containers as root without actually having root privileges on the host. This field is alpha-level and is only honored by servers that enable the UserNamespacesSupport feature. - , v1PodSpecHostname :: !(Maybe Text) -- ^ "hostname" - Specifies the hostname of the Pod If not specified, the pod's hostname will be set to a system-defined value. - , v1PodSpecImagePullSecrets :: !(Maybe [V1LocalObjectReference]) -- ^ "imagePullSecrets" - ImagePullSecrets is an optional list of references to secrets in the same namespace to use for pulling any of the images used by this PodSpec. If specified, these secrets will be passed to individual puller implementations for them to use. More info: https://kubernetes.io/docs/concepts/containers/images#specifying-imagepullsecrets-on-a-pod - , v1PodSpecInitContainers :: !(Maybe [V1Container]) -- ^ "initContainers" - List of initialization containers belonging to the pod. Init containers are executed in order prior to containers being started. If any init container fails, the pod is considered to have failed and is handled according to its restartPolicy. The name for an init container or normal container must be unique among all containers. Init containers may not have Lifecycle actions, Readiness probes, Liveness probes, or Startup probes. The resourceRequirements of an init container are taken into account during scheduling by finding the highest request/limit for each resource type, and then using the max of of that value or the sum of the normal containers. Limits are applied to init containers in a similar fashion. Init containers cannot currently be added or removed. Cannot be updated. More info: https://kubernetes.io/docs/concepts/workloads/pods/init-containers/ - , v1PodSpecNodeName :: !(Maybe Text) -- ^ "nodeName" - NodeName is a request to schedule this pod onto a specific node. If it is non-empty, the scheduler simply schedules this pod onto that node, assuming that it fits resource requirements. - , v1PodSpecNodeSelector :: !(Maybe (Map.Map String Text)) -- ^ "nodeSelector" - NodeSelector is a selector which must be true for the pod to fit on a node. Selector which must match a node's labels for the pod to be scheduled on that node. More info: https://kubernetes.io/docs/concepts/configuration/assign-pod-node/ - , v1PodSpecOs :: !(Maybe V1PodOS) -- ^ "os" - , v1PodSpecOverhead :: !(Maybe (Map.Map String Quantity)) -- ^ "overhead" - Overhead represents the resource overhead associated with running a pod for a given RuntimeClass. This field will be autopopulated at admission time by the RuntimeClass admission controller. If the RuntimeClass admission controller is enabled, overhead must not be set in Pod create requests. The RuntimeClass admission controller will reject Pod create requests which have the overhead already set. If RuntimeClass is configured and selected in the PodSpec, Overhead will be set to the value defined in the corresponding RuntimeClass, otherwise it will remain unset and treated as zero. More info: https://git.k8s.io/enhancements/keps/sig-node/688-pod-overhead/README.md - , v1PodSpecPreemptionPolicy :: !(Maybe Text) -- ^ "preemptionPolicy" - PreemptionPolicy is the Policy for preempting pods with lower priority. One of Never, PreemptLowerPriority. Defaults to PreemptLowerPriority if unset. - , v1PodSpecPriority :: !(Maybe Int) -- ^ "priority" - The priority value. Various system components use this field to find the priority of the pod. When Priority Admission Controller is enabled, it prevents users from setting this field. The admission controller populates this field from PriorityClassName. The higher the value, the higher the priority. - , v1PodSpecPriorityClassName :: !(Maybe Text) -- ^ "priorityClassName" - If specified, indicates the pod's priority. \"system-node-critical\" and \"system-cluster-critical\" are two special keywords which indicate the highest priorities with the former being the highest priority. Any other name must be defined by creating a PriorityClass object with that name. If not specified, the pod priority will be default or zero if there is no default. - , v1PodSpecReadinessGates :: !(Maybe [V1PodReadinessGate]) -- ^ "readinessGates" - If specified, all readiness gates will be evaluated for pod readiness. A pod is ready when all its containers are ready AND all conditions specified in the readiness gates have status equal to \"True\" More info: https://git.k8s.io/enhancements/keps/sig-network/580-pod-readiness-gates - , v1PodSpecResourceClaims :: !(Maybe [V1PodResourceClaim]) -- ^ "resourceClaims" - ResourceClaims defines which ResourceClaims must be allocated and reserved before the Pod is allowed to start. The resources will be made available to those containers which consume them by name. This is an alpha field and requires enabling the DynamicResourceAllocation feature gate. This field is immutable. - , v1PodSpecRestartPolicy :: !(Maybe Text) -- ^ "restartPolicy" - Restart policy for all containers within the pod. One of Always, OnFailure, Never. Default to Always. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle/#restart-policy - , v1PodSpecRuntimeClassName :: !(Maybe Text) -- ^ "runtimeClassName" - RuntimeClassName refers to a RuntimeClass object in the node.k8s.io group, which should be used to run this pod. If no RuntimeClass resource matches the named class, the pod will not be run. If unset or empty, the \"legacy\" RuntimeClass will be used, which is an implicit class with an empty definition that uses the default runtime handler. More info: https://git.k8s.io/enhancements/keps/sig-node/585-runtime-class - , v1PodSpecSchedulerName :: !(Maybe Text) -- ^ "schedulerName" - If specified, the pod will be dispatched by specified scheduler. If not specified, the pod will be dispatched by default scheduler. - , v1PodSpecSchedulingGates :: !(Maybe [V1PodSchedulingGate]) -- ^ "schedulingGates" - SchedulingGates is an opaque list of values that if specified will block scheduling the pod. More info: https://git.k8s.io/enhancements/keps/sig-scheduling/3521-pod-scheduling-readiness. This is an alpha-level feature enabled by PodSchedulingReadiness feature gate. - , v1PodSpecSecurityContext :: !(Maybe V1PodSecurityContext) -- ^ "securityContext" - , v1PodSpecServiceAccount :: !(Maybe Text) -- ^ "serviceAccount" - DeprecatedServiceAccount is a depreciated alias for ServiceAccountName. Deprecated: Use serviceAccountName instead. - , v1PodSpecServiceAccountName :: !(Maybe Text) -- ^ "serviceAccountName" - ServiceAccountName is the name of the ServiceAccount to use to run this pod. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ - , v1PodSpecSetHostnameAsFqdn :: !(Maybe Bool) -- ^ "setHostnameAsFQDN" - If true the pod's hostname will be configured as the pod's FQDN, rather than the leaf name (the default). In Linux containers, this means setting the FQDN in the hostname field of the kernel (the nodename field of struct utsname). In Windows containers, this means setting the registry value of hostname for the registry key HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters to FQDN. If a pod does not have FQDN, this has no effect. Default to false. - , v1PodSpecShareProcessNamespace :: !(Maybe Bool) -- ^ "shareProcessNamespace" - Share a single process namespace between all of the containers in a pod. When this is set containers will be able to view and signal processes from other containers in the same pod, and the first process in each container will not be assigned PID 1. HostPID and ShareProcessNamespace cannot both be set. Optional: Default to false. - , v1PodSpecSubdomain :: !(Maybe Text) -- ^ "subdomain" - If specified, the fully qualified Pod hostname will be \"<hostname>.<subdomain>.<pod namespace>.svc.<cluster domain>\". If not specified, the pod will not have a domainname at all. - , v1PodSpecTerminationGracePeriodSeconds :: !(Maybe Integer) -- ^ "terminationGracePeriodSeconds" - Optional duration in seconds the pod needs to terminate gracefully. May be decreased in delete request. Value must be non-negative integer. The value zero indicates stop immediately via the kill signal (no opportunity to shut down). If this value is nil, the default grace period will be used instead. The grace period is the duration in seconds after the processes running in the pod are sent a termination signal and the time when the processes are forcibly halted with a kill signal. Set this value longer than the expected cleanup time for your process. Defaults to 30 seconds. - , v1PodSpecTolerations :: !(Maybe [V1Toleration]) -- ^ "tolerations" - If specified, the pod's tolerations. - , v1PodSpecTopologySpreadConstraints :: !(Maybe [V1TopologySpreadConstraint]) -- ^ "topologySpreadConstraints" - TopologySpreadConstraints describes how a group of pods ought to spread across topology domains. Scheduler will schedule pods in a way which abides by the constraints. All topologySpreadConstraints are ANDed. - , v1PodSpecVolumes :: !(Maybe [V1Volume]) -- ^ "volumes" - List of volumes that can be mounted by containers belonging to the pod. More info: https://kubernetes.io/docs/concepts/storage/volumes - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodSpec -instance A.FromJSON V1PodSpec where - parseJSON = A.withObject "V1PodSpec" $ \o -> - V1PodSpec - <$> (o .:? "activeDeadlineSeconds") - <*> (o .:? "affinity") - <*> (o .:? "automountServiceAccountToken") - <*> (o .: "containers") - <*> (o .:? "dnsConfig") - <*> (o .:? "dnsPolicy") - <*> (o .:? "enableServiceLinks") - <*> (o .:? "ephemeralContainers") - <*> (o .:? "hostAliases") - <*> (o .:? "hostIPC") - <*> (o .:? "hostNetwork") - <*> (o .:? "hostPID") - <*> (o .:? "hostUsers") - <*> (o .:? "hostname") - <*> (o .:? "imagePullSecrets") - <*> (o .:? "initContainers") - <*> (o .:? "nodeName") - <*> (o .:? "nodeSelector") - <*> (o .:? "os") - <*> (o .:? "overhead") - <*> (o .:? "preemptionPolicy") - <*> (o .:? "priority") - <*> (o .:? "priorityClassName") - <*> (o .:? "readinessGates") - <*> (o .:? "resourceClaims") - <*> (o .:? "restartPolicy") - <*> (o .:? "runtimeClassName") - <*> (o .:? "schedulerName") - <*> (o .:? "schedulingGates") - <*> (o .:? "securityContext") - <*> (o .:? "serviceAccount") - <*> (o .:? "serviceAccountName") - <*> (o .:? "setHostnameAsFQDN") - <*> (o .:? "shareProcessNamespace") - <*> (o .:? "subdomain") - <*> (o .:? "terminationGracePeriodSeconds") - <*> (o .:? "tolerations") - <*> (o .:? "topologySpreadConstraints") - <*> (o .:? "volumes") - --- | ToJSON V1PodSpec -instance A.ToJSON V1PodSpec where - toJSON V1PodSpec {..} = - _omitNulls - [ "activeDeadlineSeconds" .= v1PodSpecActiveDeadlineSeconds - , "affinity" .= v1PodSpecAffinity - , "automountServiceAccountToken" .= v1PodSpecAutomountServiceAccountToken - , "containers" .= v1PodSpecContainers - , "dnsConfig" .= v1PodSpecDnsConfig - , "dnsPolicy" .= v1PodSpecDnsPolicy - , "enableServiceLinks" .= v1PodSpecEnableServiceLinks - , "ephemeralContainers" .= v1PodSpecEphemeralContainers - , "hostAliases" .= v1PodSpecHostAliases - , "hostIPC" .= v1PodSpecHostIpc - , "hostNetwork" .= v1PodSpecHostNetwork - , "hostPID" .= v1PodSpecHostPid - , "hostUsers" .= v1PodSpecHostUsers - , "hostname" .= v1PodSpecHostname - , "imagePullSecrets" .= v1PodSpecImagePullSecrets - , "initContainers" .= v1PodSpecInitContainers - , "nodeName" .= v1PodSpecNodeName - , "nodeSelector" .= v1PodSpecNodeSelector - , "os" .= v1PodSpecOs - , "overhead" .= v1PodSpecOverhead - , "preemptionPolicy" .= v1PodSpecPreemptionPolicy - , "priority" .= v1PodSpecPriority - , "priorityClassName" .= v1PodSpecPriorityClassName - , "readinessGates" .= v1PodSpecReadinessGates - , "resourceClaims" .= v1PodSpecResourceClaims - , "restartPolicy" .= v1PodSpecRestartPolicy - , "runtimeClassName" .= v1PodSpecRuntimeClassName - , "schedulerName" .= v1PodSpecSchedulerName - , "schedulingGates" .= v1PodSpecSchedulingGates - , "securityContext" .= v1PodSpecSecurityContext - , "serviceAccount" .= v1PodSpecServiceAccount - , "serviceAccountName" .= v1PodSpecServiceAccountName - , "setHostnameAsFQDN" .= v1PodSpecSetHostnameAsFqdn - , "shareProcessNamespace" .= v1PodSpecShareProcessNamespace - , "subdomain" .= v1PodSpecSubdomain - , "terminationGracePeriodSeconds" .= v1PodSpecTerminationGracePeriodSeconds - , "tolerations" .= v1PodSpecTolerations - , "topologySpreadConstraints" .= v1PodSpecTopologySpreadConstraints - , "volumes" .= v1PodSpecVolumes - ] - - --- | Construct a value of type 'V1PodSpec' (by applying it's required fields, if any) -mkV1PodSpec - :: [V1Container] -- ^ 'v1PodSpecContainers': List of containers belonging to the pod. Containers cannot currently be added or removed. There must be at least one container in a Pod. Cannot be updated. - -> V1PodSpec -mkV1PodSpec v1PodSpecContainers = - V1PodSpec - { v1PodSpecActiveDeadlineSeconds = Nothing - , v1PodSpecAffinity = Nothing - , v1PodSpecAutomountServiceAccountToken = Nothing - , v1PodSpecContainers - , v1PodSpecDnsConfig = Nothing - , v1PodSpecDnsPolicy = Nothing - , v1PodSpecEnableServiceLinks = Nothing - , v1PodSpecEphemeralContainers = Nothing - , v1PodSpecHostAliases = Nothing - , v1PodSpecHostIpc = Nothing - , v1PodSpecHostNetwork = Nothing - , v1PodSpecHostPid = Nothing - , v1PodSpecHostUsers = Nothing - , v1PodSpecHostname = Nothing - , v1PodSpecImagePullSecrets = Nothing - , v1PodSpecInitContainers = Nothing - , v1PodSpecNodeName = Nothing - , v1PodSpecNodeSelector = Nothing - , v1PodSpecOs = Nothing - , v1PodSpecOverhead = Nothing - , v1PodSpecPreemptionPolicy = Nothing - , v1PodSpecPriority = Nothing - , v1PodSpecPriorityClassName = Nothing - , v1PodSpecReadinessGates = Nothing - , v1PodSpecResourceClaims = Nothing - , v1PodSpecRestartPolicy = Nothing - , v1PodSpecRuntimeClassName = Nothing - , v1PodSpecSchedulerName = Nothing - , v1PodSpecSchedulingGates = Nothing - , v1PodSpecSecurityContext = Nothing - , v1PodSpecServiceAccount = Nothing - , v1PodSpecServiceAccountName = Nothing - , v1PodSpecSetHostnameAsFqdn = Nothing - , v1PodSpecShareProcessNamespace = Nothing - , v1PodSpecSubdomain = Nothing - , v1PodSpecTerminationGracePeriodSeconds = Nothing - , v1PodSpecTolerations = Nothing - , v1PodSpecTopologySpreadConstraints = Nothing - , v1PodSpecVolumes = Nothing - } - --- ** V1PodStatus --- | V1PodStatus --- PodStatus represents information about the status of a pod. Status may trail the actual state of a system, especially if the node that hosts the pod cannot contact the control plane. -data V1PodStatus = V1PodStatus - { v1PodStatusConditions :: !(Maybe [V1PodCondition]) -- ^ "conditions" - Current service state of pod. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions - , v1PodStatusContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "containerStatuses" - The list has one entry per container in the manifest. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-and-container-status - , v1PodStatusEphemeralContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "ephemeralContainerStatuses" - Status for any ephemeral containers that have run in this pod. - , v1PodStatusHostIp :: !(Maybe Text) -- ^ "hostIP" - IP address of the host to which the pod is assigned. Empty if not yet scheduled. - , v1PodStatusInitContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "initContainerStatuses" - The list has one entry per init container in the manifest. The most recent successful init container will have ready = true, the most recently started container will have startTime set. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-and-container-status - , v1PodStatusMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about why the pod is in this condition. - , v1PodStatusNominatedNodeName :: !(Maybe Text) -- ^ "nominatedNodeName" - nominatedNodeName is set only when this pod preempts other pods on the node, but it cannot be scheduled right away as preemption victims receive their graceful termination periods. This field does not guarantee that the pod will be scheduled on this node. Scheduler may decide to place the pod elsewhere if other nodes become available sooner. Scheduler may also decide to give the resources on this node to a higher priority pod that is created after preemption. As a result, this field may be different than PodSpec.nodeName when the pod is scheduled. - , v1PodStatusPhase :: !(Maybe Text) -- ^ "phase" - The phase of a Pod is a simple, high-level summary of where the Pod is in its lifecycle. The conditions array, the reason and message fields, and the individual container status arrays contain more detail about the pod's status. There are five possible phase values: Pending: The pod has been accepted by the Kubernetes system, but one or more of the container images has not been created. This includes time before being scheduled as well as time spent downloading images over the network, which could take a while. Running: The pod has been bound to a node, and all of the containers have been created. At least one container is still running, or is in the process of starting or restarting. Succeeded: All containers in the pod have terminated in success, and will not be restarted. Failed: All containers in the pod have terminated, and at least one container has terminated in failure. The container either exited with non-zero status or was terminated by the system. Unknown: For some reason the state of the pod could not be obtained, typically due to an error in communicating with the host of the pod. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-phase - , v1PodStatusPodIp :: !(Maybe Text) -- ^ "podIP" - IP address allocated to the pod. Routable at least within the cluster. Empty if not yet allocated. - , v1PodStatusPodIps :: !(Maybe [V1PodIP]) -- ^ "podIPs" - podIPs holds the IP addresses allocated to the pod. If this field is specified, the 0th entry must match the podIP field. Pods may be allocated at most 1 value for each of IPv4 and IPv6. This list is empty if no IPs have been allocated yet. - , v1PodStatusQosClass :: !(Maybe Text) -- ^ "qosClass" - The Quality of Service (QOS) classification assigned to the pod based on resource requirements See PodQOSClass type for available QOS classes More info: https://git.k8s.io/community/contributors/design-proposals/node/resource-qos.md - , v1PodStatusReason :: !(Maybe Text) -- ^ "reason" - A brief CamelCase message indicating details about why the pod is in this state. e.g. 'Evicted' - , v1PodStatusStartTime :: !(Maybe DateTime) -- ^ "startTime" - RFC 3339 date and time at which the object was acknowledged by the Kubelet. This is before the Kubelet pulled the container image(s) for the pod. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodStatus -instance A.FromJSON V1PodStatus where - parseJSON = A.withObject "V1PodStatus" $ \o -> - V1PodStatus - <$> (o .:? "conditions") - <*> (o .:? "containerStatuses") - <*> (o .:? "ephemeralContainerStatuses") - <*> (o .:? "hostIP") - <*> (o .:? "initContainerStatuses") - <*> (o .:? "message") - <*> (o .:? "nominatedNodeName") - <*> (o .:? "phase") - <*> (o .:? "podIP") - <*> (o .:? "podIPs") - <*> (o .:? "qosClass") - <*> (o .:? "reason") - <*> (o .:? "startTime") - --- | ToJSON V1PodStatus -instance A.ToJSON V1PodStatus where - toJSON V1PodStatus {..} = - _omitNulls - [ "conditions" .= v1PodStatusConditions - , "containerStatuses" .= v1PodStatusContainerStatuses - , "ephemeralContainerStatuses" .= v1PodStatusEphemeralContainerStatuses - , "hostIP" .= v1PodStatusHostIp - , "initContainerStatuses" .= v1PodStatusInitContainerStatuses - , "message" .= v1PodStatusMessage - , "nominatedNodeName" .= v1PodStatusNominatedNodeName - , "phase" .= v1PodStatusPhase - , "podIP" .= v1PodStatusPodIp - , "podIPs" .= v1PodStatusPodIps - , "qosClass" .= v1PodStatusQosClass - , "reason" .= v1PodStatusReason - , "startTime" .= v1PodStatusStartTime - ] - - --- | Construct a value of type 'V1PodStatus' (by applying it's required fields, if any) -mkV1PodStatus - :: V1PodStatus -mkV1PodStatus = - V1PodStatus - { v1PodStatusConditions = Nothing - , v1PodStatusContainerStatuses = Nothing - , v1PodStatusEphemeralContainerStatuses = Nothing - , v1PodStatusHostIp = Nothing - , v1PodStatusInitContainerStatuses = Nothing - , v1PodStatusMessage = Nothing - , v1PodStatusNominatedNodeName = Nothing - , v1PodStatusPhase = Nothing - , v1PodStatusPodIp = Nothing - , v1PodStatusPodIps = Nothing - , v1PodStatusQosClass = Nothing - , v1PodStatusReason = Nothing - , v1PodStatusStartTime = Nothing - } - --- ** V1PodTemplate --- | V1PodTemplate --- PodTemplate describes a template for creating copies of a predefined pod. -data V1PodTemplate = V1PodTemplate - { v1PodTemplateApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodTemplateKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PodTemplateTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodTemplate -instance A.FromJSON V1PodTemplate where - parseJSON = A.withObject "V1PodTemplate" $ \o -> - V1PodTemplate - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "template") - --- | ToJSON V1PodTemplate -instance A.ToJSON V1PodTemplate where - toJSON V1PodTemplate {..} = - _omitNulls - [ "apiVersion" .= v1PodTemplateApiVersion - , "kind" .= v1PodTemplateKind - , "metadata" .= v1PodTemplateMetadata - , "template" .= v1PodTemplateTemplate - ] - - --- | Construct a value of type 'V1PodTemplate' (by applying it's required fields, if any) -mkV1PodTemplate - :: V1PodTemplate -mkV1PodTemplate = - V1PodTemplate - { v1PodTemplateApiVersion = Nothing - , v1PodTemplateKind = Nothing - , v1PodTemplateMetadata = Nothing - , v1PodTemplateTemplate = Nothing - } - --- ** V1PodTemplateList --- | V1PodTemplateList --- PodTemplateList is a list of PodTemplates. -data V1PodTemplateList = V1PodTemplateList - { v1PodTemplateListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PodTemplateListItems :: !([V1PodTemplate]) -- ^ /Required/ "items" - List of pod templates - , v1PodTemplateListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PodTemplateListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodTemplateList -instance A.FromJSON V1PodTemplateList where - parseJSON = A.withObject "V1PodTemplateList" $ \o -> - V1PodTemplateList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PodTemplateList -instance A.ToJSON V1PodTemplateList where - toJSON V1PodTemplateList {..} = - _omitNulls - [ "apiVersion" .= v1PodTemplateListApiVersion - , "items" .= v1PodTemplateListItems - , "kind" .= v1PodTemplateListKind - , "metadata" .= v1PodTemplateListMetadata - ] - - --- | Construct a value of type 'V1PodTemplateList' (by applying it's required fields, if any) -mkV1PodTemplateList - :: [V1PodTemplate] -- ^ 'v1PodTemplateListItems': List of pod templates - -> V1PodTemplateList -mkV1PodTemplateList v1PodTemplateListItems = - V1PodTemplateList - { v1PodTemplateListApiVersion = Nothing - , v1PodTemplateListItems - , v1PodTemplateListKind = Nothing - , v1PodTemplateListMetadata = Nothing - } - --- ** V1PodTemplateSpec --- | V1PodTemplateSpec --- PodTemplateSpec describes the data a pod should have when created from a template -data V1PodTemplateSpec = V1PodTemplateSpec - { v1PodTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PodTemplateSpecSpec :: !(Maybe V1PodSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PodTemplateSpec -instance A.FromJSON V1PodTemplateSpec where - parseJSON = A.withObject "V1PodTemplateSpec" $ \o -> - V1PodTemplateSpec - <$> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1PodTemplateSpec -instance A.ToJSON V1PodTemplateSpec where - toJSON V1PodTemplateSpec {..} = - _omitNulls - [ "metadata" .= v1PodTemplateSpecMetadata - , "spec" .= v1PodTemplateSpecSpec - ] - - --- | Construct a value of type 'V1PodTemplateSpec' (by applying it's required fields, if any) -mkV1PodTemplateSpec - :: V1PodTemplateSpec -mkV1PodTemplateSpec = - V1PodTemplateSpec - { v1PodTemplateSpecMetadata = Nothing - , v1PodTemplateSpecSpec = Nothing - } - --- ** V1PolicyRule --- | V1PolicyRule --- PolicyRule holds information that describes a policy rule, but does not contain information about who the rule applies to or which namespace the rule applies to. -data V1PolicyRule = V1PolicyRule - { v1PolicyRuleApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the name of the APIGroup that contains the resources. If multiple API groups are specified, any action requested against one of the enumerated resources in any API group will be allowed. \"\" represents the core API group and \"*\" represents all API groups. - , v1PolicyRuleNonResourceUrls :: !(Maybe [Text]) -- ^ "nonResourceURLs" - NonResourceURLs is a set of partial urls that a user should have access to. *s are allowed, but only as the full, final step in the path Since non-resource URLs are not namespaced, this field is only applicable for ClusterRoles referenced from a ClusterRoleBinding. Rules can either apply to API resources (such as \"pods\" or \"secrets\") or non-resource URL paths (such as \"/api\"), but not both. - , v1PolicyRuleResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. - , v1PolicyRuleResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. '*' represents all resources. - , v1PolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verbs is a list of Verbs that apply to ALL the ResourceKinds contained in this rule. '*' represents all verbs. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PolicyRule -instance A.FromJSON V1PolicyRule where - parseJSON = A.withObject "V1PolicyRule" $ \o -> - V1PolicyRule - <$> (o .:? "apiGroups") - <*> (o .:? "nonResourceURLs") - <*> (o .:? "resourceNames") - <*> (o .:? "resources") - <*> (o .: "verbs") - --- | ToJSON V1PolicyRule -instance A.ToJSON V1PolicyRule where - toJSON V1PolicyRule {..} = - _omitNulls - [ "apiGroups" .= v1PolicyRuleApiGroups - , "nonResourceURLs" .= v1PolicyRuleNonResourceUrls - , "resourceNames" .= v1PolicyRuleResourceNames - , "resources" .= v1PolicyRuleResources - , "verbs" .= v1PolicyRuleVerbs - ] - - --- | Construct a value of type 'V1PolicyRule' (by applying it's required fields, if any) -mkV1PolicyRule - :: [Text] -- ^ 'v1PolicyRuleVerbs': Verbs is a list of Verbs that apply to ALL the ResourceKinds contained in this rule. '*' represents all verbs. - -> V1PolicyRule -mkV1PolicyRule v1PolicyRuleVerbs = - V1PolicyRule - { v1PolicyRuleApiGroups = Nothing - , v1PolicyRuleNonResourceUrls = Nothing - , v1PolicyRuleResourceNames = Nothing - , v1PolicyRuleResources = Nothing - , v1PolicyRuleVerbs - } - --- ** V1PortStatus --- | V1PortStatus -data V1PortStatus = V1PortStatus - { v1PortStatusError :: !(Maybe Text) -- ^ "error" - Error is to record the problem with the service port The format of the error shall comply with the following rules: - built-in error values shall be specified in this file and those shall use CamelCase names - cloud provider specific error values must have names that comply with the format foo.example.com/CamelCase. - , v1PortStatusPort :: !(Int) -- ^ /Required/ "port" - Port is the port number of the service port of which status is recorded here - , v1PortStatusProtocol :: !(Text) -- ^ /Required/ "protocol" - Protocol is the protocol of the service port of which status is recorded here The supported values are: \"TCP\", \"UDP\", \"SCTP\" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PortStatus -instance A.FromJSON V1PortStatus where - parseJSON = A.withObject "V1PortStatus" $ \o -> - V1PortStatus - <$> (o .:? "error") - <*> (o .: "port") - <*> (o .: "protocol") - --- | ToJSON V1PortStatus -instance A.ToJSON V1PortStatus where - toJSON V1PortStatus {..} = - _omitNulls - [ "error" .= v1PortStatusError - , "port" .= v1PortStatusPort - , "protocol" .= v1PortStatusProtocol - ] - - --- | Construct a value of type 'V1PortStatus' (by applying it's required fields, if any) -mkV1PortStatus - :: Int -- ^ 'v1PortStatusPort': Port is the port number of the service port of which status is recorded here - -> Text -- ^ 'v1PortStatusProtocol': Protocol is the protocol of the service port of which status is recorded here The supported values are: \"TCP\", \"UDP\", \"SCTP\" - -> V1PortStatus -mkV1PortStatus v1PortStatusPort v1PortStatusProtocol = - V1PortStatus - { v1PortStatusError = Nothing - , v1PortStatusPort - , v1PortStatusProtocol - } - --- ** V1PortworxVolumeSource --- | V1PortworxVolumeSource --- PortworxVolumeSource represents a Portworx volume resource. -data V1PortworxVolumeSource = V1PortworxVolumeSource - { v1PortworxVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fSType represents the filesystem type to mount Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1PortworxVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1PortworxVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID uniquely identifies a Portworx volume - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PortworxVolumeSource -instance A.FromJSON V1PortworxVolumeSource where - parseJSON = A.withObject "V1PortworxVolumeSource" $ \o -> - V1PortworxVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "readOnly") - <*> (o .: "volumeID") - --- | ToJSON V1PortworxVolumeSource -instance A.ToJSON V1PortworxVolumeSource where - toJSON V1PortworxVolumeSource {..} = - _omitNulls - [ "fsType" .= v1PortworxVolumeSourceFsType - , "readOnly" .= v1PortworxVolumeSourceReadOnly - , "volumeID" .= v1PortworxVolumeSourceVolumeId - ] - - --- | Construct a value of type 'V1PortworxVolumeSource' (by applying it's required fields, if any) -mkV1PortworxVolumeSource - :: Text -- ^ 'v1PortworxVolumeSourceVolumeId': volumeID uniquely identifies a Portworx volume - -> V1PortworxVolumeSource -mkV1PortworxVolumeSource v1PortworxVolumeSourceVolumeId = - V1PortworxVolumeSource - { v1PortworxVolumeSourceFsType = Nothing - , v1PortworxVolumeSourceReadOnly = Nothing - , v1PortworxVolumeSourceVolumeId - } - --- ** V1Preconditions --- | V1Preconditions --- Preconditions must be fulfilled before an operation (update, delete, etc.) is carried out. -data V1Preconditions = V1Preconditions - { v1PreconditionsResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - Specifies the target ResourceVersion - , v1PreconditionsUid :: !(Maybe Text) -- ^ "uid" - Specifies the target UID. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Preconditions -instance A.FromJSON V1Preconditions where - parseJSON = A.withObject "V1Preconditions" $ \o -> - V1Preconditions - <$> (o .:? "resourceVersion") - <*> (o .:? "uid") - --- | ToJSON V1Preconditions -instance A.ToJSON V1Preconditions where - toJSON V1Preconditions {..} = - _omitNulls - [ "resourceVersion" .= v1PreconditionsResourceVersion - , "uid" .= v1PreconditionsUid - ] - - --- | Construct a value of type 'V1Preconditions' (by applying it's required fields, if any) -mkV1Preconditions - :: V1Preconditions -mkV1Preconditions = - V1Preconditions - { v1PreconditionsResourceVersion = Nothing - , v1PreconditionsUid = Nothing - } - --- ** V1PreferredSchedulingTerm --- | V1PreferredSchedulingTerm --- An empty preferred scheduling term matches all objects with implicit weight 0 (i.e. it's a no-op). A null preferred scheduling term matches no objects (i.e. is also a no-op). -data V1PreferredSchedulingTerm = V1PreferredSchedulingTerm - { v1PreferredSchedulingTermPreference :: !(V1NodeSelectorTerm) -- ^ /Required/ "preference" - , v1PreferredSchedulingTermWeight :: !(Int) -- ^ /Required/ "weight" - Weight associated with matching the corresponding nodeSelectorTerm, in the range 1-100. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PreferredSchedulingTerm -instance A.FromJSON V1PreferredSchedulingTerm where - parseJSON = A.withObject "V1PreferredSchedulingTerm" $ \o -> - V1PreferredSchedulingTerm - <$> (o .: "preference") - <*> (o .: "weight") - --- | ToJSON V1PreferredSchedulingTerm -instance A.ToJSON V1PreferredSchedulingTerm where - toJSON V1PreferredSchedulingTerm {..} = - _omitNulls - [ "preference" .= v1PreferredSchedulingTermPreference - , "weight" .= v1PreferredSchedulingTermWeight - ] - - --- | Construct a value of type 'V1PreferredSchedulingTerm' (by applying it's required fields, if any) -mkV1PreferredSchedulingTerm - :: V1NodeSelectorTerm -- ^ 'v1PreferredSchedulingTermPreference' - -> Int -- ^ 'v1PreferredSchedulingTermWeight': Weight associated with matching the corresponding nodeSelectorTerm, in the range 1-100. - -> V1PreferredSchedulingTerm -mkV1PreferredSchedulingTerm v1PreferredSchedulingTermPreference v1PreferredSchedulingTermWeight = - V1PreferredSchedulingTerm - { v1PreferredSchedulingTermPreference - , v1PreferredSchedulingTermWeight - } - --- ** V1PriorityClass --- | V1PriorityClass --- PriorityClass defines mapping from a priority class name to the priority integer value. The value can be any valid integer. -data V1PriorityClass = V1PriorityClass - { v1PriorityClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PriorityClassDescription :: !(Maybe Text) -- ^ "description" - description is an arbitrary string that usually provides guidelines on when this priority class should be used. - , v1PriorityClassGlobalDefault :: !(Maybe Bool) -- ^ "globalDefault" - globalDefault specifies whether this PriorityClass should be considered as the default priority for pods that do not have any priority class. Only one PriorityClass can be marked as `globalDefault`. However, if more than one PriorityClasses exists with their `globalDefault` field set to true, the smallest value of such global default PriorityClasses will be used as the default priority. - , v1PriorityClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PriorityClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1PriorityClassPreemptionPolicy :: !(Maybe Text) -- ^ "preemptionPolicy" - PreemptionPolicy is the Policy for preempting pods with lower priority. One of Never, PreemptLowerPriority. Defaults to PreemptLowerPriority if unset. - , v1PriorityClassValue :: !(Int) -- ^ /Required/ "value" - The value of this priority class. This is the actual priority that pods receive when they have the name of this class in their pod spec. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PriorityClass -instance A.FromJSON V1PriorityClass where - parseJSON = A.withObject "V1PriorityClass" $ \o -> - V1PriorityClass - <$> (o .:? "apiVersion") - <*> (o .:? "description") - <*> (o .:? "globalDefault") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "preemptionPolicy") - <*> (o .: "value") - --- | ToJSON V1PriorityClass -instance A.ToJSON V1PriorityClass where - toJSON V1PriorityClass {..} = - _omitNulls - [ "apiVersion" .= v1PriorityClassApiVersion - , "description" .= v1PriorityClassDescription - , "globalDefault" .= v1PriorityClassGlobalDefault - , "kind" .= v1PriorityClassKind - , "metadata" .= v1PriorityClassMetadata - , "preemptionPolicy" .= v1PriorityClassPreemptionPolicy - , "value" .= v1PriorityClassValue - ] - - --- | Construct a value of type 'V1PriorityClass' (by applying it's required fields, if any) -mkV1PriorityClass - :: Int -- ^ 'v1PriorityClassValue': The value of this priority class. This is the actual priority that pods receive when they have the name of this class in their pod spec. - -> V1PriorityClass -mkV1PriorityClass v1PriorityClassValue = - V1PriorityClass - { v1PriorityClassApiVersion = Nothing - , v1PriorityClassDescription = Nothing - , v1PriorityClassGlobalDefault = Nothing - , v1PriorityClassKind = Nothing - , v1PriorityClassMetadata = Nothing - , v1PriorityClassPreemptionPolicy = Nothing - , v1PriorityClassValue - } - --- ** V1PriorityClassList --- | V1PriorityClassList --- PriorityClassList is a collection of priority classes. -data V1PriorityClassList = V1PriorityClassList - { v1PriorityClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1PriorityClassListItems :: !([V1PriorityClass]) -- ^ /Required/ "items" - items is the list of PriorityClasses - , v1PriorityClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1PriorityClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1PriorityClassList -instance A.FromJSON V1PriorityClassList where - parseJSON = A.withObject "V1PriorityClassList" $ \o -> - V1PriorityClassList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1PriorityClassList -instance A.ToJSON V1PriorityClassList where - toJSON V1PriorityClassList {..} = - _omitNulls - [ "apiVersion" .= v1PriorityClassListApiVersion - , "items" .= v1PriorityClassListItems - , "kind" .= v1PriorityClassListKind - , "metadata" .= v1PriorityClassListMetadata - ] - - --- | Construct a value of type 'V1PriorityClassList' (by applying it's required fields, if any) -mkV1PriorityClassList - :: [V1PriorityClass] -- ^ 'v1PriorityClassListItems': items is the list of PriorityClasses - -> V1PriorityClassList -mkV1PriorityClassList v1PriorityClassListItems = - V1PriorityClassList - { v1PriorityClassListApiVersion = Nothing - , v1PriorityClassListItems - , v1PriorityClassListKind = Nothing - , v1PriorityClassListMetadata = Nothing - } - --- ** V1Probe --- | V1Probe --- Probe describes a health check to be performed against a container to determine whether it is alive or ready to receive traffic. -data V1Probe = V1Probe - { v1ProbeExec :: !(Maybe V1ExecAction) -- ^ "exec" - , v1ProbeFailureThreshold :: !(Maybe Int) -- ^ "failureThreshold" - Minimum consecutive failures for the probe to be considered failed after having succeeded. Defaults to 3. Minimum value is 1. - , v1ProbeGrpc :: !(Maybe V1GRPCAction) -- ^ "grpc" - , v1ProbeHttpGet :: !(Maybe V1HTTPGetAction) -- ^ "httpGet" - , v1ProbeInitialDelaySeconds :: !(Maybe Int) -- ^ "initialDelaySeconds" - Number of seconds after the container has started before liveness probes are initiated. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#container-probes - , v1ProbePeriodSeconds :: !(Maybe Int) -- ^ "periodSeconds" - How often (in seconds) to perform the probe. Default to 10 seconds. Minimum value is 1. - , v1ProbeSuccessThreshold :: !(Maybe Int) -- ^ "successThreshold" - Minimum consecutive successes for the probe to be considered successful after having failed. Defaults to 1. Must be 1 for liveness and startup. Minimum value is 1. - , v1ProbeTcpSocket :: !(Maybe V1TCPSocketAction) -- ^ "tcpSocket" - , v1ProbeTerminationGracePeriodSeconds :: !(Maybe Integer) -- ^ "terminationGracePeriodSeconds" - Optional duration in seconds the pod needs to terminate gracefully upon probe failure. The grace period is the duration in seconds after the processes running in the pod are sent a termination signal and the time when the processes are forcibly halted with a kill signal. Set this value longer than the expected cleanup time for your process. If this value is nil, the pod's terminationGracePeriodSeconds will be used. Otherwise, this value overrides the value provided by the pod spec. Value must be non-negative integer. The value zero indicates stop immediately via the kill signal (no opportunity to shut down). This is a beta field and requires enabling ProbeTerminationGracePeriod feature gate. Minimum value is 1. spec.terminationGracePeriodSeconds is used if unset. - , v1ProbeTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - Number of seconds after which the probe times out. Defaults to 1 second. Minimum value is 1. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#container-probes - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Probe -instance A.FromJSON V1Probe where - parseJSON = A.withObject "V1Probe" $ \o -> - V1Probe - <$> (o .:? "exec") - <*> (o .:? "failureThreshold") - <*> (o .:? "grpc") - <*> (o .:? "httpGet") - <*> (o .:? "initialDelaySeconds") - <*> (o .:? "periodSeconds") - <*> (o .:? "successThreshold") - <*> (o .:? "tcpSocket") - <*> (o .:? "terminationGracePeriodSeconds") - <*> (o .:? "timeoutSeconds") - --- | ToJSON V1Probe -instance A.ToJSON V1Probe where - toJSON V1Probe {..} = - _omitNulls - [ "exec" .= v1ProbeExec - , "failureThreshold" .= v1ProbeFailureThreshold - , "grpc" .= v1ProbeGrpc - , "httpGet" .= v1ProbeHttpGet - , "initialDelaySeconds" .= v1ProbeInitialDelaySeconds - , "periodSeconds" .= v1ProbePeriodSeconds - , "successThreshold" .= v1ProbeSuccessThreshold - , "tcpSocket" .= v1ProbeTcpSocket - , "terminationGracePeriodSeconds" .= v1ProbeTerminationGracePeriodSeconds - , "timeoutSeconds" .= v1ProbeTimeoutSeconds - ] - - --- | Construct a value of type 'V1Probe' (by applying it's required fields, if any) -mkV1Probe - :: V1Probe -mkV1Probe = - V1Probe - { v1ProbeExec = Nothing - , v1ProbeFailureThreshold = Nothing - , v1ProbeGrpc = Nothing - , v1ProbeHttpGet = Nothing - , v1ProbeInitialDelaySeconds = Nothing - , v1ProbePeriodSeconds = Nothing - , v1ProbeSuccessThreshold = Nothing - , v1ProbeTcpSocket = Nothing - , v1ProbeTerminationGracePeriodSeconds = Nothing - , v1ProbeTimeoutSeconds = Nothing - } - --- ** V1ProjectedVolumeSource --- | V1ProjectedVolumeSource --- Represents a projected volume source -data V1ProjectedVolumeSource = V1ProjectedVolumeSource - { v1ProjectedVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode are the mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1ProjectedVolumeSourceSources :: !(Maybe [V1VolumeProjection]) -- ^ "sources" - sources is the list of volume projections - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ProjectedVolumeSource -instance A.FromJSON V1ProjectedVolumeSource where - parseJSON = A.withObject "V1ProjectedVolumeSource" $ \o -> - V1ProjectedVolumeSource - <$> (o .:? "defaultMode") - <*> (o .:? "sources") - --- | ToJSON V1ProjectedVolumeSource -instance A.ToJSON V1ProjectedVolumeSource where - toJSON V1ProjectedVolumeSource {..} = - _omitNulls - [ "defaultMode" .= v1ProjectedVolumeSourceDefaultMode - , "sources" .= v1ProjectedVolumeSourceSources - ] - - --- | Construct a value of type 'V1ProjectedVolumeSource' (by applying it's required fields, if any) -mkV1ProjectedVolumeSource - :: V1ProjectedVolumeSource -mkV1ProjectedVolumeSource = - V1ProjectedVolumeSource - { v1ProjectedVolumeSourceDefaultMode = Nothing - , v1ProjectedVolumeSourceSources = Nothing - } - --- ** V1QuobyteVolumeSource --- | V1QuobyteVolumeSource --- Represents a Quobyte mount that lasts the lifetime of a pod. Quobyte volumes do not support ownership management or SELinux relabeling. -data V1QuobyteVolumeSource = V1QuobyteVolumeSource - { v1QuobyteVolumeSourceGroup :: !(Maybe Text) -- ^ "group" - group to map volume access to Default is no group - , v1QuobyteVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Quobyte volume to be mounted with read-only permissions. Defaults to false. - , v1QuobyteVolumeSourceRegistry :: !(Text) -- ^ /Required/ "registry" - registry represents a single or multiple Quobyte Registry services specified as a string as host:port pair (multiple entries are separated with commas) which acts as the central registry for volumes - , v1QuobyteVolumeSourceTenant :: !(Maybe Text) -- ^ "tenant" - tenant owning the given Quobyte volume in the Backend Used with dynamically provisioned Quobyte volumes, value is set by the plugin - , v1QuobyteVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user to map volume access to Defaults to serivceaccount user - , v1QuobyteVolumeSourceVolume :: !(Text) -- ^ /Required/ "volume" - volume is a string that references an already created Quobyte volume by name. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1QuobyteVolumeSource -instance A.FromJSON V1QuobyteVolumeSource where - parseJSON = A.withObject "V1QuobyteVolumeSource" $ \o -> - V1QuobyteVolumeSource - <$> (o .:? "group") - <*> (o .:? "readOnly") - <*> (o .: "registry") - <*> (o .:? "tenant") - <*> (o .:? "user") - <*> (o .: "volume") - --- | ToJSON V1QuobyteVolumeSource -instance A.ToJSON V1QuobyteVolumeSource where - toJSON V1QuobyteVolumeSource {..} = - _omitNulls - [ "group" .= v1QuobyteVolumeSourceGroup - , "readOnly" .= v1QuobyteVolumeSourceReadOnly - , "registry" .= v1QuobyteVolumeSourceRegistry - , "tenant" .= v1QuobyteVolumeSourceTenant - , "user" .= v1QuobyteVolumeSourceUser - , "volume" .= v1QuobyteVolumeSourceVolume - ] - - --- | Construct a value of type 'V1QuobyteVolumeSource' (by applying it's required fields, if any) -mkV1QuobyteVolumeSource - :: Text -- ^ 'v1QuobyteVolumeSourceRegistry': registry represents a single or multiple Quobyte Registry services specified as a string as host:port pair (multiple entries are separated with commas) which acts as the central registry for volumes - -> Text -- ^ 'v1QuobyteVolumeSourceVolume': volume is a string that references an already created Quobyte volume by name. - -> V1QuobyteVolumeSource -mkV1QuobyteVolumeSource v1QuobyteVolumeSourceRegistry v1QuobyteVolumeSourceVolume = - V1QuobyteVolumeSource - { v1QuobyteVolumeSourceGroup = Nothing - , v1QuobyteVolumeSourceReadOnly = Nothing - , v1QuobyteVolumeSourceRegistry - , v1QuobyteVolumeSourceTenant = Nothing - , v1QuobyteVolumeSourceUser = Nothing - , v1QuobyteVolumeSourceVolume - } - --- ** V1RBDPersistentVolumeSource --- | V1RBDPersistentVolumeSource --- Represents a Rados Block Device mount that lasts the lifetime of a pod. RBD volumes support ownership management and SELinux relabeling. -data V1RBDPersistentVolumeSource = V1RBDPersistentVolumeSource - { v1RBDPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#rbd - , v1RBDPersistentVolumeSourceImage :: !(Text) -- ^ /Required/ "image" - image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDPersistentVolumeSourceKeyring :: !(Maybe Text) -- ^ "keyring" - keyring is the path to key ring for RBDUser. Default is /etc/ceph/keyring. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDPersistentVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDPersistentVolumeSourcePool :: !(Maybe Text) -- ^ "pool" - pool is the rados pool name. Default is rbd. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" - , v1RBDPersistentVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is the rados user name. Default is admin. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RBDPersistentVolumeSource -instance A.FromJSON V1RBDPersistentVolumeSource where - parseJSON = A.withObject "V1RBDPersistentVolumeSource" $ \o -> - V1RBDPersistentVolumeSource - <$> (o .:? "fsType") - <*> (o .: "image") - <*> (o .:? "keyring") - <*> (o .: "monitors") - <*> (o .:? "pool") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .:? "user") - --- | ToJSON V1RBDPersistentVolumeSource -instance A.ToJSON V1RBDPersistentVolumeSource where - toJSON V1RBDPersistentVolumeSource {..} = - _omitNulls - [ "fsType" .= v1RBDPersistentVolumeSourceFsType - , "image" .= v1RBDPersistentVolumeSourceImage - , "keyring" .= v1RBDPersistentVolumeSourceKeyring - , "monitors" .= v1RBDPersistentVolumeSourceMonitors - , "pool" .= v1RBDPersistentVolumeSourcePool - , "readOnly" .= v1RBDPersistentVolumeSourceReadOnly - , "secretRef" .= v1RBDPersistentVolumeSourceSecretRef - , "user" .= v1RBDPersistentVolumeSourceUser - ] - - --- | Construct a value of type 'V1RBDPersistentVolumeSource' (by applying it's required fields, if any) -mkV1RBDPersistentVolumeSource - :: Text -- ^ 'v1RBDPersistentVolumeSourceImage': image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - -> [Text] -- ^ 'v1RBDPersistentVolumeSourceMonitors': monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - -> V1RBDPersistentVolumeSource -mkV1RBDPersistentVolumeSource v1RBDPersistentVolumeSourceImage v1RBDPersistentVolumeSourceMonitors = - V1RBDPersistentVolumeSource - { v1RBDPersistentVolumeSourceFsType = Nothing - , v1RBDPersistentVolumeSourceImage - , v1RBDPersistentVolumeSourceKeyring = Nothing - , v1RBDPersistentVolumeSourceMonitors - , v1RBDPersistentVolumeSourcePool = Nothing - , v1RBDPersistentVolumeSourceReadOnly = Nothing - , v1RBDPersistentVolumeSourceSecretRef = Nothing - , v1RBDPersistentVolumeSourceUser = Nothing - } - --- ** V1RBDVolumeSource --- | V1RBDVolumeSource --- Represents a Rados Block Device mount that lasts the lifetime of a pod. RBD volumes support ownership management and SELinux relabeling. -data V1RBDVolumeSource = V1RBDVolumeSource - { v1RBDVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#rbd - , v1RBDVolumeSourceImage :: !(Text) -- ^ /Required/ "image" - image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDVolumeSourceKeyring :: !(Maybe Text) -- ^ "keyring" - keyring is the path to key ring for RBDUser. Default is /etc/ceph/keyring. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDVolumeSourcePool :: !(Maybe Text) -- ^ "pool" - pool is the rados pool name. Default is rbd. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - , v1RBDVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - , v1RBDVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is the rados user name. Default is admin. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RBDVolumeSource -instance A.FromJSON V1RBDVolumeSource where - parseJSON = A.withObject "V1RBDVolumeSource" $ \o -> - V1RBDVolumeSource - <$> (o .:? "fsType") - <*> (o .: "image") - <*> (o .:? "keyring") - <*> (o .: "monitors") - <*> (o .:? "pool") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .:? "user") - --- | ToJSON V1RBDVolumeSource -instance A.ToJSON V1RBDVolumeSource where - toJSON V1RBDVolumeSource {..} = - _omitNulls - [ "fsType" .= v1RBDVolumeSourceFsType - , "image" .= v1RBDVolumeSourceImage - , "keyring" .= v1RBDVolumeSourceKeyring - , "monitors" .= v1RBDVolumeSourceMonitors - , "pool" .= v1RBDVolumeSourcePool - , "readOnly" .= v1RBDVolumeSourceReadOnly - , "secretRef" .= v1RBDVolumeSourceSecretRef - , "user" .= v1RBDVolumeSourceUser - ] - - --- | Construct a value of type 'V1RBDVolumeSource' (by applying it's required fields, if any) -mkV1RBDVolumeSource - :: Text -- ^ 'v1RBDVolumeSourceImage': image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - -> [Text] -- ^ 'v1RBDVolumeSourceMonitors': monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it - -> V1RBDVolumeSource -mkV1RBDVolumeSource v1RBDVolumeSourceImage v1RBDVolumeSourceMonitors = - V1RBDVolumeSource - { v1RBDVolumeSourceFsType = Nothing - , v1RBDVolumeSourceImage - , v1RBDVolumeSourceKeyring = Nothing - , v1RBDVolumeSourceMonitors - , v1RBDVolumeSourcePool = Nothing - , v1RBDVolumeSourceReadOnly = Nothing - , v1RBDVolumeSourceSecretRef = Nothing - , v1RBDVolumeSourceUser = Nothing - } - --- ** V1ReplicaSet --- | V1ReplicaSet --- ReplicaSet ensures that a specified number of pod replicas are running at any given time. -data V1ReplicaSet = V1ReplicaSet - { v1ReplicaSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ReplicaSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ReplicaSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ReplicaSetSpec :: !(Maybe V1ReplicaSetSpec) -- ^ "spec" - , v1ReplicaSetStatus :: !(Maybe V1ReplicaSetStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicaSet -instance A.FromJSON V1ReplicaSet where - parseJSON = A.withObject "V1ReplicaSet" $ \o -> - V1ReplicaSet - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1ReplicaSet -instance A.ToJSON V1ReplicaSet where - toJSON V1ReplicaSet {..} = - _omitNulls - [ "apiVersion" .= v1ReplicaSetApiVersion - , "kind" .= v1ReplicaSetKind - , "metadata" .= v1ReplicaSetMetadata - , "spec" .= v1ReplicaSetSpec - , "status" .= v1ReplicaSetStatus - ] - - --- | Construct a value of type 'V1ReplicaSet' (by applying it's required fields, if any) -mkV1ReplicaSet - :: V1ReplicaSet -mkV1ReplicaSet = - V1ReplicaSet - { v1ReplicaSetApiVersion = Nothing - , v1ReplicaSetKind = Nothing - , v1ReplicaSetMetadata = Nothing - , v1ReplicaSetSpec = Nothing - , v1ReplicaSetStatus = Nothing - } - --- ** V1ReplicaSetCondition --- | V1ReplicaSetCondition --- ReplicaSetCondition describes the state of a replica set at a certain point. -data V1ReplicaSetCondition = V1ReplicaSetCondition - { v1ReplicaSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - The last time the condition transitioned from one status to another. - , v1ReplicaSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1ReplicaSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. - , v1ReplicaSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1ReplicaSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of replica set condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicaSetCondition -instance A.FromJSON V1ReplicaSetCondition where - parseJSON = A.withObject "V1ReplicaSetCondition" $ \o -> - V1ReplicaSetCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1ReplicaSetCondition -instance A.ToJSON V1ReplicaSetCondition where - toJSON V1ReplicaSetCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1ReplicaSetConditionLastTransitionTime - , "message" .= v1ReplicaSetConditionMessage - , "reason" .= v1ReplicaSetConditionReason - , "status" .= v1ReplicaSetConditionStatus - , "type" .= v1ReplicaSetConditionType - ] - - --- | Construct a value of type 'V1ReplicaSetCondition' (by applying it's required fields, if any) -mkV1ReplicaSetCondition - :: Text -- ^ 'v1ReplicaSetConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1ReplicaSetConditionType': Type of replica set condition. - -> V1ReplicaSetCondition -mkV1ReplicaSetCondition v1ReplicaSetConditionStatus v1ReplicaSetConditionType = - V1ReplicaSetCondition - { v1ReplicaSetConditionLastTransitionTime = Nothing - , v1ReplicaSetConditionMessage = Nothing - , v1ReplicaSetConditionReason = Nothing - , v1ReplicaSetConditionStatus - , v1ReplicaSetConditionType - } - --- ** V1ReplicaSetList --- | V1ReplicaSetList --- ReplicaSetList is a collection of ReplicaSets. -data V1ReplicaSetList = V1ReplicaSetList - { v1ReplicaSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ReplicaSetListItems :: !([V1ReplicaSet]) -- ^ /Required/ "items" - List of ReplicaSets. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller - , v1ReplicaSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ReplicaSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicaSetList -instance A.FromJSON V1ReplicaSetList where - parseJSON = A.withObject "V1ReplicaSetList" $ \o -> - V1ReplicaSetList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ReplicaSetList -instance A.ToJSON V1ReplicaSetList where - toJSON V1ReplicaSetList {..} = - _omitNulls - [ "apiVersion" .= v1ReplicaSetListApiVersion - , "items" .= v1ReplicaSetListItems - , "kind" .= v1ReplicaSetListKind - , "metadata" .= v1ReplicaSetListMetadata - ] - - --- | Construct a value of type 'V1ReplicaSetList' (by applying it's required fields, if any) -mkV1ReplicaSetList - :: [V1ReplicaSet] -- ^ 'v1ReplicaSetListItems': List of ReplicaSets. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller - -> V1ReplicaSetList -mkV1ReplicaSetList v1ReplicaSetListItems = - V1ReplicaSetList - { v1ReplicaSetListApiVersion = Nothing - , v1ReplicaSetListItems - , v1ReplicaSetListKind = Nothing - , v1ReplicaSetListMetadata = Nothing - } - --- ** V1ReplicaSetSpec --- | V1ReplicaSetSpec --- ReplicaSetSpec is the specification of a ReplicaSet. -data V1ReplicaSetSpec = V1ReplicaSetSpec - { v1ReplicaSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) - , v1ReplicaSetSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Replicas is the number of desired replicas. This is a pointer to distinguish between explicit zero and unspecified. Defaults to 1. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller - , v1ReplicaSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" - , v1ReplicaSetSpecTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicaSetSpec -instance A.FromJSON V1ReplicaSetSpec where - parseJSON = A.withObject "V1ReplicaSetSpec" $ \o -> - V1ReplicaSetSpec - <$> (o .:? "minReadySeconds") - <*> (o .:? "replicas") - <*> (o .: "selector") - <*> (o .:? "template") - --- | ToJSON V1ReplicaSetSpec -instance A.ToJSON V1ReplicaSetSpec where - toJSON V1ReplicaSetSpec {..} = - _omitNulls - [ "minReadySeconds" .= v1ReplicaSetSpecMinReadySeconds - , "replicas" .= v1ReplicaSetSpecReplicas - , "selector" .= v1ReplicaSetSpecSelector - , "template" .= v1ReplicaSetSpecTemplate - ] - - --- | Construct a value of type 'V1ReplicaSetSpec' (by applying it's required fields, if any) -mkV1ReplicaSetSpec - :: V1LabelSelector -- ^ 'v1ReplicaSetSpecSelector' - -> V1ReplicaSetSpec -mkV1ReplicaSetSpec v1ReplicaSetSpecSelector = - V1ReplicaSetSpec - { v1ReplicaSetSpecMinReadySeconds = Nothing - , v1ReplicaSetSpecReplicas = Nothing - , v1ReplicaSetSpecSelector - , v1ReplicaSetSpecTemplate = Nothing - } - --- ** V1ReplicaSetStatus --- | V1ReplicaSetStatus --- ReplicaSetStatus represents the current status of a ReplicaSet. -data V1ReplicaSetStatus = V1ReplicaSetStatus - { v1ReplicaSetStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - The number of available replicas (ready for at least minReadySeconds) for this replica set. - , v1ReplicaSetStatusConditions :: !(Maybe [V1ReplicaSetCondition]) -- ^ "conditions" - Represents the latest available observations of a replica set's current state. - , v1ReplicaSetStatusFullyLabeledReplicas :: !(Maybe Int) -- ^ "fullyLabeledReplicas" - The number of pods that have labels matching the labels of the pod template of the replicaset. - , v1ReplicaSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - ObservedGeneration reflects the generation of the most recently observed ReplicaSet. - , v1ReplicaSetStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods targeted by this ReplicaSet with a Ready Condition. - , v1ReplicaSetStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicaSetStatus -instance A.FromJSON V1ReplicaSetStatus where - parseJSON = A.withObject "V1ReplicaSetStatus" $ \o -> - V1ReplicaSetStatus - <$> (o .:? "availableReplicas") - <*> (o .:? "conditions") - <*> (o .:? "fullyLabeledReplicas") - <*> (o .:? "observedGeneration") - <*> (o .:? "readyReplicas") - <*> (o .: "replicas") - --- | ToJSON V1ReplicaSetStatus -instance A.ToJSON V1ReplicaSetStatus where - toJSON V1ReplicaSetStatus {..} = - _omitNulls - [ "availableReplicas" .= v1ReplicaSetStatusAvailableReplicas - , "conditions" .= v1ReplicaSetStatusConditions - , "fullyLabeledReplicas" .= v1ReplicaSetStatusFullyLabeledReplicas - , "observedGeneration" .= v1ReplicaSetStatusObservedGeneration - , "readyReplicas" .= v1ReplicaSetStatusReadyReplicas - , "replicas" .= v1ReplicaSetStatusReplicas - ] - - --- | Construct a value of type 'V1ReplicaSetStatus' (by applying it's required fields, if any) -mkV1ReplicaSetStatus - :: Int -- ^ 'v1ReplicaSetStatusReplicas': Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller - -> V1ReplicaSetStatus -mkV1ReplicaSetStatus v1ReplicaSetStatusReplicas = - V1ReplicaSetStatus - { v1ReplicaSetStatusAvailableReplicas = Nothing - , v1ReplicaSetStatusConditions = Nothing - , v1ReplicaSetStatusFullyLabeledReplicas = Nothing - , v1ReplicaSetStatusObservedGeneration = Nothing - , v1ReplicaSetStatusReadyReplicas = Nothing - , v1ReplicaSetStatusReplicas - } - --- ** V1ReplicationController --- | V1ReplicationController --- ReplicationController represents the configuration of a replication controller. -data V1ReplicationController = V1ReplicationController - { v1ReplicationControllerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ReplicationControllerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ReplicationControllerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ReplicationControllerSpec :: !(Maybe V1ReplicationControllerSpec) -- ^ "spec" - , v1ReplicationControllerStatus :: !(Maybe V1ReplicationControllerStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicationController -instance A.FromJSON V1ReplicationController where - parseJSON = A.withObject "V1ReplicationController" $ \o -> - V1ReplicationController - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1ReplicationController -instance A.ToJSON V1ReplicationController where - toJSON V1ReplicationController {..} = - _omitNulls - [ "apiVersion" .= v1ReplicationControllerApiVersion - , "kind" .= v1ReplicationControllerKind - , "metadata" .= v1ReplicationControllerMetadata - , "spec" .= v1ReplicationControllerSpec - , "status" .= v1ReplicationControllerStatus - ] - - --- | Construct a value of type 'V1ReplicationController' (by applying it's required fields, if any) -mkV1ReplicationController - :: V1ReplicationController -mkV1ReplicationController = - V1ReplicationController - { v1ReplicationControllerApiVersion = Nothing - , v1ReplicationControllerKind = Nothing - , v1ReplicationControllerMetadata = Nothing - , v1ReplicationControllerSpec = Nothing - , v1ReplicationControllerStatus = Nothing - } - --- ** V1ReplicationControllerCondition --- | V1ReplicationControllerCondition --- ReplicationControllerCondition describes the state of a replication controller at a certain point. -data V1ReplicationControllerCondition = V1ReplicationControllerCondition - { v1ReplicationControllerConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - The last time the condition transitioned from one status to another. - , v1ReplicationControllerConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1ReplicationControllerConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. - , v1ReplicationControllerConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1ReplicationControllerConditionType :: !(Text) -- ^ /Required/ "type" - Type of replication controller condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicationControllerCondition -instance A.FromJSON V1ReplicationControllerCondition where - parseJSON = A.withObject "V1ReplicationControllerCondition" $ \o -> - V1ReplicationControllerCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1ReplicationControllerCondition -instance A.ToJSON V1ReplicationControllerCondition where - toJSON V1ReplicationControllerCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1ReplicationControllerConditionLastTransitionTime - , "message" .= v1ReplicationControllerConditionMessage - , "reason" .= v1ReplicationControllerConditionReason - , "status" .= v1ReplicationControllerConditionStatus - , "type" .= v1ReplicationControllerConditionType - ] - - --- | Construct a value of type 'V1ReplicationControllerCondition' (by applying it's required fields, if any) -mkV1ReplicationControllerCondition - :: Text -- ^ 'v1ReplicationControllerConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1ReplicationControllerConditionType': Type of replication controller condition. - -> V1ReplicationControllerCondition -mkV1ReplicationControllerCondition v1ReplicationControllerConditionStatus v1ReplicationControllerConditionType = - V1ReplicationControllerCondition - { v1ReplicationControllerConditionLastTransitionTime = Nothing - , v1ReplicationControllerConditionMessage = Nothing - , v1ReplicationControllerConditionReason = Nothing - , v1ReplicationControllerConditionStatus - , v1ReplicationControllerConditionType - } - --- ** V1ReplicationControllerList --- | V1ReplicationControllerList --- ReplicationControllerList is a collection of replication controllers. -data V1ReplicationControllerList = V1ReplicationControllerList - { v1ReplicationControllerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ReplicationControllerListItems :: !([V1ReplicationController]) -- ^ /Required/ "items" - List of replication controllers. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller - , v1ReplicationControllerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ReplicationControllerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicationControllerList -instance A.FromJSON V1ReplicationControllerList where - parseJSON = A.withObject "V1ReplicationControllerList" $ \o -> - V1ReplicationControllerList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ReplicationControllerList -instance A.ToJSON V1ReplicationControllerList where - toJSON V1ReplicationControllerList {..} = - _omitNulls - [ "apiVersion" .= v1ReplicationControllerListApiVersion - , "items" .= v1ReplicationControllerListItems - , "kind" .= v1ReplicationControllerListKind - , "metadata" .= v1ReplicationControllerListMetadata - ] - - --- | Construct a value of type 'V1ReplicationControllerList' (by applying it's required fields, if any) -mkV1ReplicationControllerList - :: [V1ReplicationController] -- ^ 'v1ReplicationControllerListItems': List of replication controllers. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller - -> V1ReplicationControllerList -mkV1ReplicationControllerList v1ReplicationControllerListItems = - V1ReplicationControllerList - { v1ReplicationControllerListApiVersion = Nothing - , v1ReplicationControllerListItems - , v1ReplicationControllerListKind = Nothing - , v1ReplicationControllerListMetadata = Nothing - } - --- ** V1ReplicationControllerSpec --- | V1ReplicationControllerSpec --- ReplicationControllerSpec is the specification of a replication controller. -data V1ReplicationControllerSpec = V1ReplicationControllerSpec - { v1ReplicationControllerSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) - , v1ReplicationControllerSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Replicas is the number of desired replicas. This is a pointer to distinguish between explicit zero and unspecified. Defaults to 1. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller - , v1ReplicationControllerSpecSelector :: !(Maybe (Map.Map String Text)) -- ^ "selector" - Selector is a label query over pods that should match the Replicas count. If Selector is empty, it is defaulted to the labels present on the Pod template. Label keys and values that must match in order to be controlled by this replication controller, if empty defaulted to labels on Pod template. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/labels/#label-selectors - , v1ReplicationControllerSpecTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicationControllerSpec -instance A.FromJSON V1ReplicationControllerSpec where - parseJSON = A.withObject "V1ReplicationControllerSpec" $ \o -> - V1ReplicationControllerSpec - <$> (o .:? "minReadySeconds") - <*> (o .:? "replicas") - <*> (o .:? "selector") - <*> (o .:? "template") - --- | ToJSON V1ReplicationControllerSpec -instance A.ToJSON V1ReplicationControllerSpec where - toJSON V1ReplicationControllerSpec {..} = - _omitNulls - [ "minReadySeconds" .= v1ReplicationControllerSpecMinReadySeconds - , "replicas" .= v1ReplicationControllerSpecReplicas - , "selector" .= v1ReplicationControllerSpecSelector - , "template" .= v1ReplicationControllerSpecTemplate - ] - - --- | Construct a value of type 'V1ReplicationControllerSpec' (by applying it's required fields, if any) -mkV1ReplicationControllerSpec - :: V1ReplicationControllerSpec -mkV1ReplicationControllerSpec = - V1ReplicationControllerSpec - { v1ReplicationControllerSpecMinReadySeconds = Nothing - , v1ReplicationControllerSpecReplicas = Nothing - , v1ReplicationControllerSpecSelector = Nothing - , v1ReplicationControllerSpecTemplate = Nothing - } - --- ** V1ReplicationControllerStatus --- | V1ReplicationControllerStatus --- ReplicationControllerStatus represents the current status of a replication controller. -data V1ReplicationControllerStatus = V1ReplicationControllerStatus - { v1ReplicationControllerStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - The number of available replicas (ready for at least minReadySeconds) for this replication controller. - , v1ReplicationControllerStatusConditions :: !(Maybe [V1ReplicationControllerCondition]) -- ^ "conditions" - Represents the latest available observations of a replication controller's current state. - , v1ReplicationControllerStatusFullyLabeledReplicas :: !(Maybe Int) -- ^ "fullyLabeledReplicas" - The number of pods that have labels matching the labels of the pod template of the replication controller. - , v1ReplicationControllerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - ObservedGeneration reflects the generation of the most recently observed replication controller. - , v1ReplicationControllerStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - The number of ready replicas for this replication controller. - , v1ReplicationControllerStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ReplicationControllerStatus -instance A.FromJSON V1ReplicationControllerStatus where - parseJSON = A.withObject "V1ReplicationControllerStatus" $ \o -> - V1ReplicationControllerStatus - <$> (o .:? "availableReplicas") - <*> (o .:? "conditions") - <*> (o .:? "fullyLabeledReplicas") - <*> (o .:? "observedGeneration") - <*> (o .:? "readyReplicas") - <*> (o .: "replicas") - --- | ToJSON V1ReplicationControllerStatus -instance A.ToJSON V1ReplicationControllerStatus where - toJSON V1ReplicationControllerStatus {..} = - _omitNulls - [ "availableReplicas" .= v1ReplicationControllerStatusAvailableReplicas - , "conditions" .= v1ReplicationControllerStatusConditions - , "fullyLabeledReplicas" .= v1ReplicationControllerStatusFullyLabeledReplicas - , "observedGeneration" .= v1ReplicationControllerStatusObservedGeneration - , "readyReplicas" .= v1ReplicationControllerStatusReadyReplicas - , "replicas" .= v1ReplicationControllerStatusReplicas - ] - - --- | Construct a value of type 'V1ReplicationControllerStatus' (by applying it's required fields, if any) -mkV1ReplicationControllerStatus - :: Int -- ^ 'v1ReplicationControllerStatusReplicas': Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller - -> V1ReplicationControllerStatus -mkV1ReplicationControllerStatus v1ReplicationControllerStatusReplicas = - V1ReplicationControllerStatus - { v1ReplicationControllerStatusAvailableReplicas = Nothing - , v1ReplicationControllerStatusConditions = Nothing - , v1ReplicationControllerStatusFullyLabeledReplicas = Nothing - , v1ReplicationControllerStatusObservedGeneration = Nothing - , v1ReplicationControllerStatusReadyReplicas = Nothing - , v1ReplicationControllerStatusReplicas - } - --- ** V1ResourceAttributes --- | V1ResourceAttributes --- ResourceAttributes includes the authorization attributes available for resource requests to the Authorizer interface -data V1ResourceAttributes = V1ResourceAttributes - { v1ResourceAttributesGroup :: !(Maybe Text) -- ^ "group" - Group is the API Group of the Resource. \"*\" means all. - , v1ResourceAttributesName :: !(Maybe Text) -- ^ "name" - Name is the name of the resource being requested for a \"get\" or deleted for a \"delete\". \"\" (empty) means all. - , v1ResourceAttributesNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the action being requested. Currently, there is no distinction between no namespace and all namespaces \"\" (empty) is defaulted for LocalSubjectAccessReviews \"\" (empty) is empty for cluster-scoped resources \"\" (empty) means \"all\" for namespace scoped resources from a SubjectAccessReview or SelfSubjectAccessReview - , v1ResourceAttributesResource :: !(Maybe Text) -- ^ "resource" - Resource is one of the existing resource types. \"*\" means all. - , v1ResourceAttributesSubresource :: !(Maybe Text) -- ^ "subresource" - Subresource is one of the existing resource types. \"\" means none. - , v1ResourceAttributesVerb :: !(Maybe Text) -- ^ "verb" - Verb is a kubernetes resource API verb, like: get, list, watch, create, update, delete, proxy. \"*\" means all. - , v1ResourceAttributesVersion :: !(Maybe Text) -- ^ "version" - Version is the API Version of the Resource. \"*\" means all. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceAttributes -instance A.FromJSON V1ResourceAttributes where - parseJSON = A.withObject "V1ResourceAttributes" $ \o -> - V1ResourceAttributes - <$> (o .:? "group") - <*> (o .:? "name") - <*> (o .:? "namespace") - <*> (o .:? "resource") - <*> (o .:? "subresource") - <*> (o .:? "verb") - <*> (o .:? "version") - --- | ToJSON V1ResourceAttributes -instance A.ToJSON V1ResourceAttributes where - toJSON V1ResourceAttributes {..} = - _omitNulls - [ "group" .= v1ResourceAttributesGroup - , "name" .= v1ResourceAttributesName - , "namespace" .= v1ResourceAttributesNamespace - , "resource" .= v1ResourceAttributesResource - , "subresource" .= v1ResourceAttributesSubresource - , "verb" .= v1ResourceAttributesVerb - , "version" .= v1ResourceAttributesVersion - ] - - --- | Construct a value of type 'V1ResourceAttributes' (by applying it's required fields, if any) -mkV1ResourceAttributes - :: V1ResourceAttributes -mkV1ResourceAttributes = - V1ResourceAttributes - { v1ResourceAttributesGroup = Nothing - , v1ResourceAttributesName = Nothing - , v1ResourceAttributesNamespace = Nothing - , v1ResourceAttributesResource = Nothing - , v1ResourceAttributesSubresource = Nothing - , v1ResourceAttributesVerb = Nothing - , v1ResourceAttributesVersion = Nothing - } - --- ** V1ResourceClaim --- | V1ResourceClaim --- ResourceClaim references one entry in PodSpec.ResourceClaims. -data V1ResourceClaim = V1ResourceClaim - { v1ResourceClaimName :: !(Text) -- ^ /Required/ "name" - Name must match the name of one entry in pod.spec.resourceClaims of the Pod where this field is used. It makes that resource available inside a container. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceClaim -instance A.FromJSON V1ResourceClaim where - parseJSON = A.withObject "V1ResourceClaim" $ \o -> - V1ResourceClaim - <$> (o .: "name") - --- | ToJSON V1ResourceClaim -instance A.ToJSON V1ResourceClaim where - toJSON V1ResourceClaim {..} = - _omitNulls - [ "name" .= v1ResourceClaimName - ] - - --- | Construct a value of type 'V1ResourceClaim' (by applying it's required fields, if any) -mkV1ResourceClaim - :: Text -- ^ 'v1ResourceClaimName': Name must match the name of one entry in pod.spec.resourceClaims of the Pod where this field is used. It makes that resource available inside a container. - -> V1ResourceClaim -mkV1ResourceClaim v1ResourceClaimName = - V1ResourceClaim - { v1ResourceClaimName - } - --- ** V1ResourceFieldSelector --- | V1ResourceFieldSelector --- ResourceFieldSelector represents container resources (cpu, memory) and their output format -data V1ResourceFieldSelector = V1ResourceFieldSelector - { v1ResourceFieldSelectorContainerName :: !(Maybe Text) -- ^ "containerName" - Container name: required for volumes, optional for env vars - , v1ResourceFieldSelectorDivisor :: !(Maybe Quantity) -- ^ "divisor" - , v1ResourceFieldSelectorResource :: !(Text) -- ^ /Required/ "resource" - Required: resource to select - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceFieldSelector -instance A.FromJSON V1ResourceFieldSelector where - parseJSON = A.withObject "V1ResourceFieldSelector" $ \o -> - V1ResourceFieldSelector - <$> (o .:? "containerName") - <*> (o .:? "divisor") - <*> (o .: "resource") - --- | ToJSON V1ResourceFieldSelector -instance A.ToJSON V1ResourceFieldSelector where - toJSON V1ResourceFieldSelector {..} = - _omitNulls - [ "containerName" .= v1ResourceFieldSelectorContainerName - , "divisor" .= v1ResourceFieldSelectorDivisor - , "resource" .= v1ResourceFieldSelectorResource - ] - - --- | Construct a value of type 'V1ResourceFieldSelector' (by applying it's required fields, if any) -mkV1ResourceFieldSelector - :: Text -- ^ 'v1ResourceFieldSelectorResource': Required: resource to select - -> V1ResourceFieldSelector -mkV1ResourceFieldSelector v1ResourceFieldSelectorResource = - V1ResourceFieldSelector - { v1ResourceFieldSelectorContainerName = Nothing - , v1ResourceFieldSelectorDivisor = Nothing - , v1ResourceFieldSelectorResource - } - --- ** V1ResourceQuota --- | V1ResourceQuota --- ResourceQuota sets aggregate quota restrictions enforced per namespace -data V1ResourceQuota = V1ResourceQuota - { v1ResourceQuotaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ResourceQuotaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ResourceQuotaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ResourceQuotaSpec :: !(Maybe V1ResourceQuotaSpec) -- ^ "spec" - , v1ResourceQuotaStatus :: !(Maybe V1ResourceQuotaStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceQuota -instance A.FromJSON V1ResourceQuota where - parseJSON = A.withObject "V1ResourceQuota" $ \o -> - V1ResourceQuota - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1ResourceQuota -instance A.ToJSON V1ResourceQuota where - toJSON V1ResourceQuota {..} = - _omitNulls - [ "apiVersion" .= v1ResourceQuotaApiVersion - , "kind" .= v1ResourceQuotaKind - , "metadata" .= v1ResourceQuotaMetadata - , "spec" .= v1ResourceQuotaSpec - , "status" .= v1ResourceQuotaStatus - ] - - --- | Construct a value of type 'V1ResourceQuota' (by applying it's required fields, if any) -mkV1ResourceQuota - :: V1ResourceQuota -mkV1ResourceQuota = - V1ResourceQuota - { v1ResourceQuotaApiVersion = Nothing - , v1ResourceQuotaKind = Nothing - , v1ResourceQuotaMetadata = Nothing - , v1ResourceQuotaSpec = Nothing - , v1ResourceQuotaStatus = Nothing - } - --- ** V1ResourceQuotaList --- | V1ResourceQuotaList --- ResourceQuotaList is a list of ResourceQuota items. -data V1ResourceQuotaList = V1ResourceQuotaList - { v1ResourceQuotaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ResourceQuotaListItems :: !([V1ResourceQuota]) -- ^ /Required/ "items" - Items is a list of ResourceQuota objects. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ - , v1ResourceQuotaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ResourceQuotaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceQuotaList -instance A.FromJSON V1ResourceQuotaList where - parseJSON = A.withObject "V1ResourceQuotaList" $ \o -> - V1ResourceQuotaList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ResourceQuotaList -instance A.ToJSON V1ResourceQuotaList where - toJSON V1ResourceQuotaList {..} = - _omitNulls - [ "apiVersion" .= v1ResourceQuotaListApiVersion - , "items" .= v1ResourceQuotaListItems - , "kind" .= v1ResourceQuotaListKind - , "metadata" .= v1ResourceQuotaListMetadata - ] - - --- | Construct a value of type 'V1ResourceQuotaList' (by applying it's required fields, if any) -mkV1ResourceQuotaList - :: [V1ResourceQuota] -- ^ 'v1ResourceQuotaListItems': Items is a list of ResourceQuota objects. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ - -> V1ResourceQuotaList -mkV1ResourceQuotaList v1ResourceQuotaListItems = - V1ResourceQuotaList - { v1ResourceQuotaListApiVersion = Nothing - , v1ResourceQuotaListItems - , v1ResourceQuotaListKind = Nothing - , v1ResourceQuotaListMetadata = Nothing - } - --- ** V1ResourceQuotaSpec --- | V1ResourceQuotaSpec --- ResourceQuotaSpec defines the desired hard limits to enforce for Quota. -data V1ResourceQuotaSpec = V1ResourceQuotaSpec - { v1ResourceQuotaSpecHard :: !(Maybe (Map.Map String Quantity)) -- ^ "hard" - hard is the set of desired hard limits for each named resource. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ - , v1ResourceQuotaSpecScopeSelector :: !(Maybe V1ScopeSelector) -- ^ "scopeSelector" - , v1ResourceQuotaSpecScopes :: !(Maybe [Text]) -- ^ "scopes" - A collection of filters that must match each object tracked by a quota. If not specified, the quota matches all objects. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceQuotaSpec -instance A.FromJSON V1ResourceQuotaSpec where - parseJSON = A.withObject "V1ResourceQuotaSpec" $ \o -> - V1ResourceQuotaSpec - <$> (o .:? "hard") - <*> (o .:? "scopeSelector") - <*> (o .:? "scopes") - --- | ToJSON V1ResourceQuotaSpec -instance A.ToJSON V1ResourceQuotaSpec where - toJSON V1ResourceQuotaSpec {..} = - _omitNulls - [ "hard" .= v1ResourceQuotaSpecHard - , "scopeSelector" .= v1ResourceQuotaSpecScopeSelector - , "scopes" .= v1ResourceQuotaSpecScopes - ] - - --- | Construct a value of type 'V1ResourceQuotaSpec' (by applying it's required fields, if any) -mkV1ResourceQuotaSpec - :: V1ResourceQuotaSpec -mkV1ResourceQuotaSpec = - V1ResourceQuotaSpec - { v1ResourceQuotaSpecHard = Nothing - , v1ResourceQuotaSpecScopeSelector = Nothing - , v1ResourceQuotaSpecScopes = Nothing - } - --- ** V1ResourceQuotaStatus --- | V1ResourceQuotaStatus --- ResourceQuotaStatus defines the enforced hard limits and observed use. -data V1ResourceQuotaStatus = V1ResourceQuotaStatus - { v1ResourceQuotaStatusHard :: !(Maybe (Map.Map String Quantity)) -- ^ "hard" - Hard is the set of enforced hard limits for each named resource. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ - , v1ResourceQuotaStatusUsed :: !(Maybe (Map.Map String Quantity)) -- ^ "used" - Used is the current observed total usage of the resource in the namespace. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceQuotaStatus -instance A.FromJSON V1ResourceQuotaStatus where - parseJSON = A.withObject "V1ResourceQuotaStatus" $ \o -> - V1ResourceQuotaStatus - <$> (o .:? "hard") - <*> (o .:? "used") - --- | ToJSON V1ResourceQuotaStatus -instance A.ToJSON V1ResourceQuotaStatus where - toJSON V1ResourceQuotaStatus {..} = - _omitNulls - [ "hard" .= v1ResourceQuotaStatusHard - , "used" .= v1ResourceQuotaStatusUsed - ] - - --- | Construct a value of type 'V1ResourceQuotaStatus' (by applying it's required fields, if any) -mkV1ResourceQuotaStatus - :: V1ResourceQuotaStatus -mkV1ResourceQuotaStatus = - V1ResourceQuotaStatus - { v1ResourceQuotaStatusHard = Nothing - , v1ResourceQuotaStatusUsed = Nothing - } - --- ** V1ResourceRequirements --- | V1ResourceRequirements --- ResourceRequirements describes the compute resource requirements. -data V1ResourceRequirements = V1ResourceRequirements - { v1ResourceRequirementsClaims :: !(Maybe [V1ResourceClaim]) -- ^ "claims" - Claims lists the names of resources, defined in spec.resourceClaims, that are used by this container. This is an alpha field and requires enabling the DynamicResourceAllocation feature gate. This field is immutable. It can only be set for containers. - , v1ResourceRequirementsLimits :: !(Maybe (Map.Map String Quantity)) -- ^ "limits" - Limits describes the maximum amount of compute resources allowed. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ - , v1ResourceRequirementsRequests :: !(Maybe (Map.Map String Quantity)) -- ^ "requests" - Requests describes the minimum amount of compute resources required. If Requests is omitted for a container, it defaults to Limits if that is explicitly specified, otherwise to an implementation-defined value. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceRequirements -instance A.FromJSON V1ResourceRequirements where - parseJSON = A.withObject "V1ResourceRequirements" $ \o -> - V1ResourceRequirements - <$> (o .:? "claims") - <*> (o .:? "limits") - <*> (o .:? "requests") - --- | ToJSON V1ResourceRequirements -instance A.ToJSON V1ResourceRequirements where - toJSON V1ResourceRequirements {..} = - _omitNulls - [ "claims" .= v1ResourceRequirementsClaims - , "limits" .= v1ResourceRequirementsLimits - , "requests" .= v1ResourceRequirementsRequests - ] - - --- | Construct a value of type 'V1ResourceRequirements' (by applying it's required fields, if any) -mkV1ResourceRequirements - :: V1ResourceRequirements -mkV1ResourceRequirements = - V1ResourceRequirements - { v1ResourceRequirementsClaims = Nothing - , v1ResourceRequirementsLimits = Nothing - , v1ResourceRequirementsRequests = Nothing - } - --- ** V1ResourceRule --- | V1ResourceRule --- ResourceRule is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. -data V1ResourceRule = V1ResourceRule - { v1ResourceRuleApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the name of the APIGroup that contains the resources. If multiple API groups are specified, any action requested against one of the enumerated resources in any API group will be allowed. \"*\" means all. - , v1ResourceRuleResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. \"*\" means all. - , v1ResourceRuleResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. \"*\" means all in the specified apiGroups. \"*/foo\" represents the subresource 'foo' for all resources in the specified apiGroups. - , v1ResourceRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verb is a list of kubernetes resource API verbs, like: get, list, watch, create, update, delete, proxy. \"*\" means all. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ResourceRule -instance A.FromJSON V1ResourceRule where - parseJSON = A.withObject "V1ResourceRule" $ \o -> - V1ResourceRule - <$> (o .:? "apiGroups") - <*> (o .:? "resourceNames") - <*> (o .:? "resources") - <*> (o .: "verbs") - --- | ToJSON V1ResourceRule -instance A.ToJSON V1ResourceRule where - toJSON V1ResourceRule {..} = - _omitNulls - [ "apiGroups" .= v1ResourceRuleApiGroups - , "resourceNames" .= v1ResourceRuleResourceNames - , "resources" .= v1ResourceRuleResources - , "verbs" .= v1ResourceRuleVerbs - ] - - --- | Construct a value of type 'V1ResourceRule' (by applying it's required fields, if any) -mkV1ResourceRule - :: [Text] -- ^ 'v1ResourceRuleVerbs': Verb is a list of kubernetes resource API verbs, like: get, list, watch, create, update, delete, proxy. \"*\" means all. - -> V1ResourceRule -mkV1ResourceRule v1ResourceRuleVerbs = - V1ResourceRule - { v1ResourceRuleApiGroups = Nothing - , v1ResourceRuleResourceNames = Nothing - , v1ResourceRuleResources = Nothing - , v1ResourceRuleVerbs - } - --- ** V1Role --- | V1Role --- Role is a namespaced, logical grouping of PolicyRules that can be referenced as a unit by a RoleBinding. -data V1Role = V1Role - { v1RoleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RoleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RoleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1RoleRules :: !(Maybe [V1PolicyRule]) -- ^ "rules" - Rules holds all the PolicyRules for this Role - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Role -instance A.FromJSON V1Role where - parseJSON = A.withObject "V1Role" $ \o -> - V1Role - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "rules") - --- | ToJSON V1Role -instance A.ToJSON V1Role where - toJSON V1Role {..} = - _omitNulls - [ "apiVersion" .= v1RoleApiVersion - , "kind" .= v1RoleKind - , "metadata" .= v1RoleMetadata - , "rules" .= v1RoleRules - ] - - --- | Construct a value of type 'V1Role' (by applying it's required fields, if any) -mkV1Role - :: V1Role -mkV1Role = - V1Role - { v1RoleApiVersion = Nothing - , v1RoleKind = Nothing - , v1RoleMetadata = Nothing - , v1RoleRules = Nothing - } - --- ** V1RoleBinding --- | V1RoleBinding --- RoleBinding references a role, but does not contain it. It can reference a Role in the same namespace or a ClusterRole in the global namespace. It adds who information via Subjects and namespace information by which namespace it exists in. RoleBindings in a given namespace only have effect in that namespace. -data V1RoleBinding = V1RoleBinding - { v1RoleBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RoleBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RoleBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1RoleBindingRoleRef :: !(V1RoleRef) -- ^ /Required/ "roleRef" - , v1RoleBindingSubjects :: !(Maybe [V1Subject]) -- ^ "subjects" - Subjects holds references to the objects the role applies to. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RoleBinding -instance A.FromJSON V1RoleBinding where - parseJSON = A.withObject "V1RoleBinding" $ \o -> - V1RoleBinding - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "roleRef") - <*> (o .:? "subjects") - --- | ToJSON V1RoleBinding -instance A.ToJSON V1RoleBinding where - toJSON V1RoleBinding {..} = - _omitNulls - [ "apiVersion" .= v1RoleBindingApiVersion - , "kind" .= v1RoleBindingKind - , "metadata" .= v1RoleBindingMetadata - , "roleRef" .= v1RoleBindingRoleRef - , "subjects" .= v1RoleBindingSubjects - ] - - --- | Construct a value of type 'V1RoleBinding' (by applying it's required fields, if any) -mkV1RoleBinding - :: V1RoleRef -- ^ 'v1RoleBindingRoleRef' - -> V1RoleBinding -mkV1RoleBinding v1RoleBindingRoleRef = - V1RoleBinding - { v1RoleBindingApiVersion = Nothing - , v1RoleBindingKind = Nothing - , v1RoleBindingMetadata = Nothing - , v1RoleBindingRoleRef - , v1RoleBindingSubjects = Nothing - } - --- ** V1RoleBindingList --- | V1RoleBindingList --- RoleBindingList is a collection of RoleBindings -data V1RoleBindingList = V1RoleBindingList - { v1RoleBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RoleBindingListItems :: !([V1RoleBinding]) -- ^ /Required/ "items" - Items is a list of RoleBindings - , v1RoleBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RoleBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RoleBindingList -instance A.FromJSON V1RoleBindingList where - parseJSON = A.withObject "V1RoleBindingList" $ \o -> - V1RoleBindingList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1RoleBindingList -instance A.ToJSON V1RoleBindingList where - toJSON V1RoleBindingList {..} = - _omitNulls - [ "apiVersion" .= v1RoleBindingListApiVersion - , "items" .= v1RoleBindingListItems - , "kind" .= v1RoleBindingListKind - , "metadata" .= v1RoleBindingListMetadata - ] - - --- | Construct a value of type 'V1RoleBindingList' (by applying it's required fields, if any) -mkV1RoleBindingList - :: [V1RoleBinding] -- ^ 'v1RoleBindingListItems': Items is a list of RoleBindings - -> V1RoleBindingList -mkV1RoleBindingList v1RoleBindingListItems = - V1RoleBindingList - { v1RoleBindingListApiVersion = Nothing - , v1RoleBindingListItems - , v1RoleBindingListKind = Nothing - , v1RoleBindingListMetadata = Nothing - } - --- ** V1RoleList --- | V1RoleList --- RoleList is a collection of Roles -data V1RoleList = V1RoleList - { v1RoleListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RoleListItems :: !([V1Role]) -- ^ /Required/ "items" - Items is a list of Roles - , v1RoleListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RoleListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RoleList -instance A.FromJSON V1RoleList where - parseJSON = A.withObject "V1RoleList" $ \o -> - V1RoleList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1RoleList -instance A.ToJSON V1RoleList where - toJSON V1RoleList {..} = - _omitNulls - [ "apiVersion" .= v1RoleListApiVersion - , "items" .= v1RoleListItems - , "kind" .= v1RoleListKind - , "metadata" .= v1RoleListMetadata - ] - - --- | Construct a value of type 'V1RoleList' (by applying it's required fields, if any) -mkV1RoleList - :: [V1Role] -- ^ 'v1RoleListItems': Items is a list of Roles - -> V1RoleList -mkV1RoleList v1RoleListItems = - V1RoleList - { v1RoleListApiVersion = Nothing - , v1RoleListItems - , v1RoleListKind = Nothing - , v1RoleListMetadata = Nothing - } - --- ** V1RoleRef --- | V1RoleRef --- RoleRef contains information that points to the role being used -data V1RoleRef = V1RoleRef - { v1RoleRefApiGroup :: !(Text) -- ^ /Required/ "apiGroup" - APIGroup is the group for the resource being referenced - , v1RoleRefKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced - , v1RoleRefName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RoleRef -instance A.FromJSON V1RoleRef where - parseJSON = A.withObject "V1RoleRef" $ \o -> - V1RoleRef - <$> (o .: "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - --- | ToJSON V1RoleRef -instance A.ToJSON V1RoleRef where - toJSON V1RoleRef {..} = - _omitNulls - [ "apiGroup" .= v1RoleRefApiGroup - , "kind" .= v1RoleRefKind - , "name" .= v1RoleRefName - ] - - --- | Construct a value of type 'V1RoleRef' (by applying it's required fields, if any) -mkV1RoleRef - :: Text -- ^ 'v1RoleRefApiGroup': APIGroup is the group for the resource being referenced - -> Text -- ^ 'v1RoleRefKind': Kind is the type of resource being referenced - -> Text -- ^ 'v1RoleRefName': Name is the name of resource being referenced - -> V1RoleRef -mkV1RoleRef v1RoleRefApiGroup v1RoleRefKind v1RoleRefName = - V1RoleRef - { v1RoleRefApiGroup - , v1RoleRefKind - , v1RoleRefName - } - --- ** V1RollingUpdateDaemonSet --- | V1RollingUpdateDaemonSet --- Spec to control the desired behavior of daemon set rolling update. -data V1RollingUpdateDaemonSet = V1RollingUpdateDaemonSet - { v1RollingUpdateDaemonSetMaxSurge :: !(Maybe IntOrString) -- ^ "maxSurge" - , v1RollingUpdateDaemonSetMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RollingUpdateDaemonSet -instance A.FromJSON V1RollingUpdateDaemonSet where - parseJSON = A.withObject "V1RollingUpdateDaemonSet" $ \o -> - V1RollingUpdateDaemonSet - <$> (o .:? "maxSurge") - <*> (o .:? "maxUnavailable") - --- | ToJSON V1RollingUpdateDaemonSet -instance A.ToJSON V1RollingUpdateDaemonSet where - toJSON V1RollingUpdateDaemonSet {..} = - _omitNulls - [ "maxSurge" .= v1RollingUpdateDaemonSetMaxSurge - , "maxUnavailable" .= v1RollingUpdateDaemonSetMaxUnavailable - ] - - --- | Construct a value of type 'V1RollingUpdateDaemonSet' (by applying it's required fields, if any) -mkV1RollingUpdateDaemonSet - :: V1RollingUpdateDaemonSet -mkV1RollingUpdateDaemonSet = - V1RollingUpdateDaemonSet - { v1RollingUpdateDaemonSetMaxSurge = Nothing - , v1RollingUpdateDaemonSetMaxUnavailable = Nothing - } - --- ** V1RollingUpdateDeployment --- | V1RollingUpdateDeployment --- Spec to control the desired behavior of rolling update. -data V1RollingUpdateDeployment = V1RollingUpdateDeployment - { v1RollingUpdateDeploymentMaxSurge :: !(Maybe IntOrString) -- ^ "maxSurge" - , v1RollingUpdateDeploymentMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RollingUpdateDeployment -instance A.FromJSON V1RollingUpdateDeployment where - parseJSON = A.withObject "V1RollingUpdateDeployment" $ \o -> - V1RollingUpdateDeployment - <$> (o .:? "maxSurge") - <*> (o .:? "maxUnavailable") - --- | ToJSON V1RollingUpdateDeployment -instance A.ToJSON V1RollingUpdateDeployment where - toJSON V1RollingUpdateDeployment {..} = - _omitNulls - [ "maxSurge" .= v1RollingUpdateDeploymentMaxSurge - , "maxUnavailable" .= v1RollingUpdateDeploymentMaxUnavailable - ] - - --- | Construct a value of type 'V1RollingUpdateDeployment' (by applying it's required fields, if any) -mkV1RollingUpdateDeployment - :: V1RollingUpdateDeployment -mkV1RollingUpdateDeployment = - V1RollingUpdateDeployment - { v1RollingUpdateDeploymentMaxSurge = Nothing - , v1RollingUpdateDeploymentMaxUnavailable = Nothing - } - --- ** V1RollingUpdateStatefulSetStrategy --- | V1RollingUpdateStatefulSetStrategy --- RollingUpdateStatefulSetStrategy is used to communicate parameter for RollingUpdateStatefulSetStrategyType. -data V1RollingUpdateStatefulSetStrategy = V1RollingUpdateStatefulSetStrategy - { v1RollingUpdateStatefulSetStrategyMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" - , v1RollingUpdateStatefulSetStrategyPartition :: !(Maybe Int) -- ^ "partition" - Partition indicates the ordinal at which the StatefulSet should be partitioned for updates. During a rolling update, all pods from ordinal Replicas-1 to Partition are updated. All pods from ordinal Partition-1 to 0 remain untouched. This is helpful in being able to do a canary based deployment. The default value is 0. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RollingUpdateStatefulSetStrategy -instance A.FromJSON V1RollingUpdateStatefulSetStrategy where - parseJSON = A.withObject "V1RollingUpdateStatefulSetStrategy" $ \o -> - V1RollingUpdateStatefulSetStrategy - <$> (o .:? "maxUnavailable") - <*> (o .:? "partition") - --- | ToJSON V1RollingUpdateStatefulSetStrategy -instance A.ToJSON V1RollingUpdateStatefulSetStrategy where - toJSON V1RollingUpdateStatefulSetStrategy {..} = - _omitNulls - [ "maxUnavailable" .= v1RollingUpdateStatefulSetStrategyMaxUnavailable - , "partition" .= v1RollingUpdateStatefulSetStrategyPartition - ] - - --- | Construct a value of type 'V1RollingUpdateStatefulSetStrategy' (by applying it's required fields, if any) -mkV1RollingUpdateStatefulSetStrategy - :: V1RollingUpdateStatefulSetStrategy -mkV1RollingUpdateStatefulSetStrategy = - V1RollingUpdateStatefulSetStrategy - { v1RollingUpdateStatefulSetStrategyMaxUnavailable = Nothing - , v1RollingUpdateStatefulSetStrategyPartition = Nothing - } - --- ** V1RuleWithOperations --- | V1RuleWithOperations --- RuleWithOperations is a tuple of Operations and Resources. It is recommended to make sure that all the tuple expansions are valid. -data V1RuleWithOperations = V1RuleWithOperations - { v1RuleWithOperationsApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the API groups the resources belong to. '*' is all groups. If '*' is present, the length of the slice must be one. Required. - , v1RuleWithOperationsApiVersions :: !(Maybe [Text]) -- ^ "apiVersions" - APIVersions is the API versions the resources belong to. '*' is all versions. If '*' is present, the length of the slice must be one. Required. - , v1RuleWithOperationsOperations :: !(Maybe [Text]) -- ^ "operations" - Operations is the operations the admission hook cares about - CREATE, UPDATE, DELETE, CONNECT or * for all of those operations and any future admission operations that are added. If '*' is present, the length of the slice must be one. Required. - , v1RuleWithOperationsResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. For example: 'pods' means pods. 'pods/log' means the log subresource of pods. '*' means all resources, but not subresources. 'pods/*' means all subresources of pods. '*/scale' means all scale subresources. '*/*' means all resources and their subresources. If wildcard is present, the validation rule will ensure resources do not overlap with each other. Depending on the enclosing object, subresources might not be allowed. Required. - , v1RuleWithOperationsScope :: !(Maybe Text) -- ^ "scope" - scope specifies the scope of this rule. Valid values are \"Cluster\", \"Namespaced\", and \"*\" \"Cluster\" means that only cluster-scoped resources will match this rule. Namespace API objects are cluster-scoped. \"Namespaced\" means that only namespaced resources will match this rule. \"*\" means that there are no scope restrictions. Subresources match the scope of their parent resource. Default is \"*\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RuleWithOperations -instance A.FromJSON V1RuleWithOperations where - parseJSON = A.withObject "V1RuleWithOperations" $ \o -> - V1RuleWithOperations - <$> (o .:? "apiGroups") - <*> (o .:? "apiVersions") - <*> (o .:? "operations") - <*> (o .:? "resources") - <*> (o .:? "scope") - --- | ToJSON V1RuleWithOperations -instance A.ToJSON V1RuleWithOperations where - toJSON V1RuleWithOperations {..} = - _omitNulls - [ "apiGroups" .= v1RuleWithOperationsApiGroups - , "apiVersions" .= v1RuleWithOperationsApiVersions - , "operations" .= v1RuleWithOperationsOperations - , "resources" .= v1RuleWithOperationsResources - , "scope" .= v1RuleWithOperationsScope - ] - - --- | Construct a value of type 'V1RuleWithOperations' (by applying it's required fields, if any) -mkV1RuleWithOperations - :: V1RuleWithOperations -mkV1RuleWithOperations = - V1RuleWithOperations - { v1RuleWithOperationsApiGroups = Nothing - , v1RuleWithOperationsApiVersions = Nothing - , v1RuleWithOperationsOperations = Nothing - , v1RuleWithOperationsResources = Nothing - , v1RuleWithOperationsScope = Nothing - } - --- ** V1RuntimeClass --- | V1RuntimeClass --- RuntimeClass defines a class of container runtime supported in the cluster. The RuntimeClass is used to determine which container runtime is used to run all containers in a pod. RuntimeClasses are manually defined by a user or cluster provisioner, and referenced in the PodSpec. The Kubelet is responsible for resolving the RuntimeClassName reference before running the pod. For more details, see https://kubernetes.io/docs/concepts/containers/runtime-class/ -data V1RuntimeClass = V1RuntimeClass - { v1RuntimeClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RuntimeClassHandler :: !(Text) -- ^ /Required/ "handler" - Handler specifies the underlying runtime and configuration that the CRI implementation will use to handle pods of this class. The possible values are specific to the node & CRI configuration. It is assumed that all handlers are available on every node, and handlers of the same name are equivalent on every node. For example, a handler called \"runc\" might specify that the runc OCI runtime (using native Linux containers) will be used to run the containers in a pod. The Handler must be lowercase, conform to the DNS Label (RFC 1123) requirements, and is immutable. - , v1RuntimeClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RuntimeClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1RuntimeClassOverhead :: !(Maybe V1Overhead) -- ^ "overhead" - , v1RuntimeClassScheduling :: !(Maybe V1Scheduling) -- ^ "scheduling" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RuntimeClass -instance A.FromJSON V1RuntimeClass where - parseJSON = A.withObject "V1RuntimeClass" $ \o -> - V1RuntimeClass - <$> (o .:? "apiVersion") - <*> (o .: "handler") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "overhead") - <*> (o .:? "scheduling") - --- | ToJSON V1RuntimeClass -instance A.ToJSON V1RuntimeClass where - toJSON V1RuntimeClass {..} = - _omitNulls - [ "apiVersion" .= v1RuntimeClassApiVersion - , "handler" .= v1RuntimeClassHandler - , "kind" .= v1RuntimeClassKind - , "metadata" .= v1RuntimeClassMetadata - , "overhead" .= v1RuntimeClassOverhead - , "scheduling" .= v1RuntimeClassScheduling - ] - - --- | Construct a value of type 'V1RuntimeClass' (by applying it's required fields, if any) -mkV1RuntimeClass - :: Text -- ^ 'v1RuntimeClassHandler': Handler specifies the underlying runtime and configuration that the CRI implementation will use to handle pods of this class. The possible values are specific to the node & CRI configuration. It is assumed that all handlers are available on every node, and handlers of the same name are equivalent on every node. For example, a handler called \"runc\" might specify that the runc OCI runtime (using native Linux containers) will be used to run the containers in a pod. The Handler must be lowercase, conform to the DNS Label (RFC 1123) requirements, and is immutable. - -> V1RuntimeClass -mkV1RuntimeClass v1RuntimeClassHandler = - V1RuntimeClass - { v1RuntimeClassApiVersion = Nothing - , v1RuntimeClassHandler - , v1RuntimeClassKind = Nothing - , v1RuntimeClassMetadata = Nothing - , v1RuntimeClassOverhead = Nothing - , v1RuntimeClassScheduling = Nothing - } - --- ** V1RuntimeClassList --- | V1RuntimeClassList --- RuntimeClassList is a list of RuntimeClass objects. -data V1RuntimeClassList = V1RuntimeClassList - { v1RuntimeClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1RuntimeClassListItems :: !([V1RuntimeClass]) -- ^ /Required/ "items" - Items is a list of schema objects. - , v1RuntimeClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1RuntimeClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1RuntimeClassList -instance A.FromJSON V1RuntimeClassList where - parseJSON = A.withObject "V1RuntimeClassList" $ \o -> - V1RuntimeClassList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1RuntimeClassList -instance A.ToJSON V1RuntimeClassList where - toJSON V1RuntimeClassList {..} = - _omitNulls - [ "apiVersion" .= v1RuntimeClassListApiVersion - , "items" .= v1RuntimeClassListItems - , "kind" .= v1RuntimeClassListKind - , "metadata" .= v1RuntimeClassListMetadata - ] - - --- | Construct a value of type 'V1RuntimeClassList' (by applying it's required fields, if any) -mkV1RuntimeClassList - :: [V1RuntimeClass] -- ^ 'v1RuntimeClassListItems': Items is a list of schema objects. - -> V1RuntimeClassList -mkV1RuntimeClassList v1RuntimeClassListItems = - V1RuntimeClassList - { v1RuntimeClassListApiVersion = Nothing - , v1RuntimeClassListItems - , v1RuntimeClassListKind = Nothing - , v1RuntimeClassListMetadata = Nothing - } - --- ** V1SELinuxOptions --- | V1SELinuxOptions --- SELinuxOptions are the labels to be applied to the container -data V1SELinuxOptions = V1SELinuxOptions - { v1SELinuxOptionsLevel :: !(Maybe Text) -- ^ "level" - Level is SELinux level label that applies to the container. - , v1SELinuxOptionsRole :: !(Maybe Text) -- ^ "role" - Role is a SELinux role label that applies to the container. - , v1SELinuxOptionsType :: !(Maybe Text) -- ^ "type" - Type is a SELinux type label that applies to the container. - , v1SELinuxOptionsUser :: !(Maybe Text) -- ^ "user" - User is a SELinux user label that applies to the container. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SELinuxOptions -instance A.FromJSON V1SELinuxOptions where - parseJSON = A.withObject "V1SELinuxOptions" $ \o -> - V1SELinuxOptions - <$> (o .:? "level") - <*> (o .:? "role") - <*> (o .:? "type") - <*> (o .:? "user") - --- | ToJSON V1SELinuxOptions -instance A.ToJSON V1SELinuxOptions where - toJSON V1SELinuxOptions {..} = - _omitNulls - [ "level" .= v1SELinuxOptionsLevel - , "role" .= v1SELinuxOptionsRole - , "type" .= v1SELinuxOptionsType - , "user" .= v1SELinuxOptionsUser - ] - - --- | Construct a value of type 'V1SELinuxOptions' (by applying it's required fields, if any) -mkV1SELinuxOptions - :: V1SELinuxOptions -mkV1SELinuxOptions = - V1SELinuxOptions - { v1SELinuxOptionsLevel = Nothing - , v1SELinuxOptionsRole = Nothing - , v1SELinuxOptionsType = Nothing - , v1SELinuxOptionsUser = Nothing - } - --- ** V1Scale --- | V1Scale --- Scale represents a scaling request for a resource. -data V1Scale = V1Scale - { v1ScaleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ScaleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ScaleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ScaleSpec :: !(Maybe V1ScaleSpec) -- ^ "spec" - , v1ScaleStatus :: !(Maybe V1ScaleStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Scale -instance A.FromJSON V1Scale where - parseJSON = A.withObject "V1Scale" $ \o -> - V1Scale - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Scale -instance A.ToJSON V1Scale where - toJSON V1Scale {..} = - _omitNulls - [ "apiVersion" .= v1ScaleApiVersion - , "kind" .= v1ScaleKind - , "metadata" .= v1ScaleMetadata - , "spec" .= v1ScaleSpec - , "status" .= v1ScaleStatus - ] - - --- | Construct a value of type 'V1Scale' (by applying it's required fields, if any) -mkV1Scale - :: V1Scale -mkV1Scale = - V1Scale - { v1ScaleApiVersion = Nothing - , v1ScaleKind = Nothing - , v1ScaleMetadata = Nothing - , v1ScaleSpec = Nothing - , v1ScaleStatus = Nothing - } - --- ** V1ScaleIOPersistentVolumeSource --- | V1ScaleIOPersistentVolumeSource --- ScaleIOPersistentVolumeSource represents a persistent ScaleIO volume -data V1ScaleIOPersistentVolumeSource = V1ScaleIOPersistentVolumeSource - { v1ScaleIOPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Default is \"xfs\" - , v1ScaleIOPersistentVolumeSourceGateway :: !(Text) -- ^ /Required/ "gateway" - gateway is the host address of the ScaleIO API Gateway. - , v1ScaleIOPersistentVolumeSourceProtectionDomain :: !(Maybe Text) -- ^ "protectionDomain" - protectionDomain is the name of the ScaleIO Protection Domain for the configured storage. - , v1ScaleIOPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1ScaleIOPersistentVolumeSourceSecretRef :: !(V1SecretReference) -- ^ /Required/ "secretRef" - , v1ScaleIOPersistentVolumeSourceSslEnabled :: !(Maybe Bool) -- ^ "sslEnabled" - sslEnabled is the flag to enable/disable SSL communication with Gateway, default false - , v1ScaleIOPersistentVolumeSourceStorageMode :: !(Maybe Text) -- ^ "storageMode" - storageMode indicates whether the storage for a volume should be ThickProvisioned or ThinProvisioned. Default is ThinProvisioned. - , v1ScaleIOPersistentVolumeSourceStoragePool :: !(Maybe Text) -- ^ "storagePool" - storagePool is the ScaleIO Storage Pool associated with the protection domain. - , v1ScaleIOPersistentVolumeSourceSystem :: !(Text) -- ^ /Required/ "system" - system is the name of the storage system as configured in ScaleIO. - , v1ScaleIOPersistentVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the name of a volume already created in the ScaleIO system that is associated with this volume source. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScaleIOPersistentVolumeSource -instance A.FromJSON V1ScaleIOPersistentVolumeSource where - parseJSON = A.withObject "V1ScaleIOPersistentVolumeSource" $ \o -> - V1ScaleIOPersistentVolumeSource - <$> (o .:? "fsType") - <*> (o .: "gateway") - <*> (o .:? "protectionDomain") - <*> (o .:? "readOnly") - <*> (o .: "secretRef") - <*> (o .:? "sslEnabled") - <*> (o .:? "storageMode") - <*> (o .:? "storagePool") - <*> (o .: "system") - <*> (o .:? "volumeName") - --- | ToJSON V1ScaleIOPersistentVolumeSource -instance A.ToJSON V1ScaleIOPersistentVolumeSource where - toJSON V1ScaleIOPersistentVolumeSource {..} = - _omitNulls - [ "fsType" .= v1ScaleIOPersistentVolumeSourceFsType - , "gateway" .= v1ScaleIOPersistentVolumeSourceGateway - , "protectionDomain" .= v1ScaleIOPersistentVolumeSourceProtectionDomain - , "readOnly" .= v1ScaleIOPersistentVolumeSourceReadOnly - , "secretRef" .= v1ScaleIOPersistentVolumeSourceSecretRef - , "sslEnabled" .= v1ScaleIOPersistentVolumeSourceSslEnabled - , "storageMode" .= v1ScaleIOPersistentVolumeSourceStorageMode - , "storagePool" .= v1ScaleIOPersistentVolumeSourceStoragePool - , "system" .= v1ScaleIOPersistentVolumeSourceSystem - , "volumeName" .= v1ScaleIOPersistentVolumeSourceVolumeName - ] - - --- | Construct a value of type 'V1ScaleIOPersistentVolumeSource' (by applying it's required fields, if any) -mkV1ScaleIOPersistentVolumeSource - :: Text -- ^ 'v1ScaleIOPersistentVolumeSourceGateway': gateway is the host address of the ScaleIO API Gateway. - -> V1SecretReference -- ^ 'v1ScaleIOPersistentVolumeSourceSecretRef' - -> Text -- ^ 'v1ScaleIOPersistentVolumeSourceSystem': system is the name of the storage system as configured in ScaleIO. - -> V1ScaleIOPersistentVolumeSource -mkV1ScaleIOPersistentVolumeSource v1ScaleIOPersistentVolumeSourceGateway v1ScaleIOPersistentVolumeSourceSecretRef v1ScaleIOPersistentVolumeSourceSystem = - V1ScaleIOPersistentVolumeSource - { v1ScaleIOPersistentVolumeSourceFsType = Nothing - , v1ScaleIOPersistentVolumeSourceGateway - , v1ScaleIOPersistentVolumeSourceProtectionDomain = Nothing - , v1ScaleIOPersistentVolumeSourceReadOnly = Nothing - , v1ScaleIOPersistentVolumeSourceSecretRef - , v1ScaleIOPersistentVolumeSourceSslEnabled = Nothing - , v1ScaleIOPersistentVolumeSourceStorageMode = Nothing - , v1ScaleIOPersistentVolumeSourceStoragePool = Nothing - , v1ScaleIOPersistentVolumeSourceSystem - , v1ScaleIOPersistentVolumeSourceVolumeName = Nothing - } - --- ** V1ScaleIOVolumeSource --- | V1ScaleIOVolumeSource --- ScaleIOVolumeSource represents a persistent ScaleIO volume -data V1ScaleIOVolumeSource = V1ScaleIOVolumeSource - { v1ScaleIOVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Default is \"xfs\". - , v1ScaleIOVolumeSourceGateway :: !(Text) -- ^ /Required/ "gateway" - gateway is the host address of the ScaleIO API Gateway. - , v1ScaleIOVolumeSourceProtectionDomain :: !(Maybe Text) -- ^ "protectionDomain" - protectionDomain is the name of the ScaleIO Protection Domain for the configured storage. - , v1ScaleIOVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1ScaleIOVolumeSourceSecretRef :: !(V1LocalObjectReference) -- ^ /Required/ "secretRef" - , v1ScaleIOVolumeSourceSslEnabled :: !(Maybe Bool) -- ^ "sslEnabled" - sslEnabled Flag enable/disable SSL communication with Gateway, default false - , v1ScaleIOVolumeSourceStorageMode :: !(Maybe Text) -- ^ "storageMode" - storageMode indicates whether the storage for a volume should be ThickProvisioned or ThinProvisioned. Default is ThinProvisioned. - , v1ScaleIOVolumeSourceStoragePool :: !(Maybe Text) -- ^ "storagePool" - storagePool is the ScaleIO Storage Pool associated with the protection domain. - , v1ScaleIOVolumeSourceSystem :: !(Text) -- ^ /Required/ "system" - system is the name of the storage system as configured in ScaleIO. - , v1ScaleIOVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the name of a volume already created in the ScaleIO system that is associated with this volume source. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScaleIOVolumeSource -instance A.FromJSON V1ScaleIOVolumeSource where - parseJSON = A.withObject "V1ScaleIOVolumeSource" $ \o -> - V1ScaleIOVolumeSource - <$> (o .:? "fsType") - <*> (o .: "gateway") - <*> (o .:? "protectionDomain") - <*> (o .:? "readOnly") - <*> (o .: "secretRef") - <*> (o .:? "sslEnabled") - <*> (o .:? "storageMode") - <*> (o .:? "storagePool") - <*> (o .: "system") - <*> (o .:? "volumeName") - --- | ToJSON V1ScaleIOVolumeSource -instance A.ToJSON V1ScaleIOVolumeSource where - toJSON V1ScaleIOVolumeSource {..} = - _omitNulls - [ "fsType" .= v1ScaleIOVolumeSourceFsType - , "gateway" .= v1ScaleIOVolumeSourceGateway - , "protectionDomain" .= v1ScaleIOVolumeSourceProtectionDomain - , "readOnly" .= v1ScaleIOVolumeSourceReadOnly - , "secretRef" .= v1ScaleIOVolumeSourceSecretRef - , "sslEnabled" .= v1ScaleIOVolumeSourceSslEnabled - , "storageMode" .= v1ScaleIOVolumeSourceStorageMode - , "storagePool" .= v1ScaleIOVolumeSourceStoragePool - , "system" .= v1ScaleIOVolumeSourceSystem - , "volumeName" .= v1ScaleIOVolumeSourceVolumeName - ] - - --- | Construct a value of type 'V1ScaleIOVolumeSource' (by applying it's required fields, if any) -mkV1ScaleIOVolumeSource - :: Text -- ^ 'v1ScaleIOVolumeSourceGateway': gateway is the host address of the ScaleIO API Gateway. - -> V1LocalObjectReference -- ^ 'v1ScaleIOVolumeSourceSecretRef' - -> Text -- ^ 'v1ScaleIOVolumeSourceSystem': system is the name of the storage system as configured in ScaleIO. - -> V1ScaleIOVolumeSource -mkV1ScaleIOVolumeSource v1ScaleIOVolumeSourceGateway v1ScaleIOVolumeSourceSecretRef v1ScaleIOVolumeSourceSystem = - V1ScaleIOVolumeSource - { v1ScaleIOVolumeSourceFsType = Nothing - , v1ScaleIOVolumeSourceGateway - , v1ScaleIOVolumeSourceProtectionDomain = Nothing - , v1ScaleIOVolumeSourceReadOnly = Nothing - , v1ScaleIOVolumeSourceSecretRef - , v1ScaleIOVolumeSourceSslEnabled = Nothing - , v1ScaleIOVolumeSourceStorageMode = Nothing - , v1ScaleIOVolumeSourceStoragePool = Nothing - , v1ScaleIOVolumeSourceSystem - , v1ScaleIOVolumeSourceVolumeName = Nothing - } - --- ** V1ScaleSpec --- | V1ScaleSpec --- ScaleSpec describes the attributes of a scale subresource. -data V1ScaleSpec = V1ScaleSpec - { v1ScaleSpecReplicas :: !(Maybe Int) -- ^ "replicas" - desired number of instances for the scaled object. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScaleSpec -instance A.FromJSON V1ScaleSpec where - parseJSON = A.withObject "V1ScaleSpec" $ \o -> - V1ScaleSpec - <$> (o .:? "replicas") - --- | ToJSON V1ScaleSpec -instance A.ToJSON V1ScaleSpec where - toJSON V1ScaleSpec {..} = - _omitNulls - [ "replicas" .= v1ScaleSpecReplicas - ] - - --- | Construct a value of type 'V1ScaleSpec' (by applying it's required fields, if any) -mkV1ScaleSpec - :: V1ScaleSpec -mkV1ScaleSpec = - V1ScaleSpec - { v1ScaleSpecReplicas = Nothing - } - --- ** V1ScaleStatus --- | V1ScaleStatus --- ScaleStatus represents the current status of a scale subresource. -data V1ScaleStatus = V1ScaleStatus - { v1ScaleStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - actual number of observed instances of the scaled object. - , v1ScaleStatusSelector :: !(Maybe Text) -- ^ "selector" - label query over pods that should match the replicas count. This is same as the label selector but in the string format to avoid introspection by clients. The string will be in the same format as the query-param syntax. More info about label selectors: http://kubernetes.io/docs/user-guide/labels#label-selectors - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScaleStatus -instance A.FromJSON V1ScaleStatus where - parseJSON = A.withObject "V1ScaleStatus" $ \o -> - V1ScaleStatus - <$> (o .: "replicas") - <*> (o .:? "selector") - --- | ToJSON V1ScaleStatus -instance A.ToJSON V1ScaleStatus where - toJSON V1ScaleStatus {..} = - _omitNulls - [ "replicas" .= v1ScaleStatusReplicas - , "selector" .= v1ScaleStatusSelector - ] - - --- | Construct a value of type 'V1ScaleStatus' (by applying it's required fields, if any) -mkV1ScaleStatus - :: Int -- ^ 'v1ScaleStatusReplicas': actual number of observed instances of the scaled object. - -> V1ScaleStatus -mkV1ScaleStatus v1ScaleStatusReplicas = - V1ScaleStatus - { v1ScaleStatusReplicas - , v1ScaleStatusSelector = Nothing - } - --- ** V1Scheduling --- | V1Scheduling --- Scheduling specifies the scheduling constraints for nodes supporting a RuntimeClass. -data V1Scheduling = V1Scheduling - { v1SchedulingNodeSelector :: !(Maybe (Map.Map String Text)) -- ^ "nodeSelector" - nodeSelector lists labels that must be present on nodes that support this RuntimeClass. Pods using this RuntimeClass can only be scheduled to a node matched by this selector. The RuntimeClass nodeSelector is merged with a pod's existing nodeSelector. Any conflicts will cause the pod to be rejected in admission. - , v1SchedulingTolerations :: !(Maybe [V1Toleration]) -- ^ "tolerations" - tolerations are appended (excluding duplicates) to pods running with this RuntimeClass during admission, effectively unioning the set of nodes tolerated by the pod and the RuntimeClass. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Scheduling -instance A.FromJSON V1Scheduling where - parseJSON = A.withObject "V1Scheduling" $ \o -> - V1Scheduling - <$> (o .:? "nodeSelector") - <*> (o .:? "tolerations") - --- | ToJSON V1Scheduling -instance A.ToJSON V1Scheduling where - toJSON V1Scheduling {..} = - _omitNulls - [ "nodeSelector" .= v1SchedulingNodeSelector - , "tolerations" .= v1SchedulingTolerations - ] - - --- | Construct a value of type 'V1Scheduling' (by applying it's required fields, if any) -mkV1Scheduling - :: V1Scheduling -mkV1Scheduling = - V1Scheduling - { v1SchedulingNodeSelector = Nothing - , v1SchedulingTolerations = Nothing - } - --- ** V1ScopeSelector --- | V1ScopeSelector --- A scope selector represents the AND of the selectors represented by the scoped-resource selector requirements. -data V1ScopeSelector = V1ScopeSelector - { v1ScopeSelectorMatchExpressions :: !(Maybe [V1ScopedResourceSelectorRequirement]) -- ^ "matchExpressions" - A list of scope selector requirements by scope of the resources. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScopeSelector -instance A.FromJSON V1ScopeSelector where - parseJSON = A.withObject "V1ScopeSelector" $ \o -> - V1ScopeSelector - <$> (o .:? "matchExpressions") - --- | ToJSON V1ScopeSelector -instance A.ToJSON V1ScopeSelector where - toJSON V1ScopeSelector {..} = - _omitNulls - [ "matchExpressions" .= v1ScopeSelectorMatchExpressions - ] - - --- | Construct a value of type 'V1ScopeSelector' (by applying it's required fields, if any) -mkV1ScopeSelector - :: V1ScopeSelector -mkV1ScopeSelector = - V1ScopeSelector - { v1ScopeSelectorMatchExpressions = Nothing - } - --- ** V1ScopedResourceSelectorRequirement --- | V1ScopedResourceSelectorRequirement --- A scoped-resource selector requirement is a selector that contains values, a scope name, and an operator that relates the scope name and values. -data V1ScopedResourceSelectorRequirement = V1ScopedResourceSelectorRequirement - { v1ScopedResourceSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents a scope's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. - , v1ScopedResourceSelectorRequirementScopeName :: !(Text) -- ^ /Required/ "scopeName" - The name of the scope that the selector applies to. - , v1ScopedResourceSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - An array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. This array is replaced during a strategic merge patch. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ScopedResourceSelectorRequirement -instance A.FromJSON V1ScopedResourceSelectorRequirement where - parseJSON = A.withObject "V1ScopedResourceSelectorRequirement" $ \o -> - V1ScopedResourceSelectorRequirement - <$> (o .: "operator") - <*> (o .: "scopeName") - <*> (o .:? "values") - --- | ToJSON V1ScopedResourceSelectorRequirement -instance A.ToJSON V1ScopedResourceSelectorRequirement where - toJSON V1ScopedResourceSelectorRequirement {..} = - _omitNulls - [ "operator" .= v1ScopedResourceSelectorRequirementOperator - , "scopeName" .= v1ScopedResourceSelectorRequirementScopeName - , "values" .= v1ScopedResourceSelectorRequirementValues - ] - - --- | Construct a value of type 'V1ScopedResourceSelectorRequirement' (by applying it's required fields, if any) -mkV1ScopedResourceSelectorRequirement - :: Text -- ^ 'v1ScopedResourceSelectorRequirementOperator': Represents a scope's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. - -> Text -- ^ 'v1ScopedResourceSelectorRequirementScopeName': The name of the scope that the selector applies to. - -> V1ScopedResourceSelectorRequirement -mkV1ScopedResourceSelectorRequirement v1ScopedResourceSelectorRequirementOperator v1ScopedResourceSelectorRequirementScopeName = - V1ScopedResourceSelectorRequirement - { v1ScopedResourceSelectorRequirementOperator - , v1ScopedResourceSelectorRequirementScopeName - , v1ScopedResourceSelectorRequirementValues = Nothing - } - --- ** V1SeccompProfile --- | V1SeccompProfile --- SeccompProfile defines a pod/container's seccomp profile settings. Only one profile source may be set. -data V1SeccompProfile = V1SeccompProfile - { v1SeccompProfileLocalhostProfile :: !(Maybe Text) -- ^ "localhostProfile" - localhostProfile indicates a profile defined in a file on the node should be used. The profile must be preconfigured on the node to work. Must be a descending path, relative to the kubelet's configured seccomp profile location. Must only be set if type is \"Localhost\". - , v1SeccompProfileType :: !(Text) -- ^ /Required/ "type" - type indicates which kind of seccomp profile will be applied. Valid options are: Localhost - a profile defined in a file on the node should be used. RuntimeDefault - the container runtime default profile should be used. Unconfined - no profile should be applied. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SeccompProfile -instance A.FromJSON V1SeccompProfile where - parseJSON = A.withObject "V1SeccompProfile" $ \o -> - V1SeccompProfile - <$> (o .:? "localhostProfile") - <*> (o .: "type") - --- | ToJSON V1SeccompProfile -instance A.ToJSON V1SeccompProfile where - toJSON V1SeccompProfile {..} = - _omitNulls - [ "localhostProfile" .= v1SeccompProfileLocalhostProfile - , "type" .= v1SeccompProfileType - ] - - --- | Construct a value of type 'V1SeccompProfile' (by applying it's required fields, if any) -mkV1SeccompProfile - :: Text -- ^ 'v1SeccompProfileType': type indicates which kind of seccomp profile will be applied. Valid options are: Localhost - a profile defined in a file on the node should be used. RuntimeDefault - the container runtime default profile should be used. Unconfined - no profile should be applied. - -> V1SeccompProfile -mkV1SeccompProfile v1SeccompProfileType = - V1SeccompProfile - { v1SeccompProfileLocalhostProfile = Nothing - , v1SeccompProfileType - } - --- ** V1Secret --- | V1Secret --- Secret holds secret data of a certain type. The total bytes of the values in the Data field must be less than MaxSecretSize bytes. -data V1Secret = V1Secret - { v1SecretApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1SecretData :: !(Maybe (Map.Map String ByteArray)) -- ^ "data" - Data contains the secret data. Each key must consist of alphanumeric characters, '-', '_' or '.'. The serialized form of the secret data is a base64 encoded string, representing the arbitrary (possibly non-string) data value here. Described in https://tools.ietf.org/html/rfc4648#section-4 - , v1SecretImmutable :: !(Maybe Bool) -- ^ "immutable" - Immutable, if set to true, ensures that data stored in the Secret cannot be updated (only object metadata can be modified). If not set to true, the field can be modified at any time. Defaulted to nil. - , v1SecretKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1SecretMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1SecretStringData :: !(Maybe (Map.Map String Text)) -- ^ "stringData" - stringData allows specifying non-binary secret data in string form. It is provided as a write-only input field for convenience. All keys and values are merged into the data field on write, overwriting any existing values. The stringData field is never output when reading from the API. - , v1SecretType :: !(Maybe Text) -- ^ "type" - Used to facilitate programmatic handling of secret data. More info: https://kubernetes.io/docs/concepts/configuration/secret/#secret-types - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Secret -instance A.FromJSON V1Secret where - parseJSON = A.withObject "V1Secret" $ \o -> - V1Secret - <$> (o .:? "apiVersion") - <*> (o .:? "data") - <*> (o .:? "immutable") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "stringData") - <*> (o .:? "type") - --- | ToJSON V1Secret -instance A.ToJSON V1Secret where - toJSON V1Secret {..} = - _omitNulls - [ "apiVersion" .= v1SecretApiVersion - , "data" .= v1SecretData - , "immutable" .= v1SecretImmutable - , "kind" .= v1SecretKind - , "metadata" .= v1SecretMetadata - , "stringData" .= v1SecretStringData - , "type" .= v1SecretType - ] - - --- | Construct a value of type 'V1Secret' (by applying it's required fields, if any) -mkV1Secret - :: V1Secret -mkV1Secret = - V1Secret - { v1SecretApiVersion = Nothing - , v1SecretData = Nothing - , v1SecretImmutable = Nothing - , v1SecretKind = Nothing - , v1SecretMetadata = Nothing - , v1SecretStringData = Nothing - , v1SecretType = Nothing - } - --- ** V1SecretEnvSource --- | V1SecretEnvSource --- SecretEnvSource selects a Secret to populate the environment variables with. The contents of the target Secret's Data field will represent the key-value pairs as environment variables. -data V1SecretEnvSource = V1SecretEnvSource - { v1SecretEnvSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1SecretEnvSourceOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the Secret must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretEnvSource -instance A.FromJSON V1SecretEnvSource where - parseJSON = A.withObject "V1SecretEnvSource" $ \o -> - V1SecretEnvSource - <$> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1SecretEnvSource -instance A.ToJSON V1SecretEnvSource where - toJSON V1SecretEnvSource {..} = - _omitNulls - [ "name" .= v1SecretEnvSourceName - , "optional" .= v1SecretEnvSourceOptional - ] - - --- | Construct a value of type 'V1SecretEnvSource' (by applying it's required fields, if any) -mkV1SecretEnvSource - :: V1SecretEnvSource -mkV1SecretEnvSource = - V1SecretEnvSource - { v1SecretEnvSourceName = Nothing - , v1SecretEnvSourceOptional = Nothing - } - --- ** V1SecretKeySelector --- | V1SecretKeySelector --- SecretKeySelector selects a key of a Secret. -data V1SecretKeySelector = V1SecretKeySelector - { v1SecretKeySelectorKey :: !(Text) -- ^ /Required/ "key" - The key of the secret to select from. Must be a valid secret key. - , v1SecretKeySelectorName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1SecretKeySelectorOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the Secret or its key must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretKeySelector -instance A.FromJSON V1SecretKeySelector where - parseJSON = A.withObject "V1SecretKeySelector" $ \o -> - V1SecretKeySelector - <$> (o .: "key") - <*> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1SecretKeySelector -instance A.ToJSON V1SecretKeySelector where - toJSON V1SecretKeySelector {..} = - _omitNulls - [ "key" .= v1SecretKeySelectorKey - , "name" .= v1SecretKeySelectorName - , "optional" .= v1SecretKeySelectorOptional - ] - - --- | Construct a value of type 'V1SecretKeySelector' (by applying it's required fields, if any) -mkV1SecretKeySelector - :: Text -- ^ 'v1SecretKeySelectorKey': The key of the secret to select from. Must be a valid secret key. - -> V1SecretKeySelector -mkV1SecretKeySelector v1SecretKeySelectorKey = - V1SecretKeySelector - { v1SecretKeySelectorKey - , v1SecretKeySelectorName = Nothing - , v1SecretKeySelectorOptional = Nothing - } - --- ** V1SecretList --- | V1SecretList --- SecretList is a list of Secret. -data V1SecretList = V1SecretList - { v1SecretListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1SecretListItems :: !([V1Secret]) -- ^ /Required/ "items" - Items is a list of secret objects. More info: https://kubernetes.io/docs/concepts/configuration/secret - , v1SecretListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1SecretListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretList -instance A.FromJSON V1SecretList where - parseJSON = A.withObject "V1SecretList" $ \o -> - V1SecretList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1SecretList -instance A.ToJSON V1SecretList where - toJSON V1SecretList {..} = - _omitNulls - [ "apiVersion" .= v1SecretListApiVersion - , "items" .= v1SecretListItems - , "kind" .= v1SecretListKind - , "metadata" .= v1SecretListMetadata - ] - - --- | Construct a value of type 'V1SecretList' (by applying it's required fields, if any) -mkV1SecretList - :: [V1Secret] -- ^ 'v1SecretListItems': Items is a list of secret objects. More info: https://kubernetes.io/docs/concepts/configuration/secret - -> V1SecretList -mkV1SecretList v1SecretListItems = - V1SecretList - { v1SecretListApiVersion = Nothing - , v1SecretListItems - , v1SecretListKind = Nothing - , v1SecretListMetadata = Nothing - } - --- ** V1SecretProjection --- | V1SecretProjection --- Adapts a secret into a projected volume. The contents of the target Secret's Data field will be presented in a projected volume as files using the keys in the Data field as the file names. Note that this is identical to a secret volume source without the default mode. -data V1SecretProjection = V1SecretProjection - { v1SecretProjectionItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced Secret will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the Secret, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. - , v1SecretProjectionName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1SecretProjectionOptional :: !(Maybe Bool) -- ^ "optional" - optional field specify whether the Secret or its key must be defined - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretProjection -instance A.FromJSON V1SecretProjection where - parseJSON = A.withObject "V1SecretProjection" $ \o -> - V1SecretProjection - <$> (o .:? "items") - <*> (o .:? "name") - <*> (o .:? "optional") - --- | ToJSON V1SecretProjection -instance A.ToJSON V1SecretProjection where - toJSON V1SecretProjection {..} = - _omitNulls - [ "items" .= v1SecretProjectionItems - , "name" .= v1SecretProjectionName - , "optional" .= v1SecretProjectionOptional - ] - - --- | Construct a value of type 'V1SecretProjection' (by applying it's required fields, if any) -mkV1SecretProjection - :: V1SecretProjection -mkV1SecretProjection = - V1SecretProjection - { v1SecretProjectionItems = Nothing - , v1SecretProjectionName = Nothing - , v1SecretProjectionOptional = Nothing - } - --- ** V1SecretReference --- | V1SecretReference --- SecretReference represents a Secret Reference. It has enough information to retrieve secret in any namespace -data V1SecretReference = V1SecretReference - { v1SecretReferenceName :: !(Maybe Text) -- ^ "name" - name is unique within a namespace to reference a secret resource. - , v1SecretReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - namespace defines the space within which the secret name must be unique. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretReference -instance A.FromJSON V1SecretReference where - parseJSON = A.withObject "V1SecretReference" $ \o -> - V1SecretReference - <$> (o .:? "name") - <*> (o .:? "namespace") - --- | ToJSON V1SecretReference -instance A.ToJSON V1SecretReference where - toJSON V1SecretReference {..} = - _omitNulls - [ "name" .= v1SecretReferenceName - , "namespace" .= v1SecretReferenceNamespace - ] - - --- | Construct a value of type 'V1SecretReference' (by applying it's required fields, if any) -mkV1SecretReference - :: V1SecretReference -mkV1SecretReference = - V1SecretReference - { v1SecretReferenceName = Nothing - , v1SecretReferenceNamespace = Nothing - } - --- ** V1SecretVolumeSource --- | V1SecretVolumeSource --- Adapts a Secret into a volume. The contents of the target Secret's Data field will be presented in a volume as files using the keys in the Data field as the file names. Secret volumes support ownership management and SELinux relabeling. -data V1SecretVolumeSource = V1SecretVolumeSource - { v1SecretVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode is Optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. - , v1SecretVolumeSourceItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items If unspecified, each key-value pair in the Data field of the referenced Secret will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the Secret, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. - , v1SecretVolumeSourceOptional :: !(Maybe Bool) -- ^ "optional" - optional field specify whether the Secret or its keys must be defined - , v1SecretVolumeSourceSecretName :: !(Maybe Text) -- ^ "secretName" - secretName is the name of the secret in the pod's namespace to use. More info: https://kubernetes.io/docs/concepts/storage/volumes#secret - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecretVolumeSource -instance A.FromJSON V1SecretVolumeSource where - parseJSON = A.withObject "V1SecretVolumeSource" $ \o -> - V1SecretVolumeSource - <$> (o .:? "defaultMode") - <*> (o .:? "items") - <*> (o .:? "optional") - <*> (o .:? "secretName") - --- | ToJSON V1SecretVolumeSource -instance A.ToJSON V1SecretVolumeSource where - toJSON V1SecretVolumeSource {..} = - _omitNulls - [ "defaultMode" .= v1SecretVolumeSourceDefaultMode - , "items" .= v1SecretVolumeSourceItems - , "optional" .= v1SecretVolumeSourceOptional - , "secretName" .= v1SecretVolumeSourceSecretName - ] - - --- | Construct a value of type 'V1SecretVolumeSource' (by applying it's required fields, if any) -mkV1SecretVolumeSource - :: V1SecretVolumeSource -mkV1SecretVolumeSource = - V1SecretVolumeSource - { v1SecretVolumeSourceDefaultMode = Nothing - , v1SecretVolumeSourceItems = Nothing - , v1SecretVolumeSourceOptional = Nothing - , v1SecretVolumeSourceSecretName = Nothing - } - --- ** V1SecurityContext --- | V1SecurityContext --- SecurityContext holds security configuration that will be applied to a container. Some fields are present in both SecurityContext and PodSecurityContext. When both are set, the values in SecurityContext take precedence. -data V1SecurityContext = V1SecurityContext - { v1SecurityContextAllowPrivilegeEscalation :: !(Maybe Bool) -- ^ "allowPrivilegeEscalation" - AllowPrivilegeEscalation controls whether a process can gain more privileges than its parent process. This bool directly controls if the no_new_privs flag will be set on the container process. AllowPrivilegeEscalation is true always when the container is: 1) run as Privileged 2) has CAP_SYS_ADMIN Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextCapabilities :: !(Maybe V1Capabilities) -- ^ "capabilities" - , v1SecurityContextPrivileged :: !(Maybe Bool) -- ^ "privileged" - Run container in privileged mode. Processes in privileged containers are essentially equivalent to root on the host. Defaults to false. Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextProcMount :: !(Maybe Text) -- ^ "procMount" - procMount denotes the type of proc mount to use for the containers. The default is DefaultProcMount which uses the container runtime defaults for readonly paths and masked paths. This requires the ProcMountType feature flag to be enabled. Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextReadOnlyRootFilesystem :: !(Maybe Bool) -- ^ "readOnlyRootFilesystem" - Whether this container has a read-only root filesystem. Default is false. Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextRunAsGroup :: !(Maybe Integer) -- ^ "runAsGroup" - The GID to run the entrypoint of the container process. Uses runtime default if unset. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextRunAsNonRoot :: !(Maybe Bool) -- ^ "runAsNonRoot" - Indicates that the container must run as a non-root user. If true, the Kubelet will validate the image at runtime to ensure that it does not run as UID 0 (root) and fail to start the container if it does. If unset or false, no such validation will be performed. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. - , v1SecurityContextRunAsUser :: !(Maybe Integer) -- ^ "runAsUser" - The UID to run the entrypoint of the container process. Defaults to user specified in image metadata if unspecified. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. Note that this field cannot be set when spec.os.name is windows. - , v1SecurityContextSeLinuxOptions :: !(Maybe V1SELinuxOptions) -- ^ "seLinuxOptions" - , v1SecurityContextSeccompProfile :: !(Maybe V1SeccompProfile) -- ^ "seccompProfile" - , v1SecurityContextWindowsOptions :: !(Maybe V1WindowsSecurityContextOptions) -- ^ "windowsOptions" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SecurityContext -instance A.FromJSON V1SecurityContext where - parseJSON = A.withObject "V1SecurityContext" $ \o -> - V1SecurityContext - <$> (o .:? "allowPrivilegeEscalation") - <*> (o .:? "capabilities") - <*> (o .:? "privileged") - <*> (o .:? "procMount") - <*> (o .:? "readOnlyRootFilesystem") - <*> (o .:? "runAsGroup") - <*> (o .:? "runAsNonRoot") - <*> (o .:? "runAsUser") - <*> (o .:? "seLinuxOptions") - <*> (o .:? "seccompProfile") - <*> (o .:? "windowsOptions") - --- | ToJSON V1SecurityContext -instance A.ToJSON V1SecurityContext where - toJSON V1SecurityContext {..} = - _omitNulls - [ "allowPrivilegeEscalation" .= v1SecurityContextAllowPrivilegeEscalation - , "capabilities" .= v1SecurityContextCapabilities - , "privileged" .= v1SecurityContextPrivileged - , "procMount" .= v1SecurityContextProcMount - , "readOnlyRootFilesystem" .= v1SecurityContextReadOnlyRootFilesystem - , "runAsGroup" .= v1SecurityContextRunAsGroup - , "runAsNonRoot" .= v1SecurityContextRunAsNonRoot - , "runAsUser" .= v1SecurityContextRunAsUser - , "seLinuxOptions" .= v1SecurityContextSeLinuxOptions - , "seccompProfile" .= v1SecurityContextSeccompProfile - , "windowsOptions" .= v1SecurityContextWindowsOptions - ] - - --- | Construct a value of type 'V1SecurityContext' (by applying it's required fields, if any) -mkV1SecurityContext - :: V1SecurityContext -mkV1SecurityContext = - V1SecurityContext - { v1SecurityContextAllowPrivilegeEscalation = Nothing - , v1SecurityContextCapabilities = Nothing - , v1SecurityContextPrivileged = Nothing - , v1SecurityContextProcMount = Nothing - , v1SecurityContextReadOnlyRootFilesystem = Nothing - , v1SecurityContextRunAsGroup = Nothing - , v1SecurityContextRunAsNonRoot = Nothing - , v1SecurityContextRunAsUser = Nothing - , v1SecurityContextSeLinuxOptions = Nothing - , v1SecurityContextSeccompProfile = Nothing - , v1SecurityContextWindowsOptions = Nothing - } - --- ** V1SelfSubjectAccessReview --- | V1SelfSubjectAccessReview --- SelfSubjectAccessReview checks whether or the current user can perform an action. Not filling in a spec.namespace means \"in all namespaces\". Self is a special case, because users should always be able to check whether they can perform an action -data V1SelfSubjectAccessReview = V1SelfSubjectAccessReview - { v1SelfSubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1SelfSubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1SelfSubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1SelfSubjectAccessReviewSpec :: !(V1SelfSubjectAccessReviewSpec) -- ^ /Required/ "spec" - , v1SelfSubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SelfSubjectAccessReview -instance A.FromJSON V1SelfSubjectAccessReview where - parseJSON = A.withObject "V1SelfSubjectAccessReview" $ \o -> - V1SelfSubjectAccessReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1SelfSubjectAccessReview -instance A.ToJSON V1SelfSubjectAccessReview where - toJSON V1SelfSubjectAccessReview {..} = - _omitNulls - [ "apiVersion" .= v1SelfSubjectAccessReviewApiVersion - , "kind" .= v1SelfSubjectAccessReviewKind - , "metadata" .= v1SelfSubjectAccessReviewMetadata - , "spec" .= v1SelfSubjectAccessReviewSpec - , "status" .= v1SelfSubjectAccessReviewStatus - ] - - --- | Construct a value of type 'V1SelfSubjectAccessReview' (by applying it's required fields, if any) -mkV1SelfSubjectAccessReview - :: V1SelfSubjectAccessReviewSpec -- ^ 'v1SelfSubjectAccessReviewSpec' - -> V1SelfSubjectAccessReview -mkV1SelfSubjectAccessReview v1SelfSubjectAccessReviewSpec = - V1SelfSubjectAccessReview - { v1SelfSubjectAccessReviewApiVersion = Nothing - , v1SelfSubjectAccessReviewKind = Nothing - , v1SelfSubjectAccessReviewMetadata = Nothing - , v1SelfSubjectAccessReviewSpec - , v1SelfSubjectAccessReviewStatus = Nothing - } - --- ** V1SelfSubjectAccessReviewSpec --- | V1SelfSubjectAccessReviewSpec --- SelfSubjectAccessReviewSpec is a description of the access request. Exactly one of ResourceAuthorizationAttributes and NonResourceAuthorizationAttributes must be set -data V1SelfSubjectAccessReviewSpec = V1SelfSubjectAccessReviewSpec - { v1SelfSubjectAccessReviewSpecNonResourceAttributes :: !(Maybe V1NonResourceAttributes) -- ^ "nonResourceAttributes" - , v1SelfSubjectAccessReviewSpecResourceAttributes :: !(Maybe V1ResourceAttributes) -- ^ "resourceAttributes" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SelfSubjectAccessReviewSpec -instance A.FromJSON V1SelfSubjectAccessReviewSpec where - parseJSON = A.withObject "V1SelfSubjectAccessReviewSpec" $ \o -> - V1SelfSubjectAccessReviewSpec - <$> (o .:? "nonResourceAttributes") - <*> (o .:? "resourceAttributes") - --- | ToJSON V1SelfSubjectAccessReviewSpec -instance A.ToJSON V1SelfSubjectAccessReviewSpec where - toJSON V1SelfSubjectAccessReviewSpec {..} = - _omitNulls - [ "nonResourceAttributes" .= v1SelfSubjectAccessReviewSpecNonResourceAttributes - , "resourceAttributes" .= v1SelfSubjectAccessReviewSpecResourceAttributes - ] - - --- | Construct a value of type 'V1SelfSubjectAccessReviewSpec' (by applying it's required fields, if any) -mkV1SelfSubjectAccessReviewSpec - :: V1SelfSubjectAccessReviewSpec -mkV1SelfSubjectAccessReviewSpec = - V1SelfSubjectAccessReviewSpec - { v1SelfSubjectAccessReviewSpecNonResourceAttributes = Nothing - , v1SelfSubjectAccessReviewSpecResourceAttributes = Nothing - } - --- ** V1SelfSubjectRulesReview --- | V1SelfSubjectRulesReview --- SelfSubjectRulesReview enumerates the set of actions the current user can perform within a namespace. The returned list of actions may be incomplete depending on the server's authorization mode, and any errors experienced during the evaluation. SelfSubjectRulesReview should be used by UIs to show/hide actions, or to quickly let an end user reason about their permissions. It should NOT Be used by external systems to drive authorization decisions as this raises confused deputy, cache lifetime/revocation, and correctness concerns. SubjectAccessReview, and LocalAccessReview are the correct way to defer authorization decisions to the API server. -data V1SelfSubjectRulesReview = V1SelfSubjectRulesReview - { v1SelfSubjectRulesReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1SelfSubjectRulesReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1SelfSubjectRulesReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1SelfSubjectRulesReviewSpec :: !(V1SelfSubjectRulesReviewSpec) -- ^ /Required/ "spec" - , v1SelfSubjectRulesReviewStatus :: !(Maybe V1SubjectRulesReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SelfSubjectRulesReview -instance A.FromJSON V1SelfSubjectRulesReview where - parseJSON = A.withObject "V1SelfSubjectRulesReview" $ \o -> - V1SelfSubjectRulesReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1SelfSubjectRulesReview -instance A.ToJSON V1SelfSubjectRulesReview where - toJSON V1SelfSubjectRulesReview {..} = - _omitNulls - [ "apiVersion" .= v1SelfSubjectRulesReviewApiVersion - , "kind" .= v1SelfSubjectRulesReviewKind - , "metadata" .= v1SelfSubjectRulesReviewMetadata - , "spec" .= v1SelfSubjectRulesReviewSpec - , "status" .= v1SelfSubjectRulesReviewStatus - ] - - --- | Construct a value of type 'V1SelfSubjectRulesReview' (by applying it's required fields, if any) -mkV1SelfSubjectRulesReview - :: V1SelfSubjectRulesReviewSpec -- ^ 'v1SelfSubjectRulesReviewSpec' - -> V1SelfSubjectRulesReview -mkV1SelfSubjectRulesReview v1SelfSubjectRulesReviewSpec = - V1SelfSubjectRulesReview - { v1SelfSubjectRulesReviewApiVersion = Nothing - , v1SelfSubjectRulesReviewKind = Nothing - , v1SelfSubjectRulesReviewMetadata = Nothing - , v1SelfSubjectRulesReviewSpec - , v1SelfSubjectRulesReviewStatus = Nothing - } - --- ** V1SelfSubjectRulesReviewSpec --- | V1SelfSubjectRulesReviewSpec --- SelfSubjectRulesReviewSpec defines the specification for SelfSubjectRulesReview. -data V1SelfSubjectRulesReviewSpec = V1SelfSubjectRulesReviewSpec - { v1SelfSubjectRulesReviewSpecNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace to evaluate rules for. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SelfSubjectRulesReviewSpec -instance A.FromJSON V1SelfSubjectRulesReviewSpec where - parseJSON = A.withObject "V1SelfSubjectRulesReviewSpec" $ \o -> - V1SelfSubjectRulesReviewSpec - <$> (o .:? "namespace") - --- | ToJSON V1SelfSubjectRulesReviewSpec -instance A.ToJSON V1SelfSubjectRulesReviewSpec where - toJSON V1SelfSubjectRulesReviewSpec {..} = - _omitNulls - [ "namespace" .= v1SelfSubjectRulesReviewSpecNamespace - ] - - --- | Construct a value of type 'V1SelfSubjectRulesReviewSpec' (by applying it's required fields, if any) -mkV1SelfSubjectRulesReviewSpec - :: V1SelfSubjectRulesReviewSpec -mkV1SelfSubjectRulesReviewSpec = - V1SelfSubjectRulesReviewSpec - { v1SelfSubjectRulesReviewSpecNamespace = Nothing - } - --- ** V1ServerAddressByClientCIDR --- | V1ServerAddressByClientCIDR --- ServerAddressByClientCIDR helps the client to determine the server address that they should use, depending on the clientCIDR that they match. -data V1ServerAddressByClientCIDR = V1ServerAddressByClientCIDR - { v1ServerAddressByClientCIDRClientCidr :: !(Text) -- ^ /Required/ "clientCIDR" - The CIDR with which clients can match their IP to figure out the server address that they should use. - , v1ServerAddressByClientCIDRServerAddress :: !(Text) -- ^ /Required/ "serverAddress" - Address of this server, suitable for a client that matches the above CIDR. This can be a hostname, hostname:port, IP or IP:port. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServerAddressByClientCIDR -instance A.FromJSON V1ServerAddressByClientCIDR where - parseJSON = A.withObject "V1ServerAddressByClientCIDR" $ \o -> - V1ServerAddressByClientCIDR - <$> (o .: "clientCIDR") - <*> (o .: "serverAddress") - --- | ToJSON V1ServerAddressByClientCIDR -instance A.ToJSON V1ServerAddressByClientCIDR where - toJSON V1ServerAddressByClientCIDR {..} = - _omitNulls - [ "clientCIDR" .= v1ServerAddressByClientCIDRClientCidr - , "serverAddress" .= v1ServerAddressByClientCIDRServerAddress - ] - - --- | Construct a value of type 'V1ServerAddressByClientCIDR' (by applying it's required fields, if any) -mkV1ServerAddressByClientCIDR - :: Text -- ^ 'v1ServerAddressByClientCIDRClientCidr': The CIDR with which clients can match their IP to figure out the server address that they should use. - -> Text -- ^ 'v1ServerAddressByClientCIDRServerAddress': Address of this server, suitable for a client that matches the above CIDR. This can be a hostname, hostname:port, IP or IP:port. - -> V1ServerAddressByClientCIDR -mkV1ServerAddressByClientCIDR v1ServerAddressByClientCIDRClientCidr v1ServerAddressByClientCIDRServerAddress = - V1ServerAddressByClientCIDR - { v1ServerAddressByClientCIDRClientCidr - , v1ServerAddressByClientCIDRServerAddress - } - --- ** V1Service --- | V1Service --- Service is a named abstraction of software service (for example, mysql) consisting of local port (for example 3306) that the proxy listens on, and the selector that determines which pods will answer requests sent through the proxy. -data V1Service = V1Service - { v1ServiceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ServiceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ServiceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ServiceSpec :: !(Maybe V1ServiceSpec) -- ^ "spec" - , v1ServiceStatus :: !(Maybe V1ServiceStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Service -instance A.FromJSON V1Service where - parseJSON = A.withObject "V1Service" $ \o -> - V1Service - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1Service -instance A.ToJSON V1Service where - toJSON V1Service {..} = - _omitNulls - [ "apiVersion" .= v1ServiceApiVersion - , "kind" .= v1ServiceKind - , "metadata" .= v1ServiceMetadata - , "spec" .= v1ServiceSpec - , "status" .= v1ServiceStatus - ] - - --- | Construct a value of type 'V1Service' (by applying it's required fields, if any) -mkV1Service - :: V1Service -mkV1Service = - V1Service - { v1ServiceApiVersion = Nothing - , v1ServiceKind = Nothing - , v1ServiceMetadata = Nothing - , v1ServiceSpec = Nothing - , v1ServiceStatus = Nothing - } - --- ** V1ServiceAccount --- | V1ServiceAccount --- ServiceAccount binds together: * a name, understood by users, and perhaps by peripheral systems, for an identity * a principal that can be authenticated and authorized * a set of secrets -data V1ServiceAccount = V1ServiceAccount - { v1ServiceAccountApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ServiceAccountAutomountServiceAccountToken :: !(Maybe Bool) -- ^ "automountServiceAccountToken" - AutomountServiceAccountToken indicates whether pods running as this service account should have an API token automatically mounted. Can be overridden at the pod level. - , v1ServiceAccountImagePullSecrets :: !(Maybe [V1LocalObjectReference]) -- ^ "imagePullSecrets" - ImagePullSecrets is a list of references to secrets in the same namespace to use for pulling any images in pods that reference this ServiceAccount. ImagePullSecrets are distinct from Secrets because Secrets can be mounted in the pod, but ImagePullSecrets are only accessed by the kubelet. More info: https://kubernetes.io/docs/concepts/containers/images/#specifying-imagepullsecrets-on-a-pod - , v1ServiceAccountKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ServiceAccountMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ServiceAccountSecrets :: !(Maybe [V1ObjectReference]) -- ^ "secrets" - Secrets is a list of the secrets in the same namespace that pods running using this ServiceAccount are allowed to use. Pods are only limited to this list if this service account has a \"kubernetes.io/enforce-mountable-secrets\" annotation set to \"true\". This field should not be used to find auto-generated service account token secrets for use outside of pods. Instead, tokens can be requested directly using the TokenRequest API, or service account token secrets can be manually created. More info: https://kubernetes.io/docs/concepts/configuration/secret - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceAccount -instance A.FromJSON V1ServiceAccount where - parseJSON = A.withObject "V1ServiceAccount" $ \o -> - V1ServiceAccount - <$> (o .:? "apiVersion") - <*> (o .:? "automountServiceAccountToken") - <*> (o .:? "imagePullSecrets") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "secrets") - --- | ToJSON V1ServiceAccount -instance A.ToJSON V1ServiceAccount where - toJSON V1ServiceAccount {..} = - _omitNulls - [ "apiVersion" .= v1ServiceAccountApiVersion - , "automountServiceAccountToken" .= v1ServiceAccountAutomountServiceAccountToken - , "imagePullSecrets" .= v1ServiceAccountImagePullSecrets - , "kind" .= v1ServiceAccountKind - , "metadata" .= v1ServiceAccountMetadata - , "secrets" .= v1ServiceAccountSecrets - ] - - --- | Construct a value of type 'V1ServiceAccount' (by applying it's required fields, if any) -mkV1ServiceAccount - :: V1ServiceAccount -mkV1ServiceAccount = - V1ServiceAccount - { v1ServiceAccountApiVersion = Nothing - , v1ServiceAccountAutomountServiceAccountToken = Nothing - , v1ServiceAccountImagePullSecrets = Nothing - , v1ServiceAccountKind = Nothing - , v1ServiceAccountMetadata = Nothing - , v1ServiceAccountSecrets = Nothing - } - --- ** V1ServiceAccountList --- | V1ServiceAccountList --- ServiceAccountList is a list of ServiceAccount objects -data V1ServiceAccountList = V1ServiceAccountList - { v1ServiceAccountListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ServiceAccountListItems :: !([V1ServiceAccount]) -- ^ /Required/ "items" - List of ServiceAccounts. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ - , v1ServiceAccountListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ServiceAccountListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceAccountList -instance A.FromJSON V1ServiceAccountList where - parseJSON = A.withObject "V1ServiceAccountList" $ \o -> - V1ServiceAccountList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ServiceAccountList -instance A.ToJSON V1ServiceAccountList where - toJSON V1ServiceAccountList {..} = - _omitNulls - [ "apiVersion" .= v1ServiceAccountListApiVersion - , "items" .= v1ServiceAccountListItems - , "kind" .= v1ServiceAccountListKind - , "metadata" .= v1ServiceAccountListMetadata - ] - - --- | Construct a value of type 'V1ServiceAccountList' (by applying it's required fields, if any) -mkV1ServiceAccountList - :: [V1ServiceAccount] -- ^ 'v1ServiceAccountListItems': List of ServiceAccounts. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ - -> V1ServiceAccountList -mkV1ServiceAccountList v1ServiceAccountListItems = - V1ServiceAccountList - { v1ServiceAccountListApiVersion = Nothing - , v1ServiceAccountListItems - , v1ServiceAccountListKind = Nothing - , v1ServiceAccountListMetadata = Nothing - } - --- ** V1ServiceAccountTokenProjection --- | V1ServiceAccountTokenProjection --- ServiceAccountTokenProjection represents a projected service account token volume. This projection can be used to insert a service account token into the pods runtime filesystem for use against APIs (Kubernetes API Server or otherwise). -data V1ServiceAccountTokenProjection = V1ServiceAccountTokenProjection - { v1ServiceAccountTokenProjectionAudience :: !(Maybe Text) -- ^ "audience" - audience is the intended audience of the token. A recipient of a token must identify itself with an identifier specified in the audience of the token, and otherwise should reject the token. The audience defaults to the identifier of the apiserver. - , v1ServiceAccountTokenProjectionExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - expirationSeconds is the requested duration of validity of the service account token. As the token approaches expiration, the kubelet volume plugin will proactively rotate the service account token. The kubelet will start trying to rotate the token if the token is older than 80 percent of its time to live or if the token is older than 24 hours.Defaults to 1 hour and must be at least 10 minutes. - , v1ServiceAccountTokenProjectionPath :: !(Text) -- ^ /Required/ "path" - path is the path relative to the mount point of the file to project the token into. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceAccountTokenProjection -instance A.FromJSON V1ServiceAccountTokenProjection where - parseJSON = A.withObject "V1ServiceAccountTokenProjection" $ \o -> - V1ServiceAccountTokenProjection - <$> (o .:? "audience") - <*> (o .:? "expirationSeconds") - <*> (o .: "path") - --- | ToJSON V1ServiceAccountTokenProjection -instance A.ToJSON V1ServiceAccountTokenProjection where - toJSON V1ServiceAccountTokenProjection {..} = - _omitNulls - [ "audience" .= v1ServiceAccountTokenProjectionAudience - , "expirationSeconds" .= v1ServiceAccountTokenProjectionExpirationSeconds - , "path" .= v1ServiceAccountTokenProjectionPath - ] - - --- | Construct a value of type 'V1ServiceAccountTokenProjection' (by applying it's required fields, if any) -mkV1ServiceAccountTokenProjection - :: Text -- ^ 'v1ServiceAccountTokenProjectionPath': path is the path relative to the mount point of the file to project the token into. - -> V1ServiceAccountTokenProjection -mkV1ServiceAccountTokenProjection v1ServiceAccountTokenProjectionPath = - V1ServiceAccountTokenProjection - { v1ServiceAccountTokenProjectionAudience = Nothing - , v1ServiceAccountTokenProjectionExpirationSeconds = Nothing - , v1ServiceAccountTokenProjectionPath - } - --- ** V1ServiceBackendPort --- | V1ServiceBackendPort --- ServiceBackendPort is the service port being referenced. -data V1ServiceBackendPort = V1ServiceBackendPort - { v1ServiceBackendPortName :: !(Maybe Text) -- ^ "name" - Name is the name of the port on the Service. This is a mutually exclusive setting with \"Number\". - , v1ServiceBackendPortNumber :: !(Maybe Int) -- ^ "number" - Number is the numerical port number (e.g. 80) on the Service. This is a mutually exclusive setting with \"Name\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceBackendPort -instance A.FromJSON V1ServiceBackendPort where - parseJSON = A.withObject "V1ServiceBackendPort" $ \o -> - V1ServiceBackendPort - <$> (o .:? "name") - <*> (o .:? "number") - --- | ToJSON V1ServiceBackendPort -instance A.ToJSON V1ServiceBackendPort where - toJSON V1ServiceBackendPort {..} = - _omitNulls - [ "name" .= v1ServiceBackendPortName - , "number" .= v1ServiceBackendPortNumber - ] - - --- | Construct a value of type 'V1ServiceBackendPort' (by applying it's required fields, if any) -mkV1ServiceBackendPort - :: V1ServiceBackendPort -mkV1ServiceBackendPort = - V1ServiceBackendPort - { v1ServiceBackendPortName = Nothing - , v1ServiceBackendPortNumber = Nothing - } - --- ** V1ServiceList --- | V1ServiceList --- ServiceList holds a list of services. -data V1ServiceList = V1ServiceList - { v1ServiceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ServiceListItems :: !([V1Service]) -- ^ /Required/ "items" - List of services - , v1ServiceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ServiceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceList -instance A.FromJSON V1ServiceList where - parseJSON = A.withObject "V1ServiceList" $ \o -> - V1ServiceList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ServiceList -instance A.ToJSON V1ServiceList where - toJSON V1ServiceList {..} = - _omitNulls - [ "apiVersion" .= v1ServiceListApiVersion - , "items" .= v1ServiceListItems - , "kind" .= v1ServiceListKind - , "metadata" .= v1ServiceListMetadata - ] - - --- | Construct a value of type 'V1ServiceList' (by applying it's required fields, if any) -mkV1ServiceList - :: [V1Service] -- ^ 'v1ServiceListItems': List of services - -> V1ServiceList -mkV1ServiceList v1ServiceListItems = - V1ServiceList - { v1ServiceListApiVersion = Nothing - , v1ServiceListItems - , v1ServiceListKind = Nothing - , v1ServiceListMetadata = Nothing - } - --- ** V1ServicePort --- | V1ServicePort --- ServicePort contains information on service's port. -data V1ServicePort = V1ServicePort - { v1ServicePortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This field follows standard Kubernetes label syntax. Un-prefixed names are reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). Non-standard protocols should use prefixed names such as mycompany.com/my-custom-protocol. - , v1ServicePortName :: !(Maybe Text) -- ^ "name" - The name of this port within the service. This must be a DNS_LABEL. All ports within a ServiceSpec must have unique names. When considering the endpoints for a Service, this must match the 'name' field in the EndpointPort. Optional if only one ServicePort is defined on this service. - , v1ServicePortNodePort :: !(Maybe Int) -- ^ "nodePort" - The port on each node on which this service is exposed when type is NodePort or LoadBalancer. Usually assigned by the system. If a value is specified, in-range, and not in use it will be used, otherwise the operation will fail. If not specified, a port will be allocated if this Service requires one. If this field is specified when creating a Service which does not need it, creation will fail. This field will be wiped when updating a Service to no longer need it (e.g. changing type from NodePort to ClusterIP). More info: https://kubernetes.io/docs/concepts/services-networking/service/#type-nodeport - , v1ServicePortPort :: !(Int) -- ^ /Required/ "port" - The port that will be exposed by this service. - , v1ServicePortProtocol :: !(Maybe Text) -- ^ "protocol" - The IP protocol for this port. Supports \"TCP\", \"UDP\", and \"SCTP\". Default is TCP. - , v1ServicePortTargetPort :: !(Maybe IntOrString) -- ^ "targetPort" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServicePort -instance A.FromJSON V1ServicePort where - parseJSON = A.withObject "V1ServicePort" $ \o -> - V1ServicePort - <$> (o .:? "appProtocol") - <*> (o .:? "name") - <*> (o .:? "nodePort") - <*> (o .: "port") - <*> (o .:? "protocol") - <*> (o .:? "targetPort") - --- | ToJSON V1ServicePort -instance A.ToJSON V1ServicePort where - toJSON V1ServicePort {..} = - _omitNulls - [ "appProtocol" .= v1ServicePortAppProtocol - , "name" .= v1ServicePortName - , "nodePort" .= v1ServicePortNodePort - , "port" .= v1ServicePortPort - , "protocol" .= v1ServicePortProtocol - , "targetPort" .= v1ServicePortTargetPort - ] - - --- | Construct a value of type 'V1ServicePort' (by applying it's required fields, if any) -mkV1ServicePort - :: Int -- ^ 'v1ServicePortPort': The port that will be exposed by this service. - -> V1ServicePort -mkV1ServicePort v1ServicePortPort = - V1ServicePort - { v1ServicePortAppProtocol = Nothing - , v1ServicePortName = Nothing - , v1ServicePortNodePort = Nothing - , v1ServicePortPort - , v1ServicePortProtocol = Nothing - , v1ServicePortTargetPort = Nothing - } - --- ** V1ServiceSpec --- | V1ServiceSpec --- ServiceSpec describes the attributes that a user creates on a service. -data V1ServiceSpec = V1ServiceSpec - { v1ServiceSpecAllocateLoadBalancerNodePorts :: !(Maybe Bool) -- ^ "allocateLoadBalancerNodePorts" - allocateLoadBalancerNodePorts defines if NodePorts will be automatically allocated for services with type LoadBalancer. Default is \"true\". It may be set to \"false\" if the cluster load-balancer does not rely on NodePorts. If the caller requests specific NodePorts (by specifying a value), those requests will be respected, regardless of this field. This field may only be set for services with type LoadBalancer and will be cleared if the type is changed to any other type. - , v1ServiceSpecClusterIp :: !(Maybe Text) -- ^ "clusterIP" - clusterIP is the IP address of the service and is usually assigned randomly. If an address is specified manually, is in-range (as per system configuration), and is not in use, it will be allocated to the service; otherwise creation of the service will fail. This field may not be changed through updates unless the type field is also being changed to ExternalName (which requires this field to be blank) or the type field is being changed from ExternalName (in which case this field may optionally be specified, as describe above). Valid values are \"None\", empty string (\"\"), or a valid IP address. Setting this to \"None\" makes a \"headless service\" (no virtual IP), which is useful when direct endpoint connections are preferred and proxying is not required. Only applies to types ClusterIP, NodePort, and LoadBalancer. If this field is specified when creating a Service of type ExternalName, creation will fail. This field will be wiped when updating a Service to type ExternalName. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies - , v1ServiceSpecClusterIps :: !(Maybe [Text]) -- ^ "clusterIPs" - ClusterIPs is a list of IP addresses assigned to this service, and are usually assigned randomly. If an address is specified manually, is in-range (as per system configuration), and is not in use, it will be allocated to the service; otherwise creation of the service will fail. This field may not be changed through updates unless the type field is also being changed to ExternalName (which requires this field to be empty) or the type field is being changed from ExternalName (in which case this field may optionally be specified, as describe above). Valid values are \"None\", empty string (\"\"), or a valid IP address. Setting this to \"None\" makes a \"headless service\" (no virtual IP), which is useful when direct endpoint connections are preferred and proxying is not required. Only applies to types ClusterIP, NodePort, and LoadBalancer. If this field is specified when creating a Service of type ExternalName, creation will fail. This field will be wiped when updating a Service to type ExternalName. If this field is not specified, it will be initialized from the clusterIP field. If this field is specified, clients must ensure that clusterIPs[0] and clusterIP have the same value. This field may hold a maximum of two entries (dual-stack IPs, in either order). These IPs must correspond to the values of the ipFamilies field. Both clusterIPs and ipFamilies are governed by the ipFamilyPolicy field. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies - , v1ServiceSpecExternalIps :: !(Maybe [Text]) -- ^ "externalIPs" - externalIPs is a list of IP addresses for which nodes in the cluster will also accept traffic for this service. These IPs are not managed by Kubernetes. The user is responsible for ensuring that traffic arrives at a node with this IP. A common example is external load-balancers that are not part of the Kubernetes system. - , v1ServiceSpecExternalName :: !(Maybe Text) -- ^ "externalName" - externalName is the external reference that discovery mechanisms will return as an alias for this service (e.g. a DNS CNAME record). No proxying will be involved. Must be a lowercase RFC-1123 hostname (https://tools.ietf.org/html/rfc1123) and requires `type` to be \"ExternalName\". - , v1ServiceSpecExternalTrafficPolicy :: !(Maybe Text) -- ^ "externalTrafficPolicy" - externalTrafficPolicy describes how nodes distribute service traffic they receive on one of the Service's \"externally-facing\" addresses (NodePorts, ExternalIPs, and LoadBalancer IPs). If set to \"Local\", the proxy will configure the service in a way that assumes that external load balancers will take care of balancing the service traffic between nodes, and so each node will deliver traffic only to the node-local endpoints of the service, without masquerading the client source IP. (Traffic mistakenly sent to a node with no endpoints will be dropped.) The default value, \"Cluster\", uses the standard behavior of routing to all endpoints evenly (possibly modified by topology and other features). Note that traffic sent to an External IP or LoadBalancer IP from within the cluster will always get \"Cluster\" semantics, but clients sending to a NodePort from within the cluster may need to take traffic policy into account when picking a node. - , v1ServiceSpecHealthCheckNodePort :: !(Maybe Int) -- ^ "healthCheckNodePort" - healthCheckNodePort specifies the healthcheck nodePort for the service. This only applies when type is set to LoadBalancer and externalTrafficPolicy is set to Local. If a value is specified, is in-range, and is not in use, it will be used. If not specified, a value will be automatically allocated. External systems (e.g. load-balancers) can use this port to determine if a given node holds endpoints for this service or not. If this field is specified when creating a Service which does not need it, creation will fail. This field will be wiped when updating a Service to no longer need it (e.g. changing type). This field cannot be updated once set. - , v1ServiceSpecInternalTrafficPolicy :: !(Maybe Text) -- ^ "internalTrafficPolicy" - InternalTrafficPolicy describes how nodes distribute service traffic they receive on the ClusterIP. If set to \"Local\", the proxy will assume that pods only want to talk to endpoints of the service on the same node as the pod, dropping the traffic if there are no local endpoints. The default value, \"Cluster\", uses the standard behavior of routing to all endpoints evenly (possibly modified by topology and other features). - , v1ServiceSpecIpFamilies :: !(Maybe [Text]) -- ^ "ipFamilies" - IPFamilies is a list of IP families (e.g. IPv4, IPv6) assigned to this service. This field is usually assigned automatically based on cluster configuration and the ipFamilyPolicy field. If this field is specified manually, the requested family is available in the cluster, and ipFamilyPolicy allows it, it will be used; otherwise creation of the service will fail. This field is conditionally mutable: it allows for adding or removing a secondary IP family, but it does not allow changing the primary IP family of the Service. Valid values are \"IPv4\" and \"IPv6\". This field only applies to Services of types ClusterIP, NodePort, and LoadBalancer, and does apply to \"headless\" services. This field will be wiped when updating a Service to type ExternalName. This field may hold a maximum of two entries (dual-stack families, in either order). These families must correspond to the values of the clusterIPs field, if specified. Both clusterIPs and ipFamilies are governed by the ipFamilyPolicy field. - , v1ServiceSpecIpFamilyPolicy :: !(Maybe Text) -- ^ "ipFamilyPolicy" - IPFamilyPolicy represents the dual-stack-ness requested or required by this Service. If there is no value provided, then this field will be set to SingleStack. Services can be \"SingleStack\" (a single IP family), \"PreferDualStack\" (two IP families on dual-stack configured clusters or a single IP family on single-stack clusters), or \"RequireDualStack\" (two IP families on dual-stack configured clusters, otherwise fail). The ipFamilies and clusterIPs fields depend on the value of this field. This field will be wiped when updating a service to type ExternalName. - , v1ServiceSpecLoadBalancerClass :: !(Maybe Text) -- ^ "loadBalancerClass" - loadBalancerClass is the class of the load balancer implementation this Service belongs to. If specified, the value of this field must be a label-style identifier, with an optional prefix, e.g. \"internal-vip\" or \"example.com/internal-vip\". Unprefixed names are reserved for end-users. This field can only be set when the Service type is 'LoadBalancer'. If not set, the default load balancer implementation is used, today this is typically done through the cloud provider integration, but should apply for any default implementation. If set, it is assumed that a load balancer implementation is watching for Services with a matching class. Any default load balancer implementation (e.g. cloud providers) should ignore Services that set this field. This field can only be set when creating or updating a Service to type 'LoadBalancer'. Once set, it can not be changed. This field will be wiped when a service is updated to a non 'LoadBalancer' type. - , v1ServiceSpecLoadBalancerIp :: !(Maybe Text) -- ^ "loadBalancerIP" - Only applies to Service Type: LoadBalancer. This feature depends on whether the underlying cloud-provider supports specifying the loadBalancerIP when a load balancer is created. This field will be ignored if the cloud-provider does not support the feature. Deprecated: This field was under-specified and its meaning varies across implementations, and it cannot support dual-stack. As of Kubernetes v1.24, users are encouraged to use implementation-specific annotations when available. This field may be removed in a future API version. - , v1ServiceSpecLoadBalancerSourceRanges :: !(Maybe [Text]) -- ^ "loadBalancerSourceRanges" - If specified and supported by the platform, this will restrict traffic through the cloud-provider load-balancer will be restricted to the specified client IPs. This field will be ignored if the cloud-provider does not support the feature.\" More info: https://kubernetes.io/docs/tasks/access-application-cluster/create-external-load-balancer/ - , v1ServiceSpecPorts :: !(Maybe [V1ServicePort]) -- ^ "ports" - The list of ports that are exposed by this service. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies - , v1ServiceSpecPublishNotReadyAddresses :: !(Maybe Bool) -- ^ "publishNotReadyAddresses" - publishNotReadyAddresses indicates that any agent which deals with endpoints for this Service should disregard any indications of ready/not-ready. The primary use case for setting this field is for a StatefulSet's Headless Service to propagate SRV DNS records for its Pods for the purpose of peer discovery. The Kubernetes controllers that generate Endpoints and EndpointSlice resources for Services interpret this to mean that all endpoints are considered \"ready\" even if the Pods themselves are not. Agents which consume only Kubernetes generated endpoints through the Endpoints or EndpointSlice resources can safely assume this behavior. - , v1ServiceSpecSelector :: !(Maybe (Map.Map String Text)) -- ^ "selector" - Route service traffic to pods with label keys and values matching this selector. If empty or not present, the service is assumed to have an external process managing its endpoints, which Kubernetes will not modify. Only applies to types ClusterIP, NodePort, and LoadBalancer. Ignored if type is ExternalName. More info: https://kubernetes.io/docs/concepts/services-networking/service/ - , v1ServiceSpecSessionAffinity :: !(Maybe Text) -- ^ "sessionAffinity" - Supports \"ClientIP\" and \"None\". Used to maintain session affinity. Enable client IP based session affinity. Must be ClientIP or None. Defaults to None. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies - , v1ServiceSpecSessionAffinityConfig :: !(Maybe V1SessionAffinityConfig) -- ^ "sessionAffinityConfig" - , v1ServiceSpecType :: !(Maybe Text) -- ^ "type" - type determines how the Service is exposed. Defaults to ClusterIP. Valid options are ExternalName, ClusterIP, NodePort, and LoadBalancer. \"ClusterIP\" allocates a cluster-internal IP address for load-balancing to endpoints. Endpoints are determined by the selector or if that is not specified, by manual construction of an Endpoints object or EndpointSlice objects. If clusterIP is \"None\", no virtual IP is allocated and the endpoints are published as a set of endpoints rather than a virtual IP. \"NodePort\" builds on ClusterIP and allocates a port on every node which routes to the same endpoints as the clusterIP. \"LoadBalancer\" builds on NodePort and creates an external load-balancer (if supported in the current cloud) which routes to the same endpoints as the clusterIP. \"ExternalName\" aliases this service to the specified externalName. Several other fields do not apply to ExternalName services. More info: https://kubernetes.io/docs/concepts/services-networking/service/#publishing-services-service-types - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceSpec -instance A.FromJSON V1ServiceSpec where - parseJSON = A.withObject "V1ServiceSpec" $ \o -> - V1ServiceSpec - <$> (o .:? "allocateLoadBalancerNodePorts") - <*> (o .:? "clusterIP") - <*> (o .:? "clusterIPs") - <*> (o .:? "externalIPs") - <*> (o .:? "externalName") - <*> (o .:? "externalTrafficPolicy") - <*> (o .:? "healthCheckNodePort") - <*> (o .:? "internalTrafficPolicy") - <*> (o .:? "ipFamilies") - <*> (o .:? "ipFamilyPolicy") - <*> (o .:? "loadBalancerClass") - <*> (o .:? "loadBalancerIP") - <*> (o .:? "loadBalancerSourceRanges") - <*> (o .:? "ports") - <*> (o .:? "publishNotReadyAddresses") - <*> (o .:? "selector") - <*> (o .:? "sessionAffinity") - <*> (o .:? "sessionAffinityConfig") - <*> (o .:? "type") - --- | ToJSON V1ServiceSpec -instance A.ToJSON V1ServiceSpec where - toJSON V1ServiceSpec {..} = - _omitNulls - [ "allocateLoadBalancerNodePorts" .= v1ServiceSpecAllocateLoadBalancerNodePorts - , "clusterIP" .= v1ServiceSpecClusterIp - , "clusterIPs" .= v1ServiceSpecClusterIps - , "externalIPs" .= v1ServiceSpecExternalIps - , "externalName" .= v1ServiceSpecExternalName - , "externalTrafficPolicy" .= v1ServiceSpecExternalTrafficPolicy - , "healthCheckNodePort" .= v1ServiceSpecHealthCheckNodePort - , "internalTrafficPolicy" .= v1ServiceSpecInternalTrafficPolicy - , "ipFamilies" .= v1ServiceSpecIpFamilies - , "ipFamilyPolicy" .= v1ServiceSpecIpFamilyPolicy - , "loadBalancerClass" .= v1ServiceSpecLoadBalancerClass - , "loadBalancerIP" .= v1ServiceSpecLoadBalancerIp - , "loadBalancerSourceRanges" .= v1ServiceSpecLoadBalancerSourceRanges - , "ports" .= v1ServiceSpecPorts - , "publishNotReadyAddresses" .= v1ServiceSpecPublishNotReadyAddresses - , "selector" .= v1ServiceSpecSelector - , "sessionAffinity" .= v1ServiceSpecSessionAffinity - , "sessionAffinityConfig" .= v1ServiceSpecSessionAffinityConfig - , "type" .= v1ServiceSpecType - ] - - --- | Construct a value of type 'V1ServiceSpec' (by applying it's required fields, if any) -mkV1ServiceSpec - :: V1ServiceSpec -mkV1ServiceSpec = - V1ServiceSpec - { v1ServiceSpecAllocateLoadBalancerNodePorts = Nothing - , v1ServiceSpecClusterIp = Nothing - , v1ServiceSpecClusterIps = Nothing - , v1ServiceSpecExternalIps = Nothing - , v1ServiceSpecExternalName = Nothing - , v1ServiceSpecExternalTrafficPolicy = Nothing - , v1ServiceSpecHealthCheckNodePort = Nothing - , v1ServiceSpecInternalTrafficPolicy = Nothing - , v1ServiceSpecIpFamilies = Nothing - , v1ServiceSpecIpFamilyPolicy = Nothing - , v1ServiceSpecLoadBalancerClass = Nothing - , v1ServiceSpecLoadBalancerIp = Nothing - , v1ServiceSpecLoadBalancerSourceRanges = Nothing - , v1ServiceSpecPorts = Nothing - , v1ServiceSpecPublishNotReadyAddresses = Nothing - , v1ServiceSpecSelector = Nothing - , v1ServiceSpecSessionAffinity = Nothing - , v1ServiceSpecSessionAffinityConfig = Nothing - , v1ServiceSpecType = Nothing - } - --- ** V1ServiceStatus --- | V1ServiceStatus --- ServiceStatus represents the current status of a service. -data V1ServiceStatus = V1ServiceStatus - { v1ServiceStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - Current service state - , v1ServiceStatusLoadBalancer :: !(Maybe V1LoadBalancerStatus) -- ^ "loadBalancer" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ServiceStatus -instance A.FromJSON V1ServiceStatus where - parseJSON = A.withObject "V1ServiceStatus" $ \o -> - V1ServiceStatus - <$> (o .:? "conditions") - <*> (o .:? "loadBalancer") - --- | ToJSON V1ServiceStatus -instance A.ToJSON V1ServiceStatus where - toJSON V1ServiceStatus {..} = - _omitNulls - [ "conditions" .= v1ServiceStatusConditions - , "loadBalancer" .= v1ServiceStatusLoadBalancer - ] - - --- | Construct a value of type 'V1ServiceStatus' (by applying it's required fields, if any) -mkV1ServiceStatus - :: V1ServiceStatus -mkV1ServiceStatus = - V1ServiceStatus - { v1ServiceStatusConditions = Nothing - , v1ServiceStatusLoadBalancer = Nothing - } - --- ** V1SessionAffinityConfig --- | V1SessionAffinityConfig --- SessionAffinityConfig represents the configurations of session affinity. -data V1SessionAffinityConfig = V1SessionAffinityConfig - { v1SessionAffinityConfigClientIp :: !(Maybe V1ClientIPConfig) -- ^ "clientIP" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SessionAffinityConfig -instance A.FromJSON V1SessionAffinityConfig where - parseJSON = A.withObject "V1SessionAffinityConfig" $ \o -> - V1SessionAffinityConfig - <$> (o .:? "clientIP") - --- | ToJSON V1SessionAffinityConfig -instance A.ToJSON V1SessionAffinityConfig where - toJSON V1SessionAffinityConfig {..} = - _omitNulls - [ "clientIP" .= v1SessionAffinityConfigClientIp - ] - - --- | Construct a value of type 'V1SessionAffinityConfig' (by applying it's required fields, if any) -mkV1SessionAffinityConfig - :: V1SessionAffinityConfig -mkV1SessionAffinityConfig = - V1SessionAffinityConfig - { v1SessionAffinityConfigClientIp = Nothing - } - --- ** V1StatefulSet --- | V1StatefulSet --- StatefulSet represents a set of pods with consistent identities. Identities are defined as: - Network: A single stable DNS and hostname. - Storage: As many VolumeClaims as requested. The StatefulSet guarantees that a given network identity will always map to the same storage identity. -data V1StatefulSet = V1StatefulSet - { v1StatefulSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1StatefulSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StatefulSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1StatefulSetSpec :: !(Maybe V1StatefulSetSpec) -- ^ "spec" - , v1StatefulSetStatus :: !(Maybe V1StatefulSetStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSet -instance A.FromJSON V1StatefulSet where - parseJSON = A.withObject "V1StatefulSet" $ \o -> - V1StatefulSet - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1StatefulSet -instance A.ToJSON V1StatefulSet where - toJSON V1StatefulSet {..} = - _omitNulls - [ "apiVersion" .= v1StatefulSetApiVersion - , "kind" .= v1StatefulSetKind - , "metadata" .= v1StatefulSetMetadata - , "spec" .= v1StatefulSetSpec - , "status" .= v1StatefulSetStatus - ] - - --- | Construct a value of type 'V1StatefulSet' (by applying it's required fields, if any) -mkV1StatefulSet - :: V1StatefulSet -mkV1StatefulSet = - V1StatefulSet - { v1StatefulSetApiVersion = Nothing - , v1StatefulSetKind = Nothing - , v1StatefulSetMetadata = Nothing - , v1StatefulSetSpec = Nothing - , v1StatefulSetStatus = Nothing - } - --- ** V1StatefulSetCondition --- | V1StatefulSetCondition --- StatefulSetCondition describes the state of a statefulset at a certain point. -data V1StatefulSetCondition = V1StatefulSetCondition - { v1StatefulSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1StatefulSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1StatefulSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. - , v1StatefulSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1StatefulSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of statefulset condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetCondition -instance A.FromJSON V1StatefulSetCondition where - parseJSON = A.withObject "V1StatefulSetCondition" $ \o -> - V1StatefulSetCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1StatefulSetCondition -instance A.ToJSON V1StatefulSetCondition where - toJSON V1StatefulSetCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1StatefulSetConditionLastTransitionTime - , "message" .= v1StatefulSetConditionMessage - , "reason" .= v1StatefulSetConditionReason - , "status" .= v1StatefulSetConditionStatus - , "type" .= v1StatefulSetConditionType - ] - - --- | Construct a value of type 'V1StatefulSetCondition' (by applying it's required fields, if any) -mkV1StatefulSetCondition - :: Text -- ^ 'v1StatefulSetConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1StatefulSetConditionType': Type of statefulset condition. - -> V1StatefulSetCondition -mkV1StatefulSetCondition v1StatefulSetConditionStatus v1StatefulSetConditionType = - V1StatefulSetCondition - { v1StatefulSetConditionLastTransitionTime = Nothing - , v1StatefulSetConditionMessage = Nothing - , v1StatefulSetConditionReason = Nothing - , v1StatefulSetConditionStatus - , v1StatefulSetConditionType - } - --- ** V1StatefulSetList --- | V1StatefulSetList --- StatefulSetList is a collection of StatefulSets. -data V1StatefulSetList = V1StatefulSetList - { v1StatefulSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1StatefulSetListItems :: !([V1StatefulSet]) -- ^ /Required/ "items" - Items is the list of stateful sets. - , v1StatefulSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StatefulSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetList -instance A.FromJSON V1StatefulSetList where - parseJSON = A.withObject "V1StatefulSetList" $ \o -> - V1StatefulSetList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1StatefulSetList -instance A.ToJSON V1StatefulSetList where - toJSON V1StatefulSetList {..} = - _omitNulls - [ "apiVersion" .= v1StatefulSetListApiVersion - , "items" .= v1StatefulSetListItems - , "kind" .= v1StatefulSetListKind - , "metadata" .= v1StatefulSetListMetadata - ] - - --- | Construct a value of type 'V1StatefulSetList' (by applying it's required fields, if any) -mkV1StatefulSetList - :: [V1StatefulSet] -- ^ 'v1StatefulSetListItems': Items is the list of stateful sets. - -> V1StatefulSetList -mkV1StatefulSetList v1StatefulSetListItems = - V1StatefulSetList - { v1StatefulSetListApiVersion = Nothing - , v1StatefulSetListItems - , v1StatefulSetListKind = Nothing - , v1StatefulSetListMetadata = Nothing - } - --- ** V1StatefulSetOrdinals --- | V1StatefulSetOrdinals --- StatefulSetOrdinals describes the policy used for replica ordinal assignment in this StatefulSet. -data V1StatefulSetOrdinals = V1StatefulSetOrdinals - { v1StatefulSetOrdinalsStart :: !(Maybe Int) -- ^ "start" - start is the number representing the first replica's index. It may be used to number replicas from an alternate index (eg: 1-indexed) over the default 0-indexed names, or to orchestrate progressive movement of replicas from one StatefulSet to another. If set, replica indices will be in the range: [.spec.ordinals.start, .spec.ordinals.start + .spec.replicas). If unset, defaults to 0. Replica indices will be in the range: [0, .spec.replicas). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetOrdinals -instance A.FromJSON V1StatefulSetOrdinals where - parseJSON = A.withObject "V1StatefulSetOrdinals" $ \o -> - V1StatefulSetOrdinals - <$> (o .:? "start") - --- | ToJSON V1StatefulSetOrdinals -instance A.ToJSON V1StatefulSetOrdinals where - toJSON V1StatefulSetOrdinals {..} = - _omitNulls - [ "start" .= v1StatefulSetOrdinalsStart - ] - - --- | Construct a value of type 'V1StatefulSetOrdinals' (by applying it's required fields, if any) -mkV1StatefulSetOrdinals - :: V1StatefulSetOrdinals -mkV1StatefulSetOrdinals = - V1StatefulSetOrdinals - { v1StatefulSetOrdinalsStart = Nothing - } - --- ** V1StatefulSetPersistentVolumeClaimRetentionPolicy --- | V1StatefulSetPersistentVolumeClaimRetentionPolicy --- StatefulSetPersistentVolumeClaimRetentionPolicy describes the policy used for PVCs created from the StatefulSet VolumeClaimTemplates. -data V1StatefulSetPersistentVolumeClaimRetentionPolicy = V1StatefulSetPersistentVolumeClaimRetentionPolicy - { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted :: !(Maybe Text) -- ^ "whenDeleted" - WhenDeleted specifies what happens to PVCs created from StatefulSet VolumeClaimTemplates when the StatefulSet is deleted. The default policy of `Retain` causes PVCs to not be affected by StatefulSet deletion. The `Delete` policy causes those PVCs to be deleted. - , v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled :: !(Maybe Text) -- ^ "whenScaled" - WhenScaled specifies what happens to PVCs created from StatefulSet VolumeClaimTemplates when the StatefulSet is scaled down. The default policy of `Retain` causes PVCs to not be affected by a scaledown. The `Delete` policy causes the associated PVCs for any excess pods above the replica count to be deleted. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy -instance A.FromJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy where - parseJSON = A.withObject "V1StatefulSetPersistentVolumeClaimRetentionPolicy" $ \o -> - V1StatefulSetPersistentVolumeClaimRetentionPolicy - <$> (o .:? "whenDeleted") - <*> (o .:? "whenScaled") - --- | ToJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy -instance A.ToJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy where - toJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy {..} = - _omitNulls - [ "whenDeleted" .= v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted - , "whenScaled" .= v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled - ] - - --- | Construct a value of type 'V1StatefulSetPersistentVolumeClaimRetentionPolicy' (by applying it's required fields, if any) -mkV1StatefulSetPersistentVolumeClaimRetentionPolicy - :: V1StatefulSetPersistentVolumeClaimRetentionPolicy -mkV1StatefulSetPersistentVolumeClaimRetentionPolicy = - V1StatefulSetPersistentVolumeClaimRetentionPolicy - { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted = Nothing - , v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled = Nothing - } - --- ** V1StatefulSetSpec --- | V1StatefulSetSpec --- A StatefulSetSpec is the specification of a StatefulSet. -data V1StatefulSetSpec = V1StatefulSetSpec - { v1StatefulSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) - , v1StatefulSetSpecOrdinals :: !(Maybe V1StatefulSetOrdinals) -- ^ "ordinals" - , v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy :: !(Maybe V1StatefulSetPersistentVolumeClaimRetentionPolicy) -- ^ "persistentVolumeClaimRetentionPolicy" - , v1StatefulSetSpecPodManagementPolicy :: !(Maybe Text) -- ^ "podManagementPolicy" - podManagementPolicy controls how pods are created during initial scale up, when replacing pods on nodes, or when scaling down. The default policy is `OrderedReady`, where pods are created in increasing order (pod-0, then pod-1, etc) and the controller will wait until each pod is ready before continuing. When scaling down, the pods are removed in the opposite order. The alternative policy is `Parallel` which will create pods in parallel to match the desired scale without waiting, and on scale down will delete all pods at once. - , v1StatefulSetSpecReplicas :: !(Maybe Int) -- ^ "replicas" - replicas is the desired number of replicas of the given Template. These are replicas in the sense that they are instantiations of the same Template, but individual replicas also have a consistent identity. If unspecified, defaults to 1. - , v1StatefulSetSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - revisionHistoryLimit is the maximum number of revisions that will be maintained in the StatefulSet's revision history. The revision history consists of all revisions not represented by a currently applied StatefulSetSpec version. The default value is 10. - , v1StatefulSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" - , v1StatefulSetSpecServiceName :: !(Text) -- ^ /Required/ "serviceName" - serviceName is the name of the service that governs this StatefulSet. This service must exist before the StatefulSet, and is responsible for the network identity of the set. Pods get DNS/hostnames that follow the pattern: pod-specific-string.serviceName.default.svc.cluster.local where \"pod-specific-string\" is managed by the StatefulSet controller. - , v1StatefulSetSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" - , v1StatefulSetSpecUpdateStrategy :: !(Maybe V1StatefulSetUpdateStrategy) -- ^ "updateStrategy" - , v1StatefulSetSpecVolumeClaimTemplates :: !(Maybe [V1PersistentVolumeClaim]) -- ^ "volumeClaimTemplates" - volumeClaimTemplates is a list of claims that pods are allowed to reference. The StatefulSet controller is responsible for mapping network identities to claims in a way that maintains the identity of a pod. Every claim in this list must have at least one matching (by name) volumeMount in one container in the template. A claim in this list takes precedence over any volumes in the template, with the same name. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetSpec -instance A.FromJSON V1StatefulSetSpec where - parseJSON = A.withObject "V1StatefulSetSpec" $ \o -> - V1StatefulSetSpec - <$> (o .:? "minReadySeconds") - <*> (o .:? "ordinals") - <*> (o .:? "persistentVolumeClaimRetentionPolicy") - <*> (o .:? "podManagementPolicy") - <*> (o .:? "replicas") - <*> (o .:? "revisionHistoryLimit") - <*> (o .: "selector") - <*> (o .: "serviceName") - <*> (o .: "template") - <*> (o .:? "updateStrategy") - <*> (o .:? "volumeClaimTemplates") - --- | ToJSON V1StatefulSetSpec -instance A.ToJSON V1StatefulSetSpec where - toJSON V1StatefulSetSpec {..} = - _omitNulls - [ "minReadySeconds" .= v1StatefulSetSpecMinReadySeconds - , "ordinals" .= v1StatefulSetSpecOrdinals - , "persistentVolumeClaimRetentionPolicy" .= v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy - , "podManagementPolicy" .= v1StatefulSetSpecPodManagementPolicy - , "replicas" .= v1StatefulSetSpecReplicas - , "revisionHistoryLimit" .= v1StatefulSetSpecRevisionHistoryLimit - , "selector" .= v1StatefulSetSpecSelector - , "serviceName" .= v1StatefulSetSpecServiceName - , "template" .= v1StatefulSetSpecTemplate - , "updateStrategy" .= v1StatefulSetSpecUpdateStrategy - , "volumeClaimTemplates" .= v1StatefulSetSpecVolumeClaimTemplates - ] - - --- | Construct a value of type 'V1StatefulSetSpec' (by applying it's required fields, if any) -mkV1StatefulSetSpec - :: V1LabelSelector -- ^ 'v1StatefulSetSpecSelector' - -> Text -- ^ 'v1StatefulSetSpecServiceName': serviceName is the name of the service that governs this StatefulSet. This service must exist before the StatefulSet, and is responsible for the network identity of the set. Pods get DNS/hostnames that follow the pattern: pod-specific-string.serviceName.default.svc.cluster.local where \"pod-specific-string\" is managed by the StatefulSet controller. - -> V1PodTemplateSpec -- ^ 'v1StatefulSetSpecTemplate' - -> V1StatefulSetSpec -mkV1StatefulSetSpec v1StatefulSetSpecSelector v1StatefulSetSpecServiceName v1StatefulSetSpecTemplate = - V1StatefulSetSpec - { v1StatefulSetSpecMinReadySeconds = Nothing - , v1StatefulSetSpecOrdinals = Nothing - , v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy = Nothing - , v1StatefulSetSpecPodManagementPolicy = Nothing - , v1StatefulSetSpecReplicas = Nothing - , v1StatefulSetSpecRevisionHistoryLimit = Nothing - , v1StatefulSetSpecSelector - , v1StatefulSetSpecServiceName - , v1StatefulSetSpecTemplate - , v1StatefulSetSpecUpdateStrategy = Nothing - , v1StatefulSetSpecVolumeClaimTemplates = Nothing - } - --- ** V1StatefulSetStatus --- | V1StatefulSetStatus --- StatefulSetStatus represents the current state of a StatefulSet. -data V1StatefulSetStatus = V1StatefulSetStatus - { v1StatefulSetStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - Total number of available pods (ready for at least minReadySeconds) targeted by this statefulset. - , v1StatefulSetStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - collisionCount is the count of hash collisions for the StatefulSet. The StatefulSet controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ControllerRevision. - , v1StatefulSetStatusConditions :: !(Maybe [V1StatefulSetCondition]) -- ^ "conditions" - Represents the latest available observations of a statefulset's current state. - , v1StatefulSetStatusCurrentReplicas :: !(Maybe Int) -- ^ "currentReplicas" - currentReplicas is the number of Pods created by the StatefulSet controller from the StatefulSet version indicated by currentRevision. - , v1StatefulSetStatusCurrentRevision :: !(Maybe Text) -- ^ "currentRevision" - currentRevision, if not empty, indicates the version of the StatefulSet used to generate Pods in the sequence [0,currentReplicas). - , v1StatefulSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration is the most recent generation observed for this StatefulSet. It corresponds to the StatefulSet's generation, which is updated on mutation by the API Server. - , v1StatefulSetStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods created for this StatefulSet with a Ready Condition. - , v1StatefulSetStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - replicas is the number of Pods created by the StatefulSet controller. - , v1StatefulSetStatusUpdateRevision :: !(Maybe Text) -- ^ "updateRevision" - updateRevision, if not empty, indicates the version of the StatefulSet used to generate Pods in the sequence [replicas-updatedReplicas,replicas) - , v1StatefulSetStatusUpdatedReplicas :: !(Maybe Int) -- ^ "updatedReplicas" - updatedReplicas is the number of Pods created by the StatefulSet controller from the StatefulSet version indicated by updateRevision. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetStatus -instance A.FromJSON V1StatefulSetStatus where - parseJSON = A.withObject "V1StatefulSetStatus" $ \o -> - V1StatefulSetStatus - <$> (o .:? "availableReplicas") - <*> (o .:? "collisionCount") - <*> (o .:? "conditions") - <*> (o .:? "currentReplicas") - <*> (o .:? "currentRevision") - <*> (o .:? "observedGeneration") - <*> (o .:? "readyReplicas") - <*> (o .: "replicas") - <*> (o .:? "updateRevision") - <*> (o .:? "updatedReplicas") - --- | ToJSON V1StatefulSetStatus -instance A.ToJSON V1StatefulSetStatus where - toJSON V1StatefulSetStatus {..} = - _omitNulls - [ "availableReplicas" .= v1StatefulSetStatusAvailableReplicas - , "collisionCount" .= v1StatefulSetStatusCollisionCount - , "conditions" .= v1StatefulSetStatusConditions - , "currentReplicas" .= v1StatefulSetStatusCurrentReplicas - , "currentRevision" .= v1StatefulSetStatusCurrentRevision - , "observedGeneration" .= v1StatefulSetStatusObservedGeneration - , "readyReplicas" .= v1StatefulSetStatusReadyReplicas - , "replicas" .= v1StatefulSetStatusReplicas - , "updateRevision" .= v1StatefulSetStatusUpdateRevision - , "updatedReplicas" .= v1StatefulSetStatusUpdatedReplicas - ] - - --- | Construct a value of type 'V1StatefulSetStatus' (by applying it's required fields, if any) -mkV1StatefulSetStatus - :: Int -- ^ 'v1StatefulSetStatusReplicas': replicas is the number of Pods created by the StatefulSet controller. - -> V1StatefulSetStatus -mkV1StatefulSetStatus v1StatefulSetStatusReplicas = - V1StatefulSetStatus - { v1StatefulSetStatusAvailableReplicas = Nothing - , v1StatefulSetStatusCollisionCount = Nothing - , v1StatefulSetStatusConditions = Nothing - , v1StatefulSetStatusCurrentReplicas = Nothing - , v1StatefulSetStatusCurrentRevision = Nothing - , v1StatefulSetStatusObservedGeneration = Nothing - , v1StatefulSetStatusReadyReplicas = Nothing - , v1StatefulSetStatusReplicas - , v1StatefulSetStatusUpdateRevision = Nothing - , v1StatefulSetStatusUpdatedReplicas = Nothing - } - --- ** V1StatefulSetUpdateStrategy --- | V1StatefulSetUpdateStrategy --- StatefulSetUpdateStrategy indicates the strategy that the StatefulSet controller will use to perform updates. It includes any additional parameters necessary to perform the update for the indicated strategy. -data V1StatefulSetUpdateStrategy = V1StatefulSetUpdateStrategy - { v1StatefulSetUpdateStrategyRollingUpdate :: !(Maybe V1RollingUpdateStatefulSetStrategy) -- ^ "rollingUpdate" - , v1StatefulSetUpdateStrategyType :: !(Maybe Text) -- ^ "type" - Type indicates the type of the StatefulSetUpdateStrategy. Default is RollingUpdate. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatefulSetUpdateStrategy -instance A.FromJSON V1StatefulSetUpdateStrategy where - parseJSON = A.withObject "V1StatefulSetUpdateStrategy" $ \o -> - V1StatefulSetUpdateStrategy - <$> (o .:? "rollingUpdate") - <*> (o .:? "type") - --- | ToJSON V1StatefulSetUpdateStrategy -instance A.ToJSON V1StatefulSetUpdateStrategy where - toJSON V1StatefulSetUpdateStrategy {..} = - _omitNulls - [ "rollingUpdate" .= v1StatefulSetUpdateStrategyRollingUpdate - , "type" .= v1StatefulSetUpdateStrategyType - ] - - --- | Construct a value of type 'V1StatefulSetUpdateStrategy' (by applying it's required fields, if any) -mkV1StatefulSetUpdateStrategy - :: V1StatefulSetUpdateStrategy -mkV1StatefulSetUpdateStrategy = - V1StatefulSetUpdateStrategy - { v1StatefulSetUpdateStrategyRollingUpdate = Nothing - , v1StatefulSetUpdateStrategyType = Nothing - } - --- ** V1Status --- | V1Status --- Status is a return value for calls that don't return other objects. -data V1Status = V1Status - { v1StatusApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1StatusCode :: !(Maybe Int) -- ^ "code" - Suggested HTTP return code for this status, 0 if not set. - , v1StatusDetails :: !(Maybe V1StatusDetails) -- ^ "details" - , v1StatusKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StatusMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the status of this operation. - , v1StatusMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - , v1StatusReason :: !(Maybe Text) -- ^ "reason" - A machine-readable description of why this operation is in the \"Failure\" status. If this value is empty there is no information available. A Reason clarifies an HTTP status code but does not override it. - , v1StatusStatus :: !(Maybe Text) -- ^ "status" - Status of the operation. One of: \"Success\" or \"Failure\". More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#spec-and-status - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Status -instance A.FromJSON V1Status where - parseJSON = A.withObject "V1Status" $ \o -> - V1Status - <$> (o .:? "apiVersion") - <*> (o .:? "code") - <*> (o .:? "details") - <*> (o .:? "kind") - <*> (o .:? "message") - <*> (o .:? "metadata") - <*> (o .:? "reason") - <*> (o .:? "status") - --- | ToJSON V1Status -instance A.ToJSON V1Status where - toJSON V1Status {..} = - _omitNulls - [ "apiVersion" .= v1StatusApiVersion - , "code" .= v1StatusCode - , "details" .= v1StatusDetails - , "kind" .= v1StatusKind - , "message" .= v1StatusMessage - , "metadata" .= v1StatusMetadata - , "reason" .= v1StatusReason - , "status" .= v1StatusStatus - ] - - --- | Construct a value of type 'V1Status' (by applying it's required fields, if any) -mkV1Status - :: V1Status -mkV1Status = - V1Status - { v1StatusApiVersion = Nothing - , v1StatusCode = Nothing - , v1StatusDetails = Nothing - , v1StatusKind = Nothing - , v1StatusMessage = Nothing - , v1StatusMetadata = Nothing - , v1StatusReason = Nothing - , v1StatusStatus = Nothing - } - --- ** V1StatusCause --- | V1StatusCause --- StatusCause provides more information about an api.Status failure, including cases when multiple errors are encountered. -data V1StatusCause = V1StatusCause - { v1StatusCauseField :: !(Maybe Text) -- ^ "field" - The field of the resource that has caused this error, as named by its JSON serialization. May include dot and postfix notation for nested attributes. Arrays are zero-indexed. Fields may appear more than once in an array of causes due to fields having multiple errors. Optional. Examples: \"name\" - the field \"name\" on the current resource \"items[0].name\" - the field \"name\" on the first array entry in \"items\" - , v1StatusCauseMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the cause of the error. This field may be presented as-is to a reader. - , v1StatusCauseReason :: !(Maybe Text) -- ^ "reason" - A machine-readable description of the cause of the error. If this value is empty there is no information available. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatusCause -instance A.FromJSON V1StatusCause where - parseJSON = A.withObject "V1StatusCause" $ \o -> - V1StatusCause - <$> (o .:? "field") - <*> (o .:? "message") - <*> (o .:? "reason") - --- | ToJSON V1StatusCause -instance A.ToJSON V1StatusCause where - toJSON V1StatusCause {..} = - _omitNulls - [ "field" .= v1StatusCauseField - , "message" .= v1StatusCauseMessage - , "reason" .= v1StatusCauseReason - ] - - --- | Construct a value of type 'V1StatusCause' (by applying it's required fields, if any) -mkV1StatusCause - :: V1StatusCause -mkV1StatusCause = - V1StatusCause - { v1StatusCauseField = Nothing - , v1StatusCauseMessage = Nothing - , v1StatusCauseReason = Nothing - } - --- ** V1StatusDetails --- | V1StatusDetails --- StatusDetails is a set of additional properties that MAY be set by the server to provide additional information about a response. The Reason field of a Status object defines what attributes will be set. Clients must ignore fields that do not match the defined type of each attribute, and should assume that any attribute may be empty, invalid, or under defined. -data V1StatusDetails = V1StatusDetails - { v1StatusDetailsCauses :: !(Maybe [V1StatusCause]) -- ^ "causes" - The Causes array includes more details associated with the StatusReason failure. Not all StatusReasons may provide detailed causes. - , v1StatusDetailsGroup :: !(Maybe Text) -- ^ "group" - The group attribute of the resource associated with the status StatusReason. - , v1StatusDetailsKind :: !(Maybe Text) -- ^ "kind" - The kind attribute of the resource associated with the status StatusReason. On some operations may differ from the requested resource Kind. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StatusDetailsName :: !(Maybe Text) -- ^ "name" - The name attribute of the resource associated with the status StatusReason (when there is a single name which can be described). - , v1StatusDetailsRetryAfterSeconds :: !(Maybe Int) -- ^ "retryAfterSeconds" - If specified, the time in seconds before the operation should be retried. Some errors may indicate the client must take an alternate action - for those errors this field may indicate how long to wait before taking the alternate action. - , v1StatusDetailsUid :: !(Maybe Text) -- ^ "uid" - UID of the resource. (when there is a single resource which can be described). More info: http://kubernetes.io/docs/user-guide/identifiers#uids - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StatusDetails -instance A.FromJSON V1StatusDetails where - parseJSON = A.withObject "V1StatusDetails" $ \o -> - V1StatusDetails - <$> (o .:? "causes") - <*> (o .:? "group") - <*> (o .:? "kind") - <*> (o .:? "name") - <*> (o .:? "retryAfterSeconds") - <*> (o .:? "uid") - --- | ToJSON V1StatusDetails -instance A.ToJSON V1StatusDetails where - toJSON V1StatusDetails {..} = - _omitNulls - [ "causes" .= v1StatusDetailsCauses - , "group" .= v1StatusDetailsGroup - , "kind" .= v1StatusDetailsKind - , "name" .= v1StatusDetailsName - , "retryAfterSeconds" .= v1StatusDetailsRetryAfterSeconds - , "uid" .= v1StatusDetailsUid - ] - - --- | Construct a value of type 'V1StatusDetails' (by applying it's required fields, if any) -mkV1StatusDetails - :: V1StatusDetails -mkV1StatusDetails = - V1StatusDetails - { v1StatusDetailsCauses = Nothing - , v1StatusDetailsGroup = Nothing - , v1StatusDetailsKind = Nothing - , v1StatusDetailsName = Nothing - , v1StatusDetailsRetryAfterSeconds = Nothing - , v1StatusDetailsUid = Nothing - } - --- ** V1StorageClass --- | V1StorageClass --- StorageClass describes the parameters for a class of storage for which PersistentVolumes can be dynamically provisioned. StorageClasses are non-namespaced; the name of the storage class according to etcd is in ObjectMeta.Name. -data V1StorageClass = V1StorageClass - { v1StorageClassAllowVolumeExpansion :: !(Maybe Bool) -- ^ "allowVolumeExpansion" - AllowVolumeExpansion shows whether the storage class allow volume expand - , v1StorageClassAllowedTopologies :: !(Maybe [V1TopologySelectorTerm]) -- ^ "allowedTopologies" - Restrict the node topologies where volumes can be dynamically provisioned. Each volume plugin defines its own supported topology specifications. An empty TopologySelectorTerm list means there is no topology restriction. This field is only honored by servers that enable the VolumeScheduling feature. - , v1StorageClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1StorageClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StorageClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1StorageClassMountOptions :: !(Maybe [Text]) -- ^ "mountOptions" - Dynamically provisioned PersistentVolumes of this storage class are created with these mountOptions, e.g. [\"ro\", \"soft\"]. Not validated - mount of the PVs will simply fail if one is invalid. - , v1StorageClassParameters :: !(Maybe (Map.Map String Text)) -- ^ "parameters" - Parameters holds the parameters for the provisioner that should create volumes of this storage class. - , v1StorageClassProvisioner :: !(Text) -- ^ /Required/ "provisioner" - Provisioner indicates the type of the provisioner. - , v1StorageClassReclaimPolicy :: !(Maybe Text) -- ^ "reclaimPolicy" - Dynamically provisioned PersistentVolumes of this storage class are created with this reclaimPolicy. Defaults to Delete. - , v1StorageClassVolumeBindingMode :: !(Maybe Text) -- ^ "volumeBindingMode" - VolumeBindingMode indicates how PersistentVolumeClaims should be provisioned and bound. When unset, VolumeBindingImmediate is used. This field is only honored by servers that enable the VolumeScheduling feature. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StorageClass -instance A.FromJSON V1StorageClass where - parseJSON = A.withObject "V1StorageClass" $ \o -> - V1StorageClass - <$> (o .:? "allowVolumeExpansion") - <*> (o .:? "allowedTopologies") - <*> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "mountOptions") - <*> (o .:? "parameters") - <*> (o .: "provisioner") - <*> (o .:? "reclaimPolicy") - <*> (o .:? "volumeBindingMode") - --- | ToJSON V1StorageClass -instance A.ToJSON V1StorageClass where - toJSON V1StorageClass {..} = - _omitNulls - [ "allowVolumeExpansion" .= v1StorageClassAllowVolumeExpansion - , "allowedTopologies" .= v1StorageClassAllowedTopologies - , "apiVersion" .= v1StorageClassApiVersion - , "kind" .= v1StorageClassKind - , "metadata" .= v1StorageClassMetadata - , "mountOptions" .= v1StorageClassMountOptions - , "parameters" .= v1StorageClassParameters - , "provisioner" .= v1StorageClassProvisioner - , "reclaimPolicy" .= v1StorageClassReclaimPolicy - , "volumeBindingMode" .= v1StorageClassVolumeBindingMode - ] - - --- | Construct a value of type 'V1StorageClass' (by applying it's required fields, if any) -mkV1StorageClass - :: Text -- ^ 'v1StorageClassProvisioner': Provisioner indicates the type of the provisioner. - -> V1StorageClass -mkV1StorageClass v1StorageClassProvisioner = - V1StorageClass - { v1StorageClassAllowVolumeExpansion = Nothing - , v1StorageClassAllowedTopologies = Nothing - , v1StorageClassApiVersion = Nothing - , v1StorageClassKind = Nothing - , v1StorageClassMetadata = Nothing - , v1StorageClassMountOptions = Nothing - , v1StorageClassParameters = Nothing - , v1StorageClassProvisioner - , v1StorageClassReclaimPolicy = Nothing - , v1StorageClassVolumeBindingMode = Nothing - } - --- ** V1StorageClassList --- | V1StorageClassList --- StorageClassList is a collection of storage classes. -data V1StorageClassList = V1StorageClassList - { v1StorageClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1StorageClassListItems :: !([V1StorageClass]) -- ^ /Required/ "items" - Items is the list of StorageClasses - , v1StorageClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1StorageClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StorageClassList -instance A.FromJSON V1StorageClassList where - parseJSON = A.withObject "V1StorageClassList" $ \o -> - V1StorageClassList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1StorageClassList -instance A.ToJSON V1StorageClassList where - toJSON V1StorageClassList {..} = - _omitNulls - [ "apiVersion" .= v1StorageClassListApiVersion - , "items" .= v1StorageClassListItems - , "kind" .= v1StorageClassListKind - , "metadata" .= v1StorageClassListMetadata - ] - - --- | Construct a value of type 'V1StorageClassList' (by applying it's required fields, if any) -mkV1StorageClassList - :: [V1StorageClass] -- ^ 'v1StorageClassListItems': Items is the list of StorageClasses - -> V1StorageClassList -mkV1StorageClassList v1StorageClassListItems = - V1StorageClassList - { v1StorageClassListApiVersion = Nothing - , v1StorageClassListItems - , v1StorageClassListKind = Nothing - , v1StorageClassListMetadata = Nothing - } - --- ** V1StorageOSPersistentVolumeSource --- | V1StorageOSPersistentVolumeSource --- Represents a StorageOS persistent volume resource. -data V1StorageOSPersistentVolumeSource = V1StorageOSPersistentVolumeSource - { v1StorageOSPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1StorageOSPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1StorageOSPersistentVolumeSourceSecretRef :: !(Maybe V1ObjectReference) -- ^ "secretRef" - , v1StorageOSPersistentVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the human-readable name of the StorageOS volume. Volume names are only unique within a namespace. - , v1StorageOSPersistentVolumeSourceVolumeNamespace :: !(Maybe Text) -- ^ "volumeNamespace" - volumeNamespace specifies the scope of the volume within StorageOS. If no namespace is specified then the Pod's namespace will be used. This allows the Kubernetes name scoping to be mirrored within StorageOS for tighter integration. Set VolumeName to any name to override the default behaviour. Set to \"default\" if you are not using namespaces within StorageOS. Namespaces that do not pre-exist within StorageOS will be created. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StorageOSPersistentVolumeSource -instance A.FromJSON V1StorageOSPersistentVolumeSource where - parseJSON = A.withObject "V1StorageOSPersistentVolumeSource" $ \o -> - V1StorageOSPersistentVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .:? "volumeName") - <*> (o .:? "volumeNamespace") - --- | ToJSON V1StorageOSPersistentVolumeSource -instance A.ToJSON V1StorageOSPersistentVolumeSource where - toJSON V1StorageOSPersistentVolumeSource {..} = - _omitNulls - [ "fsType" .= v1StorageOSPersistentVolumeSourceFsType - , "readOnly" .= v1StorageOSPersistentVolumeSourceReadOnly - , "secretRef" .= v1StorageOSPersistentVolumeSourceSecretRef - , "volumeName" .= v1StorageOSPersistentVolumeSourceVolumeName - , "volumeNamespace" .= v1StorageOSPersistentVolumeSourceVolumeNamespace - ] - - --- | Construct a value of type 'V1StorageOSPersistentVolumeSource' (by applying it's required fields, if any) -mkV1StorageOSPersistentVolumeSource - :: V1StorageOSPersistentVolumeSource -mkV1StorageOSPersistentVolumeSource = - V1StorageOSPersistentVolumeSource - { v1StorageOSPersistentVolumeSourceFsType = Nothing - , v1StorageOSPersistentVolumeSourceReadOnly = Nothing - , v1StorageOSPersistentVolumeSourceSecretRef = Nothing - , v1StorageOSPersistentVolumeSourceVolumeName = Nothing - , v1StorageOSPersistentVolumeSourceVolumeNamespace = Nothing - } - --- ** V1StorageOSVolumeSource --- | V1StorageOSVolumeSource --- Represents a StorageOS persistent volume resource. -data V1StorageOSVolumeSource = V1StorageOSVolumeSource - { v1StorageOSVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1StorageOSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. - , v1StorageOSVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" - , v1StorageOSVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the human-readable name of the StorageOS volume. Volume names are only unique within a namespace. - , v1StorageOSVolumeSourceVolumeNamespace :: !(Maybe Text) -- ^ "volumeNamespace" - volumeNamespace specifies the scope of the volume within StorageOS. If no namespace is specified then the Pod's namespace will be used. This allows the Kubernetes name scoping to be mirrored within StorageOS for tighter integration. Set VolumeName to any name to override the default behaviour. Set to \"default\" if you are not using namespaces within StorageOS. Namespaces that do not pre-exist within StorageOS will be created. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1StorageOSVolumeSource -instance A.FromJSON V1StorageOSVolumeSource where - parseJSON = A.withObject "V1StorageOSVolumeSource" $ \o -> - V1StorageOSVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "readOnly") - <*> (o .:? "secretRef") - <*> (o .:? "volumeName") - <*> (o .:? "volumeNamespace") - --- | ToJSON V1StorageOSVolumeSource -instance A.ToJSON V1StorageOSVolumeSource where - toJSON V1StorageOSVolumeSource {..} = - _omitNulls - [ "fsType" .= v1StorageOSVolumeSourceFsType - , "readOnly" .= v1StorageOSVolumeSourceReadOnly - , "secretRef" .= v1StorageOSVolumeSourceSecretRef - , "volumeName" .= v1StorageOSVolumeSourceVolumeName - , "volumeNamespace" .= v1StorageOSVolumeSourceVolumeNamespace - ] - - --- | Construct a value of type 'V1StorageOSVolumeSource' (by applying it's required fields, if any) -mkV1StorageOSVolumeSource - :: V1StorageOSVolumeSource -mkV1StorageOSVolumeSource = - V1StorageOSVolumeSource - { v1StorageOSVolumeSourceFsType = Nothing - , v1StorageOSVolumeSourceReadOnly = Nothing - , v1StorageOSVolumeSourceSecretRef = Nothing - , v1StorageOSVolumeSourceVolumeName = Nothing - , v1StorageOSVolumeSourceVolumeNamespace = Nothing - } - --- ** V1Subject --- | V1Subject --- Subject contains a reference to the object or user identities a role binding applies to. This can either hold a direct API object reference, or a value for non-objects such as user and group names. -data V1Subject = V1Subject - { v1SubjectApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup holds the API group of the referenced subject. Defaults to \"\" for ServiceAccount subjects. Defaults to \"rbac.authorization.k8s.io\" for User and Group subjects. - , v1SubjectKind :: !(Text) -- ^ /Required/ "kind" - Kind of object being referenced. Values defined by this API group are \"User\", \"Group\", and \"ServiceAccount\". If the Authorizer does not recognized the kind value, the Authorizer should report an error. - , v1SubjectName :: !(Text) -- ^ /Required/ "name" - Name of the object being referenced. - , v1SubjectNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referenced object. If the object kind is non-namespace, such as \"User\" or \"Group\", and this value is not empty the Authorizer should report an error. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Subject -instance A.FromJSON V1Subject where - parseJSON = A.withObject "V1Subject" $ \o -> - V1Subject - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .:? "namespace") - --- | ToJSON V1Subject -instance A.ToJSON V1Subject where - toJSON V1Subject {..} = - _omitNulls - [ "apiGroup" .= v1SubjectApiGroup - , "kind" .= v1SubjectKind - , "name" .= v1SubjectName - , "namespace" .= v1SubjectNamespace - ] - - --- | Construct a value of type 'V1Subject' (by applying it's required fields, if any) -mkV1Subject - :: Text -- ^ 'v1SubjectKind': Kind of object being referenced. Values defined by this API group are \"User\", \"Group\", and \"ServiceAccount\". If the Authorizer does not recognized the kind value, the Authorizer should report an error. - -> Text -- ^ 'v1SubjectName': Name of the object being referenced. - -> V1Subject -mkV1Subject v1SubjectKind v1SubjectName = - V1Subject - { v1SubjectApiGroup = Nothing - , v1SubjectKind - , v1SubjectName - , v1SubjectNamespace = Nothing - } - --- ** V1SubjectAccessReview --- | V1SubjectAccessReview --- SubjectAccessReview checks whether or not a user or group can perform an action. -data V1SubjectAccessReview = V1SubjectAccessReview - { v1SubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1SubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1SubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1SubjectAccessReviewSpec :: !(V1SubjectAccessReviewSpec) -- ^ /Required/ "spec" - , v1SubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SubjectAccessReview -instance A.FromJSON V1SubjectAccessReview where - parseJSON = A.withObject "V1SubjectAccessReview" $ \o -> - V1SubjectAccessReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1SubjectAccessReview -instance A.ToJSON V1SubjectAccessReview where - toJSON V1SubjectAccessReview {..} = - _omitNulls - [ "apiVersion" .= v1SubjectAccessReviewApiVersion - , "kind" .= v1SubjectAccessReviewKind - , "metadata" .= v1SubjectAccessReviewMetadata - , "spec" .= v1SubjectAccessReviewSpec - , "status" .= v1SubjectAccessReviewStatus - ] - - --- | Construct a value of type 'V1SubjectAccessReview' (by applying it's required fields, if any) -mkV1SubjectAccessReview - :: V1SubjectAccessReviewSpec -- ^ 'v1SubjectAccessReviewSpec' - -> V1SubjectAccessReview -mkV1SubjectAccessReview v1SubjectAccessReviewSpec = - V1SubjectAccessReview - { v1SubjectAccessReviewApiVersion = Nothing - , v1SubjectAccessReviewKind = Nothing - , v1SubjectAccessReviewMetadata = Nothing - , v1SubjectAccessReviewSpec - , v1SubjectAccessReviewStatus = Nothing - } - --- ** V1SubjectAccessReviewSpec --- | V1SubjectAccessReviewSpec --- SubjectAccessReviewSpec is a description of the access request. Exactly one of ResourceAuthorizationAttributes and NonResourceAuthorizationAttributes must be set -data V1SubjectAccessReviewSpec = V1SubjectAccessReviewSpec - { v1SubjectAccessReviewSpecExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - Extra corresponds to the user.Info.GetExtra() method from the authenticator. Since that is input to the authorizer it needs a reflection here. - , v1SubjectAccessReviewSpecGroups :: !(Maybe [Text]) -- ^ "groups" - Groups is the groups you're testing for. - , v1SubjectAccessReviewSpecNonResourceAttributes :: !(Maybe V1NonResourceAttributes) -- ^ "nonResourceAttributes" - , v1SubjectAccessReviewSpecResourceAttributes :: !(Maybe V1ResourceAttributes) -- ^ "resourceAttributes" - , v1SubjectAccessReviewSpecUid :: !(Maybe Text) -- ^ "uid" - UID information about the requesting user. - , v1SubjectAccessReviewSpecUser :: !(Maybe Text) -- ^ "user" - User is the user you're testing for. If you specify \"User\" but not \"Groups\", then is it interpreted as \"What if User were not a member of any groups - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SubjectAccessReviewSpec -instance A.FromJSON V1SubjectAccessReviewSpec where - parseJSON = A.withObject "V1SubjectAccessReviewSpec" $ \o -> - V1SubjectAccessReviewSpec - <$> (o .:? "extra") - <*> (o .:? "groups") - <*> (o .:? "nonResourceAttributes") - <*> (o .:? "resourceAttributes") - <*> (o .:? "uid") - <*> (o .:? "user") - --- | ToJSON V1SubjectAccessReviewSpec -instance A.ToJSON V1SubjectAccessReviewSpec where - toJSON V1SubjectAccessReviewSpec {..} = - _omitNulls - [ "extra" .= v1SubjectAccessReviewSpecExtra - , "groups" .= v1SubjectAccessReviewSpecGroups - , "nonResourceAttributes" .= v1SubjectAccessReviewSpecNonResourceAttributes - , "resourceAttributes" .= v1SubjectAccessReviewSpecResourceAttributes - , "uid" .= v1SubjectAccessReviewSpecUid - , "user" .= v1SubjectAccessReviewSpecUser - ] - - --- | Construct a value of type 'V1SubjectAccessReviewSpec' (by applying it's required fields, if any) -mkV1SubjectAccessReviewSpec - :: V1SubjectAccessReviewSpec -mkV1SubjectAccessReviewSpec = - V1SubjectAccessReviewSpec - { v1SubjectAccessReviewSpecExtra = Nothing - , v1SubjectAccessReviewSpecGroups = Nothing - , v1SubjectAccessReviewSpecNonResourceAttributes = Nothing - , v1SubjectAccessReviewSpecResourceAttributes = Nothing - , v1SubjectAccessReviewSpecUid = Nothing - , v1SubjectAccessReviewSpecUser = Nothing - } - --- ** V1SubjectAccessReviewStatus --- | V1SubjectAccessReviewStatus --- SubjectAccessReviewStatus -data V1SubjectAccessReviewStatus = V1SubjectAccessReviewStatus - { v1SubjectAccessReviewStatusAllowed :: !(Bool) -- ^ /Required/ "allowed" - Allowed is required. True if the action would be allowed, false otherwise. - , v1SubjectAccessReviewStatusDenied :: !(Maybe Bool) -- ^ "denied" - Denied is optional. True if the action would be denied, otherwise false. If both allowed is false and denied is false, then the authorizer has no opinion on whether to authorize the action. Denied may not be true if Allowed is true. - , v1SubjectAccessReviewStatusEvaluationError :: !(Maybe Text) -- ^ "evaluationError" - EvaluationError is an indication that some error occurred during the authorization check. It is entirely possible to get an error and be able to continue determine authorization status in spite of it. For instance, RBAC can be missing a role, but enough roles are still present and bound to reason about the request. - , v1SubjectAccessReviewStatusReason :: !(Maybe Text) -- ^ "reason" - Reason is optional. It indicates why a request was allowed or denied. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SubjectAccessReviewStatus -instance A.FromJSON V1SubjectAccessReviewStatus where - parseJSON = A.withObject "V1SubjectAccessReviewStatus" $ \o -> - V1SubjectAccessReviewStatus - <$> (o .: "allowed") - <*> (o .:? "denied") - <*> (o .:? "evaluationError") - <*> (o .:? "reason") - --- | ToJSON V1SubjectAccessReviewStatus -instance A.ToJSON V1SubjectAccessReviewStatus where - toJSON V1SubjectAccessReviewStatus {..} = - _omitNulls - [ "allowed" .= v1SubjectAccessReviewStatusAllowed - , "denied" .= v1SubjectAccessReviewStatusDenied - , "evaluationError" .= v1SubjectAccessReviewStatusEvaluationError - , "reason" .= v1SubjectAccessReviewStatusReason - ] - - --- | Construct a value of type 'V1SubjectAccessReviewStatus' (by applying it's required fields, if any) -mkV1SubjectAccessReviewStatus - :: Bool -- ^ 'v1SubjectAccessReviewStatusAllowed': Allowed is required. True if the action would be allowed, false otherwise. - -> V1SubjectAccessReviewStatus -mkV1SubjectAccessReviewStatus v1SubjectAccessReviewStatusAllowed = - V1SubjectAccessReviewStatus - { v1SubjectAccessReviewStatusAllowed - , v1SubjectAccessReviewStatusDenied = Nothing - , v1SubjectAccessReviewStatusEvaluationError = Nothing - , v1SubjectAccessReviewStatusReason = Nothing - } - --- ** V1SubjectRulesReviewStatus --- | V1SubjectRulesReviewStatus --- SubjectRulesReviewStatus contains the result of a rules check. This check can be incomplete depending on the set of authorizers the server is configured with and any errors experienced during evaluation. Because authorization rules are additive, if a rule appears in a list it's safe to assume the subject has that permission, even if that list is incomplete. -data V1SubjectRulesReviewStatus = V1SubjectRulesReviewStatus - { v1SubjectRulesReviewStatusEvaluationError :: !(Maybe Text) -- ^ "evaluationError" - EvaluationError can appear in combination with Rules. It indicates an error occurred during rule evaluation, such as an authorizer that doesn't support rule evaluation, and that ResourceRules and/or NonResourceRules may be incomplete. - , v1SubjectRulesReviewStatusIncomplete :: !(Bool) -- ^ /Required/ "incomplete" - Incomplete is true when the rules returned by this call are incomplete. This is most commonly encountered when an authorizer, such as an external authorizer, doesn't support rules evaluation. - , v1SubjectRulesReviewStatusNonResourceRules :: !([V1NonResourceRule]) -- ^ /Required/ "nonResourceRules" - NonResourceRules is the list of actions the subject is allowed to perform on non-resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. - , v1SubjectRulesReviewStatusResourceRules :: !([V1ResourceRule]) -- ^ /Required/ "resourceRules" - ResourceRules is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1SubjectRulesReviewStatus -instance A.FromJSON V1SubjectRulesReviewStatus where - parseJSON = A.withObject "V1SubjectRulesReviewStatus" $ \o -> - V1SubjectRulesReviewStatus - <$> (o .:? "evaluationError") - <*> (o .: "incomplete") - <*> (o .: "nonResourceRules") - <*> (o .: "resourceRules") - --- | ToJSON V1SubjectRulesReviewStatus -instance A.ToJSON V1SubjectRulesReviewStatus where - toJSON V1SubjectRulesReviewStatus {..} = - _omitNulls - [ "evaluationError" .= v1SubjectRulesReviewStatusEvaluationError - , "incomplete" .= v1SubjectRulesReviewStatusIncomplete - , "nonResourceRules" .= v1SubjectRulesReviewStatusNonResourceRules - , "resourceRules" .= v1SubjectRulesReviewStatusResourceRules - ] - - --- | Construct a value of type 'V1SubjectRulesReviewStatus' (by applying it's required fields, if any) -mkV1SubjectRulesReviewStatus - :: Bool -- ^ 'v1SubjectRulesReviewStatusIncomplete': Incomplete is true when the rules returned by this call are incomplete. This is most commonly encountered when an authorizer, such as an external authorizer, doesn't support rules evaluation. - -> [V1NonResourceRule] -- ^ 'v1SubjectRulesReviewStatusNonResourceRules': NonResourceRules is the list of actions the subject is allowed to perform on non-resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. - -> [V1ResourceRule] -- ^ 'v1SubjectRulesReviewStatusResourceRules': ResourceRules is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. - -> V1SubjectRulesReviewStatus -mkV1SubjectRulesReviewStatus v1SubjectRulesReviewStatusIncomplete v1SubjectRulesReviewStatusNonResourceRules v1SubjectRulesReviewStatusResourceRules = - V1SubjectRulesReviewStatus - { v1SubjectRulesReviewStatusEvaluationError = Nothing - , v1SubjectRulesReviewStatusIncomplete - , v1SubjectRulesReviewStatusNonResourceRules - , v1SubjectRulesReviewStatusResourceRules - } - --- ** V1Sysctl --- | V1Sysctl --- Sysctl defines a kernel parameter to be set -data V1Sysctl = V1Sysctl - { v1SysctlName :: !(Text) -- ^ /Required/ "name" - Name of a property to set - , v1SysctlValue :: !(Text) -- ^ /Required/ "value" - Value of a property to set - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Sysctl -instance A.FromJSON V1Sysctl where - parseJSON = A.withObject "V1Sysctl" $ \o -> - V1Sysctl - <$> (o .: "name") - <*> (o .: "value") - --- | ToJSON V1Sysctl -instance A.ToJSON V1Sysctl where - toJSON V1Sysctl {..} = - _omitNulls - [ "name" .= v1SysctlName - , "value" .= v1SysctlValue - ] - - --- | Construct a value of type 'V1Sysctl' (by applying it's required fields, if any) -mkV1Sysctl - :: Text -- ^ 'v1SysctlName': Name of a property to set - -> Text -- ^ 'v1SysctlValue': Value of a property to set - -> V1Sysctl -mkV1Sysctl v1SysctlName v1SysctlValue = - V1Sysctl - { v1SysctlName - , v1SysctlValue - } - --- ** V1TCPSocketAction --- | V1TCPSocketAction --- TCPSocketAction describes an action based on opening a socket -data V1TCPSocketAction = V1TCPSocketAction - { v1TCPSocketActionHost :: !(Maybe Text) -- ^ "host" - Optional: Host name to connect to, defaults to the pod IP. - , v1TCPSocketActionPort :: !(IntOrString) -- ^ /Required/ "port" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TCPSocketAction -instance A.FromJSON V1TCPSocketAction where - parseJSON = A.withObject "V1TCPSocketAction" $ \o -> - V1TCPSocketAction - <$> (o .:? "host") - <*> (o .: "port") - --- | ToJSON V1TCPSocketAction -instance A.ToJSON V1TCPSocketAction where - toJSON V1TCPSocketAction {..} = - _omitNulls - [ "host" .= v1TCPSocketActionHost - , "port" .= v1TCPSocketActionPort - ] - - --- | Construct a value of type 'V1TCPSocketAction' (by applying it's required fields, if any) -mkV1TCPSocketAction - :: IntOrString -- ^ 'v1TCPSocketActionPort' - -> V1TCPSocketAction -mkV1TCPSocketAction v1TCPSocketActionPort = - V1TCPSocketAction - { v1TCPSocketActionHost = Nothing - , v1TCPSocketActionPort - } - --- ** V1Taint --- | V1Taint --- The node this Taint is attached to has the \"effect\" on any pod that does not tolerate the Taint. -data V1Taint = V1Taint - { v1TaintEffect :: !(Text) -- ^ /Required/ "effect" - Required. The effect of the taint on pods that do not tolerate the taint. Valid effects are NoSchedule, PreferNoSchedule and NoExecute. - , v1TaintKey :: !(Text) -- ^ /Required/ "key" - Required. The taint key to be applied to a node. - , v1TaintTimeAdded :: !(Maybe DateTime) -- ^ "timeAdded" - TimeAdded represents the time at which the taint was added. It is only written for NoExecute taints. - , v1TaintValue :: !(Maybe Text) -- ^ "value" - The taint value corresponding to the taint key. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Taint -instance A.FromJSON V1Taint where - parseJSON = A.withObject "V1Taint" $ \o -> - V1Taint - <$> (o .: "effect") - <*> (o .: "key") - <*> (o .:? "timeAdded") - <*> (o .:? "value") - --- | ToJSON V1Taint -instance A.ToJSON V1Taint where - toJSON V1Taint {..} = - _omitNulls - [ "effect" .= v1TaintEffect - , "key" .= v1TaintKey - , "timeAdded" .= v1TaintTimeAdded - , "value" .= v1TaintValue - ] - - --- | Construct a value of type 'V1Taint' (by applying it's required fields, if any) -mkV1Taint - :: Text -- ^ 'v1TaintEffect': Required. The effect of the taint on pods that do not tolerate the taint. Valid effects are NoSchedule, PreferNoSchedule and NoExecute. - -> Text -- ^ 'v1TaintKey': Required. The taint key to be applied to a node. - -> V1Taint -mkV1Taint v1TaintEffect v1TaintKey = - V1Taint - { v1TaintEffect - , v1TaintKey - , v1TaintTimeAdded = Nothing - , v1TaintValue = Nothing - } - --- ** V1TokenRequestSpec --- | V1TokenRequestSpec --- TokenRequestSpec contains client provided parameters of a token request. -data V1TokenRequestSpec = V1TokenRequestSpec - { v1TokenRequestSpecAudiences :: !([Text]) -- ^ /Required/ "audiences" - Audiences are the intendend audiences of the token. A recipient of a token must identify themself with an identifier in the list of audiences of the token, and otherwise should reject the token. A token issued for multiple audiences may be used to authenticate against any of the audiences listed but implies a high degree of trust between the target audiences. - , v1TokenRequestSpecBoundObjectRef :: !(Maybe V1BoundObjectReference) -- ^ "boundObjectRef" - , v1TokenRequestSpecExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - ExpirationSeconds is the requested duration of validity of the request. The token issuer may return a token with a different validity duration so a client needs to check the 'expiration' field in a response. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TokenRequestSpec -instance A.FromJSON V1TokenRequestSpec where - parseJSON = A.withObject "V1TokenRequestSpec" $ \o -> - V1TokenRequestSpec - <$> (o .: "audiences") - <*> (o .:? "boundObjectRef") - <*> (o .:? "expirationSeconds") - --- | ToJSON V1TokenRequestSpec -instance A.ToJSON V1TokenRequestSpec where - toJSON V1TokenRequestSpec {..} = - _omitNulls - [ "audiences" .= v1TokenRequestSpecAudiences - , "boundObjectRef" .= v1TokenRequestSpecBoundObjectRef - , "expirationSeconds" .= v1TokenRequestSpecExpirationSeconds - ] - - --- | Construct a value of type 'V1TokenRequestSpec' (by applying it's required fields, if any) -mkV1TokenRequestSpec - :: [Text] -- ^ 'v1TokenRequestSpecAudiences': Audiences are the intendend audiences of the token. A recipient of a token must identify themself with an identifier in the list of audiences of the token, and otherwise should reject the token. A token issued for multiple audiences may be used to authenticate against any of the audiences listed but implies a high degree of trust between the target audiences. - -> V1TokenRequestSpec -mkV1TokenRequestSpec v1TokenRequestSpecAudiences = - V1TokenRequestSpec - { v1TokenRequestSpecAudiences - , v1TokenRequestSpecBoundObjectRef = Nothing - , v1TokenRequestSpecExpirationSeconds = Nothing - } - --- ** V1TokenRequestStatus --- | V1TokenRequestStatus --- TokenRequestStatus is the result of a token request. -data V1TokenRequestStatus = V1TokenRequestStatus - { v1TokenRequestStatusExpirationTimestamp :: !(DateTime) -- ^ /Required/ "expirationTimestamp" - ExpirationTimestamp is the time of expiration of the returned token. - , v1TokenRequestStatusToken :: !(Text) -- ^ /Required/ "token" - Token is the opaque bearer token. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TokenRequestStatus -instance A.FromJSON V1TokenRequestStatus where - parseJSON = A.withObject "V1TokenRequestStatus" $ \o -> - V1TokenRequestStatus - <$> (o .: "expirationTimestamp") - <*> (o .: "token") - --- | ToJSON V1TokenRequestStatus -instance A.ToJSON V1TokenRequestStatus where - toJSON V1TokenRequestStatus {..} = - _omitNulls - [ "expirationTimestamp" .= v1TokenRequestStatusExpirationTimestamp - , "token" .= v1TokenRequestStatusToken - ] - - --- | Construct a value of type 'V1TokenRequestStatus' (by applying it's required fields, if any) -mkV1TokenRequestStatus - :: DateTime -- ^ 'v1TokenRequestStatusExpirationTimestamp': ExpirationTimestamp is the time of expiration of the returned token. - -> Text -- ^ 'v1TokenRequestStatusToken': Token is the opaque bearer token. - -> V1TokenRequestStatus -mkV1TokenRequestStatus v1TokenRequestStatusExpirationTimestamp v1TokenRequestStatusToken = - V1TokenRequestStatus - { v1TokenRequestStatusExpirationTimestamp - , v1TokenRequestStatusToken - } - --- ** V1TokenReview --- | V1TokenReview --- TokenReview attempts to authenticate a token to a known user. Note: TokenReview requests may be cached by the webhook token authenticator plugin in the kube-apiserver. -data V1TokenReview = V1TokenReview - { v1TokenReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1TokenReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1TokenReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1TokenReviewSpec :: !(V1TokenReviewSpec) -- ^ /Required/ "spec" - , v1TokenReviewStatus :: !(Maybe V1TokenReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TokenReview -instance A.FromJSON V1TokenReview where - parseJSON = A.withObject "V1TokenReview" $ \o -> - V1TokenReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1TokenReview -instance A.ToJSON V1TokenReview where - toJSON V1TokenReview {..} = - _omitNulls - [ "apiVersion" .= v1TokenReviewApiVersion - , "kind" .= v1TokenReviewKind - , "metadata" .= v1TokenReviewMetadata - , "spec" .= v1TokenReviewSpec - , "status" .= v1TokenReviewStatus - ] - - --- | Construct a value of type 'V1TokenReview' (by applying it's required fields, if any) -mkV1TokenReview - :: V1TokenReviewSpec -- ^ 'v1TokenReviewSpec' - -> V1TokenReview -mkV1TokenReview v1TokenReviewSpec = - V1TokenReview - { v1TokenReviewApiVersion = Nothing - , v1TokenReviewKind = Nothing - , v1TokenReviewMetadata = Nothing - , v1TokenReviewSpec - , v1TokenReviewStatus = Nothing - } - --- ** V1TokenReviewSpec --- | V1TokenReviewSpec --- TokenReviewSpec is a description of the token authentication request. -data V1TokenReviewSpec = V1TokenReviewSpec - { v1TokenReviewSpecAudiences :: !(Maybe [Text]) -- ^ "audiences" - Audiences is a list of the identifiers that the resource server presented with the token identifies as. Audience-aware token authenticators will verify that the token was intended for at least one of the audiences in this list. If no audiences are provided, the audience will default to the audience of the Kubernetes apiserver. - , v1TokenReviewSpecToken :: !(Maybe Text) -- ^ "token" - Token is the opaque bearer token. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TokenReviewSpec -instance A.FromJSON V1TokenReviewSpec where - parseJSON = A.withObject "V1TokenReviewSpec" $ \o -> - V1TokenReviewSpec - <$> (o .:? "audiences") - <*> (o .:? "token") - --- | ToJSON V1TokenReviewSpec -instance A.ToJSON V1TokenReviewSpec where - toJSON V1TokenReviewSpec {..} = - _omitNulls - [ "audiences" .= v1TokenReviewSpecAudiences - , "token" .= v1TokenReviewSpecToken - ] - - --- | Construct a value of type 'V1TokenReviewSpec' (by applying it's required fields, if any) -mkV1TokenReviewSpec - :: V1TokenReviewSpec -mkV1TokenReviewSpec = - V1TokenReviewSpec - { v1TokenReviewSpecAudiences = Nothing - , v1TokenReviewSpecToken = Nothing - } - --- ** V1TokenReviewStatus --- | V1TokenReviewStatus --- TokenReviewStatus is the result of the token authentication request. -data V1TokenReviewStatus = V1TokenReviewStatus - { v1TokenReviewStatusAudiences :: !(Maybe [Text]) -- ^ "audiences" - Audiences are audience identifiers chosen by the authenticator that are compatible with both the TokenReview and token. An identifier is any identifier in the intersection of the TokenReviewSpec audiences and the token's audiences. A client of the TokenReview API that sets the spec.audiences field should validate that a compatible audience identifier is returned in the status.audiences field to ensure that the TokenReview server is audience aware. If a TokenReview returns an empty status.audience field where status.authenticated is \"true\", the token is valid against the audience of the Kubernetes API server. - , v1TokenReviewStatusAuthenticated :: !(Maybe Bool) -- ^ "authenticated" - Authenticated indicates that the token was associated with a known user. - , v1TokenReviewStatusError :: !(Maybe Text) -- ^ "error" - Error indicates that the token couldn't be checked - , v1TokenReviewStatusUser :: !(Maybe V1UserInfo) -- ^ "user" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TokenReviewStatus -instance A.FromJSON V1TokenReviewStatus where - parseJSON = A.withObject "V1TokenReviewStatus" $ \o -> - V1TokenReviewStatus - <$> (o .:? "audiences") - <*> (o .:? "authenticated") - <*> (o .:? "error") - <*> (o .:? "user") - --- | ToJSON V1TokenReviewStatus -instance A.ToJSON V1TokenReviewStatus where - toJSON V1TokenReviewStatus {..} = - _omitNulls - [ "audiences" .= v1TokenReviewStatusAudiences - , "authenticated" .= v1TokenReviewStatusAuthenticated - , "error" .= v1TokenReviewStatusError - , "user" .= v1TokenReviewStatusUser - ] - - --- | Construct a value of type 'V1TokenReviewStatus' (by applying it's required fields, if any) -mkV1TokenReviewStatus - :: V1TokenReviewStatus -mkV1TokenReviewStatus = - V1TokenReviewStatus - { v1TokenReviewStatusAudiences = Nothing - , v1TokenReviewStatusAuthenticated = Nothing - , v1TokenReviewStatusError = Nothing - , v1TokenReviewStatusUser = Nothing - } - --- ** V1Toleration --- | V1Toleration --- The pod this Toleration is attached to tolerates any taint that matches the triple using the matching operator . -data V1Toleration = V1Toleration - { v1TolerationEffect :: !(Maybe Text) -- ^ "effect" - Effect indicates the taint effect to match. Empty means match all taint effects. When specified, allowed values are NoSchedule, PreferNoSchedule and NoExecute. - , v1TolerationKey :: !(Maybe Text) -- ^ "key" - Key is the taint key that the toleration applies to. Empty means match all taint keys. If the key is empty, operator must be Exists; this combination means to match all values and all keys. - , v1TolerationOperator :: !(Maybe Text) -- ^ "operator" - Operator represents a key's relationship to the value. Valid operators are Exists and Equal. Defaults to Equal. Exists is equivalent to wildcard for value, so that a pod can tolerate all taints of a particular category. - , v1TolerationTolerationSeconds :: !(Maybe Integer) -- ^ "tolerationSeconds" - TolerationSeconds represents the period of time the toleration (which must be of effect NoExecute, otherwise this field is ignored) tolerates the taint. By default, it is not set, which means tolerate the taint forever (do not evict). Zero and negative values will be treated as 0 (evict immediately) by the system. - , v1TolerationValue :: !(Maybe Text) -- ^ "value" - Value is the taint value the toleration matches to. If the operator is Exists, the value should be empty, otherwise just a regular string. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Toleration -instance A.FromJSON V1Toleration where - parseJSON = A.withObject "V1Toleration" $ \o -> - V1Toleration - <$> (o .:? "effect") - <*> (o .:? "key") - <*> (o .:? "operator") - <*> (o .:? "tolerationSeconds") - <*> (o .:? "value") - --- | ToJSON V1Toleration -instance A.ToJSON V1Toleration where - toJSON V1Toleration {..} = - _omitNulls - [ "effect" .= v1TolerationEffect - , "key" .= v1TolerationKey - , "operator" .= v1TolerationOperator - , "tolerationSeconds" .= v1TolerationTolerationSeconds - , "value" .= v1TolerationValue - ] - - --- | Construct a value of type 'V1Toleration' (by applying it's required fields, if any) -mkV1Toleration - :: V1Toleration -mkV1Toleration = - V1Toleration - { v1TolerationEffect = Nothing - , v1TolerationKey = Nothing - , v1TolerationOperator = Nothing - , v1TolerationTolerationSeconds = Nothing - , v1TolerationValue = Nothing - } - --- ** V1TopologySelectorLabelRequirement --- | V1TopologySelectorLabelRequirement --- A topology selector requirement is a selector that matches given label. This is an alpha feature and may change in the future. -data V1TopologySelectorLabelRequirement = V1TopologySelectorLabelRequirement - { v1TopologySelectorLabelRequirementKey :: !(Text) -- ^ /Required/ "key" - The label key that the selector applies to. - , v1TopologySelectorLabelRequirementValues :: !([Text]) -- ^ /Required/ "values" - An array of string values. One value must match the label to be selected. Each entry in Values is ORed. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TopologySelectorLabelRequirement -instance A.FromJSON V1TopologySelectorLabelRequirement where - parseJSON = A.withObject "V1TopologySelectorLabelRequirement" $ \o -> - V1TopologySelectorLabelRequirement - <$> (o .: "key") - <*> (o .: "values") - --- | ToJSON V1TopologySelectorLabelRequirement -instance A.ToJSON V1TopologySelectorLabelRequirement where - toJSON V1TopologySelectorLabelRequirement {..} = - _omitNulls - [ "key" .= v1TopologySelectorLabelRequirementKey - , "values" .= v1TopologySelectorLabelRequirementValues - ] - - --- | Construct a value of type 'V1TopologySelectorLabelRequirement' (by applying it's required fields, if any) -mkV1TopologySelectorLabelRequirement - :: Text -- ^ 'v1TopologySelectorLabelRequirementKey': The label key that the selector applies to. - -> [Text] -- ^ 'v1TopologySelectorLabelRequirementValues': An array of string values. One value must match the label to be selected. Each entry in Values is ORed. - -> V1TopologySelectorLabelRequirement -mkV1TopologySelectorLabelRequirement v1TopologySelectorLabelRequirementKey v1TopologySelectorLabelRequirementValues = - V1TopologySelectorLabelRequirement - { v1TopologySelectorLabelRequirementKey - , v1TopologySelectorLabelRequirementValues - } - --- ** V1TopologySelectorTerm --- | V1TopologySelectorTerm --- A topology selector term represents the result of label queries. A null or empty topology selector term matches no objects. The requirements of them are ANDed. It provides a subset of functionality as NodeSelectorTerm. This is an alpha feature and may change in the future. -data V1TopologySelectorTerm = V1TopologySelectorTerm - { v1TopologySelectorTermMatchLabelExpressions :: !(Maybe [V1TopologySelectorLabelRequirement]) -- ^ "matchLabelExpressions" - A list of topology selector requirements by labels. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TopologySelectorTerm -instance A.FromJSON V1TopologySelectorTerm where - parseJSON = A.withObject "V1TopologySelectorTerm" $ \o -> - V1TopologySelectorTerm - <$> (o .:? "matchLabelExpressions") - --- | ToJSON V1TopologySelectorTerm -instance A.ToJSON V1TopologySelectorTerm where - toJSON V1TopologySelectorTerm {..} = - _omitNulls - [ "matchLabelExpressions" .= v1TopologySelectorTermMatchLabelExpressions - ] - - --- | Construct a value of type 'V1TopologySelectorTerm' (by applying it's required fields, if any) -mkV1TopologySelectorTerm - :: V1TopologySelectorTerm -mkV1TopologySelectorTerm = - V1TopologySelectorTerm - { v1TopologySelectorTermMatchLabelExpressions = Nothing - } - --- ** V1TopologySpreadConstraint --- | V1TopologySpreadConstraint --- TopologySpreadConstraint specifies how to spread matching pods among the given topology. -data V1TopologySpreadConstraint = V1TopologySpreadConstraint - { v1TopologySpreadConstraintLabelSelector :: !(Maybe V1LabelSelector) -- ^ "labelSelector" - , v1TopologySpreadConstraintMatchLabelKeys :: !(Maybe [Text]) -- ^ "matchLabelKeys" - MatchLabelKeys is a set of pod label keys to select the pods over which spreading will be calculated. The keys are used to lookup values from the incoming pod labels, those key-value labels are ANDed with labelSelector to select the group of existing pods over which spreading will be calculated for the incoming pod. Keys that don't exist in the incoming pod labels will be ignored. A null or empty list means only match against labelSelector. - , v1TopologySpreadConstraintMaxSkew :: !(Int) -- ^ /Required/ "maxSkew" - MaxSkew describes the degree to which pods may be unevenly distributed. When `whenUnsatisfiable=DoNotSchedule`, it is the maximum permitted difference between the number of matching pods in the target topology and the global minimum. The global minimum is the minimum number of matching pods in an eligible domain or zero if the number of eligible domains is less than MinDomains. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 2/2/1: In this case, the global minimum is 1. | zone1 | zone2 | zone3 | | P P | P P | P | - if MaxSkew is 1, incoming pod can only be scheduled to zone3 to become 2/2/2; scheduling it onto zone1(zone2) would make the ActualSkew(3-1) on zone1(zone2) violate MaxSkew(1). - if MaxSkew is 2, incoming pod can be scheduled onto any zone. When `whenUnsatisfiable=ScheduleAnyway`, it is used to give higher precedence to topologies that satisfy it. It's a required field. Default value is 1 and 0 is not allowed. - , v1TopologySpreadConstraintMinDomains :: !(Maybe Int) -- ^ "minDomains" - MinDomains indicates a minimum number of eligible domains. When the number of eligible domains with matching topology keys is less than minDomains, Pod Topology Spread treats \"global minimum\" as 0, and then the calculation of Skew is performed. And when the number of eligible domains with matching topology keys equals or greater than minDomains, this value has no effect on scheduling. As a result, when the number of eligible domains is less than minDomains, scheduler won't schedule more than maxSkew Pods to those domains. If value is nil, the constraint behaves as if MinDomains is equal to 1. Valid values are integers greater than 0. When value is not nil, WhenUnsatisfiable must be DoNotSchedule. For example, in a 3-zone cluster, MaxSkew is set to 2, MinDomains is set to 5 and pods with the same labelSelector spread as 2/2/2: | zone1 | zone2 | zone3 | | P P | P P | P P | The number of domains is less than 5(MinDomains), so \"global minimum\" is treated as 0. In this situation, new pod with the same labelSelector cannot be scheduled, because computed skew will be 3(3 - 0) if new Pod is scheduled to any of the three zones, it will violate MaxSkew. This is a beta field and requires the MinDomainsInPodTopologySpread feature gate to be enabled (enabled by default). - , v1TopologySpreadConstraintNodeAffinityPolicy :: !(Maybe Text) -- ^ "nodeAffinityPolicy" - NodeAffinityPolicy indicates how we will treat Pod's nodeAffinity/nodeSelector when calculating pod topology spread skew. Options are: - Honor: only nodes matching nodeAffinity/nodeSelector are included in the calculations. - Ignore: nodeAffinity/nodeSelector are ignored. All nodes are included in the calculations. If this value is nil, the behavior is equivalent to the Honor policy. This is a beta-level feature default enabled by the NodeInclusionPolicyInPodTopologySpread feature flag. - , v1TopologySpreadConstraintNodeTaintsPolicy :: !(Maybe Text) -- ^ "nodeTaintsPolicy" - NodeTaintsPolicy indicates how we will treat node taints when calculating pod topology spread skew. Options are: - Honor: nodes without taints, along with tainted nodes for which the incoming pod has a toleration, are included. - Ignore: node taints are ignored. All nodes are included. If this value is nil, the behavior is equivalent to the Ignore policy. This is a beta-level feature default enabled by the NodeInclusionPolicyInPodTopologySpread feature flag. - , v1TopologySpreadConstraintTopologyKey :: !(Text) -- ^ /Required/ "topologyKey" - TopologyKey is the key of node labels. Nodes that have a label with this key and identical values are considered to be in the same topology. We consider each <key, value> as a \"bucket\", and try to put balanced number of pods into each bucket. We define a domain as a particular instance of a topology. Also, we define an eligible domain as a domain whose nodes meet the requirements of nodeAffinityPolicy and nodeTaintsPolicy. e.g. If TopologyKey is \"kubernetes.io/hostname\", each Node is a domain of that topology. And, if TopologyKey is \"topology.kubernetes.io/zone\", each zone is a domain of that topology. It's a required field. - , v1TopologySpreadConstraintWhenUnsatisfiable :: !(Text) -- ^ /Required/ "whenUnsatisfiable" - WhenUnsatisfiable indicates how to deal with a pod if it doesn't satisfy the spread constraint. - DoNotSchedule (default) tells the scheduler not to schedule it. - ScheduleAnyway tells the scheduler to schedule the pod in any location, but giving higher precedence to topologies that would help reduce the skew. A constraint is considered \"Unsatisfiable\" for an incoming pod if and only if every possible node assignment for that pod would violate \"MaxSkew\" on some topology. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 3/1/1: | zone1 | zone2 | zone3 | | P P P | P | P | If WhenUnsatisfiable is set to DoNotSchedule, incoming pod can only be scheduled to zone2(zone3) to become 3/2/1(3/1/2) as ActualSkew(2-1) on zone2(zone3) satisfies MaxSkew(1). In other words, the cluster can still be imbalanced, but scheduler won't make it *more* imbalanced. It's a required field. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TopologySpreadConstraint -instance A.FromJSON V1TopologySpreadConstraint where - parseJSON = A.withObject "V1TopologySpreadConstraint" $ \o -> - V1TopologySpreadConstraint - <$> (o .:? "labelSelector") - <*> (o .:? "matchLabelKeys") - <*> (o .: "maxSkew") - <*> (o .:? "minDomains") - <*> (o .:? "nodeAffinityPolicy") - <*> (o .:? "nodeTaintsPolicy") - <*> (o .: "topologyKey") - <*> (o .: "whenUnsatisfiable") - --- | ToJSON V1TopologySpreadConstraint -instance A.ToJSON V1TopologySpreadConstraint where - toJSON V1TopologySpreadConstraint {..} = - _omitNulls - [ "labelSelector" .= v1TopologySpreadConstraintLabelSelector - , "matchLabelKeys" .= v1TopologySpreadConstraintMatchLabelKeys - , "maxSkew" .= v1TopologySpreadConstraintMaxSkew - , "minDomains" .= v1TopologySpreadConstraintMinDomains - , "nodeAffinityPolicy" .= v1TopologySpreadConstraintNodeAffinityPolicy - , "nodeTaintsPolicy" .= v1TopologySpreadConstraintNodeTaintsPolicy - , "topologyKey" .= v1TopologySpreadConstraintTopologyKey - , "whenUnsatisfiable" .= v1TopologySpreadConstraintWhenUnsatisfiable - ] - - --- | Construct a value of type 'V1TopologySpreadConstraint' (by applying it's required fields, if any) -mkV1TopologySpreadConstraint - :: Int -- ^ 'v1TopologySpreadConstraintMaxSkew': MaxSkew describes the degree to which pods may be unevenly distributed. When `whenUnsatisfiable=DoNotSchedule`, it is the maximum permitted difference between the number of matching pods in the target topology and the global minimum. The global minimum is the minimum number of matching pods in an eligible domain or zero if the number of eligible domains is less than MinDomains. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 2/2/1: In this case, the global minimum is 1. | zone1 | zone2 | zone3 | | P P | P P | P | - if MaxSkew is 1, incoming pod can only be scheduled to zone3 to become 2/2/2; scheduling it onto zone1(zone2) would make the ActualSkew(3-1) on zone1(zone2) violate MaxSkew(1). - if MaxSkew is 2, incoming pod can be scheduled onto any zone. When `whenUnsatisfiable=ScheduleAnyway`, it is used to give higher precedence to topologies that satisfy it. It's a required field. Default value is 1 and 0 is not allowed. - -> Text -- ^ 'v1TopologySpreadConstraintTopologyKey': TopologyKey is the key of node labels. Nodes that have a label with this key and identical values are considered to be in the same topology. We consider each as a \"bucket\", and try to put balanced number of pods into each bucket. We define a domain as a particular instance of a topology. Also, we define an eligible domain as a domain whose nodes meet the requirements of nodeAffinityPolicy and nodeTaintsPolicy. e.g. If TopologyKey is \"kubernetes.io/hostname\", each Node is a domain of that topology. And, if TopologyKey is \"topology.kubernetes.io/zone\", each zone is a domain of that topology. It's a required field. - -> Text -- ^ 'v1TopologySpreadConstraintWhenUnsatisfiable': WhenUnsatisfiable indicates how to deal with a pod if it doesn't satisfy the spread constraint. - DoNotSchedule (default) tells the scheduler not to schedule it. - ScheduleAnyway tells the scheduler to schedule the pod in any location, but giving higher precedence to topologies that would help reduce the skew. A constraint is considered \"Unsatisfiable\" for an incoming pod if and only if every possible node assignment for that pod would violate \"MaxSkew\" on some topology. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 3/1/1: | zone1 | zone2 | zone3 | | P P P | P | P | If WhenUnsatisfiable is set to DoNotSchedule, incoming pod can only be scheduled to zone2(zone3) to become 3/2/1(3/1/2) as ActualSkew(2-1) on zone2(zone3) satisfies MaxSkew(1). In other words, the cluster can still be imbalanced, but scheduler won't make it *more* imbalanced. It's a required field. - -> V1TopologySpreadConstraint -mkV1TopologySpreadConstraint v1TopologySpreadConstraintMaxSkew v1TopologySpreadConstraintTopologyKey v1TopologySpreadConstraintWhenUnsatisfiable = - V1TopologySpreadConstraint - { v1TopologySpreadConstraintLabelSelector = Nothing - , v1TopologySpreadConstraintMatchLabelKeys = Nothing - , v1TopologySpreadConstraintMaxSkew - , v1TopologySpreadConstraintMinDomains = Nothing - , v1TopologySpreadConstraintNodeAffinityPolicy = Nothing - , v1TopologySpreadConstraintNodeTaintsPolicy = Nothing - , v1TopologySpreadConstraintTopologyKey - , v1TopologySpreadConstraintWhenUnsatisfiable - } - --- ** V1TypedLocalObjectReference --- | V1TypedLocalObjectReference --- TypedLocalObjectReference contains enough information to let you locate the typed referenced object inside the same namespace. -data V1TypedLocalObjectReference = V1TypedLocalObjectReference - { v1TypedLocalObjectReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. - , v1TypedLocalObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced - , v1TypedLocalObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TypedLocalObjectReference -instance A.FromJSON V1TypedLocalObjectReference where - parseJSON = A.withObject "V1TypedLocalObjectReference" $ \o -> - V1TypedLocalObjectReference - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - --- | ToJSON V1TypedLocalObjectReference -instance A.ToJSON V1TypedLocalObjectReference where - toJSON V1TypedLocalObjectReference {..} = - _omitNulls - [ "apiGroup" .= v1TypedLocalObjectReferenceApiGroup - , "kind" .= v1TypedLocalObjectReferenceKind - , "name" .= v1TypedLocalObjectReferenceName - ] - - --- | Construct a value of type 'V1TypedLocalObjectReference' (by applying it's required fields, if any) -mkV1TypedLocalObjectReference - :: Text -- ^ 'v1TypedLocalObjectReferenceKind': Kind is the type of resource being referenced - -> Text -- ^ 'v1TypedLocalObjectReferenceName': Name is the name of resource being referenced - -> V1TypedLocalObjectReference -mkV1TypedLocalObjectReference v1TypedLocalObjectReferenceKind v1TypedLocalObjectReferenceName = - V1TypedLocalObjectReference - { v1TypedLocalObjectReferenceApiGroup = Nothing - , v1TypedLocalObjectReferenceKind - , v1TypedLocalObjectReferenceName - } - --- ** V1TypedObjectReference --- | V1TypedObjectReference -data V1TypedObjectReference = V1TypedObjectReference - { v1TypedObjectReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. - , v1TypedObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced - , v1TypedObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced - , v1TypedObjectReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of resource being referenced Note that when a namespace is specified, a gateway.networking.k8s.io/ReferenceGrant object is required in the referent namespace to allow that namespace's owner to accept the reference. See the ReferenceGrant documentation for details. (Alpha) This field requires the CrossNamespaceVolumeDataSource feature gate to be enabled. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1TypedObjectReference -instance A.FromJSON V1TypedObjectReference where - parseJSON = A.withObject "V1TypedObjectReference" $ \o -> - V1TypedObjectReference - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .:? "namespace") - --- | ToJSON V1TypedObjectReference -instance A.ToJSON V1TypedObjectReference where - toJSON V1TypedObjectReference {..} = - _omitNulls - [ "apiGroup" .= v1TypedObjectReferenceApiGroup - , "kind" .= v1TypedObjectReferenceKind - , "name" .= v1TypedObjectReferenceName - , "namespace" .= v1TypedObjectReferenceNamespace - ] - - --- | Construct a value of type 'V1TypedObjectReference' (by applying it's required fields, if any) -mkV1TypedObjectReference - :: Text -- ^ 'v1TypedObjectReferenceKind': Kind is the type of resource being referenced - -> Text -- ^ 'v1TypedObjectReferenceName': Name is the name of resource being referenced - -> V1TypedObjectReference -mkV1TypedObjectReference v1TypedObjectReferenceKind v1TypedObjectReferenceName = - V1TypedObjectReference - { v1TypedObjectReferenceApiGroup = Nothing - , v1TypedObjectReferenceKind - , v1TypedObjectReferenceName - , v1TypedObjectReferenceNamespace = Nothing - } - --- ** V1UncountedTerminatedPods --- | V1UncountedTerminatedPods --- UncountedTerminatedPods holds UIDs of Pods that have terminated but haven't been accounted in Job status counters. -data V1UncountedTerminatedPods = V1UncountedTerminatedPods - { v1UncountedTerminatedPodsFailed :: !(Maybe [Text]) -- ^ "failed" - Failed holds UIDs of failed Pods. - , v1UncountedTerminatedPodsSucceeded :: !(Maybe [Text]) -- ^ "succeeded" - Succeeded holds UIDs of succeeded Pods. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1UncountedTerminatedPods -instance A.FromJSON V1UncountedTerminatedPods where - parseJSON = A.withObject "V1UncountedTerminatedPods" $ \o -> - V1UncountedTerminatedPods - <$> (o .:? "failed") - <*> (o .:? "succeeded") - --- | ToJSON V1UncountedTerminatedPods -instance A.ToJSON V1UncountedTerminatedPods where - toJSON V1UncountedTerminatedPods {..} = - _omitNulls - [ "failed" .= v1UncountedTerminatedPodsFailed - , "succeeded" .= v1UncountedTerminatedPodsSucceeded - ] - - --- | Construct a value of type 'V1UncountedTerminatedPods' (by applying it's required fields, if any) -mkV1UncountedTerminatedPods - :: V1UncountedTerminatedPods -mkV1UncountedTerminatedPods = - V1UncountedTerminatedPods - { v1UncountedTerminatedPodsFailed = Nothing - , v1UncountedTerminatedPodsSucceeded = Nothing - } - --- ** V1UserInfo --- | V1UserInfo --- UserInfo holds the information about the user needed to implement the user.Info interface. -data V1UserInfo = V1UserInfo - { v1UserInfoExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - Any additional information provided by the authenticator. - , v1UserInfoGroups :: !(Maybe [Text]) -- ^ "groups" - The names of groups this user is a part of. - , v1UserInfoUid :: !(Maybe Text) -- ^ "uid" - A unique value that identifies this user across time. If this user is deleted and another user by the same name is added, they will have different UIDs. - , v1UserInfoUsername :: !(Maybe Text) -- ^ "username" - The name that uniquely identifies this user among all active users. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1UserInfo -instance A.FromJSON V1UserInfo where - parseJSON = A.withObject "V1UserInfo" $ \o -> - V1UserInfo - <$> (o .:? "extra") - <*> (o .:? "groups") - <*> (o .:? "uid") - <*> (o .:? "username") - --- | ToJSON V1UserInfo -instance A.ToJSON V1UserInfo where - toJSON V1UserInfo {..} = - _omitNulls - [ "extra" .= v1UserInfoExtra - , "groups" .= v1UserInfoGroups - , "uid" .= v1UserInfoUid - , "username" .= v1UserInfoUsername - ] - - --- | Construct a value of type 'V1UserInfo' (by applying it's required fields, if any) -mkV1UserInfo - :: V1UserInfo -mkV1UserInfo = - V1UserInfo - { v1UserInfoExtra = Nothing - , v1UserInfoGroups = Nothing - , v1UserInfoUid = Nothing - , v1UserInfoUsername = Nothing - } - --- ** V1ValidatingWebhook --- | V1ValidatingWebhook --- ValidatingWebhook describes an admission webhook and the resources and operations it applies to. -data V1ValidatingWebhook = V1ValidatingWebhook - { v1ValidatingWebhookAdmissionReviewVersions :: !([Text]) -- ^ /Required/ "admissionReviewVersions" - AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. - , v1ValidatingWebhookClientConfig :: !(AdmissionregistrationV1WebhookClientConfig) -- ^ /Required/ "clientConfig" - , v1ValidatingWebhookFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - FailurePolicy defines how unrecognized errors from the admission endpoint are handled - allowed values are Ignore or Fail. Defaults to Fail. - , v1ValidatingWebhookMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"rules\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the webhook. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the webhook. Defaults to \"Equivalent\" - , v1ValidatingWebhookName :: !(Text) -- ^ /Required/ "name" - The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. - , v1ValidatingWebhookNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" - , v1ValidatingWebhookObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" - , v1ValidatingWebhookRules :: !(Maybe [V1RuleWithOperations]) -- ^ "rules" - Rules describes what operations on what resources/subresources the webhook cares about. The webhook cares about an operation if it matches _any_ Rule. However, in order to prevent ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks from putting the cluster in a state which cannot be recovered from without completely disabling the plugin, ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks are never called on admission requests for ValidatingWebhookConfiguration and MutatingWebhookConfiguration objects. - , v1ValidatingWebhookSideEffects :: !(Text) -- ^ /Required/ "sideEffects" - SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. - , v1ValidatingWebhookTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - TimeoutSeconds specifies the timeout for this webhook. After the timeout passes, the webhook call will be ignored or the API call will fail based on the failure policy. The timeout value must be between 1 and 30 seconds. Default to 10 seconds. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ValidatingWebhook -instance A.FromJSON V1ValidatingWebhook where - parseJSON = A.withObject "V1ValidatingWebhook" $ \o -> - V1ValidatingWebhook - <$> (o .: "admissionReviewVersions") - <*> (o .: "clientConfig") - <*> (o .:? "failurePolicy") - <*> (o .:? "matchPolicy") - <*> (o .: "name") - <*> (o .:? "namespaceSelector") - <*> (o .:? "objectSelector") - <*> (o .:? "rules") - <*> (o .: "sideEffects") - <*> (o .:? "timeoutSeconds") - --- | ToJSON V1ValidatingWebhook -instance A.ToJSON V1ValidatingWebhook where - toJSON V1ValidatingWebhook {..} = - _omitNulls - [ "admissionReviewVersions" .= v1ValidatingWebhookAdmissionReviewVersions - , "clientConfig" .= v1ValidatingWebhookClientConfig - , "failurePolicy" .= v1ValidatingWebhookFailurePolicy - , "matchPolicy" .= v1ValidatingWebhookMatchPolicy - , "name" .= v1ValidatingWebhookName - , "namespaceSelector" .= v1ValidatingWebhookNamespaceSelector - , "objectSelector" .= v1ValidatingWebhookObjectSelector - , "rules" .= v1ValidatingWebhookRules - , "sideEffects" .= v1ValidatingWebhookSideEffects - , "timeoutSeconds" .= v1ValidatingWebhookTimeoutSeconds - ] - - --- | Construct a value of type 'V1ValidatingWebhook' (by applying it's required fields, if any) -mkV1ValidatingWebhook - :: [Text] -- ^ 'v1ValidatingWebhookAdmissionReviewVersions': AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. - -> AdmissionregistrationV1WebhookClientConfig -- ^ 'v1ValidatingWebhookClientConfig' - -> Text -- ^ 'v1ValidatingWebhookName': The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. - -> Text -- ^ 'v1ValidatingWebhookSideEffects': SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. - -> V1ValidatingWebhook -mkV1ValidatingWebhook v1ValidatingWebhookAdmissionReviewVersions v1ValidatingWebhookClientConfig v1ValidatingWebhookName v1ValidatingWebhookSideEffects = - V1ValidatingWebhook - { v1ValidatingWebhookAdmissionReviewVersions - , v1ValidatingWebhookClientConfig - , v1ValidatingWebhookFailurePolicy = Nothing - , v1ValidatingWebhookMatchPolicy = Nothing - , v1ValidatingWebhookName - , v1ValidatingWebhookNamespaceSelector = Nothing - , v1ValidatingWebhookObjectSelector = Nothing - , v1ValidatingWebhookRules = Nothing - , v1ValidatingWebhookSideEffects - , v1ValidatingWebhookTimeoutSeconds = Nothing - } - --- ** V1ValidatingWebhookConfiguration --- | V1ValidatingWebhookConfiguration --- ValidatingWebhookConfiguration describes the configuration of and admission webhook that accept or reject and object without changing it. -data V1ValidatingWebhookConfiguration = V1ValidatingWebhookConfiguration - { v1ValidatingWebhookConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ValidatingWebhookConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ValidatingWebhookConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1ValidatingWebhookConfigurationWebhooks :: !(Maybe [V1ValidatingWebhook]) -- ^ "webhooks" - Webhooks is a list of webhooks and the affected resources and operations. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ValidatingWebhookConfiguration -instance A.FromJSON V1ValidatingWebhookConfiguration where - parseJSON = A.withObject "V1ValidatingWebhookConfiguration" $ \o -> - V1ValidatingWebhookConfiguration - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "webhooks") - --- | ToJSON V1ValidatingWebhookConfiguration -instance A.ToJSON V1ValidatingWebhookConfiguration where - toJSON V1ValidatingWebhookConfiguration {..} = - _omitNulls - [ "apiVersion" .= v1ValidatingWebhookConfigurationApiVersion - , "kind" .= v1ValidatingWebhookConfigurationKind - , "metadata" .= v1ValidatingWebhookConfigurationMetadata - , "webhooks" .= v1ValidatingWebhookConfigurationWebhooks - ] - - --- | Construct a value of type 'V1ValidatingWebhookConfiguration' (by applying it's required fields, if any) -mkV1ValidatingWebhookConfiguration - :: V1ValidatingWebhookConfiguration -mkV1ValidatingWebhookConfiguration = - V1ValidatingWebhookConfiguration - { v1ValidatingWebhookConfigurationApiVersion = Nothing - , v1ValidatingWebhookConfigurationKind = Nothing - , v1ValidatingWebhookConfigurationMetadata = Nothing - , v1ValidatingWebhookConfigurationWebhooks = Nothing - } - --- ** V1ValidatingWebhookConfigurationList --- | V1ValidatingWebhookConfigurationList --- ValidatingWebhookConfigurationList is a list of ValidatingWebhookConfiguration. -data V1ValidatingWebhookConfigurationList = V1ValidatingWebhookConfigurationList - { v1ValidatingWebhookConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1ValidatingWebhookConfigurationListItems :: !([V1ValidatingWebhookConfiguration]) -- ^ /Required/ "items" - List of ValidatingWebhookConfiguration. - , v1ValidatingWebhookConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1ValidatingWebhookConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ValidatingWebhookConfigurationList -instance A.FromJSON V1ValidatingWebhookConfigurationList where - parseJSON = A.withObject "V1ValidatingWebhookConfigurationList" $ \o -> - V1ValidatingWebhookConfigurationList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1ValidatingWebhookConfigurationList -instance A.ToJSON V1ValidatingWebhookConfigurationList where - toJSON V1ValidatingWebhookConfigurationList {..} = - _omitNulls - [ "apiVersion" .= v1ValidatingWebhookConfigurationListApiVersion - , "items" .= v1ValidatingWebhookConfigurationListItems - , "kind" .= v1ValidatingWebhookConfigurationListKind - , "metadata" .= v1ValidatingWebhookConfigurationListMetadata - ] - - --- | Construct a value of type 'V1ValidatingWebhookConfigurationList' (by applying it's required fields, if any) -mkV1ValidatingWebhookConfigurationList - :: [V1ValidatingWebhookConfiguration] -- ^ 'v1ValidatingWebhookConfigurationListItems': List of ValidatingWebhookConfiguration. - -> V1ValidatingWebhookConfigurationList -mkV1ValidatingWebhookConfigurationList v1ValidatingWebhookConfigurationListItems = - V1ValidatingWebhookConfigurationList - { v1ValidatingWebhookConfigurationListApiVersion = Nothing - , v1ValidatingWebhookConfigurationListItems - , v1ValidatingWebhookConfigurationListKind = Nothing - , v1ValidatingWebhookConfigurationListMetadata = Nothing - } - --- ** V1ValidationRule --- | V1ValidationRule --- ValidationRule describes a validation rule written in the CEL expression language. -data V1ValidationRule = V1ValidationRule - { v1ValidationRuleMessage :: !(Maybe Text) -- ^ "message" - Message represents the message displayed when validation fails. The message is required if the Rule contains line breaks. The message must not contain line breaks. If unset, the message is \"failed rule: {Rule}\". e.g. \"must be a URL with the host matching spec.host\" - , v1ValidationRuleRule :: !(Text) -- ^ /Required/ "rule" - Rule represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec The Rule is scoped to the location of the x-kubernetes-validations extension in the schema. The `self` variable in the CEL expression is bound to the scoped value. Example: - Rule scoped to the root of a resource with a status subresource: {\"rule\": \"self.status.actual <= self.spec.maxDesired\"} If the Rule is scoped to an object with properties, the accessible properties of the object are field selectable via `self.field` and field presence can be checked via `has(self.field)`. Null valued fields are treated as absent fields in CEL expressions. If the Rule is scoped to an object with additionalProperties (i.e. a map) the value of the map are accessible via `self[mapKey]`, map containment can be checked via `mapKey in self` and all entries of the map are accessible via CEL macros and functions such as `self.all(...)`. If the Rule is scoped to an array, the elements of the array are accessible via `self[i]` and also by macros and functions. If the Rule is scoped to a scalar, `self` is bound to the scalar value. Examples: - Rule scoped to a map of objects: {\"rule\": \"self.components['Widget'].priority < 10\"} - Rule scoped to a list of integers: {\"rule\": \"self.values.all(value, value >= 0 && value < 100)\"} - Rule scoped to a string value: {\"rule\": \"self.startsWith('kube')\"} The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object and from any x-kubernetes-embedded-resource annotated objects. No other metadata properties are accessible. Unknown data preserved in custom resources via x-kubernetes-preserve-unknown-fields is not accessible in CEL expressions. This includes: - Unknown field values that are preserved by object schemas with x-kubernetes-preserve-unknown-fields. - Object properties where the property schema is of an \"unknown type\". An \"unknown type\" is recursively defined as: - A schema with no type and x-kubernetes-preserve-unknown-fields set to true - An array where the items schema is of an \"unknown type\" - An object where the additionalProperties schema is of an \"unknown type\" Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Rule accessing a property named \"namespace\": {\"rule\": \"self.__namespace__ > 0\"} - Rule accessing a property named \"x-prop\": {\"rule\": \"self.x__dash__prop > 0\"} - Rule accessing a property named \"redact__d\": {\"rule\": \"self.redact__underscores__d > 0\"} Equality on arrays with x-kubernetes-list-type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1ValidationRule -instance A.FromJSON V1ValidationRule where - parseJSON = A.withObject "V1ValidationRule" $ \o -> - V1ValidationRule - <$> (o .:? "message") - <*> (o .: "rule") - --- | ToJSON V1ValidationRule -instance A.ToJSON V1ValidationRule where - toJSON V1ValidationRule {..} = - _omitNulls - [ "message" .= v1ValidationRuleMessage - , "rule" .= v1ValidationRuleRule - ] - - --- | Construct a value of type 'V1ValidationRule' (by applying it's required fields, if any) -mkV1ValidationRule - :: Text -- ^ 'v1ValidationRuleRule': Rule represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec The Rule is scoped to the location of the x-kubernetes-validations extension in the schema. The `self` variable in the CEL expression is bound to the scoped value. Example: - Rule scoped to the root of a resource with a status subresource: {\"rule\": \"self.status.actual <= self.spec.maxDesired\"} If the Rule is scoped to an object with properties, the accessible properties of the object are field selectable via `self.field` and field presence can be checked via `has(self.field)`. Null valued fields are treated as absent fields in CEL expressions. If the Rule is scoped to an object with additionalProperties (i.e. a map) the value of the map are accessible via `self[mapKey]`, map containment can be checked via `mapKey in self` and all entries of the map are accessible via CEL macros and functions such as `self.all(...)`. If the Rule is scoped to an array, the elements of the array are accessible via `self[i]` and also by macros and functions. If the Rule is scoped to a scalar, `self` is bound to the scalar value. Examples: - Rule scoped to a map of objects: {\"rule\": \"self.components['Widget'].priority < 10\"} - Rule scoped to a list of integers: {\"rule\": \"self.values.all(value, value >= 0 && value < 100)\"} - Rule scoped to a string value: {\"rule\": \"self.startsWith('kube')\"} The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object and from any x-kubernetes-embedded-resource annotated objects. No other metadata properties are accessible. Unknown data preserved in custom resources via x-kubernetes-preserve-unknown-fields is not accessible in CEL expressions. This includes: - Unknown field values that are preserved by object schemas with x-kubernetes-preserve-unknown-fields. - Object properties where the property schema is of an \"unknown type\". An \"unknown type\" is recursively defined as: - A schema with no type and x-kubernetes-preserve-unknown-fields set to true - An array where the items schema is of an \"unknown type\" - An object where the additionalProperties schema is of an \"unknown type\" Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Rule accessing a property named \"namespace\": {\"rule\": \"self.__namespace__ > 0\"} - Rule accessing a property named \"x-prop\": {\"rule\": \"self.x__dash__prop > 0\"} - Rule accessing a property named \"redact__d\": {\"rule\": \"self.redact__underscores__d > 0\"} Equality on arrays with x-kubernetes-list-type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. - -> V1ValidationRule -mkV1ValidationRule v1ValidationRuleRule = - V1ValidationRule - { v1ValidationRuleMessage = Nothing - , v1ValidationRuleRule - } - --- ** V1Volume --- | V1Volume --- Volume represents a named volume in a pod that may be accessed by any container in the pod. -data V1Volume = V1Volume - { v1VolumeAwsElasticBlockStore :: !(Maybe V1AWSElasticBlockStoreVolumeSource) -- ^ "awsElasticBlockStore" - , v1VolumeAzureDisk :: !(Maybe V1AzureDiskVolumeSource) -- ^ "azureDisk" - , v1VolumeAzureFile :: !(Maybe V1AzureFileVolumeSource) -- ^ "azureFile" - , v1VolumeCephfs :: !(Maybe V1CephFSVolumeSource) -- ^ "cephfs" - , v1VolumeCinder :: !(Maybe V1CinderVolumeSource) -- ^ "cinder" - , v1VolumeConfigMap :: !(Maybe V1ConfigMapVolumeSource) -- ^ "configMap" - , v1VolumeCsi :: !(Maybe V1CSIVolumeSource) -- ^ "csi" - , v1VolumeDownwardApi :: !(Maybe V1DownwardAPIVolumeSource) -- ^ "downwardAPI" - , v1VolumeEmptyDir :: !(Maybe V1EmptyDirVolumeSource) -- ^ "emptyDir" - , v1VolumeEphemeral :: !(Maybe V1EphemeralVolumeSource) -- ^ "ephemeral" - , v1VolumeFc :: !(Maybe V1FCVolumeSource) -- ^ "fc" - , v1VolumeFlexVolume :: !(Maybe V1FlexVolumeSource) -- ^ "flexVolume" - , v1VolumeFlocker :: !(Maybe V1FlockerVolumeSource) -- ^ "flocker" - , v1VolumeGcePersistentDisk :: !(Maybe V1GCEPersistentDiskVolumeSource) -- ^ "gcePersistentDisk" - , v1VolumeGitRepo :: !(Maybe V1GitRepoVolumeSource) -- ^ "gitRepo" - , v1VolumeGlusterfs :: !(Maybe V1GlusterfsVolumeSource) -- ^ "glusterfs" - , v1VolumeHostPath :: !(Maybe V1HostPathVolumeSource) -- ^ "hostPath" - , v1VolumeIscsi :: !(Maybe V1ISCSIVolumeSource) -- ^ "iscsi" - , v1VolumeName :: !(Text) -- ^ /Required/ "name" - name of the volume. Must be a DNS_LABEL and unique within the pod. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - , v1VolumeNfs :: !(Maybe V1NFSVolumeSource) -- ^ "nfs" - , v1VolumePersistentVolumeClaim :: !(Maybe V1PersistentVolumeClaimVolumeSource) -- ^ "persistentVolumeClaim" - , v1VolumePhotonPersistentDisk :: !(Maybe V1PhotonPersistentDiskVolumeSource) -- ^ "photonPersistentDisk" - , v1VolumePortworxVolume :: !(Maybe V1PortworxVolumeSource) -- ^ "portworxVolume" - , v1VolumeProjected :: !(Maybe V1ProjectedVolumeSource) -- ^ "projected" - , v1VolumeQuobyte :: !(Maybe V1QuobyteVolumeSource) -- ^ "quobyte" - , v1VolumeRbd :: !(Maybe V1RBDVolumeSource) -- ^ "rbd" - , v1VolumeScaleIo :: !(Maybe V1ScaleIOVolumeSource) -- ^ "scaleIO" - , v1VolumeSecret :: !(Maybe V1SecretVolumeSource) -- ^ "secret" - , v1VolumeStorageos :: !(Maybe V1StorageOSVolumeSource) -- ^ "storageos" - , v1VolumeVsphereVolume :: !(Maybe V1VsphereVirtualDiskVolumeSource) -- ^ "vsphereVolume" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1Volume -instance A.FromJSON V1Volume where - parseJSON = A.withObject "V1Volume" $ \o -> - V1Volume - <$> (o .:? "awsElasticBlockStore") - <*> (o .:? "azureDisk") - <*> (o .:? "azureFile") - <*> (o .:? "cephfs") - <*> (o .:? "cinder") - <*> (o .:? "configMap") - <*> (o .:? "csi") - <*> (o .:? "downwardAPI") - <*> (o .:? "emptyDir") - <*> (o .:? "ephemeral") - <*> (o .:? "fc") - <*> (o .:? "flexVolume") - <*> (o .:? "flocker") - <*> (o .:? "gcePersistentDisk") - <*> (o .:? "gitRepo") - <*> (o .:? "glusterfs") - <*> (o .:? "hostPath") - <*> (o .:? "iscsi") - <*> (o .: "name") - <*> (o .:? "nfs") - <*> (o .:? "persistentVolumeClaim") - <*> (o .:? "photonPersistentDisk") - <*> (o .:? "portworxVolume") - <*> (o .:? "projected") - <*> (o .:? "quobyte") - <*> (o .:? "rbd") - <*> (o .:? "scaleIO") - <*> (o .:? "secret") - <*> (o .:? "storageos") - <*> (o .:? "vsphereVolume") - --- | ToJSON V1Volume -instance A.ToJSON V1Volume where - toJSON V1Volume {..} = - _omitNulls - [ "awsElasticBlockStore" .= v1VolumeAwsElasticBlockStore - , "azureDisk" .= v1VolumeAzureDisk - , "azureFile" .= v1VolumeAzureFile - , "cephfs" .= v1VolumeCephfs - , "cinder" .= v1VolumeCinder - , "configMap" .= v1VolumeConfigMap - , "csi" .= v1VolumeCsi - , "downwardAPI" .= v1VolumeDownwardApi - , "emptyDir" .= v1VolumeEmptyDir - , "ephemeral" .= v1VolumeEphemeral - , "fc" .= v1VolumeFc - , "flexVolume" .= v1VolumeFlexVolume - , "flocker" .= v1VolumeFlocker - , "gcePersistentDisk" .= v1VolumeGcePersistentDisk - , "gitRepo" .= v1VolumeGitRepo - , "glusterfs" .= v1VolumeGlusterfs - , "hostPath" .= v1VolumeHostPath - , "iscsi" .= v1VolumeIscsi - , "name" .= v1VolumeName - , "nfs" .= v1VolumeNfs - , "persistentVolumeClaim" .= v1VolumePersistentVolumeClaim - , "photonPersistentDisk" .= v1VolumePhotonPersistentDisk - , "portworxVolume" .= v1VolumePortworxVolume - , "projected" .= v1VolumeProjected - , "quobyte" .= v1VolumeQuobyte - , "rbd" .= v1VolumeRbd - , "scaleIO" .= v1VolumeScaleIo - , "secret" .= v1VolumeSecret - , "storageos" .= v1VolumeStorageos - , "vsphereVolume" .= v1VolumeVsphereVolume - ] - - --- | Construct a value of type 'V1Volume' (by applying it's required fields, if any) -mkV1Volume - :: Text -- ^ 'v1VolumeName': name of the volume. Must be a DNS_LABEL and unique within the pod. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names - -> V1Volume -mkV1Volume v1VolumeName = - V1Volume - { v1VolumeAwsElasticBlockStore = Nothing - , v1VolumeAzureDisk = Nothing - , v1VolumeAzureFile = Nothing - , v1VolumeCephfs = Nothing - , v1VolumeCinder = Nothing - , v1VolumeConfigMap = Nothing - , v1VolumeCsi = Nothing - , v1VolumeDownwardApi = Nothing - , v1VolumeEmptyDir = Nothing - , v1VolumeEphemeral = Nothing - , v1VolumeFc = Nothing - , v1VolumeFlexVolume = Nothing - , v1VolumeFlocker = Nothing - , v1VolumeGcePersistentDisk = Nothing - , v1VolumeGitRepo = Nothing - , v1VolumeGlusterfs = Nothing - , v1VolumeHostPath = Nothing - , v1VolumeIscsi = Nothing - , v1VolumeName - , v1VolumeNfs = Nothing - , v1VolumePersistentVolumeClaim = Nothing - , v1VolumePhotonPersistentDisk = Nothing - , v1VolumePortworxVolume = Nothing - , v1VolumeProjected = Nothing - , v1VolumeQuobyte = Nothing - , v1VolumeRbd = Nothing - , v1VolumeScaleIo = Nothing - , v1VolumeSecret = Nothing - , v1VolumeStorageos = Nothing - , v1VolumeVsphereVolume = Nothing - } - --- ** V1VolumeAttachment --- | V1VolumeAttachment --- VolumeAttachment captures the intent to attach or detach the specified volume to/from the specified node. VolumeAttachment objects are non-namespaced. -data V1VolumeAttachment = V1VolumeAttachment - { v1VolumeAttachmentApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1VolumeAttachmentKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1VolumeAttachmentMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1VolumeAttachmentSpec :: !(V1VolumeAttachmentSpec) -- ^ /Required/ "spec" - , v1VolumeAttachmentStatus :: !(Maybe V1VolumeAttachmentStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeAttachment -instance A.FromJSON V1VolumeAttachment where - parseJSON = A.withObject "V1VolumeAttachment" $ \o -> - V1VolumeAttachment - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1VolumeAttachment -instance A.ToJSON V1VolumeAttachment where - toJSON V1VolumeAttachment {..} = - _omitNulls - [ "apiVersion" .= v1VolumeAttachmentApiVersion - , "kind" .= v1VolumeAttachmentKind - , "metadata" .= v1VolumeAttachmentMetadata - , "spec" .= v1VolumeAttachmentSpec - , "status" .= v1VolumeAttachmentStatus - ] - - --- | Construct a value of type 'V1VolumeAttachment' (by applying it's required fields, if any) -mkV1VolumeAttachment - :: V1VolumeAttachmentSpec -- ^ 'v1VolumeAttachmentSpec' - -> V1VolumeAttachment -mkV1VolumeAttachment v1VolumeAttachmentSpec = - V1VolumeAttachment - { v1VolumeAttachmentApiVersion = Nothing - , v1VolumeAttachmentKind = Nothing - , v1VolumeAttachmentMetadata = Nothing - , v1VolumeAttachmentSpec - , v1VolumeAttachmentStatus = Nothing - } - --- ** V1VolumeAttachmentList --- | V1VolumeAttachmentList --- VolumeAttachmentList is a collection of VolumeAttachment objects. -data V1VolumeAttachmentList = V1VolumeAttachmentList - { v1VolumeAttachmentListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1VolumeAttachmentListItems :: !([V1VolumeAttachment]) -- ^ /Required/ "items" - Items is the list of VolumeAttachments - , v1VolumeAttachmentListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1VolumeAttachmentListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeAttachmentList -instance A.FromJSON V1VolumeAttachmentList where - parseJSON = A.withObject "V1VolumeAttachmentList" $ \o -> - V1VolumeAttachmentList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1VolumeAttachmentList -instance A.ToJSON V1VolumeAttachmentList where - toJSON V1VolumeAttachmentList {..} = - _omitNulls - [ "apiVersion" .= v1VolumeAttachmentListApiVersion - , "items" .= v1VolumeAttachmentListItems - , "kind" .= v1VolumeAttachmentListKind - , "metadata" .= v1VolumeAttachmentListMetadata - ] - - --- | Construct a value of type 'V1VolumeAttachmentList' (by applying it's required fields, if any) -mkV1VolumeAttachmentList - :: [V1VolumeAttachment] -- ^ 'v1VolumeAttachmentListItems': Items is the list of VolumeAttachments - -> V1VolumeAttachmentList -mkV1VolumeAttachmentList v1VolumeAttachmentListItems = - V1VolumeAttachmentList - { v1VolumeAttachmentListApiVersion = Nothing - , v1VolumeAttachmentListItems - , v1VolumeAttachmentListKind = Nothing - , v1VolumeAttachmentListMetadata = Nothing - } - --- ** V1VolumeAttachmentSource --- | V1VolumeAttachmentSource --- VolumeAttachmentSource represents a volume that should be attached. Right now only PersistenVolumes can be attached via external attacher, in future we may allow also inline volumes in pods. Exactly one member can be set. -data V1VolumeAttachmentSource = V1VolumeAttachmentSource - { v1VolumeAttachmentSourceInlineVolumeSpec :: !(Maybe V1PersistentVolumeSpec) -- ^ "inlineVolumeSpec" - , v1VolumeAttachmentSourcePersistentVolumeName :: !(Maybe Text) -- ^ "persistentVolumeName" - Name of the persistent volume to attach. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeAttachmentSource -instance A.FromJSON V1VolumeAttachmentSource where - parseJSON = A.withObject "V1VolumeAttachmentSource" $ \o -> - V1VolumeAttachmentSource - <$> (o .:? "inlineVolumeSpec") - <*> (o .:? "persistentVolumeName") - --- | ToJSON V1VolumeAttachmentSource -instance A.ToJSON V1VolumeAttachmentSource where - toJSON V1VolumeAttachmentSource {..} = - _omitNulls - [ "inlineVolumeSpec" .= v1VolumeAttachmentSourceInlineVolumeSpec - , "persistentVolumeName" .= v1VolumeAttachmentSourcePersistentVolumeName - ] - - --- | Construct a value of type 'V1VolumeAttachmentSource' (by applying it's required fields, if any) -mkV1VolumeAttachmentSource - :: V1VolumeAttachmentSource -mkV1VolumeAttachmentSource = - V1VolumeAttachmentSource - { v1VolumeAttachmentSourceInlineVolumeSpec = Nothing - , v1VolumeAttachmentSourcePersistentVolumeName = Nothing - } - --- ** V1VolumeAttachmentSpec --- | V1VolumeAttachmentSpec --- VolumeAttachmentSpec is the specification of a VolumeAttachment request. -data V1VolumeAttachmentSpec = V1VolumeAttachmentSpec - { v1VolumeAttachmentSpecAttacher :: !(Text) -- ^ /Required/ "attacher" - Attacher indicates the name of the volume driver that MUST handle this request. This is the name returned by GetPluginName(). - , v1VolumeAttachmentSpecNodeName :: !(Text) -- ^ /Required/ "nodeName" - The node that the volume should be attached to. - , v1VolumeAttachmentSpecSource :: !(V1VolumeAttachmentSource) -- ^ /Required/ "source" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeAttachmentSpec -instance A.FromJSON V1VolumeAttachmentSpec where - parseJSON = A.withObject "V1VolumeAttachmentSpec" $ \o -> - V1VolumeAttachmentSpec - <$> (o .: "attacher") - <*> (o .: "nodeName") - <*> (o .: "source") - --- | ToJSON V1VolumeAttachmentSpec -instance A.ToJSON V1VolumeAttachmentSpec where - toJSON V1VolumeAttachmentSpec {..} = - _omitNulls - [ "attacher" .= v1VolumeAttachmentSpecAttacher - , "nodeName" .= v1VolumeAttachmentSpecNodeName - , "source" .= v1VolumeAttachmentSpecSource - ] - - --- | Construct a value of type 'V1VolumeAttachmentSpec' (by applying it's required fields, if any) -mkV1VolumeAttachmentSpec - :: Text -- ^ 'v1VolumeAttachmentSpecAttacher': Attacher indicates the name of the volume driver that MUST handle this request. This is the name returned by GetPluginName(). - -> Text -- ^ 'v1VolumeAttachmentSpecNodeName': The node that the volume should be attached to. - -> V1VolumeAttachmentSource -- ^ 'v1VolumeAttachmentSpecSource' - -> V1VolumeAttachmentSpec -mkV1VolumeAttachmentSpec v1VolumeAttachmentSpecAttacher v1VolumeAttachmentSpecNodeName v1VolumeAttachmentSpecSource = - V1VolumeAttachmentSpec - { v1VolumeAttachmentSpecAttacher - , v1VolumeAttachmentSpecNodeName - , v1VolumeAttachmentSpecSource - } - --- ** V1VolumeAttachmentStatus --- | V1VolumeAttachmentStatus --- VolumeAttachmentStatus is the status of a VolumeAttachment request. -data V1VolumeAttachmentStatus = V1VolumeAttachmentStatus - { v1VolumeAttachmentStatusAttachError :: !(Maybe V1VolumeError) -- ^ "attachError" - , v1VolumeAttachmentStatusAttached :: !(Bool) -- ^ /Required/ "attached" - Indicates the volume is successfully attached. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. - , v1VolumeAttachmentStatusAttachmentMetadata :: !(Maybe (Map.Map String Text)) -- ^ "attachmentMetadata" - Upon successful attach, this field is populated with any information returned by the attach operation that must be passed into subsequent WaitForAttach or Mount calls. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. - , v1VolumeAttachmentStatusDetachError :: !(Maybe V1VolumeError) -- ^ "detachError" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeAttachmentStatus -instance A.FromJSON V1VolumeAttachmentStatus where - parseJSON = A.withObject "V1VolumeAttachmentStatus" $ \o -> - V1VolumeAttachmentStatus - <$> (o .:? "attachError") - <*> (o .: "attached") - <*> (o .:? "attachmentMetadata") - <*> (o .:? "detachError") - --- | ToJSON V1VolumeAttachmentStatus -instance A.ToJSON V1VolumeAttachmentStatus where - toJSON V1VolumeAttachmentStatus {..} = - _omitNulls - [ "attachError" .= v1VolumeAttachmentStatusAttachError - , "attached" .= v1VolumeAttachmentStatusAttached - , "attachmentMetadata" .= v1VolumeAttachmentStatusAttachmentMetadata - , "detachError" .= v1VolumeAttachmentStatusDetachError - ] - - --- | Construct a value of type 'V1VolumeAttachmentStatus' (by applying it's required fields, if any) -mkV1VolumeAttachmentStatus - :: Bool -- ^ 'v1VolumeAttachmentStatusAttached': Indicates the volume is successfully attached. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. - -> V1VolumeAttachmentStatus -mkV1VolumeAttachmentStatus v1VolumeAttachmentStatusAttached = - V1VolumeAttachmentStatus - { v1VolumeAttachmentStatusAttachError = Nothing - , v1VolumeAttachmentStatusAttached - , v1VolumeAttachmentStatusAttachmentMetadata = Nothing - , v1VolumeAttachmentStatusDetachError = Nothing - } - --- ** V1VolumeDevice --- | V1VolumeDevice --- volumeDevice describes a mapping of a raw block device within a container. -data V1VolumeDevice = V1VolumeDevice - { v1VolumeDeviceDevicePath :: !(Text) -- ^ /Required/ "devicePath" - devicePath is the path inside of the container that the device will be mapped to. - , v1VolumeDeviceName :: !(Text) -- ^ /Required/ "name" - name must match the name of a persistentVolumeClaim in the pod - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeDevice -instance A.FromJSON V1VolumeDevice where - parseJSON = A.withObject "V1VolumeDevice" $ \o -> - V1VolumeDevice - <$> (o .: "devicePath") - <*> (o .: "name") - --- | ToJSON V1VolumeDevice -instance A.ToJSON V1VolumeDevice where - toJSON V1VolumeDevice {..} = - _omitNulls - [ "devicePath" .= v1VolumeDeviceDevicePath - , "name" .= v1VolumeDeviceName - ] - - --- | Construct a value of type 'V1VolumeDevice' (by applying it's required fields, if any) -mkV1VolumeDevice - :: Text -- ^ 'v1VolumeDeviceDevicePath': devicePath is the path inside of the container that the device will be mapped to. - -> Text -- ^ 'v1VolumeDeviceName': name must match the name of a persistentVolumeClaim in the pod - -> V1VolumeDevice -mkV1VolumeDevice v1VolumeDeviceDevicePath v1VolumeDeviceName = - V1VolumeDevice - { v1VolumeDeviceDevicePath - , v1VolumeDeviceName - } - --- ** V1VolumeError --- | V1VolumeError --- VolumeError captures an error encountered during a volume operation. -data V1VolumeError = V1VolumeError - { v1VolumeErrorMessage :: !(Maybe Text) -- ^ "message" - String detailing the error encountered during Attach or Detach operation. This string may be logged, so it should not contain sensitive information. - , v1VolumeErrorTime :: !(Maybe DateTime) -- ^ "time" - Time the error was encountered. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeError -instance A.FromJSON V1VolumeError where - parseJSON = A.withObject "V1VolumeError" $ \o -> - V1VolumeError - <$> (o .:? "message") - <*> (o .:? "time") - --- | ToJSON V1VolumeError -instance A.ToJSON V1VolumeError where - toJSON V1VolumeError {..} = - _omitNulls - [ "message" .= v1VolumeErrorMessage - , "time" .= v1VolumeErrorTime - ] - - --- | Construct a value of type 'V1VolumeError' (by applying it's required fields, if any) -mkV1VolumeError - :: V1VolumeError -mkV1VolumeError = - V1VolumeError - { v1VolumeErrorMessage = Nothing - , v1VolumeErrorTime = Nothing - } - --- ** V1VolumeMount --- | V1VolumeMount --- VolumeMount describes a mounting of a Volume within a container. -data V1VolumeMount = V1VolumeMount - { v1VolumeMountMountPath :: !(Text) -- ^ /Required/ "mountPath" - Path within the container at which the volume should be mounted. Must not contain ':'. - , v1VolumeMountMountPropagation :: !(Maybe Text) -- ^ "mountPropagation" - mountPropagation determines how mounts are propagated from the host to container and the other way around. When not set, MountPropagationNone is used. This field is beta in 1.10. - , v1VolumeMountName :: !(Text) -- ^ /Required/ "name" - This must match the Name of a Volume. - , v1VolumeMountReadOnly :: !(Maybe Bool) -- ^ "readOnly" - Mounted read-only if true, read-write otherwise (false or unspecified). Defaults to false. - , v1VolumeMountSubPath :: !(Maybe Text) -- ^ "subPath" - Path within the volume from which the container's volume should be mounted. Defaults to \"\" (volume's root). - , v1VolumeMountSubPathExpr :: !(Maybe Text) -- ^ "subPathExpr" - Expanded path within the volume from which the container's volume should be mounted. Behaves similarly to SubPath but environment variable references $(VAR_NAME) are expanded using the container's environment. Defaults to \"\" (volume's root). SubPathExpr and SubPath are mutually exclusive. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeMount -instance A.FromJSON V1VolumeMount where - parseJSON = A.withObject "V1VolumeMount" $ \o -> - V1VolumeMount - <$> (o .: "mountPath") - <*> (o .:? "mountPropagation") - <*> (o .: "name") - <*> (o .:? "readOnly") - <*> (o .:? "subPath") - <*> (o .:? "subPathExpr") - --- | ToJSON V1VolumeMount -instance A.ToJSON V1VolumeMount where - toJSON V1VolumeMount {..} = - _omitNulls - [ "mountPath" .= v1VolumeMountMountPath - , "mountPropagation" .= v1VolumeMountMountPropagation - , "name" .= v1VolumeMountName - , "readOnly" .= v1VolumeMountReadOnly - , "subPath" .= v1VolumeMountSubPath - , "subPathExpr" .= v1VolumeMountSubPathExpr - ] - - --- | Construct a value of type 'V1VolumeMount' (by applying it's required fields, if any) -mkV1VolumeMount - :: Text -- ^ 'v1VolumeMountMountPath': Path within the container at which the volume should be mounted. Must not contain ':'. - -> Text -- ^ 'v1VolumeMountName': This must match the Name of a Volume. - -> V1VolumeMount -mkV1VolumeMount v1VolumeMountMountPath v1VolumeMountName = - V1VolumeMount - { v1VolumeMountMountPath - , v1VolumeMountMountPropagation = Nothing - , v1VolumeMountName - , v1VolumeMountReadOnly = Nothing - , v1VolumeMountSubPath = Nothing - , v1VolumeMountSubPathExpr = Nothing - } - --- ** V1VolumeNodeAffinity --- | V1VolumeNodeAffinity --- VolumeNodeAffinity defines constraints that limit what nodes this volume can be accessed from. -data V1VolumeNodeAffinity = V1VolumeNodeAffinity - { v1VolumeNodeAffinityRequired :: !(Maybe V1NodeSelector) -- ^ "required" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeNodeAffinity -instance A.FromJSON V1VolumeNodeAffinity where - parseJSON = A.withObject "V1VolumeNodeAffinity" $ \o -> - V1VolumeNodeAffinity - <$> (o .:? "required") - --- | ToJSON V1VolumeNodeAffinity -instance A.ToJSON V1VolumeNodeAffinity where - toJSON V1VolumeNodeAffinity {..} = - _omitNulls - [ "required" .= v1VolumeNodeAffinityRequired - ] - - --- | Construct a value of type 'V1VolumeNodeAffinity' (by applying it's required fields, if any) -mkV1VolumeNodeAffinity - :: V1VolumeNodeAffinity -mkV1VolumeNodeAffinity = - V1VolumeNodeAffinity - { v1VolumeNodeAffinityRequired = Nothing - } - --- ** V1VolumeNodeResources --- | V1VolumeNodeResources --- VolumeNodeResources is a set of resource limits for scheduling of volumes. -data V1VolumeNodeResources = V1VolumeNodeResources - { v1VolumeNodeResourcesCount :: !(Maybe Int) -- ^ "count" - Maximum number of unique volumes managed by the CSI driver that can be used on a node. A volume that is both attached and mounted on a node is considered to be used once, not twice. The same rule applies for a unique volume that is shared among multiple pods on the same node. If this field is not specified, then the supported number of volumes on this node is unbounded. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeNodeResources -instance A.FromJSON V1VolumeNodeResources where - parseJSON = A.withObject "V1VolumeNodeResources" $ \o -> - V1VolumeNodeResources - <$> (o .:? "count") - --- | ToJSON V1VolumeNodeResources -instance A.ToJSON V1VolumeNodeResources where - toJSON V1VolumeNodeResources {..} = - _omitNulls - [ "count" .= v1VolumeNodeResourcesCount - ] - - --- | Construct a value of type 'V1VolumeNodeResources' (by applying it's required fields, if any) -mkV1VolumeNodeResources - :: V1VolumeNodeResources -mkV1VolumeNodeResources = - V1VolumeNodeResources - { v1VolumeNodeResourcesCount = Nothing - } - --- ** V1VolumeProjection --- | V1VolumeProjection --- Projection that may be projected along with other supported volume types -data V1VolumeProjection = V1VolumeProjection - { v1VolumeProjectionConfigMap :: !(Maybe V1ConfigMapProjection) -- ^ "configMap" - , v1VolumeProjectionDownwardApi :: !(Maybe V1DownwardAPIProjection) -- ^ "downwardAPI" - , v1VolumeProjectionSecret :: !(Maybe V1SecretProjection) -- ^ "secret" - , v1VolumeProjectionServiceAccountToken :: !(Maybe V1ServiceAccountTokenProjection) -- ^ "serviceAccountToken" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VolumeProjection -instance A.FromJSON V1VolumeProjection where - parseJSON = A.withObject "V1VolumeProjection" $ \o -> - V1VolumeProjection - <$> (o .:? "configMap") - <*> (o .:? "downwardAPI") - <*> (o .:? "secret") - <*> (o .:? "serviceAccountToken") - --- | ToJSON V1VolumeProjection -instance A.ToJSON V1VolumeProjection where - toJSON V1VolumeProjection {..} = - _omitNulls - [ "configMap" .= v1VolumeProjectionConfigMap - , "downwardAPI" .= v1VolumeProjectionDownwardApi - , "secret" .= v1VolumeProjectionSecret - , "serviceAccountToken" .= v1VolumeProjectionServiceAccountToken - ] - - --- | Construct a value of type 'V1VolumeProjection' (by applying it's required fields, if any) -mkV1VolumeProjection - :: V1VolumeProjection -mkV1VolumeProjection = - V1VolumeProjection - { v1VolumeProjectionConfigMap = Nothing - , v1VolumeProjectionDownwardApi = Nothing - , v1VolumeProjectionSecret = Nothing - , v1VolumeProjectionServiceAccountToken = Nothing - } - --- ** V1VsphereVirtualDiskVolumeSource --- | V1VsphereVirtualDiskVolumeSource --- Represents a vSphere volume resource. -data V1VsphereVirtualDiskVolumeSource = V1VsphereVirtualDiskVolumeSource - { v1VsphereVirtualDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. - , v1VsphereVirtualDiskVolumeSourceStoragePolicyId :: !(Maybe Text) -- ^ "storagePolicyID" - storagePolicyID is the storage Policy Based Management (SPBM) profile ID associated with the StoragePolicyName. - , v1VsphereVirtualDiskVolumeSourceStoragePolicyName :: !(Maybe Text) -- ^ "storagePolicyName" - storagePolicyName is the storage Policy Based Management (SPBM) profile name. - , v1VsphereVirtualDiskVolumeSourceVolumePath :: !(Text) -- ^ /Required/ "volumePath" - volumePath is the path that identifies vSphere volume vmdk - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1VsphereVirtualDiskVolumeSource -instance A.FromJSON V1VsphereVirtualDiskVolumeSource where - parseJSON = A.withObject "V1VsphereVirtualDiskVolumeSource" $ \o -> - V1VsphereVirtualDiskVolumeSource - <$> (o .:? "fsType") - <*> (o .:? "storagePolicyID") - <*> (o .:? "storagePolicyName") - <*> (o .: "volumePath") - --- | ToJSON V1VsphereVirtualDiskVolumeSource -instance A.ToJSON V1VsphereVirtualDiskVolumeSource where - toJSON V1VsphereVirtualDiskVolumeSource {..} = - _omitNulls - [ "fsType" .= v1VsphereVirtualDiskVolumeSourceFsType - , "storagePolicyID" .= v1VsphereVirtualDiskVolumeSourceStoragePolicyId - , "storagePolicyName" .= v1VsphereVirtualDiskVolumeSourceStoragePolicyName - , "volumePath" .= v1VsphereVirtualDiskVolumeSourceVolumePath - ] - - --- | Construct a value of type 'V1VsphereVirtualDiskVolumeSource' (by applying it's required fields, if any) -mkV1VsphereVirtualDiskVolumeSource - :: Text -- ^ 'v1VsphereVirtualDiskVolumeSourceVolumePath': volumePath is the path that identifies vSphere volume vmdk - -> V1VsphereVirtualDiskVolumeSource -mkV1VsphereVirtualDiskVolumeSource v1VsphereVirtualDiskVolumeSourceVolumePath = - V1VsphereVirtualDiskVolumeSource - { v1VsphereVirtualDiskVolumeSourceFsType = Nothing - , v1VsphereVirtualDiskVolumeSourceStoragePolicyId = Nothing - , v1VsphereVirtualDiskVolumeSourceStoragePolicyName = Nothing - , v1VsphereVirtualDiskVolumeSourceVolumePath - } - --- ** V1WatchEvent --- | V1WatchEvent --- Event represents a single event to a watched resource. -data V1WatchEvent = V1WatchEvent - { v1WatchEventObject :: !(A.Value) -- ^ /Required/ "object" - Object is: * If Type is Added or Modified: the new state of the object. * If Type is Deleted: the state of the object immediately before deletion. * If Type is Error: *Status is recommended; other types may make sense depending on context. - , v1WatchEventType :: !(Text) -- ^ /Required/ "type" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1WatchEvent -instance A.FromJSON V1WatchEvent where - parseJSON = A.withObject "V1WatchEvent" $ \o -> - V1WatchEvent - <$> (o .: "object") - <*> (o .: "type") - --- | ToJSON V1WatchEvent -instance A.ToJSON V1WatchEvent where - toJSON V1WatchEvent {..} = - _omitNulls - [ "object" .= v1WatchEventObject - , "type" .= v1WatchEventType - ] - - --- | Construct a value of type 'V1WatchEvent' (by applying it's required fields, if any) -mkV1WatchEvent - :: A.Value -- ^ 'v1WatchEventObject': Object is: * If Type is Added or Modified: the new state of the object. * If Type is Deleted: the state of the object immediately before deletion. * If Type is Error: *Status is recommended; other types may make sense depending on context. - -> Text -- ^ 'v1WatchEventType' - -> V1WatchEvent -mkV1WatchEvent v1WatchEventObject v1WatchEventType = - V1WatchEvent - { v1WatchEventObject - , v1WatchEventType - } - --- ** V1WebhookConversion --- | V1WebhookConversion --- WebhookConversion describes how to call a conversion webhook -data V1WebhookConversion = V1WebhookConversion - { v1WebhookConversionClientConfig :: !(Maybe ApiextensionsV1WebhookClientConfig) -- ^ "clientConfig" - , v1WebhookConversionConversionReviewVersions :: !([Text]) -- ^ /Required/ "conversionReviewVersions" - conversionReviewVersions is an ordered list of preferred `ConversionReview` versions the Webhook expects. The API server will use the first version in the list which it supports. If none of the versions specified in this list are supported by API server, conversion will fail for the custom resource. If a persisted Webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1WebhookConversion -instance A.FromJSON V1WebhookConversion where - parseJSON = A.withObject "V1WebhookConversion" $ \o -> - V1WebhookConversion - <$> (o .:? "clientConfig") - <*> (o .: "conversionReviewVersions") - --- | ToJSON V1WebhookConversion -instance A.ToJSON V1WebhookConversion where - toJSON V1WebhookConversion {..} = - _omitNulls - [ "clientConfig" .= v1WebhookConversionClientConfig - , "conversionReviewVersions" .= v1WebhookConversionConversionReviewVersions - ] - - --- | Construct a value of type 'V1WebhookConversion' (by applying it's required fields, if any) -mkV1WebhookConversion - :: [Text] -- ^ 'v1WebhookConversionConversionReviewVersions': conversionReviewVersions is an ordered list of preferred `ConversionReview` versions the Webhook expects. The API server will use the first version in the list which it supports. If none of the versions specified in this list are supported by API server, conversion will fail for the custom resource. If a persisted Webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail. - -> V1WebhookConversion -mkV1WebhookConversion v1WebhookConversionConversionReviewVersions = - V1WebhookConversion - { v1WebhookConversionClientConfig = Nothing - , v1WebhookConversionConversionReviewVersions - } - --- ** V1WeightedPodAffinityTerm --- | V1WeightedPodAffinityTerm --- The weights of all of the matched WeightedPodAffinityTerm fields are added per-node to find the most preferred node(s) -data V1WeightedPodAffinityTerm = V1WeightedPodAffinityTerm - { v1WeightedPodAffinityTermPodAffinityTerm :: !(V1PodAffinityTerm) -- ^ /Required/ "podAffinityTerm" - , v1WeightedPodAffinityTermWeight :: !(Int) -- ^ /Required/ "weight" - weight associated with matching the corresponding podAffinityTerm, in the range 1-100. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1WeightedPodAffinityTerm -instance A.FromJSON V1WeightedPodAffinityTerm where - parseJSON = A.withObject "V1WeightedPodAffinityTerm" $ \o -> - V1WeightedPodAffinityTerm - <$> (o .: "podAffinityTerm") - <*> (o .: "weight") - --- | ToJSON V1WeightedPodAffinityTerm -instance A.ToJSON V1WeightedPodAffinityTerm where - toJSON V1WeightedPodAffinityTerm {..} = - _omitNulls - [ "podAffinityTerm" .= v1WeightedPodAffinityTermPodAffinityTerm - , "weight" .= v1WeightedPodAffinityTermWeight - ] - - --- | Construct a value of type 'V1WeightedPodAffinityTerm' (by applying it's required fields, if any) -mkV1WeightedPodAffinityTerm - :: V1PodAffinityTerm -- ^ 'v1WeightedPodAffinityTermPodAffinityTerm' - -> Int -- ^ 'v1WeightedPodAffinityTermWeight': weight associated with matching the corresponding podAffinityTerm, in the range 1-100. - -> V1WeightedPodAffinityTerm -mkV1WeightedPodAffinityTerm v1WeightedPodAffinityTermPodAffinityTerm v1WeightedPodAffinityTermWeight = - V1WeightedPodAffinityTerm - { v1WeightedPodAffinityTermPodAffinityTerm - , v1WeightedPodAffinityTermWeight - } - --- ** V1WindowsSecurityContextOptions --- | V1WindowsSecurityContextOptions --- WindowsSecurityContextOptions contain Windows-specific options and credentials. -data V1WindowsSecurityContextOptions = V1WindowsSecurityContextOptions - { v1WindowsSecurityContextOptionsGmsaCredentialSpec :: !(Maybe Text) -- ^ "gmsaCredentialSpec" - GMSACredentialSpec is where the GMSA admission webhook (https://github.com/kubernetes-sigs/windows-gmsa) inlines the contents of the GMSA credential spec named by the GMSACredentialSpecName field. - , v1WindowsSecurityContextOptionsGmsaCredentialSpecName :: !(Maybe Text) -- ^ "gmsaCredentialSpecName" - GMSACredentialSpecName is the name of the GMSA credential spec to use. - , v1WindowsSecurityContextOptionsHostProcess :: !(Maybe Bool) -- ^ "hostProcess" - HostProcess determines if a container should be run as a 'Host Process' container. This field is alpha-level and will only be honored by components that enable the WindowsHostProcessContainers feature flag. Setting this field without the feature flag will result in errors when validating the Pod. All of a Pod's containers must have the same effective HostProcess value (it is not allowed to have a mix of HostProcess containers and non-HostProcess containers). In addition, if HostProcess is true then HostNetwork must also be set to true. - , v1WindowsSecurityContextOptionsRunAsUserName :: !(Maybe Text) -- ^ "runAsUserName" - The UserName in Windows to run the entrypoint of the container process. Defaults to the user specified in image metadata if unspecified. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1WindowsSecurityContextOptions -instance A.FromJSON V1WindowsSecurityContextOptions where - parseJSON = A.withObject "V1WindowsSecurityContextOptions" $ \o -> - V1WindowsSecurityContextOptions - <$> (o .:? "gmsaCredentialSpec") - <*> (o .:? "gmsaCredentialSpecName") - <*> (o .:? "hostProcess") - <*> (o .:? "runAsUserName") - --- | ToJSON V1WindowsSecurityContextOptions -instance A.ToJSON V1WindowsSecurityContextOptions where - toJSON V1WindowsSecurityContextOptions {..} = - _omitNulls - [ "gmsaCredentialSpec" .= v1WindowsSecurityContextOptionsGmsaCredentialSpec - , "gmsaCredentialSpecName" .= v1WindowsSecurityContextOptionsGmsaCredentialSpecName - , "hostProcess" .= v1WindowsSecurityContextOptionsHostProcess - , "runAsUserName" .= v1WindowsSecurityContextOptionsRunAsUserName - ] - - --- | Construct a value of type 'V1WindowsSecurityContextOptions' (by applying it's required fields, if any) -mkV1WindowsSecurityContextOptions - :: V1WindowsSecurityContextOptions -mkV1WindowsSecurityContextOptions = - V1WindowsSecurityContextOptions - { v1WindowsSecurityContextOptionsGmsaCredentialSpec = Nothing - , v1WindowsSecurityContextOptionsGmsaCredentialSpecName = Nothing - , v1WindowsSecurityContextOptionsHostProcess = Nothing - , v1WindowsSecurityContextOptionsRunAsUserName = Nothing - } - --- ** V1alpha1AllocationResult --- | V1alpha1AllocationResult --- AllocationResult contains attributed of an allocated resource. -data V1alpha1AllocationResult = V1alpha1AllocationResult - { v1alpha1AllocationResultAvailableOnNodes :: !(Maybe V1NodeSelector) -- ^ "availableOnNodes" - , v1alpha1AllocationResultResourceHandle :: !(Maybe Text) -- ^ "resourceHandle" - ResourceHandle contains arbitrary data returned by the driver after a successful allocation. This is opaque for Kubernetes. Driver documentation may explain to users how to interpret this data if needed. The maximum size of this field is 16KiB. This may get increased in the future, but not reduced. - , v1alpha1AllocationResultShareable :: !(Maybe Bool) -- ^ "shareable" - Shareable determines whether the resource supports more than one consumer at a time. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1AllocationResult -instance A.FromJSON V1alpha1AllocationResult where - parseJSON = A.withObject "V1alpha1AllocationResult" $ \o -> - V1alpha1AllocationResult - <$> (o .:? "availableOnNodes") - <*> (o .:? "resourceHandle") - <*> (o .:? "shareable") - --- | ToJSON V1alpha1AllocationResult -instance A.ToJSON V1alpha1AllocationResult where - toJSON V1alpha1AllocationResult {..} = - _omitNulls - [ "availableOnNodes" .= v1alpha1AllocationResultAvailableOnNodes - , "resourceHandle" .= v1alpha1AllocationResultResourceHandle - , "shareable" .= v1alpha1AllocationResultShareable - ] - - --- | Construct a value of type 'V1alpha1AllocationResult' (by applying it's required fields, if any) -mkV1alpha1AllocationResult - :: V1alpha1AllocationResult -mkV1alpha1AllocationResult = - V1alpha1AllocationResult - { v1alpha1AllocationResultAvailableOnNodes = Nothing - , v1alpha1AllocationResultResourceHandle = Nothing - , v1alpha1AllocationResultShareable = Nothing - } - --- ** V1alpha1ClusterCIDR --- | V1alpha1ClusterCIDR --- ClusterCIDR represents a single configuration for per-Node Pod CIDR allocations when the MultiCIDRRangeAllocator is enabled (see the config for kube-controller-manager). A cluster may have any number of ClusterCIDR resources, all of which will be considered when allocating a CIDR for a Node. A ClusterCIDR is eligible to be used for a given Node when the node selector matches the node in question and has free CIDRs to allocate. In case of multiple matching ClusterCIDR resources, the allocator will attempt to break ties using internal heuristics, but any ClusterCIDR whose node selector matches the Node may be used. -data V1alpha1ClusterCIDR = V1alpha1ClusterCIDR - { v1alpha1ClusterCIDRApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ClusterCIDRKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ClusterCIDRMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ClusterCIDRSpec :: !(Maybe V1alpha1ClusterCIDRSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ClusterCIDR -instance A.FromJSON V1alpha1ClusterCIDR where - parseJSON = A.withObject "V1alpha1ClusterCIDR" $ \o -> - V1alpha1ClusterCIDR - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1alpha1ClusterCIDR -instance A.ToJSON V1alpha1ClusterCIDR where - toJSON V1alpha1ClusterCIDR {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ClusterCIDRApiVersion - , "kind" .= v1alpha1ClusterCIDRKind - , "metadata" .= v1alpha1ClusterCIDRMetadata - , "spec" .= v1alpha1ClusterCIDRSpec - ] - - --- | Construct a value of type 'V1alpha1ClusterCIDR' (by applying it's required fields, if any) -mkV1alpha1ClusterCIDR - :: V1alpha1ClusterCIDR -mkV1alpha1ClusterCIDR = - V1alpha1ClusterCIDR - { v1alpha1ClusterCIDRApiVersion = Nothing - , v1alpha1ClusterCIDRKind = Nothing - , v1alpha1ClusterCIDRMetadata = Nothing - , v1alpha1ClusterCIDRSpec = Nothing - } - --- ** V1alpha1ClusterCIDRList --- | V1alpha1ClusterCIDRList --- ClusterCIDRList contains a list of ClusterCIDR. -data V1alpha1ClusterCIDRList = V1alpha1ClusterCIDRList - { v1alpha1ClusterCIDRListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ClusterCIDRListItems :: !([V1alpha1ClusterCIDR]) -- ^ /Required/ "items" - Items is the list of ClusterCIDRs. - , v1alpha1ClusterCIDRListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ClusterCIDRListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ClusterCIDRList -instance A.FromJSON V1alpha1ClusterCIDRList where - parseJSON = A.withObject "V1alpha1ClusterCIDRList" $ \o -> - V1alpha1ClusterCIDRList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ClusterCIDRList -instance A.ToJSON V1alpha1ClusterCIDRList where - toJSON V1alpha1ClusterCIDRList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ClusterCIDRListApiVersion - , "items" .= v1alpha1ClusterCIDRListItems - , "kind" .= v1alpha1ClusterCIDRListKind - , "metadata" .= v1alpha1ClusterCIDRListMetadata - ] - - --- | Construct a value of type 'V1alpha1ClusterCIDRList' (by applying it's required fields, if any) -mkV1alpha1ClusterCIDRList - :: [V1alpha1ClusterCIDR] -- ^ 'v1alpha1ClusterCIDRListItems': Items is the list of ClusterCIDRs. - -> V1alpha1ClusterCIDRList -mkV1alpha1ClusterCIDRList v1alpha1ClusterCIDRListItems = - V1alpha1ClusterCIDRList - { v1alpha1ClusterCIDRListApiVersion = Nothing - , v1alpha1ClusterCIDRListItems - , v1alpha1ClusterCIDRListKind = Nothing - , v1alpha1ClusterCIDRListMetadata = Nothing - } - --- ** V1alpha1ClusterCIDRSpec --- | V1alpha1ClusterCIDRSpec --- ClusterCIDRSpec defines the desired state of ClusterCIDR. -data V1alpha1ClusterCIDRSpec = V1alpha1ClusterCIDRSpec - { v1alpha1ClusterCIDRSpecIpv4 :: !(Maybe Text) -- ^ "ipv4" - IPv4 defines an IPv4 IP block in CIDR notation(e.g. \"10.0.0.0/8\"). At least one of IPv4 and IPv6 must be specified. This field is immutable. - , v1alpha1ClusterCIDRSpecIpv6 :: !(Maybe Text) -- ^ "ipv6" - IPv6 defines an IPv6 IP block in CIDR notation(e.g. \"2001:db8::/64\"). At least one of IPv4 and IPv6 must be specified. This field is immutable. - , v1alpha1ClusterCIDRSpecNodeSelector :: !(Maybe V1NodeSelector) -- ^ "nodeSelector" - , v1alpha1ClusterCIDRSpecPerNodeHostBits :: !(Int) -- ^ /Required/ "perNodeHostBits" - PerNodeHostBits defines the number of host bits to be configured per node. A subnet mask determines how much of the address is used for network bits and host bits. For example an IPv4 address of 192.168.0.0/24, splits the address into 24 bits for the network portion and 8 bits for the host portion. To allocate 256 IPs, set this field to 8 (a /24 mask for IPv4 or a /120 for IPv6). Minimum value is 4 (16 IPs). This field is immutable. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ClusterCIDRSpec -instance A.FromJSON V1alpha1ClusterCIDRSpec where - parseJSON = A.withObject "V1alpha1ClusterCIDRSpec" $ \o -> - V1alpha1ClusterCIDRSpec - <$> (o .:? "ipv4") - <*> (o .:? "ipv6") - <*> (o .:? "nodeSelector") - <*> (o .: "perNodeHostBits") - --- | ToJSON V1alpha1ClusterCIDRSpec -instance A.ToJSON V1alpha1ClusterCIDRSpec where - toJSON V1alpha1ClusterCIDRSpec {..} = - _omitNulls - [ "ipv4" .= v1alpha1ClusterCIDRSpecIpv4 - , "ipv6" .= v1alpha1ClusterCIDRSpecIpv6 - , "nodeSelector" .= v1alpha1ClusterCIDRSpecNodeSelector - , "perNodeHostBits" .= v1alpha1ClusterCIDRSpecPerNodeHostBits - ] - - --- | Construct a value of type 'V1alpha1ClusterCIDRSpec' (by applying it's required fields, if any) -mkV1alpha1ClusterCIDRSpec - :: Int -- ^ 'v1alpha1ClusterCIDRSpecPerNodeHostBits': PerNodeHostBits defines the number of host bits to be configured per node. A subnet mask determines how much of the address is used for network bits and host bits. For example an IPv4 address of 192.168.0.0/24, splits the address into 24 bits for the network portion and 8 bits for the host portion. To allocate 256 IPs, set this field to 8 (a /24 mask for IPv4 or a /120 for IPv6). Minimum value is 4 (16 IPs). This field is immutable. - -> V1alpha1ClusterCIDRSpec -mkV1alpha1ClusterCIDRSpec v1alpha1ClusterCIDRSpecPerNodeHostBits = - V1alpha1ClusterCIDRSpec - { v1alpha1ClusterCIDRSpecIpv4 = Nothing - , v1alpha1ClusterCIDRSpecIpv6 = Nothing - , v1alpha1ClusterCIDRSpecNodeSelector = Nothing - , v1alpha1ClusterCIDRSpecPerNodeHostBits - } - --- ** V1alpha1MatchResources --- | V1alpha1MatchResources --- MatchResources decides whether to run the admission control policy on an object based on whether it meets the match criteria. The exclude rules take precedence over include rules (if a resource matches both, it is excluded) -data V1alpha1MatchResources = V1alpha1MatchResources - { v1alpha1MatchResourcesExcludeResourceRules :: !(Maybe [V1alpha1NamedRuleWithOperations]) -- ^ "excludeResourceRules" - ExcludeResourceRules describes what operations on what resources/subresources the ValidatingAdmissionPolicy should not care about. The exclude rules take precedence over include rules (if a resource matches both, it is excluded) - , v1alpha1MatchResourcesMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"MatchResources\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the ValidatingAdmissionPolicy. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the ValidatingAdmissionPolicy. Defaults to \"Equivalent\" - , v1alpha1MatchResourcesNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" - , v1alpha1MatchResourcesObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" - , v1alpha1MatchResourcesResourceRules :: !(Maybe [V1alpha1NamedRuleWithOperations]) -- ^ "resourceRules" - ResourceRules describes what operations on what resources/subresources the ValidatingAdmissionPolicy matches. The policy cares about an operation if it matches _any_ Rule. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1MatchResources -instance A.FromJSON V1alpha1MatchResources where - parseJSON = A.withObject "V1alpha1MatchResources" $ \o -> - V1alpha1MatchResources - <$> (o .:? "excludeResourceRules") - <*> (o .:? "matchPolicy") - <*> (o .:? "namespaceSelector") - <*> (o .:? "objectSelector") - <*> (o .:? "resourceRules") - --- | ToJSON V1alpha1MatchResources -instance A.ToJSON V1alpha1MatchResources where - toJSON V1alpha1MatchResources {..} = - _omitNulls - [ "excludeResourceRules" .= v1alpha1MatchResourcesExcludeResourceRules - , "matchPolicy" .= v1alpha1MatchResourcesMatchPolicy - , "namespaceSelector" .= v1alpha1MatchResourcesNamespaceSelector - , "objectSelector" .= v1alpha1MatchResourcesObjectSelector - , "resourceRules" .= v1alpha1MatchResourcesResourceRules - ] - - --- | Construct a value of type 'V1alpha1MatchResources' (by applying it's required fields, if any) -mkV1alpha1MatchResources - :: V1alpha1MatchResources -mkV1alpha1MatchResources = - V1alpha1MatchResources - { v1alpha1MatchResourcesExcludeResourceRules = Nothing - , v1alpha1MatchResourcesMatchPolicy = Nothing - , v1alpha1MatchResourcesNamespaceSelector = Nothing - , v1alpha1MatchResourcesObjectSelector = Nothing - , v1alpha1MatchResourcesResourceRules = Nothing - } - --- ** V1alpha1NamedRuleWithOperations --- | V1alpha1NamedRuleWithOperations --- NamedRuleWithOperations is a tuple of Operations and Resources with ResourceNames. -data V1alpha1NamedRuleWithOperations = V1alpha1NamedRuleWithOperations - { v1alpha1NamedRuleWithOperationsApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the API groups the resources belong to. '*' is all groups. If '*' is present, the length of the slice must be one. Required. - , v1alpha1NamedRuleWithOperationsApiVersions :: !(Maybe [Text]) -- ^ "apiVersions" - APIVersions is the API versions the resources belong to. '*' is all versions. If '*' is present, the length of the slice must be one. Required. - , v1alpha1NamedRuleWithOperationsOperations :: !(Maybe [Text]) -- ^ "operations" - Operations is the operations the admission hook cares about - CREATE, UPDATE, DELETE, CONNECT or * for all of those operations and any future admission operations that are added. If '*' is present, the length of the slice must be one. Required. - , v1alpha1NamedRuleWithOperationsResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. - , v1alpha1NamedRuleWithOperationsResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. For example: 'pods' means pods. 'pods/log' means the log subresource of pods. '*' means all resources, but not subresources. 'pods/*' means all subresources of pods. '*/scale' means all scale subresources. '*/*' means all resources and their subresources. If wildcard is present, the validation rule will ensure resources do not overlap with each other. Depending on the enclosing object, subresources might not be allowed. Required. - , v1alpha1NamedRuleWithOperationsScope :: !(Maybe Text) -- ^ "scope" - scope specifies the scope of this rule. Valid values are \"Cluster\", \"Namespaced\", and \"*\" \"Cluster\" means that only cluster-scoped resources will match this rule. Namespace API objects are cluster-scoped. \"Namespaced\" means that only namespaced resources will match this rule. \"*\" means that there are no scope restrictions. Subresources match the scope of their parent resource. Default is \"*\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1NamedRuleWithOperations -instance A.FromJSON V1alpha1NamedRuleWithOperations where - parseJSON = A.withObject "V1alpha1NamedRuleWithOperations" $ \o -> - V1alpha1NamedRuleWithOperations - <$> (o .:? "apiGroups") - <*> (o .:? "apiVersions") - <*> (o .:? "operations") - <*> (o .:? "resourceNames") - <*> (o .:? "resources") - <*> (o .:? "scope") - --- | ToJSON V1alpha1NamedRuleWithOperations -instance A.ToJSON V1alpha1NamedRuleWithOperations where - toJSON V1alpha1NamedRuleWithOperations {..} = - _omitNulls - [ "apiGroups" .= v1alpha1NamedRuleWithOperationsApiGroups - , "apiVersions" .= v1alpha1NamedRuleWithOperationsApiVersions - , "operations" .= v1alpha1NamedRuleWithOperationsOperations - , "resourceNames" .= v1alpha1NamedRuleWithOperationsResourceNames - , "resources" .= v1alpha1NamedRuleWithOperationsResources - , "scope" .= v1alpha1NamedRuleWithOperationsScope - ] - - --- | Construct a value of type 'V1alpha1NamedRuleWithOperations' (by applying it's required fields, if any) -mkV1alpha1NamedRuleWithOperations - :: V1alpha1NamedRuleWithOperations -mkV1alpha1NamedRuleWithOperations = - V1alpha1NamedRuleWithOperations - { v1alpha1NamedRuleWithOperationsApiGroups = Nothing - , v1alpha1NamedRuleWithOperationsApiVersions = Nothing - , v1alpha1NamedRuleWithOperationsOperations = Nothing - , v1alpha1NamedRuleWithOperationsResourceNames = Nothing - , v1alpha1NamedRuleWithOperationsResources = Nothing - , v1alpha1NamedRuleWithOperationsScope = Nothing - } - --- ** V1alpha1ParamKind --- | V1alpha1ParamKind --- ParamKind is a tuple of Group Kind and Version. -data V1alpha1ParamKind = V1alpha1ParamKind - { v1alpha1ParamKindApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion is the API group version the resources belong to. In format of \"group/version\". Required. - , v1alpha1ParamKindKind :: !(Maybe Text) -- ^ "kind" - Kind is the API kind the resources belong to. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ParamKind -instance A.FromJSON V1alpha1ParamKind where - parseJSON = A.withObject "V1alpha1ParamKind" $ \o -> - V1alpha1ParamKind - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - --- | ToJSON V1alpha1ParamKind -instance A.ToJSON V1alpha1ParamKind where - toJSON V1alpha1ParamKind {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ParamKindApiVersion - , "kind" .= v1alpha1ParamKindKind - ] - - --- | Construct a value of type 'V1alpha1ParamKind' (by applying it's required fields, if any) -mkV1alpha1ParamKind - :: V1alpha1ParamKind -mkV1alpha1ParamKind = - V1alpha1ParamKind - { v1alpha1ParamKindApiVersion = Nothing - , v1alpha1ParamKindKind = Nothing - } - --- ** V1alpha1ParamRef --- | V1alpha1ParamRef --- ParamRef references a parameter resource -data V1alpha1ParamRef = V1alpha1ParamRef - { v1alpha1ParamRefName :: !(Maybe Text) -- ^ "name" - Name of the resource being referenced. - , v1alpha1ParamRefNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referenced resource. Should be empty for the cluster-scoped resources - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ParamRef -instance A.FromJSON V1alpha1ParamRef where - parseJSON = A.withObject "V1alpha1ParamRef" $ \o -> - V1alpha1ParamRef - <$> (o .:? "name") - <*> (o .:? "namespace") - --- | ToJSON V1alpha1ParamRef -instance A.ToJSON V1alpha1ParamRef where - toJSON V1alpha1ParamRef {..} = - _omitNulls - [ "name" .= v1alpha1ParamRefName - , "namespace" .= v1alpha1ParamRefNamespace - ] - - --- | Construct a value of type 'V1alpha1ParamRef' (by applying it's required fields, if any) -mkV1alpha1ParamRef - :: V1alpha1ParamRef -mkV1alpha1ParamRef = - V1alpha1ParamRef - { v1alpha1ParamRefName = Nothing - , v1alpha1ParamRefNamespace = Nothing - } - --- ** V1alpha1PodScheduling --- | V1alpha1PodScheduling --- PodScheduling objects hold information that is needed to schedule a Pod with ResourceClaims that use \"WaitForFirstConsumer\" allocation mode. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. -data V1alpha1PodScheduling = V1alpha1PodScheduling - { v1alpha1PodSchedulingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1PodSchedulingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1PodSchedulingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1PodSchedulingSpec :: !(V1alpha1PodSchedulingSpec) -- ^ /Required/ "spec" - , v1alpha1PodSchedulingStatus :: !(Maybe V1alpha1PodSchedulingStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1PodScheduling -instance A.FromJSON V1alpha1PodScheduling where - parseJSON = A.withObject "V1alpha1PodScheduling" $ \o -> - V1alpha1PodScheduling - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1alpha1PodScheduling -instance A.ToJSON V1alpha1PodScheduling where - toJSON V1alpha1PodScheduling {..} = - _omitNulls - [ "apiVersion" .= v1alpha1PodSchedulingApiVersion - , "kind" .= v1alpha1PodSchedulingKind - , "metadata" .= v1alpha1PodSchedulingMetadata - , "spec" .= v1alpha1PodSchedulingSpec - , "status" .= v1alpha1PodSchedulingStatus - ] - - --- | Construct a value of type 'V1alpha1PodScheduling' (by applying it's required fields, if any) -mkV1alpha1PodScheduling - :: V1alpha1PodSchedulingSpec -- ^ 'v1alpha1PodSchedulingSpec' - -> V1alpha1PodScheduling -mkV1alpha1PodScheduling v1alpha1PodSchedulingSpec = - V1alpha1PodScheduling - { v1alpha1PodSchedulingApiVersion = Nothing - , v1alpha1PodSchedulingKind = Nothing - , v1alpha1PodSchedulingMetadata = Nothing - , v1alpha1PodSchedulingSpec - , v1alpha1PodSchedulingStatus = Nothing - } - --- ** V1alpha1PodSchedulingList --- | V1alpha1PodSchedulingList --- PodSchedulingList is a collection of Pod scheduling objects. -data V1alpha1PodSchedulingList = V1alpha1PodSchedulingList - { v1alpha1PodSchedulingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1PodSchedulingListItems :: !([V1alpha1PodScheduling]) -- ^ /Required/ "items" - Items is the list of PodScheduling objects. - , v1alpha1PodSchedulingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1PodSchedulingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1PodSchedulingList -instance A.FromJSON V1alpha1PodSchedulingList where - parseJSON = A.withObject "V1alpha1PodSchedulingList" $ \o -> - V1alpha1PodSchedulingList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1PodSchedulingList -instance A.ToJSON V1alpha1PodSchedulingList where - toJSON V1alpha1PodSchedulingList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1PodSchedulingListApiVersion - , "items" .= v1alpha1PodSchedulingListItems - , "kind" .= v1alpha1PodSchedulingListKind - , "metadata" .= v1alpha1PodSchedulingListMetadata - ] - - --- | Construct a value of type 'V1alpha1PodSchedulingList' (by applying it's required fields, if any) -mkV1alpha1PodSchedulingList - :: [V1alpha1PodScheduling] -- ^ 'v1alpha1PodSchedulingListItems': Items is the list of PodScheduling objects. - -> V1alpha1PodSchedulingList -mkV1alpha1PodSchedulingList v1alpha1PodSchedulingListItems = - V1alpha1PodSchedulingList - { v1alpha1PodSchedulingListApiVersion = Nothing - , v1alpha1PodSchedulingListItems - , v1alpha1PodSchedulingListKind = Nothing - , v1alpha1PodSchedulingListMetadata = Nothing - } - --- ** V1alpha1PodSchedulingSpec --- | V1alpha1PodSchedulingSpec --- PodSchedulingSpec describes where resources for the Pod are needed. -data V1alpha1PodSchedulingSpec = V1alpha1PodSchedulingSpec - { v1alpha1PodSchedulingSpecPotentialNodes :: !(Maybe [Text]) -- ^ "potentialNodes" - PotentialNodes lists nodes where the Pod might be able to run. The size of this field is limited to 128. This is large enough for many clusters. Larger clusters may need more attempts to find a node that suits all pending resources. This may get increased in the future, but not reduced. - , v1alpha1PodSchedulingSpecSelectedNode :: !(Maybe Text) -- ^ "selectedNode" - SelectedNode is the node for which allocation of ResourceClaims that are referenced by the Pod and that use \"WaitForFirstConsumer\" allocation is to be attempted. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1PodSchedulingSpec -instance A.FromJSON V1alpha1PodSchedulingSpec where - parseJSON = A.withObject "V1alpha1PodSchedulingSpec" $ \o -> - V1alpha1PodSchedulingSpec - <$> (o .:? "potentialNodes") - <*> (o .:? "selectedNode") - --- | ToJSON V1alpha1PodSchedulingSpec -instance A.ToJSON V1alpha1PodSchedulingSpec where - toJSON V1alpha1PodSchedulingSpec {..} = - _omitNulls - [ "potentialNodes" .= v1alpha1PodSchedulingSpecPotentialNodes - , "selectedNode" .= v1alpha1PodSchedulingSpecSelectedNode - ] - - --- | Construct a value of type 'V1alpha1PodSchedulingSpec' (by applying it's required fields, if any) -mkV1alpha1PodSchedulingSpec - :: V1alpha1PodSchedulingSpec -mkV1alpha1PodSchedulingSpec = - V1alpha1PodSchedulingSpec - { v1alpha1PodSchedulingSpecPotentialNodes = Nothing - , v1alpha1PodSchedulingSpecSelectedNode = Nothing - } - --- ** V1alpha1PodSchedulingStatus --- | V1alpha1PodSchedulingStatus --- PodSchedulingStatus describes where resources for the Pod can be allocated. -data V1alpha1PodSchedulingStatus = V1alpha1PodSchedulingStatus - { v1alpha1PodSchedulingStatusResourceClaims :: !(Maybe [V1alpha1ResourceClaimSchedulingStatus]) -- ^ "resourceClaims" - ResourceClaims describes resource availability for each pod.spec.resourceClaim entry where the corresponding ResourceClaim uses \"WaitForFirstConsumer\" allocation mode. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1PodSchedulingStatus -instance A.FromJSON V1alpha1PodSchedulingStatus where - parseJSON = A.withObject "V1alpha1PodSchedulingStatus" $ \o -> - V1alpha1PodSchedulingStatus - <$> (o .:? "resourceClaims") - --- | ToJSON V1alpha1PodSchedulingStatus -instance A.ToJSON V1alpha1PodSchedulingStatus where - toJSON V1alpha1PodSchedulingStatus {..} = - _omitNulls - [ "resourceClaims" .= v1alpha1PodSchedulingStatusResourceClaims - ] - - --- | Construct a value of type 'V1alpha1PodSchedulingStatus' (by applying it's required fields, if any) -mkV1alpha1PodSchedulingStatus - :: V1alpha1PodSchedulingStatus -mkV1alpha1PodSchedulingStatus = - V1alpha1PodSchedulingStatus - { v1alpha1PodSchedulingStatusResourceClaims = Nothing - } - --- ** V1alpha1ResourceClaim --- | V1alpha1ResourceClaim --- ResourceClaim describes which resources are needed by a resource consumer. Its status tracks whether the resource has been allocated and what the resulting attributes are. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. -data V1alpha1ResourceClaim = V1alpha1ResourceClaim - { v1alpha1ResourceClaimApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClaimKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClaimMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ResourceClaimSpec :: !(V1alpha1ResourceClaimSpec) -- ^ /Required/ "spec" - , v1alpha1ResourceClaimStatus :: !(Maybe V1alpha1ResourceClaimStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaim -instance A.FromJSON V1alpha1ResourceClaim where - parseJSON = A.withObject "V1alpha1ResourceClaim" $ \o -> - V1alpha1ResourceClaim - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .:? "status") - --- | ToJSON V1alpha1ResourceClaim -instance A.ToJSON V1alpha1ResourceClaim where - toJSON V1alpha1ResourceClaim {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClaimApiVersion - , "kind" .= v1alpha1ResourceClaimKind - , "metadata" .= v1alpha1ResourceClaimMetadata - , "spec" .= v1alpha1ResourceClaimSpec - , "status" .= v1alpha1ResourceClaimStatus - ] - - --- | Construct a value of type 'V1alpha1ResourceClaim' (by applying it's required fields, if any) -mkV1alpha1ResourceClaim - :: V1alpha1ResourceClaimSpec -- ^ 'v1alpha1ResourceClaimSpec' - -> V1alpha1ResourceClaim -mkV1alpha1ResourceClaim v1alpha1ResourceClaimSpec = - V1alpha1ResourceClaim - { v1alpha1ResourceClaimApiVersion = Nothing - , v1alpha1ResourceClaimKind = Nothing - , v1alpha1ResourceClaimMetadata = Nothing - , v1alpha1ResourceClaimSpec - , v1alpha1ResourceClaimStatus = Nothing - } - --- ** V1alpha1ResourceClaimConsumerReference --- | V1alpha1ResourceClaimConsumerReference --- ResourceClaimConsumerReference contains enough information to let you locate the consumer of a ResourceClaim. The user must be a resource in the same namespace as the ResourceClaim. -data V1alpha1ResourceClaimConsumerReference = V1alpha1ResourceClaimConsumerReference - { v1alpha1ResourceClaimConsumerReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. - , v1alpha1ResourceClaimConsumerReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. - , v1alpha1ResourceClaimConsumerReferenceResource :: !(Text) -- ^ /Required/ "resource" - Resource is the type of resource being referenced, for example \"pods\". - , v1alpha1ResourceClaimConsumerReferenceUid :: !(Text) -- ^ /Required/ "uid" - UID identifies exactly one incarnation of the resource. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimConsumerReference -instance A.FromJSON V1alpha1ResourceClaimConsumerReference where - parseJSON = A.withObject "V1alpha1ResourceClaimConsumerReference" $ \o -> - V1alpha1ResourceClaimConsumerReference - <$> (o .:? "apiGroup") - <*> (o .: "name") - <*> (o .: "resource") - <*> (o .: "uid") - --- | ToJSON V1alpha1ResourceClaimConsumerReference -instance A.ToJSON V1alpha1ResourceClaimConsumerReference where - toJSON V1alpha1ResourceClaimConsumerReference {..} = - _omitNulls - [ "apiGroup" .= v1alpha1ResourceClaimConsumerReferenceApiGroup - , "name" .= v1alpha1ResourceClaimConsumerReferenceName - , "resource" .= v1alpha1ResourceClaimConsumerReferenceResource - , "uid" .= v1alpha1ResourceClaimConsumerReferenceUid - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimConsumerReference' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimConsumerReference - :: Text -- ^ 'v1alpha1ResourceClaimConsumerReferenceName': Name is the name of resource being referenced. - -> Text -- ^ 'v1alpha1ResourceClaimConsumerReferenceResource': Resource is the type of resource being referenced, for example \"pods\". - -> Text -- ^ 'v1alpha1ResourceClaimConsumerReferenceUid': UID identifies exactly one incarnation of the resource. - -> V1alpha1ResourceClaimConsumerReference -mkV1alpha1ResourceClaimConsumerReference v1alpha1ResourceClaimConsumerReferenceName v1alpha1ResourceClaimConsumerReferenceResource v1alpha1ResourceClaimConsumerReferenceUid = - V1alpha1ResourceClaimConsumerReference - { v1alpha1ResourceClaimConsumerReferenceApiGroup = Nothing - , v1alpha1ResourceClaimConsumerReferenceName - , v1alpha1ResourceClaimConsumerReferenceResource - , v1alpha1ResourceClaimConsumerReferenceUid - } - --- ** V1alpha1ResourceClaimList --- | V1alpha1ResourceClaimList --- ResourceClaimList is a collection of claims. -data V1alpha1ResourceClaimList = V1alpha1ResourceClaimList - { v1alpha1ResourceClaimListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClaimListItems :: !([V1alpha1ResourceClaim]) -- ^ /Required/ "items" - Items is the list of resource claims. - , v1alpha1ResourceClaimListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClaimListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimList -instance A.FromJSON V1alpha1ResourceClaimList where - parseJSON = A.withObject "V1alpha1ResourceClaimList" $ \o -> - V1alpha1ResourceClaimList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ResourceClaimList -instance A.ToJSON V1alpha1ResourceClaimList where - toJSON V1alpha1ResourceClaimList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClaimListApiVersion - , "items" .= v1alpha1ResourceClaimListItems - , "kind" .= v1alpha1ResourceClaimListKind - , "metadata" .= v1alpha1ResourceClaimListMetadata - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimList' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimList - :: [V1alpha1ResourceClaim] -- ^ 'v1alpha1ResourceClaimListItems': Items is the list of resource claims. - -> V1alpha1ResourceClaimList -mkV1alpha1ResourceClaimList v1alpha1ResourceClaimListItems = - V1alpha1ResourceClaimList - { v1alpha1ResourceClaimListApiVersion = Nothing - , v1alpha1ResourceClaimListItems - , v1alpha1ResourceClaimListKind = Nothing - , v1alpha1ResourceClaimListMetadata = Nothing - } - --- ** V1alpha1ResourceClaimParametersReference --- | V1alpha1ResourceClaimParametersReference --- ResourceClaimParametersReference contains enough information to let you locate the parameters for a ResourceClaim. The object must be in the same namespace as the ResourceClaim. -data V1alpha1ResourceClaimParametersReference = V1alpha1ResourceClaimParametersReference - { v1alpha1ResourceClaimParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. - , v1alpha1ResourceClaimParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata, for example \"ConfigMap\". - , v1alpha1ResourceClaimParametersReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimParametersReference -instance A.FromJSON V1alpha1ResourceClaimParametersReference where - parseJSON = A.withObject "V1alpha1ResourceClaimParametersReference" $ \o -> - V1alpha1ResourceClaimParametersReference - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - --- | ToJSON V1alpha1ResourceClaimParametersReference -instance A.ToJSON V1alpha1ResourceClaimParametersReference where - toJSON V1alpha1ResourceClaimParametersReference {..} = - _omitNulls - [ "apiGroup" .= v1alpha1ResourceClaimParametersReferenceApiGroup - , "kind" .= v1alpha1ResourceClaimParametersReferenceKind - , "name" .= v1alpha1ResourceClaimParametersReferenceName - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimParametersReference' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimParametersReference - :: Text -- ^ 'v1alpha1ResourceClaimParametersReferenceKind': Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata, for example \"ConfigMap\". - -> Text -- ^ 'v1alpha1ResourceClaimParametersReferenceName': Name is the name of resource being referenced. - -> V1alpha1ResourceClaimParametersReference -mkV1alpha1ResourceClaimParametersReference v1alpha1ResourceClaimParametersReferenceKind v1alpha1ResourceClaimParametersReferenceName = - V1alpha1ResourceClaimParametersReference - { v1alpha1ResourceClaimParametersReferenceApiGroup = Nothing - , v1alpha1ResourceClaimParametersReferenceKind - , v1alpha1ResourceClaimParametersReferenceName - } - --- ** V1alpha1ResourceClaimSchedulingStatus --- | V1alpha1ResourceClaimSchedulingStatus --- ResourceClaimSchedulingStatus contains information about one particular ResourceClaim with \"WaitForFirstConsumer\" allocation mode. -data V1alpha1ResourceClaimSchedulingStatus = V1alpha1ResourceClaimSchedulingStatus - { v1alpha1ResourceClaimSchedulingStatusName :: !(Maybe Text) -- ^ "name" - Name matches the pod.spec.resourceClaims[*].Name field. - , v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes :: !(Maybe [Text]) -- ^ "unsuitableNodes" - UnsuitableNodes lists nodes that the ResourceClaim cannot be allocated for. The size of this field is limited to 128, the same as for PodSchedulingSpec.PotentialNodes. This may get increased in the future, but not reduced. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimSchedulingStatus -instance A.FromJSON V1alpha1ResourceClaimSchedulingStatus where - parseJSON = A.withObject "V1alpha1ResourceClaimSchedulingStatus" $ \o -> - V1alpha1ResourceClaimSchedulingStatus - <$> (o .:? "name") - <*> (o .:? "unsuitableNodes") - --- | ToJSON V1alpha1ResourceClaimSchedulingStatus -instance A.ToJSON V1alpha1ResourceClaimSchedulingStatus where - toJSON V1alpha1ResourceClaimSchedulingStatus {..} = - _omitNulls - [ "name" .= v1alpha1ResourceClaimSchedulingStatusName - , "unsuitableNodes" .= v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimSchedulingStatus' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimSchedulingStatus - :: V1alpha1ResourceClaimSchedulingStatus -mkV1alpha1ResourceClaimSchedulingStatus = - V1alpha1ResourceClaimSchedulingStatus - { v1alpha1ResourceClaimSchedulingStatusName = Nothing - , v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes = Nothing - } - --- ** V1alpha1ResourceClaimSpec --- | V1alpha1ResourceClaimSpec --- ResourceClaimSpec defines how a resource is to be allocated. -data V1alpha1ResourceClaimSpec = V1alpha1ResourceClaimSpec - { v1alpha1ResourceClaimSpecAllocationMode :: !(Maybe Text) -- ^ "allocationMode" - Allocation can start immediately or when a Pod wants to use the resource. \"WaitForFirstConsumer\" is the default. - , v1alpha1ResourceClaimSpecParametersRef :: !(Maybe V1alpha1ResourceClaimParametersReference) -- ^ "parametersRef" - , v1alpha1ResourceClaimSpecResourceClassName :: !(Text) -- ^ /Required/ "resourceClassName" - ResourceClassName references the driver and additional parameters via the name of a ResourceClass that was created as part of the driver deployment. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimSpec -instance A.FromJSON V1alpha1ResourceClaimSpec where - parseJSON = A.withObject "V1alpha1ResourceClaimSpec" $ \o -> - V1alpha1ResourceClaimSpec - <$> (o .:? "allocationMode") - <*> (o .:? "parametersRef") - <*> (o .: "resourceClassName") - --- | ToJSON V1alpha1ResourceClaimSpec -instance A.ToJSON V1alpha1ResourceClaimSpec where - toJSON V1alpha1ResourceClaimSpec {..} = - _omitNulls - [ "allocationMode" .= v1alpha1ResourceClaimSpecAllocationMode - , "parametersRef" .= v1alpha1ResourceClaimSpecParametersRef - , "resourceClassName" .= v1alpha1ResourceClaimSpecResourceClassName - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimSpec' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimSpec - :: Text -- ^ 'v1alpha1ResourceClaimSpecResourceClassName': ResourceClassName references the driver and additional parameters via the name of a ResourceClass that was created as part of the driver deployment. - -> V1alpha1ResourceClaimSpec -mkV1alpha1ResourceClaimSpec v1alpha1ResourceClaimSpecResourceClassName = - V1alpha1ResourceClaimSpec - { v1alpha1ResourceClaimSpecAllocationMode = Nothing - , v1alpha1ResourceClaimSpecParametersRef = Nothing - , v1alpha1ResourceClaimSpecResourceClassName - } - --- ** V1alpha1ResourceClaimStatus --- | V1alpha1ResourceClaimStatus --- ResourceClaimStatus tracks whether the resource has been allocated and what the resulting attributes are. -data V1alpha1ResourceClaimStatus = V1alpha1ResourceClaimStatus - { v1alpha1ResourceClaimStatusAllocation :: !(Maybe V1alpha1AllocationResult) -- ^ "allocation" - , v1alpha1ResourceClaimStatusDeallocationRequested :: !(Maybe Bool) -- ^ "deallocationRequested" - DeallocationRequested indicates that a ResourceClaim is to be deallocated. The driver then must deallocate this claim and reset the field together with clearing the Allocation field. While DeallocationRequested is set, no new consumers may be added to ReservedFor. - , v1alpha1ResourceClaimStatusDriverName :: !(Maybe Text) -- ^ "driverName" - DriverName is a copy of the driver name from the ResourceClass at the time when allocation started. - , v1alpha1ResourceClaimStatusReservedFor :: !(Maybe [V1alpha1ResourceClaimConsumerReference]) -- ^ "reservedFor" - ReservedFor indicates which entities are currently allowed to use the claim. A Pod which references a ResourceClaim which is not reserved for that Pod will not be started. There can be at most 32 such reservations. This may get increased in the future, but not reduced. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimStatus -instance A.FromJSON V1alpha1ResourceClaimStatus where - parseJSON = A.withObject "V1alpha1ResourceClaimStatus" $ \o -> - V1alpha1ResourceClaimStatus - <$> (o .:? "allocation") - <*> (o .:? "deallocationRequested") - <*> (o .:? "driverName") - <*> (o .:? "reservedFor") - --- | ToJSON V1alpha1ResourceClaimStatus -instance A.ToJSON V1alpha1ResourceClaimStatus where - toJSON V1alpha1ResourceClaimStatus {..} = - _omitNulls - [ "allocation" .= v1alpha1ResourceClaimStatusAllocation - , "deallocationRequested" .= v1alpha1ResourceClaimStatusDeallocationRequested - , "driverName" .= v1alpha1ResourceClaimStatusDriverName - , "reservedFor" .= v1alpha1ResourceClaimStatusReservedFor - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimStatus' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimStatus - :: V1alpha1ResourceClaimStatus -mkV1alpha1ResourceClaimStatus = - V1alpha1ResourceClaimStatus - { v1alpha1ResourceClaimStatusAllocation = Nothing - , v1alpha1ResourceClaimStatusDeallocationRequested = Nothing - , v1alpha1ResourceClaimStatusDriverName = Nothing - , v1alpha1ResourceClaimStatusReservedFor = Nothing - } - --- ** V1alpha1ResourceClaimTemplate --- | V1alpha1ResourceClaimTemplate --- ResourceClaimTemplate is used to produce ResourceClaim objects. -data V1alpha1ResourceClaimTemplate = V1alpha1ResourceClaimTemplate - { v1alpha1ResourceClaimTemplateApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClaimTemplateKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClaimTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ResourceClaimTemplateSpec :: !(V1alpha1ResourceClaimTemplateSpec) -- ^ /Required/ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimTemplate -instance A.FromJSON V1alpha1ResourceClaimTemplate where - parseJSON = A.withObject "V1alpha1ResourceClaimTemplate" $ \o -> - V1alpha1ResourceClaimTemplate - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - --- | ToJSON V1alpha1ResourceClaimTemplate -instance A.ToJSON V1alpha1ResourceClaimTemplate where - toJSON V1alpha1ResourceClaimTemplate {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClaimTemplateApiVersion - , "kind" .= v1alpha1ResourceClaimTemplateKind - , "metadata" .= v1alpha1ResourceClaimTemplateMetadata - , "spec" .= v1alpha1ResourceClaimTemplateSpec - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimTemplate' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimTemplate - :: V1alpha1ResourceClaimTemplateSpec -- ^ 'v1alpha1ResourceClaimTemplateSpec' - -> V1alpha1ResourceClaimTemplate -mkV1alpha1ResourceClaimTemplate v1alpha1ResourceClaimTemplateSpec = - V1alpha1ResourceClaimTemplate - { v1alpha1ResourceClaimTemplateApiVersion = Nothing - , v1alpha1ResourceClaimTemplateKind = Nothing - , v1alpha1ResourceClaimTemplateMetadata = Nothing - , v1alpha1ResourceClaimTemplateSpec - } - --- ** V1alpha1ResourceClaimTemplateList --- | V1alpha1ResourceClaimTemplateList --- ResourceClaimTemplateList is a collection of claim templates. -data V1alpha1ResourceClaimTemplateList = V1alpha1ResourceClaimTemplateList - { v1alpha1ResourceClaimTemplateListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClaimTemplateListItems :: !([V1alpha1ResourceClaimTemplate]) -- ^ /Required/ "items" - Items is the list of resource claim templates. - , v1alpha1ResourceClaimTemplateListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClaimTemplateListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimTemplateList -instance A.FromJSON V1alpha1ResourceClaimTemplateList where - parseJSON = A.withObject "V1alpha1ResourceClaimTemplateList" $ \o -> - V1alpha1ResourceClaimTemplateList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ResourceClaimTemplateList -instance A.ToJSON V1alpha1ResourceClaimTemplateList where - toJSON V1alpha1ResourceClaimTemplateList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClaimTemplateListApiVersion - , "items" .= v1alpha1ResourceClaimTemplateListItems - , "kind" .= v1alpha1ResourceClaimTemplateListKind - , "metadata" .= v1alpha1ResourceClaimTemplateListMetadata - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimTemplateList' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimTemplateList - :: [V1alpha1ResourceClaimTemplate] -- ^ 'v1alpha1ResourceClaimTemplateListItems': Items is the list of resource claim templates. - -> V1alpha1ResourceClaimTemplateList -mkV1alpha1ResourceClaimTemplateList v1alpha1ResourceClaimTemplateListItems = - V1alpha1ResourceClaimTemplateList - { v1alpha1ResourceClaimTemplateListApiVersion = Nothing - , v1alpha1ResourceClaimTemplateListItems - , v1alpha1ResourceClaimTemplateListKind = Nothing - , v1alpha1ResourceClaimTemplateListMetadata = Nothing - } - --- ** V1alpha1ResourceClaimTemplateSpec --- | V1alpha1ResourceClaimTemplateSpec --- ResourceClaimTemplateSpec contains the metadata and fields for a ResourceClaim. -data V1alpha1ResourceClaimTemplateSpec = V1alpha1ResourceClaimTemplateSpec - { v1alpha1ResourceClaimTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ResourceClaimTemplateSpecSpec :: !(V1alpha1ResourceClaimSpec) -- ^ /Required/ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClaimTemplateSpec -instance A.FromJSON V1alpha1ResourceClaimTemplateSpec where - parseJSON = A.withObject "V1alpha1ResourceClaimTemplateSpec" $ \o -> - V1alpha1ResourceClaimTemplateSpec - <$> (o .:? "metadata") - <*> (o .: "spec") - --- | ToJSON V1alpha1ResourceClaimTemplateSpec -instance A.ToJSON V1alpha1ResourceClaimTemplateSpec where - toJSON V1alpha1ResourceClaimTemplateSpec {..} = - _omitNulls - [ "metadata" .= v1alpha1ResourceClaimTemplateSpecMetadata - , "spec" .= v1alpha1ResourceClaimTemplateSpecSpec - ] - - --- | Construct a value of type 'V1alpha1ResourceClaimTemplateSpec' (by applying it's required fields, if any) -mkV1alpha1ResourceClaimTemplateSpec - :: V1alpha1ResourceClaimSpec -- ^ 'v1alpha1ResourceClaimTemplateSpecSpec' - -> V1alpha1ResourceClaimTemplateSpec -mkV1alpha1ResourceClaimTemplateSpec v1alpha1ResourceClaimTemplateSpecSpec = - V1alpha1ResourceClaimTemplateSpec - { v1alpha1ResourceClaimTemplateSpecMetadata = Nothing - , v1alpha1ResourceClaimTemplateSpecSpec - } - --- ** V1alpha1ResourceClass --- | V1alpha1ResourceClass --- ResourceClass is used by administrators to influence how resources are allocated. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. -data V1alpha1ResourceClass = V1alpha1ResourceClass - { v1alpha1ResourceClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClassDriverName :: !(Text) -- ^ /Required/ "driverName" - DriverName defines the name of the dynamic resource driver that is used for allocation of a ResourceClaim that uses this class. Resource drivers have a unique name in forward domain order (acme.example.com). - , v1alpha1ResourceClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ResourceClassParametersRef :: !(Maybe V1alpha1ResourceClassParametersReference) -- ^ "parametersRef" - , v1alpha1ResourceClassSuitableNodes :: !(Maybe V1NodeSelector) -- ^ "suitableNodes" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClass -instance A.FromJSON V1alpha1ResourceClass where - parseJSON = A.withObject "V1alpha1ResourceClass" $ \o -> - V1alpha1ResourceClass - <$> (o .:? "apiVersion") - <*> (o .: "driverName") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "parametersRef") - <*> (o .:? "suitableNodes") - --- | ToJSON V1alpha1ResourceClass -instance A.ToJSON V1alpha1ResourceClass where - toJSON V1alpha1ResourceClass {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClassApiVersion - , "driverName" .= v1alpha1ResourceClassDriverName - , "kind" .= v1alpha1ResourceClassKind - , "metadata" .= v1alpha1ResourceClassMetadata - , "parametersRef" .= v1alpha1ResourceClassParametersRef - , "suitableNodes" .= v1alpha1ResourceClassSuitableNodes - ] - - --- | Construct a value of type 'V1alpha1ResourceClass' (by applying it's required fields, if any) -mkV1alpha1ResourceClass - :: Text -- ^ 'v1alpha1ResourceClassDriverName': DriverName defines the name of the dynamic resource driver that is used for allocation of a ResourceClaim that uses this class. Resource drivers have a unique name in forward domain order (acme.example.com). - -> V1alpha1ResourceClass -mkV1alpha1ResourceClass v1alpha1ResourceClassDriverName = - V1alpha1ResourceClass - { v1alpha1ResourceClassApiVersion = Nothing - , v1alpha1ResourceClassDriverName - , v1alpha1ResourceClassKind = Nothing - , v1alpha1ResourceClassMetadata = Nothing - , v1alpha1ResourceClassParametersRef = Nothing - , v1alpha1ResourceClassSuitableNodes = Nothing - } - --- ** V1alpha1ResourceClassList --- | V1alpha1ResourceClassList --- ResourceClassList is a collection of classes. -data V1alpha1ResourceClassList = V1alpha1ResourceClassList - { v1alpha1ResourceClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ResourceClassListItems :: !([V1alpha1ResourceClass]) -- ^ /Required/ "items" - Items is the list of resource classes. - , v1alpha1ResourceClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ResourceClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClassList -instance A.FromJSON V1alpha1ResourceClassList where - parseJSON = A.withObject "V1alpha1ResourceClassList" $ \o -> - V1alpha1ResourceClassList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ResourceClassList -instance A.ToJSON V1alpha1ResourceClassList where - toJSON V1alpha1ResourceClassList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ResourceClassListApiVersion - , "items" .= v1alpha1ResourceClassListItems - , "kind" .= v1alpha1ResourceClassListKind - , "metadata" .= v1alpha1ResourceClassListMetadata - ] - - --- | Construct a value of type 'V1alpha1ResourceClassList' (by applying it's required fields, if any) -mkV1alpha1ResourceClassList - :: [V1alpha1ResourceClass] -- ^ 'v1alpha1ResourceClassListItems': Items is the list of resource classes. - -> V1alpha1ResourceClassList -mkV1alpha1ResourceClassList v1alpha1ResourceClassListItems = - V1alpha1ResourceClassList - { v1alpha1ResourceClassListApiVersion = Nothing - , v1alpha1ResourceClassListItems - , v1alpha1ResourceClassListKind = Nothing - , v1alpha1ResourceClassListMetadata = Nothing - } - --- ** V1alpha1ResourceClassParametersReference --- | V1alpha1ResourceClassParametersReference --- ResourceClassParametersReference contains enough information to let you locate the parameters for a ResourceClass. -data V1alpha1ResourceClassParametersReference = V1alpha1ResourceClassParametersReference - { v1alpha1ResourceClassParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. - , v1alpha1ResourceClassParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata. - , v1alpha1ResourceClassParametersReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. - , v1alpha1ResourceClassParametersReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace that contains the referenced resource. Must be empty for cluster-scoped resources and non-empty for namespaced resources. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ResourceClassParametersReference -instance A.FromJSON V1alpha1ResourceClassParametersReference where - parseJSON = A.withObject "V1alpha1ResourceClassParametersReference" $ \o -> - V1alpha1ResourceClassParametersReference - <$> (o .:? "apiGroup") - <*> (o .: "kind") - <*> (o .: "name") - <*> (o .:? "namespace") - --- | ToJSON V1alpha1ResourceClassParametersReference -instance A.ToJSON V1alpha1ResourceClassParametersReference where - toJSON V1alpha1ResourceClassParametersReference {..} = - _omitNulls - [ "apiGroup" .= v1alpha1ResourceClassParametersReferenceApiGroup - , "kind" .= v1alpha1ResourceClassParametersReferenceKind - , "name" .= v1alpha1ResourceClassParametersReferenceName - , "namespace" .= v1alpha1ResourceClassParametersReferenceNamespace - ] - - --- | Construct a value of type 'V1alpha1ResourceClassParametersReference' (by applying it's required fields, if any) -mkV1alpha1ResourceClassParametersReference - :: Text -- ^ 'v1alpha1ResourceClassParametersReferenceKind': Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata. - -> Text -- ^ 'v1alpha1ResourceClassParametersReferenceName': Name is the name of resource being referenced. - -> V1alpha1ResourceClassParametersReference -mkV1alpha1ResourceClassParametersReference v1alpha1ResourceClassParametersReferenceKind v1alpha1ResourceClassParametersReferenceName = - V1alpha1ResourceClassParametersReference - { v1alpha1ResourceClassParametersReferenceApiGroup = Nothing - , v1alpha1ResourceClassParametersReferenceKind - , v1alpha1ResourceClassParametersReferenceName - , v1alpha1ResourceClassParametersReferenceNamespace = Nothing - } - --- ** V1alpha1SelfSubjectReview --- | V1alpha1SelfSubjectReview --- SelfSubjectReview contains the user information that the kube-apiserver has about the user making this request. When using impersonation, users will receive the user info of the user being impersonated. -data V1alpha1SelfSubjectReview = V1alpha1SelfSubjectReview - { v1alpha1SelfSubjectReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1SelfSubjectReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1SelfSubjectReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1SelfSubjectReviewStatus :: !(Maybe V1alpha1SelfSubjectReviewStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1SelfSubjectReview -instance A.FromJSON V1alpha1SelfSubjectReview where - parseJSON = A.withObject "V1alpha1SelfSubjectReview" $ \o -> - V1alpha1SelfSubjectReview - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "status") - --- | ToJSON V1alpha1SelfSubjectReview -instance A.ToJSON V1alpha1SelfSubjectReview where - toJSON V1alpha1SelfSubjectReview {..} = - _omitNulls - [ "apiVersion" .= v1alpha1SelfSubjectReviewApiVersion - , "kind" .= v1alpha1SelfSubjectReviewKind - , "metadata" .= v1alpha1SelfSubjectReviewMetadata - , "status" .= v1alpha1SelfSubjectReviewStatus - ] - - --- | Construct a value of type 'V1alpha1SelfSubjectReview' (by applying it's required fields, if any) -mkV1alpha1SelfSubjectReview - :: V1alpha1SelfSubjectReview -mkV1alpha1SelfSubjectReview = - V1alpha1SelfSubjectReview - { v1alpha1SelfSubjectReviewApiVersion = Nothing - , v1alpha1SelfSubjectReviewKind = Nothing - , v1alpha1SelfSubjectReviewMetadata = Nothing - , v1alpha1SelfSubjectReviewStatus = Nothing - } - --- ** V1alpha1SelfSubjectReviewStatus --- | V1alpha1SelfSubjectReviewStatus --- SelfSubjectReviewStatus is filled by the kube-apiserver and sent back to a user. -data V1alpha1SelfSubjectReviewStatus = V1alpha1SelfSubjectReviewStatus - { v1alpha1SelfSubjectReviewStatusUserInfo :: !(Maybe V1UserInfo) -- ^ "userInfo" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1SelfSubjectReviewStatus -instance A.FromJSON V1alpha1SelfSubjectReviewStatus where - parseJSON = A.withObject "V1alpha1SelfSubjectReviewStatus" $ \o -> - V1alpha1SelfSubjectReviewStatus - <$> (o .:? "userInfo") - --- | ToJSON V1alpha1SelfSubjectReviewStatus -instance A.ToJSON V1alpha1SelfSubjectReviewStatus where - toJSON V1alpha1SelfSubjectReviewStatus {..} = - _omitNulls - [ "userInfo" .= v1alpha1SelfSubjectReviewStatusUserInfo - ] - - --- | Construct a value of type 'V1alpha1SelfSubjectReviewStatus' (by applying it's required fields, if any) -mkV1alpha1SelfSubjectReviewStatus - :: V1alpha1SelfSubjectReviewStatus -mkV1alpha1SelfSubjectReviewStatus = - V1alpha1SelfSubjectReviewStatus - { v1alpha1SelfSubjectReviewStatusUserInfo = Nothing - } - --- ** V1alpha1ServerStorageVersion --- | V1alpha1ServerStorageVersion --- An API server instance reports the version it can decode and the version it encodes objects to when persisting objects in the backend. -data V1alpha1ServerStorageVersion = V1alpha1ServerStorageVersion - { v1alpha1ServerStorageVersionApiServerId :: !(Maybe Text) -- ^ "apiServerID" - The ID of the reporting API server. - , v1alpha1ServerStorageVersionDecodableVersions :: !(Maybe [Text]) -- ^ "decodableVersions" - The API server can decode objects encoded in these versions. The encodingVersion must be included in the decodableVersions. - , v1alpha1ServerStorageVersionEncodingVersion :: !(Maybe Text) -- ^ "encodingVersion" - The API server encodes the object to this version when persisting it in the backend (e.g., etcd). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ServerStorageVersion -instance A.FromJSON V1alpha1ServerStorageVersion where - parseJSON = A.withObject "V1alpha1ServerStorageVersion" $ \o -> - V1alpha1ServerStorageVersion - <$> (o .:? "apiServerID") - <*> (o .:? "decodableVersions") - <*> (o .:? "encodingVersion") - --- | ToJSON V1alpha1ServerStorageVersion -instance A.ToJSON V1alpha1ServerStorageVersion where - toJSON V1alpha1ServerStorageVersion {..} = - _omitNulls - [ "apiServerID" .= v1alpha1ServerStorageVersionApiServerId - , "decodableVersions" .= v1alpha1ServerStorageVersionDecodableVersions - , "encodingVersion" .= v1alpha1ServerStorageVersionEncodingVersion - ] - - --- | Construct a value of type 'V1alpha1ServerStorageVersion' (by applying it's required fields, if any) -mkV1alpha1ServerStorageVersion - :: V1alpha1ServerStorageVersion -mkV1alpha1ServerStorageVersion = - V1alpha1ServerStorageVersion - { v1alpha1ServerStorageVersionApiServerId = Nothing - , v1alpha1ServerStorageVersionDecodableVersions = Nothing - , v1alpha1ServerStorageVersionEncodingVersion = Nothing - } - --- ** V1alpha1StorageVersion --- | V1alpha1StorageVersion --- Storage version of a specific resource. -data V1alpha1StorageVersion = V1alpha1StorageVersion - { v1alpha1StorageVersionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1StorageVersionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1StorageVersionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1StorageVersionSpec :: !(A.Value) -- ^ /Required/ "spec" - Spec is an empty spec. It is here to comply with Kubernetes API style. - , v1alpha1StorageVersionStatus :: !(V1alpha1StorageVersionStatus) -- ^ /Required/ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1StorageVersion -instance A.FromJSON V1alpha1StorageVersion where - parseJSON = A.withObject "V1alpha1StorageVersion" $ \o -> - V1alpha1StorageVersion - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .: "spec") - <*> (o .: "status") - --- | ToJSON V1alpha1StorageVersion -instance A.ToJSON V1alpha1StorageVersion where - toJSON V1alpha1StorageVersion {..} = - _omitNulls - [ "apiVersion" .= v1alpha1StorageVersionApiVersion - , "kind" .= v1alpha1StorageVersionKind - , "metadata" .= v1alpha1StorageVersionMetadata - , "spec" .= v1alpha1StorageVersionSpec - , "status" .= v1alpha1StorageVersionStatus - ] - - --- | Construct a value of type 'V1alpha1StorageVersion' (by applying it's required fields, if any) -mkV1alpha1StorageVersion - :: A.Value -- ^ 'v1alpha1StorageVersionSpec': Spec is an empty spec. It is here to comply with Kubernetes API style. - -> V1alpha1StorageVersionStatus -- ^ 'v1alpha1StorageVersionStatus' - -> V1alpha1StorageVersion -mkV1alpha1StorageVersion v1alpha1StorageVersionSpec v1alpha1StorageVersionStatus = - V1alpha1StorageVersion - { v1alpha1StorageVersionApiVersion = Nothing - , v1alpha1StorageVersionKind = Nothing - , v1alpha1StorageVersionMetadata = Nothing - , v1alpha1StorageVersionSpec - , v1alpha1StorageVersionStatus - } - --- ** V1alpha1StorageVersionCondition --- | V1alpha1StorageVersionCondition --- Describes the state of the storageVersion at a certain point. -data V1alpha1StorageVersionCondition = V1alpha1StorageVersionCondition - { v1alpha1StorageVersionConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. - , v1alpha1StorageVersionConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. - , v1alpha1StorageVersionConditionObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - If set, this represents the .metadata.generation that the condition was set based upon. - , v1alpha1StorageVersionConditionReason :: !(Text) -- ^ /Required/ "reason" - The reason for the condition's last transition. - , v1alpha1StorageVersionConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. - , v1alpha1StorageVersionConditionType :: !(Text) -- ^ /Required/ "type" - Type of the condition. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1StorageVersionCondition -instance A.FromJSON V1alpha1StorageVersionCondition where - parseJSON = A.withObject "V1alpha1StorageVersionCondition" $ \o -> - V1alpha1StorageVersionCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "observedGeneration") - <*> (o .: "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V1alpha1StorageVersionCondition -instance A.ToJSON V1alpha1StorageVersionCondition where - toJSON V1alpha1StorageVersionCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1alpha1StorageVersionConditionLastTransitionTime - , "message" .= v1alpha1StorageVersionConditionMessage - , "observedGeneration" .= v1alpha1StorageVersionConditionObservedGeneration - , "reason" .= v1alpha1StorageVersionConditionReason - , "status" .= v1alpha1StorageVersionConditionStatus - , "type" .= v1alpha1StorageVersionConditionType - ] - - --- | Construct a value of type 'V1alpha1StorageVersionCondition' (by applying it's required fields, if any) -mkV1alpha1StorageVersionCondition - :: Text -- ^ 'v1alpha1StorageVersionConditionReason': The reason for the condition's last transition. - -> Text -- ^ 'v1alpha1StorageVersionConditionStatus': Status of the condition, one of True, False, Unknown. - -> Text -- ^ 'v1alpha1StorageVersionConditionType': Type of the condition. - -> V1alpha1StorageVersionCondition -mkV1alpha1StorageVersionCondition v1alpha1StorageVersionConditionReason v1alpha1StorageVersionConditionStatus v1alpha1StorageVersionConditionType = - V1alpha1StorageVersionCondition - { v1alpha1StorageVersionConditionLastTransitionTime = Nothing - , v1alpha1StorageVersionConditionMessage = Nothing - , v1alpha1StorageVersionConditionObservedGeneration = Nothing - , v1alpha1StorageVersionConditionReason - , v1alpha1StorageVersionConditionStatus - , v1alpha1StorageVersionConditionType - } - --- ** V1alpha1StorageVersionList --- | V1alpha1StorageVersionList --- A list of StorageVersions. -data V1alpha1StorageVersionList = V1alpha1StorageVersionList - { v1alpha1StorageVersionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1StorageVersionListItems :: !([V1alpha1StorageVersion]) -- ^ /Required/ "items" - Items holds a list of StorageVersion - , v1alpha1StorageVersionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1StorageVersionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1StorageVersionList -instance A.FromJSON V1alpha1StorageVersionList where - parseJSON = A.withObject "V1alpha1StorageVersionList" $ \o -> - V1alpha1StorageVersionList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1StorageVersionList -instance A.ToJSON V1alpha1StorageVersionList where - toJSON V1alpha1StorageVersionList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1StorageVersionListApiVersion - , "items" .= v1alpha1StorageVersionListItems - , "kind" .= v1alpha1StorageVersionListKind - , "metadata" .= v1alpha1StorageVersionListMetadata - ] - - --- | Construct a value of type 'V1alpha1StorageVersionList' (by applying it's required fields, if any) -mkV1alpha1StorageVersionList - :: [V1alpha1StorageVersion] -- ^ 'v1alpha1StorageVersionListItems': Items holds a list of StorageVersion - -> V1alpha1StorageVersionList -mkV1alpha1StorageVersionList v1alpha1StorageVersionListItems = - V1alpha1StorageVersionList - { v1alpha1StorageVersionListApiVersion = Nothing - , v1alpha1StorageVersionListItems - , v1alpha1StorageVersionListKind = Nothing - , v1alpha1StorageVersionListMetadata = Nothing - } - --- ** V1alpha1StorageVersionStatus --- | V1alpha1StorageVersionStatus --- API server instances report the versions they can decode and the version they encode objects to when persisting objects in the backend. -data V1alpha1StorageVersionStatus = V1alpha1StorageVersionStatus - { v1alpha1StorageVersionStatusCommonEncodingVersion :: !(Maybe Text) -- ^ "commonEncodingVersion" - If all API server instances agree on the same encoding storage version, then this field is set to that version. Otherwise this field is left empty. API servers should finish updating its storageVersionStatus entry before serving write operations, so that this field will be in sync with the reality. - , v1alpha1StorageVersionStatusConditions :: !(Maybe [V1alpha1StorageVersionCondition]) -- ^ "conditions" - The latest available observations of the storageVersion's state. - , v1alpha1StorageVersionStatusStorageVersions :: !(Maybe [V1alpha1ServerStorageVersion]) -- ^ "storageVersions" - The reported versions per API server instance. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1StorageVersionStatus -instance A.FromJSON V1alpha1StorageVersionStatus where - parseJSON = A.withObject "V1alpha1StorageVersionStatus" $ \o -> - V1alpha1StorageVersionStatus - <$> (o .:? "commonEncodingVersion") - <*> (o .:? "conditions") - <*> (o .:? "storageVersions") - --- | ToJSON V1alpha1StorageVersionStatus -instance A.ToJSON V1alpha1StorageVersionStatus where - toJSON V1alpha1StorageVersionStatus {..} = - _omitNulls - [ "commonEncodingVersion" .= v1alpha1StorageVersionStatusCommonEncodingVersion - , "conditions" .= v1alpha1StorageVersionStatusConditions - , "storageVersions" .= v1alpha1StorageVersionStatusStorageVersions - ] - - --- | Construct a value of type 'V1alpha1StorageVersionStatus' (by applying it's required fields, if any) -mkV1alpha1StorageVersionStatus - :: V1alpha1StorageVersionStatus -mkV1alpha1StorageVersionStatus = - V1alpha1StorageVersionStatus - { v1alpha1StorageVersionStatusCommonEncodingVersion = Nothing - , v1alpha1StorageVersionStatusConditions = Nothing - , v1alpha1StorageVersionStatusStorageVersions = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicy --- | V1alpha1ValidatingAdmissionPolicy --- ValidatingAdmissionPolicy describes the definition of an admission validation policy that accepts or rejects an object without changing it. -data V1alpha1ValidatingAdmissionPolicy = V1alpha1ValidatingAdmissionPolicy - { v1alpha1ValidatingAdmissionPolicyApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ValidatingAdmissionPolicyKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ValidatingAdmissionPolicyMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ValidatingAdmissionPolicySpec :: !(Maybe V1alpha1ValidatingAdmissionPolicySpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicy -instance A.FromJSON V1alpha1ValidatingAdmissionPolicy where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicy" $ \o -> - V1alpha1ValidatingAdmissionPolicy - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1alpha1ValidatingAdmissionPolicy -instance A.ToJSON V1alpha1ValidatingAdmissionPolicy where - toJSON V1alpha1ValidatingAdmissionPolicy {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyApiVersion - , "kind" .= v1alpha1ValidatingAdmissionPolicyKind - , "metadata" .= v1alpha1ValidatingAdmissionPolicyMetadata - , "spec" .= v1alpha1ValidatingAdmissionPolicySpec - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicy' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicy - :: V1alpha1ValidatingAdmissionPolicy -mkV1alpha1ValidatingAdmissionPolicy = - V1alpha1ValidatingAdmissionPolicy - { v1alpha1ValidatingAdmissionPolicyApiVersion = Nothing - , v1alpha1ValidatingAdmissionPolicyKind = Nothing - , v1alpha1ValidatingAdmissionPolicyMetadata = Nothing - , v1alpha1ValidatingAdmissionPolicySpec = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicyBinding --- | V1alpha1ValidatingAdmissionPolicyBinding --- ValidatingAdmissionPolicyBinding binds the ValidatingAdmissionPolicy with paramerized resources. ValidatingAdmissionPolicyBinding and parameter CRDs together define how cluster administrators configure policies for clusters. -data V1alpha1ValidatingAdmissionPolicyBinding = V1alpha1ValidatingAdmissionPolicyBinding - { v1alpha1ValidatingAdmissionPolicyBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ValidatingAdmissionPolicyBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ValidatingAdmissionPolicyBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1alpha1ValidatingAdmissionPolicyBindingSpec :: !(Maybe V1alpha1ValidatingAdmissionPolicyBindingSpec) -- ^ "spec" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicyBinding -instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBinding where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBinding" $ \o -> - V1alpha1ValidatingAdmissionPolicyBinding - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - --- | ToJSON V1alpha1ValidatingAdmissionPolicyBinding -instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBinding where - toJSON V1alpha1ValidatingAdmissionPolicyBinding {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyBindingApiVersion - , "kind" .= v1alpha1ValidatingAdmissionPolicyBindingKind - , "metadata" .= v1alpha1ValidatingAdmissionPolicyBindingMetadata - , "spec" .= v1alpha1ValidatingAdmissionPolicyBindingSpec - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBinding' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicyBinding - :: V1alpha1ValidatingAdmissionPolicyBinding -mkV1alpha1ValidatingAdmissionPolicyBinding = - V1alpha1ValidatingAdmissionPolicyBinding - { v1alpha1ValidatingAdmissionPolicyBindingApiVersion = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingKind = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingMetadata = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingSpec = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicyBindingList --- | V1alpha1ValidatingAdmissionPolicyBindingList --- ValidatingAdmissionPolicyBindingList is a list of ValidatingAdmissionPolicyBinding. -data V1alpha1ValidatingAdmissionPolicyBindingList = V1alpha1ValidatingAdmissionPolicyBindingList - { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ValidatingAdmissionPolicyBindingListItems :: !(Maybe [V1alpha1ValidatingAdmissionPolicyBinding]) -- ^ "items" - List of PolicyBinding. - , v1alpha1ValidatingAdmissionPolicyBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ValidatingAdmissionPolicyBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicyBindingList -instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBindingList where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBindingList" $ \o -> - V1alpha1ValidatingAdmissionPolicyBindingList - <$> (o .:? "apiVersion") - <*> (o .:? "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ValidatingAdmissionPolicyBindingList -instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBindingList where - toJSON V1alpha1ValidatingAdmissionPolicyBindingList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyBindingListApiVersion - , "items" .= v1alpha1ValidatingAdmissionPolicyBindingListItems - , "kind" .= v1alpha1ValidatingAdmissionPolicyBindingListKind - , "metadata" .= v1alpha1ValidatingAdmissionPolicyBindingListMetadata - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBindingList' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicyBindingList - :: V1alpha1ValidatingAdmissionPolicyBindingList -mkV1alpha1ValidatingAdmissionPolicyBindingList = - V1alpha1ValidatingAdmissionPolicyBindingList - { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingListItems = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingListKind = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingListMetadata = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicyBindingSpec --- | V1alpha1ValidatingAdmissionPolicyBindingSpec --- ValidatingAdmissionPolicyBindingSpec is the specification of the ValidatingAdmissionPolicyBinding. -data V1alpha1ValidatingAdmissionPolicyBindingSpec = V1alpha1ValidatingAdmissionPolicyBindingSpec - { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources :: !(Maybe V1alpha1MatchResources) -- ^ "matchResources" - , v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef :: !(Maybe V1alpha1ParamRef) -- ^ "paramRef" - , v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName :: !(Maybe Text) -- ^ "policyName" - PolicyName references a ValidatingAdmissionPolicy name which the ValidatingAdmissionPolicyBinding binds to. If the referenced resource does not exist, this binding is considered invalid and will be ignored Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicyBindingSpec -instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBindingSpec where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBindingSpec" $ \o -> - V1alpha1ValidatingAdmissionPolicyBindingSpec - <$> (o .:? "matchResources") - <*> (o .:? "paramRef") - <*> (o .:? "policyName") - --- | ToJSON V1alpha1ValidatingAdmissionPolicyBindingSpec -instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBindingSpec where - toJSON V1alpha1ValidatingAdmissionPolicyBindingSpec {..} = - _omitNulls - [ "matchResources" .= v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources - , "paramRef" .= v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef - , "policyName" .= v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBindingSpec' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicyBindingSpec - :: V1alpha1ValidatingAdmissionPolicyBindingSpec -mkV1alpha1ValidatingAdmissionPolicyBindingSpec = - V1alpha1ValidatingAdmissionPolicyBindingSpec - { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef = Nothing - , v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicyList --- | V1alpha1ValidatingAdmissionPolicyList --- ValidatingAdmissionPolicyList is a list of ValidatingAdmissionPolicy. -data V1alpha1ValidatingAdmissionPolicyList = V1alpha1ValidatingAdmissionPolicyList - { v1alpha1ValidatingAdmissionPolicyListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1alpha1ValidatingAdmissionPolicyListItems :: !(Maybe [V1alpha1ValidatingAdmissionPolicy]) -- ^ "items" - List of ValidatingAdmissionPolicy. - , v1alpha1ValidatingAdmissionPolicyListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1alpha1ValidatingAdmissionPolicyListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicyList -instance A.FromJSON V1alpha1ValidatingAdmissionPolicyList where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyList" $ \o -> - V1alpha1ValidatingAdmissionPolicyList - <$> (o .:? "apiVersion") - <*> (o .:? "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1alpha1ValidatingAdmissionPolicyList -instance A.ToJSON V1alpha1ValidatingAdmissionPolicyList where - toJSON V1alpha1ValidatingAdmissionPolicyList {..} = - _omitNulls - [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyListApiVersion - , "items" .= v1alpha1ValidatingAdmissionPolicyListItems - , "kind" .= v1alpha1ValidatingAdmissionPolicyListKind - , "metadata" .= v1alpha1ValidatingAdmissionPolicyListMetadata - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyList' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicyList - :: V1alpha1ValidatingAdmissionPolicyList -mkV1alpha1ValidatingAdmissionPolicyList = - V1alpha1ValidatingAdmissionPolicyList - { v1alpha1ValidatingAdmissionPolicyListApiVersion = Nothing - , v1alpha1ValidatingAdmissionPolicyListItems = Nothing - , v1alpha1ValidatingAdmissionPolicyListKind = Nothing - , v1alpha1ValidatingAdmissionPolicyListMetadata = Nothing - } - --- ** V1alpha1ValidatingAdmissionPolicySpec --- | V1alpha1ValidatingAdmissionPolicySpec --- ValidatingAdmissionPolicySpec is the specification of the desired behavior of the AdmissionPolicy. -data V1alpha1ValidatingAdmissionPolicySpec = V1alpha1ValidatingAdmissionPolicySpec - { v1alpha1ValidatingAdmissionPolicySpecFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - FailurePolicy defines how to handle failures for the admission policy. Failures can occur from invalid or mis-configured policy definitions or bindings. A policy is invalid if spec.paramKind refers to a non-existent Kind. A binding is invalid if spec.paramRef.name refers to a non-existent resource. Allowed values are Ignore or Fail. Defaults to Fail. - , v1alpha1ValidatingAdmissionPolicySpecMatchConstraints :: !(Maybe V1alpha1MatchResources) -- ^ "matchConstraints" - , v1alpha1ValidatingAdmissionPolicySpecParamKind :: !(Maybe V1alpha1ParamKind) -- ^ "paramKind" - , v1alpha1ValidatingAdmissionPolicySpecValidations :: !([V1alpha1Validation]) -- ^ /Required/ "validations" - Validations contain CEL expressions which is used to apply the validation. A minimum of one validation is required for a policy definition. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1ValidatingAdmissionPolicySpec -instance A.FromJSON V1alpha1ValidatingAdmissionPolicySpec where - parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicySpec" $ \o -> - V1alpha1ValidatingAdmissionPolicySpec - <$> (o .:? "failurePolicy") - <*> (o .:? "matchConstraints") - <*> (o .:? "paramKind") - <*> (o .: "validations") - --- | ToJSON V1alpha1ValidatingAdmissionPolicySpec -instance A.ToJSON V1alpha1ValidatingAdmissionPolicySpec where - toJSON V1alpha1ValidatingAdmissionPolicySpec {..} = - _omitNulls - [ "failurePolicy" .= v1alpha1ValidatingAdmissionPolicySpecFailurePolicy - , "matchConstraints" .= v1alpha1ValidatingAdmissionPolicySpecMatchConstraints - , "paramKind" .= v1alpha1ValidatingAdmissionPolicySpecParamKind - , "validations" .= v1alpha1ValidatingAdmissionPolicySpecValidations - ] - - --- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicySpec' (by applying it's required fields, if any) -mkV1alpha1ValidatingAdmissionPolicySpec - :: [V1alpha1Validation] -- ^ 'v1alpha1ValidatingAdmissionPolicySpecValidations': Validations contain CEL expressions which is used to apply the validation. A minimum of one validation is required for a policy definition. Required. - -> V1alpha1ValidatingAdmissionPolicySpec -mkV1alpha1ValidatingAdmissionPolicySpec v1alpha1ValidatingAdmissionPolicySpecValidations = - V1alpha1ValidatingAdmissionPolicySpec - { v1alpha1ValidatingAdmissionPolicySpecFailurePolicy = Nothing - , v1alpha1ValidatingAdmissionPolicySpecMatchConstraints = Nothing - , v1alpha1ValidatingAdmissionPolicySpecParamKind = Nothing - , v1alpha1ValidatingAdmissionPolicySpecValidations - } - --- ** V1alpha1Validation --- | V1alpha1Validation --- Validation specifies the CEL expression which is used to apply the validation. -data V1alpha1Validation = V1alpha1Validation - { v1alpha1ValidationExpression :: !(Text) -- ^ /Required/ "expression" - Expression represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec CEL expressions have access to the contents of the Admission request/response, organized into CEL variables as well as some other useful variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request([ref](/pkg/apis/admission/types.go#AdmissionRequest)). 'params' - Parameter resource referred to by the policy binding being evaluated. Only populated if the policy has a ParamKind. The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object. No other metadata properties are accessible. Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Expression accessing a property named \"namespace\": {\"Expression\": \"object.__namespace__ > 0\"} - Expression accessing a property named \"x-prop\": {\"Expression\": \"object.x__dash__prop > 0\"} - Expression accessing a property named \"redact__d\": {\"Expression\": \"object.redact__underscores__d > 0\"} Equality on arrays with list type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. Required. - , v1alpha1ValidationMessage :: !(Maybe Text) -- ^ "message" - Message represents the message displayed when validation fails. The message is required if the Expression contains line breaks. The message must not contain line breaks. If unset, the message is \"failed rule: {Rule}\". e.g. \"must be a URL with the host matching spec.host\" If the Expression contains line breaks. Message is required. The message must not contain line breaks. If unset, the message is \"failed Expression: {Expression}\". - , v1alpha1ValidationReason :: !(Maybe Text) -- ^ "reason" - Reason represents a machine-readable description of why this validation failed. If this is the first validation in the list to fail, this reason, as well as the corresponding HTTP response code, are used in the HTTP response to the client. The currently supported reasons are: \"Unauthorized\", \"Forbidden\", \"Invalid\", \"RequestEntityTooLarge\". If not set, StatusReasonInvalid is used in the response to the client. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1alpha1Validation -instance A.FromJSON V1alpha1Validation where - parseJSON = A.withObject "V1alpha1Validation" $ \o -> - V1alpha1Validation - <$> (o .: "expression") - <*> (o .:? "message") - <*> (o .:? "reason") - --- | ToJSON V1alpha1Validation -instance A.ToJSON V1alpha1Validation where - toJSON V1alpha1Validation {..} = - _omitNulls - [ "expression" .= v1alpha1ValidationExpression - , "message" .= v1alpha1ValidationMessage - , "reason" .= v1alpha1ValidationReason - ] - - --- | Construct a value of type 'V1alpha1Validation' (by applying it's required fields, if any) -mkV1alpha1Validation - :: Text -- ^ 'v1alpha1ValidationExpression': Expression represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec CEL expressions have access to the contents of the Admission request/response, organized into CEL variables as well as some other useful variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request([ref](/pkg/apis/admission/types.go#AdmissionRequest)). 'params' - Parameter resource referred to by the policy binding being evaluated. Only populated if the policy has a ParamKind. The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object. No other metadata properties are accessible. Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Expression accessing a property named \"namespace\": {\"Expression\": \"object.__namespace__ > 0\"} - Expression accessing a property named \"x-prop\": {\"Expression\": \"object.x__dash__prop > 0\"} - Expression accessing a property named \"redact__d\": {\"Expression\": \"object.redact__underscores__d > 0\"} Equality on arrays with list type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. Required. - -> V1alpha1Validation -mkV1alpha1Validation v1alpha1ValidationExpression = - V1alpha1Validation - { v1alpha1ValidationExpression - , v1alpha1ValidationMessage = Nothing - , v1alpha1ValidationReason = Nothing - } - --- ** V1beta1CSIStorageCapacity --- | V1beta1CSIStorageCapacity --- CSIStorageCapacity stores the result of one CSI GetCapacity call. For a given StorageClass, this describes the available capacity in a particular topology segment. This can be used when considering where to instantiate new PersistentVolumes. For example this can express things like: - StorageClass \"standard\" has \"1234 GiB\" available in \"topology.kubernetes.io/zone=us-east1\" - StorageClass \"localssd\" has \"10 GiB\" available in \"kubernetes.io/hostname=knode-abc123\" The following three cases all imply that no capacity is available for a certain combination: - no object exists with suitable topology and storage class name - such an object exists, but the capacity is unset - such an object exists, but the capacity is zero The producer of these objects can decide which approach is more suitable. They are consumed by the kube-scheduler when a CSI driver opts into capacity-aware scheduling with CSIDriverSpec.StorageCapacity. The scheduler compares the MaximumVolumeSize against the requested size of pending volumes to filter out unsuitable nodes. If MaximumVolumeSize is unset, it falls back to a comparison against the less precise Capacity. If that is also unset, the scheduler assumes that capacity is insufficient and tries some other node. -data V1beta1CSIStorageCapacity = V1beta1CSIStorageCapacity - { v1beta1CSIStorageCapacityApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta1CSIStorageCapacityCapacity :: !(Maybe Quantity) -- ^ "capacity" - , v1beta1CSIStorageCapacityKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta1CSIStorageCapacityMaximumVolumeSize :: !(Maybe Quantity) -- ^ "maximumVolumeSize" - , v1beta1CSIStorageCapacityMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1beta1CSIStorageCapacityNodeTopology :: !(Maybe V1LabelSelector) -- ^ "nodeTopology" - , v1beta1CSIStorageCapacityStorageClassName :: !(Text) -- ^ /Required/ "storageClassName" - The name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta1CSIStorageCapacity -instance A.FromJSON V1beta1CSIStorageCapacity where - parseJSON = A.withObject "V1beta1CSIStorageCapacity" $ \o -> - V1beta1CSIStorageCapacity - <$> (o .:? "apiVersion") - <*> (o .:? "capacity") - <*> (o .:? "kind") - <*> (o .:? "maximumVolumeSize") - <*> (o .:? "metadata") - <*> (o .:? "nodeTopology") - <*> (o .: "storageClassName") - --- | ToJSON V1beta1CSIStorageCapacity -instance A.ToJSON V1beta1CSIStorageCapacity where - toJSON V1beta1CSIStorageCapacity {..} = - _omitNulls - [ "apiVersion" .= v1beta1CSIStorageCapacityApiVersion - , "capacity" .= v1beta1CSIStorageCapacityCapacity - , "kind" .= v1beta1CSIStorageCapacityKind - , "maximumVolumeSize" .= v1beta1CSIStorageCapacityMaximumVolumeSize - , "metadata" .= v1beta1CSIStorageCapacityMetadata - , "nodeTopology" .= v1beta1CSIStorageCapacityNodeTopology - , "storageClassName" .= v1beta1CSIStorageCapacityStorageClassName - ] - - --- | Construct a value of type 'V1beta1CSIStorageCapacity' (by applying it's required fields, if any) -mkV1beta1CSIStorageCapacity - :: Text -- ^ 'v1beta1CSIStorageCapacityStorageClassName': The name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. - -> V1beta1CSIStorageCapacity -mkV1beta1CSIStorageCapacity v1beta1CSIStorageCapacityStorageClassName = - V1beta1CSIStorageCapacity - { v1beta1CSIStorageCapacityApiVersion = Nothing - , v1beta1CSIStorageCapacityCapacity = Nothing - , v1beta1CSIStorageCapacityKind = Nothing - , v1beta1CSIStorageCapacityMaximumVolumeSize = Nothing - , v1beta1CSIStorageCapacityMetadata = Nothing - , v1beta1CSIStorageCapacityNodeTopology = Nothing - , v1beta1CSIStorageCapacityStorageClassName - } - --- ** V1beta1CSIStorageCapacityList --- | V1beta1CSIStorageCapacityList --- CSIStorageCapacityList is a collection of CSIStorageCapacity objects. -data V1beta1CSIStorageCapacityList = V1beta1CSIStorageCapacityList - { v1beta1CSIStorageCapacityListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta1CSIStorageCapacityListItems :: !([V1beta1CSIStorageCapacity]) -- ^ /Required/ "items" - Items is the list of CSIStorageCapacity objects. - , v1beta1CSIStorageCapacityListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta1CSIStorageCapacityListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta1CSIStorageCapacityList -instance A.FromJSON V1beta1CSIStorageCapacityList where - parseJSON = A.withObject "V1beta1CSIStorageCapacityList" $ \o -> - V1beta1CSIStorageCapacityList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1beta1CSIStorageCapacityList -instance A.ToJSON V1beta1CSIStorageCapacityList where - toJSON V1beta1CSIStorageCapacityList {..} = - _omitNulls - [ "apiVersion" .= v1beta1CSIStorageCapacityListApiVersion - , "items" .= v1beta1CSIStorageCapacityListItems - , "kind" .= v1beta1CSIStorageCapacityListKind - , "metadata" .= v1beta1CSIStorageCapacityListMetadata - ] - - --- | Construct a value of type 'V1beta1CSIStorageCapacityList' (by applying it's required fields, if any) -mkV1beta1CSIStorageCapacityList - :: [V1beta1CSIStorageCapacity] -- ^ 'v1beta1CSIStorageCapacityListItems': Items is the list of CSIStorageCapacity objects. - -> V1beta1CSIStorageCapacityList -mkV1beta1CSIStorageCapacityList v1beta1CSIStorageCapacityListItems = - V1beta1CSIStorageCapacityList - { v1beta1CSIStorageCapacityListApiVersion = Nothing - , v1beta1CSIStorageCapacityListItems - , v1beta1CSIStorageCapacityListKind = Nothing - , v1beta1CSIStorageCapacityListMetadata = Nothing - } - --- ** V1beta2FlowDistinguisherMethod --- | V1beta2FlowDistinguisherMethod --- FlowDistinguisherMethod specifies the method of a flow distinguisher. -data V1beta2FlowDistinguisherMethod = V1beta2FlowDistinguisherMethod - { v1beta2FlowDistinguisherMethodType :: !(Text) -- ^ /Required/ "type" - `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowDistinguisherMethod -instance A.FromJSON V1beta2FlowDistinguisherMethod where - parseJSON = A.withObject "V1beta2FlowDistinguisherMethod" $ \o -> - V1beta2FlowDistinguisherMethod - <$> (o .: "type") - --- | ToJSON V1beta2FlowDistinguisherMethod -instance A.ToJSON V1beta2FlowDistinguisherMethod where - toJSON V1beta2FlowDistinguisherMethod {..} = - _omitNulls - [ "type" .= v1beta2FlowDistinguisherMethodType - ] - - --- | Construct a value of type 'V1beta2FlowDistinguisherMethod' (by applying it's required fields, if any) -mkV1beta2FlowDistinguisherMethod - :: Text -- ^ 'v1beta2FlowDistinguisherMethodType': `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. - -> V1beta2FlowDistinguisherMethod -mkV1beta2FlowDistinguisherMethod v1beta2FlowDistinguisherMethodType = - V1beta2FlowDistinguisherMethod - { v1beta2FlowDistinguisherMethodType - } - --- ** V1beta2FlowSchema --- | V1beta2FlowSchema --- FlowSchema defines the schema of a group of flows. Note that a flow is made up of a set of inbound API requests with similar attributes and is identified by a pair of strings: the name of the FlowSchema and a \"flow distinguisher\". -data V1beta2FlowSchema = V1beta2FlowSchema - { v1beta2FlowSchemaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta2FlowSchemaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta2FlowSchemaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1beta2FlowSchemaSpec :: !(Maybe V1beta2FlowSchemaSpec) -- ^ "spec" - , v1beta2FlowSchemaStatus :: !(Maybe V1beta2FlowSchemaStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowSchema -instance A.FromJSON V1beta2FlowSchema where - parseJSON = A.withObject "V1beta2FlowSchema" $ \o -> - V1beta2FlowSchema - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1beta2FlowSchema -instance A.ToJSON V1beta2FlowSchema where - toJSON V1beta2FlowSchema {..} = - _omitNulls - [ "apiVersion" .= v1beta2FlowSchemaApiVersion - , "kind" .= v1beta2FlowSchemaKind - , "metadata" .= v1beta2FlowSchemaMetadata - , "spec" .= v1beta2FlowSchemaSpec - , "status" .= v1beta2FlowSchemaStatus - ] - - --- | Construct a value of type 'V1beta2FlowSchema' (by applying it's required fields, if any) -mkV1beta2FlowSchema - :: V1beta2FlowSchema -mkV1beta2FlowSchema = - V1beta2FlowSchema - { v1beta2FlowSchemaApiVersion = Nothing - , v1beta2FlowSchemaKind = Nothing - , v1beta2FlowSchemaMetadata = Nothing - , v1beta2FlowSchemaSpec = Nothing - , v1beta2FlowSchemaStatus = Nothing - } - --- ** V1beta2FlowSchemaCondition --- | V1beta2FlowSchemaCondition --- FlowSchemaCondition describes conditions for a FlowSchema. -data V1beta2FlowSchemaCondition = V1beta2FlowSchemaCondition - { v1beta2FlowSchemaConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. - , v1beta2FlowSchemaConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. - , v1beta2FlowSchemaConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. - , v1beta2FlowSchemaConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. - , v1beta2FlowSchemaConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowSchemaCondition -instance A.FromJSON V1beta2FlowSchemaCondition where - parseJSON = A.withObject "V1beta2FlowSchemaCondition" $ \o -> - V1beta2FlowSchemaCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .:? "status") - <*> (o .:? "type") - --- | ToJSON V1beta2FlowSchemaCondition -instance A.ToJSON V1beta2FlowSchemaCondition where - toJSON V1beta2FlowSchemaCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1beta2FlowSchemaConditionLastTransitionTime - , "message" .= v1beta2FlowSchemaConditionMessage - , "reason" .= v1beta2FlowSchemaConditionReason - , "status" .= v1beta2FlowSchemaConditionStatus - , "type" .= v1beta2FlowSchemaConditionType - ] - - --- | Construct a value of type 'V1beta2FlowSchemaCondition' (by applying it's required fields, if any) -mkV1beta2FlowSchemaCondition - :: V1beta2FlowSchemaCondition -mkV1beta2FlowSchemaCondition = - V1beta2FlowSchemaCondition - { v1beta2FlowSchemaConditionLastTransitionTime = Nothing - , v1beta2FlowSchemaConditionMessage = Nothing - , v1beta2FlowSchemaConditionReason = Nothing - , v1beta2FlowSchemaConditionStatus = Nothing - , v1beta2FlowSchemaConditionType = Nothing - } - --- ** V1beta2FlowSchemaList --- | V1beta2FlowSchemaList --- FlowSchemaList is a list of FlowSchema objects. -data V1beta2FlowSchemaList = V1beta2FlowSchemaList - { v1beta2FlowSchemaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta2FlowSchemaListItems :: !([V1beta2FlowSchema]) -- ^ /Required/ "items" - `items` is a list of FlowSchemas. - , v1beta2FlowSchemaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta2FlowSchemaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowSchemaList -instance A.FromJSON V1beta2FlowSchemaList where - parseJSON = A.withObject "V1beta2FlowSchemaList" $ \o -> - V1beta2FlowSchemaList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1beta2FlowSchemaList -instance A.ToJSON V1beta2FlowSchemaList where - toJSON V1beta2FlowSchemaList {..} = - _omitNulls - [ "apiVersion" .= v1beta2FlowSchemaListApiVersion - , "items" .= v1beta2FlowSchemaListItems - , "kind" .= v1beta2FlowSchemaListKind - , "metadata" .= v1beta2FlowSchemaListMetadata - ] - - --- | Construct a value of type 'V1beta2FlowSchemaList' (by applying it's required fields, if any) -mkV1beta2FlowSchemaList - :: [V1beta2FlowSchema] -- ^ 'v1beta2FlowSchemaListItems': `items` is a list of FlowSchemas. - -> V1beta2FlowSchemaList -mkV1beta2FlowSchemaList v1beta2FlowSchemaListItems = - V1beta2FlowSchemaList - { v1beta2FlowSchemaListApiVersion = Nothing - , v1beta2FlowSchemaListItems - , v1beta2FlowSchemaListKind = Nothing - , v1beta2FlowSchemaListMetadata = Nothing - } - --- ** V1beta2FlowSchemaSpec --- | V1beta2FlowSchemaSpec --- FlowSchemaSpec describes how the FlowSchema's specification looks like. -data V1beta2FlowSchemaSpec = V1beta2FlowSchemaSpec - { v1beta2FlowSchemaSpecDistinguisherMethod :: !(Maybe V1beta2FlowDistinguisherMethod) -- ^ "distinguisherMethod" - , v1beta2FlowSchemaSpecMatchingPrecedence :: !(Maybe Int) -- ^ "matchingPrecedence" - `matchingPrecedence` is used to choose among the FlowSchemas that match a given request. The chosen FlowSchema is among those with the numerically lowest (which we take to be logically highest) MatchingPrecedence. Each MatchingPrecedence value must be ranged in [1,10000]. Note that if the precedence is not specified, it will be set to 1000 as default. - , v1beta2FlowSchemaSpecPriorityLevelConfiguration :: !(V1beta2PriorityLevelConfigurationReference) -- ^ /Required/ "priorityLevelConfiguration" - , v1beta2FlowSchemaSpecRules :: !(Maybe [V1beta2PolicyRulesWithSubjects]) -- ^ "rules" - `rules` describes which requests will match this flow schema. This FlowSchema matches a request if and only if at least one member of rules matches the request. if it is an empty slice, there will be no requests matching the FlowSchema. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowSchemaSpec -instance A.FromJSON V1beta2FlowSchemaSpec where - parseJSON = A.withObject "V1beta2FlowSchemaSpec" $ \o -> - V1beta2FlowSchemaSpec - <$> (o .:? "distinguisherMethod") - <*> (o .:? "matchingPrecedence") - <*> (o .: "priorityLevelConfiguration") - <*> (o .:? "rules") - --- | ToJSON V1beta2FlowSchemaSpec -instance A.ToJSON V1beta2FlowSchemaSpec where - toJSON V1beta2FlowSchemaSpec {..} = - _omitNulls - [ "distinguisherMethod" .= v1beta2FlowSchemaSpecDistinguisherMethod - , "matchingPrecedence" .= v1beta2FlowSchemaSpecMatchingPrecedence - , "priorityLevelConfiguration" .= v1beta2FlowSchemaSpecPriorityLevelConfiguration - , "rules" .= v1beta2FlowSchemaSpecRules - ] - - --- | Construct a value of type 'V1beta2FlowSchemaSpec' (by applying it's required fields, if any) -mkV1beta2FlowSchemaSpec - :: V1beta2PriorityLevelConfigurationReference -- ^ 'v1beta2FlowSchemaSpecPriorityLevelConfiguration' - -> V1beta2FlowSchemaSpec -mkV1beta2FlowSchemaSpec v1beta2FlowSchemaSpecPriorityLevelConfiguration = - V1beta2FlowSchemaSpec - { v1beta2FlowSchemaSpecDistinguisherMethod = Nothing - , v1beta2FlowSchemaSpecMatchingPrecedence = Nothing - , v1beta2FlowSchemaSpecPriorityLevelConfiguration - , v1beta2FlowSchemaSpecRules = Nothing - } - --- ** V1beta2FlowSchemaStatus --- | V1beta2FlowSchemaStatus --- FlowSchemaStatus represents the current state of a FlowSchema. -data V1beta2FlowSchemaStatus = V1beta2FlowSchemaStatus - { v1beta2FlowSchemaStatusConditions :: !(Maybe [V1beta2FlowSchemaCondition]) -- ^ "conditions" - `conditions` is a list of the current states of FlowSchema. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2FlowSchemaStatus -instance A.FromJSON V1beta2FlowSchemaStatus where - parseJSON = A.withObject "V1beta2FlowSchemaStatus" $ \o -> - V1beta2FlowSchemaStatus - <$> (o .:? "conditions") - --- | ToJSON V1beta2FlowSchemaStatus -instance A.ToJSON V1beta2FlowSchemaStatus where - toJSON V1beta2FlowSchemaStatus {..} = - _omitNulls - [ "conditions" .= v1beta2FlowSchemaStatusConditions - ] - - --- | Construct a value of type 'V1beta2FlowSchemaStatus' (by applying it's required fields, if any) -mkV1beta2FlowSchemaStatus - :: V1beta2FlowSchemaStatus -mkV1beta2FlowSchemaStatus = - V1beta2FlowSchemaStatus - { v1beta2FlowSchemaStatusConditions = Nothing - } - --- ** V1beta2GroupSubject --- | V1beta2GroupSubject --- GroupSubject holds detailed information for group-kind subject. -data V1beta2GroupSubject = V1beta2GroupSubject - { v1beta2GroupSubjectName :: !(Text) -- ^ /Required/ "name" - name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2GroupSubject -instance A.FromJSON V1beta2GroupSubject where - parseJSON = A.withObject "V1beta2GroupSubject" $ \o -> - V1beta2GroupSubject - <$> (o .: "name") - --- | ToJSON V1beta2GroupSubject -instance A.ToJSON V1beta2GroupSubject where - toJSON V1beta2GroupSubject {..} = - _omitNulls - [ "name" .= v1beta2GroupSubjectName - ] - - --- | Construct a value of type 'V1beta2GroupSubject' (by applying it's required fields, if any) -mkV1beta2GroupSubject - :: Text -- ^ 'v1beta2GroupSubjectName': name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. - -> V1beta2GroupSubject -mkV1beta2GroupSubject v1beta2GroupSubjectName = - V1beta2GroupSubject - { v1beta2GroupSubjectName - } - --- ** V1beta2LimitResponse --- | V1beta2LimitResponse --- LimitResponse defines how to handle requests that can not be executed right now. -data V1beta2LimitResponse = V1beta2LimitResponse - { v1beta2LimitResponseQueuing :: !(Maybe V1beta2QueuingConfiguration) -- ^ "queuing" - , v1beta2LimitResponseType :: !(Text) -- ^ /Required/ "type" - `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2LimitResponse -instance A.FromJSON V1beta2LimitResponse where - parseJSON = A.withObject "V1beta2LimitResponse" $ \o -> - V1beta2LimitResponse - <$> (o .:? "queuing") - <*> (o .: "type") - --- | ToJSON V1beta2LimitResponse -instance A.ToJSON V1beta2LimitResponse where - toJSON V1beta2LimitResponse {..} = - _omitNulls - [ "queuing" .= v1beta2LimitResponseQueuing - , "type" .= v1beta2LimitResponseType - ] - - --- | Construct a value of type 'V1beta2LimitResponse' (by applying it's required fields, if any) -mkV1beta2LimitResponse - :: Text -- ^ 'v1beta2LimitResponseType': `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. - -> V1beta2LimitResponse -mkV1beta2LimitResponse v1beta2LimitResponseType = - V1beta2LimitResponse - { v1beta2LimitResponseQueuing = Nothing - , v1beta2LimitResponseType - } - --- ** V1beta2LimitedPriorityLevelConfiguration --- | V1beta2LimitedPriorityLevelConfiguration --- LimitedPriorityLevelConfiguration specifies how to handle requests that are subject to limits. It addresses two issues: - How are requests for this priority level limited? - What should be done with requests that exceed the limit? -data V1beta2LimitedPriorityLevelConfiguration = V1beta2LimitedPriorityLevelConfiguration - { v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares :: !(Maybe Int) -- ^ "assuredConcurrencyShares" - `assuredConcurrencyShares` (ACS) configures the execution limit, which is a limit on the number of requests of this priority level that may be exeucting at a given time. ACS must be a positive number. The server's concurrency limit (SCL) is divided among the concurrency-controlled priority levels in proportion to their assured concurrency shares. This produces the assured concurrency value (ACV) --- the number of requests that may be executing at a time --- for each such priority level: ACV(l) = ceil( SCL * ACS(l) / ( sum[priority levels k] ACS(k) ) ) bigger numbers of ACS mean more reserved concurrent requests (at the expense of every other PL). This field has a default value of 30. - , v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent :: !(Maybe Int) -- ^ "borrowingLimitPercent" - `borrowingLimitPercent`, if present, configures a limit on how many seats this priority level can borrow from other priority levels. The limit is known as this level's BorrowingConcurrencyLimit (BorrowingCL) and is a limit on the total number of seats that this level may borrow at any one time. This field holds the ratio of that limit to the level's nominal concurrency limit. When this field is non-nil, it must hold a non-negative integer and the limit is calculated as follows. BorrowingCL(i) = round( NominalCL(i) * borrowingLimitPercent(i)/100.0 ) The value of this field can be more than 100, implying that this priority level can borrow a number of seats that is greater than its own nominal concurrency limit (NominalCL). When this field is left `nil`, the limit is effectively infinite. - , v1beta2LimitedPriorityLevelConfigurationLendablePercent :: !(Maybe Int) -- ^ "lendablePercent" - `lendablePercent` prescribes the fraction of the level's NominalCL that can be borrowed by other priority levels. The value of this field must be between 0 and 100, inclusive, and it defaults to 0. The number of seats that other levels can borrow from this level, known as this level's LendableConcurrencyLimit (LendableCL), is defined as follows. LendableCL(i) = round( NominalCL(i) * lendablePercent(i)/100.0 ) - , v1beta2LimitedPriorityLevelConfigurationLimitResponse :: !(Maybe V1beta2LimitResponse) -- ^ "limitResponse" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2LimitedPriorityLevelConfiguration -instance A.FromJSON V1beta2LimitedPriorityLevelConfiguration where - parseJSON = A.withObject "V1beta2LimitedPriorityLevelConfiguration" $ \o -> - V1beta2LimitedPriorityLevelConfiguration - <$> (o .:? "assuredConcurrencyShares") - <*> (o .:? "borrowingLimitPercent") - <*> (o .:? "lendablePercent") - <*> (o .:? "limitResponse") - --- | ToJSON V1beta2LimitedPriorityLevelConfiguration -instance A.ToJSON V1beta2LimitedPriorityLevelConfiguration where - toJSON V1beta2LimitedPriorityLevelConfiguration {..} = - _omitNulls - [ "assuredConcurrencyShares" .= v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares - , "borrowingLimitPercent" .= v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent - , "lendablePercent" .= v1beta2LimitedPriorityLevelConfigurationLendablePercent - , "limitResponse" .= v1beta2LimitedPriorityLevelConfigurationLimitResponse - ] - - --- | Construct a value of type 'V1beta2LimitedPriorityLevelConfiguration' (by applying it's required fields, if any) -mkV1beta2LimitedPriorityLevelConfiguration - :: V1beta2LimitedPriorityLevelConfiguration -mkV1beta2LimitedPriorityLevelConfiguration = - V1beta2LimitedPriorityLevelConfiguration - { v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares = Nothing - , v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent = Nothing - , v1beta2LimitedPriorityLevelConfigurationLendablePercent = Nothing - , v1beta2LimitedPriorityLevelConfigurationLimitResponse = Nothing - } - --- ** V1beta2NonResourcePolicyRule --- | V1beta2NonResourcePolicyRule --- NonResourcePolicyRule is a predicate that matches non-resource requests according to their verb and the target non-resource URL. A NonResourcePolicyRule matches a request if and only if both (a) at least one member of verbs matches the request and (b) at least one member of nonResourceURLs matches the request. -data V1beta2NonResourcePolicyRule = V1beta2NonResourcePolicyRule - { v1beta2NonResourcePolicyRuleNonResourceUrls :: !([Text]) -- ^ /Required/ "nonResourceURLs" - `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. - , v1beta2NonResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2NonResourcePolicyRule -instance A.FromJSON V1beta2NonResourcePolicyRule where - parseJSON = A.withObject "V1beta2NonResourcePolicyRule" $ \o -> - V1beta2NonResourcePolicyRule - <$> (o .: "nonResourceURLs") - <*> (o .: "verbs") - --- | ToJSON V1beta2NonResourcePolicyRule -instance A.ToJSON V1beta2NonResourcePolicyRule where - toJSON V1beta2NonResourcePolicyRule {..} = - _omitNulls - [ "nonResourceURLs" .= v1beta2NonResourcePolicyRuleNonResourceUrls - , "verbs" .= v1beta2NonResourcePolicyRuleVerbs - ] - - --- | Construct a value of type 'V1beta2NonResourcePolicyRule' (by applying it's required fields, if any) -mkV1beta2NonResourcePolicyRule - :: [Text] -- ^ 'v1beta2NonResourcePolicyRuleNonResourceUrls': `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. - -> [Text] -- ^ 'v1beta2NonResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. - -> V1beta2NonResourcePolicyRule -mkV1beta2NonResourcePolicyRule v1beta2NonResourcePolicyRuleNonResourceUrls v1beta2NonResourcePolicyRuleVerbs = - V1beta2NonResourcePolicyRule - { v1beta2NonResourcePolicyRuleNonResourceUrls - , v1beta2NonResourcePolicyRuleVerbs - } - --- ** V1beta2PolicyRulesWithSubjects --- | V1beta2PolicyRulesWithSubjects --- PolicyRulesWithSubjects prescribes a test that applies to a request to an apiserver. The test considers the subject making the request, the verb being requested, and the resource to be acted upon. This PolicyRulesWithSubjects matches a request if and only if both (a) at least one member of subjects matches the request and (b) at least one member of resourceRules or nonResourceRules matches the request. -data V1beta2PolicyRulesWithSubjects = V1beta2PolicyRulesWithSubjects - { v1beta2PolicyRulesWithSubjectsNonResourceRules :: !(Maybe [V1beta2NonResourcePolicyRule]) -- ^ "nonResourceRules" - `nonResourceRules` is a list of NonResourcePolicyRules that identify matching requests according to their verb and the target non-resource URL. - , v1beta2PolicyRulesWithSubjectsResourceRules :: !(Maybe [V1beta2ResourcePolicyRule]) -- ^ "resourceRules" - `resourceRules` is a slice of ResourcePolicyRules that identify matching requests according to their verb and the target resource. At least one of `resourceRules` and `nonResourceRules` has to be non-empty. - , v1beta2PolicyRulesWithSubjectsSubjects :: !([V1beta2Subject]) -- ^ /Required/ "subjects" - subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PolicyRulesWithSubjects -instance A.FromJSON V1beta2PolicyRulesWithSubjects where - parseJSON = A.withObject "V1beta2PolicyRulesWithSubjects" $ \o -> - V1beta2PolicyRulesWithSubjects - <$> (o .:? "nonResourceRules") - <*> (o .:? "resourceRules") - <*> (o .: "subjects") - --- | ToJSON V1beta2PolicyRulesWithSubjects -instance A.ToJSON V1beta2PolicyRulesWithSubjects where - toJSON V1beta2PolicyRulesWithSubjects {..} = - _omitNulls - [ "nonResourceRules" .= v1beta2PolicyRulesWithSubjectsNonResourceRules - , "resourceRules" .= v1beta2PolicyRulesWithSubjectsResourceRules - , "subjects" .= v1beta2PolicyRulesWithSubjectsSubjects - ] - - --- | Construct a value of type 'V1beta2PolicyRulesWithSubjects' (by applying it's required fields, if any) -mkV1beta2PolicyRulesWithSubjects - :: [V1beta2Subject] -- ^ 'v1beta2PolicyRulesWithSubjectsSubjects': subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. - -> V1beta2PolicyRulesWithSubjects -mkV1beta2PolicyRulesWithSubjects v1beta2PolicyRulesWithSubjectsSubjects = - V1beta2PolicyRulesWithSubjects - { v1beta2PolicyRulesWithSubjectsNonResourceRules = Nothing - , v1beta2PolicyRulesWithSubjectsResourceRules = Nothing - , v1beta2PolicyRulesWithSubjectsSubjects - } - --- ** V1beta2PriorityLevelConfiguration --- | V1beta2PriorityLevelConfiguration --- PriorityLevelConfiguration represents the configuration of a priority level. -data V1beta2PriorityLevelConfiguration = V1beta2PriorityLevelConfiguration - { v1beta2PriorityLevelConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta2PriorityLevelConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta2PriorityLevelConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1beta2PriorityLevelConfigurationSpec :: !(Maybe V1beta2PriorityLevelConfigurationSpec) -- ^ "spec" - , v1beta2PriorityLevelConfigurationStatus :: !(Maybe V1beta2PriorityLevelConfigurationStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfiguration -instance A.FromJSON V1beta2PriorityLevelConfiguration where - parseJSON = A.withObject "V1beta2PriorityLevelConfiguration" $ \o -> - V1beta2PriorityLevelConfiguration - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1beta2PriorityLevelConfiguration -instance A.ToJSON V1beta2PriorityLevelConfiguration where - toJSON V1beta2PriorityLevelConfiguration {..} = - _omitNulls - [ "apiVersion" .= v1beta2PriorityLevelConfigurationApiVersion - , "kind" .= v1beta2PriorityLevelConfigurationKind - , "metadata" .= v1beta2PriorityLevelConfigurationMetadata - , "spec" .= v1beta2PriorityLevelConfigurationSpec - , "status" .= v1beta2PriorityLevelConfigurationStatus - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfiguration' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfiguration - :: V1beta2PriorityLevelConfiguration -mkV1beta2PriorityLevelConfiguration = - V1beta2PriorityLevelConfiguration - { v1beta2PriorityLevelConfigurationApiVersion = Nothing - , v1beta2PriorityLevelConfigurationKind = Nothing - , v1beta2PriorityLevelConfigurationMetadata = Nothing - , v1beta2PriorityLevelConfigurationSpec = Nothing - , v1beta2PriorityLevelConfigurationStatus = Nothing - } - --- ** V1beta2PriorityLevelConfigurationCondition --- | V1beta2PriorityLevelConfigurationCondition --- PriorityLevelConfigurationCondition defines the condition of priority level. -data V1beta2PriorityLevelConfigurationCondition = V1beta2PriorityLevelConfigurationCondition - { v1beta2PriorityLevelConfigurationConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. - , v1beta2PriorityLevelConfigurationConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. - , v1beta2PriorityLevelConfigurationConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. - , v1beta2PriorityLevelConfigurationConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. - , v1beta2PriorityLevelConfigurationConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfigurationCondition -instance A.FromJSON V1beta2PriorityLevelConfigurationCondition where - parseJSON = A.withObject "V1beta2PriorityLevelConfigurationCondition" $ \o -> - V1beta2PriorityLevelConfigurationCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .:? "status") - <*> (o .:? "type") - --- | ToJSON V1beta2PriorityLevelConfigurationCondition -instance A.ToJSON V1beta2PriorityLevelConfigurationCondition where - toJSON V1beta2PriorityLevelConfigurationCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1beta2PriorityLevelConfigurationConditionLastTransitionTime - , "message" .= v1beta2PriorityLevelConfigurationConditionMessage - , "reason" .= v1beta2PriorityLevelConfigurationConditionReason - , "status" .= v1beta2PriorityLevelConfigurationConditionStatus - , "type" .= v1beta2PriorityLevelConfigurationConditionType - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfigurationCondition' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfigurationCondition - :: V1beta2PriorityLevelConfigurationCondition -mkV1beta2PriorityLevelConfigurationCondition = - V1beta2PriorityLevelConfigurationCondition - { v1beta2PriorityLevelConfigurationConditionLastTransitionTime = Nothing - , v1beta2PriorityLevelConfigurationConditionMessage = Nothing - , v1beta2PriorityLevelConfigurationConditionReason = Nothing - , v1beta2PriorityLevelConfigurationConditionStatus = Nothing - , v1beta2PriorityLevelConfigurationConditionType = Nothing - } - --- ** V1beta2PriorityLevelConfigurationList --- | V1beta2PriorityLevelConfigurationList --- PriorityLevelConfigurationList is a list of PriorityLevelConfiguration objects. -data V1beta2PriorityLevelConfigurationList = V1beta2PriorityLevelConfigurationList - { v1beta2PriorityLevelConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta2PriorityLevelConfigurationListItems :: !([V1beta2PriorityLevelConfiguration]) -- ^ /Required/ "items" - `items` is a list of request-priorities. - , v1beta2PriorityLevelConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta2PriorityLevelConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfigurationList -instance A.FromJSON V1beta2PriorityLevelConfigurationList where - parseJSON = A.withObject "V1beta2PriorityLevelConfigurationList" $ \o -> - V1beta2PriorityLevelConfigurationList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1beta2PriorityLevelConfigurationList -instance A.ToJSON V1beta2PriorityLevelConfigurationList where - toJSON V1beta2PriorityLevelConfigurationList {..} = - _omitNulls - [ "apiVersion" .= v1beta2PriorityLevelConfigurationListApiVersion - , "items" .= v1beta2PriorityLevelConfigurationListItems - , "kind" .= v1beta2PriorityLevelConfigurationListKind - , "metadata" .= v1beta2PriorityLevelConfigurationListMetadata - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfigurationList' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfigurationList - :: [V1beta2PriorityLevelConfiguration] -- ^ 'v1beta2PriorityLevelConfigurationListItems': `items` is a list of request-priorities. - -> V1beta2PriorityLevelConfigurationList -mkV1beta2PriorityLevelConfigurationList v1beta2PriorityLevelConfigurationListItems = - V1beta2PriorityLevelConfigurationList - { v1beta2PriorityLevelConfigurationListApiVersion = Nothing - , v1beta2PriorityLevelConfigurationListItems - , v1beta2PriorityLevelConfigurationListKind = Nothing - , v1beta2PriorityLevelConfigurationListMetadata = Nothing - } - --- ** V1beta2PriorityLevelConfigurationReference --- | V1beta2PriorityLevelConfigurationReference --- PriorityLevelConfigurationReference contains information that points to the \"request-priority\" being used. -data V1beta2PriorityLevelConfigurationReference = V1beta2PriorityLevelConfigurationReference - { v1beta2PriorityLevelConfigurationReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the priority level configuration being referenced Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfigurationReference -instance A.FromJSON V1beta2PriorityLevelConfigurationReference where - parseJSON = A.withObject "V1beta2PriorityLevelConfigurationReference" $ \o -> - V1beta2PriorityLevelConfigurationReference - <$> (o .: "name") - --- | ToJSON V1beta2PriorityLevelConfigurationReference -instance A.ToJSON V1beta2PriorityLevelConfigurationReference where - toJSON V1beta2PriorityLevelConfigurationReference {..} = - _omitNulls - [ "name" .= v1beta2PriorityLevelConfigurationReferenceName - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfigurationReference' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfigurationReference - :: Text -- ^ 'v1beta2PriorityLevelConfigurationReferenceName': `name` is the name of the priority level configuration being referenced Required. - -> V1beta2PriorityLevelConfigurationReference -mkV1beta2PriorityLevelConfigurationReference v1beta2PriorityLevelConfigurationReferenceName = - V1beta2PriorityLevelConfigurationReference - { v1beta2PriorityLevelConfigurationReferenceName - } - --- ** V1beta2PriorityLevelConfigurationSpec --- | V1beta2PriorityLevelConfigurationSpec --- PriorityLevelConfigurationSpec specifies the configuration of a priority level. -data V1beta2PriorityLevelConfigurationSpec = V1beta2PriorityLevelConfigurationSpec - { v1beta2PriorityLevelConfigurationSpecLimited :: !(Maybe V1beta2LimitedPriorityLevelConfiguration) -- ^ "limited" - , v1beta2PriorityLevelConfigurationSpecType :: !(Text) -- ^ /Required/ "type" - `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfigurationSpec -instance A.FromJSON V1beta2PriorityLevelConfigurationSpec where - parseJSON = A.withObject "V1beta2PriorityLevelConfigurationSpec" $ \o -> - V1beta2PriorityLevelConfigurationSpec - <$> (o .:? "limited") - <*> (o .: "type") - --- | ToJSON V1beta2PriorityLevelConfigurationSpec -instance A.ToJSON V1beta2PriorityLevelConfigurationSpec where - toJSON V1beta2PriorityLevelConfigurationSpec {..} = - _omitNulls - [ "limited" .= v1beta2PriorityLevelConfigurationSpecLimited - , "type" .= v1beta2PriorityLevelConfigurationSpecType - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfigurationSpec' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfigurationSpec - :: Text -- ^ 'v1beta2PriorityLevelConfigurationSpecType': `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. - -> V1beta2PriorityLevelConfigurationSpec -mkV1beta2PriorityLevelConfigurationSpec v1beta2PriorityLevelConfigurationSpecType = - V1beta2PriorityLevelConfigurationSpec - { v1beta2PriorityLevelConfigurationSpecLimited = Nothing - , v1beta2PriorityLevelConfigurationSpecType - } - --- ** V1beta2PriorityLevelConfigurationStatus --- | V1beta2PriorityLevelConfigurationStatus --- PriorityLevelConfigurationStatus represents the current state of a \"request-priority\". -data V1beta2PriorityLevelConfigurationStatus = V1beta2PriorityLevelConfigurationStatus - { v1beta2PriorityLevelConfigurationStatusConditions :: !(Maybe [V1beta2PriorityLevelConfigurationCondition]) -- ^ "conditions" - `conditions` is the current state of \"request-priority\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2PriorityLevelConfigurationStatus -instance A.FromJSON V1beta2PriorityLevelConfigurationStatus where - parseJSON = A.withObject "V1beta2PriorityLevelConfigurationStatus" $ \o -> - V1beta2PriorityLevelConfigurationStatus - <$> (o .:? "conditions") - --- | ToJSON V1beta2PriorityLevelConfigurationStatus -instance A.ToJSON V1beta2PriorityLevelConfigurationStatus where - toJSON V1beta2PriorityLevelConfigurationStatus {..} = - _omitNulls - [ "conditions" .= v1beta2PriorityLevelConfigurationStatusConditions - ] - - --- | Construct a value of type 'V1beta2PriorityLevelConfigurationStatus' (by applying it's required fields, if any) -mkV1beta2PriorityLevelConfigurationStatus - :: V1beta2PriorityLevelConfigurationStatus -mkV1beta2PriorityLevelConfigurationStatus = - V1beta2PriorityLevelConfigurationStatus - { v1beta2PriorityLevelConfigurationStatusConditions = Nothing - } - --- ** V1beta2QueuingConfiguration --- | V1beta2QueuingConfiguration --- QueuingConfiguration holds the configuration parameters for queuing -data V1beta2QueuingConfiguration = V1beta2QueuingConfiguration - { v1beta2QueuingConfigurationHandSize :: !(Maybe Int) -- ^ "handSize" - `handSize` is a small positive number that configures the shuffle sharding of requests into queues. When enqueuing a request at this priority level the request's flow identifier (a string pair) is hashed and the hash value is used to shuffle the list of queues and deal a hand of the size specified here. The request is put into one of the shortest queues in that hand. `handSize` must be no larger than `queues`, and should be significantly smaller (so that a few heavy flows do not saturate most of the queues). See the user-facing documentation for more extensive guidance on setting this field. This field has a default value of 8. - , v1beta2QueuingConfigurationQueueLengthLimit :: !(Maybe Int) -- ^ "queueLengthLimit" - `queueLengthLimit` is the maximum number of requests allowed to be waiting in a given queue of this priority level at a time; excess requests are rejected. This value must be positive. If not specified, it will be defaulted to 50. - , v1beta2QueuingConfigurationQueues :: !(Maybe Int) -- ^ "queues" - `queues` is the number of queues for this priority level. The queues exist independently at each apiserver. The value must be positive. Setting it to 1 effectively precludes shufflesharding and thus makes the distinguisher method of associated flow schemas irrelevant. This field has a default value of 64. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2QueuingConfiguration -instance A.FromJSON V1beta2QueuingConfiguration where - parseJSON = A.withObject "V1beta2QueuingConfiguration" $ \o -> - V1beta2QueuingConfiguration - <$> (o .:? "handSize") - <*> (o .:? "queueLengthLimit") - <*> (o .:? "queues") - --- | ToJSON V1beta2QueuingConfiguration -instance A.ToJSON V1beta2QueuingConfiguration where - toJSON V1beta2QueuingConfiguration {..} = - _omitNulls - [ "handSize" .= v1beta2QueuingConfigurationHandSize - , "queueLengthLimit" .= v1beta2QueuingConfigurationQueueLengthLimit - , "queues" .= v1beta2QueuingConfigurationQueues - ] - - --- | Construct a value of type 'V1beta2QueuingConfiguration' (by applying it's required fields, if any) -mkV1beta2QueuingConfiguration - :: V1beta2QueuingConfiguration -mkV1beta2QueuingConfiguration = - V1beta2QueuingConfiguration - { v1beta2QueuingConfigurationHandSize = Nothing - , v1beta2QueuingConfigurationQueueLengthLimit = Nothing - , v1beta2QueuingConfigurationQueues = Nothing - } - --- ** V1beta2ResourcePolicyRule --- | V1beta2ResourcePolicyRule --- ResourcePolicyRule is a predicate that matches some resource requests, testing the request's verb and the target resource. A ResourcePolicyRule matches a resource request if and only if: (a) at least one member of verbs matches the request, (b) at least one member of apiGroups matches the request, (c) at least one member of resources matches the request, and (d) either (d1) the request does not specify a namespace (i.e., `Namespace==\"\"`) and clusterScope is true or (d2) the request specifies a namespace and least one member of namespaces matches the request's namespace. -data V1beta2ResourcePolicyRule = V1beta2ResourcePolicyRule - { v1beta2ResourcePolicyRuleApiGroups :: !([Text]) -- ^ /Required/ "apiGroups" - `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. - , v1beta2ResourcePolicyRuleClusterScope :: !(Maybe Bool) -- ^ "clusterScope" - `clusterScope` indicates whether to match requests that do not specify a namespace (which happens either because the resource is not namespaced or the request targets all namespaces). If this field is omitted or false then the `namespaces` field must contain a non-empty list. - , v1beta2ResourcePolicyRuleNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - `namespaces` is a list of target namespaces that restricts matches. A request that specifies a target namespace matches only if either (a) this list contains that target namespace or (b) this list contains \"*\". Note that \"*\" matches any specified namespace but does not match a request that _does not specify_ a namespace (see the `clusterScope` field for that). This list may be empty, but only if `clusterScope` is true. - , v1beta2ResourcePolicyRuleResources :: !([Text]) -- ^ /Required/ "resources" - `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. - , v1beta2ResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2ResourcePolicyRule -instance A.FromJSON V1beta2ResourcePolicyRule where - parseJSON = A.withObject "V1beta2ResourcePolicyRule" $ \o -> - V1beta2ResourcePolicyRule - <$> (o .: "apiGroups") - <*> (o .:? "clusterScope") - <*> (o .:? "namespaces") - <*> (o .: "resources") - <*> (o .: "verbs") - --- | ToJSON V1beta2ResourcePolicyRule -instance A.ToJSON V1beta2ResourcePolicyRule where - toJSON V1beta2ResourcePolicyRule {..} = - _omitNulls - [ "apiGroups" .= v1beta2ResourcePolicyRuleApiGroups - , "clusterScope" .= v1beta2ResourcePolicyRuleClusterScope - , "namespaces" .= v1beta2ResourcePolicyRuleNamespaces - , "resources" .= v1beta2ResourcePolicyRuleResources - , "verbs" .= v1beta2ResourcePolicyRuleVerbs - ] - - --- | Construct a value of type 'V1beta2ResourcePolicyRule' (by applying it's required fields, if any) -mkV1beta2ResourcePolicyRule - :: [Text] -- ^ 'v1beta2ResourcePolicyRuleApiGroups': `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. - -> [Text] -- ^ 'v1beta2ResourcePolicyRuleResources': `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. - -> [Text] -- ^ 'v1beta2ResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. - -> V1beta2ResourcePolicyRule -mkV1beta2ResourcePolicyRule v1beta2ResourcePolicyRuleApiGroups v1beta2ResourcePolicyRuleResources v1beta2ResourcePolicyRuleVerbs = - V1beta2ResourcePolicyRule - { v1beta2ResourcePolicyRuleApiGroups - , v1beta2ResourcePolicyRuleClusterScope = Nothing - , v1beta2ResourcePolicyRuleNamespaces = Nothing - , v1beta2ResourcePolicyRuleResources - , v1beta2ResourcePolicyRuleVerbs - } - --- ** V1beta2ServiceAccountSubject --- | V1beta2ServiceAccountSubject --- ServiceAccountSubject holds detailed information for service-account-kind subject. -data V1beta2ServiceAccountSubject = V1beta2ServiceAccountSubject - { v1beta2ServiceAccountSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. - , v1beta2ServiceAccountSubjectNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of matching ServiceAccount objects. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2ServiceAccountSubject -instance A.FromJSON V1beta2ServiceAccountSubject where - parseJSON = A.withObject "V1beta2ServiceAccountSubject" $ \o -> - V1beta2ServiceAccountSubject - <$> (o .: "name") - <*> (o .: "namespace") - --- | ToJSON V1beta2ServiceAccountSubject -instance A.ToJSON V1beta2ServiceAccountSubject where - toJSON V1beta2ServiceAccountSubject {..} = - _omitNulls - [ "name" .= v1beta2ServiceAccountSubjectName - , "namespace" .= v1beta2ServiceAccountSubjectNamespace - ] - - --- | Construct a value of type 'V1beta2ServiceAccountSubject' (by applying it's required fields, if any) -mkV1beta2ServiceAccountSubject - :: Text -- ^ 'v1beta2ServiceAccountSubjectName': `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. - -> Text -- ^ 'v1beta2ServiceAccountSubjectNamespace': `namespace` is the namespace of matching ServiceAccount objects. Required. - -> V1beta2ServiceAccountSubject -mkV1beta2ServiceAccountSubject v1beta2ServiceAccountSubjectName v1beta2ServiceAccountSubjectNamespace = - V1beta2ServiceAccountSubject - { v1beta2ServiceAccountSubjectName - , v1beta2ServiceAccountSubjectNamespace - } - --- ** V1beta2Subject --- | V1beta2Subject --- Subject matches the originator of a request, as identified by the request authentication system. There are three ways of matching an originator; by user, group, or service account. -data V1beta2Subject = V1beta2Subject - { v1beta2SubjectGroup :: !(Maybe V1beta2GroupSubject) -- ^ "group" - , v1beta2SubjectKind :: !(Text) -- ^ /Required/ "kind" - `kind` indicates which one of the other fields is non-empty. Required - , v1beta2SubjectServiceAccount :: !(Maybe V1beta2ServiceAccountSubject) -- ^ "serviceAccount" - , v1beta2SubjectUser :: !(Maybe V1beta2UserSubject) -- ^ "user" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2Subject -instance A.FromJSON V1beta2Subject where - parseJSON = A.withObject "V1beta2Subject" $ \o -> - V1beta2Subject - <$> (o .:? "group") - <*> (o .: "kind") - <*> (o .:? "serviceAccount") - <*> (o .:? "user") - --- | ToJSON V1beta2Subject -instance A.ToJSON V1beta2Subject where - toJSON V1beta2Subject {..} = - _omitNulls - [ "group" .= v1beta2SubjectGroup - , "kind" .= v1beta2SubjectKind - , "serviceAccount" .= v1beta2SubjectServiceAccount - , "user" .= v1beta2SubjectUser - ] - - --- | Construct a value of type 'V1beta2Subject' (by applying it's required fields, if any) -mkV1beta2Subject - :: Text -- ^ 'v1beta2SubjectKind': `kind` indicates which one of the other fields is non-empty. Required - -> V1beta2Subject -mkV1beta2Subject v1beta2SubjectKind = - V1beta2Subject - { v1beta2SubjectGroup = Nothing - , v1beta2SubjectKind - , v1beta2SubjectServiceAccount = Nothing - , v1beta2SubjectUser = Nothing - } - --- ** V1beta2UserSubject --- | V1beta2UserSubject --- UserSubject holds detailed information for user-kind subject. -data V1beta2UserSubject = V1beta2UserSubject - { v1beta2UserSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the username that matches, or \"*\" to match all usernames. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta2UserSubject -instance A.FromJSON V1beta2UserSubject where - parseJSON = A.withObject "V1beta2UserSubject" $ \o -> - V1beta2UserSubject - <$> (o .: "name") - --- | ToJSON V1beta2UserSubject -instance A.ToJSON V1beta2UserSubject where - toJSON V1beta2UserSubject {..} = - _omitNulls - [ "name" .= v1beta2UserSubjectName - ] - - --- | Construct a value of type 'V1beta2UserSubject' (by applying it's required fields, if any) -mkV1beta2UserSubject - :: Text -- ^ 'v1beta2UserSubjectName': `name` is the username that matches, or \"*\" to match all usernames. Required. - -> V1beta2UserSubject -mkV1beta2UserSubject v1beta2UserSubjectName = - V1beta2UserSubject - { v1beta2UserSubjectName - } - --- ** V1beta3FlowDistinguisherMethod --- | V1beta3FlowDistinguisherMethod --- FlowDistinguisherMethod specifies the method of a flow distinguisher. -data V1beta3FlowDistinguisherMethod = V1beta3FlowDistinguisherMethod - { v1beta3FlowDistinguisherMethodType :: !(Text) -- ^ /Required/ "type" - `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowDistinguisherMethod -instance A.FromJSON V1beta3FlowDistinguisherMethod where - parseJSON = A.withObject "V1beta3FlowDistinguisherMethod" $ \o -> - V1beta3FlowDistinguisherMethod - <$> (o .: "type") - --- | ToJSON V1beta3FlowDistinguisherMethod -instance A.ToJSON V1beta3FlowDistinguisherMethod where - toJSON V1beta3FlowDistinguisherMethod {..} = - _omitNulls - [ "type" .= v1beta3FlowDistinguisherMethodType - ] - - --- | Construct a value of type 'V1beta3FlowDistinguisherMethod' (by applying it's required fields, if any) -mkV1beta3FlowDistinguisherMethod - :: Text -- ^ 'v1beta3FlowDistinguisherMethodType': `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. - -> V1beta3FlowDistinguisherMethod -mkV1beta3FlowDistinguisherMethod v1beta3FlowDistinguisherMethodType = - V1beta3FlowDistinguisherMethod - { v1beta3FlowDistinguisherMethodType - } - --- ** V1beta3FlowSchema --- | V1beta3FlowSchema --- FlowSchema defines the schema of a group of flows. Note that a flow is made up of a set of inbound API requests with similar attributes and is identified by a pair of strings: the name of the FlowSchema and a \"flow distinguisher\". -data V1beta3FlowSchema = V1beta3FlowSchema - { v1beta3FlowSchemaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta3FlowSchemaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta3FlowSchemaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1beta3FlowSchemaSpec :: !(Maybe V1beta3FlowSchemaSpec) -- ^ "spec" - , v1beta3FlowSchemaStatus :: !(Maybe V1beta3FlowSchemaStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowSchema -instance A.FromJSON V1beta3FlowSchema where - parseJSON = A.withObject "V1beta3FlowSchema" $ \o -> - V1beta3FlowSchema - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1beta3FlowSchema -instance A.ToJSON V1beta3FlowSchema where - toJSON V1beta3FlowSchema {..} = - _omitNulls - [ "apiVersion" .= v1beta3FlowSchemaApiVersion - , "kind" .= v1beta3FlowSchemaKind - , "metadata" .= v1beta3FlowSchemaMetadata - , "spec" .= v1beta3FlowSchemaSpec - , "status" .= v1beta3FlowSchemaStatus - ] - - --- | Construct a value of type 'V1beta3FlowSchema' (by applying it's required fields, if any) -mkV1beta3FlowSchema - :: V1beta3FlowSchema -mkV1beta3FlowSchema = - V1beta3FlowSchema - { v1beta3FlowSchemaApiVersion = Nothing - , v1beta3FlowSchemaKind = Nothing - , v1beta3FlowSchemaMetadata = Nothing - , v1beta3FlowSchemaSpec = Nothing - , v1beta3FlowSchemaStatus = Nothing - } - --- ** V1beta3FlowSchemaCondition --- | V1beta3FlowSchemaCondition --- FlowSchemaCondition describes conditions for a FlowSchema. -data V1beta3FlowSchemaCondition = V1beta3FlowSchemaCondition - { v1beta3FlowSchemaConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. - , v1beta3FlowSchemaConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. - , v1beta3FlowSchemaConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. - , v1beta3FlowSchemaConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. - , v1beta3FlowSchemaConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowSchemaCondition -instance A.FromJSON V1beta3FlowSchemaCondition where - parseJSON = A.withObject "V1beta3FlowSchemaCondition" $ \o -> - V1beta3FlowSchemaCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .:? "status") - <*> (o .:? "type") - --- | ToJSON V1beta3FlowSchemaCondition -instance A.ToJSON V1beta3FlowSchemaCondition where - toJSON V1beta3FlowSchemaCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1beta3FlowSchemaConditionLastTransitionTime - , "message" .= v1beta3FlowSchemaConditionMessage - , "reason" .= v1beta3FlowSchemaConditionReason - , "status" .= v1beta3FlowSchemaConditionStatus - , "type" .= v1beta3FlowSchemaConditionType - ] - - --- | Construct a value of type 'V1beta3FlowSchemaCondition' (by applying it's required fields, if any) -mkV1beta3FlowSchemaCondition - :: V1beta3FlowSchemaCondition -mkV1beta3FlowSchemaCondition = - V1beta3FlowSchemaCondition - { v1beta3FlowSchemaConditionLastTransitionTime = Nothing - , v1beta3FlowSchemaConditionMessage = Nothing - , v1beta3FlowSchemaConditionReason = Nothing - , v1beta3FlowSchemaConditionStatus = Nothing - , v1beta3FlowSchemaConditionType = Nothing - } - --- ** V1beta3FlowSchemaList --- | V1beta3FlowSchemaList --- FlowSchemaList is a list of FlowSchema objects. -data V1beta3FlowSchemaList = V1beta3FlowSchemaList - { v1beta3FlowSchemaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta3FlowSchemaListItems :: !([V1beta3FlowSchema]) -- ^ /Required/ "items" - `items` is a list of FlowSchemas. - , v1beta3FlowSchemaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta3FlowSchemaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowSchemaList -instance A.FromJSON V1beta3FlowSchemaList where - parseJSON = A.withObject "V1beta3FlowSchemaList" $ \o -> - V1beta3FlowSchemaList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1beta3FlowSchemaList -instance A.ToJSON V1beta3FlowSchemaList where - toJSON V1beta3FlowSchemaList {..} = - _omitNulls - [ "apiVersion" .= v1beta3FlowSchemaListApiVersion - , "items" .= v1beta3FlowSchemaListItems - , "kind" .= v1beta3FlowSchemaListKind - , "metadata" .= v1beta3FlowSchemaListMetadata - ] - - --- | Construct a value of type 'V1beta3FlowSchemaList' (by applying it's required fields, if any) -mkV1beta3FlowSchemaList - :: [V1beta3FlowSchema] -- ^ 'v1beta3FlowSchemaListItems': `items` is a list of FlowSchemas. - -> V1beta3FlowSchemaList -mkV1beta3FlowSchemaList v1beta3FlowSchemaListItems = - V1beta3FlowSchemaList - { v1beta3FlowSchemaListApiVersion = Nothing - , v1beta3FlowSchemaListItems - , v1beta3FlowSchemaListKind = Nothing - , v1beta3FlowSchemaListMetadata = Nothing - } - --- ** V1beta3FlowSchemaSpec --- | V1beta3FlowSchemaSpec --- FlowSchemaSpec describes how the FlowSchema's specification looks like. -data V1beta3FlowSchemaSpec = V1beta3FlowSchemaSpec - { v1beta3FlowSchemaSpecDistinguisherMethod :: !(Maybe V1beta3FlowDistinguisherMethod) -- ^ "distinguisherMethod" - , v1beta3FlowSchemaSpecMatchingPrecedence :: !(Maybe Int) -- ^ "matchingPrecedence" - `matchingPrecedence` is used to choose among the FlowSchemas that match a given request. The chosen FlowSchema is among those with the numerically lowest (which we take to be logically highest) MatchingPrecedence. Each MatchingPrecedence value must be ranged in [1,10000]. Note that if the precedence is not specified, it will be set to 1000 as default. - , v1beta3FlowSchemaSpecPriorityLevelConfiguration :: !(V1beta3PriorityLevelConfigurationReference) -- ^ /Required/ "priorityLevelConfiguration" - , v1beta3FlowSchemaSpecRules :: !(Maybe [V1beta3PolicyRulesWithSubjects]) -- ^ "rules" - `rules` describes which requests will match this flow schema. This FlowSchema matches a request if and only if at least one member of rules matches the request. if it is an empty slice, there will be no requests matching the FlowSchema. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowSchemaSpec -instance A.FromJSON V1beta3FlowSchemaSpec where - parseJSON = A.withObject "V1beta3FlowSchemaSpec" $ \o -> - V1beta3FlowSchemaSpec - <$> (o .:? "distinguisherMethod") - <*> (o .:? "matchingPrecedence") - <*> (o .: "priorityLevelConfiguration") - <*> (o .:? "rules") - --- | ToJSON V1beta3FlowSchemaSpec -instance A.ToJSON V1beta3FlowSchemaSpec where - toJSON V1beta3FlowSchemaSpec {..} = - _omitNulls - [ "distinguisherMethod" .= v1beta3FlowSchemaSpecDistinguisherMethod - , "matchingPrecedence" .= v1beta3FlowSchemaSpecMatchingPrecedence - , "priorityLevelConfiguration" .= v1beta3FlowSchemaSpecPriorityLevelConfiguration - , "rules" .= v1beta3FlowSchemaSpecRules - ] - - --- | Construct a value of type 'V1beta3FlowSchemaSpec' (by applying it's required fields, if any) -mkV1beta3FlowSchemaSpec - :: V1beta3PriorityLevelConfigurationReference -- ^ 'v1beta3FlowSchemaSpecPriorityLevelConfiguration' - -> V1beta3FlowSchemaSpec -mkV1beta3FlowSchemaSpec v1beta3FlowSchemaSpecPriorityLevelConfiguration = - V1beta3FlowSchemaSpec - { v1beta3FlowSchemaSpecDistinguisherMethod = Nothing - , v1beta3FlowSchemaSpecMatchingPrecedence = Nothing - , v1beta3FlowSchemaSpecPriorityLevelConfiguration - , v1beta3FlowSchemaSpecRules = Nothing - } - --- ** V1beta3FlowSchemaStatus --- | V1beta3FlowSchemaStatus --- FlowSchemaStatus represents the current state of a FlowSchema. -data V1beta3FlowSchemaStatus = V1beta3FlowSchemaStatus - { v1beta3FlowSchemaStatusConditions :: !(Maybe [V1beta3FlowSchemaCondition]) -- ^ "conditions" - `conditions` is a list of the current states of FlowSchema. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3FlowSchemaStatus -instance A.FromJSON V1beta3FlowSchemaStatus where - parseJSON = A.withObject "V1beta3FlowSchemaStatus" $ \o -> - V1beta3FlowSchemaStatus - <$> (o .:? "conditions") - --- | ToJSON V1beta3FlowSchemaStatus -instance A.ToJSON V1beta3FlowSchemaStatus where - toJSON V1beta3FlowSchemaStatus {..} = - _omitNulls - [ "conditions" .= v1beta3FlowSchemaStatusConditions - ] - - --- | Construct a value of type 'V1beta3FlowSchemaStatus' (by applying it's required fields, if any) -mkV1beta3FlowSchemaStatus - :: V1beta3FlowSchemaStatus -mkV1beta3FlowSchemaStatus = - V1beta3FlowSchemaStatus - { v1beta3FlowSchemaStatusConditions = Nothing - } - --- ** V1beta3GroupSubject --- | V1beta3GroupSubject --- GroupSubject holds detailed information for group-kind subject. -data V1beta3GroupSubject = V1beta3GroupSubject - { v1beta3GroupSubjectName :: !(Text) -- ^ /Required/ "name" - name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3GroupSubject -instance A.FromJSON V1beta3GroupSubject where - parseJSON = A.withObject "V1beta3GroupSubject" $ \o -> - V1beta3GroupSubject - <$> (o .: "name") - --- | ToJSON V1beta3GroupSubject -instance A.ToJSON V1beta3GroupSubject where - toJSON V1beta3GroupSubject {..} = - _omitNulls - [ "name" .= v1beta3GroupSubjectName - ] - - --- | Construct a value of type 'V1beta3GroupSubject' (by applying it's required fields, if any) -mkV1beta3GroupSubject - :: Text -- ^ 'v1beta3GroupSubjectName': name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. - -> V1beta3GroupSubject -mkV1beta3GroupSubject v1beta3GroupSubjectName = - V1beta3GroupSubject - { v1beta3GroupSubjectName - } - --- ** V1beta3LimitResponse --- | V1beta3LimitResponse --- LimitResponse defines how to handle requests that can not be executed right now. -data V1beta3LimitResponse = V1beta3LimitResponse - { v1beta3LimitResponseQueuing :: !(Maybe V1beta3QueuingConfiguration) -- ^ "queuing" - , v1beta3LimitResponseType :: !(Text) -- ^ /Required/ "type" - `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3LimitResponse -instance A.FromJSON V1beta3LimitResponse where - parseJSON = A.withObject "V1beta3LimitResponse" $ \o -> - V1beta3LimitResponse - <$> (o .:? "queuing") - <*> (o .: "type") - --- | ToJSON V1beta3LimitResponse -instance A.ToJSON V1beta3LimitResponse where - toJSON V1beta3LimitResponse {..} = - _omitNulls - [ "queuing" .= v1beta3LimitResponseQueuing - , "type" .= v1beta3LimitResponseType - ] - - --- | Construct a value of type 'V1beta3LimitResponse' (by applying it's required fields, if any) -mkV1beta3LimitResponse - :: Text -- ^ 'v1beta3LimitResponseType': `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. - -> V1beta3LimitResponse -mkV1beta3LimitResponse v1beta3LimitResponseType = - V1beta3LimitResponse - { v1beta3LimitResponseQueuing = Nothing - , v1beta3LimitResponseType - } - --- ** V1beta3LimitedPriorityLevelConfiguration --- | V1beta3LimitedPriorityLevelConfiguration --- LimitedPriorityLevelConfiguration specifies how to handle requests that are subject to limits. It addresses two issues: - How are requests for this priority level limited? - What should be done with requests that exceed the limit? -data V1beta3LimitedPriorityLevelConfiguration = V1beta3LimitedPriorityLevelConfiguration - { v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent :: !(Maybe Int) -- ^ "borrowingLimitPercent" - `borrowingLimitPercent`, if present, configures a limit on how many seats this priority level can borrow from other priority levels. The limit is known as this level's BorrowingConcurrencyLimit (BorrowingCL) and is a limit on the total number of seats that this level may borrow at any one time. This field holds the ratio of that limit to the level's nominal concurrency limit. When this field is non-nil, it must hold a non-negative integer and the limit is calculated as follows. BorrowingCL(i) = round( NominalCL(i) * borrowingLimitPercent(i)/100.0 ) The value of this field can be more than 100, implying that this priority level can borrow a number of seats that is greater than its own nominal concurrency limit (NominalCL). When this field is left `nil`, the limit is effectively infinite. - , v1beta3LimitedPriorityLevelConfigurationLendablePercent :: !(Maybe Int) -- ^ "lendablePercent" - `lendablePercent` prescribes the fraction of the level's NominalCL that can be borrowed by other priority levels. The value of this field must be between 0 and 100, inclusive, and it defaults to 0. The number of seats that other levels can borrow from this level, known as this level's LendableConcurrencyLimit (LendableCL), is defined as follows. LendableCL(i) = round( NominalCL(i) * lendablePercent(i)/100.0 ) - , v1beta3LimitedPriorityLevelConfigurationLimitResponse :: !(Maybe V1beta3LimitResponse) -- ^ "limitResponse" - , v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares :: !(Maybe Int) -- ^ "nominalConcurrencyShares" - `nominalConcurrencyShares` (NCS) contributes to the computation of the NominalConcurrencyLimit (NominalCL) of this level. This is the number of execution seats available at this priority level. This is used both for requests dispatched from this priority level as well as requests dispatched from other priority levels borrowing seats from this level. The server's concurrency limit (ServerCL) is divided among the Limited priority levels in proportion to their NCS values: NominalCL(i) = ceil( ServerCL * NCS(i) / sum_ncs ) sum_ncs = sum[limited priority level k] NCS(k) Bigger numbers mean a larger nominal concurrency limit, at the expense of every other Limited priority level. This field has a default value of 30. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3LimitedPriorityLevelConfiguration -instance A.FromJSON V1beta3LimitedPriorityLevelConfiguration where - parseJSON = A.withObject "V1beta3LimitedPriorityLevelConfiguration" $ \o -> - V1beta3LimitedPriorityLevelConfiguration - <$> (o .:? "borrowingLimitPercent") - <*> (o .:? "lendablePercent") - <*> (o .:? "limitResponse") - <*> (o .:? "nominalConcurrencyShares") - --- | ToJSON V1beta3LimitedPriorityLevelConfiguration -instance A.ToJSON V1beta3LimitedPriorityLevelConfiguration where - toJSON V1beta3LimitedPriorityLevelConfiguration {..} = - _omitNulls - [ "borrowingLimitPercent" .= v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent - , "lendablePercent" .= v1beta3LimitedPriorityLevelConfigurationLendablePercent - , "limitResponse" .= v1beta3LimitedPriorityLevelConfigurationLimitResponse - , "nominalConcurrencyShares" .= v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares - ] - - --- | Construct a value of type 'V1beta3LimitedPriorityLevelConfiguration' (by applying it's required fields, if any) -mkV1beta3LimitedPriorityLevelConfiguration - :: V1beta3LimitedPriorityLevelConfiguration -mkV1beta3LimitedPriorityLevelConfiguration = - V1beta3LimitedPriorityLevelConfiguration - { v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent = Nothing - , v1beta3LimitedPriorityLevelConfigurationLendablePercent = Nothing - , v1beta3LimitedPriorityLevelConfigurationLimitResponse = Nothing - , v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares = Nothing - } - --- ** V1beta3NonResourcePolicyRule --- | V1beta3NonResourcePolicyRule --- NonResourcePolicyRule is a predicate that matches non-resource requests according to their verb and the target non-resource URL. A NonResourcePolicyRule matches a request if and only if both (a) at least one member of verbs matches the request and (b) at least one member of nonResourceURLs matches the request. -data V1beta3NonResourcePolicyRule = V1beta3NonResourcePolicyRule - { v1beta3NonResourcePolicyRuleNonResourceUrls :: !([Text]) -- ^ /Required/ "nonResourceURLs" - `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. - , v1beta3NonResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3NonResourcePolicyRule -instance A.FromJSON V1beta3NonResourcePolicyRule where - parseJSON = A.withObject "V1beta3NonResourcePolicyRule" $ \o -> - V1beta3NonResourcePolicyRule - <$> (o .: "nonResourceURLs") - <*> (o .: "verbs") - --- | ToJSON V1beta3NonResourcePolicyRule -instance A.ToJSON V1beta3NonResourcePolicyRule where - toJSON V1beta3NonResourcePolicyRule {..} = - _omitNulls - [ "nonResourceURLs" .= v1beta3NonResourcePolicyRuleNonResourceUrls - , "verbs" .= v1beta3NonResourcePolicyRuleVerbs - ] - - --- | Construct a value of type 'V1beta3NonResourcePolicyRule' (by applying it's required fields, if any) -mkV1beta3NonResourcePolicyRule - :: [Text] -- ^ 'v1beta3NonResourcePolicyRuleNonResourceUrls': `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. - -> [Text] -- ^ 'v1beta3NonResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. - -> V1beta3NonResourcePolicyRule -mkV1beta3NonResourcePolicyRule v1beta3NonResourcePolicyRuleNonResourceUrls v1beta3NonResourcePolicyRuleVerbs = - V1beta3NonResourcePolicyRule - { v1beta3NonResourcePolicyRuleNonResourceUrls - , v1beta3NonResourcePolicyRuleVerbs - } - --- ** V1beta3PolicyRulesWithSubjects --- | V1beta3PolicyRulesWithSubjects --- PolicyRulesWithSubjects prescribes a test that applies to a request to an apiserver. The test considers the subject making the request, the verb being requested, and the resource to be acted upon. This PolicyRulesWithSubjects matches a request if and only if both (a) at least one member of subjects matches the request and (b) at least one member of resourceRules or nonResourceRules matches the request. -data V1beta3PolicyRulesWithSubjects = V1beta3PolicyRulesWithSubjects - { v1beta3PolicyRulesWithSubjectsNonResourceRules :: !(Maybe [V1beta3NonResourcePolicyRule]) -- ^ "nonResourceRules" - `nonResourceRules` is a list of NonResourcePolicyRules that identify matching requests according to their verb and the target non-resource URL. - , v1beta3PolicyRulesWithSubjectsResourceRules :: !(Maybe [V1beta3ResourcePolicyRule]) -- ^ "resourceRules" - `resourceRules` is a slice of ResourcePolicyRules that identify matching requests according to their verb and the target resource. At least one of `resourceRules` and `nonResourceRules` has to be non-empty. - , v1beta3PolicyRulesWithSubjectsSubjects :: !([V1beta3Subject]) -- ^ /Required/ "subjects" - subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PolicyRulesWithSubjects -instance A.FromJSON V1beta3PolicyRulesWithSubjects where - parseJSON = A.withObject "V1beta3PolicyRulesWithSubjects" $ \o -> - V1beta3PolicyRulesWithSubjects - <$> (o .:? "nonResourceRules") - <*> (o .:? "resourceRules") - <*> (o .: "subjects") - --- | ToJSON V1beta3PolicyRulesWithSubjects -instance A.ToJSON V1beta3PolicyRulesWithSubjects where - toJSON V1beta3PolicyRulesWithSubjects {..} = - _omitNulls - [ "nonResourceRules" .= v1beta3PolicyRulesWithSubjectsNonResourceRules - , "resourceRules" .= v1beta3PolicyRulesWithSubjectsResourceRules - , "subjects" .= v1beta3PolicyRulesWithSubjectsSubjects - ] - - --- | Construct a value of type 'V1beta3PolicyRulesWithSubjects' (by applying it's required fields, if any) -mkV1beta3PolicyRulesWithSubjects - :: [V1beta3Subject] -- ^ 'v1beta3PolicyRulesWithSubjectsSubjects': subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. - -> V1beta3PolicyRulesWithSubjects -mkV1beta3PolicyRulesWithSubjects v1beta3PolicyRulesWithSubjectsSubjects = - V1beta3PolicyRulesWithSubjects - { v1beta3PolicyRulesWithSubjectsNonResourceRules = Nothing - , v1beta3PolicyRulesWithSubjectsResourceRules = Nothing - , v1beta3PolicyRulesWithSubjectsSubjects - } - --- ** V1beta3PriorityLevelConfiguration --- | V1beta3PriorityLevelConfiguration --- PriorityLevelConfiguration represents the configuration of a priority level. -data V1beta3PriorityLevelConfiguration = V1beta3PriorityLevelConfiguration - { v1beta3PriorityLevelConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta3PriorityLevelConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta3PriorityLevelConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v1beta3PriorityLevelConfigurationSpec :: !(Maybe V1beta3PriorityLevelConfigurationSpec) -- ^ "spec" - , v1beta3PriorityLevelConfigurationStatus :: !(Maybe V1beta3PriorityLevelConfigurationStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfiguration -instance A.FromJSON V1beta3PriorityLevelConfiguration where - parseJSON = A.withObject "V1beta3PriorityLevelConfiguration" $ \o -> - V1beta3PriorityLevelConfiguration - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V1beta3PriorityLevelConfiguration -instance A.ToJSON V1beta3PriorityLevelConfiguration where - toJSON V1beta3PriorityLevelConfiguration {..} = - _omitNulls - [ "apiVersion" .= v1beta3PriorityLevelConfigurationApiVersion - , "kind" .= v1beta3PriorityLevelConfigurationKind - , "metadata" .= v1beta3PriorityLevelConfigurationMetadata - , "spec" .= v1beta3PriorityLevelConfigurationSpec - , "status" .= v1beta3PriorityLevelConfigurationStatus - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfiguration' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfiguration - :: V1beta3PriorityLevelConfiguration -mkV1beta3PriorityLevelConfiguration = - V1beta3PriorityLevelConfiguration - { v1beta3PriorityLevelConfigurationApiVersion = Nothing - , v1beta3PriorityLevelConfigurationKind = Nothing - , v1beta3PriorityLevelConfigurationMetadata = Nothing - , v1beta3PriorityLevelConfigurationSpec = Nothing - , v1beta3PriorityLevelConfigurationStatus = Nothing - } - --- ** V1beta3PriorityLevelConfigurationCondition --- | V1beta3PriorityLevelConfigurationCondition --- PriorityLevelConfigurationCondition defines the condition of priority level. -data V1beta3PriorityLevelConfigurationCondition = V1beta3PriorityLevelConfigurationCondition - { v1beta3PriorityLevelConfigurationConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. - , v1beta3PriorityLevelConfigurationConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. - , v1beta3PriorityLevelConfigurationConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. - , v1beta3PriorityLevelConfigurationConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. - , v1beta3PriorityLevelConfigurationConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfigurationCondition -instance A.FromJSON V1beta3PriorityLevelConfigurationCondition where - parseJSON = A.withObject "V1beta3PriorityLevelConfigurationCondition" $ \o -> - V1beta3PriorityLevelConfigurationCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .:? "status") - <*> (o .:? "type") - --- | ToJSON V1beta3PriorityLevelConfigurationCondition -instance A.ToJSON V1beta3PriorityLevelConfigurationCondition where - toJSON V1beta3PriorityLevelConfigurationCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v1beta3PriorityLevelConfigurationConditionLastTransitionTime - , "message" .= v1beta3PriorityLevelConfigurationConditionMessage - , "reason" .= v1beta3PriorityLevelConfigurationConditionReason - , "status" .= v1beta3PriorityLevelConfigurationConditionStatus - , "type" .= v1beta3PriorityLevelConfigurationConditionType - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfigurationCondition' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfigurationCondition - :: V1beta3PriorityLevelConfigurationCondition -mkV1beta3PriorityLevelConfigurationCondition = - V1beta3PriorityLevelConfigurationCondition - { v1beta3PriorityLevelConfigurationConditionLastTransitionTime = Nothing - , v1beta3PriorityLevelConfigurationConditionMessage = Nothing - , v1beta3PriorityLevelConfigurationConditionReason = Nothing - , v1beta3PriorityLevelConfigurationConditionStatus = Nothing - , v1beta3PriorityLevelConfigurationConditionType = Nothing - } - --- ** V1beta3PriorityLevelConfigurationList --- | V1beta3PriorityLevelConfigurationList --- PriorityLevelConfigurationList is a list of PriorityLevelConfiguration objects. -data V1beta3PriorityLevelConfigurationList = V1beta3PriorityLevelConfigurationList - { v1beta3PriorityLevelConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v1beta3PriorityLevelConfigurationListItems :: !([V1beta3PriorityLevelConfiguration]) -- ^ /Required/ "items" - `items` is a list of request-priorities. - , v1beta3PriorityLevelConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v1beta3PriorityLevelConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfigurationList -instance A.FromJSON V1beta3PriorityLevelConfigurationList where - parseJSON = A.withObject "V1beta3PriorityLevelConfigurationList" $ \o -> - V1beta3PriorityLevelConfigurationList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V1beta3PriorityLevelConfigurationList -instance A.ToJSON V1beta3PriorityLevelConfigurationList where - toJSON V1beta3PriorityLevelConfigurationList {..} = - _omitNulls - [ "apiVersion" .= v1beta3PriorityLevelConfigurationListApiVersion - , "items" .= v1beta3PriorityLevelConfigurationListItems - , "kind" .= v1beta3PriorityLevelConfigurationListKind - , "metadata" .= v1beta3PriorityLevelConfigurationListMetadata - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfigurationList' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfigurationList - :: [V1beta3PriorityLevelConfiguration] -- ^ 'v1beta3PriorityLevelConfigurationListItems': `items` is a list of request-priorities. - -> V1beta3PriorityLevelConfigurationList -mkV1beta3PriorityLevelConfigurationList v1beta3PriorityLevelConfigurationListItems = - V1beta3PriorityLevelConfigurationList - { v1beta3PriorityLevelConfigurationListApiVersion = Nothing - , v1beta3PriorityLevelConfigurationListItems - , v1beta3PriorityLevelConfigurationListKind = Nothing - , v1beta3PriorityLevelConfigurationListMetadata = Nothing - } - --- ** V1beta3PriorityLevelConfigurationReference --- | V1beta3PriorityLevelConfigurationReference --- PriorityLevelConfigurationReference contains information that points to the \"request-priority\" being used. -data V1beta3PriorityLevelConfigurationReference = V1beta3PriorityLevelConfigurationReference - { v1beta3PriorityLevelConfigurationReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the priority level configuration being referenced Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfigurationReference -instance A.FromJSON V1beta3PriorityLevelConfigurationReference where - parseJSON = A.withObject "V1beta3PriorityLevelConfigurationReference" $ \o -> - V1beta3PriorityLevelConfigurationReference - <$> (o .: "name") - --- | ToJSON V1beta3PriorityLevelConfigurationReference -instance A.ToJSON V1beta3PriorityLevelConfigurationReference where - toJSON V1beta3PriorityLevelConfigurationReference {..} = - _omitNulls - [ "name" .= v1beta3PriorityLevelConfigurationReferenceName - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfigurationReference' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfigurationReference - :: Text -- ^ 'v1beta3PriorityLevelConfigurationReferenceName': `name` is the name of the priority level configuration being referenced Required. - -> V1beta3PriorityLevelConfigurationReference -mkV1beta3PriorityLevelConfigurationReference v1beta3PriorityLevelConfigurationReferenceName = - V1beta3PriorityLevelConfigurationReference - { v1beta3PriorityLevelConfigurationReferenceName - } - --- ** V1beta3PriorityLevelConfigurationSpec --- | V1beta3PriorityLevelConfigurationSpec --- PriorityLevelConfigurationSpec specifies the configuration of a priority level. -data V1beta3PriorityLevelConfigurationSpec = V1beta3PriorityLevelConfigurationSpec - { v1beta3PriorityLevelConfigurationSpecLimited :: !(Maybe V1beta3LimitedPriorityLevelConfiguration) -- ^ "limited" - , v1beta3PriorityLevelConfigurationSpecType :: !(Text) -- ^ /Required/ "type" - `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfigurationSpec -instance A.FromJSON V1beta3PriorityLevelConfigurationSpec where - parseJSON = A.withObject "V1beta3PriorityLevelConfigurationSpec" $ \o -> - V1beta3PriorityLevelConfigurationSpec - <$> (o .:? "limited") - <*> (o .: "type") - --- | ToJSON V1beta3PriorityLevelConfigurationSpec -instance A.ToJSON V1beta3PriorityLevelConfigurationSpec where - toJSON V1beta3PriorityLevelConfigurationSpec {..} = - _omitNulls - [ "limited" .= v1beta3PriorityLevelConfigurationSpecLimited - , "type" .= v1beta3PriorityLevelConfigurationSpecType - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfigurationSpec' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfigurationSpec - :: Text -- ^ 'v1beta3PriorityLevelConfigurationSpecType': `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. - -> V1beta3PriorityLevelConfigurationSpec -mkV1beta3PriorityLevelConfigurationSpec v1beta3PriorityLevelConfigurationSpecType = - V1beta3PriorityLevelConfigurationSpec - { v1beta3PriorityLevelConfigurationSpecLimited = Nothing - , v1beta3PriorityLevelConfigurationSpecType - } - --- ** V1beta3PriorityLevelConfigurationStatus --- | V1beta3PriorityLevelConfigurationStatus --- PriorityLevelConfigurationStatus represents the current state of a \"request-priority\". -data V1beta3PriorityLevelConfigurationStatus = V1beta3PriorityLevelConfigurationStatus - { v1beta3PriorityLevelConfigurationStatusConditions :: !(Maybe [V1beta3PriorityLevelConfigurationCondition]) -- ^ "conditions" - `conditions` is the current state of \"request-priority\". - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3PriorityLevelConfigurationStatus -instance A.FromJSON V1beta3PriorityLevelConfigurationStatus where - parseJSON = A.withObject "V1beta3PriorityLevelConfigurationStatus" $ \o -> - V1beta3PriorityLevelConfigurationStatus - <$> (o .:? "conditions") - --- | ToJSON V1beta3PriorityLevelConfigurationStatus -instance A.ToJSON V1beta3PriorityLevelConfigurationStatus where - toJSON V1beta3PriorityLevelConfigurationStatus {..} = - _omitNulls - [ "conditions" .= v1beta3PriorityLevelConfigurationStatusConditions - ] - - --- | Construct a value of type 'V1beta3PriorityLevelConfigurationStatus' (by applying it's required fields, if any) -mkV1beta3PriorityLevelConfigurationStatus - :: V1beta3PriorityLevelConfigurationStatus -mkV1beta3PriorityLevelConfigurationStatus = - V1beta3PriorityLevelConfigurationStatus - { v1beta3PriorityLevelConfigurationStatusConditions = Nothing - } - --- ** V1beta3QueuingConfiguration --- | V1beta3QueuingConfiguration --- QueuingConfiguration holds the configuration parameters for queuing -data V1beta3QueuingConfiguration = V1beta3QueuingConfiguration - { v1beta3QueuingConfigurationHandSize :: !(Maybe Int) -- ^ "handSize" - `handSize` is a small positive number that configures the shuffle sharding of requests into queues. When enqueuing a request at this priority level the request's flow identifier (a string pair) is hashed and the hash value is used to shuffle the list of queues and deal a hand of the size specified here. The request is put into one of the shortest queues in that hand. `handSize` must be no larger than `queues`, and should be significantly smaller (so that a few heavy flows do not saturate most of the queues). See the user-facing documentation for more extensive guidance on setting this field. This field has a default value of 8. - , v1beta3QueuingConfigurationQueueLengthLimit :: !(Maybe Int) -- ^ "queueLengthLimit" - `queueLengthLimit` is the maximum number of requests allowed to be waiting in a given queue of this priority level at a time; excess requests are rejected. This value must be positive. If not specified, it will be defaulted to 50. - , v1beta3QueuingConfigurationQueues :: !(Maybe Int) -- ^ "queues" - `queues` is the number of queues for this priority level. The queues exist independently at each apiserver. The value must be positive. Setting it to 1 effectively precludes shufflesharding and thus makes the distinguisher method of associated flow schemas irrelevant. This field has a default value of 64. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3QueuingConfiguration -instance A.FromJSON V1beta3QueuingConfiguration where - parseJSON = A.withObject "V1beta3QueuingConfiguration" $ \o -> - V1beta3QueuingConfiguration - <$> (o .:? "handSize") - <*> (o .:? "queueLengthLimit") - <*> (o .:? "queues") - --- | ToJSON V1beta3QueuingConfiguration -instance A.ToJSON V1beta3QueuingConfiguration where - toJSON V1beta3QueuingConfiguration {..} = - _omitNulls - [ "handSize" .= v1beta3QueuingConfigurationHandSize - , "queueLengthLimit" .= v1beta3QueuingConfigurationQueueLengthLimit - , "queues" .= v1beta3QueuingConfigurationQueues - ] - - --- | Construct a value of type 'V1beta3QueuingConfiguration' (by applying it's required fields, if any) -mkV1beta3QueuingConfiguration - :: V1beta3QueuingConfiguration -mkV1beta3QueuingConfiguration = - V1beta3QueuingConfiguration - { v1beta3QueuingConfigurationHandSize = Nothing - , v1beta3QueuingConfigurationQueueLengthLimit = Nothing - , v1beta3QueuingConfigurationQueues = Nothing - } - --- ** V1beta3ResourcePolicyRule --- | V1beta3ResourcePolicyRule --- ResourcePolicyRule is a predicate that matches some resource requests, testing the request's verb and the target resource. A ResourcePolicyRule matches a resource request if and only if: (a) at least one member of verbs matches the request, (b) at least one member of apiGroups matches the request, (c) at least one member of resources matches the request, and (d) either (d1) the request does not specify a namespace (i.e., `Namespace==\"\"`) and clusterScope is true or (d2) the request specifies a namespace and least one member of namespaces matches the request's namespace. -data V1beta3ResourcePolicyRule = V1beta3ResourcePolicyRule - { v1beta3ResourcePolicyRuleApiGroups :: !([Text]) -- ^ /Required/ "apiGroups" - `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. - , v1beta3ResourcePolicyRuleClusterScope :: !(Maybe Bool) -- ^ "clusterScope" - `clusterScope` indicates whether to match requests that do not specify a namespace (which happens either because the resource is not namespaced or the request targets all namespaces). If this field is omitted or false then the `namespaces` field must contain a non-empty list. - , v1beta3ResourcePolicyRuleNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - `namespaces` is a list of target namespaces that restricts matches. A request that specifies a target namespace matches only if either (a) this list contains that target namespace or (b) this list contains \"*\". Note that \"*\" matches any specified namespace but does not match a request that _does not specify_ a namespace (see the `clusterScope` field for that). This list may be empty, but only if `clusterScope` is true. - , v1beta3ResourcePolicyRuleResources :: !([Text]) -- ^ /Required/ "resources" - `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. - , v1beta3ResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3ResourcePolicyRule -instance A.FromJSON V1beta3ResourcePolicyRule where - parseJSON = A.withObject "V1beta3ResourcePolicyRule" $ \o -> - V1beta3ResourcePolicyRule - <$> (o .: "apiGroups") - <*> (o .:? "clusterScope") - <*> (o .:? "namespaces") - <*> (o .: "resources") - <*> (o .: "verbs") - --- | ToJSON V1beta3ResourcePolicyRule -instance A.ToJSON V1beta3ResourcePolicyRule where - toJSON V1beta3ResourcePolicyRule {..} = - _omitNulls - [ "apiGroups" .= v1beta3ResourcePolicyRuleApiGroups - , "clusterScope" .= v1beta3ResourcePolicyRuleClusterScope - , "namespaces" .= v1beta3ResourcePolicyRuleNamespaces - , "resources" .= v1beta3ResourcePolicyRuleResources - , "verbs" .= v1beta3ResourcePolicyRuleVerbs - ] - - --- | Construct a value of type 'V1beta3ResourcePolicyRule' (by applying it's required fields, if any) -mkV1beta3ResourcePolicyRule - :: [Text] -- ^ 'v1beta3ResourcePolicyRuleApiGroups': `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. - -> [Text] -- ^ 'v1beta3ResourcePolicyRuleResources': `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. - -> [Text] -- ^ 'v1beta3ResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. - -> V1beta3ResourcePolicyRule -mkV1beta3ResourcePolicyRule v1beta3ResourcePolicyRuleApiGroups v1beta3ResourcePolicyRuleResources v1beta3ResourcePolicyRuleVerbs = - V1beta3ResourcePolicyRule - { v1beta3ResourcePolicyRuleApiGroups - , v1beta3ResourcePolicyRuleClusterScope = Nothing - , v1beta3ResourcePolicyRuleNamespaces = Nothing - , v1beta3ResourcePolicyRuleResources - , v1beta3ResourcePolicyRuleVerbs - } - --- ** V1beta3ServiceAccountSubject --- | V1beta3ServiceAccountSubject --- ServiceAccountSubject holds detailed information for service-account-kind subject. -data V1beta3ServiceAccountSubject = V1beta3ServiceAccountSubject - { v1beta3ServiceAccountSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. - , v1beta3ServiceAccountSubjectNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of matching ServiceAccount objects. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3ServiceAccountSubject -instance A.FromJSON V1beta3ServiceAccountSubject where - parseJSON = A.withObject "V1beta3ServiceAccountSubject" $ \o -> - V1beta3ServiceAccountSubject - <$> (o .: "name") - <*> (o .: "namespace") - --- | ToJSON V1beta3ServiceAccountSubject -instance A.ToJSON V1beta3ServiceAccountSubject where - toJSON V1beta3ServiceAccountSubject {..} = - _omitNulls - [ "name" .= v1beta3ServiceAccountSubjectName - , "namespace" .= v1beta3ServiceAccountSubjectNamespace - ] - - --- | Construct a value of type 'V1beta3ServiceAccountSubject' (by applying it's required fields, if any) -mkV1beta3ServiceAccountSubject - :: Text -- ^ 'v1beta3ServiceAccountSubjectName': `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. - -> Text -- ^ 'v1beta3ServiceAccountSubjectNamespace': `namespace` is the namespace of matching ServiceAccount objects. Required. - -> V1beta3ServiceAccountSubject -mkV1beta3ServiceAccountSubject v1beta3ServiceAccountSubjectName v1beta3ServiceAccountSubjectNamespace = - V1beta3ServiceAccountSubject - { v1beta3ServiceAccountSubjectName - , v1beta3ServiceAccountSubjectNamespace - } - --- ** V1beta3Subject --- | V1beta3Subject --- Subject matches the originator of a request, as identified by the request authentication system. There are three ways of matching an originator; by user, group, or service account. -data V1beta3Subject = V1beta3Subject - { v1beta3SubjectGroup :: !(Maybe V1beta3GroupSubject) -- ^ "group" - , v1beta3SubjectKind :: !(Text) -- ^ /Required/ "kind" - `kind` indicates which one of the other fields is non-empty. Required - , v1beta3SubjectServiceAccount :: !(Maybe V1beta3ServiceAccountSubject) -- ^ "serviceAccount" - , v1beta3SubjectUser :: !(Maybe V1beta3UserSubject) -- ^ "user" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3Subject -instance A.FromJSON V1beta3Subject where - parseJSON = A.withObject "V1beta3Subject" $ \o -> - V1beta3Subject - <$> (o .:? "group") - <*> (o .: "kind") - <*> (o .:? "serviceAccount") - <*> (o .:? "user") - --- | ToJSON V1beta3Subject -instance A.ToJSON V1beta3Subject where - toJSON V1beta3Subject {..} = - _omitNulls - [ "group" .= v1beta3SubjectGroup - , "kind" .= v1beta3SubjectKind - , "serviceAccount" .= v1beta3SubjectServiceAccount - , "user" .= v1beta3SubjectUser - ] - - --- | Construct a value of type 'V1beta3Subject' (by applying it's required fields, if any) -mkV1beta3Subject - :: Text -- ^ 'v1beta3SubjectKind': `kind` indicates which one of the other fields is non-empty. Required - -> V1beta3Subject -mkV1beta3Subject v1beta3SubjectKind = - V1beta3Subject - { v1beta3SubjectGroup = Nothing - , v1beta3SubjectKind - , v1beta3SubjectServiceAccount = Nothing - , v1beta3SubjectUser = Nothing - } - --- ** V1beta3UserSubject --- | V1beta3UserSubject --- UserSubject holds detailed information for user-kind subject. -data V1beta3UserSubject = V1beta3UserSubject - { v1beta3UserSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the username that matches, or \"*\" to match all usernames. Required. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V1beta3UserSubject -instance A.FromJSON V1beta3UserSubject where - parseJSON = A.withObject "V1beta3UserSubject" $ \o -> - V1beta3UserSubject - <$> (o .: "name") - --- | ToJSON V1beta3UserSubject -instance A.ToJSON V1beta3UserSubject where - toJSON V1beta3UserSubject {..} = - _omitNulls - [ "name" .= v1beta3UserSubjectName - ] - - --- | Construct a value of type 'V1beta3UserSubject' (by applying it's required fields, if any) -mkV1beta3UserSubject - :: Text -- ^ 'v1beta3UserSubjectName': `name` is the username that matches, or \"*\" to match all usernames. Required. - -> V1beta3UserSubject -mkV1beta3UserSubject v1beta3UserSubjectName = - V1beta3UserSubject - { v1beta3UserSubjectName - } - --- ** V2ContainerResourceMetricSource --- | V2ContainerResourceMetricSource --- ContainerResourceMetricSource indicates how to scale on a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). The values will be averaged together before being compared to the target. Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. Only one \"target\" type should be set. -data V2ContainerResourceMetricSource = V2ContainerResourceMetricSource - { v2ContainerResourceMetricSourceContainer :: !(Text) -- ^ /Required/ "container" - container is the name of the container in the pods of the scaling target - , v2ContainerResourceMetricSourceName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. - , v2ContainerResourceMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ContainerResourceMetricSource -instance A.FromJSON V2ContainerResourceMetricSource where - parseJSON = A.withObject "V2ContainerResourceMetricSource" $ \o -> - V2ContainerResourceMetricSource - <$> (o .: "container") - <*> (o .: "name") - <*> (o .: "target") - --- | ToJSON V2ContainerResourceMetricSource -instance A.ToJSON V2ContainerResourceMetricSource where - toJSON V2ContainerResourceMetricSource {..} = - _omitNulls - [ "container" .= v2ContainerResourceMetricSourceContainer - , "name" .= v2ContainerResourceMetricSourceName - , "target" .= v2ContainerResourceMetricSourceTarget - ] - - --- | Construct a value of type 'V2ContainerResourceMetricSource' (by applying it's required fields, if any) -mkV2ContainerResourceMetricSource - :: Text -- ^ 'v2ContainerResourceMetricSourceContainer': container is the name of the container in the pods of the scaling target - -> Text -- ^ 'v2ContainerResourceMetricSourceName': name is the name of the resource in question. - -> V2MetricTarget -- ^ 'v2ContainerResourceMetricSourceTarget' - -> V2ContainerResourceMetricSource -mkV2ContainerResourceMetricSource v2ContainerResourceMetricSourceContainer v2ContainerResourceMetricSourceName v2ContainerResourceMetricSourceTarget = - V2ContainerResourceMetricSource - { v2ContainerResourceMetricSourceContainer - , v2ContainerResourceMetricSourceName - , v2ContainerResourceMetricSourceTarget - } - --- ** V2ContainerResourceMetricStatus --- | V2ContainerResourceMetricStatus --- ContainerResourceMetricStatus indicates the current value of a resource metric known to Kubernetes, as specified in requests and limits, describing a single container in each pod in the current scale target (e.g. CPU or memory). Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. -data V2ContainerResourceMetricStatus = V2ContainerResourceMetricStatus - { v2ContainerResourceMetricStatusContainer :: !(Text) -- ^ /Required/ "container" - Container is the name of the container in the pods of the scaling target - , v2ContainerResourceMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" - , v2ContainerResourceMetricStatusName :: !(Text) -- ^ /Required/ "name" - Name is the name of the resource in question. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ContainerResourceMetricStatus -instance A.FromJSON V2ContainerResourceMetricStatus where - parseJSON = A.withObject "V2ContainerResourceMetricStatus" $ \o -> - V2ContainerResourceMetricStatus - <$> (o .: "container") - <*> (o .: "current") - <*> (o .: "name") - --- | ToJSON V2ContainerResourceMetricStatus -instance A.ToJSON V2ContainerResourceMetricStatus where - toJSON V2ContainerResourceMetricStatus {..} = - _omitNulls - [ "container" .= v2ContainerResourceMetricStatusContainer - , "current" .= v2ContainerResourceMetricStatusCurrent - , "name" .= v2ContainerResourceMetricStatusName - ] - - --- | Construct a value of type 'V2ContainerResourceMetricStatus' (by applying it's required fields, if any) -mkV2ContainerResourceMetricStatus - :: Text -- ^ 'v2ContainerResourceMetricStatusContainer': Container is the name of the container in the pods of the scaling target - -> V2MetricValueStatus -- ^ 'v2ContainerResourceMetricStatusCurrent' - -> Text -- ^ 'v2ContainerResourceMetricStatusName': Name is the name of the resource in question. - -> V2ContainerResourceMetricStatus -mkV2ContainerResourceMetricStatus v2ContainerResourceMetricStatusContainer v2ContainerResourceMetricStatusCurrent v2ContainerResourceMetricStatusName = - V2ContainerResourceMetricStatus - { v2ContainerResourceMetricStatusContainer - , v2ContainerResourceMetricStatusCurrent - , v2ContainerResourceMetricStatusName - } - --- ** V2CrossVersionObjectReference --- | V2CrossVersionObjectReference --- CrossVersionObjectReference contains enough information to let you identify the referred resource. -data V2CrossVersionObjectReference = V2CrossVersionObjectReference - { v2CrossVersionObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent - , v2CrossVersionObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v2CrossVersionObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name of the referent; More info: http://kubernetes.io/docs/user-guide/identifiers#names - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2CrossVersionObjectReference -instance A.FromJSON V2CrossVersionObjectReference where - parseJSON = A.withObject "V2CrossVersionObjectReference" $ \o -> - V2CrossVersionObjectReference - <$> (o .:? "apiVersion") - <*> (o .: "kind") - <*> (o .: "name") - --- | ToJSON V2CrossVersionObjectReference -instance A.ToJSON V2CrossVersionObjectReference where - toJSON V2CrossVersionObjectReference {..} = - _omitNulls - [ "apiVersion" .= v2CrossVersionObjectReferenceApiVersion - , "kind" .= v2CrossVersionObjectReferenceKind - , "name" .= v2CrossVersionObjectReferenceName - ] - - --- | Construct a value of type 'V2CrossVersionObjectReference' (by applying it's required fields, if any) -mkV2CrossVersionObjectReference - :: Text -- ^ 'v2CrossVersionObjectReferenceKind': Kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - -> Text -- ^ 'v2CrossVersionObjectReferenceName': Name of the referent; More info: http://kubernetes.io/docs/user-guide/identifiers#names - -> V2CrossVersionObjectReference -mkV2CrossVersionObjectReference v2CrossVersionObjectReferenceKind v2CrossVersionObjectReferenceName = - V2CrossVersionObjectReference - { v2CrossVersionObjectReferenceApiVersion = Nothing - , v2CrossVersionObjectReferenceKind - , v2CrossVersionObjectReferenceName - } - --- ** V2ExternalMetricSource --- | V2ExternalMetricSource --- ExternalMetricSource indicates how to scale on a metric not associated with any Kubernetes object (for example length of queue in cloud messaging service, or QPS from loadbalancer running outside of cluster). -data V2ExternalMetricSource = V2ExternalMetricSource - { v2ExternalMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - , v2ExternalMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ExternalMetricSource -instance A.FromJSON V2ExternalMetricSource where - parseJSON = A.withObject "V2ExternalMetricSource" $ \o -> - V2ExternalMetricSource - <$> (o .: "metric") - <*> (o .: "target") - --- | ToJSON V2ExternalMetricSource -instance A.ToJSON V2ExternalMetricSource where - toJSON V2ExternalMetricSource {..} = - _omitNulls - [ "metric" .= v2ExternalMetricSourceMetric - , "target" .= v2ExternalMetricSourceTarget - ] - - --- | Construct a value of type 'V2ExternalMetricSource' (by applying it's required fields, if any) -mkV2ExternalMetricSource - :: V2MetricIdentifier -- ^ 'v2ExternalMetricSourceMetric' - -> V2MetricTarget -- ^ 'v2ExternalMetricSourceTarget' - -> V2ExternalMetricSource -mkV2ExternalMetricSource v2ExternalMetricSourceMetric v2ExternalMetricSourceTarget = - V2ExternalMetricSource - { v2ExternalMetricSourceMetric - , v2ExternalMetricSourceTarget - } - --- ** V2ExternalMetricStatus --- | V2ExternalMetricStatus --- ExternalMetricStatus indicates the current value of a global metric not associated with any Kubernetes object. -data V2ExternalMetricStatus = V2ExternalMetricStatus - { v2ExternalMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" - , v2ExternalMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ExternalMetricStatus -instance A.FromJSON V2ExternalMetricStatus where - parseJSON = A.withObject "V2ExternalMetricStatus" $ \o -> - V2ExternalMetricStatus - <$> (o .: "current") - <*> (o .: "metric") - --- | ToJSON V2ExternalMetricStatus -instance A.ToJSON V2ExternalMetricStatus where - toJSON V2ExternalMetricStatus {..} = - _omitNulls - [ "current" .= v2ExternalMetricStatusCurrent - , "metric" .= v2ExternalMetricStatusMetric - ] - - --- | Construct a value of type 'V2ExternalMetricStatus' (by applying it's required fields, if any) -mkV2ExternalMetricStatus - :: V2MetricValueStatus -- ^ 'v2ExternalMetricStatusCurrent' - -> V2MetricIdentifier -- ^ 'v2ExternalMetricStatusMetric' - -> V2ExternalMetricStatus -mkV2ExternalMetricStatus v2ExternalMetricStatusCurrent v2ExternalMetricStatusMetric = - V2ExternalMetricStatus - { v2ExternalMetricStatusCurrent - , v2ExternalMetricStatusMetric - } - --- ** V2HPAScalingPolicy --- | V2HPAScalingPolicy --- HPAScalingPolicy is a single policy which must hold true for a specified past interval. -data V2HPAScalingPolicy = V2HPAScalingPolicy - { v2HPAScalingPolicyPeriodSeconds :: !(Int) -- ^ /Required/ "periodSeconds" - PeriodSeconds specifies the window of time for which the policy should hold true. PeriodSeconds must be greater than zero and less than or equal to 1800 (30 min). - , v2HPAScalingPolicyType :: !(Text) -- ^ /Required/ "type" - Type is used to specify the scaling policy. - , v2HPAScalingPolicyValue :: !(Int) -- ^ /Required/ "value" - Value contains the amount of change which is permitted by the policy. It must be greater than zero - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HPAScalingPolicy -instance A.FromJSON V2HPAScalingPolicy where - parseJSON = A.withObject "V2HPAScalingPolicy" $ \o -> - V2HPAScalingPolicy - <$> (o .: "periodSeconds") - <*> (o .: "type") - <*> (o .: "value") - --- | ToJSON V2HPAScalingPolicy -instance A.ToJSON V2HPAScalingPolicy where - toJSON V2HPAScalingPolicy {..} = - _omitNulls - [ "periodSeconds" .= v2HPAScalingPolicyPeriodSeconds - , "type" .= v2HPAScalingPolicyType - , "value" .= v2HPAScalingPolicyValue - ] - - --- | Construct a value of type 'V2HPAScalingPolicy' (by applying it's required fields, if any) -mkV2HPAScalingPolicy - :: Int -- ^ 'v2HPAScalingPolicyPeriodSeconds': PeriodSeconds specifies the window of time for which the policy should hold true. PeriodSeconds must be greater than zero and less than or equal to 1800 (30 min). - -> Text -- ^ 'v2HPAScalingPolicyType': Type is used to specify the scaling policy. - -> Int -- ^ 'v2HPAScalingPolicyValue': Value contains the amount of change which is permitted by the policy. It must be greater than zero - -> V2HPAScalingPolicy -mkV2HPAScalingPolicy v2HPAScalingPolicyPeriodSeconds v2HPAScalingPolicyType v2HPAScalingPolicyValue = - V2HPAScalingPolicy - { v2HPAScalingPolicyPeriodSeconds - , v2HPAScalingPolicyType - , v2HPAScalingPolicyValue - } - --- ** V2HPAScalingRules --- | V2HPAScalingRules --- HPAScalingRules configures the scaling behavior for one direction. These Rules are applied after calculating DesiredReplicas from metrics for the HPA. They can limit the scaling velocity by specifying scaling policies. They can prevent flapping by specifying the stabilization window, so that the number of replicas is not set instantly, instead, the safest value from the stabilization window is chosen. -data V2HPAScalingRules = V2HPAScalingRules - { v2HPAScalingRulesPolicies :: !(Maybe [V2HPAScalingPolicy]) -- ^ "policies" - policies is a list of potential scaling polices which can be used during scaling. At least one policy must be specified, otherwise the HPAScalingRules will be discarded as invalid - , v2HPAScalingRulesSelectPolicy :: !(Maybe Text) -- ^ "selectPolicy" - selectPolicy is used to specify which policy should be used. If not set, the default value Max is used. - , v2HPAScalingRulesStabilizationWindowSeconds :: !(Maybe Int) -- ^ "stabilizationWindowSeconds" - StabilizationWindowSeconds is the number of seconds for which past recommendations should be considered while scaling up or scaling down. StabilizationWindowSeconds must be greater than or equal to zero and less than or equal to 3600 (one hour). If not set, use the default values: - For scale up: 0 (i.e. no stabilization is done). - For scale down: 300 (i.e. the stabilization window is 300 seconds long). - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HPAScalingRules -instance A.FromJSON V2HPAScalingRules where - parseJSON = A.withObject "V2HPAScalingRules" $ \o -> - V2HPAScalingRules - <$> (o .:? "policies") - <*> (o .:? "selectPolicy") - <*> (o .:? "stabilizationWindowSeconds") - --- | ToJSON V2HPAScalingRules -instance A.ToJSON V2HPAScalingRules where - toJSON V2HPAScalingRules {..} = - _omitNulls - [ "policies" .= v2HPAScalingRulesPolicies - , "selectPolicy" .= v2HPAScalingRulesSelectPolicy - , "stabilizationWindowSeconds" .= v2HPAScalingRulesStabilizationWindowSeconds - ] - - --- | Construct a value of type 'V2HPAScalingRules' (by applying it's required fields, if any) -mkV2HPAScalingRules - :: V2HPAScalingRules -mkV2HPAScalingRules = - V2HPAScalingRules - { v2HPAScalingRulesPolicies = Nothing - , v2HPAScalingRulesSelectPolicy = Nothing - , v2HPAScalingRulesStabilizationWindowSeconds = Nothing - } - --- ** V2HorizontalPodAutoscaler --- | V2HorizontalPodAutoscaler --- HorizontalPodAutoscaler is the configuration for a horizontal pod autoscaler, which automatically manages the replica count of any resource implementing the scale subresource based on the metrics specified. -data V2HorizontalPodAutoscaler = V2HorizontalPodAutoscaler - { v2HorizontalPodAutoscalerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v2HorizontalPodAutoscalerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v2HorizontalPodAutoscalerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" - , v2HorizontalPodAutoscalerSpec :: !(Maybe V2HorizontalPodAutoscalerSpec) -- ^ "spec" - , v2HorizontalPodAutoscalerStatus :: !(Maybe V2HorizontalPodAutoscalerStatus) -- ^ "status" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscaler -instance A.FromJSON V2HorizontalPodAutoscaler where - parseJSON = A.withObject "V2HorizontalPodAutoscaler" $ \o -> - V2HorizontalPodAutoscaler - <$> (o .:? "apiVersion") - <*> (o .:? "kind") - <*> (o .:? "metadata") - <*> (o .:? "spec") - <*> (o .:? "status") - --- | ToJSON V2HorizontalPodAutoscaler -instance A.ToJSON V2HorizontalPodAutoscaler where - toJSON V2HorizontalPodAutoscaler {..} = - _omitNulls - [ "apiVersion" .= v2HorizontalPodAutoscalerApiVersion - , "kind" .= v2HorizontalPodAutoscalerKind - , "metadata" .= v2HorizontalPodAutoscalerMetadata - , "spec" .= v2HorizontalPodAutoscalerSpec - , "status" .= v2HorizontalPodAutoscalerStatus - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscaler' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscaler - :: V2HorizontalPodAutoscaler -mkV2HorizontalPodAutoscaler = - V2HorizontalPodAutoscaler - { v2HorizontalPodAutoscalerApiVersion = Nothing - , v2HorizontalPodAutoscalerKind = Nothing - , v2HorizontalPodAutoscalerMetadata = Nothing - , v2HorizontalPodAutoscalerSpec = Nothing - , v2HorizontalPodAutoscalerStatus = Nothing - } - --- ** V2HorizontalPodAutoscalerBehavior --- | V2HorizontalPodAutoscalerBehavior --- HorizontalPodAutoscalerBehavior configures the scaling behavior of the target in both Up and Down directions (scaleUp and scaleDown fields respectively). -data V2HorizontalPodAutoscalerBehavior = V2HorizontalPodAutoscalerBehavior - { v2HorizontalPodAutoscalerBehaviorScaleDown :: !(Maybe V2HPAScalingRules) -- ^ "scaleDown" - , v2HorizontalPodAutoscalerBehaviorScaleUp :: !(Maybe V2HPAScalingRules) -- ^ "scaleUp" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscalerBehavior -instance A.FromJSON V2HorizontalPodAutoscalerBehavior where - parseJSON = A.withObject "V2HorizontalPodAutoscalerBehavior" $ \o -> - V2HorizontalPodAutoscalerBehavior - <$> (o .:? "scaleDown") - <*> (o .:? "scaleUp") - --- | ToJSON V2HorizontalPodAutoscalerBehavior -instance A.ToJSON V2HorizontalPodAutoscalerBehavior where - toJSON V2HorizontalPodAutoscalerBehavior {..} = - _omitNulls - [ "scaleDown" .= v2HorizontalPodAutoscalerBehaviorScaleDown - , "scaleUp" .= v2HorizontalPodAutoscalerBehaviorScaleUp - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscalerBehavior' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscalerBehavior - :: V2HorizontalPodAutoscalerBehavior -mkV2HorizontalPodAutoscalerBehavior = - V2HorizontalPodAutoscalerBehavior - { v2HorizontalPodAutoscalerBehaviorScaleDown = Nothing - , v2HorizontalPodAutoscalerBehaviorScaleUp = Nothing - } - --- ** V2HorizontalPodAutoscalerCondition --- | V2HorizontalPodAutoscalerCondition --- HorizontalPodAutoscalerCondition describes the state of a HorizontalPodAutoscaler at a certain point. -data V2HorizontalPodAutoscalerCondition = V2HorizontalPodAutoscalerCondition - { v2HorizontalPodAutoscalerConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the last time the condition transitioned from one status to another - , v2HorizontalPodAutoscalerConditionMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable explanation containing details about the transition - , v2HorizontalPodAutoscalerConditionReason :: !(Maybe Text) -- ^ "reason" - reason is the reason for the condition's last transition. - , v2HorizontalPodAutoscalerConditionStatus :: !(Text) -- ^ /Required/ "status" - status is the status of the condition (True, False, Unknown) - , v2HorizontalPodAutoscalerConditionType :: !(Text) -- ^ /Required/ "type" - type describes the current condition - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscalerCondition -instance A.FromJSON V2HorizontalPodAutoscalerCondition where - parseJSON = A.withObject "V2HorizontalPodAutoscalerCondition" $ \o -> - V2HorizontalPodAutoscalerCondition - <$> (o .:? "lastTransitionTime") - <*> (o .:? "message") - <*> (o .:? "reason") - <*> (o .: "status") - <*> (o .: "type") - --- | ToJSON V2HorizontalPodAutoscalerCondition -instance A.ToJSON V2HorizontalPodAutoscalerCondition where - toJSON V2HorizontalPodAutoscalerCondition {..} = - _omitNulls - [ "lastTransitionTime" .= v2HorizontalPodAutoscalerConditionLastTransitionTime - , "message" .= v2HorizontalPodAutoscalerConditionMessage - , "reason" .= v2HorizontalPodAutoscalerConditionReason - , "status" .= v2HorizontalPodAutoscalerConditionStatus - , "type" .= v2HorizontalPodAutoscalerConditionType - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscalerCondition' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscalerCondition - :: Text -- ^ 'v2HorizontalPodAutoscalerConditionStatus': status is the status of the condition (True, False, Unknown) - -> Text -- ^ 'v2HorizontalPodAutoscalerConditionType': type describes the current condition - -> V2HorizontalPodAutoscalerCondition -mkV2HorizontalPodAutoscalerCondition v2HorizontalPodAutoscalerConditionStatus v2HorizontalPodAutoscalerConditionType = - V2HorizontalPodAutoscalerCondition - { v2HorizontalPodAutoscalerConditionLastTransitionTime = Nothing - , v2HorizontalPodAutoscalerConditionMessage = Nothing - , v2HorizontalPodAutoscalerConditionReason = Nothing - , v2HorizontalPodAutoscalerConditionStatus - , v2HorizontalPodAutoscalerConditionType - } - --- ** V2HorizontalPodAutoscalerList --- | V2HorizontalPodAutoscalerList --- HorizontalPodAutoscalerList is a list of horizontal pod autoscaler objects. -data V2HorizontalPodAutoscalerList = V2HorizontalPodAutoscalerList - { v2HorizontalPodAutoscalerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources - , v2HorizontalPodAutoscalerListItems :: !([V2HorizontalPodAutoscaler]) -- ^ /Required/ "items" - items is the list of horizontal pod autoscaler objects. - , v2HorizontalPodAutoscalerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds - , v2HorizontalPodAutoscalerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscalerList -instance A.FromJSON V2HorizontalPodAutoscalerList where - parseJSON = A.withObject "V2HorizontalPodAutoscalerList" $ \o -> - V2HorizontalPodAutoscalerList - <$> (o .:? "apiVersion") - <*> (o .: "items") - <*> (o .:? "kind") - <*> (o .:? "metadata") - --- | ToJSON V2HorizontalPodAutoscalerList -instance A.ToJSON V2HorizontalPodAutoscalerList where - toJSON V2HorizontalPodAutoscalerList {..} = - _omitNulls - [ "apiVersion" .= v2HorizontalPodAutoscalerListApiVersion - , "items" .= v2HorizontalPodAutoscalerListItems - , "kind" .= v2HorizontalPodAutoscalerListKind - , "metadata" .= v2HorizontalPodAutoscalerListMetadata - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscalerList' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscalerList - :: [V2HorizontalPodAutoscaler] -- ^ 'v2HorizontalPodAutoscalerListItems': items is the list of horizontal pod autoscaler objects. - -> V2HorizontalPodAutoscalerList -mkV2HorizontalPodAutoscalerList v2HorizontalPodAutoscalerListItems = - V2HorizontalPodAutoscalerList - { v2HorizontalPodAutoscalerListApiVersion = Nothing - , v2HorizontalPodAutoscalerListItems - , v2HorizontalPodAutoscalerListKind = Nothing - , v2HorizontalPodAutoscalerListMetadata = Nothing - } - --- ** V2HorizontalPodAutoscalerSpec --- | V2HorizontalPodAutoscalerSpec --- HorizontalPodAutoscalerSpec describes the desired functionality of the HorizontalPodAutoscaler. -data V2HorizontalPodAutoscalerSpec = V2HorizontalPodAutoscalerSpec - { v2HorizontalPodAutoscalerSpecBehavior :: !(Maybe V2HorizontalPodAutoscalerBehavior) -- ^ "behavior" - , v2HorizontalPodAutoscalerSpecMaxReplicas :: !(Int) -- ^ /Required/ "maxReplicas" - maxReplicas is the upper limit for the number of replicas to which the autoscaler can scale up. It cannot be less that minReplicas. - , v2HorizontalPodAutoscalerSpecMetrics :: !(Maybe [V2MetricSpec]) -- ^ "metrics" - metrics contains the specifications for which to use to calculate the desired replica count (the maximum replica count across all metrics will be used). The desired replica count is calculated multiplying the ratio between the target value and the current value by the current number of pods. Ergo, metrics used must decrease as the pod count is increased, and vice-versa. See the individual metric source types for more information about how each type of metric must respond. If not set, the default metric will be set to 80% average CPU utilization. - , v2HorizontalPodAutoscalerSpecMinReplicas :: !(Maybe Int) -- ^ "minReplicas" - minReplicas is the lower limit for the number of replicas to which the autoscaler can scale down. It defaults to 1 pod. minReplicas is allowed to be 0 if the alpha feature gate HPAScaleToZero is enabled and at least one Object or External metric is configured. Scaling is active as long as at least one metric value is available. - , v2HorizontalPodAutoscalerSpecScaleTargetRef :: !(V2CrossVersionObjectReference) -- ^ /Required/ "scaleTargetRef" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscalerSpec -instance A.FromJSON V2HorizontalPodAutoscalerSpec where - parseJSON = A.withObject "V2HorizontalPodAutoscalerSpec" $ \o -> - V2HorizontalPodAutoscalerSpec - <$> (o .:? "behavior") - <*> (o .: "maxReplicas") - <*> (o .:? "metrics") - <*> (o .:? "minReplicas") - <*> (o .: "scaleTargetRef") - --- | ToJSON V2HorizontalPodAutoscalerSpec -instance A.ToJSON V2HorizontalPodAutoscalerSpec where - toJSON V2HorizontalPodAutoscalerSpec {..} = - _omitNulls - [ "behavior" .= v2HorizontalPodAutoscalerSpecBehavior - , "maxReplicas" .= v2HorizontalPodAutoscalerSpecMaxReplicas - , "metrics" .= v2HorizontalPodAutoscalerSpecMetrics - , "minReplicas" .= v2HorizontalPodAutoscalerSpecMinReplicas - , "scaleTargetRef" .= v2HorizontalPodAutoscalerSpecScaleTargetRef - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscalerSpec' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscalerSpec - :: Int -- ^ 'v2HorizontalPodAutoscalerSpecMaxReplicas': maxReplicas is the upper limit for the number of replicas to which the autoscaler can scale up. It cannot be less that minReplicas. - -> V2CrossVersionObjectReference -- ^ 'v2HorizontalPodAutoscalerSpecScaleTargetRef' - -> V2HorizontalPodAutoscalerSpec -mkV2HorizontalPodAutoscalerSpec v2HorizontalPodAutoscalerSpecMaxReplicas v2HorizontalPodAutoscalerSpecScaleTargetRef = - V2HorizontalPodAutoscalerSpec - { v2HorizontalPodAutoscalerSpecBehavior = Nothing - , v2HorizontalPodAutoscalerSpecMaxReplicas - , v2HorizontalPodAutoscalerSpecMetrics = Nothing - , v2HorizontalPodAutoscalerSpecMinReplicas = Nothing - , v2HorizontalPodAutoscalerSpecScaleTargetRef - } - --- ** V2HorizontalPodAutoscalerStatus --- | V2HorizontalPodAutoscalerStatus --- HorizontalPodAutoscalerStatus describes the current status of a horizontal pod autoscaler. -data V2HorizontalPodAutoscalerStatus = V2HorizontalPodAutoscalerStatus - { v2HorizontalPodAutoscalerStatusConditions :: !(Maybe [V2HorizontalPodAutoscalerCondition]) -- ^ "conditions" - conditions is the set of conditions required for this autoscaler to scale its target, and indicates whether or not those conditions are met. - , v2HorizontalPodAutoscalerStatusCurrentMetrics :: !(Maybe [V2MetricStatus]) -- ^ "currentMetrics" - currentMetrics is the last read state of the metrics used by this autoscaler. - , v2HorizontalPodAutoscalerStatusCurrentReplicas :: !(Maybe Int) -- ^ "currentReplicas" - currentReplicas is current number of replicas of pods managed by this autoscaler, as last seen by the autoscaler. - , v2HorizontalPodAutoscalerStatusDesiredReplicas :: !(Int) -- ^ /Required/ "desiredReplicas" - desiredReplicas is the desired number of replicas of pods managed by this autoscaler, as last calculated by the autoscaler. - , v2HorizontalPodAutoscalerStatusLastScaleTime :: !(Maybe DateTime) -- ^ "lastScaleTime" - lastScaleTime is the last time the HorizontalPodAutoscaler scaled the number of pods, used by the autoscaler to control how often the number of pods is changed. - , v2HorizontalPodAutoscalerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration is the most recent generation observed by this autoscaler. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2HorizontalPodAutoscalerStatus -instance A.FromJSON V2HorizontalPodAutoscalerStatus where - parseJSON = A.withObject "V2HorizontalPodAutoscalerStatus" $ \o -> - V2HorizontalPodAutoscalerStatus - <$> (o .:? "conditions") - <*> (o .:? "currentMetrics") - <*> (o .:? "currentReplicas") - <*> (o .: "desiredReplicas") - <*> (o .:? "lastScaleTime") - <*> (o .:? "observedGeneration") - --- | ToJSON V2HorizontalPodAutoscalerStatus -instance A.ToJSON V2HorizontalPodAutoscalerStatus where - toJSON V2HorizontalPodAutoscalerStatus {..} = - _omitNulls - [ "conditions" .= v2HorizontalPodAutoscalerStatusConditions - , "currentMetrics" .= v2HorizontalPodAutoscalerStatusCurrentMetrics - , "currentReplicas" .= v2HorizontalPodAutoscalerStatusCurrentReplicas - , "desiredReplicas" .= v2HorizontalPodAutoscalerStatusDesiredReplicas - , "lastScaleTime" .= v2HorizontalPodAutoscalerStatusLastScaleTime - , "observedGeneration" .= v2HorizontalPodAutoscalerStatusObservedGeneration - ] - - --- | Construct a value of type 'V2HorizontalPodAutoscalerStatus' (by applying it's required fields, if any) -mkV2HorizontalPodAutoscalerStatus - :: Int -- ^ 'v2HorizontalPodAutoscalerStatusDesiredReplicas': desiredReplicas is the desired number of replicas of pods managed by this autoscaler, as last calculated by the autoscaler. - -> V2HorizontalPodAutoscalerStatus -mkV2HorizontalPodAutoscalerStatus v2HorizontalPodAutoscalerStatusDesiredReplicas = - V2HorizontalPodAutoscalerStatus - { v2HorizontalPodAutoscalerStatusConditions = Nothing - , v2HorizontalPodAutoscalerStatusCurrentMetrics = Nothing - , v2HorizontalPodAutoscalerStatusCurrentReplicas = Nothing - , v2HorizontalPodAutoscalerStatusDesiredReplicas - , v2HorizontalPodAutoscalerStatusLastScaleTime = Nothing - , v2HorizontalPodAutoscalerStatusObservedGeneration = Nothing - } - --- ** V2MetricIdentifier --- | V2MetricIdentifier --- MetricIdentifier defines the name and optionally selector for a metric -data V2MetricIdentifier = V2MetricIdentifier - { v2MetricIdentifierName :: !(Text) -- ^ /Required/ "name" - name is the name of the given metric - , v2MetricIdentifierSelector :: !(Maybe V1LabelSelector) -- ^ "selector" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2MetricIdentifier -instance A.FromJSON V2MetricIdentifier where - parseJSON = A.withObject "V2MetricIdentifier" $ \o -> - V2MetricIdentifier - <$> (o .: "name") - <*> (o .:? "selector") - --- | ToJSON V2MetricIdentifier -instance A.ToJSON V2MetricIdentifier where - toJSON V2MetricIdentifier {..} = - _omitNulls - [ "name" .= v2MetricIdentifierName - , "selector" .= v2MetricIdentifierSelector - ] - - --- | Construct a value of type 'V2MetricIdentifier' (by applying it's required fields, if any) -mkV2MetricIdentifier - :: Text -- ^ 'v2MetricIdentifierName': name is the name of the given metric - -> V2MetricIdentifier -mkV2MetricIdentifier v2MetricIdentifierName = - V2MetricIdentifier - { v2MetricIdentifierName - , v2MetricIdentifierSelector = Nothing - } - --- ** V2MetricSpec --- | V2MetricSpec --- MetricSpec specifies how to scale based on a single metric (only `type` and one other matching field should be set at once). -data V2MetricSpec = V2MetricSpec - { v2MetricSpecContainerResource :: !(Maybe V2ContainerResourceMetricSource) -- ^ "containerResource" - , v2MetricSpecExternal :: !(Maybe V2ExternalMetricSource) -- ^ "external" - , v2MetricSpecObject :: !(Maybe V2ObjectMetricSource) -- ^ "object" - , v2MetricSpecPods :: !(Maybe V2PodsMetricSource) -- ^ "pods" - , v2MetricSpecResource :: !(Maybe V2ResourceMetricSource) -- ^ "resource" - , v2MetricSpecType :: !(Text) -- ^ /Required/ "type" - type is the type of metric source. It should be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each mapping to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2MetricSpec -instance A.FromJSON V2MetricSpec where - parseJSON = A.withObject "V2MetricSpec" $ \o -> - V2MetricSpec - <$> (o .:? "containerResource") - <*> (o .:? "external") - <*> (o .:? "object") - <*> (o .:? "pods") - <*> (o .:? "resource") - <*> (o .: "type") - --- | ToJSON V2MetricSpec -instance A.ToJSON V2MetricSpec where - toJSON V2MetricSpec {..} = - _omitNulls - [ "containerResource" .= v2MetricSpecContainerResource - , "external" .= v2MetricSpecExternal - , "object" .= v2MetricSpecObject - , "pods" .= v2MetricSpecPods - , "resource" .= v2MetricSpecResource - , "type" .= v2MetricSpecType - ] - - --- | Construct a value of type 'V2MetricSpec' (by applying it's required fields, if any) -mkV2MetricSpec - :: Text -- ^ 'v2MetricSpecType': type is the type of metric source. It should be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each mapping to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled - -> V2MetricSpec -mkV2MetricSpec v2MetricSpecType = - V2MetricSpec - { v2MetricSpecContainerResource = Nothing - , v2MetricSpecExternal = Nothing - , v2MetricSpecObject = Nothing - , v2MetricSpecPods = Nothing - , v2MetricSpecResource = Nothing - , v2MetricSpecType - } - --- ** V2MetricStatus --- | V2MetricStatus --- MetricStatus describes the last-read state of a single metric. -data V2MetricStatus = V2MetricStatus - { v2MetricStatusContainerResource :: !(Maybe V2ContainerResourceMetricStatus) -- ^ "containerResource" - , v2MetricStatusExternal :: !(Maybe V2ExternalMetricStatus) -- ^ "external" - , v2MetricStatusObject :: !(Maybe V2ObjectMetricStatus) -- ^ "object" - , v2MetricStatusPods :: !(Maybe V2PodsMetricStatus) -- ^ "pods" - , v2MetricStatusResource :: !(Maybe V2ResourceMetricStatus) -- ^ "resource" - , v2MetricStatusType :: !(Text) -- ^ /Required/ "type" - type is the type of metric source. It will be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each corresponds to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2MetricStatus -instance A.FromJSON V2MetricStatus where - parseJSON = A.withObject "V2MetricStatus" $ \o -> - V2MetricStatus - <$> (o .:? "containerResource") - <*> (o .:? "external") - <*> (o .:? "object") - <*> (o .:? "pods") - <*> (o .:? "resource") - <*> (o .: "type") - --- | ToJSON V2MetricStatus -instance A.ToJSON V2MetricStatus where - toJSON V2MetricStatus {..} = - _omitNulls - [ "containerResource" .= v2MetricStatusContainerResource - , "external" .= v2MetricStatusExternal - , "object" .= v2MetricStatusObject - , "pods" .= v2MetricStatusPods - , "resource" .= v2MetricStatusResource - , "type" .= v2MetricStatusType - ] - - --- | Construct a value of type 'V2MetricStatus' (by applying it's required fields, if any) -mkV2MetricStatus - :: Text -- ^ 'v2MetricStatusType': type is the type of metric source. It will be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each corresponds to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled - -> V2MetricStatus -mkV2MetricStatus v2MetricStatusType = - V2MetricStatus - { v2MetricStatusContainerResource = Nothing - , v2MetricStatusExternal = Nothing - , v2MetricStatusObject = Nothing - , v2MetricStatusPods = Nothing - , v2MetricStatusResource = Nothing - , v2MetricStatusType - } - --- ** V2MetricTarget --- | V2MetricTarget --- MetricTarget defines the target value, average value, or average utilization of a specific metric -data V2MetricTarget = V2MetricTarget - { v2MetricTargetAverageUtilization :: !(Maybe Int) -- ^ "averageUtilization" - averageUtilization is the target value of the average of the resource metric across all relevant pods, represented as a percentage of the requested value of the resource for the pods. Currently only valid for Resource metric source type - , v2MetricTargetAverageValue :: !(Maybe Quantity) -- ^ "averageValue" - , v2MetricTargetType :: !(Text) -- ^ /Required/ "type" - type represents whether the metric type is Utilization, Value, or AverageValue - , v2MetricTargetValue :: !(Maybe Quantity) -- ^ "value" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2MetricTarget -instance A.FromJSON V2MetricTarget where - parseJSON = A.withObject "V2MetricTarget" $ \o -> - V2MetricTarget - <$> (o .:? "averageUtilization") - <*> (o .:? "averageValue") - <*> (o .: "type") - <*> (o .:? "value") - --- | ToJSON V2MetricTarget -instance A.ToJSON V2MetricTarget where - toJSON V2MetricTarget {..} = - _omitNulls - [ "averageUtilization" .= v2MetricTargetAverageUtilization - , "averageValue" .= v2MetricTargetAverageValue - , "type" .= v2MetricTargetType - , "value" .= v2MetricTargetValue - ] - - --- | Construct a value of type 'V2MetricTarget' (by applying it's required fields, if any) -mkV2MetricTarget - :: Text -- ^ 'v2MetricTargetType': type represents whether the metric type is Utilization, Value, or AverageValue - -> V2MetricTarget -mkV2MetricTarget v2MetricTargetType = - V2MetricTarget - { v2MetricTargetAverageUtilization = Nothing - , v2MetricTargetAverageValue = Nothing - , v2MetricTargetType - , v2MetricTargetValue = Nothing - } - --- ** V2MetricValueStatus --- | V2MetricValueStatus --- MetricValueStatus holds the current value for a metric -data V2MetricValueStatus = V2MetricValueStatus - { v2MetricValueStatusAverageUtilization :: !(Maybe Int) -- ^ "averageUtilization" - currentAverageUtilization is the current value of the average of the resource metric across all relevant pods, represented as a percentage of the requested value of the resource for the pods. - , v2MetricValueStatusAverageValue :: !(Maybe Quantity) -- ^ "averageValue" - , v2MetricValueStatusValue :: !(Maybe Quantity) -- ^ "value" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2MetricValueStatus -instance A.FromJSON V2MetricValueStatus where - parseJSON = A.withObject "V2MetricValueStatus" $ \o -> - V2MetricValueStatus - <$> (o .:? "averageUtilization") - <*> (o .:? "averageValue") - <*> (o .:? "value") - --- | ToJSON V2MetricValueStatus -instance A.ToJSON V2MetricValueStatus where - toJSON V2MetricValueStatus {..} = - _omitNulls - [ "averageUtilization" .= v2MetricValueStatusAverageUtilization - , "averageValue" .= v2MetricValueStatusAverageValue - , "value" .= v2MetricValueStatusValue - ] - - --- | Construct a value of type 'V2MetricValueStatus' (by applying it's required fields, if any) -mkV2MetricValueStatus - :: V2MetricValueStatus -mkV2MetricValueStatus = - V2MetricValueStatus - { v2MetricValueStatusAverageUtilization = Nothing - , v2MetricValueStatusAverageValue = Nothing - , v2MetricValueStatusValue = Nothing - } - --- ** V2ObjectMetricSource --- | V2ObjectMetricSource --- ObjectMetricSource indicates how to scale on a metric describing a kubernetes object (for example, hits-per-second on an Ingress object). -data V2ObjectMetricSource = V2ObjectMetricSource - { v2ObjectMetricSourceDescribedObject :: !(V2CrossVersionObjectReference) -- ^ /Required/ "describedObject" - , v2ObjectMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - , v2ObjectMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ObjectMetricSource -instance A.FromJSON V2ObjectMetricSource where - parseJSON = A.withObject "V2ObjectMetricSource" $ \o -> - V2ObjectMetricSource - <$> (o .: "describedObject") - <*> (o .: "metric") - <*> (o .: "target") - --- | ToJSON V2ObjectMetricSource -instance A.ToJSON V2ObjectMetricSource where - toJSON V2ObjectMetricSource {..} = - _omitNulls - [ "describedObject" .= v2ObjectMetricSourceDescribedObject - , "metric" .= v2ObjectMetricSourceMetric - , "target" .= v2ObjectMetricSourceTarget - ] - - --- | Construct a value of type 'V2ObjectMetricSource' (by applying it's required fields, if any) -mkV2ObjectMetricSource - :: V2CrossVersionObjectReference -- ^ 'v2ObjectMetricSourceDescribedObject' - -> V2MetricIdentifier -- ^ 'v2ObjectMetricSourceMetric' - -> V2MetricTarget -- ^ 'v2ObjectMetricSourceTarget' - -> V2ObjectMetricSource -mkV2ObjectMetricSource v2ObjectMetricSourceDescribedObject v2ObjectMetricSourceMetric v2ObjectMetricSourceTarget = - V2ObjectMetricSource - { v2ObjectMetricSourceDescribedObject - , v2ObjectMetricSourceMetric - , v2ObjectMetricSourceTarget - } - --- ** V2ObjectMetricStatus --- | V2ObjectMetricStatus --- ObjectMetricStatus indicates the current value of a metric describing a kubernetes object (for example, hits-per-second on an Ingress object). -data V2ObjectMetricStatus = V2ObjectMetricStatus - { v2ObjectMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" - , v2ObjectMetricStatusDescribedObject :: !(V2CrossVersionObjectReference) -- ^ /Required/ "describedObject" - , v2ObjectMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ObjectMetricStatus -instance A.FromJSON V2ObjectMetricStatus where - parseJSON = A.withObject "V2ObjectMetricStatus" $ \o -> - V2ObjectMetricStatus - <$> (o .: "current") - <*> (o .: "describedObject") - <*> (o .: "metric") - --- | ToJSON V2ObjectMetricStatus -instance A.ToJSON V2ObjectMetricStatus where - toJSON V2ObjectMetricStatus {..} = - _omitNulls - [ "current" .= v2ObjectMetricStatusCurrent - , "describedObject" .= v2ObjectMetricStatusDescribedObject - , "metric" .= v2ObjectMetricStatusMetric - ] - - --- | Construct a value of type 'V2ObjectMetricStatus' (by applying it's required fields, if any) -mkV2ObjectMetricStatus - :: V2MetricValueStatus -- ^ 'v2ObjectMetricStatusCurrent' - -> V2CrossVersionObjectReference -- ^ 'v2ObjectMetricStatusDescribedObject' - -> V2MetricIdentifier -- ^ 'v2ObjectMetricStatusMetric' - -> V2ObjectMetricStatus -mkV2ObjectMetricStatus v2ObjectMetricStatusCurrent v2ObjectMetricStatusDescribedObject v2ObjectMetricStatusMetric = - V2ObjectMetricStatus - { v2ObjectMetricStatusCurrent - , v2ObjectMetricStatusDescribedObject - , v2ObjectMetricStatusMetric - } - --- ** V2PodsMetricSource --- | V2PodsMetricSource --- PodsMetricSource indicates how to scale on a metric describing each pod in the current scale target (for example, transactions-processed-per-second). The values will be averaged together before being compared to the target value. -data V2PodsMetricSource = V2PodsMetricSource - { v2PodsMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - , v2PodsMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2PodsMetricSource -instance A.FromJSON V2PodsMetricSource where - parseJSON = A.withObject "V2PodsMetricSource" $ \o -> - V2PodsMetricSource - <$> (o .: "metric") - <*> (o .: "target") - --- | ToJSON V2PodsMetricSource -instance A.ToJSON V2PodsMetricSource where - toJSON V2PodsMetricSource {..} = - _omitNulls - [ "metric" .= v2PodsMetricSourceMetric - , "target" .= v2PodsMetricSourceTarget - ] - - --- | Construct a value of type 'V2PodsMetricSource' (by applying it's required fields, if any) -mkV2PodsMetricSource - :: V2MetricIdentifier -- ^ 'v2PodsMetricSourceMetric' - -> V2MetricTarget -- ^ 'v2PodsMetricSourceTarget' - -> V2PodsMetricSource -mkV2PodsMetricSource v2PodsMetricSourceMetric v2PodsMetricSourceTarget = - V2PodsMetricSource - { v2PodsMetricSourceMetric - , v2PodsMetricSourceTarget - } - --- ** V2PodsMetricStatus --- | V2PodsMetricStatus --- PodsMetricStatus indicates the current value of a metric describing each pod in the current scale target (for example, transactions-processed-per-second). -data V2PodsMetricStatus = V2PodsMetricStatus - { v2PodsMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" - , v2PodsMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2PodsMetricStatus -instance A.FromJSON V2PodsMetricStatus where - parseJSON = A.withObject "V2PodsMetricStatus" $ \o -> - V2PodsMetricStatus - <$> (o .: "current") - <*> (o .: "metric") - --- | ToJSON V2PodsMetricStatus -instance A.ToJSON V2PodsMetricStatus where - toJSON V2PodsMetricStatus {..} = - _omitNulls - [ "current" .= v2PodsMetricStatusCurrent - , "metric" .= v2PodsMetricStatusMetric - ] - - --- | Construct a value of type 'V2PodsMetricStatus' (by applying it's required fields, if any) -mkV2PodsMetricStatus - :: V2MetricValueStatus -- ^ 'v2PodsMetricStatusCurrent' - -> V2MetricIdentifier -- ^ 'v2PodsMetricStatusMetric' - -> V2PodsMetricStatus -mkV2PodsMetricStatus v2PodsMetricStatusCurrent v2PodsMetricStatusMetric = - V2PodsMetricStatus - { v2PodsMetricStatusCurrent - , v2PodsMetricStatusMetric - } - --- ** V2ResourceMetricSource --- | V2ResourceMetricSource --- ResourceMetricSource indicates how to scale on a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). The values will be averaged together before being compared to the target. Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. Only one \"target\" type should be set. -data V2ResourceMetricSource = V2ResourceMetricSource - { v2ResourceMetricSourceName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. - , v2ResourceMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ResourceMetricSource -instance A.FromJSON V2ResourceMetricSource where - parseJSON = A.withObject "V2ResourceMetricSource" $ \o -> - V2ResourceMetricSource - <$> (o .: "name") - <*> (o .: "target") - --- | ToJSON V2ResourceMetricSource -instance A.ToJSON V2ResourceMetricSource where - toJSON V2ResourceMetricSource {..} = - _omitNulls - [ "name" .= v2ResourceMetricSourceName - , "target" .= v2ResourceMetricSourceTarget - ] - - --- | Construct a value of type 'V2ResourceMetricSource' (by applying it's required fields, if any) -mkV2ResourceMetricSource - :: Text -- ^ 'v2ResourceMetricSourceName': name is the name of the resource in question. - -> V2MetricTarget -- ^ 'v2ResourceMetricSourceTarget' - -> V2ResourceMetricSource -mkV2ResourceMetricSource v2ResourceMetricSourceName v2ResourceMetricSourceTarget = - V2ResourceMetricSource - { v2ResourceMetricSourceName - , v2ResourceMetricSourceTarget - } - --- ** V2ResourceMetricStatus --- | V2ResourceMetricStatus --- ResourceMetricStatus indicates the current value of a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. -data V2ResourceMetricStatus = V2ResourceMetricStatus - { v2ResourceMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" - , v2ResourceMetricStatusName :: !(Text) -- ^ /Required/ "name" - Name is the name of the resource in question. - } deriving (P.Show, P.Eq, P.Typeable) - --- | FromJSON V2ResourceMetricStatus -instance A.FromJSON V2ResourceMetricStatus where - parseJSON = A.withObject "V2ResourceMetricStatus" $ \o -> - V2ResourceMetricStatus - <$> (o .: "current") - <*> (o .: "name") - --- | ToJSON V2ResourceMetricStatus -instance A.ToJSON V2ResourceMetricStatus where - toJSON V2ResourceMetricStatus {..} = - _omitNulls - [ "current" .= v2ResourceMetricStatusCurrent - , "name" .= v2ResourceMetricStatusName - ] - - --- | Construct a value of type 'V2ResourceMetricStatus' (by applying it's required fields, if any) -mkV2ResourceMetricStatus - :: V2MetricValueStatus -- ^ 'v2ResourceMetricStatusCurrent' - -> Text -- ^ 'v2ResourceMetricStatusName': Name is the name of the resource in question. + Kubernetes API version: release-1.27 + Generated by OpenAPI Generator (https://openapi-generator.tech) +-} + +{-| +Module : Kubernetes.OpenAPI.Model +-} + +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveFoldable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE DeriveTraversable #-} +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE MultiParamTypeClasses #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TupleSections #-} +{-# LANGUAGE TypeFamilies #-} +{-# OPTIONS_GHC -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} + +module Kubernetes.OpenAPI.Model (module Kubernetes.OpenAPI.Model, module Kubernetes.OpenAPI.ImportMappings) where + +import Kubernetes.OpenAPI.Core +import Kubernetes.OpenAPI.MimeTypes +import Kubernetes.OpenAPI.ImportMappings + +import Data.Aeson ((.:),(.:!),(.:?),(.=)) + +import qualified Control.Arrow as P (left) +import qualified Data.Aeson as A +import qualified Data.ByteString as B +import qualified Data.ByteString.Base64 as B64 +import qualified Data.ByteString.Char8 as BC +import qualified Data.ByteString.Lazy as BL +import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep) +import qualified Data.Foldable as P +import qualified Data.HashMap.Lazy as HM +import qualified Data.Map as Map +import qualified Data.Maybe as P +import qualified Data.Set as Set +import qualified Data.Text as T +import qualified Data.Text.Encoding as T +import qualified Data.Time as TI +import qualified Lens.Micro as L +import qualified Web.FormUrlEncoded as WH +import qualified Web.HttpApiData as WH + +import Control.Applicative ((<|>)) +import Control.Applicative (Alternative) +import Data.Function ((&)) +import Data.Monoid ((<>)) +import Data.Text (Text) +import Prelude (($),(/=),(.),(<$>),(<*>),(>>=),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) + +import qualified Prelude as P + + + +-- * Parameter newtypes + + +-- ** AllowWatchBookmarks +newtype AllowWatchBookmarks = AllowWatchBookmarks { unAllowWatchBookmarks :: Bool } deriving (P.Eq, P.Show) + +-- ** Body +newtype Body = Body { unBody :: A.Value } deriving (P.Eq, P.Show, A.ToJSON) + +-- ** Command +newtype Command = Command { unCommand :: Text } deriving (P.Eq, P.Show) + +-- ** Container +newtype Container = Container { unContainer :: Text } deriving (P.Eq, P.Show) + +-- ** Continue +newtype Continue = Continue { unContinue :: Text } deriving (P.Eq, P.Show) + +-- ** DryRun +newtype DryRun = DryRun { unDryRun :: Text } deriving (P.Eq, P.Show) + +-- ** FieldManager +newtype FieldManager = FieldManager { unFieldManager :: Text } deriving (P.Eq, P.Show) + +-- ** FieldSelector +newtype FieldSelector = FieldSelector { unFieldSelector :: Text } deriving (P.Eq, P.Show) + +-- ** FieldValidation +newtype FieldValidation = FieldValidation { unFieldValidation :: Text } deriving (P.Eq, P.Show) + +-- ** Follow +newtype Follow = Follow { unFollow :: Bool } deriving (P.Eq, P.Show) + +-- ** Force +newtype Force = Force { unForce :: Bool } deriving (P.Eq, P.Show) + +-- ** GracePeriodSeconds +newtype GracePeriodSeconds = GracePeriodSeconds { unGracePeriodSeconds :: Int } deriving (P.Eq, P.Show) + +-- ** Group +newtype Group = Group { unGroup :: Text } deriving (P.Eq, P.Show) + +-- ** InsecureSkipTlsVerifyBackend +newtype InsecureSkipTlsVerifyBackend = InsecureSkipTlsVerifyBackend { unInsecureSkipTlsVerifyBackend :: Bool } deriving (P.Eq, P.Show) + +-- ** LabelSelector +newtype LabelSelector = LabelSelector { unLabelSelector :: Text } deriving (P.Eq, P.Show) + +-- ** Limit +newtype Limit = Limit { unLimit :: Int } deriving (P.Eq, P.Show) + +-- ** LimitBytes +newtype LimitBytes = LimitBytes { unLimitBytes :: Int } deriving (P.Eq, P.Show) + +-- ** Logpath +newtype Logpath = Logpath { unLogpath :: Text } deriving (P.Eq, P.Show) + +-- ** Name +newtype Name = Name { unName :: Text } deriving (P.Eq, P.Show) + +-- ** Namespace +newtype Namespace = Namespace { unNamespace :: Text } deriving (P.Eq, P.Show) + +-- ** OrphanDependents +newtype OrphanDependents = OrphanDependents { unOrphanDependents :: Bool } deriving (P.Eq, P.Show) + +-- ** Path +newtype Path = Path { unPath :: Text } deriving (P.Eq, P.Show) + +-- ** Path2 +newtype Path2 = Path2 { unPath2 :: Text } deriving (P.Eq, P.Show) + +-- ** Plural +newtype Plural = Plural { unPlural :: Text } deriving (P.Eq, P.Show) + +-- ** Ports +newtype Ports = Ports { unPorts :: Int } deriving (P.Eq, P.Show) + +-- ** Pretty +newtype Pretty = Pretty { unPretty :: Text } deriving (P.Eq, P.Show) + +-- ** Previous +newtype Previous = Previous { unPrevious :: Bool } deriving (P.Eq, P.Show) + +-- ** PropagationPolicy +newtype PropagationPolicy = PropagationPolicy { unPropagationPolicy :: Text } deriving (P.Eq, P.Show) + +-- ** ResourcePlural +newtype ResourcePlural = ResourcePlural { unResourcePlural :: Text } deriving (P.Eq, P.Show) + +-- ** ResourceVersion +newtype ResourceVersion = ResourceVersion { unResourceVersion :: Text } deriving (P.Eq, P.Show) + +-- ** ResourceVersionMatch +newtype ResourceVersionMatch = ResourceVersionMatch { unResourceVersionMatch :: Text } deriving (P.Eq, P.Show) + +-- ** SendInitialEvents +newtype SendInitialEvents = SendInitialEvents { unSendInitialEvents :: Bool } deriving (P.Eq, P.Show) + +-- ** SinceSeconds +newtype SinceSeconds = SinceSeconds { unSinceSeconds :: Int } deriving (P.Eq, P.Show) + +-- ** Stderr +newtype Stderr = Stderr { unStderr :: Bool } deriving (P.Eq, P.Show) + +-- ** Stdin +newtype Stdin = Stdin { unStdin :: Bool } deriving (P.Eq, P.Show) + +-- ** Stdout +newtype Stdout = Stdout { unStdout :: Bool } deriving (P.Eq, P.Show) + +-- ** TailLines +newtype TailLines = TailLines { unTailLines :: Int } deriving (P.Eq, P.Show) + +-- ** TimeoutSeconds +newtype TimeoutSeconds = TimeoutSeconds { unTimeoutSeconds :: Int } deriving (P.Eq, P.Show) + +-- ** Timestamps +newtype Timestamps = Timestamps { unTimestamps :: Bool } deriving (P.Eq, P.Show) + +-- ** Tty +newtype Tty = Tty { unTty :: Bool } deriving (P.Eq, P.Show) + +-- ** Version +newtype Version = Version { unVersion :: Text } deriving (P.Eq, P.Show) + +-- ** Watch +newtype Watch = Watch { unWatch :: Bool } deriving (P.Eq, P.Show) + +-- * Models + + +-- ** AdmissionregistrationV1ServiceReference +-- | AdmissionregistrationV1ServiceReference +-- ServiceReference holds a reference to Service.legacy.k8s.io +data AdmissionregistrationV1ServiceReference = AdmissionregistrationV1ServiceReference + { admissionregistrationV1ServiceReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the service. Required + , admissionregistrationV1ServiceReferenceNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of the service. Required + , admissionregistrationV1ServiceReferencePath :: !(Maybe Text) -- ^ "path" - `path` is an optional URL path which will be sent in any request to this service. + , admissionregistrationV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - If specified, the port on the service that hosting webhook. Default to 443 for backward compatibility. `port` should be a valid port number (1-65535, inclusive). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON AdmissionregistrationV1ServiceReference +instance A.FromJSON AdmissionregistrationV1ServiceReference where + parseJSON = A.withObject "AdmissionregistrationV1ServiceReference" $ \o -> + AdmissionregistrationV1ServiceReference + <$> (o .: "name") + <*> (o .: "namespace") + <*> (o .:? "path") + <*> (o .:? "port") + +-- | ToJSON AdmissionregistrationV1ServiceReference +instance A.ToJSON AdmissionregistrationV1ServiceReference where + toJSON AdmissionregistrationV1ServiceReference {..} = + _omitNulls + [ "name" .= admissionregistrationV1ServiceReferenceName + , "namespace" .= admissionregistrationV1ServiceReferenceNamespace + , "path" .= admissionregistrationV1ServiceReferencePath + , "port" .= admissionregistrationV1ServiceReferencePort + ] + + +-- | Construct a value of type 'AdmissionregistrationV1ServiceReference' (by applying it's required fields, if any) +mkAdmissionregistrationV1ServiceReference + :: Text -- ^ 'admissionregistrationV1ServiceReferenceName': `name` is the name of the service. Required + -> Text -- ^ 'admissionregistrationV1ServiceReferenceNamespace': `namespace` is the namespace of the service. Required + -> AdmissionregistrationV1ServiceReference +mkAdmissionregistrationV1ServiceReference admissionregistrationV1ServiceReferenceName admissionregistrationV1ServiceReferenceNamespace = + AdmissionregistrationV1ServiceReference + { admissionregistrationV1ServiceReferenceName + , admissionregistrationV1ServiceReferenceNamespace + , admissionregistrationV1ServiceReferencePath = Nothing + , admissionregistrationV1ServiceReferencePort = Nothing + } + +-- ** AdmissionregistrationV1WebhookClientConfig +-- | AdmissionregistrationV1WebhookClientConfig +-- WebhookClientConfig contains the information to make a TLS connection with the webhook +data AdmissionregistrationV1WebhookClientConfig = AdmissionregistrationV1WebhookClientConfig + { admissionregistrationV1WebhookClientConfigCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - `caBundle` is a PEM encoded CA bundle which will be used to validate the webhook's server certificate. If unspecified, system trust roots on the apiserver are used. + , admissionregistrationV1WebhookClientConfigService :: !(Maybe AdmissionregistrationV1ServiceReference) -- ^ "service" + , admissionregistrationV1WebhookClientConfigUrl :: !(Maybe Text) -- ^ "url" - `url` gives the location of the webhook, in standard URL form (`scheme://host:port/path`). Exactly one of `url` or `service` must be specified. The `host` should not refer to a service running in the cluster; use the `service` field instead. The host might be resolved via external DNS in some apiservers (e.g., `kube-apiserver` cannot resolve in-cluster DNS as that would be a layering violation). `host` may also be an IP address. Please note that using `localhost` or `127.0.0.1` as a `host` is risky unless you take great care to run this webhook on all hosts which run an apiserver which might need to make calls to this webhook. Such installs are likely to be non-portable, i.e., not easy to turn up in a new cluster. The scheme must be \"https\"; the URL must begin with \"https://\". A path is optional, and if present may be any string permissible in a URL. You may use the path to pass an arbitrary string to the webhook, for example, a cluster identifier. Attempting to use a user or basic auth e.g. \"user:password@\" is not allowed. Fragments (\"#...\") and query parameters (\"?...\") are not allowed, either. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON AdmissionregistrationV1WebhookClientConfig +instance A.FromJSON AdmissionregistrationV1WebhookClientConfig where + parseJSON = A.withObject "AdmissionregistrationV1WebhookClientConfig" $ \o -> + AdmissionregistrationV1WebhookClientConfig + <$> (o .:? "caBundle") + <*> (o .:? "service") + <*> (o .:? "url") + +-- | ToJSON AdmissionregistrationV1WebhookClientConfig +instance A.ToJSON AdmissionregistrationV1WebhookClientConfig where + toJSON AdmissionregistrationV1WebhookClientConfig {..} = + _omitNulls + [ "caBundle" .= admissionregistrationV1WebhookClientConfigCaBundle + , "service" .= admissionregistrationV1WebhookClientConfigService + , "url" .= admissionregistrationV1WebhookClientConfigUrl + ] + + +-- | Construct a value of type 'AdmissionregistrationV1WebhookClientConfig' (by applying it's required fields, if any) +mkAdmissionregistrationV1WebhookClientConfig + :: AdmissionregistrationV1WebhookClientConfig +mkAdmissionregistrationV1WebhookClientConfig = + AdmissionregistrationV1WebhookClientConfig + { admissionregistrationV1WebhookClientConfigCaBundle = Nothing + , admissionregistrationV1WebhookClientConfigService = Nothing + , admissionregistrationV1WebhookClientConfigUrl = Nothing + } + +-- ** ApiextensionsV1ServiceReference +-- | ApiextensionsV1ServiceReference +-- ServiceReference holds a reference to Service.legacy.k8s.io +data ApiextensionsV1ServiceReference = ApiextensionsV1ServiceReference + { apiextensionsV1ServiceReferenceName :: !(Text) -- ^ /Required/ "name" - name is the name of the service. Required + , apiextensionsV1ServiceReferenceNamespace :: !(Text) -- ^ /Required/ "namespace" - namespace is the namespace of the service. Required + , apiextensionsV1ServiceReferencePath :: !(Maybe Text) -- ^ "path" - path is an optional URL path at which the webhook will be contacted. + , apiextensionsV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - port is an optional service port at which the webhook will be contacted. `port` should be a valid port number (1-65535, inclusive). Defaults to 443 for backward compatibility. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON ApiextensionsV1ServiceReference +instance A.FromJSON ApiextensionsV1ServiceReference where + parseJSON = A.withObject "ApiextensionsV1ServiceReference" $ \o -> + ApiextensionsV1ServiceReference + <$> (o .: "name") + <*> (o .: "namespace") + <*> (o .:? "path") + <*> (o .:? "port") + +-- | ToJSON ApiextensionsV1ServiceReference +instance A.ToJSON ApiextensionsV1ServiceReference where + toJSON ApiextensionsV1ServiceReference {..} = + _omitNulls + [ "name" .= apiextensionsV1ServiceReferenceName + , "namespace" .= apiextensionsV1ServiceReferenceNamespace + , "path" .= apiextensionsV1ServiceReferencePath + , "port" .= apiextensionsV1ServiceReferencePort + ] + + +-- | Construct a value of type 'ApiextensionsV1ServiceReference' (by applying it's required fields, if any) +mkApiextensionsV1ServiceReference + :: Text -- ^ 'apiextensionsV1ServiceReferenceName': name is the name of the service. Required + -> Text -- ^ 'apiextensionsV1ServiceReferenceNamespace': namespace is the namespace of the service. Required + -> ApiextensionsV1ServiceReference +mkApiextensionsV1ServiceReference apiextensionsV1ServiceReferenceName apiextensionsV1ServiceReferenceNamespace = + ApiextensionsV1ServiceReference + { apiextensionsV1ServiceReferenceName + , apiextensionsV1ServiceReferenceNamespace + , apiextensionsV1ServiceReferencePath = Nothing + , apiextensionsV1ServiceReferencePort = Nothing + } + +-- ** ApiextensionsV1WebhookClientConfig +-- | ApiextensionsV1WebhookClientConfig +-- WebhookClientConfig contains the information to make a TLS connection with the webhook. +data ApiextensionsV1WebhookClientConfig = ApiextensionsV1WebhookClientConfig + { apiextensionsV1WebhookClientConfigCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - caBundle is a PEM encoded CA bundle which will be used to validate the webhook's server certificate. If unspecified, system trust roots on the apiserver are used. + , apiextensionsV1WebhookClientConfigService :: !(Maybe ApiextensionsV1ServiceReference) -- ^ "service" + , apiextensionsV1WebhookClientConfigUrl :: !(Maybe Text) -- ^ "url" - url gives the location of the webhook, in standard URL form (`scheme://host:port/path`). Exactly one of `url` or `service` must be specified. The `host` should not refer to a service running in the cluster; use the `service` field instead. The host might be resolved via external DNS in some apiservers (e.g., `kube-apiserver` cannot resolve in-cluster DNS as that would be a layering violation). `host` may also be an IP address. Please note that using `localhost` or `127.0.0.1` as a `host` is risky unless you take great care to run this webhook on all hosts which run an apiserver which might need to make calls to this webhook. Such installs are likely to be non-portable, i.e., not easy to turn up in a new cluster. The scheme must be \"https\"; the URL must begin with \"https://\". A path is optional, and if present may be any string permissible in a URL. You may use the path to pass an arbitrary string to the webhook, for example, a cluster identifier. Attempting to use a user or basic auth e.g. \"user:password@\" is not allowed. Fragments (\"#...\") and query parameters (\"?...\") are not allowed, either. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON ApiextensionsV1WebhookClientConfig +instance A.FromJSON ApiextensionsV1WebhookClientConfig where + parseJSON = A.withObject "ApiextensionsV1WebhookClientConfig" $ \o -> + ApiextensionsV1WebhookClientConfig + <$> (o .:? "caBundle") + <*> (o .:? "service") + <*> (o .:? "url") + +-- | ToJSON ApiextensionsV1WebhookClientConfig +instance A.ToJSON ApiextensionsV1WebhookClientConfig where + toJSON ApiextensionsV1WebhookClientConfig {..} = + _omitNulls + [ "caBundle" .= apiextensionsV1WebhookClientConfigCaBundle + , "service" .= apiextensionsV1WebhookClientConfigService + , "url" .= apiextensionsV1WebhookClientConfigUrl + ] + + +-- | Construct a value of type 'ApiextensionsV1WebhookClientConfig' (by applying it's required fields, if any) +mkApiextensionsV1WebhookClientConfig + :: ApiextensionsV1WebhookClientConfig +mkApiextensionsV1WebhookClientConfig = + ApiextensionsV1WebhookClientConfig + { apiextensionsV1WebhookClientConfigCaBundle = Nothing + , apiextensionsV1WebhookClientConfigService = Nothing + , apiextensionsV1WebhookClientConfigUrl = Nothing + } + +-- ** ApiregistrationV1ServiceReference +-- | ApiregistrationV1ServiceReference +-- ServiceReference holds a reference to Service.legacy.k8s.io +data ApiregistrationV1ServiceReference = ApiregistrationV1ServiceReference + { apiregistrationV1ServiceReferenceName :: !(Maybe Text) -- ^ "name" - Name is the name of the service + , apiregistrationV1ServiceReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the service + , apiregistrationV1ServiceReferencePort :: !(Maybe Int) -- ^ "port" - If specified, the port on the service that hosting webhook. Default to 443 for backward compatibility. `port` should be a valid port number (1-65535, inclusive). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON ApiregistrationV1ServiceReference +instance A.FromJSON ApiregistrationV1ServiceReference where + parseJSON = A.withObject "ApiregistrationV1ServiceReference" $ \o -> + ApiregistrationV1ServiceReference + <$> (o .:? "name") + <*> (o .:? "namespace") + <*> (o .:? "port") + +-- | ToJSON ApiregistrationV1ServiceReference +instance A.ToJSON ApiregistrationV1ServiceReference where + toJSON ApiregistrationV1ServiceReference {..} = + _omitNulls + [ "name" .= apiregistrationV1ServiceReferenceName + , "namespace" .= apiregistrationV1ServiceReferenceNamespace + , "port" .= apiregistrationV1ServiceReferencePort + ] + + +-- | Construct a value of type 'ApiregistrationV1ServiceReference' (by applying it's required fields, if any) +mkApiregistrationV1ServiceReference + :: ApiregistrationV1ServiceReference +mkApiregistrationV1ServiceReference = + ApiregistrationV1ServiceReference + { apiregistrationV1ServiceReferenceName = Nothing + , apiregistrationV1ServiceReferenceNamespace = Nothing + , apiregistrationV1ServiceReferencePort = Nothing + } + +-- ** AuthenticationV1TokenRequest +-- | AuthenticationV1TokenRequest +-- TokenRequest requests a token for a given service account. +data AuthenticationV1TokenRequest = AuthenticationV1TokenRequest + { authenticationV1TokenRequestApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , authenticationV1TokenRequestKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , authenticationV1TokenRequestMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , authenticationV1TokenRequestSpec :: !(V1TokenRequestSpec) -- ^ /Required/ "spec" + , authenticationV1TokenRequestStatus :: !(Maybe V1TokenRequestStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON AuthenticationV1TokenRequest +instance A.FromJSON AuthenticationV1TokenRequest where + parseJSON = A.withObject "AuthenticationV1TokenRequest" $ \o -> + AuthenticationV1TokenRequest + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON AuthenticationV1TokenRequest +instance A.ToJSON AuthenticationV1TokenRequest where + toJSON AuthenticationV1TokenRequest {..} = + _omitNulls + [ "apiVersion" .= authenticationV1TokenRequestApiVersion + , "kind" .= authenticationV1TokenRequestKind + , "metadata" .= authenticationV1TokenRequestMetadata + , "spec" .= authenticationV1TokenRequestSpec + , "status" .= authenticationV1TokenRequestStatus + ] + + +-- | Construct a value of type 'AuthenticationV1TokenRequest' (by applying it's required fields, if any) +mkAuthenticationV1TokenRequest + :: V1TokenRequestSpec -- ^ 'authenticationV1TokenRequestSpec' + -> AuthenticationV1TokenRequest +mkAuthenticationV1TokenRequest authenticationV1TokenRequestSpec = + AuthenticationV1TokenRequest + { authenticationV1TokenRequestApiVersion = Nothing + , authenticationV1TokenRequestKind = Nothing + , authenticationV1TokenRequestMetadata = Nothing + , authenticationV1TokenRequestSpec + , authenticationV1TokenRequestStatus = Nothing + } + +-- ** CoreV1EndpointPort +-- | CoreV1EndpointPort +-- EndpointPort is a tuple that describes a single port. +data CoreV1EndpointPort = CoreV1EndpointPort + { coreV1EndpointPortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This is used as a hint for implementations to offer richer behavior for protocols that they understand. This field follows standard Kubernetes label syntax. Valid values are either: * Un-prefixed protocol names - reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). * Kubernetes-defined prefixed names: * 'kubernetes.io/h2c' - HTTP/2 over cleartext as described in https://www.rfc-editor.org/rfc/rfc7540 * Other protocols should use implementation-defined prefixed names such as mycompany.com/my-custom-protocol. + , coreV1EndpointPortName :: !(Maybe Text) -- ^ "name" - The name of this port. This must match the 'name' field in the corresponding ServicePort. Must be a DNS_LABEL. Optional only if one port is defined. + , coreV1EndpointPortPort :: !(Int) -- ^ /Required/ "port" - The port number of the endpoint. + , coreV1EndpointPortProtocol :: !(Maybe Text) -- ^ "protocol" - The IP protocol for this port. Must be UDP, TCP, or SCTP. Default is TCP. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON CoreV1EndpointPort +instance A.FromJSON CoreV1EndpointPort where + parseJSON = A.withObject "CoreV1EndpointPort" $ \o -> + CoreV1EndpointPort + <$> (o .:? "appProtocol") + <*> (o .:? "name") + <*> (o .: "port") + <*> (o .:? "protocol") + +-- | ToJSON CoreV1EndpointPort +instance A.ToJSON CoreV1EndpointPort where + toJSON CoreV1EndpointPort {..} = + _omitNulls + [ "appProtocol" .= coreV1EndpointPortAppProtocol + , "name" .= coreV1EndpointPortName + , "port" .= coreV1EndpointPortPort + , "protocol" .= coreV1EndpointPortProtocol + ] + + +-- | Construct a value of type 'CoreV1EndpointPort' (by applying it's required fields, if any) +mkCoreV1EndpointPort + :: Int -- ^ 'coreV1EndpointPortPort': The port number of the endpoint. + -> CoreV1EndpointPort +mkCoreV1EndpointPort coreV1EndpointPortPort = + CoreV1EndpointPort + { coreV1EndpointPortAppProtocol = Nothing + , coreV1EndpointPortName = Nothing + , coreV1EndpointPortPort + , coreV1EndpointPortProtocol = Nothing + } + +-- ** CoreV1Event +-- | CoreV1Event +-- Event is a report of an event somewhere in the cluster. Events have a limited retention time and triggers and messages may evolve with time. Event consumers should not rely on the timing of an event with a given Reason reflecting a consistent underlying trigger, or the continued existence of events with that Reason. Events should be treated as informative, best-effort, supplemental data. +data CoreV1Event = CoreV1Event + { coreV1EventAction :: !(Maybe Text) -- ^ "action" - What action was taken/failed regarding to the Regarding object. + , coreV1EventApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , coreV1EventCount :: !(Maybe Int) -- ^ "count" - The number of times this event has occurred. + , coreV1EventEventTime :: !(Maybe DateTime) -- ^ "eventTime" - Time when this Event was first observed. + , coreV1EventFirstTimestamp :: !(Maybe DateTime) -- ^ "firstTimestamp" - The time at which the event was first recorded. (Time of server receipt is in TypeMeta.) + , coreV1EventInvolvedObject :: !(V1ObjectReference) -- ^ /Required/ "involvedObject" + , coreV1EventKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , coreV1EventLastTimestamp :: !(Maybe DateTime) -- ^ "lastTimestamp" - The time at which the most recent occurrence of this event was recorded. + , coreV1EventMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the status of this operation. + , coreV1EventMetadata :: !(V1ObjectMeta) -- ^ /Required/ "metadata" + , coreV1EventReason :: !(Maybe Text) -- ^ "reason" - This should be a short, machine understandable string that gives the reason for the transition into the object's current status. + , coreV1EventRelated :: !(Maybe V1ObjectReference) -- ^ "related" + , coreV1EventReportingComponent :: !(Maybe Text) -- ^ "reportingComponent" - Name of the controller that emitted this Event, e.g. `kubernetes.io/kubelet`. + , coreV1EventReportingInstance :: !(Maybe Text) -- ^ "reportingInstance" - ID of the controller instance, e.g. `kubelet-xyzf`. + , coreV1EventSeries :: !(Maybe CoreV1EventSeries) -- ^ "series" + , coreV1EventSource :: !(Maybe V1EventSource) -- ^ "source" + , coreV1EventType :: !(Maybe Text) -- ^ "type" - Type of this event (Normal, Warning), new types could be added in the future + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON CoreV1Event +instance A.FromJSON CoreV1Event where + parseJSON = A.withObject "CoreV1Event" $ \o -> + CoreV1Event + <$> (o .:? "action") + <*> (o .:? "apiVersion") + <*> (o .:? "count") + <*> (o .:? "eventTime") + <*> (o .:? "firstTimestamp") + <*> (o .: "involvedObject") + <*> (o .:? "kind") + <*> (o .:? "lastTimestamp") + <*> (o .:? "message") + <*> (o .: "metadata") + <*> (o .:? "reason") + <*> (o .:? "related") + <*> (o .:? "reportingComponent") + <*> (o .:? "reportingInstance") + <*> (o .:? "series") + <*> (o .:? "source") + <*> (o .:? "type") + +-- | ToJSON CoreV1Event +instance A.ToJSON CoreV1Event where + toJSON CoreV1Event {..} = + _omitNulls + [ "action" .= coreV1EventAction + , "apiVersion" .= coreV1EventApiVersion + , "count" .= coreV1EventCount + , "eventTime" .= coreV1EventEventTime + , "firstTimestamp" .= coreV1EventFirstTimestamp + , "involvedObject" .= coreV1EventInvolvedObject + , "kind" .= coreV1EventKind + , "lastTimestamp" .= coreV1EventLastTimestamp + , "message" .= coreV1EventMessage + , "metadata" .= coreV1EventMetadata + , "reason" .= coreV1EventReason + , "related" .= coreV1EventRelated + , "reportingComponent" .= coreV1EventReportingComponent + , "reportingInstance" .= coreV1EventReportingInstance + , "series" .= coreV1EventSeries + , "source" .= coreV1EventSource + , "type" .= coreV1EventType + ] + + +-- | Construct a value of type 'CoreV1Event' (by applying it's required fields, if any) +mkCoreV1Event + :: V1ObjectReference -- ^ 'coreV1EventInvolvedObject' + -> V1ObjectMeta -- ^ 'coreV1EventMetadata' + -> CoreV1Event +mkCoreV1Event coreV1EventInvolvedObject coreV1EventMetadata = + CoreV1Event + { coreV1EventAction = Nothing + , coreV1EventApiVersion = Nothing + , coreV1EventCount = Nothing + , coreV1EventEventTime = Nothing + , coreV1EventFirstTimestamp = Nothing + , coreV1EventInvolvedObject + , coreV1EventKind = Nothing + , coreV1EventLastTimestamp = Nothing + , coreV1EventMessage = Nothing + , coreV1EventMetadata + , coreV1EventReason = Nothing + , coreV1EventRelated = Nothing + , coreV1EventReportingComponent = Nothing + , coreV1EventReportingInstance = Nothing + , coreV1EventSeries = Nothing + , coreV1EventSource = Nothing + , coreV1EventType = Nothing + } + +-- ** CoreV1EventList +-- | CoreV1EventList +-- EventList is a list of events. +data CoreV1EventList = CoreV1EventList + { coreV1EventListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , coreV1EventListItems :: !([CoreV1Event]) -- ^ /Required/ "items" - List of events + , coreV1EventListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , coreV1EventListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON CoreV1EventList +instance A.FromJSON CoreV1EventList where + parseJSON = A.withObject "CoreV1EventList" $ \o -> + CoreV1EventList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON CoreV1EventList +instance A.ToJSON CoreV1EventList where + toJSON CoreV1EventList {..} = + _omitNulls + [ "apiVersion" .= coreV1EventListApiVersion + , "items" .= coreV1EventListItems + , "kind" .= coreV1EventListKind + , "metadata" .= coreV1EventListMetadata + ] + + +-- | Construct a value of type 'CoreV1EventList' (by applying it's required fields, if any) +mkCoreV1EventList + :: [CoreV1Event] -- ^ 'coreV1EventListItems': List of events + -> CoreV1EventList +mkCoreV1EventList coreV1EventListItems = + CoreV1EventList + { coreV1EventListApiVersion = Nothing + , coreV1EventListItems + , coreV1EventListKind = Nothing + , coreV1EventListMetadata = Nothing + } + +-- ** CoreV1EventSeries +-- | CoreV1EventSeries +-- EventSeries contain information on series of events, i.e. thing that was/is happening continuously for some time. +data CoreV1EventSeries = CoreV1EventSeries + { coreV1EventSeriesCount :: !(Maybe Int) -- ^ "count" - Number of occurrences in this series up to the last heartbeat time + , coreV1EventSeriesLastObservedTime :: !(Maybe DateTime) -- ^ "lastObservedTime" - Time of the last occurrence observed + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON CoreV1EventSeries +instance A.FromJSON CoreV1EventSeries where + parseJSON = A.withObject "CoreV1EventSeries" $ \o -> + CoreV1EventSeries + <$> (o .:? "count") + <*> (o .:? "lastObservedTime") + +-- | ToJSON CoreV1EventSeries +instance A.ToJSON CoreV1EventSeries where + toJSON CoreV1EventSeries {..} = + _omitNulls + [ "count" .= coreV1EventSeriesCount + , "lastObservedTime" .= coreV1EventSeriesLastObservedTime + ] + + +-- | Construct a value of type 'CoreV1EventSeries' (by applying it's required fields, if any) +mkCoreV1EventSeries + :: CoreV1EventSeries +mkCoreV1EventSeries = + CoreV1EventSeries + { coreV1EventSeriesCount = Nothing + , coreV1EventSeriesLastObservedTime = Nothing + } + +-- ** DiscoveryV1EndpointPort +-- | DiscoveryV1EndpointPort +-- EndpointPort represents a Port used by an EndpointSlice +data DiscoveryV1EndpointPort = DiscoveryV1EndpointPort + { discoveryV1EndpointPortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This is used as a hint for implementations to offer richer behavior for protocols that they understand. This field follows standard Kubernetes label syntax. Valid values are either: * Un-prefixed protocol names - reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). * Kubernetes-defined prefixed names: * 'kubernetes.io/h2c' - HTTP/2 over cleartext as described in https://www.rfc-editor.org/rfc/rfc7540 * Other protocols should use implementation-defined prefixed names such as mycompany.com/my-custom-protocol. + , discoveryV1EndpointPortName :: !(Maybe Text) -- ^ "name" - name represents the name of this port. All ports in an EndpointSlice must have a unique name. If the EndpointSlice is dervied from a Kubernetes service, this corresponds to the Service.ports[].name. Name must either be an empty string or pass DNS_LABEL validation: * must be no more than 63 characters long. * must consist of lower case alphanumeric characters or '-'. * must start and end with an alphanumeric character. Default is empty string. + , discoveryV1EndpointPortPort :: !(Maybe Int) -- ^ "port" - port represents the port number of the endpoint. If this is not specified, ports are not restricted and must be interpreted in the context of the specific consumer. + , discoveryV1EndpointPortProtocol :: !(Maybe Text) -- ^ "protocol" - protocol represents the IP protocol for this port. Must be UDP, TCP, or SCTP. Default is TCP. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON DiscoveryV1EndpointPort +instance A.FromJSON DiscoveryV1EndpointPort where + parseJSON = A.withObject "DiscoveryV1EndpointPort" $ \o -> + DiscoveryV1EndpointPort + <$> (o .:? "appProtocol") + <*> (o .:? "name") + <*> (o .:? "port") + <*> (o .:? "protocol") + +-- | ToJSON DiscoveryV1EndpointPort +instance A.ToJSON DiscoveryV1EndpointPort where + toJSON DiscoveryV1EndpointPort {..} = + _omitNulls + [ "appProtocol" .= discoveryV1EndpointPortAppProtocol + , "name" .= discoveryV1EndpointPortName + , "port" .= discoveryV1EndpointPortPort + , "protocol" .= discoveryV1EndpointPortProtocol + ] + + +-- | Construct a value of type 'DiscoveryV1EndpointPort' (by applying it's required fields, if any) +mkDiscoveryV1EndpointPort + :: DiscoveryV1EndpointPort +mkDiscoveryV1EndpointPort = + DiscoveryV1EndpointPort + { discoveryV1EndpointPortAppProtocol = Nothing + , discoveryV1EndpointPortName = Nothing + , discoveryV1EndpointPortPort = Nothing + , discoveryV1EndpointPortProtocol = Nothing + } + +-- ** EventsV1Event +-- | EventsV1Event +-- Event is a report of an event somewhere in the cluster. It generally denotes some state change in the system. Events have a limited retention time and triggers and messages may evolve with time. Event consumers should not rely on the timing of an event with a given Reason reflecting a consistent underlying trigger, or the continued existence of events with that Reason. Events should be treated as informative, best-effort, supplemental data. +data EventsV1Event = EventsV1Event + { eventsV1EventAction :: !(Maybe Text) -- ^ "action" - action is what action was taken/failed regarding to the regarding object. It is machine-readable. This field cannot be empty for new Events and it can have at most 128 characters. + , eventsV1EventApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , eventsV1EventDeprecatedCount :: !(Maybe Int) -- ^ "deprecatedCount" - deprecatedCount is the deprecated field assuring backward compatibility with core.v1 Event type. + , eventsV1EventDeprecatedFirstTimestamp :: !(Maybe DateTime) -- ^ "deprecatedFirstTimestamp" - deprecatedFirstTimestamp is the deprecated field assuring backward compatibility with core.v1 Event type. + , eventsV1EventDeprecatedLastTimestamp :: !(Maybe DateTime) -- ^ "deprecatedLastTimestamp" - deprecatedLastTimestamp is the deprecated field assuring backward compatibility with core.v1 Event type. + , eventsV1EventDeprecatedSource :: !(Maybe V1EventSource) -- ^ "deprecatedSource" + , eventsV1EventEventTime :: !(DateTime) -- ^ /Required/ "eventTime" - eventTime is the time when this Event was first observed. It is required. + , eventsV1EventKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , eventsV1EventMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , eventsV1EventNote :: !(Maybe Text) -- ^ "note" - note is a human-readable description of the status of this operation. Maximal length of the note is 1kB, but libraries should be prepared to handle values up to 64kB. + , eventsV1EventReason :: !(Maybe Text) -- ^ "reason" - reason is why the action was taken. It is human-readable. This field cannot be empty for new Events and it can have at most 128 characters. + , eventsV1EventRegarding :: !(Maybe V1ObjectReference) -- ^ "regarding" + , eventsV1EventRelated :: !(Maybe V1ObjectReference) -- ^ "related" + , eventsV1EventReportingController :: !(Maybe Text) -- ^ "reportingController" - reportingController is the name of the controller that emitted this Event, e.g. `kubernetes.io/kubelet`. This field cannot be empty for new Events. + , eventsV1EventReportingInstance :: !(Maybe Text) -- ^ "reportingInstance" - reportingInstance is the ID of the controller instance, e.g. `kubelet-xyzf`. This field cannot be empty for new Events and it can have at most 128 characters. + , eventsV1EventSeries :: !(Maybe EventsV1EventSeries) -- ^ "series" + , eventsV1EventType :: !(Maybe Text) -- ^ "type" - type is the type of this event (Normal, Warning), new types could be added in the future. It is machine-readable. This field cannot be empty for new Events. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON EventsV1Event +instance A.FromJSON EventsV1Event where + parseJSON = A.withObject "EventsV1Event" $ \o -> + EventsV1Event + <$> (o .:? "action") + <*> (o .:? "apiVersion") + <*> (o .:? "deprecatedCount") + <*> (o .:? "deprecatedFirstTimestamp") + <*> (o .:? "deprecatedLastTimestamp") + <*> (o .:? "deprecatedSource") + <*> (o .: "eventTime") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "note") + <*> (o .:? "reason") + <*> (o .:? "regarding") + <*> (o .:? "related") + <*> (o .:? "reportingController") + <*> (o .:? "reportingInstance") + <*> (o .:? "series") + <*> (o .:? "type") + +-- | ToJSON EventsV1Event +instance A.ToJSON EventsV1Event where + toJSON EventsV1Event {..} = + _omitNulls + [ "action" .= eventsV1EventAction + , "apiVersion" .= eventsV1EventApiVersion + , "deprecatedCount" .= eventsV1EventDeprecatedCount + , "deprecatedFirstTimestamp" .= eventsV1EventDeprecatedFirstTimestamp + , "deprecatedLastTimestamp" .= eventsV1EventDeprecatedLastTimestamp + , "deprecatedSource" .= eventsV1EventDeprecatedSource + , "eventTime" .= eventsV1EventEventTime + , "kind" .= eventsV1EventKind + , "metadata" .= eventsV1EventMetadata + , "note" .= eventsV1EventNote + , "reason" .= eventsV1EventReason + , "regarding" .= eventsV1EventRegarding + , "related" .= eventsV1EventRelated + , "reportingController" .= eventsV1EventReportingController + , "reportingInstance" .= eventsV1EventReportingInstance + , "series" .= eventsV1EventSeries + , "type" .= eventsV1EventType + ] + + +-- | Construct a value of type 'EventsV1Event' (by applying it's required fields, if any) +mkEventsV1Event + :: DateTime -- ^ 'eventsV1EventEventTime': eventTime is the time when this Event was first observed. It is required. + -> EventsV1Event +mkEventsV1Event eventsV1EventEventTime = + EventsV1Event + { eventsV1EventAction = Nothing + , eventsV1EventApiVersion = Nothing + , eventsV1EventDeprecatedCount = Nothing + , eventsV1EventDeprecatedFirstTimestamp = Nothing + , eventsV1EventDeprecatedLastTimestamp = Nothing + , eventsV1EventDeprecatedSource = Nothing + , eventsV1EventEventTime + , eventsV1EventKind = Nothing + , eventsV1EventMetadata = Nothing + , eventsV1EventNote = Nothing + , eventsV1EventReason = Nothing + , eventsV1EventRegarding = Nothing + , eventsV1EventRelated = Nothing + , eventsV1EventReportingController = Nothing + , eventsV1EventReportingInstance = Nothing + , eventsV1EventSeries = Nothing + , eventsV1EventType = Nothing + } + +-- ** EventsV1EventList +-- | EventsV1EventList +-- EventList is a list of Event objects. +data EventsV1EventList = EventsV1EventList + { eventsV1EventListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , eventsV1EventListItems :: !([EventsV1Event]) -- ^ /Required/ "items" - items is a list of schema objects. + , eventsV1EventListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , eventsV1EventListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON EventsV1EventList +instance A.FromJSON EventsV1EventList where + parseJSON = A.withObject "EventsV1EventList" $ \o -> + EventsV1EventList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON EventsV1EventList +instance A.ToJSON EventsV1EventList where + toJSON EventsV1EventList {..} = + _omitNulls + [ "apiVersion" .= eventsV1EventListApiVersion + , "items" .= eventsV1EventListItems + , "kind" .= eventsV1EventListKind + , "metadata" .= eventsV1EventListMetadata + ] + + +-- | Construct a value of type 'EventsV1EventList' (by applying it's required fields, if any) +mkEventsV1EventList + :: [EventsV1Event] -- ^ 'eventsV1EventListItems': items is a list of schema objects. + -> EventsV1EventList +mkEventsV1EventList eventsV1EventListItems = + EventsV1EventList + { eventsV1EventListApiVersion = Nothing + , eventsV1EventListItems + , eventsV1EventListKind = Nothing + , eventsV1EventListMetadata = Nothing + } + +-- ** EventsV1EventSeries +-- | EventsV1EventSeries +-- EventSeries contain information on series of events, i.e. thing that was/is happening continuously for some time. How often to update the EventSeries is up to the event reporters. The default event reporter in \"k8s.io/client-go/tools/events/event_broadcaster.go\" shows how this struct is updated on heartbeats and can guide customized reporter implementations. +data EventsV1EventSeries = EventsV1EventSeries + { eventsV1EventSeriesCount :: !(Int) -- ^ /Required/ "count" - count is the number of occurrences in this series up to the last heartbeat time. + , eventsV1EventSeriesLastObservedTime :: !(DateTime) -- ^ /Required/ "lastObservedTime" - lastObservedTime is the time when last Event from the series was seen before last heartbeat. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON EventsV1EventSeries +instance A.FromJSON EventsV1EventSeries where + parseJSON = A.withObject "EventsV1EventSeries" $ \o -> + EventsV1EventSeries + <$> (o .: "count") + <*> (o .: "lastObservedTime") + +-- | ToJSON EventsV1EventSeries +instance A.ToJSON EventsV1EventSeries where + toJSON EventsV1EventSeries {..} = + _omitNulls + [ "count" .= eventsV1EventSeriesCount + , "lastObservedTime" .= eventsV1EventSeriesLastObservedTime + ] + + +-- | Construct a value of type 'EventsV1EventSeries' (by applying it's required fields, if any) +mkEventsV1EventSeries + :: Int -- ^ 'eventsV1EventSeriesCount': count is the number of occurrences in this series up to the last heartbeat time. + -> DateTime -- ^ 'eventsV1EventSeriesLastObservedTime': lastObservedTime is the time when last Event from the series was seen before last heartbeat. + -> EventsV1EventSeries +mkEventsV1EventSeries eventsV1EventSeriesCount eventsV1EventSeriesLastObservedTime = + EventsV1EventSeries + { eventsV1EventSeriesCount + , eventsV1EventSeriesLastObservedTime + } + +-- ** StorageV1TokenRequest +-- | StorageV1TokenRequest +-- TokenRequest contains parameters of a service account token. +data StorageV1TokenRequest = StorageV1TokenRequest + { storageV1TokenRequestAudience :: !(Text) -- ^ /Required/ "audience" - audience is the intended audience of the token in \"TokenRequestSpec\". It will default to the audiences of kube apiserver. + , storageV1TokenRequestExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - expirationSeconds is the duration of validity of the token in \"TokenRequestSpec\". It has the same default value of \"ExpirationSeconds\" in \"TokenRequestSpec\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON StorageV1TokenRequest +instance A.FromJSON StorageV1TokenRequest where + parseJSON = A.withObject "StorageV1TokenRequest" $ \o -> + StorageV1TokenRequest + <$> (o .: "audience") + <*> (o .:? "expirationSeconds") + +-- | ToJSON StorageV1TokenRequest +instance A.ToJSON StorageV1TokenRequest where + toJSON StorageV1TokenRequest {..} = + _omitNulls + [ "audience" .= storageV1TokenRequestAudience + , "expirationSeconds" .= storageV1TokenRequestExpirationSeconds + ] + + +-- | Construct a value of type 'StorageV1TokenRequest' (by applying it's required fields, if any) +mkStorageV1TokenRequest + :: Text -- ^ 'storageV1TokenRequestAudience': audience is the intended audience of the token in \"TokenRequestSpec\". It will default to the audiences of kube apiserver. + -> StorageV1TokenRequest +mkStorageV1TokenRequest storageV1TokenRequestAudience = + StorageV1TokenRequest + { storageV1TokenRequestAudience + , storageV1TokenRequestExpirationSeconds = Nothing + } + +-- ** V1APIGroup +-- | V1APIGroup +-- APIGroup contains the name, the supported versions, and the preferred version of a group. +data V1APIGroup = V1APIGroup + { v1APIGroupApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIGroupKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1APIGroupName :: !(Text) -- ^ /Required/ "name" - name is the name of the group. + , v1APIGroupPreferredVersion :: !(Maybe V1GroupVersionForDiscovery) -- ^ "preferredVersion" + , v1APIGroupServerAddressByClientCidrs :: !(Maybe [V1ServerAddressByClientCIDR]) -- ^ "serverAddressByClientCIDRs" - a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. + , v1APIGroupVersions :: !([V1GroupVersionForDiscovery]) -- ^ /Required/ "versions" - versions are the versions supported in this group. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIGroup +instance A.FromJSON V1APIGroup where + parseJSON = A.withObject "V1APIGroup" $ \o -> + V1APIGroup + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .: "name") + <*> (o .:? "preferredVersion") + <*> (o .:? "serverAddressByClientCIDRs") + <*> (o .: "versions") + +-- | ToJSON V1APIGroup +instance A.ToJSON V1APIGroup where + toJSON V1APIGroup {..} = + _omitNulls + [ "apiVersion" .= v1APIGroupApiVersion + , "kind" .= v1APIGroupKind + , "name" .= v1APIGroupName + , "preferredVersion" .= v1APIGroupPreferredVersion + , "serverAddressByClientCIDRs" .= v1APIGroupServerAddressByClientCidrs + , "versions" .= v1APIGroupVersions + ] + + +-- | Construct a value of type 'V1APIGroup' (by applying it's required fields, if any) +mkV1APIGroup + :: Text -- ^ 'v1APIGroupName': name is the name of the group. + -> [V1GroupVersionForDiscovery] -- ^ 'v1APIGroupVersions': versions are the versions supported in this group. + -> V1APIGroup +mkV1APIGroup v1APIGroupName v1APIGroupVersions = + V1APIGroup + { v1APIGroupApiVersion = Nothing + , v1APIGroupKind = Nothing + , v1APIGroupName + , v1APIGroupPreferredVersion = Nothing + , v1APIGroupServerAddressByClientCidrs = Nothing + , v1APIGroupVersions + } + +-- ** V1APIGroupList +-- | V1APIGroupList +-- APIGroupList is a list of APIGroup, to allow clients to discover the API at /apis. +data V1APIGroupList = V1APIGroupList + { v1APIGroupListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIGroupListGroups :: !([V1APIGroup]) -- ^ /Required/ "groups" - groups is a list of APIGroup. + , v1APIGroupListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIGroupList +instance A.FromJSON V1APIGroupList where + parseJSON = A.withObject "V1APIGroupList" $ \o -> + V1APIGroupList + <$> (o .:? "apiVersion") + <*> (o .: "groups") + <*> (o .:? "kind") + +-- | ToJSON V1APIGroupList +instance A.ToJSON V1APIGroupList where + toJSON V1APIGroupList {..} = + _omitNulls + [ "apiVersion" .= v1APIGroupListApiVersion + , "groups" .= v1APIGroupListGroups + , "kind" .= v1APIGroupListKind + ] + + +-- | Construct a value of type 'V1APIGroupList' (by applying it's required fields, if any) +mkV1APIGroupList + :: [V1APIGroup] -- ^ 'v1APIGroupListGroups': groups is a list of APIGroup. + -> V1APIGroupList +mkV1APIGroupList v1APIGroupListGroups = + V1APIGroupList + { v1APIGroupListApiVersion = Nothing + , v1APIGroupListGroups + , v1APIGroupListKind = Nothing + } + +-- ** V1APIResource +-- | V1APIResource +-- APIResource specifies the name of a resource and whether it is namespaced. +data V1APIResource = V1APIResource + { v1APIResourceCategories :: !(Maybe [Text]) -- ^ "categories" - categories is a list of the grouped resources this resource belongs to (e.g. 'all') + , v1APIResourceGroup :: !(Maybe Text) -- ^ "group" - group is the preferred group of the resource. Empty implies the group of the containing resource list. For subresources, this may have a different value, for example: Scale\". + , v1APIResourceKind :: !(Text) -- ^ /Required/ "kind" - kind is the kind for the resource (e.g. 'Foo' is the kind for a resource 'foo') + , v1APIResourceName :: !(Text) -- ^ /Required/ "name" - name is the plural name of the resource. + , v1APIResourceNamespaced :: !(Bool) -- ^ /Required/ "namespaced" - namespaced indicates if a resource is namespaced or not. + , v1APIResourceShortNames :: !(Maybe [Text]) -- ^ "shortNames" - shortNames is a list of suggested short names of the resource. + , v1APIResourceSingularName :: !(Text) -- ^ /Required/ "singularName" - singularName is the singular name of the resource. This allows clients to handle plural and singular opaquely. The singularName is more correct for reporting status on a single item and both singular and plural are allowed from the kubectl CLI interface. + , v1APIResourceStorageVersionHash :: !(Maybe Text) -- ^ "storageVersionHash" - The hash value of the storage version, the version this resource is converted to when written to the data store. Value must be treated as opaque by clients. Only equality comparison on the value is valid. This is an alpha feature and may change or be removed in the future. The field is populated by the apiserver only if the StorageVersionHash feature gate is enabled. This field will remain optional even if it graduates. + , v1APIResourceVerbs :: !([Text]) -- ^ /Required/ "verbs" - verbs is a list of supported kube verbs (this includes get, list, watch, create, update, patch, delete, deletecollection, and proxy) + , v1APIResourceVersion :: !(Maybe Text) -- ^ "version" - version is the preferred version of the resource. Empty implies the version of the containing resource list For subresources, this may have a different value, for example: v1 (while inside a v1beta1 version of the core resource's group)\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIResource +instance A.FromJSON V1APIResource where + parseJSON = A.withObject "V1APIResource" $ \o -> + V1APIResource + <$> (o .:? "categories") + <*> (o .:? "group") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .: "namespaced") + <*> (o .:? "shortNames") + <*> (o .: "singularName") + <*> (o .:? "storageVersionHash") + <*> (o .: "verbs") + <*> (o .:? "version") + +-- | ToJSON V1APIResource +instance A.ToJSON V1APIResource where + toJSON V1APIResource {..} = + _omitNulls + [ "categories" .= v1APIResourceCategories + , "group" .= v1APIResourceGroup + , "kind" .= v1APIResourceKind + , "name" .= v1APIResourceName + , "namespaced" .= v1APIResourceNamespaced + , "shortNames" .= v1APIResourceShortNames + , "singularName" .= v1APIResourceSingularName + , "storageVersionHash" .= v1APIResourceStorageVersionHash + , "verbs" .= v1APIResourceVerbs + , "version" .= v1APIResourceVersion + ] + + +-- | Construct a value of type 'V1APIResource' (by applying it's required fields, if any) +mkV1APIResource + :: Text -- ^ 'v1APIResourceKind': kind is the kind for the resource (e.g. 'Foo' is the kind for a resource 'foo') + -> Text -- ^ 'v1APIResourceName': name is the plural name of the resource. + -> Bool -- ^ 'v1APIResourceNamespaced': namespaced indicates if a resource is namespaced or not. + -> Text -- ^ 'v1APIResourceSingularName': singularName is the singular name of the resource. This allows clients to handle plural and singular opaquely. The singularName is more correct for reporting status on a single item and both singular and plural are allowed from the kubectl CLI interface. + -> [Text] -- ^ 'v1APIResourceVerbs': verbs is a list of supported kube verbs (this includes get, list, watch, create, update, patch, delete, deletecollection, and proxy) + -> V1APIResource +mkV1APIResource v1APIResourceKind v1APIResourceName v1APIResourceNamespaced v1APIResourceSingularName v1APIResourceVerbs = + V1APIResource + { v1APIResourceCategories = Nothing + , v1APIResourceGroup = Nothing + , v1APIResourceKind + , v1APIResourceName + , v1APIResourceNamespaced + , v1APIResourceShortNames = Nothing + , v1APIResourceSingularName + , v1APIResourceStorageVersionHash = Nothing + , v1APIResourceVerbs + , v1APIResourceVersion = Nothing + } + +-- ** V1APIResourceList +-- | V1APIResourceList +-- APIResourceList is a list of APIResource, it is used to expose the name of the resources supported in a specific group and version, and if the resource is namespaced. +data V1APIResourceList = V1APIResourceList + { v1APIResourceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIResourceListGroupVersion :: !(Text) -- ^ /Required/ "groupVersion" - groupVersion is the group and version this APIResourceList is for. + , v1APIResourceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1APIResourceListResources :: !([V1APIResource]) -- ^ /Required/ "resources" - resources contains the name of the resources and if they are namespaced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIResourceList +instance A.FromJSON V1APIResourceList where + parseJSON = A.withObject "V1APIResourceList" $ \o -> + V1APIResourceList + <$> (o .:? "apiVersion") + <*> (o .: "groupVersion") + <*> (o .:? "kind") + <*> (o .: "resources") + +-- | ToJSON V1APIResourceList +instance A.ToJSON V1APIResourceList where + toJSON V1APIResourceList {..} = + _omitNulls + [ "apiVersion" .= v1APIResourceListApiVersion + , "groupVersion" .= v1APIResourceListGroupVersion + , "kind" .= v1APIResourceListKind + , "resources" .= v1APIResourceListResources + ] + + +-- | Construct a value of type 'V1APIResourceList' (by applying it's required fields, if any) +mkV1APIResourceList + :: Text -- ^ 'v1APIResourceListGroupVersion': groupVersion is the group and version this APIResourceList is for. + -> [V1APIResource] -- ^ 'v1APIResourceListResources': resources contains the name of the resources and if they are namespaced. + -> V1APIResourceList +mkV1APIResourceList v1APIResourceListGroupVersion v1APIResourceListResources = + V1APIResourceList + { v1APIResourceListApiVersion = Nothing + , v1APIResourceListGroupVersion + , v1APIResourceListKind = Nothing + , v1APIResourceListResources + } + +-- ** V1APIService +-- | V1APIService +-- APIService represents a server for a particular GroupVersion. Name must be \"version.group\". +data V1APIService = V1APIService + { v1APIServiceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIServiceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1APIServiceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1APIServiceSpec :: !(Maybe V1APIServiceSpec) -- ^ "spec" + , v1APIServiceStatus :: !(Maybe V1APIServiceStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIService +instance A.FromJSON V1APIService where + parseJSON = A.withObject "V1APIService" $ \o -> + V1APIService + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1APIService +instance A.ToJSON V1APIService where + toJSON V1APIService {..} = + _omitNulls + [ "apiVersion" .= v1APIServiceApiVersion + , "kind" .= v1APIServiceKind + , "metadata" .= v1APIServiceMetadata + , "spec" .= v1APIServiceSpec + , "status" .= v1APIServiceStatus + ] + + +-- | Construct a value of type 'V1APIService' (by applying it's required fields, if any) +mkV1APIService + :: V1APIService +mkV1APIService = + V1APIService + { v1APIServiceApiVersion = Nothing + , v1APIServiceKind = Nothing + , v1APIServiceMetadata = Nothing + , v1APIServiceSpec = Nothing + , v1APIServiceStatus = Nothing + } + +-- ** V1APIServiceCondition +-- | V1APIServiceCondition +-- APIServiceCondition describes the state of an APIService at a particular point +data V1APIServiceCondition = V1APIServiceCondition + { v1APIServiceConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1APIServiceConditionMessage :: !(Maybe Text) -- ^ "message" - Human-readable message indicating details about last transition. + , v1APIServiceConditionReason :: !(Maybe Text) -- ^ "reason" - Unique, one-word, CamelCase reason for the condition's last transition. + , v1APIServiceConditionStatus :: !(Text) -- ^ /Required/ "status" - Status is the status of the condition. Can be True, False, Unknown. + , v1APIServiceConditionType :: !(Text) -- ^ /Required/ "type" - Type is the type of the condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIServiceCondition +instance A.FromJSON V1APIServiceCondition where + parseJSON = A.withObject "V1APIServiceCondition" $ \o -> + V1APIServiceCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1APIServiceCondition +instance A.ToJSON V1APIServiceCondition where + toJSON V1APIServiceCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1APIServiceConditionLastTransitionTime + , "message" .= v1APIServiceConditionMessage + , "reason" .= v1APIServiceConditionReason + , "status" .= v1APIServiceConditionStatus + , "type" .= v1APIServiceConditionType + ] + + +-- | Construct a value of type 'V1APIServiceCondition' (by applying it's required fields, if any) +mkV1APIServiceCondition + :: Text -- ^ 'v1APIServiceConditionStatus': Status is the status of the condition. Can be True, False, Unknown. + -> Text -- ^ 'v1APIServiceConditionType': Type is the type of the condition. + -> V1APIServiceCondition +mkV1APIServiceCondition v1APIServiceConditionStatus v1APIServiceConditionType = + V1APIServiceCondition + { v1APIServiceConditionLastTransitionTime = Nothing + , v1APIServiceConditionMessage = Nothing + , v1APIServiceConditionReason = Nothing + , v1APIServiceConditionStatus + , v1APIServiceConditionType + } + +-- ** V1APIServiceList +-- | V1APIServiceList +-- APIServiceList is a list of APIService objects. +data V1APIServiceList = V1APIServiceList + { v1APIServiceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIServiceListItems :: !([V1APIService]) -- ^ /Required/ "items" - Items is the list of APIService + , v1APIServiceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1APIServiceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIServiceList +instance A.FromJSON V1APIServiceList where + parseJSON = A.withObject "V1APIServiceList" $ \o -> + V1APIServiceList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1APIServiceList +instance A.ToJSON V1APIServiceList where + toJSON V1APIServiceList {..} = + _omitNulls + [ "apiVersion" .= v1APIServiceListApiVersion + , "items" .= v1APIServiceListItems + , "kind" .= v1APIServiceListKind + , "metadata" .= v1APIServiceListMetadata + ] + + +-- | Construct a value of type 'V1APIServiceList' (by applying it's required fields, if any) +mkV1APIServiceList + :: [V1APIService] -- ^ 'v1APIServiceListItems': Items is the list of APIService + -> V1APIServiceList +mkV1APIServiceList v1APIServiceListItems = + V1APIServiceList + { v1APIServiceListApiVersion = Nothing + , v1APIServiceListItems + , v1APIServiceListKind = Nothing + , v1APIServiceListMetadata = Nothing + } + +-- ** V1APIServiceSpec +-- | V1APIServiceSpec +-- APIServiceSpec contains information for locating and communicating with a server. Only https is supported, though you are able to disable certificate verification. +data V1APIServiceSpec = V1APIServiceSpec + { v1APIServiceSpecCaBundle :: !(Maybe ByteArray) -- ^ "caBundle" - CABundle is a PEM encoded CA bundle which will be used to validate an API server's serving certificate. If unspecified, system trust roots on the apiserver are used. + , v1APIServiceSpecGroup :: !(Maybe Text) -- ^ "group" - Group is the API group name this server hosts + , v1APIServiceSpecGroupPriorityMinimum :: !(Int) -- ^ /Required/ "groupPriorityMinimum" - GroupPriorityMininum is the priority this group should have at least. Higher priority means that the group is preferred by clients over lower priority ones. Note that other versions of this group might specify even higher GroupPriorityMininum values such that the whole group gets a higher priority. The primary sort is based on GroupPriorityMinimum, ordered highest number to lowest (20 before 10). The secondary sort is based on the alphabetical comparison of the name of the object. (v1.bar before v1.foo) We'd recommend something like: *.k8s.io (except extensions) at 18000 and PaaSes (OpenShift, Deis) are recommended to be in the 2000s + , v1APIServiceSpecInsecureSkipTlsVerify :: !(Maybe Bool) -- ^ "insecureSkipTLSVerify" - InsecureSkipTLSVerify disables TLS certificate verification when communicating with this server. This is strongly discouraged. You should use the CABundle instead. + , v1APIServiceSpecService :: !(Maybe ApiregistrationV1ServiceReference) -- ^ "service" + , v1APIServiceSpecVersion :: !(Maybe Text) -- ^ "version" - Version is the API version this server hosts. For example, \"v1\" + , v1APIServiceSpecVersionPriority :: !(Int) -- ^ /Required/ "versionPriority" - VersionPriority controls the ordering of this API version inside of its group. Must be greater than zero. The primary sort is based on VersionPriority, ordered highest to lowest (20 before 10). Since it's inside of a group, the number can be small, probably in the 10s. In case of equal version priorities, the version string will be used to compute the order inside a group. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIServiceSpec +instance A.FromJSON V1APIServiceSpec where + parseJSON = A.withObject "V1APIServiceSpec" $ \o -> + V1APIServiceSpec + <$> (o .:? "caBundle") + <*> (o .:? "group") + <*> (o .: "groupPriorityMinimum") + <*> (o .:? "insecureSkipTLSVerify") + <*> (o .:? "service") + <*> (o .:? "version") + <*> (o .: "versionPriority") + +-- | ToJSON V1APIServiceSpec +instance A.ToJSON V1APIServiceSpec where + toJSON V1APIServiceSpec {..} = + _omitNulls + [ "caBundle" .= v1APIServiceSpecCaBundle + , "group" .= v1APIServiceSpecGroup + , "groupPriorityMinimum" .= v1APIServiceSpecGroupPriorityMinimum + , "insecureSkipTLSVerify" .= v1APIServiceSpecInsecureSkipTlsVerify + , "service" .= v1APIServiceSpecService + , "version" .= v1APIServiceSpecVersion + , "versionPriority" .= v1APIServiceSpecVersionPriority + ] + + +-- | Construct a value of type 'V1APIServiceSpec' (by applying it's required fields, if any) +mkV1APIServiceSpec + :: Int -- ^ 'v1APIServiceSpecGroupPriorityMinimum': GroupPriorityMininum is the priority this group should have at least. Higher priority means that the group is preferred by clients over lower priority ones. Note that other versions of this group might specify even higher GroupPriorityMininum values such that the whole group gets a higher priority. The primary sort is based on GroupPriorityMinimum, ordered highest number to lowest (20 before 10). The secondary sort is based on the alphabetical comparison of the name of the object. (v1.bar before v1.foo) We'd recommend something like: *.k8s.io (except extensions) at 18000 and PaaSes (OpenShift, Deis) are recommended to be in the 2000s + -> Int -- ^ 'v1APIServiceSpecVersionPriority': VersionPriority controls the ordering of this API version inside of its group. Must be greater than zero. The primary sort is based on VersionPriority, ordered highest to lowest (20 before 10). Since it's inside of a group, the number can be small, probably in the 10s. In case of equal version priorities, the version string will be used to compute the order inside a group. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. + -> V1APIServiceSpec +mkV1APIServiceSpec v1APIServiceSpecGroupPriorityMinimum v1APIServiceSpecVersionPriority = + V1APIServiceSpec + { v1APIServiceSpecCaBundle = Nothing + , v1APIServiceSpecGroup = Nothing + , v1APIServiceSpecGroupPriorityMinimum + , v1APIServiceSpecInsecureSkipTlsVerify = Nothing + , v1APIServiceSpecService = Nothing + , v1APIServiceSpecVersion = Nothing + , v1APIServiceSpecVersionPriority + } + +-- ** V1APIServiceStatus +-- | V1APIServiceStatus +-- APIServiceStatus contains derived information about an API server +data V1APIServiceStatus = V1APIServiceStatus + { v1APIServiceStatusConditions :: !(Maybe [V1APIServiceCondition]) -- ^ "conditions" - Current service state of apiService. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIServiceStatus +instance A.FromJSON V1APIServiceStatus where + parseJSON = A.withObject "V1APIServiceStatus" $ \o -> + V1APIServiceStatus + <$> (o .:? "conditions") + +-- | ToJSON V1APIServiceStatus +instance A.ToJSON V1APIServiceStatus where + toJSON V1APIServiceStatus {..} = + _omitNulls + [ "conditions" .= v1APIServiceStatusConditions + ] + + +-- | Construct a value of type 'V1APIServiceStatus' (by applying it's required fields, if any) +mkV1APIServiceStatus + :: V1APIServiceStatus +mkV1APIServiceStatus = + V1APIServiceStatus + { v1APIServiceStatusConditions = Nothing + } + +-- ** V1APIVersions +-- | V1APIVersions +-- APIVersions lists the versions that are available, to allow clients to discover the API at /api, which is the root path of the legacy v1 API. +data V1APIVersions = V1APIVersions + { v1APIVersionsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1APIVersionsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1APIVersionsServerAddressByClientCidrs :: !([V1ServerAddressByClientCIDR]) -- ^ /Required/ "serverAddressByClientCIDRs" - a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. + , v1APIVersionsVersions :: !([Text]) -- ^ /Required/ "versions" - versions are the api versions that are available. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1APIVersions +instance A.FromJSON V1APIVersions where + parseJSON = A.withObject "V1APIVersions" $ \o -> + V1APIVersions + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .: "serverAddressByClientCIDRs") + <*> (o .: "versions") + +-- | ToJSON V1APIVersions +instance A.ToJSON V1APIVersions where + toJSON V1APIVersions {..} = + _omitNulls + [ "apiVersion" .= v1APIVersionsApiVersion + , "kind" .= v1APIVersionsKind + , "serverAddressByClientCIDRs" .= v1APIVersionsServerAddressByClientCidrs + , "versions" .= v1APIVersionsVersions + ] + + +-- | Construct a value of type 'V1APIVersions' (by applying it's required fields, if any) +mkV1APIVersions + :: [V1ServerAddressByClientCIDR] -- ^ 'v1APIVersionsServerAddressByClientCidrs': a map of client CIDR to server address that is serving this group. This is to help clients reach servers in the most network-efficient way possible. Clients can use the appropriate server address as per the CIDR that they match. In case of multiple matches, clients should use the longest matching CIDR. The server returns only those CIDRs that it thinks that the client can match. For example: the master will return an internal IP CIDR only, if the client reaches the server using an internal IP. Server looks at X-Forwarded-For header or X-Real-Ip header or request.RemoteAddr (in that order) to get the client IP. + -> [Text] -- ^ 'v1APIVersionsVersions': versions are the api versions that are available. + -> V1APIVersions +mkV1APIVersions v1APIVersionsServerAddressByClientCidrs v1APIVersionsVersions = + V1APIVersions + { v1APIVersionsApiVersion = Nothing + , v1APIVersionsKind = Nothing + , v1APIVersionsServerAddressByClientCidrs + , v1APIVersionsVersions + } + +-- ** V1AWSElasticBlockStoreVolumeSource +-- | V1AWSElasticBlockStoreVolumeSource +-- Represents a Persistent Disk resource in AWS. An AWS EBS disk must exist before mounting to a container. The disk must also be in the same AWS zone as the kubelet. An AWS EBS disk can only be mounted as read/write once. AWS EBS volumes support ownership management and SELinux relabeling. +data V1AWSElasticBlockStoreVolumeSource = V1AWSElasticBlockStoreVolumeSource + { v1AWSElasticBlockStoreVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore + , v1AWSElasticBlockStoreVolumeSourcePartition :: !(Maybe Int) -- ^ "partition" - partition is the partition in the volume that you want to mount. If omitted, the default is to mount by volume name. Examples: For volume /dev/sda1, you specify the partition as \"1\". Similarly, the volume partition for /dev/sda is \"0\" (or you can leave the property empty). + , v1AWSElasticBlockStoreVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly value true will force the readOnly setting in VolumeMounts. More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore + , v1AWSElasticBlockStoreVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID is unique ID of the persistent disk resource in AWS (Amazon EBS volume). More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AWSElasticBlockStoreVolumeSource +instance A.FromJSON V1AWSElasticBlockStoreVolumeSource where + parseJSON = A.withObject "V1AWSElasticBlockStoreVolumeSource" $ \o -> + V1AWSElasticBlockStoreVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "partition") + <*> (o .:? "readOnly") + <*> (o .: "volumeID") + +-- | ToJSON V1AWSElasticBlockStoreVolumeSource +instance A.ToJSON V1AWSElasticBlockStoreVolumeSource where + toJSON V1AWSElasticBlockStoreVolumeSource {..} = + _omitNulls + [ "fsType" .= v1AWSElasticBlockStoreVolumeSourceFsType + , "partition" .= v1AWSElasticBlockStoreVolumeSourcePartition + , "readOnly" .= v1AWSElasticBlockStoreVolumeSourceReadOnly + , "volumeID" .= v1AWSElasticBlockStoreVolumeSourceVolumeId + ] + + +-- | Construct a value of type 'V1AWSElasticBlockStoreVolumeSource' (by applying it's required fields, if any) +mkV1AWSElasticBlockStoreVolumeSource + :: Text -- ^ 'v1AWSElasticBlockStoreVolumeSourceVolumeId': volumeID is unique ID of the persistent disk resource in AWS (Amazon EBS volume). More info: https://kubernetes.io/docs/concepts/storage/volumes#awselasticblockstore + -> V1AWSElasticBlockStoreVolumeSource +mkV1AWSElasticBlockStoreVolumeSource v1AWSElasticBlockStoreVolumeSourceVolumeId = + V1AWSElasticBlockStoreVolumeSource + { v1AWSElasticBlockStoreVolumeSourceFsType = Nothing + , v1AWSElasticBlockStoreVolumeSourcePartition = Nothing + , v1AWSElasticBlockStoreVolumeSourceReadOnly = Nothing + , v1AWSElasticBlockStoreVolumeSourceVolumeId + } + +-- ** V1Affinity +-- | V1Affinity +-- Affinity is a group of affinity scheduling rules. +data V1Affinity = V1Affinity + { v1AffinityNodeAffinity :: !(Maybe V1NodeAffinity) -- ^ "nodeAffinity" + , v1AffinityPodAffinity :: !(Maybe V1PodAffinity) -- ^ "podAffinity" + , v1AffinityPodAntiAffinity :: !(Maybe V1PodAntiAffinity) -- ^ "podAntiAffinity" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Affinity +instance A.FromJSON V1Affinity where + parseJSON = A.withObject "V1Affinity" $ \o -> + V1Affinity + <$> (o .:? "nodeAffinity") + <*> (o .:? "podAffinity") + <*> (o .:? "podAntiAffinity") + +-- | ToJSON V1Affinity +instance A.ToJSON V1Affinity where + toJSON V1Affinity {..} = + _omitNulls + [ "nodeAffinity" .= v1AffinityNodeAffinity + , "podAffinity" .= v1AffinityPodAffinity + , "podAntiAffinity" .= v1AffinityPodAntiAffinity + ] + + +-- | Construct a value of type 'V1Affinity' (by applying it's required fields, if any) +mkV1Affinity + :: V1Affinity +mkV1Affinity = + V1Affinity + { v1AffinityNodeAffinity = Nothing + , v1AffinityPodAffinity = Nothing + , v1AffinityPodAntiAffinity = Nothing + } + +-- ** V1AggregationRule +-- | V1AggregationRule +-- AggregationRule describes how to locate ClusterRoles to aggregate into the ClusterRole +data V1AggregationRule = V1AggregationRule + { v1AggregationRuleClusterRoleSelectors :: !(Maybe [V1LabelSelector]) -- ^ "clusterRoleSelectors" - ClusterRoleSelectors holds a list of selectors which will be used to find ClusterRoles and create the rules. If any of the selectors match, then the ClusterRole's permissions will be added + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AggregationRule +instance A.FromJSON V1AggregationRule where + parseJSON = A.withObject "V1AggregationRule" $ \o -> + V1AggregationRule + <$> (o .:? "clusterRoleSelectors") + +-- | ToJSON V1AggregationRule +instance A.ToJSON V1AggregationRule where + toJSON V1AggregationRule {..} = + _omitNulls + [ "clusterRoleSelectors" .= v1AggregationRuleClusterRoleSelectors + ] + + +-- | Construct a value of type 'V1AggregationRule' (by applying it's required fields, if any) +mkV1AggregationRule + :: V1AggregationRule +mkV1AggregationRule = + V1AggregationRule + { v1AggregationRuleClusterRoleSelectors = Nothing + } + +-- ** V1AttachedVolume +-- | V1AttachedVolume +-- AttachedVolume describes a volume attached to a node +data V1AttachedVolume = V1AttachedVolume + { v1AttachedVolumeDevicePath :: !(Text) -- ^ /Required/ "devicePath" - DevicePath represents the device path where the volume should be available + , v1AttachedVolumeName :: !(Text) -- ^ /Required/ "name" - Name of the attached volume + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AttachedVolume +instance A.FromJSON V1AttachedVolume where + parseJSON = A.withObject "V1AttachedVolume" $ \o -> + V1AttachedVolume + <$> (o .: "devicePath") + <*> (o .: "name") + +-- | ToJSON V1AttachedVolume +instance A.ToJSON V1AttachedVolume where + toJSON V1AttachedVolume {..} = + _omitNulls + [ "devicePath" .= v1AttachedVolumeDevicePath + , "name" .= v1AttachedVolumeName + ] + + +-- | Construct a value of type 'V1AttachedVolume' (by applying it's required fields, if any) +mkV1AttachedVolume + :: Text -- ^ 'v1AttachedVolumeDevicePath': DevicePath represents the device path where the volume should be available + -> Text -- ^ 'v1AttachedVolumeName': Name of the attached volume + -> V1AttachedVolume +mkV1AttachedVolume v1AttachedVolumeDevicePath v1AttachedVolumeName = + V1AttachedVolume + { v1AttachedVolumeDevicePath + , v1AttachedVolumeName + } + +-- ** V1AzureDiskVolumeSource +-- | V1AzureDiskVolumeSource +-- AzureDisk represents an Azure Data Disk mount on the host and bind mount to the pod. +data V1AzureDiskVolumeSource = V1AzureDiskVolumeSource + { v1AzureDiskVolumeSourceCachingMode :: !(Maybe Text) -- ^ "cachingMode" - cachingMode is the Host Caching mode: None, Read Only, Read Write. + , v1AzureDiskVolumeSourceDiskName :: !(Text) -- ^ /Required/ "diskName" - diskName is the Name of the data disk in the blob storage + , v1AzureDiskVolumeSourceDiskUri :: !(Text) -- ^ /Required/ "diskURI" - diskURI is the URI of data disk in the blob storage + , v1AzureDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is Filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1AzureDiskVolumeSourceKind :: !(Maybe Text) -- ^ "kind" - kind expected values are Shared: multiple blob disks per storage account Dedicated: single blob disk per storage account Managed: azure managed data disk (only in managed availability set). defaults to shared + , v1AzureDiskVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AzureDiskVolumeSource +instance A.FromJSON V1AzureDiskVolumeSource where + parseJSON = A.withObject "V1AzureDiskVolumeSource" $ \o -> + V1AzureDiskVolumeSource + <$> (o .:? "cachingMode") + <*> (o .: "diskName") + <*> (o .: "diskURI") + <*> (o .:? "fsType") + <*> (o .:? "kind") + <*> (o .:? "readOnly") + +-- | ToJSON V1AzureDiskVolumeSource +instance A.ToJSON V1AzureDiskVolumeSource where + toJSON V1AzureDiskVolumeSource {..} = + _omitNulls + [ "cachingMode" .= v1AzureDiskVolumeSourceCachingMode + , "diskName" .= v1AzureDiskVolumeSourceDiskName + , "diskURI" .= v1AzureDiskVolumeSourceDiskUri + , "fsType" .= v1AzureDiskVolumeSourceFsType + , "kind" .= v1AzureDiskVolumeSourceKind + , "readOnly" .= v1AzureDiskVolumeSourceReadOnly + ] + + +-- | Construct a value of type 'V1AzureDiskVolumeSource' (by applying it's required fields, if any) +mkV1AzureDiskVolumeSource + :: Text -- ^ 'v1AzureDiskVolumeSourceDiskName': diskName is the Name of the data disk in the blob storage + -> Text -- ^ 'v1AzureDiskVolumeSourceDiskUri': diskURI is the URI of data disk in the blob storage + -> V1AzureDiskVolumeSource +mkV1AzureDiskVolumeSource v1AzureDiskVolumeSourceDiskName v1AzureDiskVolumeSourceDiskUri = + V1AzureDiskVolumeSource + { v1AzureDiskVolumeSourceCachingMode = Nothing + , v1AzureDiskVolumeSourceDiskName + , v1AzureDiskVolumeSourceDiskUri + , v1AzureDiskVolumeSourceFsType = Nothing + , v1AzureDiskVolumeSourceKind = Nothing + , v1AzureDiskVolumeSourceReadOnly = Nothing + } + +-- ** V1AzureFilePersistentVolumeSource +-- | V1AzureFilePersistentVolumeSource +-- AzureFile represents an Azure File Service mount on the host and bind mount to the pod. +data V1AzureFilePersistentVolumeSource = V1AzureFilePersistentVolumeSource + { v1AzureFilePersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1AzureFilePersistentVolumeSourceSecretName :: !(Text) -- ^ /Required/ "secretName" - secretName is the name of secret that contains Azure Storage Account Name and Key + , v1AzureFilePersistentVolumeSourceSecretNamespace :: !(Maybe Text) -- ^ "secretNamespace" - secretNamespace is the namespace of the secret that contains Azure Storage Account Name and Key default is the same as the Pod + , v1AzureFilePersistentVolumeSourceShareName :: !(Text) -- ^ /Required/ "shareName" - shareName is the azure Share Name + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AzureFilePersistentVolumeSource +instance A.FromJSON V1AzureFilePersistentVolumeSource where + parseJSON = A.withObject "V1AzureFilePersistentVolumeSource" $ \o -> + V1AzureFilePersistentVolumeSource + <$> (o .:? "readOnly") + <*> (o .: "secretName") + <*> (o .:? "secretNamespace") + <*> (o .: "shareName") + +-- | ToJSON V1AzureFilePersistentVolumeSource +instance A.ToJSON V1AzureFilePersistentVolumeSource where + toJSON V1AzureFilePersistentVolumeSource {..} = + _omitNulls + [ "readOnly" .= v1AzureFilePersistentVolumeSourceReadOnly + , "secretName" .= v1AzureFilePersistentVolumeSourceSecretName + , "secretNamespace" .= v1AzureFilePersistentVolumeSourceSecretNamespace + , "shareName" .= v1AzureFilePersistentVolumeSourceShareName + ] + + +-- | Construct a value of type 'V1AzureFilePersistentVolumeSource' (by applying it's required fields, if any) +mkV1AzureFilePersistentVolumeSource + :: Text -- ^ 'v1AzureFilePersistentVolumeSourceSecretName': secretName is the name of secret that contains Azure Storage Account Name and Key + -> Text -- ^ 'v1AzureFilePersistentVolumeSourceShareName': shareName is the azure Share Name + -> V1AzureFilePersistentVolumeSource +mkV1AzureFilePersistentVolumeSource v1AzureFilePersistentVolumeSourceSecretName v1AzureFilePersistentVolumeSourceShareName = + V1AzureFilePersistentVolumeSource + { v1AzureFilePersistentVolumeSourceReadOnly = Nothing + , v1AzureFilePersistentVolumeSourceSecretName + , v1AzureFilePersistentVolumeSourceSecretNamespace = Nothing + , v1AzureFilePersistentVolumeSourceShareName + } + +-- ** V1AzureFileVolumeSource +-- | V1AzureFileVolumeSource +-- AzureFile represents an Azure File Service mount on the host and bind mount to the pod. +data V1AzureFileVolumeSource = V1AzureFileVolumeSource + { v1AzureFileVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1AzureFileVolumeSourceSecretName :: !(Text) -- ^ /Required/ "secretName" - secretName is the name of secret that contains Azure Storage Account Name and Key + , v1AzureFileVolumeSourceShareName :: !(Text) -- ^ /Required/ "shareName" - shareName is the azure share Name + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1AzureFileVolumeSource +instance A.FromJSON V1AzureFileVolumeSource where + parseJSON = A.withObject "V1AzureFileVolumeSource" $ \o -> + V1AzureFileVolumeSource + <$> (o .:? "readOnly") + <*> (o .: "secretName") + <*> (o .: "shareName") + +-- | ToJSON V1AzureFileVolumeSource +instance A.ToJSON V1AzureFileVolumeSource where + toJSON V1AzureFileVolumeSource {..} = + _omitNulls + [ "readOnly" .= v1AzureFileVolumeSourceReadOnly + , "secretName" .= v1AzureFileVolumeSourceSecretName + , "shareName" .= v1AzureFileVolumeSourceShareName + ] + + +-- | Construct a value of type 'V1AzureFileVolumeSource' (by applying it's required fields, if any) +mkV1AzureFileVolumeSource + :: Text -- ^ 'v1AzureFileVolumeSourceSecretName': secretName is the name of secret that contains Azure Storage Account Name and Key + -> Text -- ^ 'v1AzureFileVolumeSourceShareName': shareName is the azure share Name + -> V1AzureFileVolumeSource +mkV1AzureFileVolumeSource v1AzureFileVolumeSourceSecretName v1AzureFileVolumeSourceShareName = + V1AzureFileVolumeSource + { v1AzureFileVolumeSourceReadOnly = Nothing + , v1AzureFileVolumeSourceSecretName + , v1AzureFileVolumeSourceShareName + } + +-- ** V1Binding +-- | V1Binding +-- Binding ties one object to another; for example, a pod is bound to a node by a scheduler. Deprecated in 1.7, please use the bindings subresource of pods instead. +data V1Binding = V1Binding + { v1BindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1BindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1BindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1BindingTarget :: !(V1ObjectReference) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Binding +instance A.FromJSON V1Binding where + parseJSON = A.withObject "V1Binding" $ \o -> + V1Binding + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "target") + +-- | ToJSON V1Binding +instance A.ToJSON V1Binding where + toJSON V1Binding {..} = + _omitNulls + [ "apiVersion" .= v1BindingApiVersion + , "kind" .= v1BindingKind + , "metadata" .= v1BindingMetadata + , "target" .= v1BindingTarget + ] + + +-- | Construct a value of type 'V1Binding' (by applying it's required fields, if any) +mkV1Binding + :: V1ObjectReference -- ^ 'v1BindingTarget' + -> V1Binding +mkV1Binding v1BindingTarget = + V1Binding + { v1BindingApiVersion = Nothing + , v1BindingKind = Nothing + , v1BindingMetadata = Nothing + , v1BindingTarget + } + +-- ** V1BoundObjectReference +-- | V1BoundObjectReference +-- BoundObjectReference is a reference to an object that a token is bound to. +data V1BoundObjectReference = V1BoundObjectReference + { v1BoundObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent. + , v1BoundObjectReferenceKind :: !(Maybe Text) -- ^ "kind" - Kind of the referent. Valid kinds are 'Pod' and 'Secret'. + , v1BoundObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. + , v1BoundObjectReferenceUid :: !(Maybe Text) -- ^ "uid" - UID of the referent. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1BoundObjectReference +instance A.FromJSON V1BoundObjectReference where + parseJSON = A.withObject "V1BoundObjectReference" $ \o -> + V1BoundObjectReference + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "name") + <*> (o .:? "uid") + +-- | ToJSON V1BoundObjectReference +instance A.ToJSON V1BoundObjectReference where + toJSON V1BoundObjectReference {..} = + _omitNulls + [ "apiVersion" .= v1BoundObjectReferenceApiVersion + , "kind" .= v1BoundObjectReferenceKind + , "name" .= v1BoundObjectReferenceName + , "uid" .= v1BoundObjectReferenceUid + ] + + +-- | Construct a value of type 'V1BoundObjectReference' (by applying it's required fields, if any) +mkV1BoundObjectReference + :: V1BoundObjectReference +mkV1BoundObjectReference = + V1BoundObjectReference + { v1BoundObjectReferenceApiVersion = Nothing + , v1BoundObjectReferenceKind = Nothing + , v1BoundObjectReferenceName = Nothing + , v1BoundObjectReferenceUid = Nothing + } + +-- ** V1CSIDriver +-- | V1CSIDriver +-- CSIDriver captures information about a Container Storage Interface (CSI) volume driver deployed on the cluster. Kubernetes attach detach controller uses this object to determine whether attach is required. Kubelet uses this object to determine whether pod information needs to be passed on mount. CSIDriver objects are non-namespaced. +data V1CSIDriver = V1CSIDriver + { v1CSIDriverApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSIDriverKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSIDriverMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CSIDriverSpec :: !(V1CSIDriverSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIDriver +instance A.FromJSON V1CSIDriver where + parseJSON = A.withObject "V1CSIDriver" $ \o -> + V1CSIDriver + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1CSIDriver +instance A.ToJSON V1CSIDriver where + toJSON V1CSIDriver {..} = + _omitNulls + [ "apiVersion" .= v1CSIDriverApiVersion + , "kind" .= v1CSIDriverKind + , "metadata" .= v1CSIDriverMetadata + , "spec" .= v1CSIDriverSpec + ] + + +-- | Construct a value of type 'V1CSIDriver' (by applying it's required fields, if any) +mkV1CSIDriver + :: V1CSIDriverSpec -- ^ 'v1CSIDriverSpec' + -> V1CSIDriver +mkV1CSIDriver v1CSIDriverSpec = + V1CSIDriver + { v1CSIDriverApiVersion = Nothing + , v1CSIDriverKind = Nothing + , v1CSIDriverMetadata = Nothing + , v1CSIDriverSpec + } + +-- ** V1CSIDriverList +-- | V1CSIDriverList +-- CSIDriverList is a collection of CSIDriver objects. +data V1CSIDriverList = V1CSIDriverList + { v1CSIDriverListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSIDriverListItems :: !([V1CSIDriver]) -- ^ /Required/ "items" - items is the list of CSIDriver + , v1CSIDriverListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSIDriverListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIDriverList +instance A.FromJSON V1CSIDriverList where + parseJSON = A.withObject "V1CSIDriverList" $ \o -> + V1CSIDriverList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CSIDriverList +instance A.ToJSON V1CSIDriverList where + toJSON V1CSIDriverList {..} = + _omitNulls + [ "apiVersion" .= v1CSIDriverListApiVersion + , "items" .= v1CSIDriverListItems + , "kind" .= v1CSIDriverListKind + , "metadata" .= v1CSIDriverListMetadata + ] + + +-- | Construct a value of type 'V1CSIDriverList' (by applying it's required fields, if any) +mkV1CSIDriverList + :: [V1CSIDriver] -- ^ 'v1CSIDriverListItems': items is the list of CSIDriver + -> V1CSIDriverList +mkV1CSIDriverList v1CSIDriverListItems = + V1CSIDriverList + { v1CSIDriverListApiVersion = Nothing + , v1CSIDriverListItems + , v1CSIDriverListKind = Nothing + , v1CSIDriverListMetadata = Nothing + } + +-- ** V1CSIDriverSpec +-- | V1CSIDriverSpec +-- CSIDriverSpec is the specification of a CSIDriver. +data V1CSIDriverSpec = V1CSIDriverSpec + { v1CSIDriverSpecAttachRequired :: !(Maybe Bool) -- ^ "attachRequired" - attachRequired indicates this CSI volume driver requires an attach operation (because it implements the CSI ControllerPublishVolume() method), and that the Kubernetes attach detach controller should call the attach volume interface which checks the volumeattachment status and waits until the volume is attached before proceeding to mounting. The CSI external-attacher coordinates with CSI volume driver and updates the volumeattachment status when the attach operation is complete. If the CSIDriverRegistry feature gate is enabled and the value is specified to false, the attach operation will be skipped. Otherwise the attach operation will be called. This field is immutable. + , v1CSIDriverSpecFsGroupPolicy :: !(Maybe Text) -- ^ "fsGroupPolicy" - fsGroupPolicy defines if the underlying volume supports changing ownership and permission of the volume before being mounted. Refer to the specific FSGroupPolicy values for additional details. This field is immutable. Defaults to ReadWriteOnceWithFSType, which will examine each volume to determine if Kubernetes should modify ownership and permissions of the volume. With the default policy the defined fsGroup will only be applied if a fstype is defined and the volume's access mode contains ReadWriteOnce. + , v1CSIDriverSpecPodInfoOnMount :: !(Maybe Bool) -- ^ "podInfoOnMount" - podInfoOnMount indicates this CSI volume driver requires additional pod information (like podName, podUID, etc.) during mount operations, if set to true. If set to false, pod information will not be passed on mount. Default is false. The CSI driver specifies podInfoOnMount as part of driver deployment. If true, Kubelet will pass pod information as VolumeContext in the CSI NodePublishVolume() calls. The CSI driver is responsible for parsing and validating the information passed in as VolumeContext. The following VolumeConext will be passed if podInfoOnMount is set to true. This list might grow, but the prefix will be used. \"csi.storage.k8s.io/pod.name\": pod.Name \"csi.storage.k8s.io/pod.namespace\": pod.Namespace \"csi.storage.k8s.io/pod.uid\": string(pod.UID) \"csi.storage.k8s.io/ephemeral\": \"true\" if the volume is an ephemeral inline volume defined by a CSIVolumeSource, otherwise \"false\" \"csi.storage.k8s.io/ephemeral\" is a new feature in Kubernetes 1.16. It is only required for drivers which support both the \"Persistent\" and \"Ephemeral\" VolumeLifecycleMode. Other drivers can leave pod info disabled and/or ignore this field. As Kubernetes 1.15 doesn't support this field, drivers can only support one mode when deployed on such a cluster and the deployment determines which mode that is, for example via a command line parameter of the driver. This field is immutable. + , v1CSIDriverSpecRequiresRepublish :: !(Maybe Bool) -- ^ "requiresRepublish" - requiresRepublish indicates the CSI driver wants `NodePublishVolume` being periodically called to reflect any possible change in the mounted volume. This field defaults to false. Note: After a successful initial NodePublishVolume call, subsequent calls to NodePublishVolume should only update the contents of the volume. New mount points will not be seen by a running container. + , v1CSIDriverSpecSeLinuxMount :: !(Maybe Bool) -- ^ "seLinuxMount" - seLinuxMount specifies if the CSI driver supports \"-o context\" mount option. When \"true\", the CSI driver must ensure that all volumes provided by this CSI driver can be mounted separately with different `-o context` options. This is typical for storage backends that provide volumes as filesystems on block devices or as independent shared volumes. Kubernetes will call NodeStage / NodePublish with \"-o context=xyz\" mount option when mounting a ReadWriteOncePod volume used in Pod that has explicitly set SELinux context. In the future, it may be expanded to other volume AccessModes. In any case, Kubernetes will ensure that the volume is mounted only with a single SELinux context. When \"false\", Kubernetes won't pass any special SELinux mount options to the driver. This is typical for volumes that represent subdirectories of a bigger shared filesystem. Default is \"false\". + , v1CSIDriverSpecStorageCapacity :: !(Maybe Bool) -- ^ "storageCapacity" - storageCapacity indicates that the CSI volume driver wants pod scheduling to consider the storage capacity that the driver deployment will report by creating CSIStorageCapacity objects with capacity information, if set to true. The check can be enabled immediately when deploying a driver. In that case, provisioning new volumes with late binding will pause until the driver deployment has published some suitable CSIStorageCapacity object. Alternatively, the driver can be deployed with the field unset or false and it can be flipped later when storage capacity information has been published. This field was immutable in Kubernetes <= 1.22 and now is mutable. + , v1CSIDriverSpecTokenRequests :: !(Maybe [StorageV1TokenRequest]) -- ^ "tokenRequests" - tokenRequests indicates the CSI driver needs pods' service account tokens it is mounting volume for to do necessary authentication. Kubelet will pass the tokens in VolumeContext in the CSI NodePublishVolume calls. The CSI driver should parse and validate the following VolumeContext: \"csi.storage.k8s.io/serviceAccount.tokens\": { \"<audience>\": { \"token\": <token>, \"expirationTimestamp\": <expiration timestamp in RFC3339>, }, ... } Note: Audience in each TokenRequest should be different and at most one token is empty string. To receive a new token after expiry, RequiresRepublish can be used to trigger NodePublishVolume periodically. + , v1CSIDriverSpecVolumeLifecycleModes :: !(Maybe [Text]) -- ^ "volumeLifecycleModes" - volumeLifecycleModes defines what kind of volumes this CSI volume driver supports. The default if the list is empty is \"Persistent\", which is the usage defined by the CSI specification and implemented in Kubernetes via the usual PV/PVC mechanism. The other mode is \"Ephemeral\". In this mode, volumes are defined inline inside the pod spec with CSIVolumeSource and their lifecycle is tied to the lifecycle of that pod. A driver has to be aware of this because it is only going to get a NodePublishVolume call for such a volume. For more information about implementing this mode, see https://kubernetes-csi.github.io/docs/ephemeral-local-volumes.html A driver can support one or more of these modes and more modes may be added in the future. This field is beta. This field is immutable. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIDriverSpec +instance A.FromJSON V1CSIDriverSpec where + parseJSON = A.withObject "V1CSIDriverSpec" $ \o -> + V1CSIDriverSpec + <$> (o .:? "attachRequired") + <*> (o .:? "fsGroupPolicy") + <*> (o .:? "podInfoOnMount") + <*> (o .:? "requiresRepublish") + <*> (o .:? "seLinuxMount") + <*> (o .:? "storageCapacity") + <*> (o .:? "tokenRequests") + <*> (o .:? "volumeLifecycleModes") + +-- | ToJSON V1CSIDriverSpec +instance A.ToJSON V1CSIDriverSpec where + toJSON V1CSIDriverSpec {..} = + _omitNulls + [ "attachRequired" .= v1CSIDriverSpecAttachRequired + , "fsGroupPolicy" .= v1CSIDriverSpecFsGroupPolicy + , "podInfoOnMount" .= v1CSIDriverSpecPodInfoOnMount + , "requiresRepublish" .= v1CSIDriverSpecRequiresRepublish + , "seLinuxMount" .= v1CSIDriverSpecSeLinuxMount + , "storageCapacity" .= v1CSIDriverSpecStorageCapacity + , "tokenRequests" .= v1CSIDriverSpecTokenRequests + , "volumeLifecycleModes" .= v1CSIDriverSpecVolumeLifecycleModes + ] + + +-- | Construct a value of type 'V1CSIDriverSpec' (by applying it's required fields, if any) +mkV1CSIDriverSpec + :: V1CSIDriverSpec +mkV1CSIDriverSpec = + V1CSIDriverSpec + { v1CSIDriverSpecAttachRequired = Nothing + , v1CSIDriverSpecFsGroupPolicy = Nothing + , v1CSIDriverSpecPodInfoOnMount = Nothing + , v1CSIDriverSpecRequiresRepublish = Nothing + , v1CSIDriverSpecSeLinuxMount = Nothing + , v1CSIDriverSpecStorageCapacity = Nothing + , v1CSIDriverSpecTokenRequests = Nothing + , v1CSIDriverSpecVolumeLifecycleModes = Nothing + } + +-- ** V1CSINode +-- | V1CSINode +-- CSINode holds information about all CSI drivers installed on a node. CSI drivers do not need to create the CSINode object directly. As long as they use the node-driver-registrar sidecar container, the kubelet will automatically populate the CSINode object for the CSI driver as part of kubelet plugin registration. CSINode has the same name as a node. If the object is missing, it means either there are no CSI Drivers available on the node, or the Kubelet version is low enough that it doesn't create this object. CSINode has an OwnerReference that points to the corresponding node object. +data V1CSINode = V1CSINode + { v1CSINodeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSINodeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSINodeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CSINodeSpec :: !(V1CSINodeSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSINode +instance A.FromJSON V1CSINode where + parseJSON = A.withObject "V1CSINode" $ \o -> + V1CSINode + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1CSINode +instance A.ToJSON V1CSINode where + toJSON V1CSINode {..} = + _omitNulls + [ "apiVersion" .= v1CSINodeApiVersion + , "kind" .= v1CSINodeKind + , "metadata" .= v1CSINodeMetadata + , "spec" .= v1CSINodeSpec + ] + + +-- | Construct a value of type 'V1CSINode' (by applying it's required fields, if any) +mkV1CSINode + :: V1CSINodeSpec -- ^ 'v1CSINodeSpec' + -> V1CSINode +mkV1CSINode v1CSINodeSpec = + V1CSINode + { v1CSINodeApiVersion = Nothing + , v1CSINodeKind = Nothing + , v1CSINodeMetadata = Nothing + , v1CSINodeSpec + } + +-- ** V1CSINodeDriver +-- | V1CSINodeDriver +-- CSINodeDriver holds information about the specification of one CSI driver installed on a node +data V1CSINodeDriver = V1CSINodeDriver + { v1CSINodeDriverAllocatable :: !(Maybe V1VolumeNodeResources) -- ^ "allocatable" + , v1CSINodeDriverName :: !(Text) -- ^ /Required/ "name" - name represents the name of the CSI driver that this object refers to. This MUST be the same name returned by the CSI GetPluginName() call for that driver. + , v1CSINodeDriverNodeId :: !(Text) -- ^ /Required/ "nodeID" - nodeID of the node from the driver point of view. This field enables Kubernetes to communicate with storage systems that do not share the same nomenclature for nodes. For example, Kubernetes may refer to a given node as \"node1\", but the storage system may refer to the same node as \"nodeA\". When Kubernetes issues a command to the storage system to attach a volume to a specific node, it can use this field to refer to the node name using the ID that the storage system will understand, e.g. \"nodeA\" instead of \"node1\". This field is required. + , v1CSINodeDriverTopologyKeys :: !(Maybe [Text]) -- ^ "topologyKeys" - topologyKeys is the list of keys supported by the driver. When a driver is initialized on a cluster, it provides a set of topology keys that it understands (e.g. \"company.com/zone\", \"company.com/region\"). When a driver is initialized on a node, it provides the same topology keys along with values. Kubelet will expose these topology keys as labels on its own node object. When Kubernetes does topology aware provisioning, it can use this list to determine which labels it should retrieve from the node object and pass back to the driver. It is possible for different nodes to use different topology keys. This can be empty if driver does not support topology. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSINodeDriver +instance A.FromJSON V1CSINodeDriver where + parseJSON = A.withObject "V1CSINodeDriver" $ \o -> + V1CSINodeDriver + <$> (o .:? "allocatable") + <*> (o .: "name") + <*> (o .: "nodeID") + <*> (o .:? "topologyKeys") + +-- | ToJSON V1CSINodeDriver +instance A.ToJSON V1CSINodeDriver where + toJSON V1CSINodeDriver {..} = + _omitNulls + [ "allocatable" .= v1CSINodeDriverAllocatable + , "name" .= v1CSINodeDriverName + , "nodeID" .= v1CSINodeDriverNodeId + , "topologyKeys" .= v1CSINodeDriverTopologyKeys + ] + + +-- | Construct a value of type 'V1CSINodeDriver' (by applying it's required fields, if any) +mkV1CSINodeDriver + :: Text -- ^ 'v1CSINodeDriverName': name represents the name of the CSI driver that this object refers to. This MUST be the same name returned by the CSI GetPluginName() call for that driver. + -> Text -- ^ 'v1CSINodeDriverNodeId': nodeID of the node from the driver point of view. This field enables Kubernetes to communicate with storage systems that do not share the same nomenclature for nodes. For example, Kubernetes may refer to a given node as \"node1\", but the storage system may refer to the same node as \"nodeA\". When Kubernetes issues a command to the storage system to attach a volume to a specific node, it can use this field to refer to the node name using the ID that the storage system will understand, e.g. \"nodeA\" instead of \"node1\". This field is required. + -> V1CSINodeDriver +mkV1CSINodeDriver v1CSINodeDriverName v1CSINodeDriverNodeId = + V1CSINodeDriver + { v1CSINodeDriverAllocatable = Nothing + , v1CSINodeDriverName + , v1CSINodeDriverNodeId + , v1CSINodeDriverTopologyKeys = Nothing + } + +-- ** V1CSINodeList +-- | V1CSINodeList +-- CSINodeList is a collection of CSINode objects. +data V1CSINodeList = V1CSINodeList + { v1CSINodeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSINodeListItems :: !([V1CSINode]) -- ^ /Required/ "items" - items is the list of CSINode + , v1CSINodeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSINodeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSINodeList +instance A.FromJSON V1CSINodeList where + parseJSON = A.withObject "V1CSINodeList" $ \o -> + V1CSINodeList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CSINodeList +instance A.ToJSON V1CSINodeList where + toJSON V1CSINodeList {..} = + _omitNulls + [ "apiVersion" .= v1CSINodeListApiVersion + , "items" .= v1CSINodeListItems + , "kind" .= v1CSINodeListKind + , "metadata" .= v1CSINodeListMetadata + ] + + +-- | Construct a value of type 'V1CSINodeList' (by applying it's required fields, if any) +mkV1CSINodeList + :: [V1CSINode] -- ^ 'v1CSINodeListItems': items is the list of CSINode + -> V1CSINodeList +mkV1CSINodeList v1CSINodeListItems = + V1CSINodeList + { v1CSINodeListApiVersion = Nothing + , v1CSINodeListItems + , v1CSINodeListKind = Nothing + , v1CSINodeListMetadata = Nothing + } + +-- ** V1CSINodeSpec +-- | V1CSINodeSpec +-- CSINodeSpec holds information about the specification of all CSI drivers installed on a node +data V1CSINodeSpec = V1CSINodeSpec + { v1CSINodeSpecDrivers :: !([V1CSINodeDriver]) -- ^ /Required/ "drivers" - drivers is a list of information of all CSI Drivers existing on a node. If all drivers in the list are uninstalled, this can become empty. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSINodeSpec +instance A.FromJSON V1CSINodeSpec where + parseJSON = A.withObject "V1CSINodeSpec" $ \o -> + V1CSINodeSpec + <$> (o .: "drivers") + +-- | ToJSON V1CSINodeSpec +instance A.ToJSON V1CSINodeSpec where + toJSON V1CSINodeSpec {..} = + _omitNulls + [ "drivers" .= v1CSINodeSpecDrivers + ] + + +-- | Construct a value of type 'V1CSINodeSpec' (by applying it's required fields, if any) +mkV1CSINodeSpec + :: [V1CSINodeDriver] -- ^ 'v1CSINodeSpecDrivers': drivers is a list of information of all CSI Drivers existing on a node. If all drivers in the list are uninstalled, this can become empty. + -> V1CSINodeSpec +mkV1CSINodeSpec v1CSINodeSpecDrivers = + V1CSINodeSpec + { v1CSINodeSpecDrivers + } + +-- ** V1CSIPersistentVolumeSource +-- | V1CSIPersistentVolumeSource +-- Represents storage that is managed by an external CSI volume driver (Beta feature) +data V1CSIPersistentVolumeSource = V1CSIPersistentVolumeSource + { v1CSIPersistentVolumeSourceControllerExpandSecretRef :: !(Maybe V1SecretReference) -- ^ "controllerExpandSecretRef" + , v1CSIPersistentVolumeSourceControllerPublishSecretRef :: !(Maybe V1SecretReference) -- ^ "controllerPublishSecretRef" + , v1CSIPersistentVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. Required. + , v1CSIPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". + , v1CSIPersistentVolumeSourceNodeExpandSecretRef :: !(Maybe V1SecretReference) -- ^ "nodeExpandSecretRef" + , v1CSIPersistentVolumeSourceNodePublishSecretRef :: !(Maybe V1SecretReference) -- ^ "nodePublishSecretRef" + , v1CSIPersistentVolumeSourceNodeStageSecretRef :: !(Maybe V1SecretReference) -- ^ "nodeStageSecretRef" + , v1CSIPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly value to pass to ControllerPublishVolumeRequest. Defaults to false (read/write). + , v1CSIPersistentVolumeSourceVolumeAttributes :: !(Maybe (Map.Map String Text)) -- ^ "volumeAttributes" - volumeAttributes of the volume to publish. + , v1CSIPersistentVolumeSourceVolumeHandle :: !(Text) -- ^ /Required/ "volumeHandle" - volumeHandle is the unique volume name returned by the CSI volume plugin’s CreateVolume to refer to the volume on all subsequent calls. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIPersistentVolumeSource +instance A.FromJSON V1CSIPersistentVolumeSource where + parseJSON = A.withObject "V1CSIPersistentVolumeSource" $ \o -> + V1CSIPersistentVolumeSource + <$> (o .:? "controllerExpandSecretRef") + <*> (o .:? "controllerPublishSecretRef") + <*> (o .: "driver") + <*> (o .:? "fsType") + <*> (o .:? "nodeExpandSecretRef") + <*> (o .:? "nodePublishSecretRef") + <*> (o .:? "nodeStageSecretRef") + <*> (o .:? "readOnly") + <*> (o .:? "volumeAttributes") + <*> (o .: "volumeHandle") + +-- | ToJSON V1CSIPersistentVolumeSource +instance A.ToJSON V1CSIPersistentVolumeSource where + toJSON V1CSIPersistentVolumeSource {..} = + _omitNulls + [ "controllerExpandSecretRef" .= v1CSIPersistentVolumeSourceControllerExpandSecretRef + , "controllerPublishSecretRef" .= v1CSIPersistentVolumeSourceControllerPublishSecretRef + , "driver" .= v1CSIPersistentVolumeSourceDriver + , "fsType" .= v1CSIPersistentVolumeSourceFsType + , "nodeExpandSecretRef" .= v1CSIPersistentVolumeSourceNodeExpandSecretRef + , "nodePublishSecretRef" .= v1CSIPersistentVolumeSourceNodePublishSecretRef + , "nodeStageSecretRef" .= v1CSIPersistentVolumeSourceNodeStageSecretRef + , "readOnly" .= v1CSIPersistentVolumeSourceReadOnly + , "volumeAttributes" .= v1CSIPersistentVolumeSourceVolumeAttributes + , "volumeHandle" .= v1CSIPersistentVolumeSourceVolumeHandle + ] + + +-- | Construct a value of type 'V1CSIPersistentVolumeSource' (by applying it's required fields, if any) +mkV1CSIPersistentVolumeSource + :: Text -- ^ 'v1CSIPersistentVolumeSourceDriver': driver is the name of the driver to use for this volume. Required. + -> Text -- ^ 'v1CSIPersistentVolumeSourceVolumeHandle': volumeHandle is the unique volume name returned by the CSI volume plugin’s CreateVolume to refer to the volume on all subsequent calls. Required. + -> V1CSIPersistentVolumeSource +mkV1CSIPersistentVolumeSource v1CSIPersistentVolumeSourceDriver v1CSIPersistentVolumeSourceVolumeHandle = + V1CSIPersistentVolumeSource + { v1CSIPersistentVolumeSourceControllerExpandSecretRef = Nothing + , v1CSIPersistentVolumeSourceControllerPublishSecretRef = Nothing + , v1CSIPersistentVolumeSourceDriver + , v1CSIPersistentVolumeSourceFsType = Nothing + , v1CSIPersistentVolumeSourceNodeExpandSecretRef = Nothing + , v1CSIPersistentVolumeSourceNodePublishSecretRef = Nothing + , v1CSIPersistentVolumeSourceNodeStageSecretRef = Nothing + , v1CSIPersistentVolumeSourceReadOnly = Nothing + , v1CSIPersistentVolumeSourceVolumeAttributes = Nothing + , v1CSIPersistentVolumeSourceVolumeHandle + } + +-- ** V1CSIStorageCapacity +-- | V1CSIStorageCapacity +-- CSIStorageCapacity stores the result of one CSI GetCapacity call. For a given StorageClass, this describes the available capacity in a particular topology segment. This can be used when considering where to instantiate new PersistentVolumes. For example this can express things like: - StorageClass \"standard\" has \"1234 GiB\" available in \"topology.kubernetes.io/zone=us-east1\" - StorageClass \"localssd\" has \"10 GiB\" available in \"kubernetes.io/hostname=knode-abc123\" The following three cases all imply that no capacity is available for a certain combination: - no object exists with suitable topology and storage class name - such an object exists, but the capacity is unset - such an object exists, but the capacity is zero The producer of these objects can decide which approach is more suitable. They are consumed by the kube-scheduler when a CSI driver opts into capacity-aware scheduling with CSIDriverSpec.StorageCapacity. The scheduler compares the MaximumVolumeSize against the requested size of pending volumes to filter out unsuitable nodes. If MaximumVolumeSize is unset, it falls back to a comparison against the less precise Capacity. If that is also unset, the scheduler assumes that capacity is insufficient and tries some other node. +data V1CSIStorageCapacity = V1CSIStorageCapacity + { v1CSIStorageCapacityApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSIStorageCapacityCapacity :: !(Maybe Quantity) -- ^ "capacity" + , v1CSIStorageCapacityKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSIStorageCapacityMaximumVolumeSize :: !(Maybe Quantity) -- ^ "maximumVolumeSize" + , v1CSIStorageCapacityMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CSIStorageCapacityNodeTopology :: !(Maybe V1LabelSelector) -- ^ "nodeTopology" + , v1CSIStorageCapacityStorageClassName :: !(Text) -- ^ /Required/ "storageClassName" - storageClassName represents the name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIStorageCapacity +instance A.FromJSON V1CSIStorageCapacity where + parseJSON = A.withObject "V1CSIStorageCapacity" $ \o -> + V1CSIStorageCapacity + <$> (o .:? "apiVersion") + <*> (o .:? "capacity") + <*> (o .:? "kind") + <*> (o .:? "maximumVolumeSize") + <*> (o .:? "metadata") + <*> (o .:? "nodeTopology") + <*> (o .: "storageClassName") + +-- | ToJSON V1CSIStorageCapacity +instance A.ToJSON V1CSIStorageCapacity where + toJSON V1CSIStorageCapacity {..} = + _omitNulls + [ "apiVersion" .= v1CSIStorageCapacityApiVersion + , "capacity" .= v1CSIStorageCapacityCapacity + , "kind" .= v1CSIStorageCapacityKind + , "maximumVolumeSize" .= v1CSIStorageCapacityMaximumVolumeSize + , "metadata" .= v1CSIStorageCapacityMetadata + , "nodeTopology" .= v1CSIStorageCapacityNodeTopology + , "storageClassName" .= v1CSIStorageCapacityStorageClassName + ] + + +-- | Construct a value of type 'V1CSIStorageCapacity' (by applying it's required fields, if any) +mkV1CSIStorageCapacity + :: Text -- ^ 'v1CSIStorageCapacityStorageClassName': storageClassName represents the name of the StorageClass that the reported capacity applies to. It must meet the same requirements as the name of a StorageClass object (non-empty, DNS subdomain). If that object no longer exists, the CSIStorageCapacity object is obsolete and should be removed by its creator. This field is immutable. + -> V1CSIStorageCapacity +mkV1CSIStorageCapacity v1CSIStorageCapacityStorageClassName = + V1CSIStorageCapacity + { v1CSIStorageCapacityApiVersion = Nothing + , v1CSIStorageCapacityCapacity = Nothing + , v1CSIStorageCapacityKind = Nothing + , v1CSIStorageCapacityMaximumVolumeSize = Nothing + , v1CSIStorageCapacityMetadata = Nothing + , v1CSIStorageCapacityNodeTopology = Nothing + , v1CSIStorageCapacityStorageClassName + } + +-- ** V1CSIStorageCapacityList +-- | V1CSIStorageCapacityList +-- CSIStorageCapacityList is a collection of CSIStorageCapacity objects. +data V1CSIStorageCapacityList = V1CSIStorageCapacityList + { v1CSIStorageCapacityListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CSIStorageCapacityListItems :: !([V1CSIStorageCapacity]) -- ^ /Required/ "items" - items is the list of CSIStorageCapacity objects. + , v1CSIStorageCapacityListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CSIStorageCapacityListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIStorageCapacityList +instance A.FromJSON V1CSIStorageCapacityList where + parseJSON = A.withObject "V1CSIStorageCapacityList" $ \o -> + V1CSIStorageCapacityList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CSIStorageCapacityList +instance A.ToJSON V1CSIStorageCapacityList where + toJSON V1CSIStorageCapacityList {..} = + _omitNulls + [ "apiVersion" .= v1CSIStorageCapacityListApiVersion + , "items" .= v1CSIStorageCapacityListItems + , "kind" .= v1CSIStorageCapacityListKind + , "metadata" .= v1CSIStorageCapacityListMetadata + ] + + +-- | Construct a value of type 'V1CSIStorageCapacityList' (by applying it's required fields, if any) +mkV1CSIStorageCapacityList + :: [V1CSIStorageCapacity] -- ^ 'v1CSIStorageCapacityListItems': items is the list of CSIStorageCapacity objects. + -> V1CSIStorageCapacityList +mkV1CSIStorageCapacityList v1CSIStorageCapacityListItems = + V1CSIStorageCapacityList + { v1CSIStorageCapacityListApiVersion = Nothing + , v1CSIStorageCapacityListItems + , v1CSIStorageCapacityListKind = Nothing + , v1CSIStorageCapacityListMetadata = Nothing + } + +-- ** V1CSIVolumeSource +-- | V1CSIVolumeSource +-- Represents a source location of a volume to mount, managed by an external CSI driver +data V1CSIVolumeSource = V1CSIVolumeSource + { v1CSIVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the CSI driver that handles this volume. Consult with your admin for the correct name as registered in the cluster. + , v1CSIVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType to mount. Ex. \"ext4\", \"xfs\", \"ntfs\". If not provided, the empty value is passed to the associated CSI driver which will determine the default filesystem to apply. + , v1CSIVolumeSourceNodePublishSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "nodePublishSecretRef" + , v1CSIVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly specifies a read-only configuration for the volume. Defaults to false (read/write). + , v1CSIVolumeSourceVolumeAttributes :: !(Maybe (Map.Map String Text)) -- ^ "volumeAttributes" - volumeAttributes stores driver-specific properties that are passed to the CSI driver. Consult your driver's documentation for supported values. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CSIVolumeSource +instance A.FromJSON V1CSIVolumeSource where + parseJSON = A.withObject "V1CSIVolumeSource" $ \o -> + V1CSIVolumeSource + <$> (o .: "driver") + <*> (o .:? "fsType") + <*> (o .:? "nodePublishSecretRef") + <*> (o .:? "readOnly") + <*> (o .:? "volumeAttributes") + +-- | ToJSON V1CSIVolumeSource +instance A.ToJSON V1CSIVolumeSource where + toJSON V1CSIVolumeSource {..} = + _omitNulls + [ "driver" .= v1CSIVolumeSourceDriver + , "fsType" .= v1CSIVolumeSourceFsType + , "nodePublishSecretRef" .= v1CSIVolumeSourceNodePublishSecretRef + , "readOnly" .= v1CSIVolumeSourceReadOnly + , "volumeAttributes" .= v1CSIVolumeSourceVolumeAttributes + ] + + +-- | Construct a value of type 'V1CSIVolumeSource' (by applying it's required fields, if any) +mkV1CSIVolumeSource + :: Text -- ^ 'v1CSIVolumeSourceDriver': driver is the name of the CSI driver that handles this volume. Consult with your admin for the correct name as registered in the cluster. + -> V1CSIVolumeSource +mkV1CSIVolumeSource v1CSIVolumeSourceDriver = + V1CSIVolumeSource + { v1CSIVolumeSourceDriver + , v1CSIVolumeSourceFsType = Nothing + , v1CSIVolumeSourceNodePublishSecretRef = Nothing + , v1CSIVolumeSourceReadOnly = Nothing + , v1CSIVolumeSourceVolumeAttributes = Nothing + } + +-- ** V1Capabilities +-- | V1Capabilities +-- Adds and removes POSIX capabilities from running containers. +data V1Capabilities = V1Capabilities + { v1CapabilitiesAdd :: !(Maybe [Text]) -- ^ "add" - Added capabilities + , v1CapabilitiesDrop :: !(Maybe [Text]) -- ^ "drop" - Removed capabilities + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Capabilities +instance A.FromJSON V1Capabilities where + parseJSON = A.withObject "V1Capabilities" $ \o -> + V1Capabilities + <$> (o .:? "add") + <*> (o .:? "drop") + +-- | ToJSON V1Capabilities +instance A.ToJSON V1Capabilities where + toJSON V1Capabilities {..} = + _omitNulls + [ "add" .= v1CapabilitiesAdd + , "drop" .= v1CapabilitiesDrop + ] + + +-- | Construct a value of type 'V1Capabilities' (by applying it's required fields, if any) +mkV1Capabilities + :: V1Capabilities +mkV1Capabilities = + V1Capabilities + { v1CapabilitiesAdd = Nothing + , v1CapabilitiesDrop = Nothing + } + +-- ** V1CephFSPersistentVolumeSource +-- | V1CephFSPersistentVolumeSource +-- Represents a Ceph Filesystem mount that lasts the lifetime of a pod Cephfs volumes do not support ownership management or SELinux relabeling. +data V1CephFSPersistentVolumeSource = V1CephFSPersistentVolumeSource + { v1CephFSPersistentVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSPersistentVolumeSourcePath :: !(Maybe Text) -- ^ "path" - path is Optional: Used as the mounted root, rather than the full Ceph tree, default is / + , v1CephFSPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSPersistentVolumeSourceSecretFile :: !(Maybe Text) -- ^ "secretFile" - secretFile is Optional: SecretFile is the path to key ring for User, default is /etc/ceph/user.secret More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" + , v1CephFSPersistentVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is Optional: User is the rados user name, default is admin More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CephFSPersistentVolumeSource +instance A.FromJSON V1CephFSPersistentVolumeSource where + parseJSON = A.withObject "V1CephFSPersistentVolumeSource" $ \o -> + V1CephFSPersistentVolumeSource + <$> (o .: "monitors") + <*> (o .:? "path") + <*> (o .:? "readOnly") + <*> (o .:? "secretFile") + <*> (o .:? "secretRef") + <*> (o .:? "user") + +-- | ToJSON V1CephFSPersistentVolumeSource +instance A.ToJSON V1CephFSPersistentVolumeSource where + toJSON V1CephFSPersistentVolumeSource {..} = + _omitNulls + [ "monitors" .= v1CephFSPersistentVolumeSourceMonitors + , "path" .= v1CephFSPersistentVolumeSourcePath + , "readOnly" .= v1CephFSPersistentVolumeSourceReadOnly + , "secretFile" .= v1CephFSPersistentVolumeSourceSecretFile + , "secretRef" .= v1CephFSPersistentVolumeSourceSecretRef + , "user" .= v1CephFSPersistentVolumeSourceUser + ] + + +-- | Construct a value of type 'V1CephFSPersistentVolumeSource' (by applying it's required fields, if any) +mkV1CephFSPersistentVolumeSource + :: [Text] -- ^ 'v1CephFSPersistentVolumeSourceMonitors': monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + -> V1CephFSPersistentVolumeSource +mkV1CephFSPersistentVolumeSource v1CephFSPersistentVolumeSourceMonitors = + V1CephFSPersistentVolumeSource + { v1CephFSPersistentVolumeSourceMonitors + , v1CephFSPersistentVolumeSourcePath = Nothing + , v1CephFSPersistentVolumeSourceReadOnly = Nothing + , v1CephFSPersistentVolumeSourceSecretFile = Nothing + , v1CephFSPersistentVolumeSourceSecretRef = Nothing + , v1CephFSPersistentVolumeSourceUser = Nothing + } + +-- ** V1CephFSVolumeSource +-- | V1CephFSVolumeSource +-- Represents a Ceph Filesystem mount that lasts the lifetime of a pod Cephfs volumes do not support ownership management or SELinux relabeling. +data V1CephFSVolumeSource = V1CephFSVolumeSource + { v1CephFSVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSVolumeSourcePath :: !(Maybe Text) -- ^ "path" - path is Optional: Used as the mounted root, rather than the full Ceph tree, default is / + , v1CephFSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSVolumeSourceSecretFile :: !(Maybe Text) -- ^ "secretFile" - secretFile is Optional: SecretFile is the path to key ring for User, default is /etc/ceph/user.secret More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + , v1CephFSVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + , v1CephFSVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is optional: User is the rados user name, default is admin More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CephFSVolumeSource +instance A.FromJSON V1CephFSVolumeSource where + parseJSON = A.withObject "V1CephFSVolumeSource" $ \o -> + V1CephFSVolumeSource + <$> (o .: "monitors") + <*> (o .:? "path") + <*> (o .:? "readOnly") + <*> (o .:? "secretFile") + <*> (o .:? "secretRef") + <*> (o .:? "user") + +-- | ToJSON V1CephFSVolumeSource +instance A.ToJSON V1CephFSVolumeSource where + toJSON V1CephFSVolumeSource {..} = + _omitNulls + [ "monitors" .= v1CephFSVolumeSourceMonitors + , "path" .= v1CephFSVolumeSourcePath + , "readOnly" .= v1CephFSVolumeSourceReadOnly + , "secretFile" .= v1CephFSVolumeSourceSecretFile + , "secretRef" .= v1CephFSVolumeSourceSecretRef + , "user" .= v1CephFSVolumeSourceUser + ] + + +-- | Construct a value of type 'V1CephFSVolumeSource' (by applying it's required fields, if any) +mkV1CephFSVolumeSource + :: [Text] -- ^ 'v1CephFSVolumeSourceMonitors': monitors is Required: Monitors is a collection of Ceph monitors More info: https://examples.k8s.io/volumes/cephfs/README.md#how-to-use-it + -> V1CephFSVolumeSource +mkV1CephFSVolumeSource v1CephFSVolumeSourceMonitors = + V1CephFSVolumeSource + { v1CephFSVolumeSourceMonitors + , v1CephFSVolumeSourcePath = Nothing + , v1CephFSVolumeSourceReadOnly = Nothing + , v1CephFSVolumeSourceSecretFile = Nothing + , v1CephFSVolumeSourceSecretRef = Nothing + , v1CephFSVolumeSourceUser = Nothing + } + +-- ** V1CertificateSigningRequest +-- | V1CertificateSigningRequest +-- CertificateSigningRequest objects provide a mechanism to obtain x509 certificates by submitting a certificate signing request, and having it asynchronously approved and issued. Kubelets use this API to obtain: 1. client certificates to authenticate to kube-apiserver (with the \"kubernetes.io/kube-apiserver-client-kubelet\" signerName). 2. serving certificates for TLS endpoints kube-apiserver can connect to securely (with the \"kubernetes.io/kubelet-serving\" signerName). This API can be used to request client certificates to authenticate to kube-apiserver (with the \"kubernetes.io/kube-apiserver-client\" signerName), or to obtain certificates from custom non-Kubernetes signers. +data V1CertificateSigningRequest = V1CertificateSigningRequest + { v1CertificateSigningRequestApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CertificateSigningRequestKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CertificateSigningRequestMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CertificateSigningRequestSpec :: !(V1CertificateSigningRequestSpec) -- ^ /Required/ "spec" + , v1CertificateSigningRequestStatus :: !(Maybe V1CertificateSigningRequestStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CertificateSigningRequest +instance A.FromJSON V1CertificateSigningRequest where + parseJSON = A.withObject "V1CertificateSigningRequest" $ \o -> + V1CertificateSigningRequest + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1CertificateSigningRequest +instance A.ToJSON V1CertificateSigningRequest where + toJSON V1CertificateSigningRequest {..} = + _omitNulls + [ "apiVersion" .= v1CertificateSigningRequestApiVersion + , "kind" .= v1CertificateSigningRequestKind + , "metadata" .= v1CertificateSigningRequestMetadata + , "spec" .= v1CertificateSigningRequestSpec + , "status" .= v1CertificateSigningRequestStatus + ] + + +-- | Construct a value of type 'V1CertificateSigningRequest' (by applying it's required fields, if any) +mkV1CertificateSigningRequest + :: V1CertificateSigningRequestSpec -- ^ 'v1CertificateSigningRequestSpec' + -> V1CertificateSigningRequest +mkV1CertificateSigningRequest v1CertificateSigningRequestSpec = + V1CertificateSigningRequest + { v1CertificateSigningRequestApiVersion = Nothing + , v1CertificateSigningRequestKind = Nothing + , v1CertificateSigningRequestMetadata = Nothing + , v1CertificateSigningRequestSpec + , v1CertificateSigningRequestStatus = Nothing + } + +-- ** V1CertificateSigningRequestCondition +-- | V1CertificateSigningRequestCondition +-- CertificateSigningRequestCondition describes a condition of a CertificateSigningRequest object +data V1CertificateSigningRequestCondition = V1CertificateSigningRequestCondition + { v1CertificateSigningRequestConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the time the condition last transitioned from one status to another. If unset, when a new condition type is added or an existing condition's status is changed, the server defaults this to the current time. + , v1CertificateSigningRequestConditionLastUpdateTime :: !(Maybe DateTime) -- ^ "lastUpdateTime" - lastUpdateTime is the time of the last update to this condition + , v1CertificateSigningRequestConditionMessage :: !(Maybe Text) -- ^ "message" - message contains a human readable message with details about the request state + , v1CertificateSigningRequestConditionReason :: !(Maybe Text) -- ^ "reason" - reason indicates a brief reason for the request state + , v1CertificateSigningRequestConditionStatus :: !(Text) -- ^ /Required/ "status" - status of the condition, one of True, False, Unknown. Approved, Denied, and Failed conditions may not be \"False\" or \"Unknown\". + , v1CertificateSigningRequestConditionType :: !(Text) -- ^ /Required/ "type" - type of the condition. Known conditions are \"Approved\", \"Denied\", and \"Failed\". An \"Approved\" condition is added via the /approval subresource, indicating the request was approved and should be issued by the signer. A \"Denied\" condition is added via the /approval subresource, indicating the request was denied and should not be issued by the signer. A \"Failed\" condition is added via the /status subresource, indicating the signer failed to issue the certificate. Approved and Denied conditions are mutually exclusive. Approved, Denied, and Failed conditions cannot be removed once added. Only one condition of a given type is allowed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CertificateSigningRequestCondition +instance A.FromJSON V1CertificateSigningRequestCondition where + parseJSON = A.withObject "V1CertificateSigningRequestCondition" $ \o -> + V1CertificateSigningRequestCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "lastUpdateTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1CertificateSigningRequestCondition +instance A.ToJSON V1CertificateSigningRequestCondition where + toJSON V1CertificateSigningRequestCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1CertificateSigningRequestConditionLastTransitionTime + , "lastUpdateTime" .= v1CertificateSigningRequestConditionLastUpdateTime + , "message" .= v1CertificateSigningRequestConditionMessage + , "reason" .= v1CertificateSigningRequestConditionReason + , "status" .= v1CertificateSigningRequestConditionStatus + , "type" .= v1CertificateSigningRequestConditionType + ] + + +-- | Construct a value of type 'V1CertificateSigningRequestCondition' (by applying it's required fields, if any) +mkV1CertificateSigningRequestCondition + :: Text -- ^ 'v1CertificateSigningRequestConditionStatus': status of the condition, one of True, False, Unknown. Approved, Denied, and Failed conditions may not be \"False\" or \"Unknown\". + -> Text -- ^ 'v1CertificateSigningRequestConditionType': type of the condition. Known conditions are \"Approved\", \"Denied\", and \"Failed\". An \"Approved\" condition is added via the /approval subresource, indicating the request was approved and should be issued by the signer. A \"Denied\" condition is added via the /approval subresource, indicating the request was denied and should not be issued by the signer. A \"Failed\" condition is added via the /status subresource, indicating the signer failed to issue the certificate. Approved and Denied conditions are mutually exclusive. Approved, Denied, and Failed conditions cannot be removed once added. Only one condition of a given type is allowed. + -> V1CertificateSigningRequestCondition +mkV1CertificateSigningRequestCondition v1CertificateSigningRequestConditionStatus v1CertificateSigningRequestConditionType = + V1CertificateSigningRequestCondition + { v1CertificateSigningRequestConditionLastTransitionTime = Nothing + , v1CertificateSigningRequestConditionLastUpdateTime = Nothing + , v1CertificateSigningRequestConditionMessage = Nothing + , v1CertificateSigningRequestConditionReason = Nothing + , v1CertificateSigningRequestConditionStatus + , v1CertificateSigningRequestConditionType + } + +-- ** V1CertificateSigningRequestList +-- | V1CertificateSigningRequestList +-- CertificateSigningRequestList is a collection of CertificateSigningRequest objects +data V1CertificateSigningRequestList = V1CertificateSigningRequestList + { v1CertificateSigningRequestListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CertificateSigningRequestListItems :: !([V1CertificateSigningRequest]) -- ^ /Required/ "items" - items is a collection of CertificateSigningRequest objects + , v1CertificateSigningRequestListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CertificateSigningRequestListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CertificateSigningRequestList +instance A.FromJSON V1CertificateSigningRequestList where + parseJSON = A.withObject "V1CertificateSigningRequestList" $ \o -> + V1CertificateSigningRequestList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CertificateSigningRequestList +instance A.ToJSON V1CertificateSigningRequestList where + toJSON V1CertificateSigningRequestList {..} = + _omitNulls + [ "apiVersion" .= v1CertificateSigningRequestListApiVersion + , "items" .= v1CertificateSigningRequestListItems + , "kind" .= v1CertificateSigningRequestListKind + , "metadata" .= v1CertificateSigningRequestListMetadata + ] + + +-- | Construct a value of type 'V1CertificateSigningRequestList' (by applying it's required fields, if any) +mkV1CertificateSigningRequestList + :: [V1CertificateSigningRequest] -- ^ 'v1CertificateSigningRequestListItems': items is a collection of CertificateSigningRequest objects + -> V1CertificateSigningRequestList +mkV1CertificateSigningRequestList v1CertificateSigningRequestListItems = + V1CertificateSigningRequestList + { v1CertificateSigningRequestListApiVersion = Nothing + , v1CertificateSigningRequestListItems + , v1CertificateSigningRequestListKind = Nothing + , v1CertificateSigningRequestListMetadata = Nothing + } + +-- ** V1CertificateSigningRequestSpec +-- | V1CertificateSigningRequestSpec +-- CertificateSigningRequestSpec contains the certificate request. +data V1CertificateSigningRequestSpec = V1CertificateSigningRequestSpec + { v1CertificateSigningRequestSpecExpirationSeconds :: !(Maybe Int) -- ^ "expirationSeconds" - expirationSeconds is the requested duration of validity of the issued certificate. The certificate signer may issue a certificate with a different validity duration so a client must check the delta between the notBefore and and notAfter fields in the issued certificate to determine the actual duration. The v1.22+ in-tree implementations of the well-known Kubernetes signers will honor this field as long as the requested duration is not greater than the maximum duration they will honor per the --cluster-signing-duration CLI flag to the Kubernetes controller manager. Certificate signers may not honor this field for various reasons: 1. Old signer that is unaware of the field (such as the in-tree implementations prior to v1.22) 2. Signer whose configured maximum is shorter than the requested duration 3. Signer whose configured minimum is longer than the requested duration The minimum valid value for expirationSeconds is 600, i.e. 10 minutes. + , v1CertificateSigningRequestSpecExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - extra contains extra attributes of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. + , v1CertificateSigningRequestSpecGroups :: !(Maybe [Text]) -- ^ "groups" - groups contains group membership of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. + , v1CertificateSigningRequestSpecRequest :: !(ByteArray) -- ^ /Required/ "request" - request contains an x509 certificate signing request encoded in a \"CERTIFICATE REQUEST\" PEM block. When serialized as JSON or YAML, the data is additionally base64-encoded. + , v1CertificateSigningRequestSpecSignerName :: !(Text) -- ^ /Required/ "signerName" - signerName indicates the requested signer, and is a qualified name. List/watch requests for CertificateSigningRequests can filter on this field using a \"spec.signerName=NAME\" fieldSelector. Well-known Kubernetes signers are: 1. \"kubernetes.io/kube-apiserver-client\": issues client certificates that can be used to authenticate to kube-apiserver. Requests for this signer are never auto-approved by kube-controller-manager, can be issued by the \"csrsigning\" controller in kube-controller-manager. 2. \"kubernetes.io/kube-apiserver-client-kubelet\": issues client certificates that kubelets use to authenticate to kube-apiserver. Requests for this signer can be auto-approved by the \"csrapproving\" controller in kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. 3. \"kubernetes.io/kubelet-serving\" issues serving certificates that kubelets use to serve TLS endpoints, which kube-apiserver can connect to securely. Requests for this signer are never auto-approved by kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. More details are available at https://k8s.io/docs/reference/access-authn-authz/certificate-signing-requests/#kubernetes-signers Custom signerNames can also be specified. The signer defines: 1. Trust distribution: how trust (CA bundles) are distributed. 2. Permitted subjects: and behavior when a disallowed subject is requested. 3. Required, permitted, or forbidden x509 extensions in the request (including whether subjectAltNames are allowed, which types, restrictions on allowed values) and behavior when a disallowed extension is requested. 4. Required, permitted, or forbidden key usages / extended key usages. 5. Expiration/certificate lifetime: whether it is fixed by the signer, configurable by the admin. 6. Whether or not requests for CA certificates are allowed. + , v1CertificateSigningRequestSpecUid :: !(Maybe Text) -- ^ "uid" - uid contains the uid of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. + , v1CertificateSigningRequestSpecUsages :: !(Maybe [Text]) -- ^ "usages" - usages specifies a set of key usages requested in the issued certificate. Requests for TLS client certificates typically request: \"digital signature\", \"key encipherment\", \"client auth\". Requests for TLS serving certificates typically request: \"key encipherment\", \"digital signature\", \"server auth\". Valid values are: \"signing\", \"digital signature\", \"content commitment\", \"key encipherment\", \"key agreement\", \"data encipherment\", \"cert sign\", \"crl sign\", \"encipher only\", \"decipher only\", \"any\", \"server auth\", \"client auth\", \"code signing\", \"email protection\", \"s/mime\", \"ipsec end system\", \"ipsec tunnel\", \"ipsec user\", \"timestamping\", \"ocsp signing\", \"microsoft sgc\", \"netscape sgc\" + , v1CertificateSigningRequestSpecUsername :: !(Maybe Text) -- ^ "username" - username contains the name of the user that created the CertificateSigningRequest. Populated by the API server on creation and immutable. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CertificateSigningRequestSpec +instance A.FromJSON V1CertificateSigningRequestSpec where + parseJSON = A.withObject "V1CertificateSigningRequestSpec" $ \o -> + V1CertificateSigningRequestSpec + <$> (o .:? "expirationSeconds") + <*> (o .:? "extra") + <*> (o .:? "groups") + <*> (o .: "request") + <*> (o .: "signerName") + <*> (o .:? "uid") + <*> (o .:? "usages") + <*> (o .:? "username") + +-- | ToJSON V1CertificateSigningRequestSpec +instance A.ToJSON V1CertificateSigningRequestSpec where + toJSON V1CertificateSigningRequestSpec {..} = + _omitNulls + [ "expirationSeconds" .= v1CertificateSigningRequestSpecExpirationSeconds + , "extra" .= v1CertificateSigningRequestSpecExtra + , "groups" .= v1CertificateSigningRequestSpecGroups + , "request" .= v1CertificateSigningRequestSpecRequest + , "signerName" .= v1CertificateSigningRequestSpecSignerName + , "uid" .= v1CertificateSigningRequestSpecUid + , "usages" .= v1CertificateSigningRequestSpecUsages + , "username" .= v1CertificateSigningRequestSpecUsername + ] + + +-- | Construct a value of type 'V1CertificateSigningRequestSpec' (by applying it's required fields, if any) +mkV1CertificateSigningRequestSpec + :: ByteArray -- ^ 'v1CertificateSigningRequestSpecRequest': request contains an x509 certificate signing request encoded in a \"CERTIFICATE REQUEST\" PEM block. When serialized as JSON or YAML, the data is additionally base64-encoded. + -> Text -- ^ 'v1CertificateSigningRequestSpecSignerName': signerName indicates the requested signer, and is a qualified name. List/watch requests for CertificateSigningRequests can filter on this field using a \"spec.signerName=NAME\" fieldSelector. Well-known Kubernetes signers are: 1. \"kubernetes.io/kube-apiserver-client\": issues client certificates that can be used to authenticate to kube-apiserver. Requests for this signer are never auto-approved by kube-controller-manager, can be issued by the \"csrsigning\" controller in kube-controller-manager. 2. \"kubernetes.io/kube-apiserver-client-kubelet\": issues client certificates that kubelets use to authenticate to kube-apiserver. Requests for this signer can be auto-approved by the \"csrapproving\" controller in kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. 3. \"kubernetes.io/kubelet-serving\" issues serving certificates that kubelets use to serve TLS endpoints, which kube-apiserver can connect to securely. Requests for this signer are never auto-approved by kube-controller-manager, and can be issued by the \"csrsigning\" controller in kube-controller-manager. More details are available at https://k8s.io/docs/reference/access-authn-authz/certificate-signing-requests/#kubernetes-signers Custom signerNames can also be specified. The signer defines: 1. Trust distribution: how trust (CA bundles) are distributed. 2. Permitted subjects: and behavior when a disallowed subject is requested. 3. Required, permitted, or forbidden x509 extensions in the request (including whether subjectAltNames are allowed, which types, restrictions on allowed values) and behavior when a disallowed extension is requested. 4. Required, permitted, or forbidden key usages / extended key usages. 5. Expiration/certificate lifetime: whether it is fixed by the signer, configurable by the admin. 6. Whether or not requests for CA certificates are allowed. + -> V1CertificateSigningRequestSpec +mkV1CertificateSigningRequestSpec v1CertificateSigningRequestSpecRequest v1CertificateSigningRequestSpecSignerName = + V1CertificateSigningRequestSpec + { v1CertificateSigningRequestSpecExpirationSeconds = Nothing + , v1CertificateSigningRequestSpecExtra = Nothing + , v1CertificateSigningRequestSpecGroups = Nothing + , v1CertificateSigningRequestSpecRequest + , v1CertificateSigningRequestSpecSignerName + , v1CertificateSigningRequestSpecUid = Nothing + , v1CertificateSigningRequestSpecUsages = Nothing + , v1CertificateSigningRequestSpecUsername = Nothing + } + +-- ** V1CertificateSigningRequestStatus +-- | V1CertificateSigningRequestStatus +-- CertificateSigningRequestStatus contains conditions used to indicate approved/denied/failed status of the request, and the issued certificate. +data V1CertificateSigningRequestStatus = V1CertificateSigningRequestStatus + { v1CertificateSigningRequestStatusCertificate :: !(Maybe ByteArray) -- ^ "certificate" - certificate is populated with an issued certificate by the signer after an Approved condition is present. This field is set via the /status subresource. Once populated, this field is immutable. If the certificate signing request is denied, a condition of type \"Denied\" is added and this field remains empty. If the signer cannot issue the certificate, a condition of type \"Failed\" is added and this field remains empty. Validation requirements: 1. certificate must contain one or more PEM blocks. 2. All PEM blocks must have the \"CERTIFICATE\" label, contain no headers, and the encoded data must be a BER-encoded ASN.1 Certificate structure as described in section 4 of RFC5280. 3. Non-PEM content may appear before or after the \"CERTIFICATE\" PEM blocks and is unvalidated, to allow for explanatory text as described in section 5.2 of RFC7468. If more than one PEM block is present, and the definition of the requested spec.signerName does not indicate otherwise, the first block is the issued certificate, and subsequent blocks should be treated as intermediate certificates and presented in TLS handshakes. The certificate is encoded in PEM format. When serialized as JSON or YAML, the data is additionally base64-encoded, so it consists of: base64( -----BEGIN CERTIFICATE----- ... -----END CERTIFICATE----- ) + , v1CertificateSigningRequestStatusConditions :: !(Maybe [V1CertificateSigningRequestCondition]) -- ^ "conditions" - conditions applied to the request. Known conditions are \"Approved\", \"Denied\", and \"Failed\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CertificateSigningRequestStatus +instance A.FromJSON V1CertificateSigningRequestStatus where + parseJSON = A.withObject "V1CertificateSigningRequestStatus" $ \o -> + V1CertificateSigningRequestStatus + <$> (o .:? "certificate") + <*> (o .:? "conditions") + +-- | ToJSON V1CertificateSigningRequestStatus +instance A.ToJSON V1CertificateSigningRequestStatus where + toJSON V1CertificateSigningRequestStatus {..} = + _omitNulls + [ "certificate" .= v1CertificateSigningRequestStatusCertificate + , "conditions" .= v1CertificateSigningRequestStatusConditions + ] + + +-- | Construct a value of type 'V1CertificateSigningRequestStatus' (by applying it's required fields, if any) +mkV1CertificateSigningRequestStatus + :: V1CertificateSigningRequestStatus +mkV1CertificateSigningRequestStatus = + V1CertificateSigningRequestStatus + { v1CertificateSigningRequestStatusCertificate = Nothing + , v1CertificateSigningRequestStatusConditions = Nothing + } + +-- ** V1CinderPersistentVolumeSource +-- | V1CinderPersistentVolumeSource +-- Represents a cinder volume resource in Openstack. A Cinder volume must exist before mounting to a container. The volume must also be in the same region as the kubelet. Cinder volumes support ownership management and SELinux relabeling. +data V1CinderPersistentVolumeSource = V1CinderPersistentVolumeSource + { v1CinderPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType Filesystem type to mount. Must be a filesystem type supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + , v1CinderPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + , v1CinderPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" + , v1CinderPersistentVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CinderPersistentVolumeSource +instance A.FromJSON V1CinderPersistentVolumeSource where + parseJSON = A.withObject "V1CinderPersistentVolumeSource" $ \o -> + V1CinderPersistentVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .: "volumeID") + +-- | ToJSON V1CinderPersistentVolumeSource +instance A.ToJSON V1CinderPersistentVolumeSource where + toJSON V1CinderPersistentVolumeSource {..} = + _omitNulls + [ "fsType" .= v1CinderPersistentVolumeSourceFsType + , "readOnly" .= v1CinderPersistentVolumeSourceReadOnly + , "secretRef" .= v1CinderPersistentVolumeSourceSecretRef + , "volumeID" .= v1CinderPersistentVolumeSourceVolumeId + ] + + +-- | Construct a value of type 'V1CinderPersistentVolumeSource' (by applying it's required fields, if any) +mkV1CinderPersistentVolumeSource + :: Text -- ^ 'v1CinderPersistentVolumeSourceVolumeId': volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + -> V1CinderPersistentVolumeSource +mkV1CinderPersistentVolumeSource v1CinderPersistentVolumeSourceVolumeId = + V1CinderPersistentVolumeSource + { v1CinderPersistentVolumeSourceFsType = Nothing + , v1CinderPersistentVolumeSourceReadOnly = Nothing + , v1CinderPersistentVolumeSourceSecretRef = Nothing + , v1CinderPersistentVolumeSourceVolumeId + } + +-- ** V1CinderVolumeSource +-- | V1CinderVolumeSource +-- Represents a cinder volume resource in Openstack. A Cinder volume must exist before mounting to a container. The volume must also be in the same region as the kubelet. Cinder volumes support ownership management and SELinux relabeling. +data V1CinderVolumeSource = V1CinderVolumeSource + { v1CinderVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + , v1CinderVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + , v1CinderVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + , v1CinderVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CinderVolumeSource +instance A.FromJSON V1CinderVolumeSource where + parseJSON = A.withObject "V1CinderVolumeSource" $ \o -> + V1CinderVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .: "volumeID") + +-- | ToJSON V1CinderVolumeSource +instance A.ToJSON V1CinderVolumeSource where + toJSON V1CinderVolumeSource {..} = + _omitNulls + [ "fsType" .= v1CinderVolumeSourceFsType + , "readOnly" .= v1CinderVolumeSourceReadOnly + , "secretRef" .= v1CinderVolumeSourceSecretRef + , "volumeID" .= v1CinderVolumeSourceVolumeId + ] + + +-- | Construct a value of type 'V1CinderVolumeSource' (by applying it's required fields, if any) +mkV1CinderVolumeSource + :: Text -- ^ 'v1CinderVolumeSourceVolumeId': volumeID used to identify the volume in cinder. More info: https://examples.k8s.io/mysql-cinder-pd/README.md + -> V1CinderVolumeSource +mkV1CinderVolumeSource v1CinderVolumeSourceVolumeId = + V1CinderVolumeSource + { v1CinderVolumeSourceFsType = Nothing + , v1CinderVolumeSourceReadOnly = Nothing + , v1CinderVolumeSourceSecretRef = Nothing + , v1CinderVolumeSourceVolumeId + } + +-- ** V1ClaimSource +-- | V1ClaimSource +-- ClaimSource describes a reference to a ResourceClaim. Exactly one of these fields should be set. Consumers of this type must treat an empty object as if it has an unknown value. +data V1ClaimSource = V1ClaimSource + { v1ClaimSourceResourceClaimName :: !(Maybe Text) -- ^ "resourceClaimName" - ResourceClaimName is the name of a ResourceClaim object in the same namespace as this pod. + , v1ClaimSourceResourceClaimTemplateName :: !(Maybe Text) -- ^ "resourceClaimTemplateName" - ResourceClaimTemplateName is the name of a ResourceClaimTemplate object in the same namespace as this pod. The template will be used to create a new ResourceClaim, which will be bound to this pod. When this pod is deleted, the ResourceClaim will also be deleted. The name of the ResourceClaim will be <pod name>-<resource name>, where <resource name> is the PodResourceClaim.Name. Pod validation will reject the pod if the concatenated name is not valid for a ResourceClaim (e.g. too long). An existing ResourceClaim with that name that is not owned by the pod will not be used for the pod to avoid using an unrelated resource by mistake. Scheduling and pod startup are then blocked until the unrelated ResourceClaim is removed. This field is immutable and no changes will be made to the corresponding ResourceClaim by the control plane after creating the ResourceClaim. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClaimSource +instance A.FromJSON V1ClaimSource where + parseJSON = A.withObject "V1ClaimSource" $ \o -> + V1ClaimSource + <$> (o .:? "resourceClaimName") + <*> (o .:? "resourceClaimTemplateName") + +-- | ToJSON V1ClaimSource +instance A.ToJSON V1ClaimSource where + toJSON V1ClaimSource {..} = + _omitNulls + [ "resourceClaimName" .= v1ClaimSourceResourceClaimName + , "resourceClaimTemplateName" .= v1ClaimSourceResourceClaimTemplateName + ] + + +-- | Construct a value of type 'V1ClaimSource' (by applying it's required fields, if any) +mkV1ClaimSource + :: V1ClaimSource +mkV1ClaimSource = + V1ClaimSource + { v1ClaimSourceResourceClaimName = Nothing + , v1ClaimSourceResourceClaimTemplateName = Nothing + } + +-- ** V1ClientIPConfig +-- | V1ClientIPConfig +-- ClientIPConfig represents the configurations of Client IP based session affinity. +data V1ClientIPConfig = V1ClientIPConfig + { v1ClientIPConfigTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - timeoutSeconds specifies the seconds of ClientIP type session sticky time. The value must be >0 && <=86400(for 1 day) if ServiceAffinity == \"ClientIP\". Default value is 10800(for 3 hours). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClientIPConfig +instance A.FromJSON V1ClientIPConfig where + parseJSON = A.withObject "V1ClientIPConfig" $ \o -> + V1ClientIPConfig + <$> (o .:? "timeoutSeconds") + +-- | ToJSON V1ClientIPConfig +instance A.ToJSON V1ClientIPConfig where + toJSON V1ClientIPConfig {..} = + _omitNulls + [ "timeoutSeconds" .= v1ClientIPConfigTimeoutSeconds + ] + + +-- | Construct a value of type 'V1ClientIPConfig' (by applying it's required fields, if any) +mkV1ClientIPConfig + :: V1ClientIPConfig +mkV1ClientIPConfig = + V1ClientIPConfig + { v1ClientIPConfigTimeoutSeconds = Nothing + } + +-- ** V1ClusterRole +-- | V1ClusterRole +-- ClusterRole is a cluster level, logical grouping of PolicyRules that can be referenced as a unit by a RoleBinding or ClusterRoleBinding. +data V1ClusterRole = V1ClusterRole + { v1ClusterRoleAggregationRule :: !(Maybe V1AggregationRule) -- ^ "aggregationRule" + , v1ClusterRoleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ClusterRoleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ClusterRoleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ClusterRoleRules :: !(Maybe [V1PolicyRule]) -- ^ "rules" - Rules holds all the PolicyRules for this ClusterRole + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClusterRole +instance A.FromJSON V1ClusterRole where + parseJSON = A.withObject "V1ClusterRole" $ \o -> + V1ClusterRole + <$> (o .:? "aggregationRule") + <*> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "rules") + +-- | ToJSON V1ClusterRole +instance A.ToJSON V1ClusterRole where + toJSON V1ClusterRole {..} = + _omitNulls + [ "aggregationRule" .= v1ClusterRoleAggregationRule + , "apiVersion" .= v1ClusterRoleApiVersion + , "kind" .= v1ClusterRoleKind + , "metadata" .= v1ClusterRoleMetadata + , "rules" .= v1ClusterRoleRules + ] + + +-- | Construct a value of type 'V1ClusterRole' (by applying it's required fields, if any) +mkV1ClusterRole + :: V1ClusterRole +mkV1ClusterRole = + V1ClusterRole + { v1ClusterRoleAggregationRule = Nothing + , v1ClusterRoleApiVersion = Nothing + , v1ClusterRoleKind = Nothing + , v1ClusterRoleMetadata = Nothing + , v1ClusterRoleRules = Nothing + } + +-- ** V1ClusterRoleBinding +-- | V1ClusterRoleBinding +-- ClusterRoleBinding references a ClusterRole, but not contain it. It can reference a ClusterRole in the global namespace, and adds who information via Subject. +data V1ClusterRoleBinding = V1ClusterRoleBinding + { v1ClusterRoleBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ClusterRoleBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ClusterRoleBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ClusterRoleBindingRoleRef :: !(V1RoleRef) -- ^ /Required/ "roleRef" + , v1ClusterRoleBindingSubjects :: !(Maybe [V1Subject]) -- ^ "subjects" - Subjects holds references to the objects the role applies to. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClusterRoleBinding +instance A.FromJSON V1ClusterRoleBinding where + parseJSON = A.withObject "V1ClusterRoleBinding" $ \o -> + V1ClusterRoleBinding + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "roleRef") + <*> (o .:? "subjects") + +-- | ToJSON V1ClusterRoleBinding +instance A.ToJSON V1ClusterRoleBinding where + toJSON V1ClusterRoleBinding {..} = + _omitNulls + [ "apiVersion" .= v1ClusterRoleBindingApiVersion + , "kind" .= v1ClusterRoleBindingKind + , "metadata" .= v1ClusterRoleBindingMetadata + , "roleRef" .= v1ClusterRoleBindingRoleRef + , "subjects" .= v1ClusterRoleBindingSubjects + ] + + +-- | Construct a value of type 'V1ClusterRoleBinding' (by applying it's required fields, if any) +mkV1ClusterRoleBinding + :: V1RoleRef -- ^ 'v1ClusterRoleBindingRoleRef' + -> V1ClusterRoleBinding +mkV1ClusterRoleBinding v1ClusterRoleBindingRoleRef = + V1ClusterRoleBinding + { v1ClusterRoleBindingApiVersion = Nothing + , v1ClusterRoleBindingKind = Nothing + , v1ClusterRoleBindingMetadata = Nothing + , v1ClusterRoleBindingRoleRef + , v1ClusterRoleBindingSubjects = Nothing + } + +-- ** V1ClusterRoleBindingList +-- | V1ClusterRoleBindingList +-- ClusterRoleBindingList is a collection of ClusterRoleBindings +data V1ClusterRoleBindingList = V1ClusterRoleBindingList + { v1ClusterRoleBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ClusterRoleBindingListItems :: !([V1ClusterRoleBinding]) -- ^ /Required/ "items" - Items is a list of ClusterRoleBindings + , v1ClusterRoleBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ClusterRoleBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClusterRoleBindingList +instance A.FromJSON V1ClusterRoleBindingList where + parseJSON = A.withObject "V1ClusterRoleBindingList" $ \o -> + V1ClusterRoleBindingList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ClusterRoleBindingList +instance A.ToJSON V1ClusterRoleBindingList where + toJSON V1ClusterRoleBindingList {..} = + _omitNulls + [ "apiVersion" .= v1ClusterRoleBindingListApiVersion + , "items" .= v1ClusterRoleBindingListItems + , "kind" .= v1ClusterRoleBindingListKind + , "metadata" .= v1ClusterRoleBindingListMetadata + ] + + +-- | Construct a value of type 'V1ClusterRoleBindingList' (by applying it's required fields, if any) +mkV1ClusterRoleBindingList + :: [V1ClusterRoleBinding] -- ^ 'v1ClusterRoleBindingListItems': Items is a list of ClusterRoleBindings + -> V1ClusterRoleBindingList +mkV1ClusterRoleBindingList v1ClusterRoleBindingListItems = + V1ClusterRoleBindingList + { v1ClusterRoleBindingListApiVersion = Nothing + , v1ClusterRoleBindingListItems + , v1ClusterRoleBindingListKind = Nothing + , v1ClusterRoleBindingListMetadata = Nothing + } + +-- ** V1ClusterRoleList +-- | V1ClusterRoleList +-- ClusterRoleList is a collection of ClusterRoles +data V1ClusterRoleList = V1ClusterRoleList + { v1ClusterRoleListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ClusterRoleListItems :: !([V1ClusterRole]) -- ^ /Required/ "items" - Items is a list of ClusterRoles + , v1ClusterRoleListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ClusterRoleListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ClusterRoleList +instance A.FromJSON V1ClusterRoleList where + parseJSON = A.withObject "V1ClusterRoleList" $ \o -> + V1ClusterRoleList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ClusterRoleList +instance A.ToJSON V1ClusterRoleList where + toJSON V1ClusterRoleList {..} = + _omitNulls + [ "apiVersion" .= v1ClusterRoleListApiVersion + , "items" .= v1ClusterRoleListItems + , "kind" .= v1ClusterRoleListKind + , "metadata" .= v1ClusterRoleListMetadata + ] + + +-- | Construct a value of type 'V1ClusterRoleList' (by applying it's required fields, if any) +mkV1ClusterRoleList + :: [V1ClusterRole] -- ^ 'v1ClusterRoleListItems': Items is a list of ClusterRoles + -> V1ClusterRoleList +mkV1ClusterRoleList v1ClusterRoleListItems = + V1ClusterRoleList + { v1ClusterRoleListApiVersion = Nothing + , v1ClusterRoleListItems + , v1ClusterRoleListKind = Nothing + , v1ClusterRoleListMetadata = Nothing + } + +-- ** V1ComponentCondition +-- | V1ComponentCondition +-- Information about the condition of a component. +data V1ComponentCondition = V1ComponentCondition + { v1ComponentConditionError :: !(Maybe Text) -- ^ "error" - Condition error code for a component. For example, a health check error code. + , v1ComponentConditionMessage :: !(Maybe Text) -- ^ "message" - Message about the condition for a component. For example, information about a health check. + , v1ComponentConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition for a component. Valid values for \"Healthy\": \"True\", \"False\", or \"Unknown\". + , v1ComponentConditionType :: !(Text) -- ^ /Required/ "type" - Type of condition for a component. Valid value: \"Healthy\" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ComponentCondition +instance A.FromJSON V1ComponentCondition where + parseJSON = A.withObject "V1ComponentCondition" $ \o -> + V1ComponentCondition + <$> (o .:? "error") + <*> (o .:? "message") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1ComponentCondition +instance A.ToJSON V1ComponentCondition where + toJSON V1ComponentCondition {..} = + _omitNulls + [ "error" .= v1ComponentConditionError + , "message" .= v1ComponentConditionMessage + , "status" .= v1ComponentConditionStatus + , "type" .= v1ComponentConditionType + ] + + +-- | Construct a value of type 'V1ComponentCondition' (by applying it's required fields, if any) +mkV1ComponentCondition + :: Text -- ^ 'v1ComponentConditionStatus': Status of the condition for a component. Valid values for \"Healthy\": \"True\", \"False\", or \"Unknown\". + -> Text -- ^ 'v1ComponentConditionType': Type of condition for a component. Valid value: \"Healthy\" + -> V1ComponentCondition +mkV1ComponentCondition v1ComponentConditionStatus v1ComponentConditionType = + V1ComponentCondition + { v1ComponentConditionError = Nothing + , v1ComponentConditionMessage = Nothing + , v1ComponentConditionStatus + , v1ComponentConditionType + } + +-- ** V1ComponentStatus +-- | V1ComponentStatus +-- ComponentStatus (and ComponentStatusList) holds the cluster validation info. Deprecated: This API is deprecated in v1.19+ +data V1ComponentStatus = V1ComponentStatus + { v1ComponentStatusApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ComponentStatusConditions :: !(Maybe [V1ComponentCondition]) -- ^ "conditions" - List of component conditions observed + , v1ComponentStatusKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ComponentStatusMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ComponentStatus +instance A.FromJSON V1ComponentStatus where + parseJSON = A.withObject "V1ComponentStatus" $ \o -> + V1ComponentStatus + <$> (o .:? "apiVersion") + <*> (o .:? "conditions") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ComponentStatus +instance A.ToJSON V1ComponentStatus where + toJSON V1ComponentStatus {..} = + _omitNulls + [ "apiVersion" .= v1ComponentStatusApiVersion + , "conditions" .= v1ComponentStatusConditions + , "kind" .= v1ComponentStatusKind + , "metadata" .= v1ComponentStatusMetadata + ] + + +-- | Construct a value of type 'V1ComponentStatus' (by applying it's required fields, if any) +mkV1ComponentStatus + :: V1ComponentStatus +mkV1ComponentStatus = + V1ComponentStatus + { v1ComponentStatusApiVersion = Nothing + , v1ComponentStatusConditions = Nothing + , v1ComponentStatusKind = Nothing + , v1ComponentStatusMetadata = Nothing + } + +-- ** V1ComponentStatusList +-- | V1ComponentStatusList +-- Status of all the conditions for the component as a list of ComponentStatus objects. Deprecated: This API is deprecated in v1.19+ +data V1ComponentStatusList = V1ComponentStatusList + { v1ComponentStatusListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ComponentStatusListItems :: !([V1ComponentStatus]) -- ^ /Required/ "items" - List of ComponentStatus objects. + , v1ComponentStatusListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ComponentStatusListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ComponentStatusList +instance A.FromJSON V1ComponentStatusList where + parseJSON = A.withObject "V1ComponentStatusList" $ \o -> + V1ComponentStatusList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ComponentStatusList +instance A.ToJSON V1ComponentStatusList where + toJSON V1ComponentStatusList {..} = + _omitNulls + [ "apiVersion" .= v1ComponentStatusListApiVersion + , "items" .= v1ComponentStatusListItems + , "kind" .= v1ComponentStatusListKind + , "metadata" .= v1ComponentStatusListMetadata + ] + + +-- | Construct a value of type 'V1ComponentStatusList' (by applying it's required fields, if any) +mkV1ComponentStatusList + :: [V1ComponentStatus] -- ^ 'v1ComponentStatusListItems': List of ComponentStatus objects. + -> V1ComponentStatusList +mkV1ComponentStatusList v1ComponentStatusListItems = + V1ComponentStatusList + { v1ComponentStatusListApiVersion = Nothing + , v1ComponentStatusListItems + , v1ComponentStatusListKind = Nothing + , v1ComponentStatusListMetadata = Nothing + } + +-- ** V1Condition +-- | V1Condition +-- Condition contains details for one aspect of the current state of this API Resource. +data V1Condition = V1Condition + { v1ConditionLastTransitionTime :: !(DateTime) -- ^ /Required/ "lastTransitionTime" - lastTransitionTime is the last time the condition transitioned from one status to another. This should be when the underlying condition changed. If that is not known, then using the time when the API field changed is acceptable. + , v1ConditionMessage :: !(Text) -- ^ /Required/ "message" - message is a human readable message indicating details about the transition. This may be an empty string. + , v1ConditionObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration represents the .metadata.generation that the condition was set based upon. For instance, if .metadata.generation is currently 12, but the .status.conditions[x].observedGeneration is 9, the condition is out of date with respect to the current state of the instance. + , v1ConditionReason :: !(Text) -- ^ /Required/ "reason" - reason contains a programmatic identifier indicating the reason for the condition's last transition. Producers of specific condition types may define expected values and meanings for this field, and whether the values are considered a guaranteed API. The value should be a CamelCase string. This field may not be empty. + , v1ConditionStatus :: !(Text) -- ^ /Required/ "status" - status of the condition, one of True, False, Unknown. + , v1ConditionType :: !(Text) -- ^ /Required/ "type" - type of condition in CamelCase or in foo.example.com/CamelCase. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Condition +instance A.FromJSON V1Condition where + parseJSON = A.withObject "V1Condition" $ \o -> + V1Condition + <$> (o .: "lastTransitionTime") + <*> (o .: "message") + <*> (o .:? "observedGeneration") + <*> (o .: "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1Condition +instance A.ToJSON V1Condition where + toJSON V1Condition {..} = + _omitNulls + [ "lastTransitionTime" .= v1ConditionLastTransitionTime + , "message" .= v1ConditionMessage + , "observedGeneration" .= v1ConditionObservedGeneration + , "reason" .= v1ConditionReason + , "status" .= v1ConditionStatus + , "type" .= v1ConditionType + ] + + +-- | Construct a value of type 'V1Condition' (by applying it's required fields, if any) +mkV1Condition + :: DateTime -- ^ 'v1ConditionLastTransitionTime': lastTransitionTime is the last time the condition transitioned from one status to another. This should be when the underlying condition changed. If that is not known, then using the time when the API field changed is acceptable. + -> Text -- ^ 'v1ConditionMessage': message is a human readable message indicating details about the transition. This may be an empty string. + -> Text -- ^ 'v1ConditionReason': reason contains a programmatic identifier indicating the reason for the condition's last transition. Producers of specific condition types may define expected values and meanings for this field, and whether the values are considered a guaranteed API. The value should be a CamelCase string. This field may not be empty. + -> Text -- ^ 'v1ConditionStatus': status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1ConditionType': type of condition in CamelCase or in foo.example.com/CamelCase. + -> V1Condition +mkV1Condition v1ConditionLastTransitionTime v1ConditionMessage v1ConditionReason v1ConditionStatus v1ConditionType = + V1Condition + { v1ConditionLastTransitionTime + , v1ConditionMessage + , v1ConditionObservedGeneration = Nothing + , v1ConditionReason + , v1ConditionStatus + , v1ConditionType + } + +-- ** V1ConfigMap +-- | V1ConfigMap +-- ConfigMap holds configuration data for pods to consume. +data V1ConfigMap = V1ConfigMap + { v1ConfigMapApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ConfigMapBinaryData :: !(Maybe (Map.Map String ByteArray)) -- ^ "binaryData" - BinaryData contains the binary data. Each key must consist of alphanumeric characters, '-', '_' or '.'. BinaryData can contain byte sequences that are not in the UTF-8 range. The keys stored in BinaryData must not overlap with the ones in the Data field, this is enforced during validation process. Using this field will require 1.10+ apiserver and kubelet. + , v1ConfigMapData :: !(Maybe (Map.Map String Text)) -- ^ "data" - Data contains the configuration data. Each key must consist of alphanumeric characters, '-', '_' or '.'. Values with non-UTF-8 byte sequences must use the BinaryData field. The keys stored in Data must not overlap with the keys in the BinaryData field, this is enforced during validation process. + , v1ConfigMapImmutable :: !(Maybe Bool) -- ^ "immutable" - Immutable, if set to true, ensures that data stored in the ConfigMap cannot be updated (only object metadata can be modified). If not set to true, the field can be modified at any time. Defaulted to nil. + , v1ConfigMapKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ConfigMapMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMap +instance A.FromJSON V1ConfigMap where + parseJSON = A.withObject "V1ConfigMap" $ \o -> + V1ConfigMap + <$> (o .:? "apiVersion") + <*> (o .:? "binaryData") + <*> (o .:? "data") + <*> (o .:? "immutable") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ConfigMap +instance A.ToJSON V1ConfigMap where + toJSON V1ConfigMap {..} = + _omitNulls + [ "apiVersion" .= v1ConfigMapApiVersion + , "binaryData" .= v1ConfigMapBinaryData + , "data" .= v1ConfigMapData + , "immutable" .= v1ConfigMapImmutable + , "kind" .= v1ConfigMapKind + , "metadata" .= v1ConfigMapMetadata + ] + + +-- | Construct a value of type 'V1ConfigMap' (by applying it's required fields, if any) +mkV1ConfigMap + :: V1ConfigMap +mkV1ConfigMap = + V1ConfigMap + { v1ConfigMapApiVersion = Nothing + , v1ConfigMapBinaryData = Nothing + , v1ConfigMapData = Nothing + , v1ConfigMapImmutable = Nothing + , v1ConfigMapKind = Nothing + , v1ConfigMapMetadata = Nothing + } + +-- ** V1ConfigMapEnvSource +-- | V1ConfigMapEnvSource +-- ConfigMapEnvSource selects a ConfigMap to populate the environment variables with. The contents of the target ConfigMap's Data field will represent the key-value pairs as environment variables. +data V1ConfigMapEnvSource = V1ConfigMapEnvSource + { v1ConfigMapEnvSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1ConfigMapEnvSourceOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the ConfigMap must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapEnvSource +instance A.FromJSON V1ConfigMapEnvSource where + parseJSON = A.withObject "V1ConfigMapEnvSource" $ \o -> + V1ConfigMapEnvSource + <$> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1ConfigMapEnvSource +instance A.ToJSON V1ConfigMapEnvSource where + toJSON V1ConfigMapEnvSource {..} = + _omitNulls + [ "name" .= v1ConfigMapEnvSourceName + , "optional" .= v1ConfigMapEnvSourceOptional + ] + + +-- | Construct a value of type 'V1ConfigMapEnvSource' (by applying it's required fields, if any) +mkV1ConfigMapEnvSource + :: V1ConfigMapEnvSource +mkV1ConfigMapEnvSource = + V1ConfigMapEnvSource + { v1ConfigMapEnvSourceName = Nothing + , v1ConfigMapEnvSourceOptional = Nothing + } + +-- ** V1ConfigMapKeySelector +-- | V1ConfigMapKeySelector +-- Selects a key from a ConfigMap. +data V1ConfigMapKeySelector = V1ConfigMapKeySelector + { v1ConfigMapKeySelectorKey :: !(Text) -- ^ /Required/ "key" - The key to select. + , v1ConfigMapKeySelectorName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1ConfigMapKeySelectorOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the ConfigMap or its key must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapKeySelector +instance A.FromJSON V1ConfigMapKeySelector where + parseJSON = A.withObject "V1ConfigMapKeySelector" $ \o -> + V1ConfigMapKeySelector + <$> (o .: "key") + <*> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1ConfigMapKeySelector +instance A.ToJSON V1ConfigMapKeySelector where + toJSON V1ConfigMapKeySelector {..} = + _omitNulls + [ "key" .= v1ConfigMapKeySelectorKey + , "name" .= v1ConfigMapKeySelectorName + , "optional" .= v1ConfigMapKeySelectorOptional + ] + + +-- | Construct a value of type 'V1ConfigMapKeySelector' (by applying it's required fields, if any) +mkV1ConfigMapKeySelector + :: Text -- ^ 'v1ConfigMapKeySelectorKey': The key to select. + -> V1ConfigMapKeySelector +mkV1ConfigMapKeySelector v1ConfigMapKeySelectorKey = + V1ConfigMapKeySelector + { v1ConfigMapKeySelectorKey + , v1ConfigMapKeySelectorName = Nothing + , v1ConfigMapKeySelectorOptional = Nothing + } + +-- ** V1ConfigMapList +-- | V1ConfigMapList +-- ConfigMapList is a resource containing a list of ConfigMap objects. +data V1ConfigMapList = V1ConfigMapList + { v1ConfigMapListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ConfigMapListItems :: !([V1ConfigMap]) -- ^ /Required/ "items" - Items is the list of ConfigMaps. + , v1ConfigMapListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ConfigMapListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapList +instance A.FromJSON V1ConfigMapList where + parseJSON = A.withObject "V1ConfigMapList" $ \o -> + V1ConfigMapList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ConfigMapList +instance A.ToJSON V1ConfigMapList where + toJSON V1ConfigMapList {..} = + _omitNulls + [ "apiVersion" .= v1ConfigMapListApiVersion + , "items" .= v1ConfigMapListItems + , "kind" .= v1ConfigMapListKind + , "metadata" .= v1ConfigMapListMetadata + ] + + +-- | Construct a value of type 'V1ConfigMapList' (by applying it's required fields, if any) +mkV1ConfigMapList + :: [V1ConfigMap] -- ^ 'v1ConfigMapListItems': Items is the list of ConfigMaps. + -> V1ConfigMapList +mkV1ConfigMapList v1ConfigMapListItems = + V1ConfigMapList + { v1ConfigMapListApiVersion = Nothing + , v1ConfigMapListItems + , v1ConfigMapListKind = Nothing + , v1ConfigMapListMetadata = Nothing + } + +-- ** V1ConfigMapNodeConfigSource +-- | V1ConfigMapNodeConfigSource +-- ConfigMapNodeConfigSource contains the information to reference a ConfigMap as a config source for the Node. This API is deprecated since 1.22: https://git.k8s.io/enhancements/keps/sig-node/281-dynamic-kubelet-configuration +data V1ConfigMapNodeConfigSource = V1ConfigMapNodeConfigSource + { v1ConfigMapNodeConfigSourceKubeletConfigKey :: !(Text) -- ^ /Required/ "kubeletConfigKey" - KubeletConfigKey declares which key of the referenced ConfigMap corresponds to the KubeletConfiguration structure This field is required in all cases. + , v1ConfigMapNodeConfigSourceName :: !(Text) -- ^ /Required/ "name" - Name is the metadata.name of the referenced ConfigMap. This field is required in all cases. + , v1ConfigMapNodeConfigSourceNamespace :: !(Text) -- ^ /Required/ "namespace" - Namespace is the metadata.namespace of the referenced ConfigMap. This field is required in all cases. + , v1ConfigMapNodeConfigSourceResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - ResourceVersion is the metadata.ResourceVersion of the referenced ConfigMap. This field is forbidden in Node.Spec, and required in Node.Status. + , v1ConfigMapNodeConfigSourceUid :: !(Maybe Text) -- ^ "uid" - UID is the metadata.UID of the referenced ConfigMap. This field is forbidden in Node.Spec, and required in Node.Status. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapNodeConfigSource +instance A.FromJSON V1ConfigMapNodeConfigSource where + parseJSON = A.withObject "V1ConfigMapNodeConfigSource" $ \o -> + V1ConfigMapNodeConfigSource + <$> (o .: "kubeletConfigKey") + <*> (o .: "name") + <*> (o .: "namespace") + <*> (o .:? "resourceVersion") + <*> (o .:? "uid") + +-- | ToJSON V1ConfigMapNodeConfigSource +instance A.ToJSON V1ConfigMapNodeConfigSource where + toJSON V1ConfigMapNodeConfigSource {..} = + _omitNulls + [ "kubeletConfigKey" .= v1ConfigMapNodeConfigSourceKubeletConfigKey + , "name" .= v1ConfigMapNodeConfigSourceName + , "namespace" .= v1ConfigMapNodeConfigSourceNamespace + , "resourceVersion" .= v1ConfigMapNodeConfigSourceResourceVersion + , "uid" .= v1ConfigMapNodeConfigSourceUid + ] + + +-- | Construct a value of type 'V1ConfigMapNodeConfigSource' (by applying it's required fields, if any) +mkV1ConfigMapNodeConfigSource + :: Text -- ^ 'v1ConfigMapNodeConfigSourceKubeletConfigKey': KubeletConfigKey declares which key of the referenced ConfigMap corresponds to the KubeletConfiguration structure This field is required in all cases. + -> Text -- ^ 'v1ConfigMapNodeConfigSourceName': Name is the metadata.name of the referenced ConfigMap. This field is required in all cases. + -> Text -- ^ 'v1ConfigMapNodeConfigSourceNamespace': Namespace is the metadata.namespace of the referenced ConfigMap. This field is required in all cases. + -> V1ConfigMapNodeConfigSource +mkV1ConfigMapNodeConfigSource v1ConfigMapNodeConfigSourceKubeletConfigKey v1ConfigMapNodeConfigSourceName v1ConfigMapNodeConfigSourceNamespace = + V1ConfigMapNodeConfigSource + { v1ConfigMapNodeConfigSourceKubeletConfigKey + , v1ConfigMapNodeConfigSourceName + , v1ConfigMapNodeConfigSourceNamespace + , v1ConfigMapNodeConfigSourceResourceVersion = Nothing + , v1ConfigMapNodeConfigSourceUid = Nothing + } + +-- ** V1ConfigMapProjection +-- | V1ConfigMapProjection +-- Adapts a ConfigMap into a projected volume. The contents of the target ConfigMap's Data field will be presented in a projected volume as files using the keys in the Data field as the file names, unless the items element is populated with specific mappings of keys to paths. Note that this is identical to a configmap volume source without the default mode. +data V1ConfigMapProjection = V1ConfigMapProjection + { v1ConfigMapProjectionItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced ConfigMap will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the ConfigMap, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. + , v1ConfigMapProjectionName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1ConfigMapProjectionOptional :: !(Maybe Bool) -- ^ "optional" - optional specify whether the ConfigMap or its keys must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapProjection +instance A.FromJSON V1ConfigMapProjection where + parseJSON = A.withObject "V1ConfigMapProjection" $ \o -> + V1ConfigMapProjection + <$> (o .:? "items") + <*> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1ConfigMapProjection +instance A.ToJSON V1ConfigMapProjection where + toJSON V1ConfigMapProjection {..} = + _omitNulls + [ "items" .= v1ConfigMapProjectionItems + , "name" .= v1ConfigMapProjectionName + , "optional" .= v1ConfigMapProjectionOptional + ] + + +-- | Construct a value of type 'V1ConfigMapProjection' (by applying it's required fields, if any) +mkV1ConfigMapProjection + :: V1ConfigMapProjection +mkV1ConfigMapProjection = + V1ConfigMapProjection + { v1ConfigMapProjectionItems = Nothing + , v1ConfigMapProjectionName = Nothing + , v1ConfigMapProjectionOptional = Nothing + } + +-- ** V1ConfigMapVolumeSource +-- | V1ConfigMapVolumeSource +-- Adapts a ConfigMap into a volume. The contents of the target ConfigMap's Data field will be presented in a volume as files using the keys in the Data field as the file names, unless the items element is populated with specific mappings of keys to paths. ConfigMap volumes support ownership management and SELinux relabeling. +data V1ConfigMapVolumeSource = V1ConfigMapVolumeSource + { v1ConfigMapVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode is optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1ConfigMapVolumeSourceItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced ConfigMap will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the ConfigMap, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. + , v1ConfigMapVolumeSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1ConfigMapVolumeSourceOptional :: !(Maybe Bool) -- ^ "optional" - optional specify whether the ConfigMap or its keys must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ConfigMapVolumeSource +instance A.FromJSON V1ConfigMapVolumeSource where + parseJSON = A.withObject "V1ConfigMapVolumeSource" $ \o -> + V1ConfigMapVolumeSource + <$> (o .:? "defaultMode") + <*> (o .:? "items") + <*> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1ConfigMapVolumeSource +instance A.ToJSON V1ConfigMapVolumeSource where + toJSON V1ConfigMapVolumeSource {..} = + _omitNulls + [ "defaultMode" .= v1ConfigMapVolumeSourceDefaultMode + , "items" .= v1ConfigMapVolumeSourceItems + , "name" .= v1ConfigMapVolumeSourceName + , "optional" .= v1ConfigMapVolumeSourceOptional + ] + + +-- | Construct a value of type 'V1ConfigMapVolumeSource' (by applying it's required fields, if any) +mkV1ConfigMapVolumeSource + :: V1ConfigMapVolumeSource +mkV1ConfigMapVolumeSource = + V1ConfigMapVolumeSource + { v1ConfigMapVolumeSourceDefaultMode = Nothing + , v1ConfigMapVolumeSourceItems = Nothing + , v1ConfigMapVolumeSourceName = Nothing + , v1ConfigMapVolumeSourceOptional = Nothing + } + +-- ** V1Container +-- | V1Container +-- A single application container that you want to run within a pod. +data V1Container = V1Container + { v1ContainerArgs :: !(Maybe [Text]) -- ^ "args" - Arguments to the entrypoint. The container image's CMD is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell + , v1ContainerCommand :: !(Maybe [Text]) -- ^ "command" - Entrypoint array. Not executed within a shell. The container image's ENTRYPOINT is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell + , v1ContainerEnv :: !(Maybe [V1EnvVar]) -- ^ "env" - List of environment variables to set in the container. Cannot be updated. + , v1ContainerEnvFrom :: !(Maybe [V1EnvFromSource]) -- ^ "envFrom" - List of sources to populate environment variables in the container. The keys defined within a source must be a C_IDENTIFIER. All invalid keys will be reported as an event when the container is starting. When a key exists in multiple sources, the value associated with the last source will take precedence. Values defined by an Env with a duplicate key will take precedence. Cannot be updated. + , v1ContainerImage :: !(Maybe Text) -- ^ "image" - Container image name. More info: https://kubernetes.io/docs/concepts/containers/images This field is optional to allow higher level config management to default or override container images in workload controllers like Deployments and StatefulSets. + , v1ContainerImagePullPolicy :: !(Maybe Text) -- ^ "imagePullPolicy" - Image pull policy. One of Always, Never, IfNotPresent. Defaults to Always if :latest tag is specified, or IfNotPresent otherwise. Cannot be updated. More info: https://kubernetes.io/docs/concepts/containers/images#updating-images + , v1ContainerLifecycle :: !(Maybe V1Lifecycle) -- ^ "lifecycle" + , v1ContainerLivenessProbe :: !(Maybe V1Probe) -- ^ "livenessProbe" + , v1ContainerName :: !(Text) -- ^ /Required/ "name" - Name of the container specified as a DNS_LABEL. Each container in a pod must have a unique name (DNS_LABEL). Cannot be updated. + , v1ContainerPorts :: !(Maybe [V1ContainerPort]) -- ^ "ports" - List of ports to expose from the container. Not specifying a port here DOES NOT prevent that port from being exposed. Any port which is listening on the default \"0.0.0.0\" address inside a container will be accessible from the network. Modifying this array with strategic merge patch may corrupt the data. For more information See https://github.com/kubernetes/kubernetes/issues/108255. Cannot be updated. + , v1ContainerReadinessProbe :: !(Maybe V1Probe) -- ^ "readinessProbe" + , v1ContainerResizePolicy :: !(Maybe [V1ContainerResizePolicy]) -- ^ "resizePolicy" - Resources resize policy for the container. + , v1ContainerResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" + , v1ContainerSecurityContext :: !(Maybe V1SecurityContext) -- ^ "securityContext" + , v1ContainerStartupProbe :: !(Maybe V1Probe) -- ^ "startupProbe" + , v1ContainerStdin :: !(Maybe Bool) -- ^ "stdin" - Whether this container should allocate a buffer for stdin in the container runtime. If this is not set, reads from stdin in the container will always result in EOF. Default is false. + , v1ContainerStdinOnce :: !(Maybe Bool) -- ^ "stdinOnce" - Whether the container runtime should close the stdin channel after it has been opened by a single attach. When stdin is true the stdin stream will remain open across multiple attach sessions. If stdinOnce is set to true, stdin is opened on container start, is empty until the first client attaches to stdin, and then remains open and accepts data until the client disconnects, at which time stdin is closed and remains closed until the container is restarted. If this flag is false, a container processes that reads from stdin will never receive an EOF. Default is false + , v1ContainerTerminationMessagePath :: !(Maybe Text) -- ^ "terminationMessagePath" - Optional: Path at which the file to which the container's termination message will be written is mounted into the container's filesystem. Message written is intended to be brief final status, such as an assertion failure message. Will be truncated by the node if greater than 4096 bytes. The total message length across all containers will be limited to 12kb. Defaults to /dev/termination-log. Cannot be updated. + , v1ContainerTerminationMessagePolicy :: !(Maybe Text) -- ^ "terminationMessagePolicy" - Indicate how the termination message should be populated. File will use the contents of terminationMessagePath to populate the container status message on both success and failure. FallbackToLogsOnError will use the last chunk of container log output if the termination message file is empty and the container exited with an error. The log output is limited to 2048 bytes or 80 lines, whichever is smaller. Defaults to File. Cannot be updated. + , v1ContainerTty :: !(Maybe Bool) -- ^ "tty" - Whether this container should allocate a TTY for itself, also requires 'stdin' to be true. Default is false. + , v1ContainerVolumeDevices :: !(Maybe [V1VolumeDevice]) -- ^ "volumeDevices" - volumeDevices is the list of block devices to be used by the container. + , v1ContainerVolumeMounts :: !(Maybe [V1VolumeMount]) -- ^ "volumeMounts" - Pod volumes to mount into the container's filesystem. Cannot be updated. + , v1ContainerWorkingDir :: !(Maybe Text) -- ^ "workingDir" - Container's working directory. If not specified, the container runtime's default will be used, which might be configured in the container image. Cannot be updated. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Container +instance A.FromJSON V1Container where + parseJSON = A.withObject "V1Container" $ \o -> + V1Container + <$> (o .:? "args") + <*> (o .:? "command") + <*> (o .:? "env") + <*> (o .:? "envFrom") + <*> (o .:? "image") + <*> (o .:? "imagePullPolicy") + <*> (o .:? "lifecycle") + <*> (o .:? "livenessProbe") + <*> (o .: "name") + <*> (o .:? "ports") + <*> (o .:? "readinessProbe") + <*> (o .:? "resizePolicy") + <*> (o .:? "resources") + <*> (o .:? "securityContext") + <*> (o .:? "startupProbe") + <*> (o .:? "stdin") + <*> (o .:? "stdinOnce") + <*> (o .:? "terminationMessagePath") + <*> (o .:? "terminationMessagePolicy") + <*> (o .:? "tty") + <*> (o .:? "volumeDevices") + <*> (o .:? "volumeMounts") + <*> (o .:? "workingDir") + +-- | ToJSON V1Container +instance A.ToJSON V1Container where + toJSON V1Container {..} = + _omitNulls + [ "args" .= v1ContainerArgs + , "command" .= v1ContainerCommand + , "env" .= v1ContainerEnv + , "envFrom" .= v1ContainerEnvFrom + , "image" .= v1ContainerImage + , "imagePullPolicy" .= v1ContainerImagePullPolicy + , "lifecycle" .= v1ContainerLifecycle + , "livenessProbe" .= v1ContainerLivenessProbe + , "name" .= v1ContainerName + , "ports" .= v1ContainerPorts + , "readinessProbe" .= v1ContainerReadinessProbe + , "resizePolicy" .= v1ContainerResizePolicy + , "resources" .= v1ContainerResources + , "securityContext" .= v1ContainerSecurityContext + , "startupProbe" .= v1ContainerStartupProbe + , "stdin" .= v1ContainerStdin + , "stdinOnce" .= v1ContainerStdinOnce + , "terminationMessagePath" .= v1ContainerTerminationMessagePath + , "terminationMessagePolicy" .= v1ContainerTerminationMessagePolicy + , "tty" .= v1ContainerTty + , "volumeDevices" .= v1ContainerVolumeDevices + , "volumeMounts" .= v1ContainerVolumeMounts + , "workingDir" .= v1ContainerWorkingDir + ] + + +-- | Construct a value of type 'V1Container' (by applying it's required fields, if any) +mkV1Container + :: Text -- ^ 'v1ContainerName': Name of the container specified as a DNS_LABEL. Each container in a pod must have a unique name (DNS_LABEL). Cannot be updated. + -> V1Container +mkV1Container v1ContainerName = + V1Container + { v1ContainerArgs = Nothing + , v1ContainerCommand = Nothing + , v1ContainerEnv = Nothing + , v1ContainerEnvFrom = Nothing + , v1ContainerImage = Nothing + , v1ContainerImagePullPolicy = Nothing + , v1ContainerLifecycle = Nothing + , v1ContainerLivenessProbe = Nothing + , v1ContainerName + , v1ContainerPorts = Nothing + , v1ContainerReadinessProbe = Nothing + , v1ContainerResizePolicy = Nothing + , v1ContainerResources = Nothing + , v1ContainerSecurityContext = Nothing + , v1ContainerStartupProbe = Nothing + , v1ContainerStdin = Nothing + , v1ContainerStdinOnce = Nothing + , v1ContainerTerminationMessagePath = Nothing + , v1ContainerTerminationMessagePolicy = Nothing + , v1ContainerTty = Nothing + , v1ContainerVolumeDevices = Nothing + , v1ContainerVolumeMounts = Nothing + , v1ContainerWorkingDir = Nothing + } + +-- ** V1ContainerImage +-- | V1ContainerImage +-- Describe a container image +data V1ContainerImage = V1ContainerImage + { v1ContainerImageNames :: !(Maybe [Text]) -- ^ "names" - Names by which this image is known. e.g. [\"kubernetes.example/hyperkube:v1.0.7\", \"cloud-vendor.registry.example/cloud-vendor/hyperkube:v1.0.7\"] + , v1ContainerImageSizeBytes :: !(Maybe Integer) -- ^ "sizeBytes" - The size of the image in bytes. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerImage +instance A.FromJSON V1ContainerImage where + parseJSON = A.withObject "V1ContainerImage" $ \o -> + V1ContainerImage + <$> (o .:? "names") + <*> (o .:? "sizeBytes") + +-- | ToJSON V1ContainerImage +instance A.ToJSON V1ContainerImage where + toJSON V1ContainerImage {..} = + _omitNulls + [ "names" .= v1ContainerImageNames + , "sizeBytes" .= v1ContainerImageSizeBytes + ] + + +-- | Construct a value of type 'V1ContainerImage' (by applying it's required fields, if any) +mkV1ContainerImage + :: V1ContainerImage +mkV1ContainerImage = + V1ContainerImage + { v1ContainerImageNames = Nothing + , v1ContainerImageSizeBytes = Nothing + } + +-- ** V1ContainerPort +-- | V1ContainerPort +-- ContainerPort represents a network port in a single container. +data V1ContainerPort = V1ContainerPort + { v1ContainerPortContainerPort :: !(Int) -- ^ /Required/ "containerPort" - Number of port to expose on the pod's IP address. This must be a valid port number, 0 < x < 65536. + , v1ContainerPortHostIp :: !(Maybe Text) -- ^ "hostIP" - What host IP to bind the external port to. + , v1ContainerPortHostPort :: !(Maybe Int) -- ^ "hostPort" - Number of port to expose on the host. If specified, this must be a valid port number, 0 < x < 65536. If HostNetwork is specified, this must match ContainerPort. Most containers do not need this. + , v1ContainerPortName :: !(Maybe Text) -- ^ "name" - If specified, this must be an IANA_SVC_NAME and unique within the pod. Each named port in a pod must have a unique name. Name for the port that can be referred to by services. + , v1ContainerPortProtocol :: !(Maybe Text) -- ^ "protocol" - Protocol for port. Must be UDP, TCP, or SCTP. Defaults to \"TCP\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerPort +instance A.FromJSON V1ContainerPort where + parseJSON = A.withObject "V1ContainerPort" $ \o -> + V1ContainerPort + <$> (o .: "containerPort") + <*> (o .:? "hostIP") + <*> (o .:? "hostPort") + <*> (o .:? "name") + <*> (o .:? "protocol") + +-- | ToJSON V1ContainerPort +instance A.ToJSON V1ContainerPort where + toJSON V1ContainerPort {..} = + _omitNulls + [ "containerPort" .= v1ContainerPortContainerPort + , "hostIP" .= v1ContainerPortHostIp + , "hostPort" .= v1ContainerPortHostPort + , "name" .= v1ContainerPortName + , "protocol" .= v1ContainerPortProtocol + ] + + +-- | Construct a value of type 'V1ContainerPort' (by applying it's required fields, if any) +mkV1ContainerPort + :: Int -- ^ 'v1ContainerPortContainerPort': Number of port to expose on the pod's IP address. This must be a valid port number, 0 < x < 65536. + -> V1ContainerPort +mkV1ContainerPort v1ContainerPortContainerPort = + V1ContainerPort + { v1ContainerPortContainerPort + , v1ContainerPortHostIp = Nothing + , v1ContainerPortHostPort = Nothing + , v1ContainerPortName = Nothing + , v1ContainerPortProtocol = Nothing + } + +-- ** V1ContainerResizePolicy +-- | V1ContainerResizePolicy +-- ContainerResizePolicy represents resource resize policy for the container. +data V1ContainerResizePolicy = V1ContainerResizePolicy + { v1ContainerResizePolicyResourceName :: !(Text) -- ^ /Required/ "resourceName" - Name of the resource to which this resource resize policy applies. Supported values: cpu, memory. + , v1ContainerResizePolicyRestartPolicy :: !(Text) -- ^ /Required/ "restartPolicy" - Restart policy to apply when specified resource is resized. If not specified, it defaults to NotRequired. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerResizePolicy +instance A.FromJSON V1ContainerResizePolicy where + parseJSON = A.withObject "V1ContainerResizePolicy" $ \o -> + V1ContainerResizePolicy + <$> (o .: "resourceName") + <*> (o .: "restartPolicy") + +-- | ToJSON V1ContainerResizePolicy +instance A.ToJSON V1ContainerResizePolicy where + toJSON V1ContainerResizePolicy {..} = + _omitNulls + [ "resourceName" .= v1ContainerResizePolicyResourceName + , "restartPolicy" .= v1ContainerResizePolicyRestartPolicy + ] + + +-- | Construct a value of type 'V1ContainerResizePolicy' (by applying it's required fields, if any) +mkV1ContainerResizePolicy + :: Text -- ^ 'v1ContainerResizePolicyResourceName': Name of the resource to which this resource resize policy applies. Supported values: cpu, memory. + -> Text -- ^ 'v1ContainerResizePolicyRestartPolicy': Restart policy to apply when specified resource is resized. If not specified, it defaults to NotRequired. + -> V1ContainerResizePolicy +mkV1ContainerResizePolicy v1ContainerResizePolicyResourceName v1ContainerResizePolicyRestartPolicy = + V1ContainerResizePolicy + { v1ContainerResizePolicyResourceName + , v1ContainerResizePolicyRestartPolicy + } + +-- ** V1ContainerState +-- | V1ContainerState +-- ContainerState holds a possible state of container. Only one of its members may be specified. If none of them is specified, the default one is ContainerStateWaiting. +data V1ContainerState = V1ContainerState + { v1ContainerStateRunning :: !(Maybe V1ContainerStateRunning) -- ^ "running" + , v1ContainerStateTerminated :: !(Maybe V1ContainerStateTerminated) -- ^ "terminated" + , v1ContainerStateWaiting :: !(Maybe V1ContainerStateWaiting) -- ^ "waiting" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerState +instance A.FromJSON V1ContainerState where + parseJSON = A.withObject "V1ContainerState" $ \o -> + V1ContainerState + <$> (o .:? "running") + <*> (o .:? "terminated") + <*> (o .:? "waiting") + +-- | ToJSON V1ContainerState +instance A.ToJSON V1ContainerState where + toJSON V1ContainerState {..} = + _omitNulls + [ "running" .= v1ContainerStateRunning + , "terminated" .= v1ContainerStateTerminated + , "waiting" .= v1ContainerStateWaiting + ] + + +-- | Construct a value of type 'V1ContainerState' (by applying it's required fields, if any) +mkV1ContainerState + :: V1ContainerState +mkV1ContainerState = + V1ContainerState + { v1ContainerStateRunning = Nothing + , v1ContainerStateTerminated = Nothing + , v1ContainerStateWaiting = Nothing + } + +-- ** V1ContainerStateRunning +-- | V1ContainerStateRunning +-- ContainerStateRunning is a running state of a container. +data V1ContainerStateRunning = V1ContainerStateRunning + { v1ContainerStateRunningStartedAt :: !(Maybe DateTime) -- ^ "startedAt" - Time at which the container was last (re-)started + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerStateRunning +instance A.FromJSON V1ContainerStateRunning where + parseJSON = A.withObject "V1ContainerStateRunning" $ \o -> + V1ContainerStateRunning + <$> (o .:? "startedAt") + +-- | ToJSON V1ContainerStateRunning +instance A.ToJSON V1ContainerStateRunning where + toJSON V1ContainerStateRunning {..} = + _omitNulls + [ "startedAt" .= v1ContainerStateRunningStartedAt + ] + + +-- | Construct a value of type 'V1ContainerStateRunning' (by applying it's required fields, if any) +mkV1ContainerStateRunning + :: V1ContainerStateRunning +mkV1ContainerStateRunning = + V1ContainerStateRunning + { v1ContainerStateRunningStartedAt = Nothing + } + +-- ** V1ContainerStateTerminated +-- | V1ContainerStateTerminated +-- ContainerStateTerminated is a terminated state of a container. +data V1ContainerStateTerminated = V1ContainerStateTerminated + { v1ContainerStateTerminatedContainerId :: !(Maybe Text) -- ^ "containerID" - Container's ID in the format '<type>://<container_id>' + , v1ContainerStateTerminatedExitCode :: !(Int) -- ^ /Required/ "exitCode" - Exit status from the last termination of the container + , v1ContainerStateTerminatedFinishedAt :: !(Maybe DateTime) -- ^ "finishedAt" - Time at which the container last terminated + , v1ContainerStateTerminatedMessage :: !(Maybe Text) -- ^ "message" - Message regarding the last termination of the container + , v1ContainerStateTerminatedReason :: !(Maybe Text) -- ^ "reason" - (brief) reason from the last termination of the container + , v1ContainerStateTerminatedSignal :: !(Maybe Int) -- ^ "signal" - Signal from the last termination of the container + , v1ContainerStateTerminatedStartedAt :: !(Maybe DateTime) -- ^ "startedAt" - Time at which previous execution of the container started + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerStateTerminated +instance A.FromJSON V1ContainerStateTerminated where + parseJSON = A.withObject "V1ContainerStateTerminated" $ \o -> + V1ContainerStateTerminated + <$> (o .:? "containerID") + <*> (o .: "exitCode") + <*> (o .:? "finishedAt") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .:? "signal") + <*> (o .:? "startedAt") + +-- | ToJSON V1ContainerStateTerminated +instance A.ToJSON V1ContainerStateTerminated where + toJSON V1ContainerStateTerminated {..} = + _omitNulls + [ "containerID" .= v1ContainerStateTerminatedContainerId + , "exitCode" .= v1ContainerStateTerminatedExitCode + , "finishedAt" .= v1ContainerStateTerminatedFinishedAt + , "message" .= v1ContainerStateTerminatedMessage + , "reason" .= v1ContainerStateTerminatedReason + , "signal" .= v1ContainerStateTerminatedSignal + , "startedAt" .= v1ContainerStateTerminatedStartedAt + ] + + +-- | Construct a value of type 'V1ContainerStateTerminated' (by applying it's required fields, if any) +mkV1ContainerStateTerminated + :: Int -- ^ 'v1ContainerStateTerminatedExitCode': Exit status from the last termination of the container + -> V1ContainerStateTerminated +mkV1ContainerStateTerminated v1ContainerStateTerminatedExitCode = + V1ContainerStateTerminated + { v1ContainerStateTerminatedContainerId = Nothing + , v1ContainerStateTerminatedExitCode + , v1ContainerStateTerminatedFinishedAt = Nothing + , v1ContainerStateTerminatedMessage = Nothing + , v1ContainerStateTerminatedReason = Nothing + , v1ContainerStateTerminatedSignal = Nothing + , v1ContainerStateTerminatedStartedAt = Nothing + } + +-- ** V1ContainerStateWaiting +-- | V1ContainerStateWaiting +-- ContainerStateWaiting is a waiting state of a container. +data V1ContainerStateWaiting = V1ContainerStateWaiting + { v1ContainerStateWaitingMessage :: !(Maybe Text) -- ^ "message" - Message regarding why the container is not yet running. + , v1ContainerStateWaitingReason :: !(Maybe Text) -- ^ "reason" - (brief) reason the container is not yet running. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerStateWaiting +instance A.FromJSON V1ContainerStateWaiting where + parseJSON = A.withObject "V1ContainerStateWaiting" $ \o -> + V1ContainerStateWaiting + <$> (o .:? "message") + <*> (o .:? "reason") + +-- | ToJSON V1ContainerStateWaiting +instance A.ToJSON V1ContainerStateWaiting where + toJSON V1ContainerStateWaiting {..} = + _omitNulls + [ "message" .= v1ContainerStateWaitingMessage + , "reason" .= v1ContainerStateWaitingReason + ] + + +-- | Construct a value of type 'V1ContainerStateWaiting' (by applying it's required fields, if any) +mkV1ContainerStateWaiting + :: V1ContainerStateWaiting +mkV1ContainerStateWaiting = + V1ContainerStateWaiting + { v1ContainerStateWaitingMessage = Nothing + , v1ContainerStateWaitingReason = Nothing + } + +-- ** V1ContainerStatus +-- | V1ContainerStatus +-- ContainerStatus contains details for the current status of this container. +data V1ContainerStatus = V1ContainerStatus + { v1ContainerStatusAllocatedResources :: !(Maybe (Map.Map String Quantity)) -- ^ "allocatedResources" - AllocatedResources represents the compute resources allocated for this container by the node. Kubelet sets this value to Container.Resources.Requests upon successful pod admission and after successfully admitting desired pod resize. + , v1ContainerStatusContainerId :: !(Maybe Text) -- ^ "containerID" - ContainerID is the ID of the container in the format '<type>://<container_id>'. Where type is a container runtime identifier, returned from Version call of CRI API (for example \"containerd\"). + , v1ContainerStatusImage :: !(Text) -- ^ /Required/ "image" - Image is the name of container image that the container is running. The container image may not match the image used in the PodSpec, as it may have been resolved by the runtime. More info: https://kubernetes.io/docs/concepts/containers/images. + , v1ContainerStatusImageId :: !(Text) -- ^ /Required/ "imageID" - ImageID is the image ID of the container's image. The image ID may not match the image ID of the image used in the PodSpec, as it may have been resolved by the runtime. + , v1ContainerStatusLastState :: !(Maybe V1ContainerState) -- ^ "lastState" + , v1ContainerStatusName :: !(Text) -- ^ /Required/ "name" - Name is a DNS_LABEL representing the unique name of the container. Each container in a pod must have a unique name across all container types. Cannot be updated. + , v1ContainerStatusReady :: !(Bool) -- ^ /Required/ "ready" - Ready specifies whether the container is currently passing its readiness check. The value will change as readiness probes keep executing. If no readiness probes are specified, this field defaults to true once the container is fully started (see Started field). The value is typically used to determine whether a container is ready to accept traffic. + , v1ContainerStatusResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" + , v1ContainerStatusRestartCount :: !(Int) -- ^ /Required/ "restartCount" - RestartCount holds the number of times the container has been restarted. Kubelet makes an effort to always increment the value, but there are cases when the state may be lost due to node restarts and then the value may be reset to 0. The value is never negative. + , v1ContainerStatusStarted :: !(Maybe Bool) -- ^ "started" - Started indicates whether the container has finished its postStart lifecycle hook and passed its startup probe. Initialized as false, becomes true after startupProbe is considered successful. Resets to false when the container is restarted, or if kubelet loses state temporarily. In both cases, startup probes will run again. Is always true when no startupProbe is defined and container is running and has passed the postStart lifecycle hook. The null value must be treated the same as false. + , v1ContainerStatusState :: !(Maybe V1ContainerState) -- ^ "state" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ContainerStatus +instance A.FromJSON V1ContainerStatus where + parseJSON = A.withObject "V1ContainerStatus" $ \o -> + V1ContainerStatus + <$> (o .:? "allocatedResources") + <*> (o .:? "containerID") + <*> (o .: "image") + <*> (o .: "imageID") + <*> (o .:? "lastState") + <*> (o .: "name") + <*> (o .: "ready") + <*> (o .:? "resources") + <*> (o .: "restartCount") + <*> (o .:? "started") + <*> (o .:? "state") + +-- | ToJSON V1ContainerStatus +instance A.ToJSON V1ContainerStatus where + toJSON V1ContainerStatus {..} = + _omitNulls + [ "allocatedResources" .= v1ContainerStatusAllocatedResources + , "containerID" .= v1ContainerStatusContainerId + , "image" .= v1ContainerStatusImage + , "imageID" .= v1ContainerStatusImageId + , "lastState" .= v1ContainerStatusLastState + , "name" .= v1ContainerStatusName + , "ready" .= v1ContainerStatusReady + , "resources" .= v1ContainerStatusResources + , "restartCount" .= v1ContainerStatusRestartCount + , "started" .= v1ContainerStatusStarted + , "state" .= v1ContainerStatusState + ] + + +-- | Construct a value of type 'V1ContainerStatus' (by applying it's required fields, if any) +mkV1ContainerStatus + :: Text -- ^ 'v1ContainerStatusImage': Image is the name of container image that the container is running. The container image may not match the image used in the PodSpec, as it may have been resolved by the runtime. More info: https://kubernetes.io/docs/concepts/containers/images. + -> Text -- ^ 'v1ContainerStatusImageId': ImageID is the image ID of the container's image. The image ID may not match the image ID of the image used in the PodSpec, as it may have been resolved by the runtime. + -> Text -- ^ 'v1ContainerStatusName': Name is a DNS_LABEL representing the unique name of the container. Each container in a pod must have a unique name across all container types. Cannot be updated. + -> Bool -- ^ 'v1ContainerStatusReady': Ready specifies whether the container is currently passing its readiness check. The value will change as readiness probes keep executing. If no readiness probes are specified, this field defaults to true once the container is fully started (see Started field). The value is typically used to determine whether a container is ready to accept traffic. + -> Int -- ^ 'v1ContainerStatusRestartCount': RestartCount holds the number of times the container has been restarted. Kubelet makes an effort to always increment the value, but there are cases when the state may be lost due to node restarts and then the value may be reset to 0. The value is never negative. + -> V1ContainerStatus +mkV1ContainerStatus v1ContainerStatusImage v1ContainerStatusImageId v1ContainerStatusName v1ContainerStatusReady v1ContainerStatusRestartCount = + V1ContainerStatus + { v1ContainerStatusAllocatedResources = Nothing + , v1ContainerStatusContainerId = Nothing + , v1ContainerStatusImage + , v1ContainerStatusImageId + , v1ContainerStatusLastState = Nothing + , v1ContainerStatusName + , v1ContainerStatusReady + , v1ContainerStatusResources = Nothing + , v1ContainerStatusRestartCount + , v1ContainerStatusStarted = Nothing + , v1ContainerStatusState = Nothing + } + +-- ** V1ControllerRevision +-- | V1ControllerRevision +-- ControllerRevision implements an immutable snapshot of state data. Clients are responsible for serializing and deserializing the objects that contain their internal state. Once a ControllerRevision has been successfully created, it can not be updated. The API Server will fail validation of all requests that attempt to mutate the Data field. ControllerRevisions may, however, be deleted. Note that, due to its use by both the DaemonSet and StatefulSet controllers for update and rollback, this object is beta. However, it may be subject to name and representation changes in future releases, and clients should not depend on its stability. It is primarily for internal use by controllers. +data V1ControllerRevision = V1ControllerRevision + { v1ControllerRevisionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ControllerRevisionData :: !(Maybe A.Value) -- ^ "data" - Data is the serialized representation of the state. + , v1ControllerRevisionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ControllerRevisionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ControllerRevisionRevision :: !(Integer) -- ^ /Required/ "revision" - Revision indicates the revision of the state represented by Data. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ControllerRevision +instance A.FromJSON V1ControllerRevision where + parseJSON = A.withObject "V1ControllerRevision" $ \o -> + V1ControllerRevision + <$> (o .:? "apiVersion") + <*> (o .:? "data") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "revision") + +-- | ToJSON V1ControllerRevision +instance A.ToJSON V1ControllerRevision where + toJSON V1ControllerRevision {..} = + _omitNulls + [ "apiVersion" .= v1ControllerRevisionApiVersion + , "data" .= v1ControllerRevisionData + , "kind" .= v1ControllerRevisionKind + , "metadata" .= v1ControllerRevisionMetadata + , "revision" .= v1ControllerRevisionRevision + ] + + +-- | Construct a value of type 'V1ControllerRevision' (by applying it's required fields, if any) +mkV1ControllerRevision + :: Integer -- ^ 'v1ControllerRevisionRevision': Revision indicates the revision of the state represented by Data. + -> V1ControllerRevision +mkV1ControllerRevision v1ControllerRevisionRevision = + V1ControllerRevision + { v1ControllerRevisionApiVersion = Nothing + , v1ControllerRevisionData = Nothing + , v1ControllerRevisionKind = Nothing + , v1ControllerRevisionMetadata = Nothing + , v1ControllerRevisionRevision + } + +-- ** V1ControllerRevisionList +-- | V1ControllerRevisionList +-- ControllerRevisionList is a resource containing a list of ControllerRevision objects. +data V1ControllerRevisionList = V1ControllerRevisionList + { v1ControllerRevisionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ControllerRevisionListItems :: !([V1ControllerRevision]) -- ^ /Required/ "items" - Items is the list of ControllerRevisions + , v1ControllerRevisionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ControllerRevisionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ControllerRevisionList +instance A.FromJSON V1ControllerRevisionList where + parseJSON = A.withObject "V1ControllerRevisionList" $ \o -> + V1ControllerRevisionList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ControllerRevisionList +instance A.ToJSON V1ControllerRevisionList where + toJSON V1ControllerRevisionList {..} = + _omitNulls + [ "apiVersion" .= v1ControllerRevisionListApiVersion + , "items" .= v1ControllerRevisionListItems + , "kind" .= v1ControllerRevisionListKind + , "metadata" .= v1ControllerRevisionListMetadata + ] + + +-- | Construct a value of type 'V1ControllerRevisionList' (by applying it's required fields, if any) +mkV1ControllerRevisionList + :: [V1ControllerRevision] -- ^ 'v1ControllerRevisionListItems': Items is the list of ControllerRevisions + -> V1ControllerRevisionList +mkV1ControllerRevisionList v1ControllerRevisionListItems = + V1ControllerRevisionList + { v1ControllerRevisionListApiVersion = Nothing + , v1ControllerRevisionListItems + , v1ControllerRevisionListKind = Nothing + , v1ControllerRevisionListMetadata = Nothing + } + +-- ** V1CronJob +-- | V1CronJob +-- CronJob represents the configuration of a single cron job. +data V1CronJob = V1CronJob + { v1CronJobApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CronJobKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CronJobMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CronJobSpec :: !(Maybe V1CronJobSpec) -- ^ "spec" + , v1CronJobStatus :: !(Maybe V1CronJobStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CronJob +instance A.FromJSON V1CronJob where + parseJSON = A.withObject "V1CronJob" $ \o -> + V1CronJob + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1CronJob +instance A.ToJSON V1CronJob where + toJSON V1CronJob {..} = + _omitNulls + [ "apiVersion" .= v1CronJobApiVersion + , "kind" .= v1CronJobKind + , "metadata" .= v1CronJobMetadata + , "spec" .= v1CronJobSpec + , "status" .= v1CronJobStatus + ] + + +-- | Construct a value of type 'V1CronJob' (by applying it's required fields, if any) +mkV1CronJob + :: V1CronJob +mkV1CronJob = + V1CronJob + { v1CronJobApiVersion = Nothing + , v1CronJobKind = Nothing + , v1CronJobMetadata = Nothing + , v1CronJobSpec = Nothing + , v1CronJobStatus = Nothing + } + +-- ** V1CronJobList +-- | V1CronJobList +-- CronJobList is a collection of cron jobs. +data V1CronJobList = V1CronJobList + { v1CronJobListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CronJobListItems :: !([V1CronJob]) -- ^ /Required/ "items" - items is the list of CronJobs. + , v1CronJobListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CronJobListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CronJobList +instance A.FromJSON V1CronJobList where + parseJSON = A.withObject "V1CronJobList" $ \o -> + V1CronJobList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CronJobList +instance A.ToJSON V1CronJobList where + toJSON V1CronJobList {..} = + _omitNulls + [ "apiVersion" .= v1CronJobListApiVersion + , "items" .= v1CronJobListItems + , "kind" .= v1CronJobListKind + , "metadata" .= v1CronJobListMetadata + ] + + +-- | Construct a value of type 'V1CronJobList' (by applying it's required fields, if any) +mkV1CronJobList + :: [V1CronJob] -- ^ 'v1CronJobListItems': items is the list of CronJobs. + -> V1CronJobList +mkV1CronJobList v1CronJobListItems = + V1CronJobList + { v1CronJobListApiVersion = Nothing + , v1CronJobListItems + , v1CronJobListKind = Nothing + , v1CronJobListMetadata = Nothing + } + +-- ** V1CronJobSpec +-- | V1CronJobSpec +-- CronJobSpec describes how the job execution will look like and when it will actually run. +data V1CronJobSpec = V1CronJobSpec + { v1CronJobSpecConcurrencyPolicy :: !(Maybe Text) -- ^ "concurrencyPolicy" - Specifies how to treat concurrent executions of a Job. Valid values are: - \"Allow\" (default): allows CronJobs to run concurrently; - \"Forbid\": forbids concurrent runs, skipping next run if previous run hasn't finished yet; - \"Replace\": cancels currently running job and replaces it with a new one + , v1CronJobSpecFailedJobsHistoryLimit :: !(Maybe Int) -- ^ "failedJobsHistoryLimit" - The number of failed finished jobs to retain. Value must be non-negative integer. Defaults to 1. + , v1CronJobSpecJobTemplate :: !(V1JobTemplateSpec) -- ^ /Required/ "jobTemplate" + , v1CronJobSpecSchedule :: !(Text) -- ^ /Required/ "schedule" - The schedule in Cron format, see https://en.wikipedia.org/wiki/Cron. + , v1CronJobSpecStartingDeadlineSeconds :: !(Maybe Integer) -- ^ "startingDeadlineSeconds" - Optional deadline in seconds for starting the job if it misses scheduled time for any reason. Missed jobs executions will be counted as failed ones. + , v1CronJobSpecSuccessfulJobsHistoryLimit :: !(Maybe Int) -- ^ "successfulJobsHistoryLimit" - The number of successful finished jobs to retain. Value must be non-negative integer. Defaults to 3. + , v1CronJobSpecSuspend :: !(Maybe Bool) -- ^ "suspend" - This flag tells the controller to suspend subsequent executions, it does not apply to already started executions. Defaults to false. + , v1CronJobSpecTimeZone :: !(Maybe Text) -- ^ "timeZone" - The time zone name for the given schedule, see https://en.wikipedia.org/wiki/List_of_tz_database_time_zones. If not specified, this will default to the time zone of the kube-controller-manager process. The set of valid time zone names and the time zone offset is loaded from the system-wide time zone database by the API server during CronJob validation and the controller manager during execution. If no system-wide time zone database can be found a bundled version of the database is used instead. If the time zone name becomes invalid during the lifetime of a CronJob or due to a change in host configuration, the controller will stop creating new new Jobs and will create a system event with the reason UnknownTimeZone. More information can be found in https://kubernetes.io/docs/concepts/workloads/controllers/cron-jobs/#time-zones + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CronJobSpec +instance A.FromJSON V1CronJobSpec where + parseJSON = A.withObject "V1CronJobSpec" $ \o -> + V1CronJobSpec + <$> (o .:? "concurrencyPolicy") + <*> (o .:? "failedJobsHistoryLimit") + <*> (o .: "jobTemplate") + <*> (o .: "schedule") + <*> (o .:? "startingDeadlineSeconds") + <*> (o .:? "successfulJobsHistoryLimit") + <*> (o .:? "suspend") + <*> (o .:? "timeZone") + +-- | ToJSON V1CronJobSpec +instance A.ToJSON V1CronJobSpec where + toJSON V1CronJobSpec {..} = + _omitNulls + [ "concurrencyPolicy" .= v1CronJobSpecConcurrencyPolicy + , "failedJobsHistoryLimit" .= v1CronJobSpecFailedJobsHistoryLimit + , "jobTemplate" .= v1CronJobSpecJobTemplate + , "schedule" .= v1CronJobSpecSchedule + , "startingDeadlineSeconds" .= v1CronJobSpecStartingDeadlineSeconds + , "successfulJobsHistoryLimit" .= v1CronJobSpecSuccessfulJobsHistoryLimit + , "suspend" .= v1CronJobSpecSuspend + , "timeZone" .= v1CronJobSpecTimeZone + ] + + +-- | Construct a value of type 'V1CronJobSpec' (by applying it's required fields, if any) +mkV1CronJobSpec + :: V1JobTemplateSpec -- ^ 'v1CronJobSpecJobTemplate' + -> Text -- ^ 'v1CronJobSpecSchedule': The schedule in Cron format, see https://en.wikipedia.org/wiki/Cron. + -> V1CronJobSpec +mkV1CronJobSpec v1CronJobSpecJobTemplate v1CronJobSpecSchedule = + V1CronJobSpec + { v1CronJobSpecConcurrencyPolicy = Nothing + , v1CronJobSpecFailedJobsHistoryLimit = Nothing + , v1CronJobSpecJobTemplate + , v1CronJobSpecSchedule + , v1CronJobSpecStartingDeadlineSeconds = Nothing + , v1CronJobSpecSuccessfulJobsHistoryLimit = Nothing + , v1CronJobSpecSuspend = Nothing + , v1CronJobSpecTimeZone = Nothing + } + +-- ** V1CronJobStatus +-- | V1CronJobStatus +-- CronJobStatus represents the current state of a cron job. +data V1CronJobStatus = V1CronJobStatus + { v1CronJobStatusActive :: !(Maybe [V1ObjectReference]) -- ^ "active" - A list of pointers to currently running jobs. + , v1CronJobStatusLastScheduleTime :: !(Maybe DateTime) -- ^ "lastScheduleTime" - Information when was the last time the job was successfully scheduled. + , v1CronJobStatusLastSuccessfulTime :: !(Maybe DateTime) -- ^ "lastSuccessfulTime" - Information when was the last time the job successfully completed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CronJobStatus +instance A.FromJSON V1CronJobStatus where + parseJSON = A.withObject "V1CronJobStatus" $ \o -> + V1CronJobStatus + <$> (o .:? "active") + <*> (o .:? "lastScheduleTime") + <*> (o .:? "lastSuccessfulTime") + +-- | ToJSON V1CronJobStatus +instance A.ToJSON V1CronJobStatus where + toJSON V1CronJobStatus {..} = + _omitNulls + [ "active" .= v1CronJobStatusActive + , "lastScheduleTime" .= v1CronJobStatusLastScheduleTime + , "lastSuccessfulTime" .= v1CronJobStatusLastSuccessfulTime + ] + + +-- | Construct a value of type 'V1CronJobStatus' (by applying it's required fields, if any) +mkV1CronJobStatus + :: V1CronJobStatus +mkV1CronJobStatus = + V1CronJobStatus + { v1CronJobStatusActive = Nothing + , v1CronJobStatusLastScheduleTime = Nothing + , v1CronJobStatusLastSuccessfulTime = Nothing + } + +-- ** V1CrossVersionObjectReference +-- | V1CrossVersionObjectReference +-- CrossVersionObjectReference contains enough information to let you identify the referred resource. +data V1CrossVersionObjectReference = V1CrossVersionObjectReference + { v1CrossVersionObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - apiVersion is the API version of the referent + , v1CrossVersionObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - kind is the kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CrossVersionObjectReferenceName :: !(Text) -- ^ /Required/ "name" - name is the name of the referent; More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CrossVersionObjectReference +instance A.FromJSON V1CrossVersionObjectReference where + parseJSON = A.withObject "V1CrossVersionObjectReference" $ \o -> + V1CrossVersionObjectReference + <$> (o .:? "apiVersion") + <*> (o .: "kind") + <*> (o .: "name") + +-- | ToJSON V1CrossVersionObjectReference +instance A.ToJSON V1CrossVersionObjectReference where + toJSON V1CrossVersionObjectReference {..} = + _omitNulls + [ "apiVersion" .= v1CrossVersionObjectReferenceApiVersion + , "kind" .= v1CrossVersionObjectReferenceKind + , "name" .= v1CrossVersionObjectReferenceName + ] + + +-- | Construct a value of type 'V1CrossVersionObjectReference' (by applying it's required fields, if any) +mkV1CrossVersionObjectReference + :: Text -- ^ 'v1CrossVersionObjectReferenceKind': kind is the kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + -> Text -- ^ 'v1CrossVersionObjectReferenceName': name is the name of the referent; More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + -> V1CrossVersionObjectReference +mkV1CrossVersionObjectReference v1CrossVersionObjectReferenceKind v1CrossVersionObjectReferenceName = + V1CrossVersionObjectReference + { v1CrossVersionObjectReferenceApiVersion = Nothing + , v1CrossVersionObjectReferenceKind + , v1CrossVersionObjectReferenceName + } + +-- ** V1CustomResourceColumnDefinition +-- | V1CustomResourceColumnDefinition +-- CustomResourceColumnDefinition specifies a column for server side printing. +data V1CustomResourceColumnDefinition = V1CustomResourceColumnDefinition + { v1CustomResourceColumnDefinitionDescription :: !(Maybe Text) -- ^ "description" - description is a human readable description of this column. + , v1CustomResourceColumnDefinitionFormat :: !(Maybe Text) -- ^ "format" - format is an optional OpenAPI type definition for this column. The 'name' format is applied to the primary identifier column to assist in clients identifying column is the resource name. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. + , v1CustomResourceColumnDefinitionJsonPath :: !(Text) -- ^ /Required/ "jsonPath" - jsonPath is a simple JSON path (i.e. with array notation) which is evaluated against each custom resource to produce the value for this column. + , v1CustomResourceColumnDefinitionName :: !(Text) -- ^ /Required/ "name" - name is a human readable name for the column. + , v1CustomResourceColumnDefinitionPriority :: !(Maybe Int) -- ^ "priority" - priority is an integer defining the relative importance of this column compared to others. Lower numbers are considered higher priority. Columns that may be omitted in limited space scenarios should be given a priority greater than 0. + , v1CustomResourceColumnDefinitionType :: !(Text) -- ^ /Required/ "type" - type is an OpenAPI type definition for this column. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceColumnDefinition +instance A.FromJSON V1CustomResourceColumnDefinition where + parseJSON = A.withObject "V1CustomResourceColumnDefinition" $ \o -> + V1CustomResourceColumnDefinition + <$> (o .:? "description") + <*> (o .:? "format") + <*> (o .: "jsonPath") + <*> (o .: "name") + <*> (o .:? "priority") + <*> (o .: "type") + +-- | ToJSON V1CustomResourceColumnDefinition +instance A.ToJSON V1CustomResourceColumnDefinition where + toJSON V1CustomResourceColumnDefinition {..} = + _omitNulls + [ "description" .= v1CustomResourceColumnDefinitionDescription + , "format" .= v1CustomResourceColumnDefinitionFormat + , "jsonPath" .= v1CustomResourceColumnDefinitionJsonPath + , "name" .= v1CustomResourceColumnDefinitionName + , "priority" .= v1CustomResourceColumnDefinitionPriority + , "type" .= v1CustomResourceColumnDefinitionType + ] + + +-- | Construct a value of type 'V1CustomResourceColumnDefinition' (by applying it's required fields, if any) +mkV1CustomResourceColumnDefinition + :: Text -- ^ 'v1CustomResourceColumnDefinitionJsonPath': jsonPath is a simple JSON path (i.e. with array notation) which is evaluated against each custom resource to produce the value for this column. + -> Text -- ^ 'v1CustomResourceColumnDefinitionName': name is a human readable name for the column. + -> Text -- ^ 'v1CustomResourceColumnDefinitionType': type is an OpenAPI type definition for this column. See https://github.com/OAI/OpenAPI-Specification/blob/master/versions/2.0.md#data-types for details. + -> V1CustomResourceColumnDefinition +mkV1CustomResourceColumnDefinition v1CustomResourceColumnDefinitionJsonPath v1CustomResourceColumnDefinitionName v1CustomResourceColumnDefinitionType = + V1CustomResourceColumnDefinition + { v1CustomResourceColumnDefinitionDescription = Nothing + , v1CustomResourceColumnDefinitionFormat = Nothing + , v1CustomResourceColumnDefinitionJsonPath + , v1CustomResourceColumnDefinitionName + , v1CustomResourceColumnDefinitionPriority = Nothing + , v1CustomResourceColumnDefinitionType + } + +-- ** V1CustomResourceConversion +-- | V1CustomResourceConversion +-- CustomResourceConversion describes how to convert different versions of a CR. +data V1CustomResourceConversion = V1CustomResourceConversion + { v1CustomResourceConversionStrategy :: !(Text) -- ^ /Required/ "strategy" - strategy specifies how custom resources are converted between versions. Allowed values are: - `\"None\"`: The converter only change the apiVersion and would not touch any other field in the custom resource. - `\"Webhook\"`: API Server will call to an external webhook to do the conversion. Additional information is needed for this option. This requires spec.preserveUnknownFields to be false, and spec.conversion.webhook to be set. + , v1CustomResourceConversionWebhook :: !(Maybe V1WebhookConversion) -- ^ "webhook" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceConversion +instance A.FromJSON V1CustomResourceConversion where + parseJSON = A.withObject "V1CustomResourceConversion" $ \o -> + V1CustomResourceConversion + <$> (o .: "strategy") + <*> (o .:? "webhook") + +-- | ToJSON V1CustomResourceConversion +instance A.ToJSON V1CustomResourceConversion where + toJSON V1CustomResourceConversion {..} = + _omitNulls + [ "strategy" .= v1CustomResourceConversionStrategy + , "webhook" .= v1CustomResourceConversionWebhook + ] + + +-- | Construct a value of type 'V1CustomResourceConversion' (by applying it's required fields, if any) +mkV1CustomResourceConversion + :: Text -- ^ 'v1CustomResourceConversionStrategy': strategy specifies how custom resources are converted between versions. Allowed values are: - `\"None\"`: The converter only change the apiVersion and would not touch any other field in the custom resource. - `\"Webhook\"`: API Server will call to an external webhook to do the conversion. Additional information is needed for this option. This requires spec.preserveUnknownFields to be false, and spec.conversion.webhook to be set. + -> V1CustomResourceConversion +mkV1CustomResourceConversion v1CustomResourceConversionStrategy = + V1CustomResourceConversion + { v1CustomResourceConversionStrategy + , v1CustomResourceConversionWebhook = Nothing + } + +-- ** V1CustomResourceDefinition +-- | V1CustomResourceDefinition +-- CustomResourceDefinition represents a resource that should be exposed on the API server. Its name MUST be in the format <.spec.name>.<.spec.group>. +data V1CustomResourceDefinition = V1CustomResourceDefinition + { v1CustomResourceDefinitionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CustomResourceDefinitionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CustomResourceDefinitionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1CustomResourceDefinitionSpec :: !(V1CustomResourceDefinitionSpec) -- ^ /Required/ "spec" + , v1CustomResourceDefinitionStatus :: !(Maybe V1CustomResourceDefinitionStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinition +instance A.FromJSON V1CustomResourceDefinition where + parseJSON = A.withObject "V1CustomResourceDefinition" $ \o -> + V1CustomResourceDefinition + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1CustomResourceDefinition +instance A.ToJSON V1CustomResourceDefinition where + toJSON V1CustomResourceDefinition {..} = + _omitNulls + [ "apiVersion" .= v1CustomResourceDefinitionApiVersion + , "kind" .= v1CustomResourceDefinitionKind + , "metadata" .= v1CustomResourceDefinitionMetadata + , "spec" .= v1CustomResourceDefinitionSpec + , "status" .= v1CustomResourceDefinitionStatus + ] + + +-- | Construct a value of type 'V1CustomResourceDefinition' (by applying it's required fields, if any) +mkV1CustomResourceDefinition + :: V1CustomResourceDefinitionSpec -- ^ 'v1CustomResourceDefinitionSpec' + -> V1CustomResourceDefinition +mkV1CustomResourceDefinition v1CustomResourceDefinitionSpec = + V1CustomResourceDefinition + { v1CustomResourceDefinitionApiVersion = Nothing + , v1CustomResourceDefinitionKind = Nothing + , v1CustomResourceDefinitionMetadata = Nothing + , v1CustomResourceDefinitionSpec + , v1CustomResourceDefinitionStatus = Nothing + } + +-- ** V1CustomResourceDefinitionCondition +-- | V1CustomResourceDefinitionCondition +-- CustomResourceDefinitionCondition contains details for the current condition of this pod. +data V1CustomResourceDefinitionCondition = V1CustomResourceDefinitionCondition + { v1CustomResourceDefinitionConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime last time the condition transitioned from one status to another. + , v1CustomResourceDefinitionConditionMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable message indicating details about last transition. + , v1CustomResourceDefinitionConditionReason :: !(Maybe Text) -- ^ "reason" - reason is a unique, one-word, CamelCase reason for the condition's last transition. + , v1CustomResourceDefinitionConditionStatus :: !(Text) -- ^ /Required/ "status" - status is the status of the condition. Can be True, False, Unknown. + , v1CustomResourceDefinitionConditionType :: !(Text) -- ^ /Required/ "type" - type is the type of the condition. Types include Established, NamesAccepted and Terminating. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionCondition +instance A.FromJSON V1CustomResourceDefinitionCondition where + parseJSON = A.withObject "V1CustomResourceDefinitionCondition" $ \o -> + V1CustomResourceDefinitionCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1CustomResourceDefinitionCondition +instance A.ToJSON V1CustomResourceDefinitionCondition where + toJSON V1CustomResourceDefinitionCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1CustomResourceDefinitionConditionLastTransitionTime + , "message" .= v1CustomResourceDefinitionConditionMessage + , "reason" .= v1CustomResourceDefinitionConditionReason + , "status" .= v1CustomResourceDefinitionConditionStatus + , "type" .= v1CustomResourceDefinitionConditionType + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionCondition' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionCondition + :: Text -- ^ 'v1CustomResourceDefinitionConditionStatus': status is the status of the condition. Can be True, False, Unknown. + -> Text -- ^ 'v1CustomResourceDefinitionConditionType': type is the type of the condition. Types include Established, NamesAccepted and Terminating. + -> V1CustomResourceDefinitionCondition +mkV1CustomResourceDefinitionCondition v1CustomResourceDefinitionConditionStatus v1CustomResourceDefinitionConditionType = + V1CustomResourceDefinitionCondition + { v1CustomResourceDefinitionConditionLastTransitionTime = Nothing + , v1CustomResourceDefinitionConditionMessage = Nothing + , v1CustomResourceDefinitionConditionReason = Nothing + , v1CustomResourceDefinitionConditionStatus + , v1CustomResourceDefinitionConditionType + } + +-- ** V1CustomResourceDefinitionList +-- | V1CustomResourceDefinitionList +-- CustomResourceDefinitionList is a list of CustomResourceDefinition objects. +data V1CustomResourceDefinitionList = V1CustomResourceDefinitionList + { v1CustomResourceDefinitionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1CustomResourceDefinitionListItems :: !([V1CustomResourceDefinition]) -- ^ /Required/ "items" - items list individual CustomResourceDefinition objects + , v1CustomResourceDefinitionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1CustomResourceDefinitionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionList +instance A.FromJSON V1CustomResourceDefinitionList where + parseJSON = A.withObject "V1CustomResourceDefinitionList" $ \o -> + V1CustomResourceDefinitionList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1CustomResourceDefinitionList +instance A.ToJSON V1CustomResourceDefinitionList where + toJSON V1CustomResourceDefinitionList {..} = + _omitNulls + [ "apiVersion" .= v1CustomResourceDefinitionListApiVersion + , "items" .= v1CustomResourceDefinitionListItems + , "kind" .= v1CustomResourceDefinitionListKind + , "metadata" .= v1CustomResourceDefinitionListMetadata + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionList' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionList + :: [V1CustomResourceDefinition] -- ^ 'v1CustomResourceDefinitionListItems': items list individual CustomResourceDefinition objects + -> V1CustomResourceDefinitionList +mkV1CustomResourceDefinitionList v1CustomResourceDefinitionListItems = + V1CustomResourceDefinitionList + { v1CustomResourceDefinitionListApiVersion = Nothing + , v1CustomResourceDefinitionListItems + , v1CustomResourceDefinitionListKind = Nothing + , v1CustomResourceDefinitionListMetadata = Nothing + } + +-- ** V1CustomResourceDefinitionNames +-- | V1CustomResourceDefinitionNames +-- CustomResourceDefinitionNames indicates the names to serve this CustomResourceDefinition +data V1CustomResourceDefinitionNames = V1CustomResourceDefinitionNames + { v1CustomResourceDefinitionNamesCategories :: !(Maybe [Text]) -- ^ "categories" - categories is a list of grouped resources this custom resource belongs to (e.g. 'all'). This is published in API discovery documents, and used by clients to support invocations like `kubectl get all`. + , v1CustomResourceDefinitionNamesKind :: !(Text) -- ^ /Required/ "kind" - kind is the serialized kind of the resource. It is normally CamelCase and singular. Custom resource instances will use this value as the `kind` attribute in API calls. + , v1CustomResourceDefinitionNamesListKind :: !(Maybe Text) -- ^ "listKind" - listKind is the serialized kind of the list for this resource. Defaults to \"`kind`List\". + , v1CustomResourceDefinitionNamesPlural :: !(Text) -- ^ /Required/ "plural" - plural is the plural name of the resource to serve. The custom resources are served under `/apis/<group>/<version>/.../<plural>`. Must match the name of the CustomResourceDefinition (in the form `<names.plural>.<group>`). Must be all lowercase. + , v1CustomResourceDefinitionNamesShortNames :: !(Maybe [Text]) -- ^ "shortNames" - shortNames are short names for the resource, exposed in API discovery documents, and used by clients to support invocations like `kubectl get <shortname>`. It must be all lowercase. + , v1CustomResourceDefinitionNamesSingular :: !(Maybe Text) -- ^ "singular" - singular is the singular name of the resource. It must be all lowercase. Defaults to lowercased `kind`. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionNames +instance A.FromJSON V1CustomResourceDefinitionNames where + parseJSON = A.withObject "V1CustomResourceDefinitionNames" $ \o -> + V1CustomResourceDefinitionNames + <$> (o .:? "categories") + <*> (o .: "kind") + <*> (o .:? "listKind") + <*> (o .: "plural") + <*> (o .:? "shortNames") + <*> (o .:? "singular") + +-- | ToJSON V1CustomResourceDefinitionNames +instance A.ToJSON V1CustomResourceDefinitionNames where + toJSON V1CustomResourceDefinitionNames {..} = + _omitNulls + [ "categories" .= v1CustomResourceDefinitionNamesCategories + , "kind" .= v1CustomResourceDefinitionNamesKind + , "listKind" .= v1CustomResourceDefinitionNamesListKind + , "plural" .= v1CustomResourceDefinitionNamesPlural + , "shortNames" .= v1CustomResourceDefinitionNamesShortNames + , "singular" .= v1CustomResourceDefinitionNamesSingular + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionNames' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionNames + :: Text -- ^ 'v1CustomResourceDefinitionNamesKind': kind is the serialized kind of the resource. It is normally CamelCase and singular. Custom resource instances will use this value as the `kind` attribute in API calls. + -> Text -- ^ 'v1CustomResourceDefinitionNamesPlural': plural is the plural name of the resource to serve. The custom resources are served under `/apis///.../`. Must match the name of the CustomResourceDefinition (in the form `.`). Must be all lowercase. + -> V1CustomResourceDefinitionNames +mkV1CustomResourceDefinitionNames v1CustomResourceDefinitionNamesKind v1CustomResourceDefinitionNamesPlural = + V1CustomResourceDefinitionNames + { v1CustomResourceDefinitionNamesCategories = Nothing + , v1CustomResourceDefinitionNamesKind + , v1CustomResourceDefinitionNamesListKind = Nothing + , v1CustomResourceDefinitionNamesPlural + , v1CustomResourceDefinitionNamesShortNames = Nothing + , v1CustomResourceDefinitionNamesSingular = Nothing + } + +-- ** V1CustomResourceDefinitionSpec +-- | V1CustomResourceDefinitionSpec +-- CustomResourceDefinitionSpec describes how a user wants their resource to appear +data V1CustomResourceDefinitionSpec = V1CustomResourceDefinitionSpec + { v1CustomResourceDefinitionSpecConversion :: !(Maybe V1CustomResourceConversion) -- ^ "conversion" + , v1CustomResourceDefinitionSpecGroup :: !(Text) -- ^ /Required/ "group" - group is the API group of the defined custom resource. The custom resources are served under `/apis/<group>/...`. Must match the name of the CustomResourceDefinition (in the form `<names.plural>.<group>`). + , v1CustomResourceDefinitionSpecNames :: !(V1CustomResourceDefinitionNames) -- ^ /Required/ "names" + , v1CustomResourceDefinitionSpecPreserveUnknownFields :: !(Maybe Bool) -- ^ "preserveUnknownFields" - preserveUnknownFields indicates that object fields which are not specified in the OpenAPI schema should be preserved when persisting to storage. apiVersion, kind, metadata and known fields inside metadata are always preserved. This field is deprecated in favor of setting `x-preserve-unknown-fields` to true in `spec.versions[*].schema.openAPIV3Schema`. See https://kubernetes.io/docs/tasks/extend-kubernetes/custom-resources/custom-resource-definitions/#field-pruning for details. + , v1CustomResourceDefinitionSpecScope :: !(Text) -- ^ /Required/ "scope" - scope indicates whether the defined custom resource is cluster- or namespace-scoped. Allowed values are `Cluster` and `Namespaced`. + , v1CustomResourceDefinitionSpecVersions :: !([V1CustomResourceDefinitionVersion]) -- ^ /Required/ "versions" - versions is the list of all API versions of the defined custom resource. Version names are used to compute the order in which served versions are listed in API discovery. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionSpec +instance A.FromJSON V1CustomResourceDefinitionSpec where + parseJSON = A.withObject "V1CustomResourceDefinitionSpec" $ \o -> + V1CustomResourceDefinitionSpec + <$> (o .:? "conversion") + <*> (o .: "group") + <*> (o .: "names") + <*> (o .:? "preserveUnknownFields") + <*> (o .: "scope") + <*> (o .: "versions") + +-- | ToJSON V1CustomResourceDefinitionSpec +instance A.ToJSON V1CustomResourceDefinitionSpec where + toJSON V1CustomResourceDefinitionSpec {..} = + _omitNulls + [ "conversion" .= v1CustomResourceDefinitionSpecConversion + , "group" .= v1CustomResourceDefinitionSpecGroup + , "names" .= v1CustomResourceDefinitionSpecNames + , "preserveUnknownFields" .= v1CustomResourceDefinitionSpecPreserveUnknownFields + , "scope" .= v1CustomResourceDefinitionSpecScope + , "versions" .= v1CustomResourceDefinitionSpecVersions + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionSpec' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionSpec + :: Text -- ^ 'v1CustomResourceDefinitionSpecGroup': group is the API group of the defined custom resource. The custom resources are served under `/apis//...`. Must match the name of the CustomResourceDefinition (in the form `.`). + -> V1CustomResourceDefinitionNames -- ^ 'v1CustomResourceDefinitionSpecNames' + -> Text -- ^ 'v1CustomResourceDefinitionSpecScope': scope indicates whether the defined custom resource is cluster- or namespace-scoped. Allowed values are `Cluster` and `Namespaced`. + -> [V1CustomResourceDefinitionVersion] -- ^ 'v1CustomResourceDefinitionSpecVersions': versions is the list of all API versions of the defined custom resource. Version names are used to compute the order in which served versions are listed in API discovery. If the version string is \"kube-like\", it will sort above non \"kube-like\" version strings, which are ordered lexicographically. \"Kube-like\" versions start with a \"v\", then are followed by a number (the major version), then optionally the string \"alpha\" or \"beta\" and another number (the minor version). These are sorted first by GA > beta > alpha (where GA is a version with no suffix such as beta or alpha), and then by comparing major version, then minor version. An example sorted list of versions: v10, v2, v1, v11beta2, v10beta3, v3beta1, v12alpha1, v11alpha2, foo1, foo10. + -> V1CustomResourceDefinitionSpec +mkV1CustomResourceDefinitionSpec v1CustomResourceDefinitionSpecGroup v1CustomResourceDefinitionSpecNames v1CustomResourceDefinitionSpecScope v1CustomResourceDefinitionSpecVersions = + V1CustomResourceDefinitionSpec + { v1CustomResourceDefinitionSpecConversion = Nothing + , v1CustomResourceDefinitionSpecGroup + , v1CustomResourceDefinitionSpecNames + , v1CustomResourceDefinitionSpecPreserveUnknownFields = Nothing + , v1CustomResourceDefinitionSpecScope + , v1CustomResourceDefinitionSpecVersions + } + +-- ** V1CustomResourceDefinitionStatus +-- | V1CustomResourceDefinitionStatus +-- CustomResourceDefinitionStatus indicates the state of the CustomResourceDefinition +data V1CustomResourceDefinitionStatus = V1CustomResourceDefinitionStatus + { v1CustomResourceDefinitionStatusAcceptedNames :: !(Maybe V1CustomResourceDefinitionNames) -- ^ "acceptedNames" + , v1CustomResourceDefinitionStatusConditions :: !(Maybe [V1CustomResourceDefinitionCondition]) -- ^ "conditions" - conditions indicate state for particular aspects of a CustomResourceDefinition + , v1CustomResourceDefinitionStatusStoredVersions :: !(Maybe [Text]) -- ^ "storedVersions" - storedVersions lists all versions of CustomResources that were ever persisted. Tracking these versions allows a migration path for stored versions in etcd. The field is mutable so a migration controller can finish a migration to another version (ensuring no old objects are left in storage), and then remove the rest of the versions from this list. Versions may not be removed from `spec.versions` while they exist in this list. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionStatus +instance A.FromJSON V1CustomResourceDefinitionStatus where + parseJSON = A.withObject "V1CustomResourceDefinitionStatus" $ \o -> + V1CustomResourceDefinitionStatus + <$> (o .:? "acceptedNames") + <*> (o .:? "conditions") + <*> (o .:? "storedVersions") + +-- | ToJSON V1CustomResourceDefinitionStatus +instance A.ToJSON V1CustomResourceDefinitionStatus where + toJSON V1CustomResourceDefinitionStatus {..} = + _omitNulls + [ "acceptedNames" .= v1CustomResourceDefinitionStatusAcceptedNames + , "conditions" .= v1CustomResourceDefinitionStatusConditions + , "storedVersions" .= v1CustomResourceDefinitionStatusStoredVersions + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionStatus' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionStatus + :: V1CustomResourceDefinitionStatus +mkV1CustomResourceDefinitionStatus = + V1CustomResourceDefinitionStatus + { v1CustomResourceDefinitionStatusAcceptedNames = Nothing + , v1CustomResourceDefinitionStatusConditions = Nothing + , v1CustomResourceDefinitionStatusStoredVersions = Nothing + } + +-- ** V1CustomResourceDefinitionVersion +-- | V1CustomResourceDefinitionVersion +-- CustomResourceDefinitionVersion describes a version for CRD. +data V1CustomResourceDefinitionVersion = V1CustomResourceDefinitionVersion + { v1CustomResourceDefinitionVersionAdditionalPrinterColumns :: !(Maybe [V1CustomResourceColumnDefinition]) -- ^ "additionalPrinterColumns" - additionalPrinterColumns specifies additional columns returned in Table output. See https://kubernetes.io/docs/reference/using-api/api-concepts/#receiving-resources-as-tables for details. If no columns are specified, a single column displaying the age of the custom resource is used. + , v1CustomResourceDefinitionVersionDeprecated :: !(Maybe Bool) -- ^ "deprecated" - deprecated indicates this version of the custom resource API is deprecated. When set to true, API requests to this version receive a warning header in the server response. Defaults to false. + , v1CustomResourceDefinitionVersionDeprecationWarning :: !(Maybe Text) -- ^ "deprecationWarning" - deprecationWarning overrides the default warning returned to API clients. May only be set when `deprecated` is true. The default warning indicates this version is deprecated and recommends use of the newest served version of equal or greater stability, if one exists. + , v1CustomResourceDefinitionVersionName :: !(Text) -- ^ /Required/ "name" - name is the version name, e.g. “v1”, “v2beta1”, etc. The custom resources are served under this version at `/apis/<group>/<version>/...` if `served` is true. + , v1CustomResourceDefinitionVersionSchema :: !(Maybe V1CustomResourceValidation) -- ^ "schema" + , v1CustomResourceDefinitionVersionServed :: !(Bool) -- ^ /Required/ "served" - served is a flag enabling/disabling this version from being served via REST APIs + , v1CustomResourceDefinitionVersionStorage :: !(Bool) -- ^ /Required/ "storage" - storage indicates this version should be used when persisting custom resources to storage. There must be exactly one version with storage=true. + , v1CustomResourceDefinitionVersionSubresources :: !(Maybe V1CustomResourceSubresources) -- ^ "subresources" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceDefinitionVersion +instance A.FromJSON V1CustomResourceDefinitionVersion where + parseJSON = A.withObject "V1CustomResourceDefinitionVersion" $ \o -> + V1CustomResourceDefinitionVersion + <$> (o .:? "additionalPrinterColumns") + <*> (o .:? "deprecated") + <*> (o .:? "deprecationWarning") + <*> (o .: "name") + <*> (o .:? "schema") + <*> (o .: "served") + <*> (o .: "storage") + <*> (o .:? "subresources") + +-- | ToJSON V1CustomResourceDefinitionVersion +instance A.ToJSON V1CustomResourceDefinitionVersion where + toJSON V1CustomResourceDefinitionVersion {..} = + _omitNulls + [ "additionalPrinterColumns" .= v1CustomResourceDefinitionVersionAdditionalPrinterColumns + , "deprecated" .= v1CustomResourceDefinitionVersionDeprecated + , "deprecationWarning" .= v1CustomResourceDefinitionVersionDeprecationWarning + , "name" .= v1CustomResourceDefinitionVersionName + , "schema" .= v1CustomResourceDefinitionVersionSchema + , "served" .= v1CustomResourceDefinitionVersionServed + , "storage" .= v1CustomResourceDefinitionVersionStorage + , "subresources" .= v1CustomResourceDefinitionVersionSubresources + ] + + +-- | Construct a value of type 'V1CustomResourceDefinitionVersion' (by applying it's required fields, if any) +mkV1CustomResourceDefinitionVersion + :: Text -- ^ 'v1CustomResourceDefinitionVersionName': name is the version name, e.g. “v1”, “v2beta1”, etc. The custom resources are served under this version at `/apis///...` if `served` is true. + -> Bool -- ^ 'v1CustomResourceDefinitionVersionServed': served is a flag enabling/disabling this version from being served via REST APIs + -> Bool -- ^ 'v1CustomResourceDefinitionVersionStorage': storage indicates this version should be used when persisting custom resources to storage. There must be exactly one version with storage=true. + -> V1CustomResourceDefinitionVersion +mkV1CustomResourceDefinitionVersion v1CustomResourceDefinitionVersionName v1CustomResourceDefinitionVersionServed v1CustomResourceDefinitionVersionStorage = + V1CustomResourceDefinitionVersion + { v1CustomResourceDefinitionVersionAdditionalPrinterColumns = Nothing + , v1CustomResourceDefinitionVersionDeprecated = Nothing + , v1CustomResourceDefinitionVersionDeprecationWarning = Nothing + , v1CustomResourceDefinitionVersionName + , v1CustomResourceDefinitionVersionSchema = Nothing + , v1CustomResourceDefinitionVersionServed + , v1CustomResourceDefinitionVersionStorage + , v1CustomResourceDefinitionVersionSubresources = Nothing + } + +-- ** V1CustomResourceSubresourceScale +-- | V1CustomResourceSubresourceScale +-- CustomResourceSubresourceScale defines how to serve the scale subresource for CustomResources. +data V1CustomResourceSubresourceScale = V1CustomResourceSubresourceScale + { v1CustomResourceSubresourceScaleLabelSelectorPath :: !(Maybe Text) -- ^ "labelSelectorPath" - labelSelectorPath defines the JSON path inside of a custom resource that corresponds to Scale `status.selector`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status` or `.spec`. Must be set to work with HorizontalPodAutoscaler. The field pointed by this JSON path must be a string field (not a complex selector struct) which contains a serialized label selector in string form. More info: https://kubernetes.io/docs/tasks/access-kubernetes-api/custom-resources/custom-resource-definitions#scale-subresource If there is no value under the given path in the custom resource, the `status.selector` value in the `/scale` subresource will default to the empty string. + , v1CustomResourceSubresourceScaleSpecReplicasPath :: !(Text) -- ^ /Required/ "specReplicasPath" - specReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `spec.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.spec`. If there is no value under the given path in the custom resource, the `/scale` subresource will return an error on GET. + , v1CustomResourceSubresourceScaleStatusReplicasPath :: !(Text) -- ^ /Required/ "statusReplicasPath" - statusReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `status.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status`. If there is no value under the given path in the custom resource, the `status.replicas` value in the `/scale` subresource will default to 0. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceSubresourceScale +instance A.FromJSON V1CustomResourceSubresourceScale where + parseJSON = A.withObject "V1CustomResourceSubresourceScale" $ \o -> + V1CustomResourceSubresourceScale + <$> (o .:? "labelSelectorPath") + <*> (o .: "specReplicasPath") + <*> (o .: "statusReplicasPath") + +-- | ToJSON V1CustomResourceSubresourceScale +instance A.ToJSON V1CustomResourceSubresourceScale where + toJSON V1CustomResourceSubresourceScale {..} = + _omitNulls + [ "labelSelectorPath" .= v1CustomResourceSubresourceScaleLabelSelectorPath + , "specReplicasPath" .= v1CustomResourceSubresourceScaleSpecReplicasPath + , "statusReplicasPath" .= v1CustomResourceSubresourceScaleStatusReplicasPath + ] + + +-- | Construct a value of type 'V1CustomResourceSubresourceScale' (by applying it's required fields, if any) +mkV1CustomResourceSubresourceScale + :: Text -- ^ 'v1CustomResourceSubresourceScaleSpecReplicasPath': specReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `spec.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.spec`. If there is no value under the given path in the custom resource, the `/scale` subresource will return an error on GET. + -> Text -- ^ 'v1CustomResourceSubresourceScaleStatusReplicasPath': statusReplicasPath defines the JSON path inside of a custom resource that corresponds to Scale `status.replicas`. Only JSON paths without the array notation are allowed. Must be a JSON Path under `.status`. If there is no value under the given path in the custom resource, the `status.replicas` value in the `/scale` subresource will default to 0. + -> V1CustomResourceSubresourceScale +mkV1CustomResourceSubresourceScale v1CustomResourceSubresourceScaleSpecReplicasPath v1CustomResourceSubresourceScaleStatusReplicasPath = + V1CustomResourceSubresourceScale + { v1CustomResourceSubresourceScaleLabelSelectorPath = Nothing + , v1CustomResourceSubresourceScaleSpecReplicasPath + , v1CustomResourceSubresourceScaleStatusReplicasPath + } + +-- ** V1CustomResourceSubresources +-- | V1CustomResourceSubresources +-- CustomResourceSubresources defines the status and scale subresources for CustomResources. +data V1CustomResourceSubresources = V1CustomResourceSubresources + { v1CustomResourceSubresourcesScale :: !(Maybe V1CustomResourceSubresourceScale) -- ^ "scale" + , v1CustomResourceSubresourcesStatus :: !(Maybe A.Value) -- ^ "status" - status indicates the custom resource should serve a `/status` subresource. When enabled: 1. requests to the custom resource primary endpoint ignore changes to the `status` stanza of the object. 2. requests to the custom resource `/status` subresource ignore changes to anything other than the `status` stanza of the object. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceSubresources +instance A.FromJSON V1CustomResourceSubresources where + parseJSON = A.withObject "V1CustomResourceSubresources" $ \o -> + V1CustomResourceSubresources + <$> (o .:? "scale") + <*> (o .:? "status") + +-- | ToJSON V1CustomResourceSubresources +instance A.ToJSON V1CustomResourceSubresources where + toJSON V1CustomResourceSubresources {..} = + _omitNulls + [ "scale" .= v1CustomResourceSubresourcesScale + , "status" .= v1CustomResourceSubresourcesStatus + ] + + +-- | Construct a value of type 'V1CustomResourceSubresources' (by applying it's required fields, if any) +mkV1CustomResourceSubresources + :: V1CustomResourceSubresources +mkV1CustomResourceSubresources = + V1CustomResourceSubresources + { v1CustomResourceSubresourcesScale = Nothing + , v1CustomResourceSubresourcesStatus = Nothing + } + +-- ** V1CustomResourceValidation +-- | V1CustomResourceValidation +-- CustomResourceValidation is a list of validation methods for CustomResources. +data V1CustomResourceValidation = V1CustomResourceValidation + { v1CustomResourceValidationOpenApiv3Schema :: !(Maybe V1JSONSchemaProps) -- ^ "openAPIV3Schema" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1CustomResourceValidation +instance A.FromJSON V1CustomResourceValidation where + parseJSON = A.withObject "V1CustomResourceValidation" $ \o -> + V1CustomResourceValidation + <$> (o .:? "openAPIV3Schema") + +-- | ToJSON V1CustomResourceValidation +instance A.ToJSON V1CustomResourceValidation where + toJSON V1CustomResourceValidation {..} = + _omitNulls + [ "openAPIV3Schema" .= v1CustomResourceValidationOpenApiv3Schema + ] + + +-- | Construct a value of type 'V1CustomResourceValidation' (by applying it's required fields, if any) +mkV1CustomResourceValidation + :: V1CustomResourceValidation +mkV1CustomResourceValidation = + V1CustomResourceValidation + { v1CustomResourceValidationOpenApiv3Schema = Nothing + } + +-- ** V1DaemonEndpoint +-- | V1DaemonEndpoint +-- DaemonEndpoint contains information about a single Daemon endpoint. +data V1DaemonEndpoint = V1DaemonEndpoint + { v1DaemonEndpointPort :: !(Int) -- ^ /Required/ "Port" - Port number of the given endpoint. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonEndpoint +instance A.FromJSON V1DaemonEndpoint where + parseJSON = A.withObject "V1DaemonEndpoint" $ \o -> + V1DaemonEndpoint + <$> (o .: "Port") + +-- | ToJSON V1DaemonEndpoint +instance A.ToJSON V1DaemonEndpoint where + toJSON V1DaemonEndpoint {..} = + _omitNulls + [ "Port" .= v1DaemonEndpointPort + ] + + +-- | Construct a value of type 'V1DaemonEndpoint' (by applying it's required fields, if any) +mkV1DaemonEndpoint + :: Int -- ^ 'v1DaemonEndpointPort': Port number of the given endpoint. + -> V1DaemonEndpoint +mkV1DaemonEndpoint v1DaemonEndpointPort = + V1DaemonEndpoint + { v1DaemonEndpointPort + } + +-- ** V1DaemonSet +-- | V1DaemonSet +-- DaemonSet represents the configuration of a daemon set. +data V1DaemonSet = V1DaemonSet + { v1DaemonSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1DaemonSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1DaemonSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1DaemonSetSpec :: !(Maybe V1DaemonSetSpec) -- ^ "spec" + , v1DaemonSetStatus :: !(Maybe V1DaemonSetStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSet +instance A.FromJSON V1DaemonSet where + parseJSON = A.withObject "V1DaemonSet" $ \o -> + V1DaemonSet + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1DaemonSet +instance A.ToJSON V1DaemonSet where + toJSON V1DaemonSet {..} = + _omitNulls + [ "apiVersion" .= v1DaemonSetApiVersion + , "kind" .= v1DaemonSetKind + , "metadata" .= v1DaemonSetMetadata + , "spec" .= v1DaemonSetSpec + , "status" .= v1DaemonSetStatus + ] + + +-- | Construct a value of type 'V1DaemonSet' (by applying it's required fields, if any) +mkV1DaemonSet + :: V1DaemonSet +mkV1DaemonSet = + V1DaemonSet + { v1DaemonSetApiVersion = Nothing + , v1DaemonSetKind = Nothing + , v1DaemonSetMetadata = Nothing + , v1DaemonSetSpec = Nothing + , v1DaemonSetStatus = Nothing + } + +-- ** V1DaemonSetCondition +-- | V1DaemonSetCondition +-- DaemonSetCondition describes the state of a DaemonSet at a certain point. +data V1DaemonSetCondition = V1DaemonSetCondition + { v1DaemonSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1DaemonSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1DaemonSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. + , v1DaemonSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1DaemonSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of DaemonSet condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSetCondition +instance A.FromJSON V1DaemonSetCondition where + parseJSON = A.withObject "V1DaemonSetCondition" $ \o -> + V1DaemonSetCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1DaemonSetCondition +instance A.ToJSON V1DaemonSetCondition where + toJSON V1DaemonSetCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1DaemonSetConditionLastTransitionTime + , "message" .= v1DaemonSetConditionMessage + , "reason" .= v1DaemonSetConditionReason + , "status" .= v1DaemonSetConditionStatus + , "type" .= v1DaemonSetConditionType + ] + + +-- | Construct a value of type 'V1DaemonSetCondition' (by applying it's required fields, if any) +mkV1DaemonSetCondition + :: Text -- ^ 'v1DaemonSetConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1DaemonSetConditionType': Type of DaemonSet condition. + -> V1DaemonSetCondition +mkV1DaemonSetCondition v1DaemonSetConditionStatus v1DaemonSetConditionType = + V1DaemonSetCondition + { v1DaemonSetConditionLastTransitionTime = Nothing + , v1DaemonSetConditionMessage = Nothing + , v1DaemonSetConditionReason = Nothing + , v1DaemonSetConditionStatus + , v1DaemonSetConditionType + } + +-- ** V1DaemonSetList +-- | V1DaemonSetList +-- DaemonSetList is a collection of daemon sets. +data V1DaemonSetList = V1DaemonSetList + { v1DaemonSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1DaemonSetListItems :: !([V1DaemonSet]) -- ^ /Required/ "items" - A list of daemon sets. + , v1DaemonSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1DaemonSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSetList +instance A.FromJSON V1DaemonSetList where + parseJSON = A.withObject "V1DaemonSetList" $ \o -> + V1DaemonSetList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1DaemonSetList +instance A.ToJSON V1DaemonSetList where + toJSON V1DaemonSetList {..} = + _omitNulls + [ "apiVersion" .= v1DaemonSetListApiVersion + , "items" .= v1DaemonSetListItems + , "kind" .= v1DaemonSetListKind + , "metadata" .= v1DaemonSetListMetadata + ] + + +-- | Construct a value of type 'V1DaemonSetList' (by applying it's required fields, if any) +mkV1DaemonSetList + :: [V1DaemonSet] -- ^ 'v1DaemonSetListItems': A list of daemon sets. + -> V1DaemonSetList +mkV1DaemonSetList v1DaemonSetListItems = + V1DaemonSetList + { v1DaemonSetListApiVersion = Nothing + , v1DaemonSetListItems + , v1DaemonSetListKind = Nothing + , v1DaemonSetListMetadata = Nothing + } + +-- ** V1DaemonSetSpec +-- | V1DaemonSetSpec +-- DaemonSetSpec is the specification of a daemon set. +data V1DaemonSetSpec = V1DaemonSetSpec + { v1DaemonSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - The minimum number of seconds for which a newly created DaemonSet pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready). + , v1DaemonSetSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - The number of old history to retain to allow rollback. This is a pointer to distinguish between explicit zero and not specified. Defaults to 10. + , v1DaemonSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" + , v1DaemonSetSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" + , v1DaemonSetSpecUpdateStrategy :: !(Maybe V1DaemonSetUpdateStrategy) -- ^ "updateStrategy" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSetSpec +instance A.FromJSON V1DaemonSetSpec where + parseJSON = A.withObject "V1DaemonSetSpec" $ \o -> + V1DaemonSetSpec + <$> (o .:? "minReadySeconds") + <*> (o .:? "revisionHistoryLimit") + <*> (o .: "selector") + <*> (o .: "template") + <*> (o .:? "updateStrategy") + +-- | ToJSON V1DaemonSetSpec +instance A.ToJSON V1DaemonSetSpec where + toJSON V1DaemonSetSpec {..} = + _omitNulls + [ "minReadySeconds" .= v1DaemonSetSpecMinReadySeconds + , "revisionHistoryLimit" .= v1DaemonSetSpecRevisionHistoryLimit + , "selector" .= v1DaemonSetSpecSelector + , "template" .= v1DaemonSetSpecTemplate + , "updateStrategy" .= v1DaemonSetSpecUpdateStrategy + ] + + +-- | Construct a value of type 'V1DaemonSetSpec' (by applying it's required fields, if any) +mkV1DaemonSetSpec + :: V1LabelSelector -- ^ 'v1DaemonSetSpecSelector' + -> V1PodTemplateSpec -- ^ 'v1DaemonSetSpecTemplate' + -> V1DaemonSetSpec +mkV1DaemonSetSpec v1DaemonSetSpecSelector v1DaemonSetSpecTemplate = + V1DaemonSetSpec + { v1DaemonSetSpecMinReadySeconds = Nothing + , v1DaemonSetSpecRevisionHistoryLimit = Nothing + , v1DaemonSetSpecSelector + , v1DaemonSetSpecTemplate + , v1DaemonSetSpecUpdateStrategy = Nothing + } + +-- ** V1DaemonSetStatus +-- | V1DaemonSetStatus +-- DaemonSetStatus represents the current status of a daemon set. +data V1DaemonSetStatus = V1DaemonSetStatus + { v1DaemonSetStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - Count of hash collisions for the DaemonSet. The DaemonSet controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ControllerRevision. + , v1DaemonSetStatusConditions :: !(Maybe [V1DaemonSetCondition]) -- ^ "conditions" - Represents the latest available observations of a DaemonSet's current state. + , v1DaemonSetStatusCurrentNumberScheduled :: !(Int) -- ^ /Required/ "currentNumberScheduled" - The number of nodes that are running at least 1 daemon pod and are supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + , v1DaemonSetStatusDesiredNumberScheduled :: !(Int) -- ^ /Required/ "desiredNumberScheduled" - The total number of nodes that should be running the daemon pod (including nodes correctly running the daemon pod). More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + , v1DaemonSetStatusNumberAvailable :: !(Maybe Int) -- ^ "numberAvailable" - The number of nodes that should be running the daemon pod and have one or more of the daemon pod running and available (ready for at least spec.minReadySeconds) + , v1DaemonSetStatusNumberMisscheduled :: !(Int) -- ^ /Required/ "numberMisscheduled" - The number of nodes that are running the daemon pod, but are not supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + , v1DaemonSetStatusNumberReady :: !(Int) -- ^ /Required/ "numberReady" - numberReady is the number of nodes that should be running the daemon pod and have one or more of the daemon pod running with a Ready Condition. + , v1DaemonSetStatusNumberUnavailable :: !(Maybe Int) -- ^ "numberUnavailable" - The number of nodes that should be running the daemon pod and have none of the daemon pod running and available (ready for at least spec.minReadySeconds) + , v1DaemonSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - The most recent generation observed by the daemon set controller. + , v1DaemonSetStatusUpdatedNumberScheduled :: !(Maybe Int) -- ^ "updatedNumberScheduled" - The total number of nodes that are running updated daemon pod + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSetStatus +instance A.FromJSON V1DaemonSetStatus where + parseJSON = A.withObject "V1DaemonSetStatus" $ \o -> + V1DaemonSetStatus + <$> (o .:? "collisionCount") + <*> (o .:? "conditions") + <*> (o .: "currentNumberScheduled") + <*> (o .: "desiredNumberScheduled") + <*> (o .:? "numberAvailable") + <*> (o .: "numberMisscheduled") + <*> (o .: "numberReady") + <*> (o .:? "numberUnavailable") + <*> (o .:? "observedGeneration") + <*> (o .:? "updatedNumberScheduled") + +-- | ToJSON V1DaemonSetStatus +instance A.ToJSON V1DaemonSetStatus where + toJSON V1DaemonSetStatus {..} = + _omitNulls + [ "collisionCount" .= v1DaemonSetStatusCollisionCount + , "conditions" .= v1DaemonSetStatusConditions + , "currentNumberScheduled" .= v1DaemonSetStatusCurrentNumberScheduled + , "desiredNumberScheduled" .= v1DaemonSetStatusDesiredNumberScheduled + , "numberAvailable" .= v1DaemonSetStatusNumberAvailable + , "numberMisscheduled" .= v1DaemonSetStatusNumberMisscheduled + , "numberReady" .= v1DaemonSetStatusNumberReady + , "numberUnavailable" .= v1DaemonSetStatusNumberUnavailable + , "observedGeneration" .= v1DaemonSetStatusObservedGeneration + , "updatedNumberScheduled" .= v1DaemonSetStatusUpdatedNumberScheduled + ] + + +-- | Construct a value of type 'V1DaemonSetStatus' (by applying it's required fields, if any) +mkV1DaemonSetStatus + :: Int -- ^ 'v1DaemonSetStatusCurrentNumberScheduled': The number of nodes that are running at least 1 daemon pod and are supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + -> Int -- ^ 'v1DaemonSetStatusDesiredNumberScheduled': The total number of nodes that should be running the daemon pod (including nodes correctly running the daemon pod). More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + -> Int -- ^ 'v1DaemonSetStatusNumberMisscheduled': The number of nodes that are running the daemon pod, but are not supposed to run the daemon pod. More info: https://kubernetes.io/docs/concepts/workloads/controllers/daemonset/ + -> Int -- ^ 'v1DaemonSetStatusNumberReady': numberReady is the number of nodes that should be running the daemon pod and have one or more of the daemon pod running with a Ready Condition. + -> V1DaemonSetStatus +mkV1DaemonSetStatus v1DaemonSetStatusCurrentNumberScheduled v1DaemonSetStatusDesiredNumberScheduled v1DaemonSetStatusNumberMisscheduled v1DaemonSetStatusNumberReady = + V1DaemonSetStatus + { v1DaemonSetStatusCollisionCount = Nothing + , v1DaemonSetStatusConditions = Nothing + , v1DaemonSetStatusCurrentNumberScheduled + , v1DaemonSetStatusDesiredNumberScheduled + , v1DaemonSetStatusNumberAvailable = Nothing + , v1DaemonSetStatusNumberMisscheduled + , v1DaemonSetStatusNumberReady + , v1DaemonSetStatusNumberUnavailable = Nothing + , v1DaemonSetStatusObservedGeneration = Nothing + , v1DaemonSetStatusUpdatedNumberScheduled = Nothing + } + +-- ** V1DaemonSetUpdateStrategy +-- | V1DaemonSetUpdateStrategy +-- DaemonSetUpdateStrategy is a struct used to control the update strategy for a DaemonSet. +data V1DaemonSetUpdateStrategy = V1DaemonSetUpdateStrategy + { v1DaemonSetUpdateStrategyRollingUpdate :: !(Maybe V1RollingUpdateDaemonSet) -- ^ "rollingUpdate" + , v1DaemonSetUpdateStrategyType :: !(Maybe Text) -- ^ "type" - Type of daemon set update. Can be \"RollingUpdate\" or \"OnDelete\". Default is RollingUpdate. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DaemonSetUpdateStrategy +instance A.FromJSON V1DaemonSetUpdateStrategy where + parseJSON = A.withObject "V1DaemonSetUpdateStrategy" $ \o -> + V1DaemonSetUpdateStrategy + <$> (o .:? "rollingUpdate") + <*> (o .:? "type") + +-- | ToJSON V1DaemonSetUpdateStrategy +instance A.ToJSON V1DaemonSetUpdateStrategy where + toJSON V1DaemonSetUpdateStrategy {..} = + _omitNulls + [ "rollingUpdate" .= v1DaemonSetUpdateStrategyRollingUpdate + , "type" .= v1DaemonSetUpdateStrategyType + ] + + +-- | Construct a value of type 'V1DaemonSetUpdateStrategy' (by applying it's required fields, if any) +mkV1DaemonSetUpdateStrategy + :: V1DaemonSetUpdateStrategy +mkV1DaemonSetUpdateStrategy = + V1DaemonSetUpdateStrategy + { v1DaemonSetUpdateStrategyRollingUpdate = Nothing + , v1DaemonSetUpdateStrategyType = Nothing + } + +-- ** V1DeleteOptions +-- | V1DeleteOptions +-- DeleteOptions may be provided when deleting an API object. +data V1DeleteOptions = V1DeleteOptions + { v1DeleteOptionsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1DeleteOptionsDryRun :: !(Maybe [Text]) -- ^ "dryRun" - When present, indicates that modifications should not be persisted. An invalid or unrecognized dryRun directive will result in an error response and no further processing of the request. Valid values are: - All: all dry run stages will be processed + , v1DeleteOptionsGracePeriodSeconds :: !(Maybe Integer) -- ^ "gracePeriodSeconds" - The duration in seconds before the object should be deleted. Value must be non-negative integer. The value zero indicates delete immediately. If this value is nil, the default grace period for the specified type will be used. Defaults to a per object value if not specified. zero means delete immediately. + , v1DeleteOptionsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1DeleteOptionsOrphanDependents :: !(Maybe Bool) -- ^ "orphanDependents" - Deprecated: please use the PropagationPolicy, this field will be deprecated in 1.7. Should the dependent objects be orphaned. If true/false, the \"orphan\" finalizer will be added to/removed from the object's finalizers list. Either this field or PropagationPolicy may be set, but not both. + , v1DeleteOptionsPreconditions :: !(Maybe V1Preconditions) -- ^ "preconditions" + , v1DeleteOptionsPropagationPolicy :: !(Maybe Text) -- ^ "propagationPolicy" - Whether and how garbage collection will be performed. Either this field or OrphanDependents may be set, but not both. The default policy is decided by the existing finalizer set in the metadata.finalizers and the resource-specific default policy. Acceptable values are: 'Orphan' - orphan the dependents; 'Background' - allow the garbage collector to delete the dependents in the background; 'Foreground' - a cascading policy that deletes all dependents in the foreground. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeleteOptions +instance A.FromJSON V1DeleteOptions where + parseJSON = A.withObject "V1DeleteOptions" $ \o -> + V1DeleteOptions + <$> (o .:? "apiVersion") + <*> (o .:? "dryRun") + <*> (o .:? "gracePeriodSeconds") + <*> (o .:? "kind") + <*> (o .:? "orphanDependents") + <*> (o .:? "preconditions") + <*> (o .:? "propagationPolicy") + +-- | ToJSON V1DeleteOptions +instance A.ToJSON V1DeleteOptions where + toJSON V1DeleteOptions {..} = + _omitNulls + [ "apiVersion" .= v1DeleteOptionsApiVersion + , "dryRun" .= v1DeleteOptionsDryRun + , "gracePeriodSeconds" .= v1DeleteOptionsGracePeriodSeconds + , "kind" .= v1DeleteOptionsKind + , "orphanDependents" .= v1DeleteOptionsOrphanDependents + , "preconditions" .= v1DeleteOptionsPreconditions + , "propagationPolicy" .= v1DeleteOptionsPropagationPolicy + ] + + +-- | Construct a value of type 'V1DeleteOptions' (by applying it's required fields, if any) +mkV1DeleteOptions + :: V1DeleteOptions +mkV1DeleteOptions = + V1DeleteOptions + { v1DeleteOptionsApiVersion = Nothing + , v1DeleteOptionsDryRun = Nothing + , v1DeleteOptionsGracePeriodSeconds = Nothing + , v1DeleteOptionsKind = Nothing + , v1DeleteOptionsOrphanDependents = Nothing + , v1DeleteOptionsPreconditions = Nothing + , v1DeleteOptionsPropagationPolicy = Nothing + } + +-- ** V1Deployment +-- | V1Deployment +-- Deployment enables declarative updates for Pods and ReplicaSets. +data V1Deployment = V1Deployment + { v1DeploymentApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1DeploymentKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1DeploymentMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1DeploymentSpec :: !(Maybe V1DeploymentSpec) -- ^ "spec" + , v1DeploymentStatus :: !(Maybe V1DeploymentStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Deployment +instance A.FromJSON V1Deployment where + parseJSON = A.withObject "V1Deployment" $ \o -> + V1Deployment + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Deployment +instance A.ToJSON V1Deployment where + toJSON V1Deployment {..} = + _omitNulls + [ "apiVersion" .= v1DeploymentApiVersion + , "kind" .= v1DeploymentKind + , "metadata" .= v1DeploymentMetadata + , "spec" .= v1DeploymentSpec + , "status" .= v1DeploymentStatus + ] + + +-- | Construct a value of type 'V1Deployment' (by applying it's required fields, if any) +mkV1Deployment + :: V1Deployment +mkV1Deployment = + V1Deployment + { v1DeploymentApiVersion = Nothing + , v1DeploymentKind = Nothing + , v1DeploymentMetadata = Nothing + , v1DeploymentSpec = Nothing + , v1DeploymentStatus = Nothing + } + +-- ** V1DeploymentCondition +-- | V1DeploymentCondition +-- DeploymentCondition describes the state of a deployment at a certain point. +data V1DeploymentCondition = V1DeploymentCondition + { v1DeploymentConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1DeploymentConditionLastUpdateTime :: !(Maybe DateTime) -- ^ "lastUpdateTime" - The last time this condition was updated. + , v1DeploymentConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1DeploymentConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. + , v1DeploymentConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1DeploymentConditionType :: !(Text) -- ^ /Required/ "type" - Type of deployment condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeploymentCondition +instance A.FromJSON V1DeploymentCondition where + parseJSON = A.withObject "V1DeploymentCondition" $ \o -> + V1DeploymentCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "lastUpdateTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1DeploymentCondition +instance A.ToJSON V1DeploymentCondition where + toJSON V1DeploymentCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1DeploymentConditionLastTransitionTime + , "lastUpdateTime" .= v1DeploymentConditionLastUpdateTime + , "message" .= v1DeploymentConditionMessage + , "reason" .= v1DeploymentConditionReason + , "status" .= v1DeploymentConditionStatus + , "type" .= v1DeploymentConditionType + ] + + +-- | Construct a value of type 'V1DeploymentCondition' (by applying it's required fields, if any) +mkV1DeploymentCondition + :: Text -- ^ 'v1DeploymentConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1DeploymentConditionType': Type of deployment condition. + -> V1DeploymentCondition +mkV1DeploymentCondition v1DeploymentConditionStatus v1DeploymentConditionType = + V1DeploymentCondition + { v1DeploymentConditionLastTransitionTime = Nothing + , v1DeploymentConditionLastUpdateTime = Nothing + , v1DeploymentConditionMessage = Nothing + , v1DeploymentConditionReason = Nothing + , v1DeploymentConditionStatus + , v1DeploymentConditionType + } + +-- ** V1DeploymentList +-- | V1DeploymentList +-- DeploymentList is a list of Deployments. +data V1DeploymentList = V1DeploymentList + { v1DeploymentListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1DeploymentListItems :: !([V1Deployment]) -- ^ /Required/ "items" - Items is the list of Deployments. + , v1DeploymentListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1DeploymentListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeploymentList +instance A.FromJSON V1DeploymentList where + parseJSON = A.withObject "V1DeploymentList" $ \o -> + V1DeploymentList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1DeploymentList +instance A.ToJSON V1DeploymentList where + toJSON V1DeploymentList {..} = + _omitNulls + [ "apiVersion" .= v1DeploymentListApiVersion + , "items" .= v1DeploymentListItems + , "kind" .= v1DeploymentListKind + , "metadata" .= v1DeploymentListMetadata + ] + + +-- | Construct a value of type 'V1DeploymentList' (by applying it's required fields, if any) +mkV1DeploymentList + :: [V1Deployment] -- ^ 'v1DeploymentListItems': Items is the list of Deployments. + -> V1DeploymentList +mkV1DeploymentList v1DeploymentListItems = + V1DeploymentList + { v1DeploymentListApiVersion = Nothing + , v1DeploymentListItems + , v1DeploymentListKind = Nothing + , v1DeploymentListMetadata = Nothing + } + +-- ** V1DeploymentSpec +-- | V1DeploymentSpec +-- DeploymentSpec is the specification of the desired behavior of the Deployment. +data V1DeploymentSpec = V1DeploymentSpec + { v1DeploymentSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) + , v1DeploymentSpecPaused :: !(Maybe Bool) -- ^ "paused" - Indicates that the deployment is paused. + , v1DeploymentSpecProgressDeadlineSeconds :: !(Maybe Int) -- ^ "progressDeadlineSeconds" - The maximum time in seconds for a deployment to make progress before it is considered to be failed. The deployment controller will continue to process failed deployments and a condition with a ProgressDeadlineExceeded reason will be surfaced in the deployment status. Note that progress will not be estimated during the time a deployment is paused. Defaults to 600s. + , v1DeploymentSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Number of desired pods. This is a pointer to distinguish between explicit zero and not specified. Defaults to 1. + , v1DeploymentSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - The number of old ReplicaSets to retain to allow rollback. This is a pointer to distinguish between explicit zero and not specified. Defaults to 10. + , v1DeploymentSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" + , v1DeploymentSpecStrategy :: !(Maybe V1DeploymentStrategy) -- ^ "strategy" + , v1DeploymentSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeploymentSpec +instance A.FromJSON V1DeploymentSpec where + parseJSON = A.withObject "V1DeploymentSpec" $ \o -> + V1DeploymentSpec + <$> (o .:? "minReadySeconds") + <*> (o .:? "paused") + <*> (o .:? "progressDeadlineSeconds") + <*> (o .:? "replicas") + <*> (o .:? "revisionHistoryLimit") + <*> (o .: "selector") + <*> (o .:? "strategy") + <*> (o .: "template") + +-- | ToJSON V1DeploymentSpec +instance A.ToJSON V1DeploymentSpec where + toJSON V1DeploymentSpec {..} = + _omitNulls + [ "minReadySeconds" .= v1DeploymentSpecMinReadySeconds + , "paused" .= v1DeploymentSpecPaused + , "progressDeadlineSeconds" .= v1DeploymentSpecProgressDeadlineSeconds + , "replicas" .= v1DeploymentSpecReplicas + , "revisionHistoryLimit" .= v1DeploymentSpecRevisionHistoryLimit + , "selector" .= v1DeploymentSpecSelector + , "strategy" .= v1DeploymentSpecStrategy + , "template" .= v1DeploymentSpecTemplate + ] + + +-- | Construct a value of type 'V1DeploymentSpec' (by applying it's required fields, if any) +mkV1DeploymentSpec + :: V1LabelSelector -- ^ 'v1DeploymentSpecSelector' + -> V1PodTemplateSpec -- ^ 'v1DeploymentSpecTemplate' + -> V1DeploymentSpec +mkV1DeploymentSpec v1DeploymentSpecSelector v1DeploymentSpecTemplate = + V1DeploymentSpec + { v1DeploymentSpecMinReadySeconds = Nothing + , v1DeploymentSpecPaused = Nothing + , v1DeploymentSpecProgressDeadlineSeconds = Nothing + , v1DeploymentSpecReplicas = Nothing + , v1DeploymentSpecRevisionHistoryLimit = Nothing + , v1DeploymentSpecSelector + , v1DeploymentSpecStrategy = Nothing + , v1DeploymentSpecTemplate + } + +-- ** V1DeploymentStatus +-- | V1DeploymentStatus +-- DeploymentStatus is the most recently observed status of the Deployment. +data V1DeploymentStatus = V1DeploymentStatus + { v1DeploymentStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - Total number of available pods (ready for at least minReadySeconds) targeted by this deployment. + , v1DeploymentStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - Count of hash collisions for the Deployment. The Deployment controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ReplicaSet. + , v1DeploymentStatusConditions :: !(Maybe [V1DeploymentCondition]) -- ^ "conditions" - Represents the latest available observations of a deployment's current state. + , v1DeploymentStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - The generation observed by the deployment controller. + , v1DeploymentStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods targeted by this Deployment with a Ready Condition. + , v1DeploymentStatusReplicas :: !(Maybe Int) -- ^ "replicas" - Total number of non-terminated pods targeted by this deployment (their labels match the selector). + , v1DeploymentStatusUnavailableReplicas :: !(Maybe Int) -- ^ "unavailableReplicas" - Total number of unavailable pods targeted by this deployment. This is the total number of pods that are still required for the deployment to have 100% available capacity. They may either be pods that are running but not yet available or pods that still have not been created. + , v1DeploymentStatusUpdatedReplicas :: !(Maybe Int) -- ^ "updatedReplicas" - Total number of non-terminated pods targeted by this deployment that have the desired template spec. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeploymentStatus +instance A.FromJSON V1DeploymentStatus where + parseJSON = A.withObject "V1DeploymentStatus" $ \o -> + V1DeploymentStatus + <$> (o .:? "availableReplicas") + <*> (o .:? "collisionCount") + <*> (o .:? "conditions") + <*> (o .:? "observedGeneration") + <*> (o .:? "readyReplicas") + <*> (o .:? "replicas") + <*> (o .:? "unavailableReplicas") + <*> (o .:? "updatedReplicas") + +-- | ToJSON V1DeploymentStatus +instance A.ToJSON V1DeploymentStatus where + toJSON V1DeploymentStatus {..} = + _omitNulls + [ "availableReplicas" .= v1DeploymentStatusAvailableReplicas + , "collisionCount" .= v1DeploymentStatusCollisionCount + , "conditions" .= v1DeploymentStatusConditions + , "observedGeneration" .= v1DeploymentStatusObservedGeneration + , "readyReplicas" .= v1DeploymentStatusReadyReplicas + , "replicas" .= v1DeploymentStatusReplicas + , "unavailableReplicas" .= v1DeploymentStatusUnavailableReplicas + , "updatedReplicas" .= v1DeploymentStatusUpdatedReplicas + ] + + +-- | Construct a value of type 'V1DeploymentStatus' (by applying it's required fields, if any) +mkV1DeploymentStatus + :: V1DeploymentStatus +mkV1DeploymentStatus = + V1DeploymentStatus + { v1DeploymentStatusAvailableReplicas = Nothing + , v1DeploymentStatusCollisionCount = Nothing + , v1DeploymentStatusConditions = Nothing + , v1DeploymentStatusObservedGeneration = Nothing + , v1DeploymentStatusReadyReplicas = Nothing + , v1DeploymentStatusReplicas = Nothing + , v1DeploymentStatusUnavailableReplicas = Nothing + , v1DeploymentStatusUpdatedReplicas = Nothing + } + +-- ** V1DeploymentStrategy +-- | V1DeploymentStrategy +-- DeploymentStrategy describes how to replace existing pods with new ones. +data V1DeploymentStrategy = V1DeploymentStrategy + { v1DeploymentStrategyRollingUpdate :: !(Maybe V1RollingUpdateDeployment) -- ^ "rollingUpdate" + , v1DeploymentStrategyType :: !(Maybe Text) -- ^ "type" - Type of deployment. Can be \"Recreate\" or \"RollingUpdate\". Default is RollingUpdate. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DeploymentStrategy +instance A.FromJSON V1DeploymentStrategy where + parseJSON = A.withObject "V1DeploymentStrategy" $ \o -> + V1DeploymentStrategy + <$> (o .:? "rollingUpdate") + <*> (o .:? "type") + +-- | ToJSON V1DeploymentStrategy +instance A.ToJSON V1DeploymentStrategy where + toJSON V1DeploymentStrategy {..} = + _omitNulls + [ "rollingUpdate" .= v1DeploymentStrategyRollingUpdate + , "type" .= v1DeploymentStrategyType + ] + + +-- | Construct a value of type 'V1DeploymentStrategy' (by applying it's required fields, if any) +mkV1DeploymentStrategy + :: V1DeploymentStrategy +mkV1DeploymentStrategy = + V1DeploymentStrategy + { v1DeploymentStrategyRollingUpdate = Nothing + , v1DeploymentStrategyType = Nothing + } + +-- ** V1DownwardAPIProjection +-- | V1DownwardAPIProjection +-- Represents downward API info for projecting into a projected volume. Note that this is identical to a downwardAPI volume source without the default mode. +data V1DownwardAPIProjection = V1DownwardAPIProjection + { v1DownwardAPIProjectionItems :: !(Maybe [V1DownwardAPIVolumeFile]) -- ^ "items" - Items is a list of DownwardAPIVolume file + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DownwardAPIProjection +instance A.FromJSON V1DownwardAPIProjection where + parseJSON = A.withObject "V1DownwardAPIProjection" $ \o -> + V1DownwardAPIProjection + <$> (o .:? "items") + +-- | ToJSON V1DownwardAPIProjection +instance A.ToJSON V1DownwardAPIProjection where + toJSON V1DownwardAPIProjection {..} = + _omitNulls + [ "items" .= v1DownwardAPIProjectionItems + ] + + +-- | Construct a value of type 'V1DownwardAPIProjection' (by applying it's required fields, if any) +mkV1DownwardAPIProjection + :: V1DownwardAPIProjection +mkV1DownwardAPIProjection = + V1DownwardAPIProjection + { v1DownwardAPIProjectionItems = Nothing + } + +-- ** V1DownwardAPIVolumeFile +-- | V1DownwardAPIVolumeFile +-- DownwardAPIVolumeFile represents information to create the file containing the pod field +data V1DownwardAPIVolumeFile = V1DownwardAPIVolumeFile + { v1DownwardAPIVolumeFileFieldRef :: !(Maybe V1ObjectFieldSelector) -- ^ "fieldRef" + , v1DownwardAPIVolumeFileMode :: !(Maybe Int) -- ^ "mode" - Optional: mode bits used to set permissions on this file, must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. If not specified, the volume defaultMode will be used. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1DownwardAPIVolumeFilePath :: !(Text) -- ^ /Required/ "path" - Required: Path is the relative path name of the file to be created. Must not be absolute or contain the '..' path. Must be utf-8 encoded. The first item of the relative path must not start with '..' + , v1DownwardAPIVolumeFileResourceFieldRef :: !(Maybe V1ResourceFieldSelector) -- ^ "resourceFieldRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DownwardAPIVolumeFile +instance A.FromJSON V1DownwardAPIVolumeFile where + parseJSON = A.withObject "V1DownwardAPIVolumeFile" $ \o -> + V1DownwardAPIVolumeFile + <$> (o .:? "fieldRef") + <*> (o .:? "mode") + <*> (o .: "path") + <*> (o .:? "resourceFieldRef") + +-- | ToJSON V1DownwardAPIVolumeFile +instance A.ToJSON V1DownwardAPIVolumeFile where + toJSON V1DownwardAPIVolumeFile {..} = + _omitNulls + [ "fieldRef" .= v1DownwardAPIVolumeFileFieldRef + , "mode" .= v1DownwardAPIVolumeFileMode + , "path" .= v1DownwardAPIVolumeFilePath + , "resourceFieldRef" .= v1DownwardAPIVolumeFileResourceFieldRef + ] + + +-- | Construct a value of type 'V1DownwardAPIVolumeFile' (by applying it's required fields, if any) +mkV1DownwardAPIVolumeFile + :: Text -- ^ 'v1DownwardAPIVolumeFilePath': Required: Path is the relative path name of the file to be created. Must not be absolute or contain the '..' path. Must be utf-8 encoded. The first item of the relative path must not start with '..' + -> V1DownwardAPIVolumeFile +mkV1DownwardAPIVolumeFile v1DownwardAPIVolumeFilePath = + V1DownwardAPIVolumeFile + { v1DownwardAPIVolumeFileFieldRef = Nothing + , v1DownwardAPIVolumeFileMode = Nothing + , v1DownwardAPIVolumeFilePath + , v1DownwardAPIVolumeFileResourceFieldRef = Nothing + } + +-- ** V1DownwardAPIVolumeSource +-- | V1DownwardAPIVolumeSource +-- DownwardAPIVolumeSource represents a volume containing downward API info. Downward API volumes support ownership management and SELinux relabeling. +data V1DownwardAPIVolumeSource = V1DownwardAPIVolumeSource + { v1DownwardAPIVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - Optional: mode bits to use on created files by default. Must be a Optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1DownwardAPIVolumeSourceItems :: !(Maybe [V1DownwardAPIVolumeFile]) -- ^ "items" - Items is a list of downward API volume file + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1DownwardAPIVolumeSource +instance A.FromJSON V1DownwardAPIVolumeSource where + parseJSON = A.withObject "V1DownwardAPIVolumeSource" $ \o -> + V1DownwardAPIVolumeSource + <$> (o .:? "defaultMode") + <*> (o .:? "items") + +-- | ToJSON V1DownwardAPIVolumeSource +instance A.ToJSON V1DownwardAPIVolumeSource where + toJSON V1DownwardAPIVolumeSource {..} = + _omitNulls + [ "defaultMode" .= v1DownwardAPIVolumeSourceDefaultMode + , "items" .= v1DownwardAPIVolumeSourceItems + ] + + +-- | Construct a value of type 'V1DownwardAPIVolumeSource' (by applying it's required fields, if any) +mkV1DownwardAPIVolumeSource + :: V1DownwardAPIVolumeSource +mkV1DownwardAPIVolumeSource = + V1DownwardAPIVolumeSource + { v1DownwardAPIVolumeSourceDefaultMode = Nothing + , v1DownwardAPIVolumeSourceItems = Nothing + } + +-- ** V1EmptyDirVolumeSource +-- | V1EmptyDirVolumeSource +-- Represents an empty directory for a pod. Empty directory volumes support ownership management and SELinux relabeling. +data V1EmptyDirVolumeSource = V1EmptyDirVolumeSource + { v1EmptyDirVolumeSourceMedium :: !(Maybe Text) -- ^ "medium" - medium represents what type of storage medium should back this directory. The default is \"\" which means to use the node's default medium. Must be an empty string (default) or Memory. More info: https://kubernetes.io/docs/concepts/storage/volumes#emptydir + , v1EmptyDirVolumeSourceSizeLimit :: !(Maybe Quantity) -- ^ "sizeLimit" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EmptyDirVolumeSource +instance A.FromJSON V1EmptyDirVolumeSource where + parseJSON = A.withObject "V1EmptyDirVolumeSource" $ \o -> + V1EmptyDirVolumeSource + <$> (o .:? "medium") + <*> (o .:? "sizeLimit") + +-- | ToJSON V1EmptyDirVolumeSource +instance A.ToJSON V1EmptyDirVolumeSource where + toJSON V1EmptyDirVolumeSource {..} = + _omitNulls + [ "medium" .= v1EmptyDirVolumeSourceMedium + , "sizeLimit" .= v1EmptyDirVolumeSourceSizeLimit + ] + + +-- | Construct a value of type 'V1EmptyDirVolumeSource' (by applying it's required fields, if any) +mkV1EmptyDirVolumeSource + :: V1EmptyDirVolumeSource +mkV1EmptyDirVolumeSource = + V1EmptyDirVolumeSource + { v1EmptyDirVolumeSourceMedium = Nothing + , v1EmptyDirVolumeSourceSizeLimit = Nothing + } + +-- ** V1Endpoint +-- | V1Endpoint +-- Endpoint represents a single logical \"backend\" implementing a service. +data V1Endpoint = V1Endpoint + { v1EndpointAddresses :: !([Text]) -- ^ /Required/ "addresses" - addresses of this endpoint. The contents of this field are interpreted according to the corresponding EndpointSlice addressType field. Consumers must handle different types of addresses in the context of their own capabilities. This must contain at least one address but no more than 100. These are all assumed to be fungible and clients may choose to only use the first element. Refer to: https://issue.k8s.io/106267 + , v1EndpointConditions :: !(Maybe V1EndpointConditions) -- ^ "conditions" + , v1EndpointDeprecatedTopology :: !(Maybe (Map.Map String Text)) -- ^ "deprecatedTopology" - deprecatedTopology contains topology information part of the v1beta1 API. This field is deprecated, and will be removed when the v1beta1 API is removed (no sooner than kubernetes v1.24). While this field can hold values, it is not writable through the v1 API, and any attempts to write to it will be silently ignored. Topology information can be found in the zone and nodeName fields instead. + , v1EndpointHints :: !(Maybe V1EndpointHints) -- ^ "hints" + , v1EndpointHostname :: !(Maybe Text) -- ^ "hostname" - hostname of this endpoint. This field may be used by consumers of endpoints to distinguish endpoints from each other (e.g. in DNS names). Multiple endpoints which use the same hostname should be considered fungible (e.g. multiple A values in DNS). Must be lowercase and pass DNS Label (RFC 1123) validation. + , v1EndpointNodeName :: !(Maybe Text) -- ^ "nodeName" - nodeName represents the name of the Node hosting this endpoint. This can be used to determine endpoints local to a Node. + , v1EndpointTargetRef :: !(Maybe V1ObjectReference) -- ^ "targetRef" + , v1EndpointZone :: !(Maybe Text) -- ^ "zone" - zone is the name of the Zone this endpoint exists in. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Endpoint +instance A.FromJSON V1Endpoint where + parseJSON = A.withObject "V1Endpoint" $ \o -> + V1Endpoint + <$> (o .: "addresses") + <*> (o .:? "conditions") + <*> (o .:? "deprecatedTopology") + <*> (o .:? "hints") + <*> (o .:? "hostname") + <*> (o .:? "nodeName") + <*> (o .:? "targetRef") + <*> (o .:? "zone") + +-- | ToJSON V1Endpoint +instance A.ToJSON V1Endpoint where + toJSON V1Endpoint {..} = + _omitNulls + [ "addresses" .= v1EndpointAddresses + , "conditions" .= v1EndpointConditions + , "deprecatedTopology" .= v1EndpointDeprecatedTopology + , "hints" .= v1EndpointHints + , "hostname" .= v1EndpointHostname + , "nodeName" .= v1EndpointNodeName + , "targetRef" .= v1EndpointTargetRef + , "zone" .= v1EndpointZone + ] + + +-- | Construct a value of type 'V1Endpoint' (by applying it's required fields, if any) +mkV1Endpoint + :: [Text] -- ^ 'v1EndpointAddresses': addresses of this endpoint. The contents of this field are interpreted according to the corresponding EndpointSlice addressType field. Consumers must handle different types of addresses in the context of their own capabilities. This must contain at least one address but no more than 100. These are all assumed to be fungible and clients may choose to only use the first element. Refer to: https://issue.k8s.io/106267 + -> V1Endpoint +mkV1Endpoint v1EndpointAddresses = + V1Endpoint + { v1EndpointAddresses + , v1EndpointConditions = Nothing + , v1EndpointDeprecatedTopology = Nothing + , v1EndpointHints = Nothing + , v1EndpointHostname = Nothing + , v1EndpointNodeName = Nothing + , v1EndpointTargetRef = Nothing + , v1EndpointZone = Nothing + } + +-- ** V1EndpointAddress +-- | V1EndpointAddress +-- EndpointAddress is a tuple that describes single IP address. +data V1EndpointAddress = V1EndpointAddress + { v1EndpointAddressHostname :: !(Maybe Text) -- ^ "hostname" - The Hostname of this endpoint + , v1EndpointAddressIp :: !(Text) -- ^ /Required/ "ip" - The IP of this endpoint. May not be loopback (127.0.0.0/8 or ::1), link-local (169.254.0.0/16 or fe80::/10), or link-local multicast (224.0.0.0/24 or ff02::/16). + , v1EndpointAddressNodeName :: !(Maybe Text) -- ^ "nodeName" - Optional: Node hosting this endpoint. This can be used to determine endpoints local to a node. + , v1EndpointAddressTargetRef :: !(Maybe V1ObjectReference) -- ^ "targetRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointAddress +instance A.FromJSON V1EndpointAddress where + parseJSON = A.withObject "V1EndpointAddress" $ \o -> + V1EndpointAddress + <$> (o .:? "hostname") + <*> (o .: "ip") + <*> (o .:? "nodeName") + <*> (o .:? "targetRef") + +-- | ToJSON V1EndpointAddress +instance A.ToJSON V1EndpointAddress where + toJSON V1EndpointAddress {..} = + _omitNulls + [ "hostname" .= v1EndpointAddressHostname + , "ip" .= v1EndpointAddressIp + , "nodeName" .= v1EndpointAddressNodeName + , "targetRef" .= v1EndpointAddressTargetRef + ] + + +-- | Construct a value of type 'V1EndpointAddress' (by applying it's required fields, if any) +mkV1EndpointAddress + :: Text -- ^ 'v1EndpointAddressIp': The IP of this endpoint. May not be loopback (127.0.0.0/8 or ::1), link-local (169.254.0.0/16 or fe80::/10), or link-local multicast (224.0.0.0/24 or ff02::/16). + -> V1EndpointAddress +mkV1EndpointAddress v1EndpointAddressIp = + V1EndpointAddress + { v1EndpointAddressHostname = Nothing + , v1EndpointAddressIp + , v1EndpointAddressNodeName = Nothing + , v1EndpointAddressTargetRef = Nothing + } + +-- ** V1EndpointConditions +-- | V1EndpointConditions +-- EndpointConditions represents the current condition of an endpoint. +data V1EndpointConditions = V1EndpointConditions + { v1EndpointConditionsReady :: !(Maybe Bool) -- ^ "ready" - ready indicates that this endpoint is prepared to receive traffic, according to whatever system is managing the endpoint. A nil value indicates an unknown state. In most cases consumers should interpret this unknown state as ready. For compatibility reasons, ready should never be \"true\" for terminating endpoints, except when the normal readiness behavior is being explicitly overridden, for example when the associated Service has set the publishNotReadyAddresses flag. + , v1EndpointConditionsServing :: !(Maybe Bool) -- ^ "serving" - serving is identical to ready except that it is set regardless of the terminating state of endpoints. This condition should be set to true for a ready endpoint that is terminating. If nil, consumers should defer to the ready condition. + , v1EndpointConditionsTerminating :: !(Maybe Bool) -- ^ "terminating" - terminating indicates that this endpoint is terminating. A nil value indicates an unknown state. Consumers should interpret this unknown state to mean that the endpoint is not terminating. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointConditions +instance A.FromJSON V1EndpointConditions where + parseJSON = A.withObject "V1EndpointConditions" $ \o -> + V1EndpointConditions + <$> (o .:? "ready") + <*> (o .:? "serving") + <*> (o .:? "terminating") + +-- | ToJSON V1EndpointConditions +instance A.ToJSON V1EndpointConditions where + toJSON V1EndpointConditions {..} = + _omitNulls + [ "ready" .= v1EndpointConditionsReady + , "serving" .= v1EndpointConditionsServing + , "terminating" .= v1EndpointConditionsTerminating + ] + + +-- | Construct a value of type 'V1EndpointConditions' (by applying it's required fields, if any) +mkV1EndpointConditions + :: V1EndpointConditions +mkV1EndpointConditions = + V1EndpointConditions + { v1EndpointConditionsReady = Nothing + , v1EndpointConditionsServing = Nothing + , v1EndpointConditionsTerminating = Nothing + } + +-- ** V1EndpointHints +-- | V1EndpointHints +-- EndpointHints provides hints describing how an endpoint should be consumed. +data V1EndpointHints = V1EndpointHints + { v1EndpointHintsForZones :: !(Maybe [V1ForZone]) -- ^ "forZones" - forZones indicates the zone(s) this endpoint should be consumed by to enable topology aware routing. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointHints +instance A.FromJSON V1EndpointHints where + parseJSON = A.withObject "V1EndpointHints" $ \o -> + V1EndpointHints + <$> (o .:? "forZones") + +-- | ToJSON V1EndpointHints +instance A.ToJSON V1EndpointHints where + toJSON V1EndpointHints {..} = + _omitNulls + [ "forZones" .= v1EndpointHintsForZones + ] + + +-- | Construct a value of type 'V1EndpointHints' (by applying it's required fields, if any) +mkV1EndpointHints + :: V1EndpointHints +mkV1EndpointHints = + V1EndpointHints + { v1EndpointHintsForZones = Nothing + } + +-- ** V1EndpointSlice +-- | V1EndpointSlice +-- EndpointSlice represents a subset of the endpoints that implement a service. For a given service there may be multiple EndpointSlice objects, selected by labels, which must be joined to produce the full set of endpoints. +data V1EndpointSlice = V1EndpointSlice + { v1EndpointSliceAddressType :: !(Text) -- ^ /Required/ "addressType" - addressType specifies the type of address carried by this EndpointSlice. All addresses in this slice must be the same type. This field is immutable after creation. The following address types are currently supported: * IPv4: Represents an IPv4 Address. * IPv6: Represents an IPv6 Address. * FQDN: Represents a Fully Qualified Domain Name. + , v1EndpointSliceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1EndpointSliceEndpoints :: !([V1Endpoint]) -- ^ /Required/ "endpoints" - endpoints is a list of unique endpoints in this slice. Each slice may include a maximum of 1000 endpoints. + , v1EndpointSliceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1EndpointSliceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1EndpointSlicePorts :: !(Maybe [DiscoveryV1EndpointPort]) -- ^ "ports" - ports specifies the list of network ports exposed by each endpoint in this slice. Each port must have a unique name. When ports is empty, it indicates that there are no defined ports. When a port is defined with a nil port value, it indicates \"all ports\". Each slice may include a maximum of 100 ports. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointSlice +instance A.FromJSON V1EndpointSlice where + parseJSON = A.withObject "V1EndpointSlice" $ \o -> + V1EndpointSlice + <$> (o .: "addressType") + <*> (o .:? "apiVersion") + <*> (o .: "endpoints") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "ports") + +-- | ToJSON V1EndpointSlice +instance A.ToJSON V1EndpointSlice where + toJSON V1EndpointSlice {..} = + _omitNulls + [ "addressType" .= v1EndpointSliceAddressType + , "apiVersion" .= v1EndpointSliceApiVersion + , "endpoints" .= v1EndpointSliceEndpoints + , "kind" .= v1EndpointSliceKind + , "metadata" .= v1EndpointSliceMetadata + , "ports" .= v1EndpointSlicePorts + ] + + +-- | Construct a value of type 'V1EndpointSlice' (by applying it's required fields, if any) +mkV1EndpointSlice + :: Text -- ^ 'v1EndpointSliceAddressType': addressType specifies the type of address carried by this EndpointSlice. All addresses in this slice must be the same type. This field is immutable after creation. The following address types are currently supported: * IPv4: Represents an IPv4 Address. * IPv6: Represents an IPv6 Address. * FQDN: Represents a Fully Qualified Domain Name. + -> [V1Endpoint] -- ^ 'v1EndpointSliceEndpoints': endpoints is a list of unique endpoints in this slice. Each slice may include a maximum of 1000 endpoints. + -> V1EndpointSlice +mkV1EndpointSlice v1EndpointSliceAddressType v1EndpointSliceEndpoints = + V1EndpointSlice + { v1EndpointSliceAddressType + , v1EndpointSliceApiVersion = Nothing + , v1EndpointSliceEndpoints + , v1EndpointSliceKind = Nothing + , v1EndpointSliceMetadata = Nothing + , v1EndpointSlicePorts = Nothing + } + +-- ** V1EndpointSliceList +-- | V1EndpointSliceList +-- EndpointSliceList represents a list of endpoint slices +data V1EndpointSliceList = V1EndpointSliceList + { v1EndpointSliceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1EndpointSliceListItems :: !([V1EndpointSlice]) -- ^ /Required/ "items" - items is the list of endpoint slices + , v1EndpointSliceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1EndpointSliceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointSliceList +instance A.FromJSON V1EndpointSliceList where + parseJSON = A.withObject "V1EndpointSliceList" $ \o -> + V1EndpointSliceList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1EndpointSliceList +instance A.ToJSON V1EndpointSliceList where + toJSON V1EndpointSliceList {..} = + _omitNulls + [ "apiVersion" .= v1EndpointSliceListApiVersion + , "items" .= v1EndpointSliceListItems + , "kind" .= v1EndpointSliceListKind + , "metadata" .= v1EndpointSliceListMetadata + ] + + +-- | Construct a value of type 'V1EndpointSliceList' (by applying it's required fields, if any) +mkV1EndpointSliceList + :: [V1EndpointSlice] -- ^ 'v1EndpointSliceListItems': items is the list of endpoint slices + -> V1EndpointSliceList +mkV1EndpointSliceList v1EndpointSliceListItems = + V1EndpointSliceList + { v1EndpointSliceListApiVersion = Nothing + , v1EndpointSliceListItems + , v1EndpointSliceListKind = Nothing + , v1EndpointSliceListMetadata = Nothing + } + +-- ** V1EndpointSubset +-- | V1EndpointSubset +-- EndpointSubset is a group of addresses with a common set of ports. The expanded set of endpoints is the Cartesian product of Addresses x Ports. For example, given: { Addresses: [{\"ip\": \"10.10.1.1\"}, {\"ip\": \"10.10.2.2\"}], Ports: [{\"name\": \"a\", \"port\": 8675}, {\"name\": \"b\", \"port\": 309}] } The resulting set of endpoints can be viewed as: a: [ 10.10.1.1:8675, 10.10.2.2:8675 ], b: [ 10.10.1.1:309, 10.10.2.2:309 ] +data V1EndpointSubset = V1EndpointSubset + { v1EndpointSubsetAddresses :: !(Maybe [V1EndpointAddress]) -- ^ "addresses" - IP addresses which offer the related ports that are marked as ready. These endpoints should be considered safe for load balancers and clients to utilize. + , v1EndpointSubsetNotReadyAddresses :: !(Maybe [V1EndpointAddress]) -- ^ "notReadyAddresses" - IP addresses which offer the related ports but are not currently marked as ready because they have not yet finished starting, have recently failed a readiness check, or have recently failed a liveness check. + , v1EndpointSubsetPorts :: !(Maybe [CoreV1EndpointPort]) -- ^ "ports" - Port numbers available on the related IP addresses. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointSubset +instance A.FromJSON V1EndpointSubset where + parseJSON = A.withObject "V1EndpointSubset" $ \o -> + V1EndpointSubset + <$> (o .:? "addresses") + <*> (o .:? "notReadyAddresses") + <*> (o .:? "ports") + +-- | ToJSON V1EndpointSubset +instance A.ToJSON V1EndpointSubset where + toJSON V1EndpointSubset {..} = + _omitNulls + [ "addresses" .= v1EndpointSubsetAddresses + , "notReadyAddresses" .= v1EndpointSubsetNotReadyAddresses + , "ports" .= v1EndpointSubsetPorts + ] + + +-- | Construct a value of type 'V1EndpointSubset' (by applying it's required fields, if any) +mkV1EndpointSubset + :: V1EndpointSubset +mkV1EndpointSubset = + V1EndpointSubset + { v1EndpointSubsetAddresses = Nothing + , v1EndpointSubsetNotReadyAddresses = Nothing + , v1EndpointSubsetPorts = Nothing + } + +-- ** V1Endpoints +-- | V1Endpoints +-- Endpoints is a collection of endpoints that implement the actual service. Example: Name: \"mysvc\", Subsets: [ { Addresses: [{\"ip\": \"10.10.1.1\"}, {\"ip\": \"10.10.2.2\"}], Ports: [{\"name\": \"a\", \"port\": 8675}, {\"name\": \"b\", \"port\": 309}] }, { Addresses: [{\"ip\": \"10.10.3.3\"}], Ports: [{\"name\": \"a\", \"port\": 93}, {\"name\": \"b\", \"port\": 76}] }, ] +data V1Endpoints = V1Endpoints + { v1EndpointsApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1EndpointsKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1EndpointsMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1EndpointsSubsets :: !(Maybe [V1EndpointSubset]) -- ^ "subsets" - The set of all endpoints is the union of all subsets. Addresses are placed into subsets according to the IPs they share. A single address with multiple ports, some of which are ready and some of which are not (because they come from different containers) will result in the address being displayed in different subsets for the different ports. No address will appear in both Addresses and NotReadyAddresses in the same subset. Sets of addresses and ports that comprise a service. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Endpoints +instance A.FromJSON V1Endpoints where + parseJSON = A.withObject "V1Endpoints" $ \o -> + V1Endpoints + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "subsets") + +-- | ToJSON V1Endpoints +instance A.ToJSON V1Endpoints where + toJSON V1Endpoints {..} = + _omitNulls + [ "apiVersion" .= v1EndpointsApiVersion + , "kind" .= v1EndpointsKind + , "metadata" .= v1EndpointsMetadata + , "subsets" .= v1EndpointsSubsets + ] + + +-- | Construct a value of type 'V1Endpoints' (by applying it's required fields, if any) +mkV1Endpoints + :: V1Endpoints +mkV1Endpoints = + V1Endpoints + { v1EndpointsApiVersion = Nothing + , v1EndpointsKind = Nothing + , v1EndpointsMetadata = Nothing + , v1EndpointsSubsets = Nothing + } + +-- ** V1EndpointsList +-- | V1EndpointsList +-- EndpointsList is a list of endpoints. +data V1EndpointsList = V1EndpointsList + { v1EndpointsListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1EndpointsListItems :: !([V1Endpoints]) -- ^ /Required/ "items" - List of endpoints. + , v1EndpointsListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1EndpointsListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EndpointsList +instance A.FromJSON V1EndpointsList where + parseJSON = A.withObject "V1EndpointsList" $ \o -> + V1EndpointsList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1EndpointsList +instance A.ToJSON V1EndpointsList where + toJSON V1EndpointsList {..} = + _omitNulls + [ "apiVersion" .= v1EndpointsListApiVersion + , "items" .= v1EndpointsListItems + , "kind" .= v1EndpointsListKind + , "metadata" .= v1EndpointsListMetadata + ] + + +-- | Construct a value of type 'V1EndpointsList' (by applying it's required fields, if any) +mkV1EndpointsList + :: [V1Endpoints] -- ^ 'v1EndpointsListItems': List of endpoints. + -> V1EndpointsList +mkV1EndpointsList v1EndpointsListItems = + V1EndpointsList + { v1EndpointsListApiVersion = Nothing + , v1EndpointsListItems + , v1EndpointsListKind = Nothing + , v1EndpointsListMetadata = Nothing + } + +-- ** V1EnvFromSource +-- | V1EnvFromSource +-- EnvFromSource represents the source of a set of ConfigMaps +data V1EnvFromSource = V1EnvFromSource + { v1EnvFromSourceConfigMapRef :: !(Maybe V1ConfigMapEnvSource) -- ^ "configMapRef" + , v1EnvFromSourcePrefix :: !(Maybe Text) -- ^ "prefix" - An optional identifier to prepend to each key in the ConfigMap. Must be a C_IDENTIFIER. + , v1EnvFromSourceSecretRef :: !(Maybe V1SecretEnvSource) -- ^ "secretRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EnvFromSource +instance A.FromJSON V1EnvFromSource where + parseJSON = A.withObject "V1EnvFromSource" $ \o -> + V1EnvFromSource + <$> (o .:? "configMapRef") + <*> (o .:? "prefix") + <*> (o .:? "secretRef") + +-- | ToJSON V1EnvFromSource +instance A.ToJSON V1EnvFromSource where + toJSON V1EnvFromSource {..} = + _omitNulls + [ "configMapRef" .= v1EnvFromSourceConfigMapRef + , "prefix" .= v1EnvFromSourcePrefix + , "secretRef" .= v1EnvFromSourceSecretRef + ] + + +-- | Construct a value of type 'V1EnvFromSource' (by applying it's required fields, if any) +mkV1EnvFromSource + :: V1EnvFromSource +mkV1EnvFromSource = + V1EnvFromSource + { v1EnvFromSourceConfigMapRef = Nothing + , v1EnvFromSourcePrefix = Nothing + , v1EnvFromSourceSecretRef = Nothing + } + +-- ** V1EnvVar +-- | V1EnvVar +-- EnvVar represents an environment variable present in a Container. +data V1EnvVar = V1EnvVar + { v1EnvVarName :: !(Text) -- ^ /Required/ "name" - Name of the environment variable. Must be a C_IDENTIFIER. + , v1EnvVarValue :: !(Maybe Text) -- ^ "value" - Variable references $(VAR_NAME) are expanded using the previously defined environment variables in the container and any service environment variables. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Defaults to \"\". + , v1EnvVarValueFrom :: !(Maybe V1EnvVarSource) -- ^ "valueFrom" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EnvVar +instance A.FromJSON V1EnvVar where + parseJSON = A.withObject "V1EnvVar" $ \o -> + V1EnvVar + <$> (o .: "name") + <*> (o .:? "value") + <*> (o .:? "valueFrom") + +-- | ToJSON V1EnvVar +instance A.ToJSON V1EnvVar where + toJSON V1EnvVar {..} = + _omitNulls + [ "name" .= v1EnvVarName + , "value" .= v1EnvVarValue + , "valueFrom" .= v1EnvVarValueFrom + ] + + +-- | Construct a value of type 'V1EnvVar' (by applying it's required fields, if any) +mkV1EnvVar + :: Text -- ^ 'v1EnvVarName': Name of the environment variable. Must be a C_IDENTIFIER. + -> V1EnvVar +mkV1EnvVar v1EnvVarName = + V1EnvVar + { v1EnvVarName + , v1EnvVarValue = Nothing + , v1EnvVarValueFrom = Nothing + } + +-- ** V1EnvVarSource +-- | V1EnvVarSource +-- EnvVarSource represents a source for the value of an EnvVar. +data V1EnvVarSource = V1EnvVarSource + { v1EnvVarSourceConfigMapKeyRef :: !(Maybe V1ConfigMapKeySelector) -- ^ "configMapKeyRef" + , v1EnvVarSourceFieldRef :: !(Maybe V1ObjectFieldSelector) -- ^ "fieldRef" + , v1EnvVarSourceResourceFieldRef :: !(Maybe V1ResourceFieldSelector) -- ^ "resourceFieldRef" + , v1EnvVarSourceSecretKeyRef :: !(Maybe V1SecretKeySelector) -- ^ "secretKeyRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EnvVarSource +instance A.FromJSON V1EnvVarSource where + parseJSON = A.withObject "V1EnvVarSource" $ \o -> + V1EnvVarSource + <$> (o .:? "configMapKeyRef") + <*> (o .:? "fieldRef") + <*> (o .:? "resourceFieldRef") + <*> (o .:? "secretKeyRef") + +-- | ToJSON V1EnvVarSource +instance A.ToJSON V1EnvVarSource where + toJSON V1EnvVarSource {..} = + _omitNulls + [ "configMapKeyRef" .= v1EnvVarSourceConfigMapKeyRef + , "fieldRef" .= v1EnvVarSourceFieldRef + , "resourceFieldRef" .= v1EnvVarSourceResourceFieldRef + , "secretKeyRef" .= v1EnvVarSourceSecretKeyRef + ] + + +-- | Construct a value of type 'V1EnvVarSource' (by applying it's required fields, if any) +mkV1EnvVarSource + :: V1EnvVarSource +mkV1EnvVarSource = + V1EnvVarSource + { v1EnvVarSourceConfigMapKeyRef = Nothing + , v1EnvVarSourceFieldRef = Nothing + , v1EnvVarSourceResourceFieldRef = Nothing + , v1EnvVarSourceSecretKeyRef = Nothing + } + +-- ** V1EphemeralContainer +-- | V1EphemeralContainer +-- An EphemeralContainer is a temporary container that you may add to an existing Pod for user-initiated activities such as debugging. Ephemeral containers have no resource or scheduling guarantees, and they will not be restarted when they exit or when a Pod is removed or restarted. The kubelet may evict a Pod if an ephemeral container causes the Pod to exceed its resource allocation. To add an ephemeral container, use the ephemeralcontainers subresource of an existing Pod. Ephemeral containers may not be removed or restarted. +data V1EphemeralContainer = V1EphemeralContainer + { v1EphemeralContainerArgs :: !(Maybe [Text]) -- ^ "args" - Arguments to the entrypoint. The image's CMD is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell + , v1EphemeralContainerCommand :: !(Maybe [Text]) -- ^ "command" - Entrypoint array. Not executed within a shell. The image's ENTRYPOINT is used if this is not provided. Variable references $(VAR_NAME) are expanded using the container's environment. If a variable cannot be resolved, the reference in the input string will be unchanged. Double $$ are reduced to a single $, which allows for escaping the $(VAR_NAME) syntax: i.e. \"$$(VAR_NAME)\" will produce the string literal \"$(VAR_NAME)\". Escaped references will never be expanded, regardless of whether the variable exists or not. Cannot be updated. More info: https://kubernetes.io/docs/tasks/inject-data-application/define-command-argument-container/#running-a-command-in-a-shell + , v1EphemeralContainerEnv :: !(Maybe [V1EnvVar]) -- ^ "env" - List of environment variables to set in the container. Cannot be updated. + , v1EphemeralContainerEnvFrom :: !(Maybe [V1EnvFromSource]) -- ^ "envFrom" - List of sources to populate environment variables in the container. The keys defined within a source must be a C_IDENTIFIER. All invalid keys will be reported as an event when the container is starting. When a key exists in multiple sources, the value associated with the last source will take precedence. Values defined by an Env with a duplicate key will take precedence. Cannot be updated. + , v1EphemeralContainerImage :: !(Maybe Text) -- ^ "image" - Container image name. More info: https://kubernetes.io/docs/concepts/containers/images + , v1EphemeralContainerImagePullPolicy :: !(Maybe Text) -- ^ "imagePullPolicy" - Image pull policy. One of Always, Never, IfNotPresent. Defaults to Always if :latest tag is specified, or IfNotPresent otherwise. Cannot be updated. More info: https://kubernetes.io/docs/concepts/containers/images#updating-images + , v1EphemeralContainerLifecycle :: !(Maybe V1Lifecycle) -- ^ "lifecycle" + , v1EphemeralContainerLivenessProbe :: !(Maybe V1Probe) -- ^ "livenessProbe" + , v1EphemeralContainerName :: !(Text) -- ^ /Required/ "name" - Name of the ephemeral container specified as a DNS_LABEL. This name must be unique among all containers, init containers and ephemeral containers. + , v1EphemeralContainerPorts :: !(Maybe [V1ContainerPort]) -- ^ "ports" - Ports are not allowed for ephemeral containers. + , v1EphemeralContainerReadinessProbe :: !(Maybe V1Probe) -- ^ "readinessProbe" + , v1EphemeralContainerResizePolicy :: !(Maybe [V1ContainerResizePolicy]) -- ^ "resizePolicy" - Resources resize policy for the container. + , v1EphemeralContainerResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" + , v1EphemeralContainerSecurityContext :: !(Maybe V1SecurityContext) -- ^ "securityContext" + , v1EphemeralContainerStartupProbe :: !(Maybe V1Probe) -- ^ "startupProbe" + , v1EphemeralContainerStdin :: !(Maybe Bool) -- ^ "stdin" - Whether this container should allocate a buffer for stdin in the container runtime. If this is not set, reads from stdin in the container will always result in EOF. Default is false. + , v1EphemeralContainerStdinOnce :: !(Maybe Bool) -- ^ "stdinOnce" - Whether the container runtime should close the stdin channel after it has been opened by a single attach. When stdin is true the stdin stream will remain open across multiple attach sessions. If stdinOnce is set to true, stdin is opened on container start, is empty until the first client attaches to stdin, and then remains open and accepts data until the client disconnects, at which time stdin is closed and remains closed until the container is restarted. If this flag is false, a container processes that reads from stdin will never receive an EOF. Default is false + , v1EphemeralContainerTargetContainerName :: !(Maybe Text) -- ^ "targetContainerName" - If set, the name of the container from PodSpec that this ephemeral container targets. The ephemeral container will be run in the namespaces (IPC, PID, etc) of this container. If not set then the ephemeral container uses the namespaces configured in the Pod spec. The container runtime must implement support for this feature. If the runtime does not support namespace targeting then the result of setting this field is undefined. + , v1EphemeralContainerTerminationMessagePath :: !(Maybe Text) -- ^ "terminationMessagePath" - Optional: Path at which the file to which the container's termination message will be written is mounted into the container's filesystem. Message written is intended to be brief final status, such as an assertion failure message. Will be truncated by the node if greater than 4096 bytes. The total message length across all containers will be limited to 12kb. Defaults to /dev/termination-log. Cannot be updated. + , v1EphemeralContainerTerminationMessagePolicy :: !(Maybe Text) -- ^ "terminationMessagePolicy" - Indicate how the termination message should be populated. File will use the contents of terminationMessagePath to populate the container status message on both success and failure. FallbackToLogsOnError will use the last chunk of container log output if the termination message file is empty and the container exited with an error. The log output is limited to 2048 bytes or 80 lines, whichever is smaller. Defaults to File. Cannot be updated. + , v1EphemeralContainerTty :: !(Maybe Bool) -- ^ "tty" - Whether this container should allocate a TTY for itself, also requires 'stdin' to be true. Default is false. + , v1EphemeralContainerVolumeDevices :: !(Maybe [V1VolumeDevice]) -- ^ "volumeDevices" - volumeDevices is the list of block devices to be used by the container. + , v1EphemeralContainerVolumeMounts :: !(Maybe [V1VolumeMount]) -- ^ "volumeMounts" - Pod volumes to mount into the container's filesystem. Subpath mounts are not allowed for ephemeral containers. Cannot be updated. + , v1EphemeralContainerWorkingDir :: !(Maybe Text) -- ^ "workingDir" - Container's working directory. If not specified, the container runtime's default will be used, which might be configured in the container image. Cannot be updated. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EphemeralContainer +instance A.FromJSON V1EphemeralContainer where + parseJSON = A.withObject "V1EphemeralContainer" $ \o -> + V1EphemeralContainer + <$> (o .:? "args") + <*> (o .:? "command") + <*> (o .:? "env") + <*> (o .:? "envFrom") + <*> (o .:? "image") + <*> (o .:? "imagePullPolicy") + <*> (o .:? "lifecycle") + <*> (o .:? "livenessProbe") + <*> (o .: "name") + <*> (o .:? "ports") + <*> (o .:? "readinessProbe") + <*> (o .:? "resizePolicy") + <*> (o .:? "resources") + <*> (o .:? "securityContext") + <*> (o .:? "startupProbe") + <*> (o .:? "stdin") + <*> (o .:? "stdinOnce") + <*> (o .:? "targetContainerName") + <*> (o .:? "terminationMessagePath") + <*> (o .:? "terminationMessagePolicy") + <*> (o .:? "tty") + <*> (o .:? "volumeDevices") + <*> (o .:? "volumeMounts") + <*> (o .:? "workingDir") + +-- | ToJSON V1EphemeralContainer +instance A.ToJSON V1EphemeralContainer where + toJSON V1EphemeralContainer {..} = + _omitNulls + [ "args" .= v1EphemeralContainerArgs + , "command" .= v1EphemeralContainerCommand + , "env" .= v1EphemeralContainerEnv + , "envFrom" .= v1EphemeralContainerEnvFrom + , "image" .= v1EphemeralContainerImage + , "imagePullPolicy" .= v1EphemeralContainerImagePullPolicy + , "lifecycle" .= v1EphemeralContainerLifecycle + , "livenessProbe" .= v1EphemeralContainerLivenessProbe + , "name" .= v1EphemeralContainerName + , "ports" .= v1EphemeralContainerPorts + , "readinessProbe" .= v1EphemeralContainerReadinessProbe + , "resizePolicy" .= v1EphemeralContainerResizePolicy + , "resources" .= v1EphemeralContainerResources + , "securityContext" .= v1EphemeralContainerSecurityContext + , "startupProbe" .= v1EphemeralContainerStartupProbe + , "stdin" .= v1EphemeralContainerStdin + , "stdinOnce" .= v1EphemeralContainerStdinOnce + , "targetContainerName" .= v1EphemeralContainerTargetContainerName + , "terminationMessagePath" .= v1EphemeralContainerTerminationMessagePath + , "terminationMessagePolicy" .= v1EphemeralContainerTerminationMessagePolicy + , "tty" .= v1EphemeralContainerTty + , "volumeDevices" .= v1EphemeralContainerVolumeDevices + , "volumeMounts" .= v1EphemeralContainerVolumeMounts + , "workingDir" .= v1EphemeralContainerWorkingDir + ] + + +-- | Construct a value of type 'V1EphemeralContainer' (by applying it's required fields, if any) +mkV1EphemeralContainer + :: Text -- ^ 'v1EphemeralContainerName': Name of the ephemeral container specified as a DNS_LABEL. This name must be unique among all containers, init containers and ephemeral containers. + -> V1EphemeralContainer +mkV1EphemeralContainer v1EphemeralContainerName = + V1EphemeralContainer + { v1EphemeralContainerArgs = Nothing + , v1EphemeralContainerCommand = Nothing + , v1EphemeralContainerEnv = Nothing + , v1EphemeralContainerEnvFrom = Nothing + , v1EphemeralContainerImage = Nothing + , v1EphemeralContainerImagePullPolicy = Nothing + , v1EphemeralContainerLifecycle = Nothing + , v1EphemeralContainerLivenessProbe = Nothing + , v1EphemeralContainerName + , v1EphemeralContainerPorts = Nothing + , v1EphemeralContainerReadinessProbe = Nothing + , v1EphemeralContainerResizePolicy = Nothing + , v1EphemeralContainerResources = Nothing + , v1EphemeralContainerSecurityContext = Nothing + , v1EphemeralContainerStartupProbe = Nothing + , v1EphemeralContainerStdin = Nothing + , v1EphemeralContainerStdinOnce = Nothing + , v1EphemeralContainerTargetContainerName = Nothing + , v1EphemeralContainerTerminationMessagePath = Nothing + , v1EphemeralContainerTerminationMessagePolicy = Nothing + , v1EphemeralContainerTty = Nothing + , v1EphemeralContainerVolumeDevices = Nothing + , v1EphemeralContainerVolumeMounts = Nothing + , v1EphemeralContainerWorkingDir = Nothing + } + +-- ** V1EphemeralVolumeSource +-- | V1EphemeralVolumeSource +-- Represents an ephemeral volume that is handled by a normal storage driver. +data V1EphemeralVolumeSource = V1EphemeralVolumeSource + { v1EphemeralVolumeSourceVolumeClaimTemplate :: !(Maybe V1PersistentVolumeClaimTemplate) -- ^ "volumeClaimTemplate" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EphemeralVolumeSource +instance A.FromJSON V1EphemeralVolumeSource where + parseJSON = A.withObject "V1EphemeralVolumeSource" $ \o -> + V1EphemeralVolumeSource + <$> (o .:? "volumeClaimTemplate") + +-- | ToJSON V1EphemeralVolumeSource +instance A.ToJSON V1EphemeralVolumeSource where + toJSON V1EphemeralVolumeSource {..} = + _omitNulls + [ "volumeClaimTemplate" .= v1EphemeralVolumeSourceVolumeClaimTemplate + ] + + +-- | Construct a value of type 'V1EphemeralVolumeSource' (by applying it's required fields, if any) +mkV1EphemeralVolumeSource + :: V1EphemeralVolumeSource +mkV1EphemeralVolumeSource = + V1EphemeralVolumeSource + { v1EphemeralVolumeSourceVolumeClaimTemplate = Nothing + } + +-- ** V1EventSource +-- | V1EventSource +-- EventSource contains information for an event. +data V1EventSource = V1EventSource + { v1EventSourceComponent :: !(Maybe Text) -- ^ "component" - Component from which the event is generated. + , v1EventSourceHost :: !(Maybe Text) -- ^ "host" - Node name on which the event is generated. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1EventSource +instance A.FromJSON V1EventSource where + parseJSON = A.withObject "V1EventSource" $ \o -> + V1EventSource + <$> (o .:? "component") + <*> (o .:? "host") + +-- | ToJSON V1EventSource +instance A.ToJSON V1EventSource where + toJSON V1EventSource {..} = + _omitNulls + [ "component" .= v1EventSourceComponent + , "host" .= v1EventSourceHost + ] + + +-- | Construct a value of type 'V1EventSource' (by applying it's required fields, if any) +mkV1EventSource + :: V1EventSource +mkV1EventSource = + V1EventSource + { v1EventSourceComponent = Nothing + , v1EventSourceHost = Nothing + } + +-- ** V1Eviction +-- | V1Eviction +-- Eviction evicts a pod from its node subject to certain policies and safety constraints. This is a subresource of Pod. A request to cause such an eviction is created by POSTing to .../pods//evictions. +data V1Eviction = V1Eviction + { v1EvictionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1EvictionDeleteOptions :: !(Maybe V1DeleteOptions) -- ^ "deleteOptions" + , v1EvictionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1EvictionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Eviction +instance A.FromJSON V1Eviction where + parseJSON = A.withObject "V1Eviction" $ \o -> + V1Eviction + <$> (o .:? "apiVersion") + <*> (o .:? "deleteOptions") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1Eviction +instance A.ToJSON V1Eviction where + toJSON V1Eviction {..} = + _omitNulls + [ "apiVersion" .= v1EvictionApiVersion + , "deleteOptions" .= v1EvictionDeleteOptions + , "kind" .= v1EvictionKind + , "metadata" .= v1EvictionMetadata + ] + + +-- | Construct a value of type 'V1Eviction' (by applying it's required fields, if any) +mkV1Eviction + :: V1Eviction +mkV1Eviction = + V1Eviction + { v1EvictionApiVersion = Nothing + , v1EvictionDeleteOptions = Nothing + , v1EvictionKind = Nothing + , v1EvictionMetadata = Nothing + } + +-- ** V1ExecAction +-- | V1ExecAction +-- ExecAction describes a \"run in container\" action. +data V1ExecAction = V1ExecAction + { v1ExecActionCommand :: !(Maybe [Text]) -- ^ "command" - Command is the command line to execute inside the container, the working directory for the command is root ('/') in the container's filesystem. The command is simply exec'd, it is not run inside a shell, so traditional shell instructions ('|', etc) won't work. To use a shell, you need to explicitly call out to that shell. Exit status of 0 is treated as live/healthy and non-zero is unhealthy. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ExecAction +instance A.FromJSON V1ExecAction where + parseJSON = A.withObject "V1ExecAction" $ \o -> + V1ExecAction + <$> (o .:? "command") + +-- | ToJSON V1ExecAction +instance A.ToJSON V1ExecAction where + toJSON V1ExecAction {..} = + _omitNulls + [ "command" .= v1ExecActionCommand + ] + + +-- | Construct a value of type 'V1ExecAction' (by applying it's required fields, if any) +mkV1ExecAction + :: V1ExecAction +mkV1ExecAction = + V1ExecAction + { v1ExecActionCommand = Nothing + } + +-- ** V1ExternalDocumentation +-- | V1ExternalDocumentation +-- ExternalDocumentation allows referencing an external resource for extended documentation. +data V1ExternalDocumentation = V1ExternalDocumentation + { v1ExternalDocumentationDescription :: !(Maybe Text) -- ^ "description" + , v1ExternalDocumentationUrl :: !(Maybe Text) -- ^ "url" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ExternalDocumentation +instance A.FromJSON V1ExternalDocumentation where + parseJSON = A.withObject "V1ExternalDocumentation" $ \o -> + V1ExternalDocumentation + <$> (o .:? "description") + <*> (o .:? "url") + +-- | ToJSON V1ExternalDocumentation +instance A.ToJSON V1ExternalDocumentation where + toJSON V1ExternalDocumentation {..} = + _omitNulls + [ "description" .= v1ExternalDocumentationDescription + , "url" .= v1ExternalDocumentationUrl + ] + + +-- | Construct a value of type 'V1ExternalDocumentation' (by applying it's required fields, if any) +mkV1ExternalDocumentation + :: V1ExternalDocumentation +mkV1ExternalDocumentation = + V1ExternalDocumentation + { v1ExternalDocumentationDescription = Nothing + , v1ExternalDocumentationUrl = Nothing + } + +-- ** V1FCVolumeSource +-- | V1FCVolumeSource +-- Represents a Fibre Channel volume. Fibre Channel volumes can only be mounted as read/write once. Fibre Channel volumes support ownership management and SELinux relabeling. +data V1FCVolumeSource = V1FCVolumeSource + { v1FCVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1FCVolumeSourceLun :: !(Maybe Int) -- ^ "lun" - lun is Optional: FC target lun number + , v1FCVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1FCVolumeSourceTargetWwns :: !(Maybe [Text]) -- ^ "targetWWNs" - targetWWNs is Optional: FC target worldwide names (WWNs) + , v1FCVolumeSourceWwids :: !(Maybe [Text]) -- ^ "wwids" - wwids Optional: FC volume world wide identifiers (wwids) Either wwids or combination of targetWWNs and lun must be set, but not both simultaneously. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1FCVolumeSource +instance A.FromJSON V1FCVolumeSource where + parseJSON = A.withObject "V1FCVolumeSource" $ \o -> + V1FCVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "lun") + <*> (o .:? "readOnly") + <*> (o .:? "targetWWNs") + <*> (o .:? "wwids") + +-- | ToJSON V1FCVolumeSource +instance A.ToJSON V1FCVolumeSource where + toJSON V1FCVolumeSource {..} = + _omitNulls + [ "fsType" .= v1FCVolumeSourceFsType + , "lun" .= v1FCVolumeSourceLun + , "readOnly" .= v1FCVolumeSourceReadOnly + , "targetWWNs" .= v1FCVolumeSourceTargetWwns + , "wwids" .= v1FCVolumeSourceWwids + ] + + +-- | Construct a value of type 'V1FCVolumeSource' (by applying it's required fields, if any) +mkV1FCVolumeSource + :: V1FCVolumeSource +mkV1FCVolumeSource = + V1FCVolumeSource + { v1FCVolumeSourceFsType = Nothing + , v1FCVolumeSourceLun = Nothing + , v1FCVolumeSourceReadOnly = Nothing + , v1FCVolumeSourceTargetWwns = Nothing + , v1FCVolumeSourceWwids = Nothing + } + +-- ** V1FlexPersistentVolumeSource +-- | V1FlexPersistentVolumeSource +-- FlexPersistentVolumeSource represents a generic persistent volume resource that is provisioned/attached using an exec based plugin. +data V1FlexPersistentVolumeSource = V1FlexPersistentVolumeSource + { v1FlexPersistentVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. + , v1FlexPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the Filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default filesystem depends on FlexVolume script. + , v1FlexPersistentVolumeSourceOptions :: !(Maybe (Map.Map String Text)) -- ^ "options" - options is Optional: this field holds extra command options if any. + , v1FlexPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1FlexPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1FlexPersistentVolumeSource +instance A.FromJSON V1FlexPersistentVolumeSource where + parseJSON = A.withObject "V1FlexPersistentVolumeSource" $ \o -> + V1FlexPersistentVolumeSource + <$> (o .: "driver") + <*> (o .:? "fsType") + <*> (o .:? "options") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + +-- | ToJSON V1FlexPersistentVolumeSource +instance A.ToJSON V1FlexPersistentVolumeSource where + toJSON V1FlexPersistentVolumeSource {..} = + _omitNulls + [ "driver" .= v1FlexPersistentVolumeSourceDriver + , "fsType" .= v1FlexPersistentVolumeSourceFsType + , "options" .= v1FlexPersistentVolumeSourceOptions + , "readOnly" .= v1FlexPersistentVolumeSourceReadOnly + , "secretRef" .= v1FlexPersistentVolumeSourceSecretRef + ] + + +-- | Construct a value of type 'V1FlexPersistentVolumeSource' (by applying it's required fields, if any) +mkV1FlexPersistentVolumeSource + :: Text -- ^ 'v1FlexPersistentVolumeSourceDriver': driver is the name of the driver to use for this volume. + -> V1FlexPersistentVolumeSource +mkV1FlexPersistentVolumeSource v1FlexPersistentVolumeSourceDriver = + V1FlexPersistentVolumeSource + { v1FlexPersistentVolumeSourceDriver + , v1FlexPersistentVolumeSourceFsType = Nothing + , v1FlexPersistentVolumeSourceOptions = Nothing + , v1FlexPersistentVolumeSourceReadOnly = Nothing + , v1FlexPersistentVolumeSourceSecretRef = Nothing + } + +-- ** V1FlexVolumeSource +-- | V1FlexVolumeSource +-- FlexVolume represents a generic volume resource that is provisioned/attached using an exec based plugin. +data V1FlexVolumeSource = V1FlexVolumeSource + { v1FlexVolumeSourceDriver :: !(Text) -- ^ /Required/ "driver" - driver is the name of the driver to use for this volume. + , v1FlexVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default filesystem depends on FlexVolume script. + , v1FlexVolumeSourceOptions :: !(Maybe (Map.Map String Text)) -- ^ "options" - options is Optional: this field holds extra command options if any. + , v1FlexVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly is Optional: defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1FlexVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1FlexVolumeSource +instance A.FromJSON V1FlexVolumeSource where + parseJSON = A.withObject "V1FlexVolumeSource" $ \o -> + V1FlexVolumeSource + <$> (o .: "driver") + <*> (o .:? "fsType") + <*> (o .:? "options") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + +-- | ToJSON V1FlexVolumeSource +instance A.ToJSON V1FlexVolumeSource where + toJSON V1FlexVolumeSource {..} = + _omitNulls + [ "driver" .= v1FlexVolumeSourceDriver + , "fsType" .= v1FlexVolumeSourceFsType + , "options" .= v1FlexVolumeSourceOptions + , "readOnly" .= v1FlexVolumeSourceReadOnly + , "secretRef" .= v1FlexVolumeSourceSecretRef + ] + + +-- | Construct a value of type 'V1FlexVolumeSource' (by applying it's required fields, if any) +mkV1FlexVolumeSource + :: Text -- ^ 'v1FlexVolumeSourceDriver': driver is the name of the driver to use for this volume. + -> V1FlexVolumeSource +mkV1FlexVolumeSource v1FlexVolumeSourceDriver = + V1FlexVolumeSource + { v1FlexVolumeSourceDriver + , v1FlexVolumeSourceFsType = Nothing + , v1FlexVolumeSourceOptions = Nothing + , v1FlexVolumeSourceReadOnly = Nothing + , v1FlexVolumeSourceSecretRef = Nothing + } + +-- ** V1FlockerVolumeSource +-- | V1FlockerVolumeSource +-- Represents a Flocker volume mounted by the Flocker agent. One and only one of datasetName and datasetUUID should be set. Flocker volumes do not support ownership management or SELinux relabeling. +data V1FlockerVolumeSource = V1FlockerVolumeSource + { v1FlockerVolumeSourceDatasetName :: !(Maybe Text) -- ^ "datasetName" - datasetName is Name of the dataset stored as metadata -> name on the dataset for Flocker should be considered as deprecated + , v1FlockerVolumeSourceDatasetUuid :: !(Maybe Text) -- ^ "datasetUUID" - datasetUUID is the UUID of the dataset. This is unique identifier of a Flocker dataset + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1FlockerVolumeSource +instance A.FromJSON V1FlockerVolumeSource where + parseJSON = A.withObject "V1FlockerVolumeSource" $ \o -> + V1FlockerVolumeSource + <$> (o .:? "datasetName") + <*> (o .:? "datasetUUID") + +-- | ToJSON V1FlockerVolumeSource +instance A.ToJSON V1FlockerVolumeSource where + toJSON V1FlockerVolumeSource {..} = + _omitNulls + [ "datasetName" .= v1FlockerVolumeSourceDatasetName + , "datasetUUID" .= v1FlockerVolumeSourceDatasetUuid + ] + + +-- | Construct a value of type 'V1FlockerVolumeSource' (by applying it's required fields, if any) +mkV1FlockerVolumeSource + :: V1FlockerVolumeSource +mkV1FlockerVolumeSource = + V1FlockerVolumeSource + { v1FlockerVolumeSourceDatasetName = Nothing + , v1FlockerVolumeSourceDatasetUuid = Nothing + } + +-- ** V1ForZone +-- | V1ForZone +-- ForZone provides information about which zones should consume this endpoint. +data V1ForZone = V1ForZone + { v1ForZoneName :: !(Text) -- ^ /Required/ "name" - name represents the name of the zone. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ForZone +instance A.FromJSON V1ForZone where + parseJSON = A.withObject "V1ForZone" $ \o -> + V1ForZone + <$> (o .: "name") + +-- | ToJSON V1ForZone +instance A.ToJSON V1ForZone where + toJSON V1ForZone {..} = + _omitNulls + [ "name" .= v1ForZoneName + ] + + +-- | Construct a value of type 'V1ForZone' (by applying it's required fields, if any) +mkV1ForZone + :: Text -- ^ 'v1ForZoneName': name represents the name of the zone. + -> V1ForZone +mkV1ForZone v1ForZoneName = + V1ForZone + { v1ForZoneName + } + +-- ** V1GCEPersistentDiskVolumeSource +-- | V1GCEPersistentDiskVolumeSource +-- Represents a Persistent Disk resource in Google Compute Engine. A GCE PD must exist before mounting to a container. The disk must also be in the same GCE project and zone as the kubelet. A GCE PD can only be mounted as read/write once or read-only many times. GCE PDs support ownership management and SELinux relabeling. +data V1GCEPersistentDiskVolumeSource = V1GCEPersistentDiskVolumeSource + { v1GCEPersistentDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk + , v1GCEPersistentDiskVolumeSourcePartition :: !(Maybe Int) -- ^ "partition" - partition is the partition in the volume that you want to mount. If omitted, the default is to mount by volume name. Examples: For volume /dev/sda1, you specify the partition as \"1\". Similarly, the volume partition for /dev/sda is \"0\" (or you can leave the property empty). More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk + , v1GCEPersistentDiskVolumeSourcePdName :: !(Text) -- ^ /Required/ "pdName" - pdName is unique name of the PD resource in GCE. Used to identify the disk in GCE. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk + , v1GCEPersistentDiskVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GCEPersistentDiskVolumeSource +instance A.FromJSON V1GCEPersistentDiskVolumeSource where + parseJSON = A.withObject "V1GCEPersistentDiskVolumeSource" $ \o -> + V1GCEPersistentDiskVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "partition") + <*> (o .: "pdName") + <*> (o .:? "readOnly") + +-- | ToJSON V1GCEPersistentDiskVolumeSource +instance A.ToJSON V1GCEPersistentDiskVolumeSource where + toJSON V1GCEPersistentDiskVolumeSource {..} = + _omitNulls + [ "fsType" .= v1GCEPersistentDiskVolumeSourceFsType + , "partition" .= v1GCEPersistentDiskVolumeSourcePartition + , "pdName" .= v1GCEPersistentDiskVolumeSourcePdName + , "readOnly" .= v1GCEPersistentDiskVolumeSourceReadOnly + ] + + +-- | Construct a value of type 'V1GCEPersistentDiskVolumeSource' (by applying it's required fields, if any) +mkV1GCEPersistentDiskVolumeSource + :: Text -- ^ 'v1GCEPersistentDiskVolumeSourcePdName': pdName is unique name of the PD resource in GCE. Used to identify the disk in GCE. More info: https://kubernetes.io/docs/concepts/storage/volumes#gcepersistentdisk + -> V1GCEPersistentDiskVolumeSource +mkV1GCEPersistentDiskVolumeSource v1GCEPersistentDiskVolumeSourcePdName = + V1GCEPersistentDiskVolumeSource + { v1GCEPersistentDiskVolumeSourceFsType = Nothing + , v1GCEPersistentDiskVolumeSourcePartition = Nothing + , v1GCEPersistentDiskVolumeSourcePdName + , v1GCEPersistentDiskVolumeSourceReadOnly = Nothing + } + +-- ** V1GRPCAction +-- | V1GRPCAction +data V1GRPCAction = V1GRPCAction + { v1GRPCActionPort :: !(Int) -- ^ /Required/ "port" - Port number of the gRPC service. Number must be in the range 1 to 65535. + , v1GRPCActionService :: !(Maybe Text) -- ^ "service" - Service is the name of the service to place in the gRPC HealthCheckRequest (see https://github.com/grpc/grpc/blob/master/doc/health-checking.md). If this is not specified, the default behavior is defined by gRPC. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GRPCAction +instance A.FromJSON V1GRPCAction where + parseJSON = A.withObject "V1GRPCAction" $ \o -> + V1GRPCAction + <$> (o .: "port") + <*> (o .:? "service") + +-- | ToJSON V1GRPCAction +instance A.ToJSON V1GRPCAction where + toJSON V1GRPCAction {..} = + _omitNulls + [ "port" .= v1GRPCActionPort + , "service" .= v1GRPCActionService + ] + + +-- | Construct a value of type 'V1GRPCAction' (by applying it's required fields, if any) +mkV1GRPCAction + :: Int -- ^ 'v1GRPCActionPort': Port number of the gRPC service. Number must be in the range 1 to 65535. + -> V1GRPCAction +mkV1GRPCAction v1GRPCActionPort = + V1GRPCAction + { v1GRPCActionPort + , v1GRPCActionService = Nothing + } + +-- ** V1GitRepoVolumeSource +-- | V1GitRepoVolumeSource +-- Represents a volume that is populated with the contents of a git repository. Git repo volumes do not support ownership management. Git repo volumes support SELinux relabeling. DEPRECATED: GitRepo is deprecated. To provision a container with a git repo, mount an EmptyDir into an InitContainer that clones the repo using git, then mount the EmptyDir into the Pod's container. +data V1GitRepoVolumeSource = V1GitRepoVolumeSource + { v1GitRepoVolumeSourceDirectory :: !(Maybe Text) -- ^ "directory" - directory is the target directory name. Must not contain or start with '..'. If '.' is supplied, the volume directory will be the git repository. Otherwise, if specified, the volume will contain the git repository in the subdirectory with the given name. + , v1GitRepoVolumeSourceRepository :: !(Text) -- ^ /Required/ "repository" - repository is the URL + , v1GitRepoVolumeSourceRevision :: !(Maybe Text) -- ^ "revision" - revision is the commit hash for the specified revision. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GitRepoVolumeSource +instance A.FromJSON V1GitRepoVolumeSource where + parseJSON = A.withObject "V1GitRepoVolumeSource" $ \o -> + V1GitRepoVolumeSource + <$> (o .:? "directory") + <*> (o .: "repository") + <*> (o .:? "revision") + +-- | ToJSON V1GitRepoVolumeSource +instance A.ToJSON V1GitRepoVolumeSource where + toJSON V1GitRepoVolumeSource {..} = + _omitNulls + [ "directory" .= v1GitRepoVolumeSourceDirectory + , "repository" .= v1GitRepoVolumeSourceRepository + , "revision" .= v1GitRepoVolumeSourceRevision + ] + + +-- | Construct a value of type 'V1GitRepoVolumeSource' (by applying it's required fields, if any) +mkV1GitRepoVolumeSource + :: Text -- ^ 'v1GitRepoVolumeSourceRepository': repository is the URL + -> V1GitRepoVolumeSource +mkV1GitRepoVolumeSource v1GitRepoVolumeSourceRepository = + V1GitRepoVolumeSource + { v1GitRepoVolumeSourceDirectory = Nothing + , v1GitRepoVolumeSourceRepository + , v1GitRepoVolumeSourceRevision = Nothing + } + +-- ** V1GlusterfsPersistentVolumeSource +-- | V1GlusterfsPersistentVolumeSource +-- Represents a Glusterfs mount that lasts the lifetime of a pod. Glusterfs volumes do not support ownership management or SELinux relabeling. +data V1GlusterfsPersistentVolumeSource = V1GlusterfsPersistentVolumeSource + { v1GlusterfsPersistentVolumeSourceEndpoints :: !(Text) -- ^ /Required/ "endpoints" - endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + , v1GlusterfsPersistentVolumeSourceEndpointsNamespace :: !(Maybe Text) -- ^ "endpointsNamespace" - endpointsNamespace is the namespace that contains Glusterfs endpoint. If this field is empty, the EndpointNamespace defaults to the same namespace as the bound PVC. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + , v1GlusterfsPersistentVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + , v1GlusterfsPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Glusterfs volume to be mounted with read-only permissions. Defaults to false. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GlusterfsPersistentVolumeSource +instance A.FromJSON V1GlusterfsPersistentVolumeSource where + parseJSON = A.withObject "V1GlusterfsPersistentVolumeSource" $ \o -> + V1GlusterfsPersistentVolumeSource + <$> (o .: "endpoints") + <*> (o .:? "endpointsNamespace") + <*> (o .: "path") + <*> (o .:? "readOnly") + +-- | ToJSON V1GlusterfsPersistentVolumeSource +instance A.ToJSON V1GlusterfsPersistentVolumeSource where + toJSON V1GlusterfsPersistentVolumeSource {..} = + _omitNulls + [ "endpoints" .= v1GlusterfsPersistentVolumeSourceEndpoints + , "endpointsNamespace" .= v1GlusterfsPersistentVolumeSourceEndpointsNamespace + , "path" .= v1GlusterfsPersistentVolumeSourcePath + , "readOnly" .= v1GlusterfsPersistentVolumeSourceReadOnly + ] + + +-- | Construct a value of type 'V1GlusterfsPersistentVolumeSource' (by applying it's required fields, if any) +mkV1GlusterfsPersistentVolumeSource + :: Text -- ^ 'v1GlusterfsPersistentVolumeSourceEndpoints': endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + -> Text -- ^ 'v1GlusterfsPersistentVolumeSourcePath': path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + -> V1GlusterfsPersistentVolumeSource +mkV1GlusterfsPersistentVolumeSource v1GlusterfsPersistentVolumeSourceEndpoints v1GlusterfsPersistentVolumeSourcePath = + V1GlusterfsPersistentVolumeSource + { v1GlusterfsPersistentVolumeSourceEndpoints + , v1GlusterfsPersistentVolumeSourceEndpointsNamespace = Nothing + , v1GlusterfsPersistentVolumeSourcePath + , v1GlusterfsPersistentVolumeSourceReadOnly = Nothing + } + +-- ** V1GlusterfsVolumeSource +-- | V1GlusterfsVolumeSource +-- Represents a Glusterfs mount that lasts the lifetime of a pod. Glusterfs volumes do not support ownership management or SELinux relabeling. +data V1GlusterfsVolumeSource = V1GlusterfsVolumeSource + { v1GlusterfsVolumeSourceEndpoints :: !(Text) -- ^ /Required/ "endpoints" - endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + , v1GlusterfsVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + , v1GlusterfsVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Glusterfs volume to be mounted with read-only permissions. Defaults to false. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GlusterfsVolumeSource +instance A.FromJSON V1GlusterfsVolumeSource where + parseJSON = A.withObject "V1GlusterfsVolumeSource" $ \o -> + V1GlusterfsVolumeSource + <$> (o .: "endpoints") + <*> (o .: "path") + <*> (o .:? "readOnly") + +-- | ToJSON V1GlusterfsVolumeSource +instance A.ToJSON V1GlusterfsVolumeSource where + toJSON V1GlusterfsVolumeSource {..} = + _omitNulls + [ "endpoints" .= v1GlusterfsVolumeSourceEndpoints + , "path" .= v1GlusterfsVolumeSourcePath + , "readOnly" .= v1GlusterfsVolumeSourceReadOnly + ] + + +-- | Construct a value of type 'V1GlusterfsVolumeSource' (by applying it's required fields, if any) +mkV1GlusterfsVolumeSource + :: Text -- ^ 'v1GlusterfsVolumeSourceEndpoints': endpoints is the endpoint name that details Glusterfs topology. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + -> Text -- ^ 'v1GlusterfsVolumeSourcePath': path is the Glusterfs volume path. More info: https://examples.k8s.io/volumes/glusterfs/README.md#create-a-pod + -> V1GlusterfsVolumeSource +mkV1GlusterfsVolumeSource v1GlusterfsVolumeSourceEndpoints v1GlusterfsVolumeSourcePath = + V1GlusterfsVolumeSource + { v1GlusterfsVolumeSourceEndpoints + , v1GlusterfsVolumeSourcePath + , v1GlusterfsVolumeSourceReadOnly = Nothing + } + +-- ** V1GroupVersionForDiscovery +-- | V1GroupVersionForDiscovery +-- GroupVersion contains the \"group/version\" and \"version\" string of a version. It is made a struct to keep extensibility. +data V1GroupVersionForDiscovery = V1GroupVersionForDiscovery + { v1GroupVersionForDiscoveryGroupVersion :: !(Text) -- ^ /Required/ "groupVersion" - groupVersion specifies the API group and version in the form \"group/version\" + , v1GroupVersionForDiscoveryVersion :: !(Text) -- ^ /Required/ "version" - version specifies the version in the form of \"version\". This is to save the clients the trouble of splitting the GroupVersion. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1GroupVersionForDiscovery +instance A.FromJSON V1GroupVersionForDiscovery where + parseJSON = A.withObject "V1GroupVersionForDiscovery" $ \o -> + V1GroupVersionForDiscovery + <$> (o .: "groupVersion") + <*> (o .: "version") + +-- | ToJSON V1GroupVersionForDiscovery +instance A.ToJSON V1GroupVersionForDiscovery where + toJSON V1GroupVersionForDiscovery {..} = + _omitNulls + [ "groupVersion" .= v1GroupVersionForDiscoveryGroupVersion + , "version" .= v1GroupVersionForDiscoveryVersion + ] + + +-- | Construct a value of type 'V1GroupVersionForDiscovery' (by applying it's required fields, if any) +mkV1GroupVersionForDiscovery + :: Text -- ^ 'v1GroupVersionForDiscoveryGroupVersion': groupVersion specifies the API group and version in the form \"group/version\" + -> Text -- ^ 'v1GroupVersionForDiscoveryVersion': version specifies the version in the form of \"version\". This is to save the clients the trouble of splitting the GroupVersion. + -> V1GroupVersionForDiscovery +mkV1GroupVersionForDiscovery v1GroupVersionForDiscoveryGroupVersion v1GroupVersionForDiscoveryVersion = + V1GroupVersionForDiscovery + { v1GroupVersionForDiscoveryGroupVersion + , v1GroupVersionForDiscoveryVersion + } + +-- ** V1HTTPGetAction +-- | V1HTTPGetAction +-- HTTPGetAction describes an action based on HTTP Get requests. +data V1HTTPGetAction = V1HTTPGetAction + { v1HTTPGetActionHost :: !(Maybe Text) -- ^ "host" - Host name to connect to, defaults to the pod IP. You probably want to set \"Host\" in httpHeaders instead. + , v1HTTPGetActionHttpHeaders :: !(Maybe [V1HTTPHeader]) -- ^ "httpHeaders" - Custom headers to set in the request. HTTP allows repeated headers. + , v1HTTPGetActionPath :: !(Maybe Text) -- ^ "path" - Path to access on the HTTP server. + , v1HTTPGetActionPort :: !(IntOrString) -- ^ /Required/ "port" + , v1HTTPGetActionScheme :: !(Maybe Text) -- ^ "scheme" - Scheme to use for connecting to the host. Defaults to HTTP. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HTTPGetAction +instance A.FromJSON V1HTTPGetAction where + parseJSON = A.withObject "V1HTTPGetAction" $ \o -> + V1HTTPGetAction + <$> (o .:? "host") + <*> (o .:? "httpHeaders") + <*> (o .:? "path") + <*> (o .: "port") + <*> (o .:? "scheme") + +-- | ToJSON V1HTTPGetAction +instance A.ToJSON V1HTTPGetAction where + toJSON V1HTTPGetAction {..} = + _omitNulls + [ "host" .= v1HTTPGetActionHost + , "httpHeaders" .= v1HTTPGetActionHttpHeaders + , "path" .= v1HTTPGetActionPath + , "port" .= v1HTTPGetActionPort + , "scheme" .= v1HTTPGetActionScheme + ] + + +-- | Construct a value of type 'V1HTTPGetAction' (by applying it's required fields, if any) +mkV1HTTPGetAction + :: IntOrString -- ^ 'v1HTTPGetActionPort' + -> V1HTTPGetAction +mkV1HTTPGetAction v1HTTPGetActionPort = + V1HTTPGetAction + { v1HTTPGetActionHost = Nothing + , v1HTTPGetActionHttpHeaders = Nothing + , v1HTTPGetActionPath = Nothing + , v1HTTPGetActionPort + , v1HTTPGetActionScheme = Nothing + } + +-- ** V1HTTPHeader +-- | V1HTTPHeader +-- HTTPHeader describes a custom header to be used in HTTP probes +data V1HTTPHeader = V1HTTPHeader + { v1HTTPHeaderName :: !(Text) -- ^ /Required/ "name" - The header field name. This will be canonicalized upon output, so case-variant names will be understood as the same header. + , v1HTTPHeaderValue :: !(Text) -- ^ /Required/ "value" - The header field value + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HTTPHeader +instance A.FromJSON V1HTTPHeader where + parseJSON = A.withObject "V1HTTPHeader" $ \o -> + V1HTTPHeader + <$> (o .: "name") + <*> (o .: "value") + +-- | ToJSON V1HTTPHeader +instance A.ToJSON V1HTTPHeader where + toJSON V1HTTPHeader {..} = + _omitNulls + [ "name" .= v1HTTPHeaderName + , "value" .= v1HTTPHeaderValue + ] + + +-- | Construct a value of type 'V1HTTPHeader' (by applying it's required fields, if any) +mkV1HTTPHeader + :: Text -- ^ 'v1HTTPHeaderName': The header field name. This will be canonicalized upon output, so case-variant names will be understood as the same header. + -> Text -- ^ 'v1HTTPHeaderValue': The header field value + -> V1HTTPHeader +mkV1HTTPHeader v1HTTPHeaderName v1HTTPHeaderValue = + V1HTTPHeader + { v1HTTPHeaderName + , v1HTTPHeaderValue + } + +-- ** V1HTTPIngressPath +-- | V1HTTPIngressPath +-- HTTPIngressPath associates a path with a backend. Incoming urls matching the path are forwarded to the backend. +data V1HTTPIngressPath = V1HTTPIngressPath + { v1HTTPIngressPathBackend :: !(V1IngressBackend) -- ^ /Required/ "backend" + , v1HTTPIngressPathPath :: !(Maybe Text) -- ^ "path" - path is matched against the path of an incoming request. Currently it can contain characters disallowed from the conventional \"path\" part of a URL as defined by RFC 3986. Paths must begin with a '/' and must be present when using PathType with value \"Exact\" or \"Prefix\". + , v1HTTPIngressPathPathType :: !(Text) -- ^ /Required/ "pathType" - pathType determines the interpretation of the path matching. PathType can be one of the following values: * Exact: Matches the URL path exactly. * Prefix: Matches based on a URL path prefix split by '/'. Matching is done on a path element by element basis. A path element refers is the list of labels in the path split by the '/' separator. A request is a match for path p if every p is an element-wise prefix of p of the request path. Note that if the last element of the path is a substring of the last element in request path, it is not a match (e.g. /foo/bar matches /foo/bar/baz, but does not match /foo/barbaz). * ImplementationSpecific: Interpretation of the Path matching is up to the IngressClass. Implementations can treat this as a separate PathType or treat it identically to Prefix or Exact path types. Implementations are required to support all path types. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HTTPIngressPath +instance A.FromJSON V1HTTPIngressPath where + parseJSON = A.withObject "V1HTTPIngressPath" $ \o -> + V1HTTPIngressPath + <$> (o .: "backend") + <*> (o .:? "path") + <*> (o .: "pathType") + +-- | ToJSON V1HTTPIngressPath +instance A.ToJSON V1HTTPIngressPath where + toJSON V1HTTPIngressPath {..} = + _omitNulls + [ "backend" .= v1HTTPIngressPathBackend + , "path" .= v1HTTPIngressPathPath + , "pathType" .= v1HTTPIngressPathPathType + ] + + +-- | Construct a value of type 'V1HTTPIngressPath' (by applying it's required fields, if any) +mkV1HTTPIngressPath + :: V1IngressBackend -- ^ 'v1HTTPIngressPathBackend' + -> Text -- ^ 'v1HTTPIngressPathPathType': pathType determines the interpretation of the path matching. PathType can be one of the following values: * Exact: Matches the URL path exactly. * Prefix: Matches based on a URL path prefix split by '/'. Matching is done on a path element by element basis. A path element refers is the list of labels in the path split by the '/' separator. A request is a match for path p if every p is an element-wise prefix of p of the request path. Note that if the last element of the path is a substring of the last element in request path, it is not a match (e.g. /foo/bar matches /foo/bar/baz, but does not match /foo/barbaz). * ImplementationSpecific: Interpretation of the Path matching is up to the IngressClass. Implementations can treat this as a separate PathType or treat it identically to Prefix or Exact path types. Implementations are required to support all path types. + -> V1HTTPIngressPath +mkV1HTTPIngressPath v1HTTPIngressPathBackend v1HTTPIngressPathPathType = + V1HTTPIngressPath + { v1HTTPIngressPathBackend + , v1HTTPIngressPathPath = Nothing + , v1HTTPIngressPathPathType + } + +-- ** V1HTTPIngressRuleValue +-- | V1HTTPIngressRuleValue +-- HTTPIngressRuleValue is a list of http selectors pointing to backends. In the example: http:///? -> backend where where parts of the url correspond to RFC 3986, this resource will be used to match against everything after the last '/' and before the first '?' or '#'. +data V1HTTPIngressRuleValue = V1HTTPIngressRuleValue + { v1HTTPIngressRuleValuePaths :: !([V1HTTPIngressPath]) -- ^ /Required/ "paths" - paths is a collection of paths that map requests to backends. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HTTPIngressRuleValue +instance A.FromJSON V1HTTPIngressRuleValue where + parseJSON = A.withObject "V1HTTPIngressRuleValue" $ \o -> + V1HTTPIngressRuleValue + <$> (o .: "paths") + +-- | ToJSON V1HTTPIngressRuleValue +instance A.ToJSON V1HTTPIngressRuleValue where + toJSON V1HTTPIngressRuleValue {..} = + _omitNulls + [ "paths" .= v1HTTPIngressRuleValuePaths + ] + + +-- | Construct a value of type 'V1HTTPIngressRuleValue' (by applying it's required fields, if any) +mkV1HTTPIngressRuleValue + :: [V1HTTPIngressPath] -- ^ 'v1HTTPIngressRuleValuePaths': paths is a collection of paths that map requests to backends. + -> V1HTTPIngressRuleValue +mkV1HTTPIngressRuleValue v1HTTPIngressRuleValuePaths = + V1HTTPIngressRuleValue + { v1HTTPIngressRuleValuePaths + } + +-- ** V1HorizontalPodAutoscaler +-- | V1HorizontalPodAutoscaler +-- configuration of a horizontal pod autoscaler. +data V1HorizontalPodAutoscaler = V1HorizontalPodAutoscaler + { v1HorizontalPodAutoscalerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1HorizontalPodAutoscalerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1HorizontalPodAutoscalerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1HorizontalPodAutoscalerSpec :: !(Maybe V1HorizontalPodAutoscalerSpec) -- ^ "spec" + , v1HorizontalPodAutoscalerStatus :: !(Maybe V1HorizontalPodAutoscalerStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HorizontalPodAutoscaler +instance A.FromJSON V1HorizontalPodAutoscaler where + parseJSON = A.withObject "V1HorizontalPodAutoscaler" $ \o -> + V1HorizontalPodAutoscaler + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1HorizontalPodAutoscaler +instance A.ToJSON V1HorizontalPodAutoscaler where + toJSON V1HorizontalPodAutoscaler {..} = + _omitNulls + [ "apiVersion" .= v1HorizontalPodAutoscalerApiVersion + , "kind" .= v1HorizontalPodAutoscalerKind + , "metadata" .= v1HorizontalPodAutoscalerMetadata + , "spec" .= v1HorizontalPodAutoscalerSpec + , "status" .= v1HorizontalPodAutoscalerStatus + ] + + +-- | Construct a value of type 'V1HorizontalPodAutoscaler' (by applying it's required fields, if any) +mkV1HorizontalPodAutoscaler + :: V1HorizontalPodAutoscaler +mkV1HorizontalPodAutoscaler = + V1HorizontalPodAutoscaler + { v1HorizontalPodAutoscalerApiVersion = Nothing + , v1HorizontalPodAutoscalerKind = Nothing + , v1HorizontalPodAutoscalerMetadata = Nothing + , v1HorizontalPodAutoscalerSpec = Nothing + , v1HorizontalPodAutoscalerStatus = Nothing + } + +-- ** V1HorizontalPodAutoscalerList +-- | V1HorizontalPodAutoscalerList +-- list of horizontal pod autoscaler objects. +data V1HorizontalPodAutoscalerList = V1HorizontalPodAutoscalerList + { v1HorizontalPodAutoscalerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1HorizontalPodAutoscalerListItems :: !([V1HorizontalPodAutoscaler]) -- ^ /Required/ "items" - items is the list of horizontal pod autoscaler objects. + , v1HorizontalPodAutoscalerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1HorizontalPodAutoscalerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HorizontalPodAutoscalerList +instance A.FromJSON V1HorizontalPodAutoscalerList where + parseJSON = A.withObject "V1HorizontalPodAutoscalerList" $ \o -> + V1HorizontalPodAutoscalerList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1HorizontalPodAutoscalerList +instance A.ToJSON V1HorizontalPodAutoscalerList where + toJSON V1HorizontalPodAutoscalerList {..} = + _omitNulls + [ "apiVersion" .= v1HorizontalPodAutoscalerListApiVersion + , "items" .= v1HorizontalPodAutoscalerListItems + , "kind" .= v1HorizontalPodAutoscalerListKind + , "metadata" .= v1HorizontalPodAutoscalerListMetadata + ] + + +-- | Construct a value of type 'V1HorizontalPodAutoscalerList' (by applying it's required fields, if any) +mkV1HorizontalPodAutoscalerList + :: [V1HorizontalPodAutoscaler] -- ^ 'v1HorizontalPodAutoscalerListItems': items is the list of horizontal pod autoscaler objects. + -> V1HorizontalPodAutoscalerList +mkV1HorizontalPodAutoscalerList v1HorizontalPodAutoscalerListItems = + V1HorizontalPodAutoscalerList + { v1HorizontalPodAutoscalerListApiVersion = Nothing + , v1HorizontalPodAutoscalerListItems + , v1HorizontalPodAutoscalerListKind = Nothing + , v1HorizontalPodAutoscalerListMetadata = Nothing + } + +-- ** V1HorizontalPodAutoscalerSpec +-- | V1HorizontalPodAutoscalerSpec +-- specification of a horizontal pod autoscaler. +data V1HorizontalPodAutoscalerSpec = V1HorizontalPodAutoscalerSpec + { v1HorizontalPodAutoscalerSpecMaxReplicas :: !(Int) -- ^ /Required/ "maxReplicas" - maxReplicas is the upper limit for the number of pods that can be set by the autoscaler; cannot be smaller than MinReplicas. + , v1HorizontalPodAutoscalerSpecMinReplicas :: !(Maybe Int) -- ^ "minReplicas" - minReplicas is the lower limit for the number of replicas to which the autoscaler can scale down. It defaults to 1 pod. minReplicas is allowed to be 0 if the alpha feature gate HPAScaleToZero is enabled and at least one Object or External metric is configured. Scaling is active as long as at least one metric value is available. + , v1HorizontalPodAutoscalerSpecScaleTargetRef :: !(V1CrossVersionObjectReference) -- ^ /Required/ "scaleTargetRef" + , v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage :: !(Maybe Int) -- ^ "targetCPUUtilizationPercentage" - targetCPUUtilizationPercentage is the target average CPU utilization (represented as a percentage of requested CPU) over all the pods; if not specified the default autoscaling policy will be used. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HorizontalPodAutoscalerSpec +instance A.FromJSON V1HorizontalPodAutoscalerSpec where + parseJSON = A.withObject "V1HorizontalPodAutoscalerSpec" $ \o -> + V1HorizontalPodAutoscalerSpec + <$> (o .: "maxReplicas") + <*> (o .:? "minReplicas") + <*> (o .: "scaleTargetRef") + <*> (o .:? "targetCPUUtilizationPercentage") + +-- | ToJSON V1HorizontalPodAutoscalerSpec +instance A.ToJSON V1HorizontalPodAutoscalerSpec where + toJSON V1HorizontalPodAutoscalerSpec {..} = + _omitNulls + [ "maxReplicas" .= v1HorizontalPodAutoscalerSpecMaxReplicas + , "minReplicas" .= v1HorizontalPodAutoscalerSpecMinReplicas + , "scaleTargetRef" .= v1HorizontalPodAutoscalerSpecScaleTargetRef + , "targetCPUUtilizationPercentage" .= v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage + ] + + +-- | Construct a value of type 'V1HorizontalPodAutoscalerSpec' (by applying it's required fields, if any) +mkV1HorizontalPodAutoscalerSpec + :: Int -- ^ 'v1HorizontalPodAutoscalerSpecMaxReplicas': maxReplicas is the upper limit for the number of pods that can be set by the autoscaler; cannot be smaller than MinReplicas. + -> V1CrossVersionObjectReference -- ^ 'v1HorizontalPodAutoscalerSpecScaleTargetRef' + -> V1HorizontalPodAutoscalerSpec +mkV1HorizontalPodAutoscalerSpec v1HorizontalPodAutoscalerSpecMaxReplicas v1HorizontalPodAutoscalerSpecScaleTargetRef = + V1HorizontalPodAutoscalerSpec + { v1HorizontalPodAutoscalerSpecMaxReplicas + , v1HorizontalPodAutoscalerSpecMinReplicas = Nothing + , v1HorizontalPodAutoscalerSpecScaleTargetRef + , v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage = Nothing + } + +-- ** V1HorizontalPodAutoscalerStatus +-- | V1HorizontalPodAutoscalerStatus +-- current status of a horizontal pod autoscaler +data V1HorizontalPodAutoscalerStatus = V1HorizontalPodAutoscalerStatus + { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage :: !(Maybe Int) -- ^ "currentCPUUtilizationPercentage" - currentCPUUtilizationPercentage is the current average CPU utilization over all pods, represented as a percentage of requested CPU, e.g. 70 means that an average pod is using now 70% of its requested CPU. + , v1HorizontalPodAutoscalerStatusCurrentReplicas :: !(Int) -- ^ /Required/ "currentReplicas" - currentReplicas is the current number of replicas of pods managed by this autoscaler. + , v1HorizontalPodAutoscalerStatusDesiredReplicas :: !(Int) -- ^ /Required/ "desiredReplicas" - desiredReplicas is the desired number of replicas of pods managed by this autoscaler. + , v1HorizontalPodAutoscalerStatusLastScaleTime :: !(Maybe DateTime) -- ^ "lastScaleTime" - lastScaleTime is the last time the HorizontalPodAutoscaler scaled the number of pods; used by the autoscaler to control how often the number of pods is changed. + , v1HorizontalPodAutoscalerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration is the most recent generation observed by this autoscaler. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HorizontalPodAutoscalerStatus +instance A.FromJSON V1HorizontalPodAutoscalerStatus where + parseJSON = A.withObject "V1HorizontalPodAutoscalerStatus" $ \o -> + V1HorizontalPodAutoscalerStatus + <$> (o .:? "currentCPUUtilizationPercentage") + <*> (o .: "currentReplicas") + <*> (o .: "desiredReplicas") + <*> (o .:? "lastScaleTime") + <*> (o .:? "observedGeneration") + +-- | ToJSON V1HorizontalPodAutoscalerStatus +instance A.ToJSON V1HorizontalPodAutoscalerStatus where + toJSON V1HorizontalPodAutoscalerStatus {..} = + _omitNulls + [ "currentCPUUtilizationPercentage" .= v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage + , "currentReplicas" .= v1HorizontalPodAutoscalerStatusCurrentReplicas + , "desiredReplicas" .= v1HorizontalPodAutoscalerStatusDesiredReplicas + , "lastScaleTime" .= v1HorizontalPodAutoscalerStatusLastScaleTime + , "observedGeneration" .= v1HorizontalPodAutoscalerStatusObservedGeneration + ] + + +-- | Construct a value of type 'V1HorizontalPodAutoscalerStatus' (by applying it's required fields, if any) +mkV1HorizontalPodAutoscalerStatus + :: Int -- ^ 'v1HorizontalPodAutoscalerStatusCurrentReplicas': currentReplicas is the current number of replicas of pods managed by this autoscaler. + -> Int -- ^ 'v1HorizontalPodAutoscalerStatusDesiredReplicas': desiredReplicas is the desired number of replicas of pods managed by this autoscaler. + -> V1HorizontalPodAutoscalerStatus +mkV1HorizontalPodAutoscalerStatus v1HorizontalPodAutoscalerStatusCurrentReplicas v1HorizontalPodAutoscalerStatusDesiredReplicas = + V1HorizontalPodAutoscalerStatus + { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage = Nothing + , v1HorizontalPodAutoscalerStatusCurrentReplicas + , v1HorizontalPodAutoscalerStatusDesiredReplicas + , v1HorizontalPodAutoscalerStatusLastScaleTime = Nothing + , v1HorizontalPodAutoscalerStatusObservedGeneration = Nothing + } + +-- ** V1HostAlias +-- | V1HostAlias +-- HostAlias holds the mapping between IP and hostnames that will be injected as an entry in the pod's hosts file. +data V1HostAlias = V1HostAlias + { v1HostAliasHostnames :: !(Maybe [Text]) -- ^ "hostnames" - Hostnames for the above IP address. + , v1HostAliasIp :: !(Maybe Text) -- ^ "ip" - IP address of the host file entry. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HostAlias +instance A.FromJSON V1HostAlias where + parseJSON = A.withObject "V1HostAlias" $ \o -> + V1HostAlias + <$> (o .:? "hostnames") + <*> (o .:? "ip") + +-- | ToJSON V1HostAlias +instance A.ToJSON V1HostAlias where + toJSON V1HostAlias {..} = + _omitNulls + [ "hostnames" .= v1HostAliasHostnames + , "ip" .= v1HostAliasIp + ] + + +-- | Construct a value of type 'V1HostAlias' (by applying it's required fields, if any) +mkV1HostAlias + :: V1HostAlias +mkV1HostAlias = + V1HostAlias + { v1HostAliasHostnames = Nothing + , v1HostAliasIp = Nothing + } + +-- ** V1HostPathVolumeSource +-- | V1HostPathVolumeSource +-- Represents a host path mapped into a pod. Host path volumes do not support ownership management or SELinux relabeling. +data V1HostPathVolumeSource = V1HostPathVolumeSource + { v1HostPathVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path of the directory on the host. If the path is a symlink, it will follow the link to the real path. More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath + , v1HostPathVolumeSourceType :: !(Maybe Text) -- ^ "type" - type for HostPath Volume Defaults to \"\" More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1HostPathVolumeSource +instance A.FromJSON V1HostPathVolumeSource where + parseJSON = A.withObject "V1HostPathVolumeSource" $ \o -> + V1HostPathVolumeSource + <$> (o .: "path") + <*> (o .:? "type") + +-- | ToJSON V1HostPathVolumeSource +instance A.ToJSON V1HostPathVolumeSource where + toJSON V1HostPathVolumeSource {..} = + _omitNulls + [ "path" .= v1HostPathVolumeSourcePath + , "type" .= v1HostPathVolumeSourceType + ] + + +-- | Construct a value of type 'V1HostPathVolumeSource' (by applying it's required fields, if any) +mkV1HostPathVolumeSource + :: Text -- ^ 'v1HostPathVolumeSourcePath': path of the directory on the host. If the path is a symlink, it will follow the link to the real path. More info: https://kubernetes.io/docs/concepts/storage/volumes#hostpath + -> V1HostPathVolumeSource +mkV1HostPathVolumeSource v1HostPathVolumeSourcePath = + V1HostPathVolumeSource + { v1HostPathVolumeSourcePath + , v1HostPathVolumeSourceType = Nothing + } + +-- ** V1IPBlock +-- | V1IPBlock +-- IPBlock describes a particular CIDR (Ex. \"192.168.1.0/24\",\"2001:db8::/64\") that is allowed to the pods matched by a NetworkPolicySpec's podSelector. The except entry describes CIDRs that should not be included within this rule. +data V1IPBlock = V1IPBlock + { v1IPBlockCidr :: !(Text) -- ^ /Required/ "cidr" - cidr is a string representing the IPBlock Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" + , v1IPBlockExcept :: !(Maybe [Text]) -- ^ "except" - except is a slice of CIDRs that should not be included within an IPBlock Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" Except values will be rejected if they are outside the cidr range + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IPBlock +instance A.FromJSON V1IPBlock where + parseJSON = A.withObject "V1IPBlock" $ \o -> + V1IPBlock + <$> (o .: "cidr") + <*> (o .:? "except") + +-- | ToJSON V1IPBlock +instance A.ToJSON V1IPBlock where + toJSON V1IPBlock {..} = + _omitNulls + [ "cidr" .= v1IPBlockCidr + , "except" .= v1IPBlockExcept + ] + + +-- | Construct a value of type 'V1IPBlock' (by applying it's required fields, if any) +mkV1IPBlock + :: Text -- ^ 'v1IPBlockCidr': cidr is a string representing the IPBlock Valid examples are \"192.168.1.0/24\" or \"2001:db8::/64\" + -> V1IPBlock +mkV1IPBlock v1IPBlockCidr = + V1IPBlock + { v1IPBlockCidr + , v1IPBlockExcept = Nothing + } + +-- ** V1ISCSIPersistentVolumeSource +-- | V1ISCSIPersistentVolumeSource +-- ISCSIPersistentVolumeSource represents an ISCSI disk. ISCSI volumes can only be mounted as read/write once. ISCSI volumes support ownership management and SELinux relabeling. +data V1ISCSIPersistentVolumeSource = V1ISCSIPersistentVolumeSource + { v1ISCSIPersistentVolumeSourceChapAuthDiscovery :: !(Maybe Bool) -- ^ "chapAuthDiscovery" - chapAuthDiscovery defines whether support iSCSI Discovery CHAP authentication + , v1ISCSIPersistentVolumeSourceChapAuthSession :: !(Maybe Bool) -- ^ "chapAuthSession" - chapAuthSession defines whether support iSCSI Session CHAP authentication + , v1ISCSIPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#iscsi + , v1ISCSIPersistentVolumeSourceInitiatorName :: !(Maybe Text) -- ^ "initiatorName" - initiatorName is the custom iSCSI Initiator Name. If initiatorName is specified with iscsiInterface simultaneously, new iSCSI interface <target portal>:<volume name> will be created for the connection. + , v1ISCSIPersistentVolumeSourceIqn :: !(Text) -- ^ /Required/ "iqn" - iqn is Target iSCSI Qualified Name. + , v1ISCSIPersistentVolumeSourceIscsiInterface :: !(Maybe Text) -- ^ "iscsiInterface" - iscsiInterface is the interface Name that uses an iSCSI transport. Defaults to 'default' (tcp). + , v1ISCSIPersistentVolumeSourceLun :: !(Int) -- ^ /Required/ "lun" - lun is iSCSI Target Lun number. + , v1ISCSIPersistentVolumeSourcePortals :: !(Maybe [Text]) -- ^ "portals" - portals is the iSCSI Target Portal List. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + , v1ISCSIPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. + , v1ISCSIPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" + , v1ISCSIPersistentVolumeSourceTargetPortal :: !(Text) -- ^ /Required/ "targetPortal" - targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ISCSIPersistentVolumeSource +instance A.FromJSON V1ISCSIPersistentVolumeSource where + parseJSON = A.withObject "V1ISCSIPersistentVolumeSource" $ \o -> + V1ISCSIPersistentVolumeSource + <$> (o .:? "chapAuthDiscovery") + <*> (o .:? "chapAuthSession") + <*> (o .:? "fsType") + <*> (o .:? "initiatorName") + <*> (o .: "iqn") + <*> (o .:? "iscsiInterface") + <*> (o .: "lun") + <*> (o .:? "portals") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .: "targetPortal") + +-- | ToJSON V1ISCSIPersistentVolumeSource +instance A.ToJSON V1ISCSIPersistentVolumeSource where + toJSON V1ISCSIPersistentVolumeSource {..} = + _omitNulls + [ "chapAuthDiscovery" .= v1ISCSIPersistentVolumeSourceChapAuthDiscovery + , "chapAuthSession" .= v1ISCSIPersistentVolumeSourceChapAuthSession + , "fsType" .= v1ISCSIPersistentVolumeSourceFsType + , "initiatorName" .= v1ISCSIPersistentVolumeSourceInitiatorName + , "iqn" .= v1ISCSIPersistentVolumeSourceIqn + , "iscsiInterface" .= v1ISCSIPersistentVolumeSourceIscsiInterface + , "lun" .= v1ISCSIPersistentVolumeSourceLun + , "portals" .= v1ISCSIPersistentVolumeSourcePortals + , "readOnly" .= v1ISCSIPersistentVolumeSourceReadOnly + , "secretRef" .= v1ISCSIPersistentVolumeSourceSecretRef + , "targetPortal" .= v1ISCSIPersistentVolumeSourceTargetPortal + ] + + +-- | Construct a value of type 'V1ISCSIPersistentVolumeSource' (by applying it's required fields, if any) +mkV1ISCSIPersistentVolumeSource + :: Text -- ^ 'v1ISCSIPersistentVolumeSourceIqn': iqn is Target iSCSI Qualified Name. + -> Int -- ^ 'v1ISCSIPersistentVolumeSourceLun': lun is iSCSI Target Lun number. + -> Text -- ^ 'v1ISCSIPersistentVolumeSourceTargetPortal': targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + -> V1ISCSIPersistentVolumeSource +mkV1ISCSIPersistentVolumeSource v1ISCSIPersistentVolumeSourceIqn v1ISCSIPersistentVolumeSourceLun v1ISCSIPersistentVolumeSourceTargetPortal = + V1ISCSIPersistentVolumeSource + { v1ISCSIPersistentVolumeSourceChapAuthDiscovery = Nothing + , v1ISCSIPersistentVolumeSourceChapAuthSession = Nothing + , v1ISCSIPersistentVolumeSourceFsType = Nothing + , v1ISCSIPersistentVolumeSourceInitiatorName = Nothing + , v1ISCSIPersistentVolumeSourceIqn + , v1ISCSIPersistentVolumeSourceIscsiInterface = Nothing + , v1ISCSIPersistentVolumeSourceLun + , v1ISCSIPersistentVolumeSourcePortals = Nothing + , v1ISCSIPersistentVolumeSourceReadOnly = Nothing + , v1ISCSIPersistentVolumeSourceSecretRef = Nothing + , v1ISCSIPersistentVolumeSourceTargetPortal + } + +-- ** V1ISCSIVolumeSource +-- | V1ISCSIVolumeSource +-- Represents an ISCSI disk. ISCSI volumes can only be mounted as read/write once. ISCSI volumes support ownership management and SELinux relabeling. +data V1ISCSIVolumeSource = V1ISCSIVolumeSource + { v1ISCSIVolumeSourceChapAuthDiscovery :: !(Maybe Bool) -- ^ "chapAuthDiscovery" - chapAuthDiscovery defines whether support iSCSI Discovery CHAP authentication + , v1ISCSIVolumeSourceChapAuthSession :: !(Maybe Bool) -- ^ "chapAuthSession" - chapAuthSession defines whether support iSCSI Session CHAP authentication + , v1ISCSIVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#iscsi + , v1ISCSIVolumeSourceInitiatorName :: !(Maybe Text) -- ^ "initiatorName" - initiatorName is the custom iSCSI Initiator Name. If initiatorName is specified with iscsiInterface simultaneously, new iSCSI interface <target portal>:<volume name> will be created for the connection. + , v1ISCSIVolumeSourceIqn :: !(Text) -- ^ /Required/ "iqn" - iqn is the target iSCSI Qualified Name. + , v1ISCSIVolumeSourceIscsiInterface :: !(Maybe Text) -- ^ "iscsiInterface" - iscsiInterface is the interface Name that uses an iSCSI transport. Defaults to 'default' (tcp). + , v1ISCSIVolumeSourceLun :: !(Int) -- ^ /Required/ "lun" - lun represents iSCSI Target Lun number. + , v1ISCSIVolumeSourcePortals :: !(Maybe [Text]) -- ^ "portals" - portals is the iSCSI Target Portal List. The portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + , v1ISCSIVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. + , v1ISCSIVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + , v1ISCSIVolumeSourceTargetPortal :: !(Text) -- ^ /Required/ "targetPortal" - targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ISCSIVolumeSource +instance A.FromJSON V1ISCSIVolumeSource where + parseJSON = A.withObject "V1ISCSIVolumeSource" $ \o -> + V1ISCSIVolumeSource + <$> (o .:? "chapAuthDiscovery") + <*> (o .:? "chapAuthSession") + <*> (o .:? "fsType") + <*> (o .:? "initiatorName") + <*> (o .: "iqn") + <*> (o .:? "iscsiInterface") + <*> (o .: "lun") + <*> (o .:? "portals") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .: "targetPortal") + +-- | ToJSON V1ISCSIVolumeSource +instance A.ToJSON V1ISCSIVolumeSource where + toJSON V1ISCSIVolumeSource {..} = + _omitNulls + [ "chapAuthDiscovery" .= v1ISCSIVolumeSourceChapAuthDiscovery + , "chapAuthSession" .= v1ISCSIVolumeSourceChapAuthSession + , "fsType" .= v1ISCSIVolumeSourceFsType + , "initiatorName" .= v1ISCSIVolumeSourceInitiatorName + , "iqn" .= v1ISCSIVolumeSourceIqn + , "iscsiInterface" .= v1ISCSIVolumeSourceIscsiInterface + , "lun" .= v1ISCSIVolumeSourceLun + , "portals" .= v1ISCSIVolumeSourcePortals + , "readOnly" .= v1ISCSIVolumeSourceReadOnly + , "secretRef" .= v1ISCSIVolumeSourceSecretRef + , "targetPortal" .= v1ISCSIVolumeSourceTargetPortal + ] + + +-- | Construct a value of type 'V1ISCSIVolumeSource' (by applying it's required fields, if any) +mkV1ISCSIVolumeSource + :: Text -- ^ 'v1ISCSIVolumeSourceIqn': iqn is the target iSCSI Qualified Name. + -> Int -- ^ 'v1ISCSIVolumeSourceLun': lun represents iSCSI Target Lun number. + -> Text -- ^ 'v1ISCSIVolumeSourceTargetPortal': targetPortal is iSCSI Target Portal. The Portal is either an IP or ip_addr:port if the port is other than default (typically TCP ports 860 and 3260). + -> V1ISCSIVolumeSource +mkV1ISCSIVolumeSource v1ISCSIVolumeSourceIqn v1ISCSIVolumeSourceLun v1ISCSIVolumeSourceTargetPortal = + V1ISCSIVolumeSource + { v1ISCSIVolumeSourceChapAuthDiscovery = Nothing + , v1ISCSIVolumeSourceChapAuthSession = Nothing + , v1ISCSIVolumeSourceFsType = Nothing + , v1ISCSIVolumeSourceInitiatorName = Nothing + , v1ISCSIVolumeSourceIqn + , v1ISCSIVolumeSourceIscsiInterface = Nothing + , v1ISCSIVolumeSourceLun + , v1ISCSIVolumeSourcePortals = Nothing + , v1ISCSIVolumeSourceReadOnly = Nothing + , v1ISCSIVolumeSourceSecretRef = Nothing + , v1ISCSIVolumeSourceTargetPortal + } + +-- ** V1Ingress +-- | V1Ingress +-- Ingress is a collection of rules that allow inbound connections to reach the endpoints defined by a backend. An Ingress can be configured to give services externally-reachable urls, load balance traffic, terminate SSL, offer name based virtual hosting etc. +data V1Ingress = V1Ingress + { v1IngressApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1IngressKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1IngressMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1IngressSpec :: !(Maybe V1IngressSpec) -- ^ "spec" + , v1IngressStatus :: !(Maybe V1IngressStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Ingress +instance A.FromJSON V1Ingress where + parseJSON = A.withObject "V1Ingress" $ \o -> + V1Ingress + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Ingress +instance A.ToJSON V1Ingress where + toJSON V1Ingress {..} = + _omitNulls + [ "apiVersion" .= v1IngressApiVersion + , "kind" .= v1IngressKind + , "metadata" .= v1IngressMetadata + , "spec" .= v1IngressSpec + , "status" .= v1IngressStatus + ] + + +-- | Construct a value of type 'V1Ingress' (by applying it's required fields, if any) +mkV1Ingress + :: V1Ingress +mkV1Ingress = + V1Ingress + { v1IngressApiVersion = Nothing + , v1IngressKind = Nothing + , v1IngressMetadata = Nothing + , v1IngressSpec = Nothing + , v1IngressStatus = Nothing + } + +-- ** V1IngressBackend +-- | V1IngressBackend +-- IngressBackend describes all endpoints for a given service and port. +data V1IngressBackend = V1IngressBackend + { v1IngressBackendResource :: !(Maybe V1TypedLocalObjectReference) -- ^ "resource" + , v1IngressBackendService :: !(Maybe V1IngressServiceBackend) -- ^ "service" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressBackend +instance A.FromJSON V1IngressBackend where + parseJSON = A.withObject "V1IngressBackend" $ \o -> + V1IngressBackend + <$> (o .:? "resource") + <*> (o .:? "service") + +-- | ToJSON V1IngressBackend +instance A.ToJSON V1IngressBackend where + toJSON V1IngressBackend {..} = + _omitNulls + [ "resource" .= v1IngressBackendResource + , "service" .= v1IngressBackendService + ] + + +-- | Construct a value of type 'V1IngressBackend' (by applying it's required fields, if any) +mkV1IngressBackend + :: V1IngressBackend +mkV1IngressBackend = + V1IngressBackend + { v1IngressBackendResource = Nothing + , v1IngressBackendService = Nothing + } + +-- ** V1IngressClass +-- | V1IngressClass +-- IngressClass represents the class of the Ingress, referenced by the Ingress Spec. The `ingressclass.kubernetes.io/is-default-class` annotation can be used to indicate that an IngressClass should be considered default. When a single IngressClass resource has this annotation set to true, new Ingress resources without a class specified will be assigned this default class. +data V1IngressClass = V1IngressClass + { v1IngressClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1IngressClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1IngressClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1IngressClassSpec :: !(Maybe V1IngressClassSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressClass +instance A.FromJSON V1IngressClass where + parseJSON = A.withObject "V1IngressClass" $ \o -> + V1IngressClass + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1IngressClass +instance A.ToJSON V1IngressClass where + toJSON V1IngressClass {..} = + _omitNulls + [ "apiVersion" .= v1IngressClassApiVersion + , "kind" .= v1IngressClassKind + , "metadata" .= v1IngressClassMetadata + , "spec" .= v1IngressClassSpec + ] + + +-- | Construct a value of type 'V1IngressClass' (by applying it's required fields, if any) +mkV1IngressClass + :: V1IngressClass +mkV1IngressClass = + V1IngressClass + { v1IngressClassApiVersion = Nothing + , v1IngressClassKind = Nothing + , v1IngressClassMetadata = Nothing + , v1IngressClassSpec = Nothing + } + +-- ** V1IngressClassList +-- | V1IngressClassList +-- IngressClassList is a collection of IngressClasses. +data V1IngressClassList = V1IngressClassList + { v1IngressClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1IngressClassListItems :: !([V1IngressClass]) -- ^ /Required/ "items" - items is the list of IngressClasses. + , v1IngressClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1IngressClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressClassList +instance A.FromJSON V1IngressClassList where + parseJSON = A.withObject "V1IngressClassList" $ \o -> + V1IngressClassList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1IngressClassList +instance A.ToJSON V1IngressClassList where + toJSON V1IngressClassList {..} = + _omitNulls + [ "apiVersion" .= v1IngressClassListApiVersion + , "items" .= v1IngressClassListItems + , "kind" .= v1IngressClassListKind + , "metadata" .= v1IngressClassListMetadata + ] + + +-- | Construct a value of type 'V1IngressClassList' (by applying it's required fields, if any) +mkV1IngressClassList + :: [V1IngressClass] -- ^ 'v1IngressClassListItems': items is the list of IngressClasses. + -> V1IngressClassList +mkV1IngressClassList v1IngressClassListItems = + V1IngressClassList + { v1IngressClassListApiVersion = Nothing + , v1IngressClassListItems + , v1IngressClassListKind = Nothing + , v1IngressClassListMetadata = Nothing + } + +-- ** V1IngressClassParametersReference +-- | V1IngressClassParametersReference +-- IngressClassParametersReference identifies an API object. This can be used to specify a cluster or namespace-scoped resource. +data V1IngressClassParametersReference = V1IngressClassParametersReference + { v1IngressClassParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - apiGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. + , v1IngressClassParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - kind is the type of resource being referenced. + , v1IngressClassParametersReferenceName :: !(Text) -- ^ /Required/ "name" - name is the name of resource being referenced. + , v1IngressClassParametersReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - namespace is the namespace of the resource being referenced. This field is required when scope is set to \"Namespace\" and must be unset when scope is set to \"Cluster\". + , v1IngressClassParametersReferenceScope :: !(Maybe Text) -- ^ "scope" - scope represents if this refers to a cluster or namespace scoped resource. This may be set to \"Cluster\" (default) or \"Namespace\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressClassParametersReference +instance A.FromJSON V1IngressClassParametersReference where + parseJSON = A.withObject "V1IngressClassParametersReference" $ \o -> + V1IngressClassParametersReference + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .:? "namespace") + <*> (o .:? "scope") + +-- | ToJSON V1IngressClassParametersReference +instance A.ToJSON V1IngressClassParametersReference where + toJSON V1IngressClassParametersReference {..} = + _omitNulls + [ "apiGroup" .= v1IngressClassParametersReferenceApiGroup + , "kind" .= v1IngressClassParametersReferenceKind + , "name" .= v1IngressClassParametersReferenceName + , "namespace" .= v1IngressClassParametersReferenceNamespace + , "scope" .= v1IngressClassParametersReferenceScope + ] + + +-- | Construct a value of type 'V1IngressClassParametersReference' (by applying it's required fields, if any) +mkV1IngressClassParametersReference + :: Text -- ^ 'v1IngressClassParametersReferenceKind': kind is the type of resource being referenced. + -> Text -- ^ 'v1IngressClassParametersReferenceName': name is the name of resource being referenced. + -> V1IngressClassParametersReference +mkV1IngressClassParametersReference v1IngressClassParametersReferenceKind v1IngressClassParametersReferenceName = + V1IngressClassParametersReference + { v1IngressClassParametersReferenceApiGroup = Nothing + , v1IngressClassParametersReferenceKind + , v1IngressClassParametersReferenceName + , v1IngressClassParametersReferenceNamespace = Nothing + , v1IngressClassParametersReferenceScope = Nothing + } + +-- ** V1IngressClassSpec +-- | V1IngressClassSpec +-- IngressClassSpec provides information about the class of an Ingress. +data V1IngressClassSpec = V1IngressClassSpec + { v1IngressClassSpecController :: !(Maybe Text) -- ^ "controller" - controller refers to the name of the controller that should handle this class. This allows for different \"flavors\" that are controlled by the same controller. For example, you may have different parameters for the same implementing controller. This should be specified as a domain-prefixed path no more than 250 characters in length, e.g. \"acme.io/ingress-controller\". This field is immutable. + , v1IngressClassSpecParameters :: !(Maybe V1IngressClassParametersReference) -- ^ "parameters" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressClassSpec +instance A.FromJSON V1IngressClassSpec where + parseJSON = A.withObject "V1IngressClassSpec" $ \o -> + V1IngressClassSpec + <$> (o .:? "controller") + <*> (o .:? "parameters") + +-- | ToJSON V1IngressClassSpec +instance A.ToJSON V1IngressClassSpec where + toJSON V1IngressClassSpec {..} = + _omitNulls + [ "controller" .= v1IngressClassSpecController + , "parameters" .= v1IngressClassSpecParameters + ] + + +-- | Construct a value of type 'V1IngressClassSpec' (by applying it's required fields, if any) +mkV1IngressClassSpec + :: V1IngressClassSpec +mkV1IngressClassSpec = + V1IngressClassSpec + { v1IngressClassSpecController = Nothing + , v1IngressClassSpecParameters = Nothing + } + +-- ** V1IngressList +-- | V1IngressList +-- IngressList is a collection of Ingress. +data V1IngressList = V1IngressList + { v1IngressListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1IngressListItems :: !([V1Ingress]) -- ^ /Required/ "items" - items is the list of Ingress. + , v1IngressListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1IngressListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressList +instance A.FromJSON V1IngressList where + parseJSON = A.withObject "V1IngressList" $ \o -> + V1IngressList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1IngressList +instance A.ToJSON V1IngressList where + toJSON V1IngressList {..} = + _omitNulls + [ "apiVersion" .= v1IngressListApiVersion + , "items" .= v1IngressListItems + , "kind" .= v1IngressListKind + , "metadata" .= v1IngressListMetadata + ] + + +-- | Construct a value of type 'V1IngressList' (by applying it's required fields, if any) +mkV1IngressList + :: [V1Ingress] -- ^ 'v1IngressListItems': items is the list of Ingress. + -> V1IngressList +mkV1IngressList v1IngressListItems = + V1IngressList + { v1IngressListApiVersion = Nothing + , v1IngressListItems + , v1IngressListKind = Nothing + , v1IngressListMetadata = Nothing + } + +-- ** V1IngressLoadBalancerIngress +-- | V1IngressLoadBalancerIngress +-- IngressLoadBalancerIngress represents the status of a load-balancer ingress point. +data V1IngressLoadBalancerIngress = V1IngressLoadBalancerIngress + { v1IngressLoadBalancerIngressHostname :: !(Maybe Text) -- ^ "hostname" - hostname is set for load-balancer ingress points that are DNS based. + , v1IngressLoadBalancerIngressIp :: !(Maybe Text) -- ^ "ip" - ip is set for load-balancer ingress points that are IP based. + , v1IngressLoadBalancerIngressPorts :: !(Maybe [V1IngressPortStatus]) -- ^ "ports" - ports provides information about the ports exposed by this LoadBalancer. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressLoadBalancerIngress +instance A.FromJSON V1IngressLoadBalancerIngress where + parseJSON = A.withObject "V1IngressLoadBalancerIngress" $ \o -> + V1IngressLoadBalancerIngress + <$> (o .:? "hostname") + <*> (o .:? "ip") + <*> (o .:? "ports") + +-- | ToJSON V1IngressLoadBalancerIngress +instance A.ToJSON V1IngressLoadBalancerIngress where + toJSON V1IngressLoadBalancerIngress {..} = + _omitNulls + [ "hostname" .= v1IngressLoadBalancerIngressHostname + , "ip" .= v1IngressLoadBalancerIngressIp + , "ports" .= v1IngressLoadBalancerIngressPorts + ] + + +-- | Construct a value of type 'V1IngressLoadBalancerIngress' (by applying it's required fields, if any) +mkV1IngressLoadBalancerIngress + :: V1IngressLoadBalancerIngress +mkV1IngressLoadBalancerIngress = + V1IngressLoadBalancerIngress + { v1IngressLoadBalancerIngressHostname = Nothing + , v1IngressLoadBalancerIngressIp = Nothing + , v1IngressLoadBalancerIngressPorts = Nothing + } + +-- ** V1IngressLoadBalancerStatus +-- | V1IngressLoadBalancerStatus +-- IngressLoadBalancerStatus represents the status of a load-balancer. +data V1IngressLoadBalancerStatus = V1IngressLoadBalancerStatus + { v1IngressLoadBalancerStatusIngress :: !(Maybe [V1IngressLoadBalancerIngress]) -- ^ "ingress" - ingress is a list containing ingress points for the load-balancer. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressLoadBalancerStatus +instance A.FromJSON V1IngressLoadBalancerStatus where + parseJSON = A.withObject "V1IngressLoadBalancerStatus" $ \o -> + V1IngressLoadBalancerStatus + <$> (o .:? "ingress") + +-- | ToJSON V1IngressLoadBalancerStatus +instance A.ToJSON V1IngressLoadBalancerStatus where + toJSON V1IngressLoadBalancerStatus {..} = + _omitNulls + [ "ingress" .= v1IngressLoadBalancerStatusIngress + ] + + +-- | Construct a value of type 'V1IngressLoadBalancerStatus' (by applying it's required fields, if any) +mkV1IngressLoadBalancerStatus + :: V1IngressLoadBalancerStatus +mkV1IngressLoadBalancerStatus = + V1IngressLoadBalancerStatus + { v1IngressLoadBalancerStatusIngress = Nothing + } + +-- ** V1IngressPortStatus +-- | V1IngressPortStatus +-- IngressPortStatus represents the error condition of a service port +data V1IngressPortStatus = V1IngressPortStatus + { v1IngressPortStatusError :: !(Maybe Text) -- ^ "error" - error is to record the problem with the service port The format of the error shall comply with the following rules: - built-in error values shall be specified in this file and those shall use CamelCase names - cloud provider specific error values must have names that comply with the format foo.example.com/CamelCase. + , v1IngressPortStatusPort :: !(Int) -- ^ /Required/ "port" - port is the port number of the ingress port. + , v1IngressPortStatusProtocol :: !(Text) -- ^ /Required/ "protocol" - protocol is the protocol of the ingress port. The supported values are: \"TCP\", \"UDP\", \"SCTP\" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressPortStatus +instance A.FromJSON V1IngressPortStatus where + parseJSON = A.withObject "V1IngressPortStatus" $ \o -> + V1IngressPortStatus + <$> (o .:? "error") + <*> (o .: "port") + <*> (o .: "protocol") + +-- | ToJSON V1IngressPortStatus +instance A.ToJSON V1IngressPortStatus where + toJSON V1IngressPortStatus {..} = + _omitNulls + [ "error" .= v1IngressPortStatusError + , "port" .= v1IngressPortStatusPort + , "protocol" .= v1IngressPortStatusProtocol + ] + + +-- | Construct a value of type 'V1IngressPortStatus' (by applying it's required fields, if any) +mkV1IngressPortStatus + :: Int -- ^ 'v1IngressPortStatusPort': port is the port number of the ingress port. + -> Text -- ^ 'v1IngressPortStatusProtocol': protocol is the protocol of the ingress port. The supported values are: \"TCP\", \"UDP\", \"SCTP\" + -> V1IngressPortStatus +mkV1IngressPortStatus v1IngressPortStatusPort v1IngressPortStatusProtocol = + V1IngressPortStatus + { v1IngressPortStatusError = Nothing + , v1IngressPortStatusPort + , v1IngressPortStatusProtocol + } + +-- ** V1IngressRule +-- | V1IngressRule +-- IngressRule represents the rules mapping the paths under a specified host to the related backend services. Incoming requests are first evaluated for a host match, then routed to the backend associated with the matching IngressRuleValue. +data V1IngressRule = V1IngressRule + { v1IngressRuleHost :: !(Maybe Text) -- ^ "host" - host is the fully qualified domain name of a network host, as defined by RFC 3986. Note the following deviations from the \"host\" part of the URI as defined in RFC 3986: 1. IPs are not allowed. Currently an IngressRuleValue can only apply to the IP in the Spec of the parent Ingress. 2. The `:` delimiter is not respected because ports are not allowed. Currently the port of an Ingress is implicitly :80 for http and :443 for https. Both these may change in the future. Incoming requests are matched against the host before the IngressRuleValue. If the host is unspecified, the Ingress routes all traffic based on the specified IngressRuleValue. host can be \"precise\" which is a domain name without the terminating dot of a network host (e.g. \"foo.bar.com\") or \"wildcard\", which is a domain name prefixed with a single wildcard label (e.g. \"*.foo.com\"). The wildcard character '*' must appear by itself as the first DNS label and matches only a single label. You cannot have a wildcard label by itself (e.g. Host == \"*\"). Requests will be matched against the Host field in the following way: 1. If host is precise, the request matches this rule if the http host header is equal to Host. 2. If host is a wildcard, then the request matches this rule if the http host header is to equal to the suffix (removing the first label) of the wildcard rule. + , v1IngressRuleHttp :: !(Maybe V1HTTPIngressRuleValue) -- ^ "http" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressRule +instance A.FromJSON V1IngressRule where + parseJSON = A.withObject "V1IngressRule" $ \o -> + V1IngressRule + <$> (o .:? "host") + <*> (o .:? "http") + +-- | ToJSON V1IngressRule +instance A.ToJSON V1IngressRule where + toJSON V1IngressRule {..} = + _omitNulls + [ "host" .= v1IngressRuleHost + , "http" .= v1IngressRuleHttp + ] + + +-- | Construct a value of type 'V1IngressRule' (by applying it's required fields, if any) +mkV1IngressRule + :: V1IngressRule +mkV1IngressRule = + V1IngressRule + { v1IngressRuleHost = Nothing + , v1IngressRuleHttp = Nothing + } + +-- ** V1IngressServiceBackend +-- | V1IngressServiceBackend +-- IngressServiceBackend references a Kubernetes Service as a Backend. +data V1IngressServiceBackend = V1IngressServiceBackend + { v1IngressServiceBackendName :: !(Text) -- ^ /Required/ "name" - name is the referenced service. The service must exist in the same namespace as the Ingress object. + , v1IngressServiceBackendPort :: !(Maybe V1ServiceBackendPort) -- ^ "port" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressServiceBackend +instance A.FromJSON V1IngressServiceBackend where + parseJSON = A.withObject "V1IngressServiceBackend" $ \o -> + V1IngressServiceBackend + <$> (o .: "name") + <*> (o .:? "port") + +-- | ToJSON V1IngressServiceBackend +instance A.ToJSON V1IngressServiceBackend where + toJSON V1IngressServiceBackend {..} = + _omitNulls + [ "name" .= v1IngressServiceBackendName + , "port" .= v1IngressServiceBackendPort + ] + + +-- | Construct a value of type 'V1IngressServiceBackend' (by applying it's required fields, if any) +mkV1IngressServiceBackend + :: Text -- ^ 'v1IngressServiceBackendName': name is the referenced service. The service must exist in the same namespace as the Ingress object. + -> V1IngressServiceBackend +mkV1IngressServiceBackend v1IngressServiceBackendName = + V1IngressServiceBackend + { v1IngressServiceBackendName + , v1IngressServiceBackendPort = Nothing + } + +-- ** V1IngressSpec +-- | V1IngressSpec +-- IngressSpec describes the Ingress the user wishes to exist. +data V1IngressSpec = V1IngressSpec + { v1IngressSpecDefaultBackend :: !(Maybe V1IngressBackend) -- ^ "defaultBackend" + , v1IngressSpecIngressClassName :: !(Maybe Text) -- ^ "ingressClassName" - ingressClassName is the name of an IngressClass cluster resource. Ingress controller implementations use this field to know whether they should be serving this Ingress resource, by a transitive connection (controller -> IngressClass -> Ingress resource). Although the `kubernetes.io/ingress.class` annotation (simple constant name) was never formally defined, it was widely supported by Ingress controllers to create a direct binding between Ingress controller and Ingress resources. Newly created Ingress resources should prefer using the field. However, even though the annotation is officially deprecated, for backwards compatibility reasons, ingress controllers should still honor that annotation if present. + , v1IngressSpecRules :: !(Maybe [V1IngressRule]) -- ^ "rules" - rules is a list of host rules used to configure the Ingress. If unspecified, or no rule matches, all traffic is sent to the default backend. + , v1IngressSpecTls :: !(Maybe [V1IngressTLS]) -- ^ "tls" - tls represents the TLS configuration. Currently the Ingress only supports a single TLS port, 443. If multiple members of this list specify different hosts, they will be multiplexed on the same port according to the hostname specified through the SNI TLS extension, if the ingress controller fulfilling the ingress supports SNI. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressSpec +instance A.FromJSON V1IngressSpec where + parseJSON = A.withObject "V1IngressSpec" $ \o -> + V1IngressSpec + <$> (o .:? "defaultBackend") + <*> (o .:? "ingressClassName") + <*> (o .:? "rules") + <*> (o .:? "tls") + +-- | ToJSON V1IngressSpec +instance A.ToJSON V1IngressSpec where + toJSON V1IngressSpec {..} = + _omitNulls + [ "defaultBackend" .= v1IngressSpecDefaultBackend + , "ingressClassName" .= v1IngressSpecIngressClassName + , "rules" .= v1IngressSpecRules + , "tls" .= v1IngressSpecTls + ] + + +-- | Construct a value of type 'V1IngressSpec' (by applying it's required fields, if any) +mkV1IngressSpec + :: V1IngressSpec +mkV1IngressSpec = + V1IngressSpec + { v1IngressSpecDefaultBackend = Nothing + , v1IngressSpecIngressClassName = Nothing + , v1IngressSpecRules = Nothing + , v1IngressSpecTls = Nothing + } + +-- ** V1IngressStatus +-- | V1IngressStatus +-- IngressStatus describe the current state of the Ingress. +data V1IngressStatus = V1IngressStatus + { v1IngressStatusLoadBalancer :: !(Maybe V1IngressLoadBalancerStatus) -- ^ "loadBalancer" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressStatus +instance A.FromJSON V1IngressStatus where + parseJSON = A.withObject "V1IngressStatus" $ \o -> + V1IngressStatus + <$> (o .:? "loadBalancer") + +-- | ToJSON V1IngressStatus +instance A.ToJSON V1IngressStatus where + toJSON V1IngressStatus {..} = + _omitNulls + [ "loadBalancer" .= v1IngressStatusLoadBalancer + ] + + +-- | Construct a value of type 'V1IngressStatus' (by applying it's required fields, if any) +mkV1IngressStatus + :: V1IngressStatus +mkV1IngressStatus = + V1IngressStatus + { v1IngressStatusLoadBalancer = Nothing + } + +-- ** V1IngressTLS +-- | V1IngressTLS +-- IngressTLS describes the transport layer security associated with an ingress. +data V1IngressTLS = V1IngressTLS + { v1IngressTLSHosts :: !(Maybe [Text]) -- ^ "hosts" - hosts is a list of hosts included in the TLS certificate. The values in this list must match the name/s used in the tlsSecret. Defaults to the wildcard host setting for the loadbalancer controller fulfilling this Ingress, if left unspecified. + , v1IngressTLSSecretName :: !(Maybe Text) -- ^ "secretName" - secretName is the name of the secret used to terminate TLS traffic on port 443. Field is left optional to allow TLS routing based on SNI hostname alone. If the SNI host in a listener conflicts with the \"Host\" header field used by an IngressRule, the SNI host is used for termination and value of the \"Host\" header is used for routing. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1IngressTLS +instance A.FromJSON V1IngressTLS where + parseJSON = A.withObject "V1IngressTLS" $ \o -> + V1IngressTLS + <$> (o .:? "hosts") + <*> (o .:? "secretName") + +-- | ToJSON V1IngressTLS +instance A.ToJSON V1IngressTLS where + toJSON V1IngressTLS {..} = + _omitNulls + [ "hosts" .= v1IngressTLSHosts + , "secretName" .= v1IngressTLSSecretName + ] + + +-- | Construct a value of type 'V1IngressTLS' (by applying it's required fields, if any) +mkV1IngressTLS + :: V1IngressTLS +mkV1IngressTLS = + V1IngressTLS + { v1IngressTLSHosts = Nothing + , v1IngressTLSSecretName = Nothing + } + +-- ** V1JSONSchemaProps +-- | V1JSONSchemaProps +-- JSONSchemaProps is a JSON-Schema following Specification Draft 4 (http://json-schema.org/). +data V1JSONSchemaProps = V1JSONSchemaProps + { v1JSONSchemaPropsRef :: !(Maybe Text) -- ^ "$ref" + , v1JSONSchemaPropsSchema :: !(Maybe Text) -- ^ "$schema" + , v1JSONSchemaPropsAdditionalItems :: !(Maybe A.Value) -- ^ "additionalItems" - JSONSchemaPropsOrBool represents JSONSchemaProps or a boolean value. Defaults to true for the boolean property. + , v1JSONSchemaPropsAdditionalProperties :: !(Maybe A.Value) -- ^ "additionalProperties" - JSONSchemaPropsOrBool represents JSONSchemaProps or a boolean value. Defaults to true for the boolean property. + , v1JSONSchemaPropsAllOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "allOf" + , v1JSONSchemaPropsAnyOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "anyOf" + , v1JSONSchemaPropsDefault :: !(Maybe A.Value) -- ^ "default" - default is a default value for undefined object fields. Defaulting is a beta feature under the CustomResourceDefaulting feature gate. Defaulting requires spec.preserveUnknownFields to be false. + , v1JSONSchemaPropsDefinitions :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "definitions" + , v1JSONSchemaPropsDependencies :: !(Maybe (Map.Map String A.Value)) -- ^ "dependencies" + , v1JSONSchemaPropsDescription :: !(Maybe Text) -- ^ "description" + , v1JSONSchemaPropsEnum :: !(Maybe [A.Value]) -- ^ "enum" + , v1JSONSchemaPropsExample :: !(Maybe A.Value) -- ^ "example" - JSON represents any valid JSON value. These types are supported: bool, int64, float64, string, []interface{}, map[string]interface{} and nil. + , v1JSONSchemaPropsExclusiveMaximum :: !(Maybe Bool) -- ^ "exclusiveMaximum" + , v1JSONSchemaPropsExclusiveMinimum :: !(Maybe Bool) -- ^ "exclusiveMinimum" + , v1JSONSchemaPropsExternalDocs :: !(Maybe V1ExternalDocumentation) -- ^ "externalDocs" + , v1JSONSchemaPropsFormat :: !(Maybe Text) -- ^ "format" - format is an OpenAPI v3 format string. Unknown formats are ignored. The following formats are validated: - bsonobjectid: a bson object ID, i.e. a 24 characters hex string - uri: an URI as parsed by Golang net/url.ParseRequestURI - email: an email address as parsed by Golang net/mail.ParseAddress - hostname: a valid representation for an Internet host name, as defined by RFC 1034, section 3.1 [RFC1034]. - ipv4: an IPv4 IP as parsed by Golang net.ParseIP - ipv6: an IPv6 IP as parsed by Golang net.ParseIP - cidr: a CIDR as parsed by Golang net.ParseCIDR - mac: a MAC address as parsed by Golang net.ParseMAC - uuid: an UUID that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{4}-?[0-9a-f]{12}$ - uuid3: an UUID3 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?3[0-9a-f]{3}-?[0-9a-f]{4}-?[0-9a-f]{12}$ - uuid4: an UUID4 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?4[0-9a-f]{3}-?[89ab][0-9a-f]{3}-?[0-9a-f]{12}$ - uuid5: an UUID5 that allows uppercase defined by the regex (?i)^[0-9a-f]{8}-?[0-9a-f]{4}-?5[0-9a-f]{3}-?[89ab][0-9a-f]{3}-?[0-9a-f]{12}$ - isbn: an ISBN10 or ISBN13 number string like \"0321751043\" or \"978-0321751041\" - isbn10: an ISBN10 number string like \"0321751043\" - isbn13: an ISBN13 number string like \"978-0321751041\" - creditcard: a credit card number defined by the regex ^(?:4[0-9]{12}(?:[0-9]{3})?|5[1-5][0-9]{14}|6(?:011|5[0-9][0-9])[0-9]{12}|3[47][0-9]{13}|3(?:0[0-5]|[68][0-9])[0-9]{11}|(?:2131|1800|35\\d{3})\\d{11})$ with any non digit characters mixed in - ssn: a U.S. social security number following the regex ^\\d{3}[- ]?\\d{2}[- ]?\\d{4}$ - hexcolor: an hexadecimal color code like \"#FFFFFF: following the regex ^#?([0-9a-fA-F]{3}|[0-9a-fA-F]{6})$ - rgbcolor: an RGB color code like rgb like \"rgb(255,255,2559\" - byte: base64 encoded binary data - password: any kind of string - date: a date string like \"2006-01-02\" as defined by full-date in RFC3339 - duration: a duration string like \"22 ns\" as parsed by Golang time.ParseDuration or compatible with Scala duration format - datetime: a date time string like \"2014-12-15T19:30:20.000Z\" as defined by date-time in RFC3339. + , v1JSONSchemaPropsId :: !(Maybe Text) -- ^ "id" + , v1JSONSchemaPropsItems :: !(Maybe A.Value) -- ^ "items" - JSONSchemaPropsOrArray represents a value that can either be a JSONSchemaProps or an array of JSONSchemaProps. Mainly here for serialization purposes. + , v1JSONSchemaPropsMaxItems :: !(Maybe Integer) -- ^ "maxItems" + , v1JSONSchemaPropsMaxLength :: !(Maybe Integer) -- ^ "maxLength" + , v1JSONSchemaPropsMaxProperties :: !(Maybe Integer) -- ^ "maxProperties" + , v1JSONSchemaPropsMaximum :: !(Maybe Double) -- ^ "maximum" + , v1JSONSchemaPropsMinItems :: !(Maybe Integer) -- ^ "minItems" + , v1JSONSchemaPropsMinLength :: !(Maybe Integer) -- ^ "minLength" + , v1JSONSchemaPropsMinProperties :: !(Maybe Integer) -- ^ "minProperties" + , v1JSONSchemaPropsMinimum :: !(Maybe Double) -- ^ "minimum" + , v1JSONSchemaPropsMultipleOf :: !(Maybe Double) -- ^ "multipleOf" + , v1JSONSchemaPropsNot :: !(Maybe V1JSONSchemaProps) -- ^ "not" + , v1JSONSchemaPropsNullable :: !(Maybe Bool) -- ^ "nullable" + , v1JSONSchemaPropsOneOf :: !(Maybe [V1JSONSchemaProps]) -- ^ "oneOf" + , v1JSONSchemaPropsPattern :: !(Maybe Text) -- ^ "pattern" + , v1JSONSchemaPropsPatternProperties :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "patternProperties" + , v1JSONSchemaPropsProperties :: !(Maybe (Map.Map String V1JSONSchemaProps)) -- ^ "properties" + , v1JSONSchemaPropsRequired :: !(Maybe [Text]) -- ^ "required" + , v1JSONSchemaPropsTitle :: !(Maybe Text) -- ^ "title" + , v1JSONSchemaPropsType :: !(Maybe Text) -- ^ "type" + , v1JSONSchemaPropsUniqueItems :: !(Maybe Bool) -- ^ "uniqueItems" + , v1JSONSchemaPropsXKubernetesEmbeddedResource :: !(Maybe Bool) -- ^ "x-kubernetes-embedded-resource" - x-kubernetes-embedded-resource defines that the value is an embedded Kubernetes runtime.Object, with TypeMeta and ObjectMeta. The type must be object. It is allowed to further restrict the embedded object. kind, apiVersion and metadata are validated automatically. x-kubernetes-preserve-unknown-fields is allowed to be true, but does not have to be if the object is fully specified (up to kind, apiVersion, metadata). + , v1JSONSchemaPropsXKubernetesIntOrString :: !(Maybe Bool) -- ^ "x-kubernetes-int-or-string" - x-kubernetes-int-or-string specifies that this value is either an integer or a string. If this is true, an empty type is allowed and type as child of anyOf is permitted if following one of the following patterns: 1) anyOf: - type: integer - type: string 2) allOf: - anyOf: - type: integer - type: string - ... zero or more + , v1JSONSchemaPropsXKubernetesListMapKeys :: !(Maybe [Text]) -- ^ "x-kubernetes-list-map-keys" - x-kubernetes-list-map-keys annotates an array with the x-kubernetes-list-type `map` by specifying the keys used as the index of the map. This tag MUST only be used on lists that have the \"x-kubernetes-list-type\" extension set to \"map\". Also, the values specified for this attribute must be a scalar typed field of the child structure (no nesting is supported). The properties specified must either be required or have a default value, to ensure those properties are present for all list items. + , v1JSONSchemaPropsXKubernetesListType :: !(Maybe Text) -- ^ "x-kubernetes-list-type" - x-kubernetes-list-type annotates an array to further describe its topology. This extension must only be used on lists and may have 3 possible values: 1) `atomic`: the list is treated as a single entity, like a scalar. Atomic lists will be entirely replaced when updated. This extension may be used on any type of list (struct, scalar, ...). 2) `set`: Sets are lists that must not have multiple items with the same value. Each value must be a scalar, an object with x-kubernetes-map-type `atomic` or an array with x-kubernetes-list-type `atomic`. 3) `map`: These lists are like maps in that their elements have a non-index key used to identify them. Order is preserved upon merge. The map tag must only be used on a list with elements of type object. Defaults to atomic for arrays. + , v1JSONSchemaPropsXKubernetesMapType :: !(Maybe Text) -- ^ "x-kubernetes-map-type" - x-kubernetes-map-type annotates an object to further describe its topology. This extension must only be used when type is object and may have 2 possible values: 1) `granular`: These maps are actual maps (key-value pairs) and each fields are independent from each other (they can each be manipulated by separate actors). This is the default behaviour for all maps. 2) `atomic`: the list is treated as a single entity, like a scalar. Atomic maps will be entirely replaced when updated. + , v1JSONSchemaPropsXKubernetesPreserveUnknownFields :: !(Maybe Bool) -- ^ "x-kubernetes-preserve-unknown-fields" - x-kubernetes-preserve-unknown-fields stops the API server decoding step from pruning fields which are not specified in the validation schema. This affects fields recursively, but switches back to normal pruning behaviour if nested properties or additionalProperties are specified in the schema. This can either be true or undefined. False is forbidden. + , v1JSONSchemaPropsXKubernetesValidations :: !(Maybe [V1ValidationRule]) -- ^ "x-kubernetes-validations" - x-kubernetes-validations describes a list of validation rules written in the CEL expression language. This field is an alpha-level. Using this field requires the feature gate `CustomResourceValidationExpressions` to be enabled. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JSONSchemaProps +instance A.FromJSON V1JSONSchemaProps where + parseJSON = A.withObject "V1JSONSchemaProps" $ \o -> + V1JSONSchemaProps + <$> (o .:? "$ref") + <*> (o .:? "$schema") + <*> (o .:? "additionalItems") + <*> (o .:? "additionalProperties") + <*> (o .:? "allOf") + <*> (o .:? "anyOf") + <*> (o .:? "default") + <*> (o .:? "definitions") + <*> (o .:? "dependencies") + <*> (o .:? "description") + <*> (o .:? "enum") + <*> (o .:? "example") + <*> (o .:? "exclusiveMaximum") + <*> (o .:? "exclusiveMinimum") + <*> (o .:? "externalDocs") + <*> (o .:? "format") + <*> (o .:? "id") + <*> (o .:? "items") + <*> (o .:? "maxItems") + <*> (o .:? "maxLength") + <*> (o .:? "maxProperties") + <*> (o .:? "maximum") + <*> (o .:? "minItems") + <*> (o .:? "minLength") + <*> (o .:? "minProperties") + <*> (o .:? "minimum") + <*> (o .:? "multipleOf") + <*> (o .:? "not") + <*> (o .:? "nullable") + <*> (o .:? "oneOf") + <*> (o .:? "pattern") + <*> (o .:? "patternProperties") + <*> (o .:? "properties") + <*> (o .:? "required") + <*> (o .:? "title") + <*> (o .:? "type") + <*> (o .:? "uniqueItems") + <*> (o .:? "x-kubernetes-embedded-resource") + <*> (o .:? "x-kubernetes-int-or-string") + <*> (o .:? "x-kubernetes-list-map-keys") + <*> (o .:? "x-kubernetes-list-type") + <*> (o .:? "x-kubernetes-map-type") + <*> (o .:? "x-kubernetes-preserve-unknown-fields") + <*> (o .:? "x-kubernetes-validations") + +-- | ToJSON V1JSONSchemaProps +instance A.ToJSON V1JSONSchemaProps where + toJSON V1JSONSchemaProps {..} = + _omitNulls + [ "$ref" .= v1JSONSchemaPropsRef + , "$schema" .= v1JSONSchemaPropsSchema + , "additionalItems" .= v1JSONSchemaPropsAdditionalItems + , "additionalProperties" .= v1JSONSchemaPropsAdditionalProperties + , "allOf" .= v1JSONSchemaPropsAllOf + , "anyOf" .= v1JSONSchemaPropsAnyOf + , "default" .= v1JSONSchemaPropsDefault + , "definitions" .= v1JSONSchemaPropsDefinitions + , "dependencies" .= v1JSONSchemaPropsDependencies + , "description" .= v1JSONSchemaPropsDescription + , "enum" .= v1JSONSchemaPropsEnum + , "example" .= v1JSONSchemaPropsExample + , "exclusiveMaximum" .= v1JSONSchemaPropsExclusiveMaximum + , "exclusiveMinimum" .= v1JSONSchemaPropsExclusiveMinimum + , "externalDocs" .= v1JSONSchemaPropsExternalDocs + , "format" .= v1JSONSchemaPropsFormat + , "id" .= v1JSONSchemaPropsId + , "items" .= v1JSONSchemaPropsItems + , "maxItems" .= v1JSONSchemaPropsMaxItems + , "maxLength" .= v1JSONSchemaPropsMaxLength + , "maxProperties" .= v1JSONSchemaPropsMaxProperties + , "maximum" .= v1JSONSchemaPropsMaximum + , "minItems" .= v1JSONSchemaPropsMinItems + , "minLength" .= v1JSONSchemaPropsMinLength + , "minProperties" .= v1JSONSchemaPropsMinProperties + , "minimum" .= v1JSONSchemaPropsMinimum + , "multipleOf" .= v1JSONSchemaPropsMultipleOf + , "not" .= v1JSONSchemaPropsNot + , "nullable" .= v1JSONSchemaPropsNullable + , "oneOf" .= v1JSONSchemaPropsOneOf + , "pattern" .= v1JSONSchemaPropsPattern + , "patternProperties" .= v1JSONSchemaPropsPatternProperties + , "properties" .= v1JSONSchemaPropsProperties + , "required" .= v1JSONSchemaPropsRequired + , "title" .= v1JSONSchemaPropsTitle + , "type" .= v1JSONSchemaPropsType + , "uniqueItems" .= v1JSONSchemaPropsUniqueItems + , "x-kubernetes-embedded-resource" .= v1JSONSchemaPropsXKubernetesEmbeddedResource + , "x-kubernetes-int-or-string" .= v1JSONSchemaPropsXKubernetesIntOrString + , "x-kubernetes-list-map-keys" .= v1JSONSchemaPropsXKubernetesListMapKeys + , "x-kubernetes-list-type" .= v1JSONSchemaPropsXKubernetesListType + , "x-kubernetes-map-type" .= v1JSONSchemaPropsXKubernetesMapType + , "x-kubernetes-preserve-unknown-fields" .= v1JSONSchemaPropsXKubernetesPreserveUnknownFields + , "x-kubernetes-validations" .= v1JSONSchemaPropsXKubernetesValidations + ] + + +-- | Construct a value of type 'V1JSONSchemaProps' (by applying it's required fields, if any) +mkV1JSONSchemaProps + :: V1JSONSchemaProps +mkV1JSONSchemaProps = + V1JSONSchemaProps + { v1JSONSchemaPropsRef = Nothing + , v1JSONSchemaPropsSchema = Nothing + , v1JSONSchemaPropsAdditionalItems = Nothing + , v1JSONSchemaPropsAdditionalProperties = Nothing + , v1JSONSchemaPropsAllOf = Nothing + , v1JSONSchemaPropsAnyOf = Nothing + , v1JSONSchemaPropsDefault = Nothing + , v1JSONSchemaPropsDefinitions = Nothing + , v1JSONSchemaPropsDependencies = Nothing + , v1JSONSchemaPropsDescription = Nothing + , v1JSONSchemaPropsEnum = Nothing + , v1JSONSchemaPropsExample = Nothing + , v1JSONSchemaPropsExclusiveMaximum = Nothing + , v1JSONSchemaPropsExclusiveMinimum = Nothing + , v1JSONSchemaPropsExternalDocs = Nothing + , v1JSONSchemaPropsFormat = Nothing + , v1JSONSchemaPropsId = Nothing + , v1JSONSchemaPropsItems = Nothing + , v1JSONSchemaPropsMaxItems = Nothing + , v1JSONSchemaPropsMaxLength = Nothing + , v1JSONSchemaPropsMaxProperties = Nothing + , v1JSONSchemaPropsMaximum = Nothing + , v1JSONSchemaPropsMinItems = Nothing + , v1JSONSchemaPropsMinLength = Nothing + , v1JSONSchemaPropsMinProperties = Nothing + , v1JSONSchemaPropsMinimum = Nothing + , v1JSONSchemaPropsMultipleOf = Nothing + , v1JSONSchemaPropsNot = Nothing + , v1JSONSchemaPropsNullable = Nothing + , v1JSONSchemaPropsOneOf = Nothing + , v1JSONSchemaPropsPattern = Nothing + , v1JSONSchemaPropsPatternProperties = Nothing + , v1JSONSchemaPropsProperties = Nothing + , v1JSONSchemaPropsRequired = Nothing + , v1JSONSchemaPropsTitle = Nothing + , v1JSONSchemaPropsType = Nothing + , v1JSONSchemaPropsUniqueItems = Nothing + , v1JSONSchemaPropsXKubernetesEmbeddedResource = Nothing + , v1JSONSchemaPropsXKubernetesIntOrString = Nothing + , v1JSONSchemaPropsXKubernetesListMapKeys = Nothing + , v1JSONSchemaPropsXKubernetesListType = Nothing + , v1JSONSchemaPropsXKubernetesMapType = Nothing + , v1JSONSchemaPropsXKubernetesPreserveUnknownFields = Nothing + , v1JSONSchemaPropsXKubernetesValidations = Nothing + } + +-- ** V1Job +-- | V1Job +-- Job represents the configuration of a single job. +data V1Job = V1Job + { v1JobApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1JobKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1JobMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1JobSpec :: !(Maybe V1JobSpec) -- ^ "spec" + , v1JobStatus :: !(Maybe V1JobStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Job +instance A.FromJSON V1Job where + parseJSON = A.withObject "V1Job" $ \o -> + V1Job + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Job +instance A.ToJSON V1Job where + toJSON V1Job {..} = + _omitNulls + [ "apiVersion" .= v1JobApiVersion + , "kind" .= v1JobKind + , "metadata" .= v1JobMetadata + , "spec" .= v1JobSpec + , "status" .= v1JobStatus + ] + + +-- | Construct a value of type 'V1Job' (by applying it's required fields, if any) +mkV1Job + :: V1Job +mkV1Job = + V1Job + { v1JobApiVersion = Nothing + , v1JobKind = Nothing + , v1JobMetadata = Nothing + , v1JobSpec = Nothing + , v1JobStatus = Nothing + } + +-- ** V1JobCondition +-- | V1JobCondition +-- JobCondition describes current state of a job. +data V1JobCondition = V1JobCondition + { v1JobConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - Last time the condition was checked. + , v1JobConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transit from one status to another. + , v1JobConditionMessage :: !(Maybe Text) -- ^ "message" - Human readable message indicating details about last transition. + , v1JobConditionReason :: !(Maybe Text) -- ^ "reason" - (brief) reason for the condition's last transition. + , v1JobConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1JobConditionType :: !(Text) -- ^ /Required/ "type" - Type of job condition, Complete or Failed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JobCondition +instance A.FromJSON V1JobCondition where + parseJSON = A.withObject "V1JobCondition" $ \o -> + V1JobCondition + <$> (o .:? "lastProbeTime") + <*> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1JobCondition +instance A.ToJSON V1JobCondition where + toJSON V1JobCondition {..} = + _omitNulls + [ "lastProbeTime" .= v1JobConditionLastProbeTime + , "lastTransitionTime" .= v1JobConditionLastTransitionTime + , "message" .= v1JobConditionMessage + , "reason" .= v1JobConditionReason + , "status" .= v1JobConditionStatus + , "type" .= v1JobConditionType + ] + + +-- | Construct a value of type 'V1JobCondition' (by applying it's required fields, if any) +mkV1JobCondition + :: Text -- ^ 'v1JobConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1JobConditionType': Type of job condition, Complete or Failed. + -> V1JobCondition +mkV1JobCondition v1JobConditionStatus v1JobConditionType = + V1JobCondition + { v1JobConditionLastProbeTime = Nothing + , v1JobConditionLastTransitionTime = Nothing + , v1JobConditionMessage = Nothing + , v1JobConditionReason = Nothing + , v1JobConditionStatus + , v1JobConditionType + } + +-- ** V1JobList +-- | V1JobList +-- JobList is a collection of jobs. +data V1JobList = V1JobList + { v1JobListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1JobListItems :: !([V1Job]) -- ^ /Required/ "items" - items is the list of Jobs. + , v1JobListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1JobListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JobList +instance A.FromJSON V1JobList where + parseJSON = A.withObject "V1JobList" $ \o -> + V1JobList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1JobList +instance A.ToJSON V1JobList where + toJSON V1JobList {..} = + _omitNulls + [ "apiVersion" .= v1JobListApiVersion + , "items" .= v1JobListItems + , "kind" .= v1JobListKind + , "metadata" .= v1JobListMetadata + ] + + +-- | Construct a value of type 'V1JobList' (by applying it's required fields, if any) +mkV1JobList + :: [V1Job] -- ^ 'v1JobListItems': items is the list of Jobs. + -> V1JobList +mkV1JobList v1JobListItems = + V1JobList + { v1JobListApiVersion = Nothing + , v1JobListItems + , v1JobListKind = Nothing + , v1JobListMetadata = Nothing + } + +-- ** V1JobSpec +-- | V1JobSpec +-- JobSpec describes how the job execution will look like. +data V1JobSpec = V1JobSpec + { v1JobSpecActiveDeadlineSeconds :: !(Maybe Integer) -- ^ "activeDeadlineSeconds" - Specifies the duration in seconds relative to the startTime that the job may be continuously active before the system tries to terminate it; value must be positive integer. If a Job is suspended (at creation or through an update), this timer will effectively be stopped and reset when the Job is resumed again. + , v1JobSpecBackoffLimit :: !(Maybe Int) -- ^ "backoffLimit" - Specifies the number of retries before marking this job failed. Defaults to 6 + , v1JobSpecCompletionMode :: !(Maybe Text) -- ^ "completionMode" - completionMode specifies how Pod completions are tracked. It can be `NonIndexed` (default) or `Indexed`. `NonIndexed` means that the Job is considered complete when there have been .spec.completions successfully completed Pods. Each Pod completion is homologous to each other. `Indexed` means that the Pods of a Job get an associated completion index from 0 to (.spec.completions - 1), available in the annotation batch.kubernetes.io/job-completion-index. The Job is considered complete when there is one successfully completed Pod for each index. When value is `Indexed`, .spec.completions must be specified and `.spec.parallelism` must be less than or equal to 10^5. In addition, The Pod name takes the form `$(job-name)-$(index)-$(random-string)`, the Pod hostname takes the form `$(job-name)-$(index)`. More completion modes can be added in the future. If the Job controller observes a mode that it doesn't recognize, which is possible during upgrades due to version skew, the controller skips updates for the Job. + , v1JobSpecCompletions :: !(Maybe Int) -- ^ "completions" - Specifies the desired number of successfully finished pods the job should be run with. Setting to null means that the success of any pod signals the success of all pods, and allows parallelism to have any positive value. Setting to 1 means that parallelism is limited to 1 and the success of that pod signals the success of the job. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ + , v1JobSpecManualSelector :: !(Maybe Bool) -- ^ "manualSelector" - manualSelector controls generation of pod labels and pod selectors. Leave `manualSelector` unset unless you are certain what you are doing. When false or unset, the system pick labels unique to this job and appends those labels to the pod template. When true, the user is responsible for picking unique labels and specifying the selector. Failure to pick a unique label may cause this and other jobs to not function correctly. However, You may see `manualSelector=true` in jobs that were created with the old `extensions/v1beta1` API. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/#specifying-your-own-pod-selector + , v1JobSpecParallelism :: !(Maybe Int) -- ^ "parallelism" - Specifies the maximum desired number of pods the job should run at any given time. The actual number of pods running in steady state will be less than this number when ((.spec.completions - .status.successful) < .spec.parallelism), i.e. when the work left to do is less than max parallelism. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ + , v1JobSpecPodFailurePolicy :: !(Maybe V1PodFailurePolicy) -- ^ "podFailurePolicy" + , v1JobSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" + , v1JobSpecSuspend :: !(Maybe Bool) -- ^ "suspend" - suspend specifies whether the Job controller should create Pods or not. If a Job is created with suspend set to true, no Pods are created by the Job controller. If a Job is suspended after creation (i.e. the flag goes from false to true), the Job controller will delete all active Pods associated with this Job. Users must design their workload to gracefully handle this. Suspending a Job will reset the StartTime field of the Job, effectively resetting the ActiveDeadlineSeconds timer too. Defaults to false. + , v1JobSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" + , v1JobSpecTtlSecondsAfterFinished :: !(Maybe Int) -- ^ "ttlSecondsAfterFinished" - ttlSecondsAfterFinished limits the lifetime of a Job that has finished execution (either Complete or Failed). If this field is set, ttlSecondsAfterFinished after the Job finishes, it is eligible to be automatically deleted. When the Job is being deleted, its lifecycle guarantees (e.g. finalizers) will be honored. If this field is unset, the Job won't be automatically deleted. If this field is set to zero, the Job becomes eligible to be deleted immediately after it finishes. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JobSpec +instance A.FromJSON V1JobSpec where + parseJSON = A.withObject "V1JobSpec" $ \o -> + V1JobSpec + <$> (o .:? "activeDeadlineSeconds") + <*> (o .:? "backoffLimit") + <*> (o .:? "completionMode") + <*> (o .:? "completions") + <*> (o .:? "manualSelector") + <*> (o .:? "parallelism") + <*> (o .:? "podFailurePolicy") + <*> (o .:? "selector") + <*> (o .:? "suspend") + <*> (o .: "template") + <*> (o .:? "ttlSecondsAfterFinished") + +-- | ToJSON V1JobSpec +instance A.ToJSON V1JobSpec where + toJSON V1JobSpec {..} = + _omitNulls + [ "activeDeadlineSeconds" .= v1JobSpecActiveDeadlineSeconds + , "backoffLimit" .= v1JobSpecBackoffLimit + , "completionMode" .= v1JobSpecCompletionMode + , "completions" .= v1JobSpecCompletions + , "manualSelector" .= v1JobSpecManualSelector + , "parallelism" .= v1JobSpecParallelism + , "podFailurePolicy" .= v1JobSpecPodFailurePolicy + , "selector" .= v1JobSpecSelector + , "suspend" .= v1JobSpecSuspend + , "template" .= v1JobSpecTemplate + , "ttlSecondsAfterFinished" .= v1JobSpecTtlSecondsAfterFinished + ] + + +-- | Construct a value of type 'V1JobSpec' (by applying it's required fields, if any) +mkV1JobSpec + :: V1PodTemplateSpec -- ^ 'v1JobSpecTemplate' + -> V1JobSpec +mkV1JobSpec v1JobSpecTemplate = + V1JobSpec + { v1JobSpecActiveDeadlineSeconds = Nothing + , v1JobSpecBackoffLimit = Nothing + , v1JobSpecCompletionMode = Nothing + , v1JobSpecCompletions = Nothing + , v1JobSpecManualSelector = Nothing + , v1JobSpecParallelism = Nothing + , v1JobSpecPodFailurePolicy = Nothing + , v1JobSpecSelector = Nothing + , v1JobSpecSuspend = Nothing + , v1JobSpecTemplate + , v1JobSpecTtlSecondsAfterFinished = Nothing + } + +-- ** V1JobStatus +-- | V1JobStatus +-- JobStatus represents the current state of a Job. +data V1JobStatus = V1JobStatus + { v1JobStatusActive :: !(Maybe Int) -- ^ "active" - The number of pending and running pods. + , v1JobStatusCompletedIndexes :: !(Maybe Text) -- ^ "completedIndexes" - completedIndexes holds the completed indexes when .spec.completionMode = \"Indexed\" in a text format. The indexes are represented as decimal integers separated by commas. The numbers are listed in increasing order. Three or more consecutive numbers are compressed and represented by the first and last element of the series, separated by a hyphen. For example, if the completed indexes are 1, 3, 4, 5 and 7, they are represented as \"1,3-5,7\". + , v1JobStatusCompletionTime :: !(Maybe DateTime) -- ^ "completionTime" - Represents time when the job was completed. It is not guaranteed to be set in happens-before order across separate operations. It is represented in RFC3339 form and is in UTC. The completion time is only set when the job finishes successfully. + , v1JobStatusConditions :: !(Maybe [V1JobCondition]) -- ^ "conditions" - The latest available observations of an object's current state. When a Job fails, one of the conditions will have type \"Failed\" and status true. When a Job is suspended, one of the conditions will have type \"Suspended\" and status true; when the Job is resumed, the status of this condition will become false. When a Job is completed, one of the conditions will have type \"Complete\" and status true. More info: https://kubernetes.io/docs/concepts/workloads/controllers/jobs-run-to-completion/ + , v1JobStatusFailed :: !(Maybe Int) -- ^ "failed" - The number of pods which reached phase Failed. + , v1JobStatusReady :: !(Maybe Int) -- ^ "ready" - The number of pods which have a Ready condition. This field is beta-level. The job controller populates the field when the feature gate JobReadyPods is enabled (enabled by default). + , v1JobStatusStartTime :: !(Maybe DateTime) -- ^ "startTime" - Represents time when the job controller started processing a job. When a Job is created in the suspended state, this field is not set until the first time it is resumed. This field is reset every time a Job is resumed from suspension. It is represented in RFC3339 form and is in UTC. + , v1JobStatusSucceeded :: !(Maybe Int) -- ^ "succeeded" - The number of pods which reached phase Succeeded. + , v1JobStatusUncountedTerminatedPods :: !(Maybe V1UncountedTerminatedPods) -- ^ "uncountedTerminatedPods" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JobStatus +instance A.FromJSON V1JobStatus where + parseJSON = A.withObject "V1JobStatus" $ \o -> + V1JobStatus + <$> (o .:? "active") + <*> (o .:? "completedIndexes") + <*> (o .:? "completionTime") + <*> (o .:? "conditions") + <*> (o .:? "failed") + <*> (o .:? "ready") + <*> (o .:? "startTime") + <*> (o .:? "succeeded") + <*> (o .:? "uncountedTerminatedPods") + +-- | ToJSON V1JobStatus +instance A.ToJSON V1JobStatus where + toJSON V1JobStatus {..} = + _omitNulls + [ "active" .= v1JobStatusActive + , "completedIndexes" .= v1JobStatusCompletedIndexes + , "completionTime" .= v1JobStatusCompletionTime + , "conditions" .= v1JobStatusConditions + , "failed" .= v1JobStatusFailed + , "ready" .= v1JobStatusReady + , "startTime" .= v1JobStatusStartTime + , "succeeded" .= v1JobStatusSucceeded + , "uncountedTerminatedPods" .= v1JobStatusUncountedTerminatedPods + ] + + +-- | Construct a value of type 'V1JobStatus' (by applying it's required fields, if any) +mkV1JobStatus + :: V1JobStatus +mkV1JobStatus = + V1JobStatus + { v1JobStatusActive = Nothing + , v1JobStatusCompletedIndexes = Nothing + , v1JobStatusCompletionTime = Nothing + , v1JobStatusConditions = Nothing + , v1JobStatusFailed = Nothing + , v1JobStatusReady = Nothing + , v1JobStatusStartTime = Nothing + , v1JobStatusSucceeded = Nothing + , v1JobStatusUncountedTerminatedPods = Nothing + } + +-- ** V1JobTemplateSpec +-- | V1JobTemplateSpec +-- JobTemplateSpec describes the data a Job should have when created from a template +data V1JobTemplateSpec = V1JobTemplateSpec + { v1JobTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1JobTemplateSpecSpec :: !(Maybe V1JobSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1JobTemplateSpec +instance A.FromJSON V1JobTemplateSpec where + parseJSON = A.withObject "V1JobTemplateSpec" $ \o -> + V1JobTemplateSpec + <$> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1JobTemplateSpec +instance A.ToJSON V1JobTemplateSpec where + toJSON V1JobTemplateSpec {..} = + _omitNulls + [ "metadata" .= v1JobTemplateSpecMetadata + , "spec" .= v1JobTemplateSpecSpec + ] + + +-- | Construct a value of type 'V1JobTemplateSpec' (by applying it's required fields, if any) +mkV1JobTemplateSpec + :: V1JobTemplateSpec +mkV1JobTemplateSpec = + V1JobTemplateSpec + { v1JobTemplateSpecMetadata = Nothing + , v1JobTemplateSpecSpec = Nothing + } + +-- ** V1KeyToPath +-- | V1KeyToPath +-- Maps a string key to a path within a volume. +data V1KeyToPath = V1KeyToPath + { v1KeyToPathKey :: !(Text) -- ^ /Required/ "key" - key is the key to project. + , v1KeyToPathMode :: !(Maybe Int) -- ^ "mode" - mode is Optional: mode bits used to set permissions on this file. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. If not specified, the volume defaultMode will be used. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1KeyToPathPath :: !(Text) -- ^ /Required/ "path" - path is the relative path of the file to map the key to. May not be an absolute path. May not contain the path element '..'. May not start with the string '..'. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1KeyToPath +instance A.FromJSON V1KeyToPath where + parseJSON = A.withObject "V1KeyToPath" $ \o -> + V1KeyToPath + <$> (o .: "key") + <*> (o .:? "mode") + <*> (o .: "path") + +-- | ToJSON V1KeyToPath +instance A.ToJSON V1KeyToPath where + toJSON V1KeyToPath {..} = + _omitNulls + [ "key" .= v1KeyToPathKey + , "mode" .= v1KeyToPathMode + , "path" .= v1KeyToPathPath + ] + + +-- | Construct a value of type 'V1KeyToPath' (by applying it's required fields, if any) +mkV1KeyToPath + :: Text -- ^ 'v1KeyToPathKey': key is the key to project. + -> Text -- ^ 'v1KeyToPathPath': path is the relative path of the file to map the key to. May not be an absolute path. May not contain the path element '..'. May not start with the string '..'. + -> V1KeyToPath +mkV1KeyToPath v1KeyToPathKey v1KeyToPathPath = + V1KeyToPath + { v1KeyToPathKey + , v1KeyToPathMode = Nothing + , v1KeyToPathPath + } + +-- ** V1LabelSelector +-- | V1LabelSelector +-- A label selector is a label query over a set of resources. The result of matchLabels and matchExpressions are ANDed. An empty label selector matches all objects. A null label selector matches no objects. +data V1LabelSelector = V1LabelSelector + { v1LabelSelectorMatchExpressions :: !(Maybe [V1LabelSelectorRequirement]) -- ^ "matchExpressions" - matchExpressions is a list of label selector requirements. The requirements are ANDed. + , v1LabelSelectorMatchLabels :: !(Maybe (Map.Map String Text)) -- ^ "matchLabels" - matchLabels is a map of {key,value} pairs. A single {key,value} in the matchLabels map is equivalent to an element of matchExpressions, whose key field is \"key\", the operator is \"In\", and the values array contains only \"value\". The requirements are ANDed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LabelSelector +instance A.FromJSON V1LabelSelector where + parseJSON = A.withObject "V1LabelSelector" $ \o -> + V1LabelSelector + <$> (o .:? "matchExpressions") + <*> (o .:? "matchLabels") + +-- | ToJSON V1LabelSelector +instance A.ToJSON V1LabelSelector where + toJSON V1LabelSelector {..} = + _omitNulls + [ "matchExpressions" .= v1LabelSelectorMatchExpressions + , "matchLabels" .= v1LabelSelectorMatchLabels + ] + + +-- | Construct a value of type 'V1LabelSelector' (by applying it's required fields, if any) +mkV1LabelSelector + :: V1LabelSelector +mkV1LabelSelector = + V1LabelSelector + { v1LabelSelectorMatchExpressions = Nothing + , v1LabelSelectorMatchLabels = Nothing + } + +-- ** V1LabelSelectorRequirement +-- | V1LabelSelectorRequirement +-- A label selector requirement is a selector that contains values, a key, and an operator that relates the key and values. +data V1LabelSelectorRequirement = V1LabelSelectorRequirement + { v1LabelSelectorRequirementKey :: !(Text) -- ^ /Required/ "key" - key is the label key that the selector applies to. + , v1LabelSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - operator represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists and DoesNotExist. + , v1LabelSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - values is an array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. This array is replaced during a strategic merge patch. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LabelSelectorRequirement +instance A.FromJSON V1LabelSelectorRequirement where + parseJSON = A.withObject "V1LabelSelectorRequirement" $ \o -> + V1LabelSelectorRequirement + <$> (o .: "key") + <*> (o .: "operator") + <*> (o .:? "values") + +-- | ToJSON V1LabelSelectorRequirement +instance A.ToJSON V1LabelSelectorRequirement where + toJSON V1LabelSelectorRequirement {..} = + _omitNulls + [ "key" .= v1LabelSelectorRequirementKey + , "operator" .= v1LabelSelectorRequirementOperator + , "values" .= v1LabelSelectorRequirementValues + ] + + +-- | Construct a value of type 'V1LabelSelectorRequirement' (by applying it's required fields, if any) +mkV1LabelSelectorRequirement + :: Text -- ^ 'v1LabelSelectorRequirementKey': key is the label key that the selector applies to. + -> Text -- ^ 'v1LabelSelectorRequirementOperator': operator represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists and DoesNotExist. + -> V1LabelSelectorRequirement +mkV1LabelSelectorRequirement v1LabelSelectorRequirementKey v1LabelSelectorRequirementOperator = + V1LabelSelectorRequirement + { v1LabelSelectorRequirementKey + , v1LabelSelectorRequirementOperator + , v1LabelSelectorRequirementValues = Nothing + } + +-- ** V1Lease +-- | V1Lease +-- Lease defines a lease concept. +data V1Lease = V1Lease + { v1LeaseApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1LeaseKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1LeaseMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1LeaseSpec :: !(Maybe V1LeaseSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Lease +instance A.FromJSON V1Lease where + parseJSON = A.withObject "V1Lease" $ \o -> + V1Lease + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1Lease +instance A.ToJSON V1Lease where + toJSON V1Lease {..} = + _omitNulls + [ "apiVersion" .= v1LeaseApiVersion + , "kind" .= v1LeaseKind + , "metadata" .= v1LeaseMetadata + , "spec" .= v1LeaseSpec + ] + + +-- | Construct a value of type 'V1Lease' (by applying it's required fields, if any) +mkV1Lease + :: V1Lease +mkV1Lease = + V1Lease + { v1LeaseApiVersion = Nothing + , v1LeaseKind = Nothing + , v1LeaseMetadata = Nothing + , v1LeaseSpec = Nothing + } + +-- ** V1LeaseList +-- | V1LeaseList +-- LeaseList is a list of Lease objects. +data V1LeaseList = V1LeaseList + { v1LeaseListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1LeaseListItems :: !([V1Lease]) -- ^ /Required/ "items" - items is a list of schema objects. + , v1LeaseListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1LeaseListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LeaseList +instance A.FromJSON V1LeaseList where + parseJSON = A.withObject "V1LeaseList" $ \o -> + V1LeaseList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1LeaseList +instance A.ToJSON V1LeaseList where + toJSON V1LeaseList {..} = + _omitNulls + [ "apiVersion" .= v1LeaseListApiVersion + , "items" .= v1LeaseListItems + , "kind" .= v1LeaseListKind + , "metadata" .= v1LeaseListMetadata + ] + + +-- | Construct a value of type 'V1LeaseList' (by applying it's required fields, if any) +mkV1LeaseList + :: [V1Lease] -- ^ 'v1LeaseListItems': items is a list of schema objects. + -> V1LeaseList +mkV1LeaseList v1LeaseListItems = + V1LeaseList + { v1LeaseListApiVersion = Nothing + , v1LeaseListItems + , v1LeaseListKind = Nothing + , v1LeaseListMetadata = Nothing + } + +-- ** V1LeaseSpec +-- | V1LeaseSpec +-- LeaseSpec is a specification of a Lease. +data V1LeaseSpec = V1LeaseSpec + { v1LeaseSpecAcquireTime :: !(Maybe DateTime) -- ^ "acquireTime" - acquireTime is a time when the current lease was acquired. + , v1LeaseSpecHolderIdentity :: !(Maybe Text) -- ^ "holderIdentity" - holderIdentity contains the identity of the holder of a current lease. + , v1LeaseSpecLeaseDurationSeconds :: !(Maybe Int) -- ^ "leaseDurationSeconds" - leaseDurationSeconds is a duration that candidates for a lease need to wait to force acquire it. This is measure against time of last observed renewTime. + , v1LeaseSpecLeaseTransitions :: !(Maybe Int) -- ^ "leaseTransitions" - leaseTransitions is the number of transitions of a lease between holders. + , v1LeaseSpecRenewTime :: !(Maybe DateTime) -- ^ "renewTime" - renewTime is a time when the current holder of a lease has last updated the lease. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LeaseSpec +instance A.FromJSON V1LeaseSpec where + parseJSON = A.withObject "V1LeaseSpec" $ \o -> + V1LeaseSpec + <$> (o .:? "acquireTime") + <*> (o .:? "holderIdentity") + <*> (o .:? "leaseDurationSeconds") + <*> (o .:? "leaseTransitions") + <*> (o .:? "renewTime") + +-- | ToJSON V1LeaseSpec +instance A.ToJSON V1LeaseSpec where + toJSON V1LeaseSpec {..} = + _omitNulls + [ "acquireTime" .= v1LeaseSpecAcquireTime + , "holderIdentity" .= v1LeaseSpecHolderIdentity + , "leaseDurationSeconds" .= v1LeaseSpecLeaseDurationSeconds + , "leaseTransitions" .= v1LeaseSpecLeaseTransitions + , "renewTime" .= v1LeaseSpecRenewTime + ] + + +-- | Construct a value of type 'V1LeaseSpec' (by applying it's required fields, if any) +mkV1LeaseSpec + :: V1LeaseSpec +mkV1LeaseSpec = + V1LeaseSpec + { v1LeaseSpecAcquireTime = Nothing + , v1LeaseSpecHolderIdentity = Nothing + , v1LeaseSpecLeaseDurationSeconds = Nothing + , v1LeaseSpecLeaseTransitions = Nothing + , v1LeaseSpecRenewTime = Nothing + } + +-- ** V1Lifecycle +-- | V1Lifecycle +-- Lifecycle describes actions that the management system should take in response to container lifecycle events. For the PostStart and PreStop lifecycle handlers, management of the container blocks until the action is complete, unless the container process fails, in which case the handler is aborted. +data V1Lifecycle = V1Lifecycle + { v1LifecyclePostStart :: !(Maybe V1LifecycleHandler) -- ^ "postStart" + , v1LifecyclePreStop :: !(Maybe V1LifecycleHandler) -- ^ "preStop" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Lifecycle +instance A.FromJSON V1Lifecycle where + parseJSON = A.withObject "V1Lifecycle" $ \o -> + V1Lifecycle + <$> (o .:? "postStart") + <*> (o .:? "preStop") + +-- | ToJSON V1Lifecycle +instance A.ToJSON V1Lifecycle where + toJSON V1Lifecycle {..} = + _omitNulls + [ "postStart" .= v1LifecyclePostStart + , "preStop" .= v1LifecyclePreStop + ] + + +-- | Construct a value of type 'V1Lifecycle' (by applying it's required fields, if any) +mkV1Lifecycle + :: V1Lifecycle +mkV1Lifecycle = + V1Lifecycle + { v1LifecyclePostStart = Nothing + , v1LifecyclePreStop = Nothing + } + +-- ** V1LifecycleHandler +-- | V1LifecycleHandler +-- LifecycleHandler defines a specific action that should be taken in a lifecycle hook. One and only one of the fields, except TCPSocket must be specified. +data V1LifecycleHandler = V1LifecycleHandler + { v1LifecycleHandlerExec :: !(Maybe V1ExecAction) -- ^ "exec" + , v1LifecycleHandlerHttpGet :: !(Maybe V1HTTPGetAction) -- ^ "httpGet" + , v1LifecycleHandlerTcpSocket :: !(Maybe V1TCPSocketAction) -- ^ "tcpSocket" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LifecycleHandler +instance A.FromJSON V1LifecycleHandler where + parseJSON = A.withObject "V1LifecycleHandler" $ \o -> + V1LifecycleHandler + <$> (o .:? "exec") + <*> (o .:? "httpGet") + <*> (o .:? "tcpSocket") + +-- | ToJSON V1LifecycleHandler +instance A.ToJSON V1LifecycleHandler where + toJSON V1LifecycleHandler {..} = + _omitNulls + [ "exec" .= v1LifecycleHandlerExec + , "httpGet" .= v1LifecycleHandlerHttpGet + , "tcpSocket" .= v1LifecycleHandlerTcpSocket + ] + + +-- | Construct a value of type 'V1LifecycleHandler' (by applying it's required fields, if any) +mkV1LifecycleHandler + :: V1LifecycleHandler +mkV1LifecycleHandler = + V1LifecycleHandler + { v1LifecycleHandlerExec = Nothing + , v1LifecycleHandlerHttpGet = Nothing + , v1LifecycleHandlerTcpSocket = Nothing + } + +-- ** V1LimitRange +-- | V1LimitRange +-- LimitRange sets resource usage limits for each kind of resource in a Namespace. +data V1LimitRange = V1LimitRange + { v1LimitRangeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1LimitRangeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1LimitRangeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1LimitRangeSpec :: !(Maybe V1LimitRangeSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LimitRange +instance A.FromJSON V1LimitRange where + parseJSON = A.withObject "V1LimitRange" $ \o -> + V1LimitRange + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1LimitRange +instance A.ToJSON V1LimitRange where + toJSON V1LimitRange {..} = + _omitNulls + [ "apiVersion" .= v1LimitRangeApiVersion + , "kind" .= v1LimitRangeKind + , "metadata" .= v1LimitRangeMetadata + , "spec" .= v1LimitRangeSpec + ] + + +-- | Construct a value of type 'V1LimitRange' (by applying it's required fields, if any) +mkV1LimitRange + :: V1LimitRange +mkV1LimitRange = + V1LimitRange + { v1LimitRangeApiVersion = Nothing + , v1LimitRangeKind = Nothing + , v1LimitRangeMetadata = Nothing + , v1LimitRangeSpec = Nothing + } + +-- ** V1LimitRangeItem +-- | V1LimitRangeItem +-- LimitRangeItem defines a min/max usage limit for any resource that matches on kind. +data V1LimitRangeItem = V1LimitRangeItem + { v1LimitRangeItemDefault :: !(Maybe (Map.Map String Quantity)) -- ^ "default" - Default resource requirement limit value by resource name if resource limit is omitted. + , v1LimitRangeItemDefaultRequest :: !(Maybe (Map.Map String Quantity)) -- ^ "defaultRequest" - DefaultRequest is the default resource requirement request value by resource name if resource request is omitted. + , v1LimitRangeItemMax :: !(Maybe (Map.Map String Quantity)) -- ^ "max" - Max usage constraints on this kind by resource name. + , v1LimitRangeItemMaxLimitRequestRatio :: !(Maybe (Map.Map String Quantity)) -- ^ "maxLimitRequestRatio" - MaxLimitRequestRatio if specified, the named resource must have a request and limit that are both non-zero where limit divided by request is less than or equal to the enumerated value; this represents the max burst for the named resource. + , v1LimitRangeItemMin :: !(Maybe (Map.Map String Quantity)) -- ^ "min" - Min usage constraints on this kind by resource name. + , v1LimitRangeItemType :: !(Text) -- ^ /Required/ "type" - Type of resource that this limit applies to. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LimitRangeItem +instance A.FromJSON V1LimitRangeItem where + parseJSON = A.withObject "V1LimitRangeItem" $ \o -> + V1LimitRangeItem + <$> (o .:? "default") + <*> (o .:? "defaultRequest") + <*> (o .:? "max") + <*> (o .:? "maxLimitRequestRatio") + <*> (o .:? "min") + <*> (o .: "type") + +-- | ToJSON V1LimitRangeItem +instance A.ToJSON V1LimitRangeItem where + toJSON V1LimitRangeItem {..} = + _omitNulls + [ "default" .= v1LimitRangeItemDefault + , "defaultRequest" .= v1LimitRangeItemDefaultRequest + , "max" .= v1LimitRangeItemMax + , "maxLimitRequestRatio" .= v1LimitRangeItemMaxLimitRequestRatio + , "min" .= v1LimitRangeItemMin + , "type" .= v1LimitRangeItemType + ] + + +-- | Construct a value of type 'V1LimitRangeItem' (by applying it's required fields, if any) +mkV1LimitRangeItem + :: Text -- ^ 'v1LimitRangeItemType': Type of resource that this limit applies to. + -> V1LimitRangeItem +mkV1LimitRangeItem v1LimitRangeItemType = + V1LimitRangeItem + { v1LimitRangeItemDefault = Nothing + , v1LimitRangeItemDefaultRequest = Nothing + , v1LimitRangeItemMax = Nothing + , v1LimitRangeItemMaxLimitRequestRatio = Nothing + , v1LimitRangeItemMin = Nothing + , v1LimitRangeItemType + } + +-- ** V1LimitRangeList +-- | V1LimitRangeList +-- LimitRangeList is a list of LimitRange items. +data V1LimitRangeList = V1LimitRangeList + { v1LimitRangeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1LimitRangeListItems :: !([V1LimitRange]) -- ^ /Required/ "items" - Items is a list of LimitRange objects. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ + , v1LimitRangeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1LimitRangeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LimitRangeList +instance A.FromJSON V1LimitRangeList where + parseJSON = A.withObject "V1LimitRangeList" $ \o -> + V1LimitRangeList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1LimitRangeList +instance A.ToJSON V1LimitRangeList where + toJSON V1LimitRangeList {..} = + _omitNulls + [ "apiVersion" .= v1LimitRangeListApiVersion + , "items" .= v1LimitRangeListItems + , "kind" .= v1LimitRangeListKind + , "metadata" .= v1LimitRangeListMetadata + ] + + +-- | Construct a value of type 'V1LimitRangeList' (by applying it's required fields, if any) +mkV1LimitRangeList + :: [V1LimitRange] -- ^ 'v1LimitRangeListItems': Items is a list of LimitRange objects. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ + -> V1LimitRangeList +mkV1LimitRangeList v1LimitRangeListItems = + V1LimitRangeList + { v1LimitRangeListApiVersion = Nothing + , v1LimitRangeListItems + , v1LimitRangeListKind = Nothing + , v1LimitRangeListMetadata = Nothing + } + +-- ** V1LimitRangeSpec +-- | V1LimitRangeSpec +-- LimitRangeSpec defines a min/max usage limit for resources that match on kind. +data V1LimitRangeSpec = V1LimitRangeSpec + { v1LimitRangeSpecLimits :: !([V1LimitRangeItem]) -- ^ /Required/ "limits" - Limits is the list of LimitRangeItem objects that are enforced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LimitRangeSpec +instance A.FromJSON V1LimitRangeSpec where + parseJSON = A.withObject "V1LimitRangeSpec" $ \o -> + V1LimitRangeSpec + <$> (o .: "limits") + +-- | ToJSON V1LimitRangeSpec +instance A.ToJSON V1LimitRangeSpec where + toJSON V1LimitRangeSpec {..} = + _omitNulls + [ "limits" .= v1LimitRangeSpecLimits + ] + + +-- | Construct a value of type 'V1LimitRangeSpec' (by applying it's required fields, if any) +mkV1LimitRangeSpec + :: [V1LimitRangeItem] -- ^ 'v1LimitRangeSpecLimits': Limits is the list of LimitRangeItem objects that are enforced. + -> V1LimitRangeSpec +mkV1LimitRangeSpec v1LimitRangeSpecLimits = + V1LimitRangeSpec + { v1LimitRangeSpecLimits + } + +-- ** V1ListMeta +-- | V1ListMeta +-- ListMeta describes metadata that synthetic resources must have, including lists and various status objects. A resource may have only one of {ObjectMeta, ListMeta}. +data V1ListMeta = V1ListMeta + { v1ListMetaContinue :: !(Maybe Text) -- ^ "continue" - continue may be set if the user set a limit on the number of items returned, and indicates that the server has more data available. The value is opaque and may be used to issue another request to the endpoint that served this list to retrieve the next set of available objects. Continuing a consistent list may not be possible if the server configuration has changed or more than a few minutes have passed. The resourceVersion field returned when using this continue value will be identical to the value in the first response, unless you have received this token from an error message. + , v1ListMetaRemainingItemCount :: !(Maybe Integer) -- ^ "remainingItemCount" - remainingItemCount is the number of subsequent items in the list which are not included in this list response. If the list request contained label or field selectors, then the number of remaining items is unknown and the field will be left unset and omitted during serialization. If the list is complete (either because it is not chunking or because this is the last chunk), then there are no more remaining items and this field will be left unset and omitted during serialization. Servers older than v1.15 do not set this field. The intended use of the remainingItemCount is *estimating* the size of a collection. Clients should not rely on the remainingItemCount to be set or to be exact. + , v1ListMetaResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - String that identifies the server's internal version of this object that can be used by clients to determine when objects have changed. Value must be treated as opaque by clients and passed unmodified back to the server. Populated by the system. Read-only. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency + , v1ListMetaSelfLink :: !(Maybe Text) -- ^ "selfLink" - Deprecated: selfLink is a legacy read-only field that is no longer populated by the system. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ListMeta +instance A.FromJSON V1ListMeta where + parseJSON = A.withObject "V1ListMeta" $ \o -> + V1ListMeta + <$> (o .:? "continue") + <*> (o .:? "remainingItemCount") + <*> (o .:? "resourceVersion") + <*> (o .:? "selfLink") + +-- | ToJSON V1ListMeta +instance A.ToJSON V1ListMeta where + toJSON V1ListMeta {..} = + _omitNulls + [ "continue" .= v1ListMetaContinue + , "remainingItemCount" .= v1ListMetaRemainingItemCount + , "resourceVersion" .= v1ListMetaResourceVersion + , "selfLink" .= v1ListMetaSelfLink + ] + + +-- | Construct a value of type 'V1ListMeta' (by applying it's required fields, if any) +mkV1ListMeta + :: V1ListMeta +mkV1ListMeta = + V1ListMeta + { v1ListMetaContinue = Nothing + , v1ListMetaRemainingItemCount = Nothing + , v1ListMetaResourceVersion = Nothing + , v1ListMetaSelfLink = Nothing + } + +-- ** V1LoadBalancerIngress +-- | V1LoadBalancerIngress +-- LoadBalancerIngress represents the status of a load-balancer ingress point: traffic intended for the service should be sent to an ingress point. +data V1LoadBalancerIngress = V1LoadBalancerIngress + { v1LoadBalancerIngressHostname :: !(Maybe Text) -- ^ "hostname" - Hostname is set for load-balancer ingress points that are DNS based (typically AWS load-balancers) + , v1LoadBalancerIngressIp :: !(Maybe Text) -- ^ "ip" - IP is set for load-balancer ingress points that are IP based (typically GCE or OpenStack load-balancers) + , v1LoadBalancerIngressPorts :: !(Maybe [V1PortStatus]) -- ^ "ports" - Ports is a list of records of service ports If used, every port defined in the service should have an entry in it + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LoadBalancerIngress +instance A.FromJSON V1LoadBalancerIngress where + parseJSON = A.withObject "V1LoadBalancerIngress" $ \o -> + V1LoadBalancerIngress + <$> (o .:? "hostname") + <*> (o .:? "ip") + <*> (o .:? "ports") + +-- | ToJSON V1LoadBalancerIngress +instance A.ToJSON V1LoadBalancerIngress where + toJSON V1LoadBalancerIngress {..} = + _omitNulls + [ "hostname" .= v1LoadBalancerIngressHostname + , "ip" .= v1LoadBalancerIngressIp + , "ports" .= v1LoadBalancerIngressPorts + ] + + +-- | Construct a value of type 'V1LoadBalancerIngress' (by applying it's required fields, if any) +mkV1LoadBalancerIngress + :: V1LoadBalancerIngress +mkV1LoadBalancerIngress = + V1LoadBalancerIngress + { v1LoadBalancerIngressHostname = Nothing + , v1LoadBalancerIngressIp = Nothing + , v1LoadBalancerIngressPorts = Nothing + } + +-- ** V1LoadBalancerStatus +-- | V1LoadBalancerStatus +-- LoadBalancerStatus represents the status of a load-balancer. +data V1LoadBalancerStatus = V1LoadBalancerStatus + { v1LoadBalancerStatusIngress :: !(Maybe [V1LoadBalancerIngress]) -- ^ "ingress" - Ingress is a list containing ingress points for the load-balancer. Traffic intended for the service should be sent to these ingress points. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LoadBalancerStatus +instance A.FromJSON V1LoadBalancerStatus where + parseJSON = A.withObject "V1LoadBalancerStatus" $ \o -> + V1LoadBalancerStatus + <$> (o .:? "ingress") + +-- | ToJSON V1LoadBalancerStatus +instance A.ToJSON V1LoadBalancerStatus where + toJSON V1LoadBalancerStatus {..} = + _omitNulls + [ "ingress" .= v1LoadBalancerStatusIngress + ] + + +-- | Construct a value of type 'V1LoadBalancerStatus' (by applying it's required fields, if any) +mkV1LoadBalancerStatus + :: V1LoadBalancerStatus +mkV1LoadBalancerStatus = + V1LoadBalancerStatus + { v1LoadBalancerStatusIngress = Nothing + } + +-- ** V1LocalObjectReference +-- | V1LocalObjectReference +-- LocalObjectReference contains enough information to let you locate the referenced object inside the same namespace. +data V1LocalObjectReference = V1LocalObjectReference + { v1LocalObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LocalObjectReference +instance A.FromJSON V1LocalObjectReference where + parseJSON = A.withObject "V1LocalObjectReference" $ \o -> + V1LocalObjectReference + <$> (o .:? "name") + +-- | ToJSON V1LocalObjectReference +instance A.ToJSON V1LocalObjectReference where + toJSON V1LocalObjectReference {..} = + _omitNulls + [ "name" .= v1LocalObjectReferenceName + ] + + +-- | Construct a value of type 'V1LocalObjectReference' (by applying it's required fields, if any) +mkV1LocalObjectReference + :: V1LocalObjectReference +mkV1LocalObjectReference = + V1LocalObjectReference + { v1LocalObjectReferenceName = Nothing + } + +-- ** V1LocalSubjectAccessReview +-- | V1LocalSubjectAccessReview +-- LocalSubjectAccessReview checks whether or not a user or group can perform an action in a given namespace. Having a namespace scoped resource makes it much easier to grant namespace scoped policy that includes permissions checking. +data V1LocalSubjectAccessReview = V1LocalSubjectAccessReview + { v1LocalSubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1LocalSubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1LocalSubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1LocalSubjectAccessReviewSpec :: !(V1SubjectAccessReviewSpec) -- ^ /Required/ "spec" + , v1LocalSubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LocalSubjectAccessReview +instance A.FromJSON V1LocalSubjectAccessReview where + parseJSON = A.withObject "V1LocalSubjectAccessReview" $ \o -> + V1LocalSubjectAccessReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1LocalSubjectAccessReview +instance A.ToJSON V1LocalSubjectAccessReview where + toJSON V1LocalSubjectAccessReview {..} = + _omitNulls + [ "apiVersion" .= v1LocalSubjectAccessReviewApiVersion + , "kind" .= v1LocalSubjectAccessReviewKind + , "metadata" .= v1LocalSubjectAccessReviewMetadata + , "spec" .= v1LocalSubjectAccessReviewSpec + , "status" .= v1LocalSubjectAccessReviewStatus + ] + + +-- | Construct a value of type 'V1LocalSubjectAccessReview' (by applying it's required fields, if any) +mkV1LocalSubjectAccessReview + :: V1SubjectAccessReviewSpec -- ^ 'v1LocalSubjectAccessReviewSpec' + -> V1LocalSubjectAccessReview +mkV1LocalSubjectAccessReview v1LocalSubjectAccessReviewSpec = + V1LocalSubjectAccessReview + { v1LocalSubjectAccessReviewApiVersion = Nothing + , v1LocalSubjectAccessReviewKind = Nothing + , v1LocalSubjectAccessReviewMetadata = Nothing + , v1LocalSubjectAccessReviewSpec + , v1LocalSubjectAccessReviewStatus = Nothing + } + +-- ** V1LocalVolumeSource +-- | V1LocalVolumeSource +-- Local represents directly-attached storage with node affinity (Beta feature) +data V1LocalVolumeSource = V1LocalVolumeSource + { v1LocalVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. It applies only when the Path is a block device. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". The default value is to auto-select a filesystem if unspecified. + , v1LocalVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path of the full path to the volume on the node. It can be either a directory or block device (disk, partition, ...). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1LocalVolumeSource +instance A.FromJSON V1LocalVolumeSource where + parseJSON = A.withObject "V1LocalVolumeSource" $ \o -> + V1LocalVolumeSource + <$> (o .:? "fsType") + <*> (o .: "path") + +-- | ToJSON V1LocalVolumeSource +instance A.ToJSON V1LocalVolumeSource where + toJSON V1LocalVolumeSource {..} = + _omitNulls + [ "fsType" .= v1LocalVolumeSourceFsType + , "path" .= v1LocalVolumeSourcePath + ] + + +-- | Construct a value of type 'V1LocalVolumeSource' (by applying it's required fields, if any) +mkV1LocalVolumeSource + :: Text -- ^ 'v1LocalVolumeSourcePath': path of the full path to the volume on the node. It can be either a directory or block device (disk, partition, ...). + -> V1LocalVolumeSource +mkV1LocalVolumeSource v1LocalVolumeSourcePath = + V1LocalVolumeSource + { v1LocalVolumeSourceFsType = Nothing + , v1LocalVolumeSourcePath + } + +-- ** V1ManagedFieldsEntry +-- | V1ManagedFieldsEntry +-- ManagedFieldsEntry is a workflow-id, a FieldSet and the group version of the resource that the fieldset applies to. +data V1ManagedFieldsEntry = V1ManagedFieldsEntry + { v1ManagedFieldsEntryApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the version of this resource that this field set applies to. The format is \"group/version\" just like the top-level APIVersion field. It is necessary to track the version of a field set because it cannot be automatically converted. + , v1ManagedFieldsEntryFieldsType :: !(Maybe Text) -- ^ "fieldsType" - FieldsType is the discriminator for the different fields format and version. There is currently only one possible value: \"FieldsV1\" + , v1ManagedFieldsEntryFieldsV1 :: !(Maybe A.Value) -- ^ "fieldsV1" - FieldsV1 holds the first JSON version format as described in the \"FieldsV1\" type. + , v1ManagedFieldsEntryManager :: !(Maybe Text) -- ^ "manager" - Manager is an identifier of the workflow managing these fields. + , v1ManagedFieldsEntryOperation :: !(Maybe Text) -- ^ "operation" - Operation is the type of operation which lead to this ManagedFieldsEntry being created. The only valid values for this field are 'Apply' and 'Update'. + , v1ManagedFieldsEntrySubresource :: !(Maybe Text) -- ^ "subresource" - Subresource is the name of the subresource used to update that object, or empty string if the object was updated through the main resource. The value of this field is used to distinguish between managers, even if they share the same name. For example, a status update will be distinct from a regular update using the same manager name. Note that the APIVersion field is not related to the Subresource field and it always corresponds to the version of the main resource. + , v1ManagedFieldsEntryTime :: !(Maybe DateTime) -- ^ "time" - Time is the timestamp of when the ManagedFields entry was added. The timestamp will also be updated if a field is added, the manager changes any of the owned fields value or removes a field. The timestamp does not update when a field is removed from the entry because another manager took it over. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ManagedFieldsEntry +instance A.FromJSON V1ManagedFieldsEntry where + parseJSON = A.withObject "V1ManagedFieldsEntry" $ \o -> + V1ManagedFieldsEntry + <$> (o .:? "apiVersion") + <*> (o .:? "fieldsType") + <*> (o .:? "fieldsV1") + <*> (o .:? "manager") + <*> (o .:? "operation") + <*> (o .:? "subresource") + <*> (o .:? "time") + +-- | ToJSON V1ManagedFieldsEntry +instance A.ToJSON V1ManagedFieldsEntry where + toJSON V1ManagedFieldsEntry {..} = + _omitNulls + [ "apiVersion" .= v1ManagedFieldsEntryApiVersion + , "fieldsType" .= v1ManagedFieldsEntryFieldsType + , "fieldsV1" .= v1ManagedFieldsEntryFieldsV1 + , "manager" .= v1ManagedFieldsEntryManager + , "operation" .= v1ManagedFieldsEntryOperation + , "subresource" .= v1ManagedFieldsEntrySubresource + , "time" .= v1ManagedFieldsEntryTime + ] + + +-- | Construct a value of type 'V1ManagedFieldsEntry' (by applying it's required fields, if any) +mkV1ManagedFieldsEntry + :: V1ManagedFieldsEntry +mkV1ManagedFieldsEntry = + V1ManagedFieldsEntry + { v1ManagedFieldsEntryApiVersion = Nothing + , v1ManagedFieldsEntryFieldsType = Nothing + , v1ManagedFieldsEntryFieldsV1 = Nothing + , v1ManagedFieldsEntryManager = Nothing + , v1ManagedFieldsEntryOperation = Nothing + , v1ManagedFieldsEntrySubresource = Nothing + , v1ManagedFieldsEntryTime = Nothing + } + +-- ** V1MatchCondition +-- | V1MatchCondition +-- MatchCondition represents a condition which must by fulfilled for a request to be sent to a webhook. +data V1MatchCondition = V1MatchCondition + { v1MatchConditionExpression :: !(Text) -- ^ /Required/ "expression" - Expression represents the expression which will be evaluated by CEL. Must evaluate to bool. CEL expressions have access to the contents of the AdmissionRequest and Authorizer, organized into CEL variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request(/pkg/apis/admission/types.go#AdmissionRequest). 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. Documentation on CEL: https://kubernetes.io/docs/reference/using-api/cel/ Required. + , v1MatchConditionName :: !(Text) -- ^ /Required/ "name" - Name is an identifier for this match condition, used for strategic merging of MatchConditions, as well as providing an identifier for logging purposes. A good name should be descriptive of the associated expression. Name must be a qualified name consisting of alphanumeric characters, '-', '_' or '.', and must start and end with an alphanumeric character (e.g. 'MyName', or 'my.name', or '123-abc', regex used for validation is '([A-Za-z0-9][-A-Za-z0-9_.]*)?[A-Za-z0-9]') with an optional DNS subdomain prefix and '/' (e.g. 'example.com/MyName') Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1MatchCondition +instance A.FromJSON V1MatchCondition where + parseJSON = A.withObject "V1MatchCondition" $ \o -> + V1MatchCondition + <$> (o .: "expression") + <*> (o .: "name") + +-- | ToJSON V1MatchCondition +instance A.ToJSON V1MatchCondition where + toJSON V1MatchCondition {..} = + _omitNulls + [ "expression" .= v1MatchConditionExpression + , "name" .= v1MatchConditionName + ] + + +-- | Construct a value of type 'V1MatchCondition' (by applying it's required fields, if any) +mkV1MatchCondition + :: Text -- ^ 'v1MatchConditionExpression': Expression represents the expression which will be evaluated by CEL. Must evaluate to bool. CEL expressions have access to the contents of the AdmissionRequest and Authorizer, organized into CEL variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request(/pkg/apis/admission/types.go#AdmissionRequest). 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. Documentation on CEL: https://kubernetes.io/docs/reference/using-api/cel/ Required. + -> Text -- ^ 'v1MatchConditionName': Name is an identifier for this match condition, used for strategic merging of MatchConditions, as well as providing an identifier for logging purposes. A good name should be descriptive of the associated expression. Name must be a qualified name consisting of alphanumeric characters, '-', '_' or '.', and must start and end with an alphanumeric character (e.g. 'MyName', or 'my.name', or '123-abc', regex used for validation is '([A-Za-z0-9][-A-Za-z0-9_.]*)?[A-Za-z0-9]') with an optional DNS subdomain prefix and '/' (e.g. 'example.com/MyName') Required. + -> V1MatchCondition +mkV1MatchCondition v1MatchConditionExpression v1MatchConditionName = + V1MatchCondition + { v1MatchConditionExpression + , v1MatchConditionName + } + +-- ** V1MutatingWebhook +-- | V1MutatingWebhook +-- MutatingWebhook describes an admission webhook and the resources and operations it applies to. +data V1MutatingWebhook = V1MutatingWebhook + { v1MutatingWebhookAdmissionReviewVersions :: !([Text]) -- ^ /Required/ "admissionReviewVersions" - AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. + , v1MutatingWebhookClientConfig :: !(AdmissionregistrationV1WebhookClientConfig) -- ^ /Required/ "clientConfig" + , v1MutatingWebhookFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - FailurePolicy defines how unrecognized errors from the admission endpoint are handled - allowed values are Ignore or Fail. Defaults to Fail. + , v1MutatingWebhookMatchConditions :: !(Maybe [V1MatchCondition]) -- ^ "matchConditions" - MatchConditions is a list of conditions that must be met for a request to be sent to this webhook. Match conditions filter requests that have already been matched by the rules, namespaceSelector, and objectSelector. An empty list of matchConditions matches all requests. There are a maximum of 64 match conditions allowed. The exact matching logic is (in order): 1. If ANY matchCondition evaluates to FALSE, the webhook is skipped. 2. If ALL matchConditions evaluate to TRUE, the webhook is called. 3. If any matchCondition evaluates to an error (but none are FALSE): - If failurePolicy=Fail, reject the request - If failurePolicy=Ignore, the error is ignored and the webhook is skipped This is an alpha feature and managed by the AdmissionWebhookMatchConditions feature gate. + , v1MutatingWebhookMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"rules\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the webhook. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the webhook. Defaults to \"Equivalent\" + , v1MutatingWebhookName :: !(Text) -- ^ /Required/ "name" - The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. + , v1MutatingWebhookNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" + , v1MutatingWebhookObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" + , v1MutatingWebhookReinvocationPolicy :: !(Maybe Text) -- ^ "reinvocationPolicy" - reinvocationPolicy indicates whether this webhook should be called multiple times as part of a single admission evaluation. Allowed values are \"Never\" and \"IfNeeded\". Never: the webhook will not be called more than once in a single admission evaluation. IfNeeded: the webhook will be called at least one additional time as part of the admission evaluation if the object being admitted is modified by other admission plugins after the initial webhook call. Webhooks that specify this option *must* be idempotent, able to process objects they previously admitted. Note: * the number of additional invocations is not guaranteed to be exactly one. * if additional invocations result in further modifications to the object, webhooks are not guaranteed to be invoked again. * webhooks that use this option may be reordered to minimize the number of additional invocations. * to validate an object after all mutations are guaranteed complete, use a validating admission webhook instead. Defaults to \"Never\". + , v1MutatingWebhookRules :: !(Maybe [V1RuleWithOperations]) -- ^ "rules" - Rules describes what operations on what resources/subresources the webhook cares about. The webhook cares about an operation if it matches _any_ Rule. However, in order to prevent ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks from putting the cluster in a state which cannot be recovered from without completely disabling the plugin, ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks are never called on admission requests for ValidatingWebhookConfiguration and MutatingWebhookConfiguration objects. + , v1MutatingWebhookSideEffects :: !(Text) -- ^ /Required/ "sideEffects" - SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. + , v1MutatingWebhookTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - TimeoutSeconds specifies the timeout for this webhook. After the timeout passes, the webhook call will be ignored or the API call will fail based on the failure policy. The timeout value must be between 1 and 30 seconds. Default to 10 seconds. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1MutatingWebhook +instance A.FromJSON V1MutatingWebhook where + parseJSON = A.withObject "V1MutatingWebhook" $ \o -> + V1MutatingWebhook + <$> (o .: "admissionReviewVersions") + <*> (o .: "clientConfig") + <*> (o .:? "failurePolicy") + <*> (o .:? "matchConditions") + <*> (o .:? "matchPolicy") + <*> (o .: "name") + <*> (o .:? "namespaceSelector") + <*> (o .:? "objectSelector") + <*> (o .:? "reinvocationPolicy") + <*> (o .:? "rules") + <*> (o .: "sideEffects") + <*> (o .:? "timeoutSeconds") + +-- | ToJSON V1MutatingWebhook +instance A.ToJSON V1MutatingWebhook where + toJSON V1MutatingWebhook {..} = + _omitNulls + [ "admissionReviewVersions" .= v1MutatingWebhookAdmissionReviewVersions + , "clientConfig" .= v1MutatingWebhookClientConfig + , "failurePolicy" .= v1MutatingWebhookFailurePolicy + , "matchConditions" .= v1MutatingWebhookMatchConditions + , "matchPolicy" .= v1MutatingWebhookMatchPolicy + , "name" .= v1MutatingWebhookName + , "namespaceSelector" .= v1MutatingWebhookNamespaceSelector + , "objectSelector" .= v1MutatingWebhookObjectSelector + , "reinvocationPolicy" .= v1MutatingWebhookReinvocationPolicy + , "rules" .= v1MutatingWebhookRules + , "sideEffects" .= v1MutatingWebhookSideEffects + , "timeoutSeconds" .= v1MutatingWebhookTimeoutSeconds + ] + + +-- | Construct a value of type 'V1MutatingWebhook' (by applying it's required fields, if any) +mkV1MutatingWebhook + :: [Text] -- ^ 'v1MutatingWebhookAdmissionReviewVersions': AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. + -> AdmissionregistrationV1WebhookClientConfig -- ^ 'v1MutatingWebhookClientConfig' + -> Text -- ^ 'v1MutatingWebhookName': The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. + -> Text -- ^ 'v1MutatingWebhookSideEffects': SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. + -> V1MutatingWebhook +mkV1MutatingWebhook v1MutatingWebhookAdmissionReviewVersions v1MutatingWebhookClientConfig v1MutatingWebhookName v1MutatingWebhookSideEffects = + V1MutatingWebhook + { v1MutatingWebhookAdmissionReviewVersions + , v1MutatingWebhookClientConfig + , v1MutatingWebhookFailurePolicy = Nothing + , v1MutatingWebhookMatchConditions = Nothing + , v1MutatingWebhookMatchPolicy = Nothing + , v1MutatingWebhookName + , v1MutatingWebhookNamespaceSelector = Nothing + , v1MutatingWebhookObjectSelector = Nothing + , v1MutatingWebhookReinvocationPolicy = Nothing + , v1MutatingWebhookRules = Nothing + , v1MutatingWebhookSideEffects + , v1MutatingWebhookTimeoutSeconds = Nothing + } + +-- ** V1MutatingWebhookConfiguration +-- | V1MutatingWebhookConfiguration +-- MutatingWebhookConfiguration describes the configuration of and admission webhook that accept or reject and may change the object. +data V1MutatingWebhookConfiguration = V1MutatingWebhookConfiguration + { v1MutatingWebhookConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1MutatingWebhookConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1MutatingWebhookConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1MutatingWebhookConfigurationWebhooks :: !(Maybe [V1MutatingWebhook]) -- ^ "webhooks" - Webhooks is a list of webhooks and the affected resources and operations. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1MutatingWebhookConfiguration +instance A.FromJSON V1MutatingWebhookConfiguration where + parseJSON = A.withObject "V1MutatingWebhookConfiguration" $ \o -> + V1MutatingWebhookConfiguration + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "webhooks") + +-- | ToJSON V1MutatingWebhookConfiguration +instance A.ToJSON V1MutatingWebhookConfiguration where + toJSON V1MutatingWebhookConfiguration {..} = + _omitNulls + [ "apiVersion" .= v1MutatingWebhookConfigurationApiVersion + , "kind" .= v1MutatingWebhookConfigurationKind + , "metadata" .= v1MutatingWebhookConfigurationMetadata + , "webhooks" .= v1MutatingWebhookConfigurationWebhooks + ] + + +-- | Construct a value of type 'V1MutatingWebhookConfiguration' (by applying it's required fields, if any) +mkV1MutatingWebhookConfiguration + :: V1MutatingWebhookConfiguration +mkV1MutatingWebhookConfiguration = + V1MutatingWebhookConfiguration + { v1MutatingWebhookConfigurationApiVersion = Nothing + , v1MutatingWebhookConfigurationKind = Nothing + , v1MutatingWebhookConfigurationMetadata = Nothing + , v1MutatingWebhookConfigurationWebhooks = Nothing + } + +-- ** V1MutatingWebhookConfigurationList +-- | V1MutatingWebhookConfigurationList +-- MutatingWebhookConfigurationList is a list of MutatingWebhookConfiguration. +data V1MutatingWebhookConfigurationList = V1MutatingWebhookConfigurationList + { v1MutatingWebhookConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1MutatingWebhookConfigurationListItems :: !([V1MutatingWebhookConfiguration]) -- ^ /Required/ "items" - List of MutatingWebhookConfiguration. + , v1MutatingWebhookConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1MutatingWebhookConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1MutatingWebhookConfigurationList +instance A.FromJSON V1MutatingWebhookConfigurationList where + parseJSON = A.withObject "V1MutatingWebhookConfigurationList" $ \o -> + V1MutatingWebhookConfigurationList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1MutatingWebhookConfigurationList +instance A.ToJSON V1MutatingWebhookConfigurationList where + toJSON V1MutatingWebhookConfigurationList {..} = + _omitNulls + [ "apiVersion" .= v1MutatingWebhookConfigurationListApiVersion + , "items" .= v1MutatingWebhookConfigurationListItems + , "kind" .= v1MutatingWebhookConfigurationListKind + , "metadata" .= v1MutatingWebhookConfigurationListMetadata + ] + + +-- | Construct a value of type 'V1MutatingWebhookConfigurationList' (by applying it's required fields, if any) +mkV1MutatingWebhookConfigurationList + :: [V1MutatingWebhookConfiguration] -- ^ 'v1MutatingWebhookConfigurationListItems': List of MutatingWebhookConfiguration. + -> V1MutatingWebhookConfigurationList +mkV1MutatingWebhookConfigurationList v1MutatingWebhookConfigurationListItems = + V1MutatingWebhookConfigurationList + { v1MutatingWebhookConfigurationListApiVersion = Nothing + , v1MutatingWebhookConfigurationListItems + , v1MutatingWebhookConfigurationListKind = Nothing + , v1MutatingWebhookConfigurationListMetadata = Nothing + } + +-- ** V1NFSVolumeSource +-- | V1NFSVolumeSource +-- Represents an NFS mount that lasts the lifetime of a pod. NFS volumes do not support ownership management or SELinux relabeling. +data V1NFSVolumeSource = V1NFSVolumeSource + { v1NFSVolumeSourcePath :: !(Text) -- ^ /Required/ "path" - path that is exported by the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs + , v1NFSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the NFS export to be mounted with read-only permissions. Defaults to false. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs + , v1NFSVolumeSourceServer :: !(Text) -- ^ /Required/ "server" - server is the hostname or IP address of the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NFSVolumeSource +instance A.FromJSON V1NFSVolumeSource where + parseJSON = A.withObject "V1NFSVolumeSource" $ \o -> + V1NFSVolumeSource + <$> (o .: "path") + <*> (o .:? "readOnly") + <*> (o .: "server") + +-- | ToJSON V1NFSVolumeSource +instance A.ToJSON V1NFSVolumeSource where + toJSON V1NFSVolumeSource {..} = + _omitNulls + [ "path" .= v1NFSVolumeSourcePath + , "readOnly" .= v1NFSVolumeSourceReadOnly + , "server" .= v1NFSVolumeSourceServer + ] + + +-- | Construct a value of type 'V1NFSVolumeSource' (by applying it's required fields, if any) +mkV1NFSVolumeSource + :: Text -- ^ 'v1NFSVolumeSourcePath': path that is exported by the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs + -> Text -- ^ 'v1NFSVolumeSourceServer': server is the hostname or IP address of the NFS server. More info: https://kubernetes.io/docs/concepts/storage/volumes#nfs + -> V1NFSVolumeSource +mkV1NFSVolumeSource v1NFSVolumeSourcePath v1NFSVolumeSourceServer = + V1NFSVolumeSource + { v1NFSVolumeSourcePath + , v1NFSVolumeSourceReadOnly = Nothing + , v1NFSVolumeSourceServer + } + +-- ** V1Namespace +-- | V1Namespace +-- Namespace provides a scope for Names. Use of multiple namespaces is optional. +data V1Namespace = V1Namespace + { v1NamespaceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NamespaceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NamespaceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1NamespaceSpec :: !(Maybe V1NamespaceSpec) -- ^ "spec" + , v1NamespaceStatus :: !(Maybe V1NamespaceStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Namespace +instance A.FromJSON V1Namespace where + parseJSON = A.withObject "V1Namespace" $ \o -> + V1Namespace + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Namespace +instance A.ToJSON V1Namespace where + toJSON V1Namespace {..} = + _omitNulls + [ "apiVersion" .= v1NamespaceApiVersion + , "kind" .= v1NamespaceKind + , "metadata" .= v1NamespaceMetadata + , "spec" .= v1NamespaceSpec + , "status" .= v1NamespaceStatus + ] + + +-- | Construct a value of type 'V1Namespace' (by applying it's required fields, if any) +mkV1Namespace + :: V1Namespace +mkV1Namespace = + V1Namespace + { v1NamespaceApiVersion = Nothing + , v1NamespaceKind = Nothing + , v1NamespaceMetadata = Nothing + , v1NamespaceSpec = Nothing + , v1NamespaceStatus = Nothing + } + +-- ** V1NamespaceCondition +-- | V1NamespaceCondition +-- NamespaceCondition contains details about state of namespace. +data V1NamespaceCondition = V1NamespaceCondition + { v1NamespaceConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Time is a wrapper around time.Time which supports correct marshaling to YAML and JSON. Wrappers are provided for many of the factory methods that the time package offers. + , v1NamespaceConditionMessage :: !(Maybe Text) -- ^ "message" + , v1NamespaceConditionReason :: !(Maybe Text) -- ^ "reason" + , v1NamespaceConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1NamespaceConditionType :: !(Text) -- ^ /Required/ "type" - Type of namespace controller condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NamespaceCondition +instance A.FromJSON V1NamespaceCondition where + parseJSON = A.withObject "V1NamespaceCondition" $ \o -> + V1NamespaceCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1NamespaceCondition +instance A.ToJSON V1NamespaceCondition where + toJSON V1NamespaceCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1NamespaceConditionLastTransitionTime + , "message" .= v1NamespaceConditionMessage + , "reason" .= v1NamespaceConditionReason + , "status" .= v1NamespaceConditionStatus + , "type" .= v1NamespaceConditionType + ] + + +-- | Construct a value of type 'V1NamespaceCondition' (by applying it's required fields, if any) +mkV1NamespaceCondition + :: Text -- ^ 'v1NamespaceConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1NamespaceConditionType': Type of namespace controller condition. + -> V1NamespaceCondition +mkV1NamespaceCondition v1NamespaceConditionStatus v1NamespaceConditionType = + V1NamespaceCondition + { v1NamespaceConditionLastTransitionTime = Nothing + , v1NamespaceConditionMessage = Nothing + , v1NamespaceConditionReason = Nothing + , v1NamespaceConditionStatus + , v1NamespaceConditionType + } + +-- ** V1NamespaceList +-- | V1NamespaceList +-- NamespaceList is a list of Namespaces. +data V1NamespaceList = V1NamespaceList + { v1NamespaceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NamespaceListItems :: !([V1Namespace]) -- ^ /Required/ "items" - Items is the list of Namespace objects in the list. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ + , v1NamespaceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NamespaceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NamespaceList +instance A.FromJSON V1NamespaceList where + parseJSON = A.withObject "V1NamespaceList" $ \o -> + V1NamespaceList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1NamespaceList +instance A.ToJSON V1NamespaceList where + toJSON V1NamespaceList {..} = + _omitNulls + [ "apiVersion" .= v1NamespaceListApiVersion + , "items" .= v1NamespaceListItems + , "kind" .= v1NamespaceListKind + , "metadata" .= v1NamespaceListMetadata + ] + + +-- | Construct a value of type 'V1NamespaceList' (by applying it's required fields, if any) +mkV1NamespaceList + :: [V1Namespace] -- ^ 'v1NamespaceListItems': Items is the list of Namespace objects in the list. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ + -> V1NamespaceList +mkV1NamespaceList v1NamespaceListItems = + V1NamespaceList + { v1NamespaceListApiVersion = Nothing + , v1NamespaceListItems + , v1NamespaceListKind = Nothing + , v1NamespaceListMetadata = Nothing + } + +-- ** V1NamespaceSpec +-- | V1NamespaceSpec +-- NamespaceSpec describes the attributes on a Namespace. +data V1NamespaceSpec = V1NamespaceSpec + { v1NamespaceSpecFinalizers :: !(Maybe [Text]) -- ^ "finalizers" - Finalizers is an opaque list of values that must be empty to permanently remove object from storage. More info: https://kubernetes.io/docs/tasks/administer-cluster/namespaces/ + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NamespaceSpec +instance A.FromJSON V1NamespaceSpec where + parseJSON = A.withObject "V1NamespaceSpec" $ \o -> + V1NamespaceSpec + <$> (o .:? "finalizers") + +-- | ToJSON V1NamespaceSpec +instance A.ToJSON V1NamespaceSpec where + toJSON V1NamespaceSpec {..} = + _omitNulls + [ "finalizers" .= v1NamespaceSpecFinalizers + ] + + +-- | Construct a value of type 'V1NamespaceSpec' (by applying it's required fields, if any) +mkV1NamespaceSpec + :: V1NamespaceSpec +mkV1NamespaceSpec = + V1NamespaceSpec + { v1NamespaceSpecFinalizers = Nothing + } + +-- ** V1NamespaceStatus +-- | V1NamespaceStatus +-- NamespaceStatus is information about the current status of a Namespace. +data V1NamespaceStatus = V1NamespaceStatus + { v1NamespaceStatusConditions :: !(Maybe [V1NamespaceCondition]) -- ^ "conditions" - Represents the latest available observations of a namespace's current state. + , v1NamespaceStatusPhase :: !(Maybe Text) -- ^ "phase" - Phase is the current lifecycle phase of the namespace. More info: https://kubernetes.io/docs/tasks/administer-cluster/namespaces/ + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NamespaceStatus +instance A.FromJSON V1NamespaceStatus where + parseJSON = A.withObject "V1NamespaceStatus" $ \o -> + V1NamespaceStatus + <$> (o .:? "conditions") + <*> (o .:? "phase") + +-- | ToJSON V1NamespaceStatus +instance A.ToJSON V1NamespaceStatus where + toJSON V1NamespaceStatus {..} = + _omitNulls + [ "conditions" .= v1NamespaceStatusConditions + , "phase" .= v1NamespaceStatusPhase + ] + + +-- | Construct a value of type 'V1NamespaceStatus' (by applying it's required fields, if any) +mkV1NamespaceStatus + :: V1NamespaceStatus +mkV1NamespaceStatus = + V1NamespaceStatus + { v1NamespaceStatusConditions = Nothing + , v1NamespaceStatusPhase = Nothing + } + +-- ** V1NetworkPolicy +-- | V1NetworkPolicy +-- NetworkPolicy describes what network traffic is allowed for a set of Pods +data V1NetworkPolicy = V1NetworkPolicy + { v1NetworkPolicyApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NetworkPolicyKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NetworkPolicyMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1NetworkPolicySpec :: !(Maybe V1NetworkPolicySpec) -- ^ "spec" + , v1NetworkPolicyStatus :: !(Maybe V1NetworkPolicyStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicy +instance A.FromJSON V1NetworkPolicy where + parseJSON = A.withObject "V1NetworkPolicy" $ \o -> + V1NetworkPolicy + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1NetworkPolicy +instance A.ToJSON V1NetworkPolicy where + toJSON V1NetworkPolicy {..} = + _omitNulls + [ "apiVersion" .= v1NetworkPolicyApiVersion + , "kind" .= v1NetworkPolicyKind + , "metadata" .= v1NetworkPolicyMetadata + , "spec" .= v1NetworkPolicySpec + , "status" .= v1NetworkPolicyStatus + ] + + +-- | Construct a value of type 'V1NetworkPolicy' (by applying it's required fields, if any) +mkV1NetworkPolicy + :: V1NetworkPolicy +mkV1NetworkPolicy = + V1NetworkPolicy + { v1NetworkPolicyApiVersion = Nothing + , v1NetworkPolicyKind = Nothing + , v1NetworkPolicyMetadata = Nothing + , v1NetworkPolicySpec = Nothing + , v1NetworkPolicyStatus = Nothing + } + +-- ** V1NetworkPolicyEgressRule +-- | V1NetworkPolicyEgressRule +-- NetworkPolicyEgressRule describes a particular set of traffic that is allowed out of pods matched by a NetworkPolicySpec's podSelector. The traffic must match both ports and to. This type is beta-level in 1.8 +data V1NetworkPolicyEgressRule = V1NetworkPolicyEgressRule + { v1NetworkPolicyEgressRulePorts :: !(Maybe [V1NetworkPolicyPort]) -- ^ "ports" - ports is a list of destination ports for outgoing traffic. Each item in this list is combined using a logical OR. If this field is empty or missing, this rule matches all ports (traffic not restricted by port). If this field is present and contains at least one item, then this rule allows traffic only if the traffic matches at least one port in the list. + , v1NetworkPolicyEgressRuleTo :: !(Maybe [V1NetworkPolicyPeer]) -- ^ "to" - to is a list of destinations for outgoing traffic of pods selected for this rule. Items in this list are combined using a logical OR operation. If this field is empty or missing, this rule matches all destinations (traffic not restricted by destination). If this field is present and contains at least one item, this rule allows traffic only if the traffic matches at least one item in the to list. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyEgressRule +instance A.FromJSON V1NetworkPolicyEgressRule where + parseJSON = A.withObject "V1NetworkPolicyEgressRule" $ \o -> + V1NetworkPolicyEgressRule + <$> (o .:? "ports") + <*> (o .:? "to") + +-- | ToJSON V1NetworkPolicyEgressRule +instance A.ToJSON V1NetworkPolicyEgressRule where + toJSON V1NetworkPolicyEgressRule {..} = + _omitNulls + [ "ports" .= v1NetworkPolicyEgressRulePorts + , "to" .= v1NetworkPolicyEgressRuleTo + ] + + +-- | Construct a value of type 'V1NetworkPolicyEgressRule' (by applying it's required fields, if any) +mkV1NetworkPolicyEgressRule + :: V1NetworkPolicyEgressRule +mkV1NetworkPolicyEgressRule = + V1NetworkPolicyEgressRule + { v1NetworkPolicyEgressRulePorts = Nothing + , v1NetworkPolicyEgressRuleTo = Nothing + } + +-- ** V1NetworkPolicyIngressRule +-- | V1NetworkPolicyIngressRule +-- NetworkPolicyIngressRule describes a particular set of traffic that is allowed to the pods matched by a NetworkPolicySpec's podSelector. The traffic must match both ports and from. +data V1NetworkPolicyIngressRule = V1NetworkPolicyIngressRule + { v1NetworkPolicyIngressRuleFrom :: !(Maybe [V1NetworkPolicyPeer]) -- ^ "from" - from is a list of sources which should be able to access the pods selected for this rule. Items in this list are combined using a logical OR operation. If this field is empty or missing, this rule matches all sources (traffic not restricted by source). If this field is present and contains at least one item, this rule allows traffic only if the traffic matches at least one item in the from list. + , v1NetworkPolicyIngressRulePorts :: !(Maybe [V1NetworkPolicyPort]) -- ^ "ports" - ports is a list of ports which should be made accessible on the pods selected for this rule. Each item in this list is combined using a logical OR. If this field is empty or missing, this rule matches all ports (traffic not restricted by port). If this field is present and contains at least one item, then this rule allows traffic only if the traffic matches at least one port in the list. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyIngressRule +instance A.FromJSON V1NetworkPolicyIngressRule where + parseJSON = A.withObject "V1NetworkPolicyIngressRule" $ \o -> + V1NetworkPolicyIngressRule + <$> (o .:? "from") + <*> (o .:? "ports") + +-- | ToJSON V1NetworkPolicyIngressRule +instance A.ToJSON V1NetworkPolicyIngressRule where + toJSON V1NetworkPolicyIngressRule {..} = + _omitNulls + [ "from" .= v1NetworkPolicyIngressRuleFrom + , "ports" .= v1NetworkPolicyIngressRulePorts + ] + + +-- | Construct a value of type 'V1NetworkPolicyIngressRule' (by applying it's required fields, if any) +mkV1NetworkPolicyIngressRule + :: V1NetworkPolicyIngressRule +mkV1NetworkPolicyIngressRule = + V1NetworkPolicyIngressRule + { v1NetworkPolicyIngressRuleFrom = Nothing + , v1NetworkPolicyIngressRulePorts = Nothing + } + +-- ** V1NetworkPolicyList +-- | V1NetworkPolicyList +-- NetworkPolicyList is a list of NetworkPolicy objects. +data V1NetworkPolicyList = V1NetworkPolicyList + { v1NetworkPolicyListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NetworkPolicyListItems :: !([V1NetworkPolicy]) -- ^ /Required/ "items" - items is a list of schema objects. + , v1NetworkPolicyListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NetworkPolicyListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyList +instance A.FromJSON V1NetworkPolicyList where + parseJSON = A.withObject "V1NetworkPolicyList" $ \o -> + V1NetworkPolicyList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1NetworkPolicyList +instance A.ToJSON V1NetworkPolicyList where + toJSON V1NetworkPolicyList {..} = + _omitNulls + [ "apiVersion" .= v1NetworkPolicyListApiVersion + , "items" .= v1NetworkPolicyListItems + , "kind" .= v1NetworkPolicyListKind + , "metadata" .= v1NetworkPolicyListMetadata + ] + + +-- | Construct a value of type 'V1NetworkPolicyList' (by applying it's required fields, if any) +mkV1NetworkPolicyList + :: [V1NetworkPolicy] -- ^ 'v1NetworkPolicyListItems': items is a list of schema objects. + -> V1NetworkPolicyList +mkV1NetworkPolicyList v1NetworkPolicyListItems = + V1NetworkPolicyList + { v1NetworkPolicyListApiVersion = Nothing + , v1NetworkPolicyListItems + , v1NetworkPolicyListKind = Nothing + , v1NetworkPolicyListMetadata = Nothing + } + +-- ** V1NetworkPolicyPeer +-- | V1NetworkPolicyPeer +-- NetworkPolicyPeer describes a peer to allow traffic to/from. Only certain combinations of fields are allowed +data V1NetworkPolicyPeer = V1NetworkPolicyPeer + { v1NetworkPolicyPeerIpBlock :: !(Maybe V1IPBlock) -- ^ "ipBlock" + , v1NetworkPolicyPeerNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" + , v1NetworkPolicyPeerPodSelector :: !(Maybe V1LabelSelector) -- ^ "podSelector" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyPeer +instance A.FromJSON V1NetworkPolicyPeer where + parseJSON = A.withObject "V1NetworkPolicyPeer" $ \o -> + V1NetworkPolicyPeer + <$> (o .:? "ipBlock") + <*> (o .:? "namespaceSelector") + <*> (o .:? "podSelector") + +-- | ToJSON V1NetworkPolicyPeer +instance A.ToJSON V1NetworkPolicyPeer where + toJSON V1NetworkPolicyPeer {..} = + _omitNulls + [ "ipBlock" .= v1NetworkPolicyPeerIpBlock + , "namespaceSelector" .= v1NetworkPolicyPeerNamespaceSelector + , "podSelector" .= v1NetworkPolicyPeerPodSelector + ] + + +-- | Construct a value of type 'V1NetworkPolicyPeer' (by applying it's required fields, if any) +mkV1NetworkPolicyPeer + :: V1NetworkPolicyPeer +mkV1NetworkPolicyPeer = + V1NetworkPolicyPeer + { v1NetworkPolicyPeerIpBlock = Nothing + , v1NetworkPolicyPeerNamespaceSelector = Nothing + , v1NetworkPolicyPeerPodSelector = Nothing + } + +-- ** V1NetworkPolicyPort +-- | V1NetworkPolicyPort +-- NetworkPolicyPort describes a port to allow traffic on +data V1NetworkPolicyPort = V1NetworkPolicyPort + { v1NetworkPolicyPortEndPort :: !(Maybe Int) -- ^ "endPort" - endPort indicates that the range of ports from port to endPort if set, inclusive, should be allowed by the policy. This field cannot be defined if the port field is not defined or if the port field is defined as a named (string) port. The endPort must be equal or greater than port. + , v1NetworkPolicyPortPort :: !(Maybe IntOrString) -- ^ "port" + , v1NetworkPolicyPortProtocol :: !(Maybe Text) -- ^ "protocol" - protocol represents the protocol (TCP, UDP, or SCTP) which traffic must match. If not specified, this field defaults to TCP. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyPort +instance A.FromJSON V1NetworkPolicyPort where + parseJSON = A.withObject "V1NetworkPolicyPort" $ \o -> + V1NetworkPolicyPort + <$> (o .:? "endPort") + <*> (o .:? "port") + <*> (o .:? "protocol") + +-- | ToJSON V1NetworkPolicyPort +instance A.ToJSON V1NetworkPolicyPort where + toJSON V1NetworkPolicyPort {..} = + _omitNulls + [ "endPort" .= v1NetworkPolicyPortEndPort + , "port" .= v1NetworkPolicyPortPort + , "protocol" .= v1NetworkPolicyPortProtocol + ] + + +-- | Construct a value of type 'V1NetworkPolicyPort' (by applying it's required fields, if any) +mkV1NetworkPolicyPort + :: V1NetworkPolicyPort +mkV1NetworkPolicyPort = + V1NetworkPolicyPort + { v1NetworkPolicyPortEndPort = Nothing + , v1NetworkPolicyPortPort = Nothing + , v1NetworkPolicyPortProtocol = Nothing + } + +-- ** V1NetworkPolicySpec +-- | V1NetworkPolicySpec +-- NetworkPolicySpec provides the specification of a NetworkPolicy +data V1NetworkPolicySpec = V1NetworkPolicySpec + { v1NetworkPolicySpecEgress :: !(Maybe [V1NetworkPolicyEgressRule]) -- ^ "egress" - egress is a list of egress rules to be applied to the selected pods. Outgoing traffic is allowed if there are no NetworkPolicies selecting the pod (and cluster policy otherwise allows the traffic), OR if the traffic matches at least one egress rule across all of the NetworkPolicy objects whose podSelector matches the pod. If this field is empty then this NetworkPolicy limits all outgoing traffic (and serves solely to ensure that the pods it selects are isolated by default). This field is beta-level in 1.8 + , v1NetworkPolicySpecIngress :: !(Maybe [V1NetworkPolicyIngressRule]) -- ^ "ingress" - ingress is a list of ingress rules to be applied to the selected pods. Traffic is allowed to a pod if there are no NetworkPolicies selecting the pod (and cluster policy otherwise allows the traffic), OR if the traffic source is the pod's local node, OR if the traffic matches at least one ingress rule across all of the NetworkPolicy objects whose podSelector matches the pod. If this field is empty then this NetworkPolicy does not allow any traffic (and serves solely to ensure that the pods it selects are isolated by default) + , v1NetworkPolicySpecPodSelector :: !(V1LabelSelector) -- ^ /Required/ "podSelector" + , v1NetworkPolicySpecPolicyTypes :: !(Maybe [Text]) -- ^ "policyTypes" - policyTypes is a list of rule types that the NetworkPolicy relates to. Valid options are [\"Ingress\"], [\"Egress\"], or [\"Ingress\", \"Egress\"]. If this field is not specified, it will default based on the existence of ingress or egress rules; policies that contain an egress section are assumed to affect egress, and all policies (whether or not they contain an ingress section) are assumed to affect ingress. If you want to write an egress-only policy, you must explicitly specify policyTypes [ \"Egress\" ]. Likewise, if you want to write a policy that specifies that no egress is allowed, you must specify a policyTypes value that include \"Egress\" (since such a policy would not include an egress section and would otherwise default to just [ \"Ingress\" ]). This field is beta-level in 1.8 + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicySpec +instance A.FromJSON V1NetworkPolicySpec where + parseJSON = A.withObject "V1NetworkPolicySpec" $ \o -> + V1NetworkPolicySpec + <$> (o .:? "egress") + <*> (o .:? "ingress") + <*> (o .: "podSelector") + <*> (o .:? "policyTypes") + +-- | ToJSON V1NetworkPolicySpec +instance A.ToJSON V1NetworkPolicySpec where + toJSON V1NetworkPolicySpec {..} = + _omitNulls + [ "egress" .= v1NetworkPolicySpecEgress + , "ingress" .= v1NetworkPolicySpecIngress + , "podSelector" .= v1NetworkPolicySpecPodSelector + , "policyTypes" .= v1NetworkPolicySpecPolicyTypes + ] + + +-- | Construct a value of type 'V1NetworkPolicySpec' (by applying it's required fields, if any) +mkV1NetworkPolicySpec + :: V1LabelSelector -- ^ 'v1NetworkPolicySpecPodSelector' + -> V1NetworkPolicySpec +mkV1NetworkPolicySpec v1NetworkPolicySpecPodSelector = + V1NetworkPolicySpec + { v1NetworkPolicySpecEgress = Nothing + , v1NetworkPolicySpecIngress = Nothing + , v1NetworkPolicySpecPodSelector + , v1NetworkPolicySpecPolicyTypes = Nothing + } + +-- ** V1NetworkPolicyStatus +-- | V1NetworkPolicyStatus +-- NetworkPolicyStatus describes the current state of the NetworkPolicy. +data V1NetworkPolicyStatus = V1NetworkPolicyStatus + { v1NetworkPolicyStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - conditions holds an array of metav1.Condition that describe the state of the NetworkPolicy. Current service state + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NetworkPolicyStatus +instance A.FromJSON V1NetworkPolicyStatus where + parseJSON = A.withObject "V1NetworkPolicyStatus" $ \o -> + V1NetworkPolicyStatus + <$> (o .:? "conditions") + +-- | ToJSON V1NetworkPolicyStatus +instance A.ToJSON V1NetworkPolicyStatus where + toJSON V1NetworkPolicyStatus {..} = + _omitNulls + [ "conditions" .= v1NetworkPolicyStatusConditions + ] + + +-- | Construct a value of type 'V1NetworkPolicyStatus' (by applying it's required fields, if any) +mkV1NetworkPolicyStatus + :: V1NetworkPolicyStatus +mkV1NetworkPolicyStatus = + V1NetworkPolicyStatus + { v1NetworkPolicyStatusConditions = Nothing + } + +-- ** V1Node +-- | V1Node +-- Node is a worker node in Kubernetes. Each node will have a unique identifier in the cache (i.e. in etcd). +data V1Node = V1Node + { v1NodeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NodeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NodeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1NodeSpec :: !(Maybe V1NodeSpec) -- ^ "spec" + , v1NodeStatus :: !(Maybe V1NodeStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Node +instance A.FromJSON V1Node where + parseJSON = A.withObject "V1Node" $ \o -> + V1Node + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Node +instance A.ToJSON V1Node where + toJSON V1Node {..} = + _omitNulls + [ "apiVersion" .= v1NodeApiVersion + , "kind" .= v1NodeKind + , "metadata" .= v1NodeMetadata + , "spec" .= v1NodeSpec + , "status" .= v1NodeStatus + ] + + +-- | Construct a value of type 'V1Node' (by applying it's required fields, if any) +mkV1Node + :: V1Node +mkV1Node = + V1Node + { v1NodeApiVersion = Nothing + , v1NodeKind = Nothing + , v1NodeMetadata = Nothing + , v1NodeSpec = Nothing + , v1NodeStatus = Nothing + } + +-- ** V1NodeAddress +-- | V1NodeAddress +-- NodeAddress contains information for the node's address. +data V1NodeAddress = V1NodeAddress + { v1NodeAddressAddress :: !(Text) -- ^ /Required/ "address" - The node address. + , v1NodeAddressType :: !(Text) -- ^ /Required/ "type" - Node address type, one of Hostname, ExternalIP or InternalIP. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeAddress +instance A.FromJSON V1NodeAddress where + parseJSON = A.withObject "V1NodeAddress" $ \o -> + V1NodeAddress + <$> (o .: "address") + <*> (o .: "type") + +-- | ToJSON V1NodeAddress +instance A.ToJSON V1NodeAddress where + toJSON V1NodeAddress {..} = + _omitNulls + [ "address" .= v1NodeAddressAddress + , "type" .= v1NodeAddressType + ] + + +-- | Construct a value of type 'V1NodeAddress' (by applying it's required fields, if any) +mkV1NodeAddress + :: Text -- ^ 'v1NodeAddressAddress': The node address. + -> Text -- ^ 'v1NodeAddressType': Node address type, one of Hostname, ExternalIP or InternalIP. + -> V1NodeAddress +mkV1NodeAddress v1NodeAddressAddress v1NodeAddressType = + V1NodeAddress + { v1NodeAddressAddress + , v1NodeAddressType + } + +-- ** V1NodeAffinity +-- | V1NodeAffinity +-- Node affinity is a group of node affinity scheduling rules. +data V1NodeAffinity = V1NodeAffinity + { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PreferredSchedulingTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node matches the corresponding matchExpressions; the node(s) with the highest sum are the most preferred. + , v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe V1NodeSelector) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeAffinity +instance A.FromJSON V1NodeAffinity where + parseJSON = A.withObject "V1NodeAffinity" $ \o -> + V1NodeAffinity + <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") + <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") + +-- | ToJSON V1NodeAffinity +instance A.ToJSON V1NodeAffinity where + toJSON V1NodeAffinity {..} = + _omitNulls + [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution + , "requiredDuringSchedulingIgnoredDuringExecution" .= v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution + ] + + +-- | Construct a value of type 'V1NodeAffinity' (by applying it's required fields, if any) +mkV1NodeAffinity + :: V1NodeAffinity +mkV1NodeAffinity = + V1NodeAffinity + { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing + , v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing + } + +-- ** V1NodeCondition +-- | V1NodeCondition +-- NodeCondition contains condition information for a node. +data V1NodeCondition = V1NodeCondition + { v1NodeConditionLastHeartbeatTime :: !(Maybe DateTime) -- ^ "lastHeartbeatTime" - Last time we got an update on a given condition. + , v1NodeConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transit from one status to another. + , v1NodeConditionMessage :: !(Maybe Text) -- ^ "message" - Human readable message indicating details about last transition. + , v1NodeConditionReason :: !(Maybe Text) -- ^ "reason" - (brief) reason for the condition's last transition. + , v1NodeConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1NodeConditionType :: !(Text) -- ^ /Required/ "type" - Type of node condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeCondition +instance A.FromJSON V1NodeCondition where + parseJSON = A.withObject "V1NodeCondition" $ \o -> + V1NodeCondition + <$> (o .:? "lastHeartbeatTime") + <*> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1NodeCondition +instance A.ToJSON V1NodeCondition where + toJSON V1NodeCondition {..} = + _omitNulls + [ "lastHeartbeatTime" .= v1NodeConditionLastHeartbeatTime + , "lastTransitionTime" .= v1NodeConditionLastTransitionTime + , "message" .= v1NodeConditionMessage + , "reason" .= v1NodeConditionReason + , "status" .= v1NodeConditionStatus + , "type" .= v1NodeConditionType + ] + + +-- | Construct a value of type 'V1NodeCondition' (by applying it's required fields, if any) +mkV1NodeCondition + :: Text -- ^ 'v1NodeConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1NodeConditionType': Type of node condition. + -> V1NodeCondition +mkV1NodeCondition v1NodeConditionStatus v1NodeConditionType = + V1NodeCondition + { v1NodeConditionLastHeartbeatTime = Nothing + , v1NodeConditionLastTransitionTime = Nothing + , v1NodeConditionMessage = Nothing + , v1NodeConditionReason = Nothing + , v1NodeConditionStatus + , v1NodeConditionType + } + +-- ** V1NodeConfigSource +-- | V1NodeConfigSource +-- NodeConfigSource specifies a source of node configuration. Exactly one subfield (excluding metadata) must be non-nil. This API is deprecated since 1.22 +data V1NodeConfigSource = V1NodeConfigSource + { v1NodeConfigSourceConfigMap :: !(Maybe V1ConfigMapNodeConfigSource) -- ^ "configMap" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeConfigSource +instance A.FromJSON V1NodeConfigSource where + parseJSON = A.withObject "V1NodeConfigSource" $ \o -> + V1NodeConfigSource + <$> (o .:? "configMap") + +-- | ToJSON V1NodeConfigSource +instance A.ToJSON V1NodeConfigSource where + toJSON V1NodeConfigSource {..} = + _omitNulls + [ "configMap" .= v1NodeConfigSourceConfigMap + ] + + +-- | Construct a value of type 'V1NodeConfigSource' (by applying it's required fields, if any) +mkV1NodeConfigSource + :: V1NodeConfigSource +mkV1NodeConfigSource = + V1NodeConfigSource + { v1NodeConfigSourceConfigMap = Nothing + } + +-- ** V1NodeConfigStatus +-- | V1NodeConfigStatus +-- NodeConfigStatus describes the status of the config assigned by Node.Spec.ConfigSource. +data V1NodeConfigStatus = V1NodeConfigStatus + { v1NodeConfigStatusActive :: !(Maybe V1NodeConfigSource) -- ^ "active" + , v1NodeConfigStatusAssigned :: !(Maybe V1NodeConfigSource) -- ^ "assigned" + , v1NodeConfigStatusError :: !(Maybe Text) -- ^ "error" - Error describes any problems reconciling the Spec.ConfigSource to the Active config. Errors may occur, for example, attempting to checkpoint Spec.ConfigSource to the local Assigned record, attempting to checkpoint the payload associated with Spec.ConfigSource, attempting to load or validate the Assigned config, etc. Errors may occur at different points while syncing config. Earlier errors (e.g. download or checkpointing errors) will not result in a rollback to LastKnownGood, and may resolve across Kubelet retries. Later errors (e.g. loading or validating a checkpointed config) will result in a rollback to LastKnownGood. In the latter case, it is usually possible to resolve the error by fixing the config assigned in Spec.ConfigSource. You can find additional information for debugging by searching the error message in the Kubelet log. Error is a human-readable description of the error state; machines can check whether or not Error is empty, but should not rely on the stability of the Error text across Kubelet versions. + , v1NodeConfigStatusLastKnownGood :: !(Maybe V1NodeConfigSource) -- ^ "lastKnownGood" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeConfigStatus +instance A.FromJSON V1NodeConfigStatus where + parseJSON = A.withObject "V1NodeConfigStatus" $ \o -> + V1NodeConfigStatus + <$> (o .:? "active") + <*> (o .:? "assigned") + <*> (o .:? "error") + <*> (o .:? "lastKnownGood") + +-- | ToJSON V1NodeConfigStatus +instance A.ToJSON V1NodeConfigStatus where + toJSON V1NodeConfigStatus {..} = + _omitNulls + [ "active" .= v1NodeConfigStatusActive + , "assigned" .= v1NodeConfigStatusAssigned + , "error" .= v1NodeConfigStatusError + , "lastKnownGood" .= v1NodeConfigStatusLastKnownGood + ] + + +-- | Construct a value of type 'V1NodeConfigStatus' (by applying it's required fields, if any) +mkV1NodeConfigStatus + :: V1NodeConfigStatus +mkV1NodeConfigStatus = + V1NodeConfigStatus + { v1NodeConfigStatusActive = Nothing + , v1NodeConfigStatusAssigned = Nothing + , v1NodeConfigStatusError = Nothing + , v1NodeConfigStatusLastKnownGood = Nothing + } + +-- ** V1NodeDaemonEndpoints +-- | V1NodeDaemonEndpoints +-- NodeDaemonEndpoints lists ports opened by daemons running on the Node. +data V1NodeDaemonEndpoints = V1NodeDaemonEndpoints + { v1NodeDaemonEndpointsKubeletEndpoint :: !(Maybe V1DaemonEndpoint) -- ^ "kubeletEndpoint" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeDaemonEndpoints +instance A.FromJSON V1NodeDaemonEndpoints where + parseJSON = A.withObject "V1NodeDaemonEndpoints" $ \o -> + V1NodeDaemonEndpoints + <$> (o .:? "kubeletEndpoint") + +-- | ToJSON V1NodeDaemonEndpoints +instance A.ToJSON V1NodeDaemonEndpoints where + toJSON V1NodeDaemonEndpoints {..} = + _omitNulls + [ "kubeletEndpoint" .= v1NodeDaemonEndpointsKubeletEndpoint + ] + + +-- | Construct a value of type 'V1NodeDaemonEndpoints' (by applying it's required fields, if any) +mkV1NodeDaemonEndpoints + :: V1NodeDaemonEndpoints +mkV1NodeDaemonEndpoints = + V1NodeDaemonEndpoints + { v1NodeDaemonEndpointsKubeletEndpoint = Nothing + } + +-- ** V1NodeList +-- | V1NodeList +-- NodeList is the whole list of all Nodes which have been registered with master. +data V1NodeList = V1NodeList + { v1NodeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1NodeListItems :: !([V1Node]) -- ^ /Required/ "items" - List of nodes + , v1NodeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1NodeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeList +instance A.FromJSON V1NodeList where + parseJSON = A.withObject "V1NodeList" $ \o -> + V1NodeList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1NodeList +instance A.ToJSON V1NodeList where + toJSON V1NodeList {..} = + _omitNulls + [ "apiVersion" .= v1NodeListApiVersion + , "items" .= v1NodeListItems + , "kind" .= v1NodeListKind + , "metadata" .= v1NodeListMetadata + ] + + +-- | Construct a value of type 'V1NodeList' (by applying it's required fields, if any) +mkV1NodeList + :: [V1Node] -- ^ 'v1NodeListItems': List of nodes + -> V1NodeList +mkV1NodeList v1NodeListItems = + V1NodeList + { v1NodeListApiVersion = Nothing + , v1NodeListItems + , v1NodeListKind = Nothing + , v1NodeListMetadata = Nothing + } + +-- ** V1NodeSelector +-- | V1NodeSelector +-- A node selector represents the union of the results of one or more label queries over a set of nodes; that is, it represents the OR of the selectors represented by the node selector terms. +data V1NodeSelector = V1NodeSelector + { v1NodeSelectorNodeSelectorTerms :: !([V1NodeSelectorTerm]) -- ^ /Required/ "nodeSelectorTerms" - Required. A list of node selector terms. The terms are ORed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeSelector +instance A.FromJSON V1NodeSelector where + parseJSON = A.withObject "V1NodeSelector" $ \o -> + V1NodeSelector + <$> (o .: "nodeSelectorTerms") + +-- | ToJSON V1NodeSelector +instance A.ToJSON V1NodeSelector where + toJSON V1NodeSelector {..} = + _omitNulls + [ "nodeSelectorTerms" .= v1NodeSelectorNodeSelectorTerms + ] + + +-- | Construct a value of type 'V1NodeSelector' (by applying it's required fields, if any) +mkV1NodeSelector + :: [V1NodeSelectorTerm] -- ^ 'v1NodeSelectorNodeSelectorTerms': Required. A list of node selector terms. The terms are ORed. + -> V1NodeSelector +mkV1NodeSelector v1NodeSelectorNodeSelectorTerms = + V1NodeSelector + { v1NodeSelectorNodeSelectorTerms + } + +-- ** V1NodeSelectorRequirement +-- | V1NodeSelectorRequirement +-- A node selector requirement is a selector that contains values, a key, and an operator that relates the key and values. +data V1NodeSelectorRequirement = V1NodeSelectorRequirement + { v1NodeSelectorRequirementKey :: !(Text) -- ^ /Required/ "key" - The label key that the selector applies to. + , v1NodeSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. Gt, and Lt. + , v1NodeSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - An array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. If the operator is Gt or Lt, the values array must have a single element, which will be interpreted as an integer. This array is replaced during a strategic merge patch. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeSelectorRequirement +instance A.FromJSON V1NodeSelectorRequirement where + parseJSON = A.withObject "V1NodeSelectorRequirement" $ \o -> + V1NodeSelectorRequirement + <$> (o .: "key") + <*> (o .: "operator") + <*> (o .:? "values") + +-- | ToJSON V1NodeSelectorRequirement +instance A.ToJSON V1NodeSelectorRequirement where + toJSON V1NodeSelectorRequirement {..} = + _omitNulls + [ "key" .= v1NodeSelectorRequirementKey + , "operator" .= v1NodeSelectorRequirementOperator + , "values" .= v1NodeSelectorRequirementValues + ] + + +-- | Construct a value of type 'V1NodeSelectorRequirement' (by applying it's required fields, if any) +mkV1NodeSelectorRequirement + :: Text -- ^ 'v1NodeSelectorRequirementKey': The label key that the selector applies to. + -> Text -- ^ 'v1NodeSelectorRequirementOperator': Represents a key's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. Gt, and Lt. + -> V1NodeSelectorRequirement +mkV1NodeSelectorRequirement v1NodeSelectorRequirementKey v1NodeSelectorRequirementOperator = + V1NodeSelectorRequirement + { v1NodeSelectorRequirementKey + , v1NodeSelectorRequirementOperator + , v1NodeSelectorRequirementValues = Nothing + } + +-- ** V1NodeSelectorTerm +-- | V1NodeSelectorTerm +-- A null or empty node selector term matches no objects. The requirements of them are ANDed. The TopologySelectorTerm type implements a subset of the NodeSelectorTerm. +data V1NodeSelectorTerm = V1NodeSelectorTerm + { v1NodeSelectorTermMatchExpressions :: !(Maybe [V1NodeSelectorRequirement]) -- ^ "matchExpressions" - A list of node selector requirements by node's labels. + , v1NodeSelectorTermMatchFields :: !(Maybe [V1NodeSelectorRequirement]) -- ^ "matchFields" - A list of node selector requirements by node's fields. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeSelectorTerm +instance A.FromJSON V1NodeSelectorTerm where + parseJSON = A.withObject "V1NodeSelectorTerm" $ \o -> + V1NodeSelectorTerm + <$> (o .:? "matchExpressions") + <*> (o .:? "matchFields") + +-- | ToJSON V1NodeSelectorTerm +instance A.ToJSON V1NodeSelectorTerm where + toJSON V1NodeSelectorTerm {..} = + _omitNulls + [ "matchExpressions" .= v1NodeSelectorTermMatchExpressions + , "matchFields" .= v1NodeSelectorTermMatchFields + ] + + +-- | Construct a value of type 'V1NodeSelectorTerm' (by applying it's required fields, if any) +mkV1NodeSelectorTerm + :: V1NodeSelectorTerm +mkV1NodeSelectorTerm = + V1NodeSelectorTerm + { v1NodeSelectorTermMatchExpressions = Nothing + , v1NodeSelectorTermMatchFields = Nothing + } + +-- ** V1NodeSpec +-- | V1NodeSpec +-- NodeSpec describes the attributes that a node is created with. +data V1NodeSpec = V1NodeSpec + { v1NodeSpecConfigSource :: !(Maybe V1NodeConfigSource) -- ^ "configSource" + , v1NodeSpecExternalId :: !(Maybe Text) -- ^ "externalID" - Deprecated. Not all kubelets will set this field. Remove field after 1.13. see: https://issues.k8s.io/61966 + , v1NodeSpecPodCidr :: !(Maybe Text) -- ^ "podCIDR" - PodCIDR represents the pod IP range assigned to the node. + , v1NodeSpecPodCidrs :: !(Maybe [Text]) -- ^ "podCIDRs" - podCIDRs represents the IP ranges assigned to the node for usage by Pods on that node. If this field is specified, the 0th entry must match the podCIDR field. It may contain at most 1 value for each of IPv4 and IPv6. + , v1NodeSpecProviderId :: !(Maybe Text) -- ^ "providerID" - ID of the node assigned by the cloud provider in the format: <ProviderName>://<ProviderSpecificNodeID> + , v1NodeSpecTaints :: !(Maybe [V1Taint]) -- ^ "taints" - If specified, the node's taints. + , v1NodeSpecUnschedulable :: !(Maybe Bool) -- ^ "unschedulable" - Unschedulable controls node schedulability of new pods. By default, node is schedulable. More info: https://kubernetes.io/docs/concepts/nodes/node/#manual-node-administration + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeSpec +instance A.FromJSON V1NodeSpec where + parseJSON = A.withObject "V1NodeSpec" $ \o -> + V1NodeSpec + <$> (o .:? "configSource") + <*> (o .:? "externalID") + <*> (o .:? "podCIDR") + <*> (o .:? "podCIDRs") + <*> (o .:? "providerID") + <*> (o .:? "taints") + <*> (o .:? "unschedulable") + +-- | ToJSON V1NodeSpec +instance A.ToJSON V1NodeSpec where + toJSON V1NodeSpec {..} = + _omitNulls + [ "configSource" .= v1NodeSpecConfigSource + , "externalID" .= v1NodeSpecExternalId + , "podCIDR" .= v1NodeSpecPodCidr + , "podCIDRs" .= v1NodeSpecPodCidrs + , "providerID" .= v1NodeSpecProviderId + , "taints" .= v1NodeSpecTaints + , "unschedulable" .= v1NodeSpecUnschedulable + ] + + +-- | Construct a value of type 'V1NodeSpec' (by applying it's required fields, if any) +mkV1NodeSpec + :: V1NodeSpec +mkV1NodeSpec = + V1NodeSpec + { v1NodeSpecConfigSource = Nothing + , v1NodeSpecExternalId = Nothing + , v1NodeSpecPodCidr = Nothing + , v1NodeSpecPodCidrs = Nothing + , v1NodeSpecProviderId = Nothing + , v1NodeSpecTaints = Nothing + , v1NodeSpecUnschedulable = Nothing + } + +-- ** V1NodeStatus +-- | V1NodeStatus +-- NodeStatus is information about the current status of a node. +data V1NodeStatus = V1NodeStatus + { v1NodeStatusAddresses :: !(Maybe [V1NodeAddress]) -- ^ "addresses" - List of addresses reachable to the node. Queried from cloud provider, if available. More info: https://kubernetes.io/docs/concepts/nodes/node/#addresses Note: This field is declared as mergeable, but the merge key is not sufficiently unique, which can cause data corruption when it is merged. Callers should instead use a full-replacement patch. See https://pr.k8s.io/79391 for an example. Consumers should assume that addresses can change during the lifetime of a Node. However, there are some exceptions where this may not be possible, such as Pods that inherit a Node's address in its own status or consumers of the downward API (status.hostIP). + , v1NodeStatusAllocatable :: !(Maybe (Map.Map String Quantity)) -- ^ "allocatable" - Allocatable represents the resources of a node that are available for scheduling. Defaults to Capacity. + , v1NodeStatusCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - Capacity represents the total resources of a node. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#capacity + , v1NodeStatusConditions :: !(Maybe [V1NodeCondition]) -- ^ "conditions" - Conditions is an array of current observed node conditions. More info: https://kubernetes.io/docs/concepts/nodes/node/#condition + , v1NodeStatusConfig :: !(Maybe V1NodeConfigStatus) -- ^ "config" + , v1NodeStatusDaemonEndpoints :: !(Maybe V1NodeDaemonEndpoints) -- ^ "daemonEndpoints" + , v1NodeStatusImages :: !(Maybe [V1ContainerImage]) -- ^ "images" - List of container images on this node + , v1NodeStatusNodeInfo :: !(Maybe V1NodeSystemInfo) -- ^ "nodeInfo" + , v1NodeStatusPhase :: !(Maybe Text) -- ^ "phase" - NodePhase is the recently observed lifecycle phase of the node. More info: https://kubernetes.io/docs/concepts/nodes/node/#phase The field is never populated, and now is deprecated. + , v1NodeStatusVolumesAttached :: !(Maybe [V1AttachedVolume]) -- ^ "volumesAttached" - List of volumes that are attached to the node. + , v1NodeStatusVolumesInUse :: !(Maybe [Text]) -- ^ "volumesInUse" - List of attachable volumes in use (mounted) by the node. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeStatus +instance A.FromJSON V1NodeStatus where + parseJSON = A.withObject "V1NodeStatus" $ \o -> + V1NodeStatus + <$> (o .:? "addresses") + <*> (o .:? "allocatable") + <*> (o .:? "capacity") + <*> (o .:? "conditions") + <*> (o .:? "config") + <*> (o .:? "daemonEndpoints") + <*> (o .:? "images") + <*> (o .:? "nodeInfo") + <*> (o .:? "phase") + <*> (o .:? "volumesAttached") + <*> (o .:? "volumesInUse") + +-- | ToJSON V1NodeStatus +instance A.ToJSON V1NodeStatus where + toJSON V1NodeStatus {..} = + _omitNulls + [ "addresses" .= v1NodeStatusAddresses + , "allocatable" .= v1NodeStatusAllocatable + , "capacity" .= v1NodeStatusCapacity + , "conditions" .= v1NodeStatusConditions + , "config" .= v1NodeStatusConfig + , "daemonEndpoints" .= v1NodeStatusDaemonEndpoints + , "images" .= v1NodeStatusImages + , "nodeInfo" .= v1NodeStatusNodeInfo + , "phase" .= v1NodeStatusPhase + , "volumesAttached" .= v1NodeStatusVolumesAttached + , "volumesInUse" .= v1NodeStatusVolumesInUse + ] + + +-- | Construct a value of type 'V1NodeStatus' (by applying it's required fields, if any) +mkV1NodeStatus + :: V1NodeStatus +mkV1NodeStatus = + V1NodeStatus + { v1NodeStatusAddresses = Nothing + , v1NodeStatusAllocatable = Nothing + , v1NodeStatusCapacity = Nothing + , v1NodeStatusConditions = Nothing + , v1NodeStatusConfig = Nothing + , v1NodeStatusDaemonEndpoints = Nothing + , v1NodeStatusImages = Nothing + , v1NodeStatusNodeInfo = Nothing + , v1NodeStatusPhase = Nothing + , v1NodeStatusVolumesAttached = Nothing + , v1NodeStatusVolumesInUse = Nothing + } + +-- ** V1NodeSystemInfo +-- | V1NodeSystemInfo +-- NodeSystemInfo is a set of ids/uuids to uniquely identify the node. +data V1NodeSystemInfo = V1NodeSystemInfo + { v1NodeSystemInfoArchitecture :: !(Text) -- ^ /Required/ "architecture" - The Architecture reported by the node + , v1NodeSystemInfoBootId :: !(Text) -- ^ /Required/ "bootID" - Boot ID reported by the node. + , v1NodeSystemInfoContainerRuntimeVersion :: !(Text) -- ^ /Required/ "containerRuntimeVersion" - ContainerRuntime Version reported by the node through runtime remote API (e.g. containerd://1.4.2). + , v1NodeSystemInfoKernelVersion :: !(Text) -- ^ /Required/ "kernelVersion" - Kernel Version reported by the node from 'uname -r' (e.g. 3.16.0-0.bpo.4-amd64). + , v1NodeSystemInfoKubeProxyVersion :: !(Text) -- ^ /Required/ "kubeProxyVersion" - KubeProxy Version reported by the node. + , v1NodeSystemInfoKubeletVersion :: !(Text) -- ^ /Required/ "kubeletVersion" - Kubelet Version reported by the node. + , v1NodeSystemInfoMachineId :: !(Text) -- ^ /Required/ "machineID" - MachineID reported by the node. For unique machine identification in the cluster this field is preferred. Learn more from man(5) machine-id: http://man7.org/linux/man-pages/man5/machine-id.5.html + , v1NodeSystemInfoOperatingSystem :: !(Text) -- ^ /Required/ "operatingSystem" - The Operating System reported by the node + , v1NodeSystemInfoOsImage :: !(Text) -- ^ /Required/ "osImage" - OS Image reported by the node from /etc/os-release (e.g. Debian GNU/Linux 7 (wheezy)). + , v1NodeSystemInfoSystemUuid :: !(Text) -- ^ /Required/ "systemUUID" - SystemUUID reported by the node. For unique machine identification MachineID is preferred. This field is specific to Red Hat hosts https://access.redhat.com/documentation/en-us/red_hat_subscription_management/1/html/rhsm/uuid + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NodeSystemInfo +instance A.FromJSON V1NodeSystemInfo where + parseJSON = A.withObject "V1NodeSystemInfo" $ \o -> + V1NodeSystemInfo + <$> (o .: "architecture") + <*> (o .: "bootID") + <*> (o .: "containerRuntimeVersion") + <*> (o .: "kernelVersion") + <*> (o .: "kubeProxyVersion") + <*> (o .: "kubeletVersion") + <*> (o .: "machineID") + <*> (o .: "operatingSystem") + <*> (o .: "osImage") + <*> (o .: "systemUUID") + +-- | ToJSON V1NodeSystemInfo +instance A.ToJSON V1NodeSystemInfo where + toJSON V1NodeSystemInfo {..} = + _omitNulls + [ "architecture" .= v1NodeSystemInfoArchitecture + , "bootID" .= v1NodeSystemInfoBootId + , "containerRuntimeVersion" .= v1NodeSystemInfoContainerRuntimeVersion + , "kernelVersion" .= v1NodeSystemInfoKernelVersion + , "kubeProxyVersion" .= v1NodeSystemInfoKubeProxyVersion + , "kubeletVersion" .= v1NodeSystemInfoKubeletVersion + , "machineID" .= v1NodeSystemInfoMachineId + , "operatingSystem" .= v1NodeSystemInfoOperatingSystem + , "osImage" .= v1NodeSystemInfoOsImage + , "systemUUID" .= v1NodeSystemInfoSystemUuid + ] + + +-- | Construct a value of type 'V1NodeSystemInfo' (by applying it's required fields, if any) +mkV1NodeSystemInfo + :: Text -- ^ 'v1NodeSystemInfoArchitecture': The Architecture reported by the node + -> Text -- ^ 'v1NodeSystemInfoBootId': Boot ID reported by the node. + -> Text -- ^ 'v1NodeSystemInfoContainerRuntimeVersion': ContainerRuntime Version reported by the node through runtime remote API (e.g. containerd://1.4.2). + -> Text -- ^ 'v1NodeSystemInfoKernelVersion': Kernel Version reported by the node from 'uname -r' (e.g. 3.16.0-0.bpo.4-amd64). + -> Text -- ^ 'v1NodeSystemInfoKubeProxyVersion': KubeProxy Version reported by the node. + -> Text -- ^ 'v1NodeSystemInfoKubeletVersion': Kubelet Version reported by the node. + -> Text -- ^ 'v1NodeSystemInfoMachineId': MachineID reported by the node. For unique machine identification in the cluster this field is preferred. Learn more from man(5) machine-id: http://man7.org/linux/man-pages/man5/machine-id.5.html + -> Text -- ^ 'v1NodeSystemInfoOperatingSystem': The Operating System reported by the node + -> Text -- ^ 'v1NodeSystemInfoOsImage': OS Image reported by the node from /etc/os-release (e.g. Debian GNU/Linux 7 (wheezy)). + -> Text -- ^ 'v1NodeSystemInfoSystemUuid': SystemUUID reported by the node. For unique machine identification MachineID is preferred. This field is specific to Red Hat hosts https://access.redhat.com/documentation/en-us/red_hat_subscription_management/1/html/rhsm/uuid + -> V1NodeSystemInfo +mkV1NodeSystemInfo v1NodeSystemInfoArchitecture v1NodeSystemInfoBootId v1NodeSystemInfoContainerRuntimeVersion v1NodeSystemInfoKernelVersion v1NodeSystemInfoKubeProxyVersion v1NodeSystemInfoKubeletVersion v1NodeSystemInfoMachineId v1NodeSystemInfoOperatingSystem v1NodeSystemInfoOsImage v1NodeSystemInfoSystemUuid = + V1NodeSystemInfo + { v1NodeSystemInfoArchitecture + , v1NodeSystemInfoBootId + , v1NodeSystemInfoContainerRuntimeVersion + , v1NodeSystemInfoKernelVersion + , v1NodeSystemInfoKubeProxyVersion + , v1NodeSystemInfoKubeletVersion + , v1NodeSystemInfoMachineId + , v1NodeSystemInfoOperatingSystem + , v1NodeSystemInfoOsImage + , v1NodeSystemInfoSystemUuid + } + +-- ** V1NonResourceAttributes +-- | V1NonResourceAttributes +-- NonResourceAttributes includes the authorization attributes available for non-resource requests to the Authorizer interface +data V1NonResourceAttributes = V1NonResourceAttributes + { v1NonResourceAttributesPath :: !(Maybe Text) -- ^ "path" - Path is the URL path of the request + , v1NonResourceAttributesVerb :: !(Maybe Text) -- ^ "verb" - Verb is the standard HTTP verb + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NonResourceAttributes +instance A.FromJSON V1NonResourceAttributes where + parseJSON = A.withObject "V1NonResourceAttributes" $ \o -> + V1NonResourceAttributes + <$> (o .:? "path") + <*> (o .:? "verb") + +-- | ToJSON V1NonResourceAttributes +instance A.ToJSON V1NonResourceAttributes where + toJSON V1NonResourceAttributes {..} = + _omitNulls + [ "path" .= v1NonResourceAttributesPath + , "verb" .= v1NonResourceAttributesVerb + ] + + +-- | Construct a value of type 'V1NonResourceAttributes' (by applying it's required fields, if any) +mkV1NonResourceAttributes + :: V1NonResourceAttributes +mkV1NonResourceAttributes = + V1NonResourceAttributes + { v1NonResourceAttributesPath = Nothing + , v1NonResourceAttributesVerb = Nothing + } + +-- ** V1NonResourceRule +-- | V1NonResourceRule +-- NonResourceRule holds information that describes a rule for the non-resource +data V1NonResourceRule = V1NonResourceRule + { v1NonResourceRuleNonResourceUrls :: !(Maybe [Text]) -- ^ "nonResourceURLs" - NonResourceURLs is a set of partial urls that a user should have access to. *s are allowed, but only as the full, final step in the path. \"*\" means all. + , v1NonResourceRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verb is a list of kubernetes non-resource API verbs, like: get, post, put, delete, patch, head, options. \"*\" means all. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1NonResourceRule +instance A.FromJSON V1NonResourceRule where + parseJSON = A.withObject "V1NonResourceRule" $ \o -> + V1NonResourceRule + <$> (o .:? "nonResourceURLs") + <*> (o .: "verbs") + +-- | ToJSON V1NonResourceRule +instance A.ToJSON V1NonResourceRule where + toJSON V1NonResourceRule {..} = + _omitNulls + [ "nonResourceURLs" .= v1NonResourceRuleNonResourceUrls + , "verbs" .= v1NonResourceRuleVerbs + ] + + +-- | Construct a value of type 'V1NonResourceRule' (by applying it's required fields, if any) +mkV1NonResourceRule + :: [Text] -- ^ 'v1NonResourceRuleVerbs': Verb is a list of kubernetes non-resource API verbs, like: get, post, put, delete, patch, head, options. \"*\" means all. + -> V1NonResourceRule +mkV1NonResourceRule v1NonResourceRuleVerbs = + V1NonResourceRule + { v1NonResourceRuleNonResourceUrls = Nothing + , v1NonResourceRuleVerbs + } + +-- ** V1ObjectFieldSelector +-- | V1ObjectFieldSelector +-- ObjectFieldSelector selects an APIVersioned field of an object. +data V1ObjectFieldSelector = V1ObjectFieldSelector + { v1ObjectFieldSelectorApiVersion :: !(Maybe Text) -- ^ "apiVersion" - Version of the schema the FieldPath is written in terms of, defaults to \"v1\". + , v1ObjectFieldSelectorFieldPath :: !(Text) -- ^ /Required/ "fieldPath" - Path of the field to select in the specified API version. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ObjectFieldSelector +instance A.FromJSON V1ObjectFieldSelector where + parseJSON = A.withObject "V1ObjectFieldSelector" $ \o -> + V1ObjectFieldSelector + <$> (o .:? "apiVersion") + <*> (o .: "fieldPath") + +-- | ToJSON V1ObjectFieldSelector +instance A.ToJSON V1ObjectFieldSelector where + toJSON V1ObjectFieldSelector {..} = + _omitNulls + [ "apiVersion" .= v1ObjectFieldSelectorApiVersion + , "fieldPath" .= v1ObjectFieldSelectorFieldPath + ] + + +-- | Construct a value of type 'V1ObjectFieldSelector' (by applying it's required fields, if any) +mkV1ObjectFieldSelector + :: Text -- ^ 'v1ObjectFieldSelectorFieldPath': Path of the field to select in the specified API version. + -> V1ObjectFieldSelector +mkV1ObjectFieldSelector v1ObjectFieldSelectorFieldPath = + V1ObjectFieldSelector + { v1ObjectFieldSelectorApiVersion = Nothing + , v1ObjectFieldSelectorFieldPath + } + +-- ** V1ObjectMeta +-- | V1ObjectMeta +-- ObjectMeta is metadata that all persisted resources must have, which includes all objects users must create. +data V1ObjectMeta = V1ObjectMeta + { v1ObjectMetaAnnotations :: !(Maybe (Map.Map String Text)) -- ^ "annotations" - Annotations is an unstructured key value map stored with a resource that may be set by external tools to store and retrieve arbitrary metadata. They are not queryable and should be preserved when modifying objects. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/annotations + , v1ObjectMetaCreationTimestamp :: !(Maybe DateTime) -- ^ "creationTimestamp" - CreationTimestamp is a timestamp representing the server time when this object was created. It is not guaranteed to be set in happens-before order across separate operations. Clients may not set this value. It is represented in RFC3339 form and is in UTC. Populated by the system. Read-only. Null for lists. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#metadata + , v1ObjectMetaDeletionGracePeriodSeconds :: !(Maybe Integer) -- ^ "deletionGracePeriodSeconds" - Number of seconds allowed for this object to gracefully terminate before it will be removed from the system. Only set when deletionTimestamp is also set. May only be shortened. Read-only. + , v1ObjectMetaDeletionTimestamp :: !(Maybe DateTime) -- ^ "deletionTimestamp" - DeletionTimestamp is RFC 3339 date and time at which this resource will be deleted. This field is set by the server when a graceful deletion is requested by the user, and is not directly settable by a client. The resource is expected to be deleted (no longer visible from resource lists, and not reachable by name) after the time in this field, once the finalizers list is empty. As long as the finalizers list contains items, deletion is blocked. Once the deletionTimestamp is set, this value may not be unset or be set further into the future, although it may be shortened or the resource may be deleted prior to this time. For example, a user may request that a pod is deleted in 30 seconds. The Kubelet will react by sending a graceful termination signal to the containers in the pod. After that 30 seconds, the Kubelet will send a hard termination signal (SIGKILL) to the container and after cleanup, remove the pod from the API. In the presence of network partitions, this object may still exist after this timestamp, until an administrator or automated process can determine the resource is fully terminated. If not set, graceful deletion of the object has not been requested. Populated by the system when a graceful deletion is requested. Read-only. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#metadata + , v1ObjectMetaFinalizers :: !(Maybe [Text]) -- ^ "finalizers" - Must be empty before the object is deleted from the registry. Each entry is an identifier for the responsible component that will remove the entry from the list. If the deletionTimestamp of the object is non-nil, entries in this list can only be removed. Finalizers may be processed and removed in any order. Order is NOT enforced because it introduces significant risk of stuck finalizers. finalizers is a shared field, any actor with permission can reorder it. If the finalizer list is processed in order, then this can lead to a situation in which the component responsible for the first finalizer in the list is waiting for a signal (field value, external system, or other) produced by a component responsible for a finalizer later in the list, resulting in a deadlock. Without enforced ordering finalizers are free to order amongst themselves and are not vulnerable to ordering changes in the list. + , v1ObjectMetaGenerateName :: !(Maybe Text) -- ^ "generateName" - GenerateName is an optional prefix, used by the server, to generate a unique name ONLY IF the Name field has not been provided. If this field is used, the name returned to the client will be different than the name passed. This value will also be combined with a unique suffix. The provided value has the same validation rules as the Name field, and may be truncated by the length of the suffix required to make the value unique on the server. If this field is specified and the generated name exists, the server will return a 409. Applied only if Name is not specified. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#idempotency + , v1ObjectMetaGeneration :: !(Maybe Integer) -- ^ "generation" - A sequence number representing a specific generation of the desired state. Populated by the system. Read-only. + , v1ObjectMetaLabels :: !(Maybe (Map.Map String Text)) -- ^ "labels" - Map of string keys and values that can be used to organize and categorize (scope and select) objects. May match selectors of replication controllers and services. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/labels + , v1ObjectMetaManagedFields :: !(Maybe [V1ManagedFieldsEntry]) -- ^ "managedFields" - ManagedFields maps workflow-id and version to the set of fields that are managed by that workflow. This is mostly for internal housekeeping, and users typically shouldn't need to set or understand this field. A workflow can be the user's name, a controller's name, or the name of a specific apply path like \"ci-cd\". The set of fields is always in the version that the workflow used when modifying the object. + , v1ObjectMetaName :: !(Maybe Text) -- ^ "name" - Name must be unique within a namespace. Is required when creating resources, although some resources may allow a client to request the generation of an appropriate name automatically. Name is primarily intended for creation idempotence and configuration definition. Cannot be updated. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#names + , v1ObjectMetaNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace defines the space within which each name must be unique. An empty namespace is equivalent to the \"default\" namespace, but \"default\" is the canonical representation. Not all objects are required to be scoped to a namespace - the value of this field for those objects will be empty. Must be a DNS_LABEL. Cannot be updated. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces + , v1ObjectMetaOwnerReferences :: !(Maybe [V1OwnerReference]) -- ^ "ownerReferences" - List of objects depended by this object. If ALL objects in the list have been deleted, this object will be garbage collected. If this object is managed by a controller, then an entry in this list will point to this controller, with the controller field set to true. There cannot be more than one managing controller. + , v1ObjectMetaResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - An opaque value that represents the internal version of this object that can be used by clients to determine when objects have changed. May be used for optimistic concurrency, change detection, and the watch operation on a resource or set of resources. Clients must treat these values as opaque and passed unmodified back to the server. They may only be valid for a particular resource or set of resources. Populated by the system. Read-only. Value must be treated as opaque by clients and . More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency + , v1ObjectMetaSelfLink :: !(Maybe Text) -- ^ "selfLink" - Deprecated: selfLink is a legacy read-only field that is no longer populated by the system. + , v1ObjectMetaUid :: !(Maybe Text) -- ^ "uid" - UID is the unique in time and space value for this object. It is typically generated by the server on successful creation of a resource and is not allowed to change on PUT operations. Populated by the system. Read-only. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#uids + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ObjectMeta +instance A.FromJSON V1ObjectMeta where + parseJSON = A.withObject "V1ObjectMeta" $ \o -> + V1ObjectMeta + <$> (o .:? "annotations") + <*> (o .:? "creationTimestamp") + <*> (o .:? "deletionGracePeriodSeconds") + <*> (o .:? "deletionTimestamp") + <*> (o .:? "finalizers") + <*> (o .:? "generateName") + <*> (o .:? "generation") + <*> (o .:? "labels") + <*> (o .:? "managedFields") + <*> (o .:? "name") + <*> (o .:? "namespace") + <*> (o .:? "ownerReferences") + <*> (o .:? "resourceVersion") + <*> (o .:? "selfLink") + <*> (o .:? "uid") + +-- | ToJSON V1ObjectMeta +instance A.ToJSON V1ObjectMeta where + toJSON V1ObjectMeta {..} = + _omitNulls + [ "annotations" .= v1ObjectMetaAnnotations + , "creationTimestamp" .= v1ObjectMetaCreationTimestamp + , "deletionGracePeriodSeconds" .= v1ObjectMetaDeletionGracePeriodSeconds + , "deletionTimestamp" .= v1ObjectMetaDeletionTimestamp + , "finalizers" .= v1ObjectMetaFinalizers + , "generateName" .= v1ObjectMetaGenerateName + , "generation" .= v1ObjectMetaGeneration + , "labels" .= v1ObjectMetaLabels + , "managedFields" .= v1ObjectMetaManagedFields + , "name" .= v1ObjectMetaName + , "namespace" .= v1ObjectMetaNamespace + , "ownerReferences" .= v1ObjectMetaOwnerReferences + , "resourceVersion" .= v1ObjectMetaResourceVersion + , "selfLink" .= v1ObjectMetaSelfLink + , "uid" .= v1ObjectMetaUid + ] + + +-- | Construct a value of type 'V1ObjectMeta' (by applying it's required fields, if any) +mkV1ObjectMeta + :: V1ObjectMeta +mkV1ObjectMeta = + V1ObjectMeta + { v1ObjectMetaAnnotations = Nothing + , v1ObjectMetaCreationTimestamp = Nothing + , v1ObjectMetaDeletionGracePeriodSeconds = Nothing + , v1ObjectMetaDeletionTimestamp = Nothing + , v1ObjectMetaFinalizers = Nothing + , v1ObjectMetaGenerateName = Nothing + , v1ObjectMetaGeneration = Nothing + , v1ObjectMetaLabels = Nothing + , v1ObjectMetaManagedFields = Nothing + , v1ObjectMetaName = Nothing + , v1ObjectMetaNamespace = Nothing + , v1ObjectMetaOwnerReferences = Nothing + , v1ObjectMetaResourceVersion = Nothing + , v1ObjectMetaSelfLink = Nothing + , v1ObjectMetaUid = Nothing + } + +-- ** V1ObjectReference +-- | V1ObjectReference +-- ObjectReference contains enough information to let you inspect or modify the referred object. +data V1ObjectReference = V1ObjectReference + { v1ObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - API version of the referent. + , v1ObjectReferenceFieldPath :: !(Maybe Text) -- ^ "fieldPath" - If referring to a piece of an object instead of an entire object, this string should contain a valid JSON/Go field access statement, such as desiredState.manifest.containers[2]. For example, if the object reference is to a container within a pod, this would take on a value like: \"spec.containers{name}\" (where \"name\" refers to the name of the container that triggered the event) or if no container name is specified \"spec.containers[2]\" (container with index 2 in this pod). This syntax is chosen only to have some well-defined way of referencing a part of an object. + , v1ObjectReferenceKind :: !(Maybe Text) -- ^ "kind" - Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ObjectReferenceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1ObjectReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/namespaces/ + , v1ObjectReferenceResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - Specific resourceVersion to which this reference is made, if any. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#concurrency-control-and-consistency + , v1ObjectReferenceUid :: !(Maybe Text) -- ^ "uid" - UID of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#uids + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ObjectReference +instance A.FromJSON V1ObjectReference where + parseJSON = A.withObject "V1ObjectReference" $ \o -> + V1ObjectReference + <$> (o .:? "apiVersion") + <*> (o .:? "fieldPath") + <*> (o .:? "kind") + <*> (o .:? "name") + <*> (o .:? "namespace") + <*> (o .:? "resourceVersion") + <*> (o .:? "uid") + +-- | ToJSON V1ObjectReference +instance A.ToJSON V1ObjectReference where + toJSON V1ObjectReference {..} = + _omitNulls + [ "apiVersion" .= v1ObjectReferenceApiVersion + , "fieldPath" .= v1ObjectReferenceFieldPath + , "kind" .= v1ObjectReferenceKind + , "name" .= v1ObjectReferenceName + , "namespace" .= v1ObjectReferenceNamespace + , "resourceVersion" .= v1ObjectReferenceResourceVersion + , "uid" .= v1ObjectReferenceUid + ] + + +-- | Construct a value of type 'V1ObjectReference' (by applying it's required fields, if any) +mkV1ObjectReference + :: V1ObjectReference +mkV1ObjectReference = + V1ObjectReference + { v1ObjectReferenceApiVersion = Nothing + , v1ObjectReferenceFieldPath = Nothing + , v1ObjectReferenceKind = Nothing + , v1ObjectReferenceName = Nothing + , v1ObjectReferenceNamespace = Nothing + , v1ObjectReferenceResourceVersion = Nothing + , v1ObjectReferenceUid = Nothing + } + +-- ** V1Overhead +-- | V1Overhead +-- Overhead structure represents the resource overhead associated with running a pod. +data V1Overhead = V1Overhead + { v1OverheadPodFixed :: !(Maybe (Map.Map String Quantity)) -- ^ "podFixed" - podFixed represents the fixed resource overhead associated with running a pod. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Overhead +instance A.FromJSON V1Overhead where + parseJSON = A.withObject "V1Overhead" $ \o -> + V1Overhead + <$> (o .:? "podFixed") + +-- | ToJSON V1Overhead +instance A.ToJSON V1Overhead where + toJSON V1Overhead {..} = + _omitNulls + [ "podFixed" .= v1OverheadPodFixed + ] + + +-- | Construct a value of type 'V1Overhead' (by applying it's required fields, if any) +mkV1Overhead + :: V1Overhead +mkV1Overhead = + V1Overhead + { v1OverheadPodFixed = Nothing + } + +-- ** V1OwnerReference +-- | V1OwnerReference +-- OwnerReference contains enough information to let you identify an owning object. An owning object must be in the same namespace as the dependent, or be cluster-scoped, so there is no namespace field. +data V1OwnerReference = V1OwnerReference + { v1OwnerReferenceApiVersion :: !(Text) -- ^ /Required/ "apiVersion" - API version of the referent. + , v1OwnerReferenceBlockOwnerDeletion :: !(Maybe Bool) -- ^ "blockOwnerDeletion" - If true, AND if the owner has the \"foregroundDeletion\" finalizer, then the owner cannot be deleted from the key-value store until this reference is removed. See https://kubernetes.io/docs/concepts/architecture/garbage-collection/#foreground-deletion for how the garbage collector interacts with this field and enforces the foreground deletion. Defaults to false. To set this field, a user needs \"delete\" permission of the owner, otherwise 422 (Unprocessable Entity) will be returned. + , v1OwnerReferenceController :: !(Maybe Bool) -- ^ "controller" - If true, this reference points to the managing controller. + , v1OwnerReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1OwnerReferenceName :: !(Text) -- ^ /Required/ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#names + , v1OwnerReferenceUid :: !(Text) -- ^ /Required/ "uid" - UID of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#uids + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1OwnerReference +instance A.FromJSON V1OwnerReference where + parseJSON = A.withObject "V1OwnerReference" $ \o -> + V1OwnerReference + <$> (o .: "apiVersion") + <*> (o .:? "blockOwnerDeletion") + <*> (o .:? "controller") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .: "uid") + +-- | ToJSON V1OwnerReference +instance A.ToJSON V1OwnerReference where + toJSON V1OwnerReference {..} = + _omitNulls + [ "apiVersion" .= v1OwnerReferenceApiVersion + , "blockOwnerDeletion" .= v1OwnerReferenceBlockOwnerDeletion + , "controller" .= v1OwnerReferenceController + , "kind" .= v1OwnerReferenceKind + , "name" .= v1OwnerReferenceName + , "uid" .= v1OwnerReferenceUid + ] + + +-- | Construct a value of type 'V1OwnerReference' (by applying it's required fields, if any) +mkV1OwnerReference + :: Text -- ^ 'v1OwnerReferenceApiVersion': API version of the referent. + -> Text -- ^ 'v1OwnerReferenceKind': Kind of the referent. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + -> Text -- ^ 'v1OwnerReferenceName': Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#names + -> Text -- ^ 'v1OwnerReferenceUid': UID of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#uids + -> V1OwnerReference +mkV1OwnerReference v1OwnerReferenceApiVersion v1OwnerReferenceKind v1OwnerReferenceName v1OwnerReferenceUid = + V1OwnerReference + { v1OwnerReferenceApiVersion + , v1OwnerReferenceBlockOwnerDeletion = Nothing + , v1OwnerReferenceController = Nothing + , v1OwnerReferenceKind + , v1OwnerReferenceName + , v1OwnerReferenceUid + } + +-- ** V1PersistentVolume +-- | V1PersistentVolume +-- PersistentVolume (PV) is a storage resource provisioned by an administrator. It is analogous to a node. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes +data V1PersistentVolume = V1PersistentVolume + { v1PersistentVolumeApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PersistentVolumeKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PersistentVolumeMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PersistentVolumeSpec :: !(Maybe V1PersistentVolumeSpec) -- ^ "spec" + , v1PersistentVolumeStatus :: !(Maybe V1PersistentVolumeStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolume +instance A.FromJSON V1PersistentVolume where + parseJSON = A.withObject "V1PersistentVolume" $ \o -> + V1PersistentVolume + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1PersistentVolume +instance A.ToJSON V1PersistentVolume where + toJSON V1PersistentVolume {..} = + _omitNulls + [ "apiVersion" .= v1PersistentVolumeApiVersion + , "kind" .= v1PersistentVolumeKind + , "metadata" .= v1PersistentVolumeMetadata + , "spec" .= v1PersistentVolumeSpec + , "status" .= v1PersistentVolumeStatus + ] + + +-- | Construct a value of type 'V1PersistentVolume' (by applying it's required fields, if any) +mkV1PersistentVolume + :: V1PersistentVolume +mkV1PersistentVolume = + V1PersistentVolume + { v1PersistentVolumeApiVersion = Nothing + , v1PersistentVolumeKind = Nothing + , v1PersistentVolumeMetadata = Nothing + , v1PersistentVolumeSpec = Nothing + , v1PersistentVolumeStatus = Nothing + } + +-- ** V1PersistentVolumeClaim +-- | V1PersistentVolumeClaim +-- PersistentVolumeClaim is a user's request for and claim to a persistent volume +data V1PersistentVolumeClaim = V1PersistentVolumeClaim + { v1PersistentVolumeClaimApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PersistentVolumeClaimKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PersistentVolumeClaimMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PersistentVolumeClaimSpec :: !(Maybe V1PersistentVolumeClaimSpec) -- ^ "spec" + , v1PersistentVolumeClaimStatus :: !(Maybe V1PersistentVolumeClaimStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaim +instance A.FromJSON V1PersistentVolumeClaim where + parseJSON = A.withObject "V1PersistentVolumeClaim" $ \o -> + V1PersistentVolumeClaim + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1PersistentVolumeClaim +instance A.ToJSON V1PersistentVolumeClaim where + toJSON V1PersistentVolumeClaim {..} = + _omitNulls + [ "apiVersion" .= v1PersistentVolumeClaimApiVersion + , "kind" .= v1PersistentVolumeClaimKind + , "metadata" .= v1PersistentVolumeClaimMetadata + , "spec" .= v1PersistentVolumeClaimSpec + , "status" .= v1PersistentVolumeClaimStatus + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaim' (by applying it's required fields, if any) +mkV1PersistentVolumeClaim + :: V1PersistentVolumeClaim +mkV1PersistentVolumeClaim = + V1PersistentVolumeClaim + { v1PersistentVolumeClaimApiVersion = Nothing + , v1PersistentVolumeClaimKind = Nothing + , v1PersistentVolumeClaimMetadata = Nothing + , v1PersistentVolumeClaimSpec = Nothing + , v1PersistentVolumeClaimStatus = Nothing + } + +-- ** V1PersistentVolumeClaimCondition +-- | V1PersistentVolumeClaimCondition +-- PersistentVolumeClaimCondition contains details about state of pvc +data V1PersistentVolumeClaimCondition = V1PersistentVolumeClaimCondition + { v1PersistentVolumeClaimConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - lastProbeTime is the time we probed the condition. + , v1PersistentVolumeClaimConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the time the condition transitioned from one status to another. + , v1PersistentVolumeClaimConditionMessage :: !(Maybe Text) -- ^ "message" - message is the human-readable message indicating details about last transition. + , v1PersistentVolumeClaimConditionReason :: !(Maybe Text) -- ^ "reason" - reason is a unique, this should be a short, machine understandable string that gives the reason for condition's last transition. If it reports \"ResizeStarted\" that means the underlying persistent volume is being resized. + , v1PersistentVolumeClaimConditionStatus :: !(Text) -- ^ /Required/ "status" + , v1PersistentVolumeClaimConditionType :: !(Text) -- ^ /Required/ "type" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimCondition +instance A.FromJSON V1PersistentVolumeClaimCondition where + parseJSON = A.withObject "V1PersistentVolumeClaimCondition" $ \o -> + V1PersistentVolumeClaimCondition + <$> (o .:? "lastProbeTime") + <*> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1PersistentVolumeClaimCondition +instance A.ToJSON V1PersistentVolumeClaimCondition where + toJSON V1PersistentVolumeClaimCondition {..} = + _omitNulls + [ "lastProbeTime" .= v1PersistentVolumeClaimConditionLastProbeTime + , "lastTransitionTime" .= v1PersistentVolumeClaimConditionLastTransitionTime + , "message" .= v1PersistentVolumeClaimConditionMessage + , "reason" .= v1PersistentVolumeClaimConditionReason + , "status" .= v1PersistentVolumeClaimConditionStatus + , "type" .= v1PersistentVolumeClaimConditionType + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimCondition' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimCondition + :: Text -- ^ 'v1PersistentVolumeClaimConditionStatus' + -> Text -- ^ 'v1PersistentVolumeClaimConditionType' + -> V1PersistentVolumeClaimCondition +mkV1PersistentVolumeClaimCondition v1PersistentVolumeClaimConditionStatus v1PersistentVolumeClaimConditionType = + V1PersistentVolumeClaimCondition + { v1PersistentVolumeClaimConditionLastProbeTime = Nothing + , v1PersistentVolumeClaimConditionLastTransitionTime = Nothing + , v1PersistentVolumeClaimConditionMessage = Nothing + , v1PersistentVolumeClaimConditionReason = Nothing + , v1PersistentVolumeClaimConditionStatus + , v1PersistentVolumeClaimConditionType + } + +-- ** V1PersistentVolumeClaimList +-- | V1PersistentVolumeClaimList +-- PersistentVolumeClaimList is a list of PersistentVolumeClaim items. +data V1PersistentVolumeClaimList = V1PersistentVolumeClaimList + { v1PersistentVolumeClaimListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PersistentVolumeClaimListItems :: !([V1PersistentVolumeClaim]) -- ^ /Required/ "items" - items is a list of persistent volume claims. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims + , v1PersistentVolumeClaimListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PersistentVolumeClaimListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimList +instance A.FromJSON V1PersistentVolumeClaimList where + parseJSON = A.withObject "V1PersistentVolumeClaimList" $ \o -> + V1PersistentVolumeClaimList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PersistentVolumeClaimList +instance A.ToJSON V1PersistentVolumeClaimList where + toJSON V1PersistentVolumeClaimList {..} = + _omitNulls + [ "apiVersion" .= v1PersistentVolumeClaimListApiVersion + , "items" .= v1PersistentVolumeClaimListItems + , "kind" .= v1PersistentVolumeClaimListKind + , "metadata" .= v1PersistentVolumeClaimListMetadata + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimList' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimList + :: [V1PersistentVolumeClaim] -- ^ 'v1PersistentVolumeClaimListItems': items is a list of persistent volume claims. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims + -> V1PersistentVolumeClaimList +mkV1PersistentVolumeClaimList v1PersistentVolumeClaimListItems = + V1PersistentVolumeClaimList + { v1PersistentVolumeClaimListApiVersion = Nothing + , v1PersistentVolumeClaimListItems + , v1PersistentVolumeClaimListKind = Nothing + , v1PersistentVolumeClaimListMetadata = Nothing + } + +-- ** V1PersistentVolumeClaimSpec +-- | V1PersistentVolumeClaimSpec +-- PersistentVolumeClaimSpec describes the common attributes of storage devices and allows a Source for provider-specific attributes +data V1PersistentVolumeClaimSpec = V1PersistentVolumeClaimSpec + { v1PersistentVolumeClaimSpecAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains the desired access modes the volume should have. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes-1 + , v1PersistentVolumeClaimSpecDataSource :: !(Maybe V1TypedLocalObjectReference) -- ^ "dataSource" + , v1PersistentVolumeClaimSpecDataSourceRef :: !(Maybe V1TypedObjectReference) -- ^ "dataSourceRef" + , v1PersistentVolumeClaimSpecResources :: !(Maybe V1ResourceRequirements) -- ^ "resources" + , v1PersistentVolumeClaimSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" + , v1PersistentVolumeClaimSpecStorageClassName :: !(Maybe Text) -- ^ "storageClassName" - storageClassName is the name of the StorageClass required by the claim. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#class-1 + , v1PersistentVolumeClaimSpecVolumeMode :: !(Maybe Text) -- ^ "volumeMode" - volumeMode defines what type of volume is required by the claim. Value of Filesystem is implied when not included in claim spec. + , v1PersistentVolumeClaimSpecVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the binding reference to the PersistentVolume backing this claim. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimSpec +instance A.FromJSON V1PersistentVolumeClaimSpec where + parseJSON = A.withObject "V1PersistentVolumeClaimSpec" $ \o -> + V1PersistentVolumeClaimSpec + <$> (o .:? "accessModes") + <*> (o .:? "dataSource") + <*> (o .:? "dataSourceRef") + <*> (o .:? "resources") + <*> (o .:? "selector") + <*> (o .:? "storageClassName") + <*> (o .:? "volumeMode") + <*> (o .:? "volumeName") + +-- | ToJSON V1PersistentVolumeClaimSpec +instance A.ToJSON V1PersistentVolumeClaimSpec where + toJSON V1PersistentVolumeClaimSpec {..} = + _omitNulls + [ "accessModes" .= v1PersistentVolumeClaimSpecAccessModes + , "dataSource" .= v1PersistentVolumeClaimSpecDataSource + , "dataSourceRef" .= v1PersistentVolumeClaimSpecDataSourceRef + , "resources" .= v1PersistentVolumeClaimSpecResources + , "selector" .= v1PersistentVolumeClaimSpecSelector + , "storageClassName" .= v1PersistentVolumeClaimSpecStorageClassName + , "volumeMode" .= v1PersistentVolumeClaimSpecVolumeMode + , "volumeName" .= v1PersistentVolumeClaimSpecVolumeName + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimSpec' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimSpec + :: V1PersistentVolumeClaimSpec +mkV1PersistentVolumeClaimSpec = + V1PersistentVolumeClaimSpec + { v1PersistentVolumeClaimSpecAccessModes = Nothing + , v1PersistentVolumeClaimSpecDataSource = Nothing + , v1PersistentVolumeClaimSpecDataSourceRef = Nothing + , v1PersistentVolumeClaimSpecResources = Nothing + , v1PersistentVolumeClaimSpecSelector = Nothing + , v1PersistentVolumeClaimSpecStorageClassName = Nothing + , v1PersistentVolumeClaimSpecVolumeMode = Nothing + , v1PersistentVolumeClaimSpecVolumeName = Nothing + } + +-- ** V1PersistentVolumeClaimStatus +-- | V1PersistentVolumeClaimStatus +-- PersistentVolumeClaimStatus is the current status of a persistent volume claim. +data V1PersistentVolumeClaimStatus = V1PersistentVolumeClaimStatus + { v1PersistentVolumeClaimStatusAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains the actual access modes the volume backing the PVC has. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes-1 + , v1PersistentVolumeClaimStatusAllocatedResources :: !(Maybe (Map.Map String Quantity)) -- ^ "allocatedResources" - allocatedResources is the storage resource within AllocatedResources tracks the capacity allocated to a PVC. It may be larger than the actual capacity when a volume expansion operation is requested. For storage quota, the larger value from allocatedResources and PVC.spec.resources is used. If allocatedResources is not set, PVC.spec.resources alone is used for quota calculation. If a volume expansion capacity request is lowered, allocatedResources is only lowered if there are no expansion operations in progress and if the actual volume capacity is equal or lower than the requested capacity. This is an alpha field and requires enabling RecoverVolumeExpansionFailure feature. + , v1PersistentVolumeClaimStatusCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - capacity represents the actual resources of the underlying volume. + , v1PersistentVolumeClaimStatusConditions :: !(Maybe [V1PersistentVolumeClaimCondition]) -- ^ "conditions" - conditions is the current Condition of persistent volume claim. If underlying persistent volume is being resized then the Condition will be set to 'ResizeStarted'. + , v1PersistentVolumeClaimStatusPhase :: !(Maybe Text) -- ^ "phase" - phase represents the current phase of PersistentVolumeClaim. + , v1PersistentVolumeClaimStatusResizeStatus :: !(Maybe Text) -- ^ "resizeStatus" - resizeStatus stores status of resize operation. ResizeStatus is not set by default but when expansion is complete resizeStatus is set to empty string by resize controller or kubelet. This is an alpha field and requires enabling RecoverVolumeExpansionFailure feature. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimStatus +instance A.FromJSON V1PersistentVolumeClaimStatus where + parseJSON = A.withObject "V1PersistentVolumeClaimStatus" $ \o -> + V1PersistentVolumeClaimStatus + <$> (o .:? "accessModes") + <*> (o .:? "allocatedResources") + <*> (o .:? "capacity") + <*> (o .:? "conditions") + <*> (o .:? "phase") + <*> (o .:? "resizeStatus") + +-- | ToJSON V1PersistentVolumeClaimStatus +instance A.ToJSON V1PersistentVolumeClaimStatus where + toJSON V1PersistentVolumeClaimStatus {..} = + _omitNulls + [ "accessModes" .= v1PersistentVolumeClaimStatusAccessModes + , "allocatedResources" .= v1PersistentVolumeClaimStatusAllocatedResources + , "capacity" .= v1PersistentVolumeClaimStatusCapacity + , "conditions" .= v1PersistentVolumeClaimStatusConditions + , "phase" .= v1PersistentVolumeClaimStatusPhase + , "resizeStatus" .= v1PersistentVolumeClaimStatusResizeStatus + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimStatus' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimStatus + :: V1PersistentVolumeClaimStatus +mkV1PersistentVolumeClaimStatus = + V1PersistentVolumeClaimStatus + { v1PersistentVolumeClaimStatusAccessModes = Nothing + , v1PersistentVolumeClaimStatusAllocatedResources = Nothing + , v1PersistentVolumeClaimStatusCapacity = Nothing + , v1PersistentVolumeClaimStatusConditions = Nothing + , v1PersistentVolumeClaimStatusPhase = Nothing + , v1PersistentVolumeClaimStatusResizeStatus = Nothing + } + +-- ** V1PersistentVolumeClaimTemplate +-- | V1PersistentVolumeClaimTemplate +-- PersistentVolumeClaimTemplate is used to produce PersistentVolumeClaim objects as part of an EphemeralVolumeSource. +data V1PersistentVolumeClaimTemplate = V1PersistentVolumeClaimTemplate + { v1PersistentVolumeClaimTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PersistentVolumeClaimTemplateSpec :: !(V1PersistentVolumeClaimSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimTemplate +instance A.FromJSON V1PersistentVolumeClaimTemplate where + parseJSON = A.withObject "V1PersistentVolumeClaimTemplate" $ \o -> + V1PersistentVolumeClaimTemplate + <$> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1PersistentVolumeClaimTemplate +instance A.ToJSON V1PersistentVolumeClaimTemplate where + toJSON V1PersistentVolumeClaimTemplate {..} = + _omitNulls + [ "metadata" .= v1PersistentVolumeClaimTemplateMetadata + , "spec" .= v1PersistentVolumeClaimTemplateSpec + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimTemplate' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimTemplate + :: V1PersistentVolumeClaimSpec -- ^ 'v1PersistentVolumeClaimTemplateSpec' + -> V1PersistentVolumeClaimTemplate +mkV1PersistentVolumeClaimTemplate v1PersistentVolumeClaimTemplateSpec = + V1PersistentVolumeClaimTemplate + { v1PersistentVolumeClaimTemplateMetadata = Nothing + , v1PersistentVolumeClaimTemplateSpec + } + +-- ** V1PersistentVolumeClaimVolumeSource +-- | V1PersistentVolumeClaimVolumeSource +-- PersistentVolumeClaimVolumeSource references the user's PVC in the same namespace. This volume finds the bound PV and mounts that volume for the pod. A PersistentVolumeClaimVolumeSource is, essentially, a wrapper around another type of volume that is owned by someone else (the system). +data V1PersistentVolumeClaimVolumeSource = V1PersistentVolumeClaimVolumeSource + { v1PersistentVolumeClaimVolumeSourceClaimName :: !(Text) -- ^ /Required/ "claimName" - claimName is the name of a PersistentVolumeClaim in the same namespace as the pod using this volume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims + , v1PersistentVolumeClaimVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Will force the ReadOnly setting in VolumeMounts. Default false. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeClaimVolumeSource +instance A.FromJSON V1PersistentVolumeClaimVolumeSource where + parseJSON = A.withObject "V1PersistentVolumeClaimVolumeSource" $ \o -> + V1PersistentVolumeClaimVolumeSource + <$> (o .: "claimName") + <*> (o .:? "readOnly") + +-- | ToJSON V1PersistentVolumeClaimVolumeSource +instance A.ToJSON V1PersistentVolumeClaimVolumeSource where + toJSON V1PersistentVolumeClaimVolumeSource {..} = + _omitNulls + [ "claimName" .= v1PersistentVolumeClaimVolumeSourceClaimName + , "readOnly" .= v1PersistentVolumeClaimVolumeSourceReadOnly + ] + + +-- | Construct a value of type 'V1PersistentVolumeClaimVolumeSource' (by applying it's required fields, if any) +mkV1PersistentVolumeClaimVolumeSource + :: Text -- ^ 'v1PersistentVolumeClaimVolumeSourceClaimName': claimName is the name of a PersistentVolumeClaim in the same namespace as the pod using this volume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#persistentvolumeclaims + -> V1PersistentVolumeClaimVolumeSource +mkV1PersistentVolumeClaimVolumeSource v1PersistentVolumeClaimVolumeSourceClaimName = + V1PersistentVolumeClaimVolumeSource + { v1PersistentVolumeClaimVolumeSourceClaimName + , v1PersistentVolumeClaimVolumeSourceReadOnly = Nothing + } + +-- ** V1PersistentVolumeList +-- | V1PersistentVolumeList +-- PersistentVolumeList is a list of PersistentVolume items. +data V1PersistentVolumeList = V1PersistentVolumeList + { v1PersistentVolumeListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PersistentVolumeListItems :: !([V1PersistentVolume]) -- ^ /Required/ "items" - items is a list of persistent volumes. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes + , v1PersistentVolumeListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PersistentVolumeListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeList +instance A.FromJSON V1PersistentVolumeList where + parseJSON = A.withObject "V1PersistentVolumeList" $ \o -> + V1PersistentVolumeList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PersistentVolumeList +instance A.ToJSON V1PersistentVolumeList where + toJSON V1PersistentVolumeList {..} = + _omitNulls + [ "apiVersion" .= v1PersistentVolumeListApiVersion + , "items" .= v1PersistentVolumeListItems + , "kind" .= v1PersistentVolumeListKind + , "metadata" .= v1PersistentVolumeListMetadata + ] + + +-- | Construct a value of type 'V1PersistentVolumeList' (by applying it's required fields, if any) +mkV1PersistentVolumeList + :: [V1PersistentVolume] -- ^ 'v1PersistentVolumeListItems': items is a list of persistent volumes. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes + -> V1PersistentVolumeList +mkV1PersistentVolumeList v1PersistentVolumeListItems = + V1PersistentVolumeList + { v1PersistentVolumeListApiVersion = Nothing + , v1PersistentVolumeListItems + , v1PersistentVolumeListKind = Nothing + , v1PersistentVolumeListMetadata = Nothing + } + +-- ** V1PersistentVolumeSpec +-- | V1PersistentVolumeSpec +-- PersistentVolumeSpec is the specification of a persistent volume. +data V1PersistentVolumeSpec = V1PersistentVolumeSpec + { v1PersistentVolumeSpecAccessModes :: !(Maybe [Text]) -- ^ "accessModes" - accessModes contains all ways the volume can be mounted. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#access-modes + , v1PersistentVolumeSpecAwsElasticBlockStore :: !(Maybe V1AWSElasticBlockStoreVolumeSource) -- ^ "awsElasticBlockStore" + , v1PersistentVolumeSpecAzureDisk :: !(Maybe V1AzureDiskVolumeSource) -- ^ "azureDisk" + , v1PersistentVolumeSpecAzureFile :: !(Maybe V1AzureFilePersistentVolumeSource) -- ^ "azureFile" + , v1PersistentVolumeSpecCapacity :: !(Maybe (Map.Map String Quantity)) -- ^ "capacity" - capacity is the description of the persistent volume's resources and capacity. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#capacity + , v1PersistentVolumeSpecCephfs :: !(Maybe V1CephFSPersistentVolumeSource) -- ^ "cephfs" + , v1PersistentVolumeSpecCinder :: !(Maybe V1CinderPersistentVolumeSource) -- ^ "cinder" + , v1PersistentVolumeSpecClaimRef :: !(Maybe V1ObjectReference) -- ^ "claimRef" + , v1PersistentVolumeSpecCsi :: !(Maybe V1CSIPersistentVolumeSource) -- ^ "csi" + , v1PersistentVolumeSpecFc :: !(Maybe V1FCVolumeSource) -- ^ "fc" + , v1PersistentVolumeSpecFlexVolume :: !(Maybe V1FlexPersistentVolumeSource) -- ^ "flexVolume" + , v1PersistentVolumeSpecFlocker :: !(Maybe V1FlockerVolumeSource) -- ^ "flocker" + , v1PersistentVolumeSpecGcePersistentDisk :: !(Maybe V1GCEPersistentDiskVolumeSource) -- ^ "gcePersistentDisk" + , v1PersistentVolumeSpecGlusterfs :: !(Maybe V1GlusterfsPersistentVolumeSource) -- ^ "glusterfs" + , v1PersistentVolumeSpecHostPath :: !(Maybe V1HostPathVolumeSource) -- ^ "hostPath" + , v1PersistentVolumeSpecIscsi :: !(Maybe V1ISCSIPersistentVolumeSource) -- ^ "iscsi" + , v1PersistentVolumeSpecLocal :: !(Maybe V1LocalVolumeSource) -- ^ "local" + , v1PersistentVolumeSpecMountOptions :: !(Maybe [Text]) -- ^ "mountOptions" - mountOptions is the list of mount options, e.g. [\"ro\", \"soft\"]. Not validated - mount will simply fail if one is invalid. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes/#mount-options + , v1PersistentVolumeSpecNfs :: !(Maybe V1NFSVolumeSource) -- ^ "nfs" + , v1PersistentVolumeSpecNodeAffinity :: !(Maybe V1VolumeNodeAffinity) -- ^ "nodeAffinity" + , v1PersistentVolumeSpecPersistentVolumeReclaimPolicy :: !(Maybe Text) -- ^ "persistentVolumeReclaimPolicy" - persistentVolumeReclaimPolicy defines what happens to a persistent volume when released from its claim. Valid options are Retain (default for manually created PersistentVolumes), Delete (default for dynamically provisioned PersistentVolumes), and Recycle (deprecated). Recycle must be supported by the volume plugin underlying this PersistentVolume. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#reclaiming + , v1PersistentVolumeSpecPhotonPersistentDisk :: !(Maybe V1PhotonPersistentDiskVolumeSource) -- ^ "photonPersistentDisk" + , v1PersistentVolumeSpecPortworxVolume :: !(Maybe V1PortworxVolumeSource) -- ^ "portworxVolume" + , v1PersistentVolumeSpecQuobyte :: !(Maybe V1QuobyteVolumeSource) -- ^ "quobyte" + , v1PersistentVolumeSpecRbd :: !(Maybe V1RBDPersistentVolumeSource) -- ^ "rbd" + , v1PersistentVolumeSpecScaleIo :: !(Maybe V1ScaleIOPersistentVolumeSource) -- ^ "scaleIO" + , v1PersistentVolumeSpecStorageClassName :: !(Maybe Text) -- ^ "storageClassName" - storageClassName is the name of StorageClass to which this persistent volume belongs. Empty value means that this volume does not belong to any StorageClass. + , v1PersistentVolumeSpecStorageos :: !(Maybe V1StorageOSPersistentVolumeSource) -- ^ "storageos" + , v1PersistentVolumeSpecVolumeMode :: !(Maybe Text) -- ^ "volumeMode" - volumeMode defines if a volume is intended to be used with a formatted filesystem or to remain in raw block state. Value of Filesystem is implied when not included in spec. + , v1PersistentVolumeSpecVsphereVolume :: !(Maybe V1VsphereVirtualDiskVolumeSource) -- ^ "vsphereVolume" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeSpec +instance A.FromJSON V1PersistentVolumeSpec where + parseJSON = A.withObject "V1PersistentVolumeSpec" $ \o -> + V1PersistentVolumeSpec + <$> (o .:? "accessModes") + <*> (o .:? "awsElasticBlockStore") + <*> (o .:? "azureDisk") + <*> (o .:? "azureFile") + <*> (o .:? "capacity") + <*> (o .:? "cephfs") + <*> (o .:? "cinder") + <*> (o .:? "claimRef") + <*> (o .:? "csi") + <*> (o .:? "fc") + <*> (o .:? "flexVolume") + <*> (o .:? "flocker") + <*> (o .:? "gcePersistentDisk") + <*> (o .:? "glusterfs") + <*> (o .:? "hostPath") + <*> (o .:? "iscsi") + <*> (o .:? "local") + <*> (o .:? "mountOptions") + <*> (o .:? "nfs") + <*> (o .:? "nodeAffinity") + <*> (o .:? "persistentVolumeReclaimPolicy") + <*> (o .:? "photonPersistentDisk") + <*> (o .:? "portworxVolume") + <*> (o .:? "quobyte") + <*> (o .:? "rbd") + <*> (o .:? "scaleIO") + <*> (o .:? "storageClassName") + <*> (o .:? "storageos") + <*> (o .:? "volumeMode") + <*> (o .:? "vsphereVolume") + +-- | ToJSON V1PersistentVolumeSpec +instance A.ToJSON V1PersistentVolumeSpec where + toJSON V1PersistentVolumeSpec {..} = + _omitNulls + [ "accessModes" .= v1PersistentVolumeSpecAccessModes + , "awsElasticBlockStore" .= v1PersistentVolumeSpecAwsElasticBlockStore + , "azureDisk" .= v1PersistentVolumeSpecAzureDisk + , "azureFile" .= v1PersistentVolumeSpecAzureFile + , "capacity" .= v1PersistentVolumeSpecCapacity + , "cephfs" .= v1PersistentVolumeSpecCephfs + , "cinder" .= v1PersistentVolumeSpecCinder + , "claimRef" .= v1PersistentVolumeSpecClaimRef + , "csi" .= v1PersistentVolumeSpecCsi + , "fc" .= v1PersistentVolumeSpecFc + , "flexVolume" .= v1PersistentVolumeSpecFlexVolume + , "flocker" .= v1PersistentVolumeSpecFlocker + , "gcePersistentDisk" .= v1PersistentVolumeSpecGcePersistentDisk + , "glusterfs" .= v1PersistentVolumeSpecGlusterfs + , "hostPath" .= v1PersistentVolumeSpecHostPath + , "iscsi" .= v1PersistentVolumeSpecIscsi + , "local" .= v1PersistentVolumeSpecLocal + , "mountOptions" .= v1PersistentVolumeSpecMountOptions + , "nfs" .= v1PersistentVolumeSpecNfs + , "nodeAffinity" .= v1PersistentVolumeSpecNodeAffinity + , "persistentVolumeReclaimPolicy" .= v1PersistentVolumeSpecPersistentVolumeReclaimPolicy + , "photonPersistentDisk" .= v1PersistentVolumeSpecPhotonPersistentDisk + , "portworxVolume" .= v1PersistentVolumeSpecPortworxVolume + , "quobyte" .= v1PersistentVolumeSpecQuobyte + , "rbd" .= v1PersistentVolumeSpecRbd + , "scaleIO" .= v1PersistentVolumeSpecScaleIo + , "storageClassName" .= v1PersistentVolumeSpecStorageClassName + , "storageos" .= v1PersistentVolumeSpecStorageos + , "volumeMode" .= v1PersistentVolumeSpecVolumeMode + , "vsphereVolume" .= v1PersistentVolumeSpecVsphereVolume + ] + + +-- | Construct a value of type 'V1PersistentVolumeSpec' (by applying it's required fields, if any) +mkV1PersistentVolumeSpec + :: V1PersistentVolumeSpec +mkV1PersistentVolumeSpec = + V1PersistentVolumeSpec + { v1PersistentVolumeSpecAccessModes = Nothing + , v1PersistentVolumeSpecAwsElasticBlockStore = Nothing + , v1PersistentVolumeSpecAzureDisk = Nothing + , v1PersistentVolumeSpecAzureFile = Nothing + , v1PersistentVolumeSpecCapacity = Nothing + , v1PersistentVolumeSpecCephfs = Nothing + , v1PersistentVolumeSpecCinder = Nothing + , v1PersistentVolumeSpecClaimRef = Nothing + , v1PersistentVolumeSpecCsi = Nothing + , v1PersistentVolumeSpecFc = Nothing + , v1PersistentVolumeSpecFlexVolume = Nothing + , v1PersistentVolumeSpecFlocker = Nothing + , v1PersistentVolumeSpecGcePersistentDisk = Nothing + , v1PersistentVolumeSpecGlusterfs = Nothing + , v1PersistentVolumeSpecHostPath = Nothing + , v1PersistentVolumeSpecIscsi = Nothing + , v1PersistentVolumeSpecLocal = Nothing + , v1PersistentVolumeSpecMountOptions = Nothing + , v1PersistentVolumeSpecNfs = Nothing + , v1PersistentVolumeSpecNodeAffinity = Nothing + , v1PersistentVolumeSpecPersistentVolumeReclaimPolicy = Nothing + , v1PersistentVolumeSpecPhotonPersistentDisk = Nothing + , v1PersistentVolumeSpecPortworxVolume = Nothing + , v1PersistentVolumeSpecQuobyte = Nothing + , v1PersistentVolumeSpecRbd = Nothing + , v1PersistentVolumeSpecScaleIo = Nothing + , v1PersistentVolumeSpecStorageClassName = Nothing + , v1PersistentVolumeSpecStorageos = Nothing + , v1PersistentVolumeSpecVolumeMode = Nothing + , v1PersistentVolumeSpecVsphereVolume = Nothing + } + +-- ** V1PersistentVolumeStatus +-- | V1PersistentVolumeStatus +-- PersistentVolumeStatus is the current status of a persistent volume. +data V1PersistentVolumeStatus = V1PersistentVolumeStatus + { v1PersistentVolumeStatusMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable message indicating details about why the volume is in this state. + , v1PersistentVolumeStatusPhase :: !(Maybe Text) -- ^ "phase" - phase indicates if a volume is available, bound to a claim, or released by a claim. More info: https://kubernetes.io/docs/concepts/storage/persistent-volumes#phase + , v1PersistentVolumeStatusReason :: !(Maybe Text) -- ^ "reason" - reason is a brief CamelCase string that describes any failure and is meant for machine parsing and tidy display in the CLI. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PersistentVolumeStatus +instance A.FromJSON V1PersistentVolumeStatus where + parseJSON = A.withObject "V1PersistentVolumeStatus" $ \o -> + V1PersistentVolumeStatus + <$> (o .:? "message") + <*> (o .:? "phase") + <*> (o .:? "reason") + +-- | ToJSON V1PersistentVolumeStatus +instance A.ToJSON V1PersistentVolumeStatus where + toJSON V1PersistentVolumeStatus {..} = + _omitNulls + [ "message" .= v1PersistentVolumeStatusMessage + , "phase" .= v1PersistentVolumeStatusPhase + , "reason" .= v1PersistentVolumeStatusReason + ] + + +-- | Construct a value of type 'V1PersistentVolumeStatus' (by applying it's required fields, if any) +mkV1PersistentVolumeStatus + :: V1PersistentVolumeStatus +mkV1PersistentVolumeStatus = + V1PersistentVolumeStatus + { v1PersistentVolumeStatusMessage = Nothing + , v1PersistentVolumeStatusPhase = Nothing + , v1PersistentVolumeStatusReason = Nothing + } + +-- ** V1PhotonPersistentDiskVolumeSource +-- | V1PhotonPersistentDiskVolumeSource +-- Represents a Photon Controller persistent disk resource. +data V1PhotonPersistentDiskVolumeSource = V1PhotonPersistentDiskVolumeSource + { v1PhotonPersistentDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1PhotonPersistentDiskVolumeSourcePdId :: !(Text) -- ^ /Required/ "pdID" - pdID is the ID that identifies Photon Controller persistent disk + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PhotonPersistentDiskVolumeSource +instance A.FromJSON V1PhotonPersistentDiskVolumeSource where + parseJSON = A.withObject "V1PhotonPersistentDiskVolumeSource" $ \o -> + V1PhotonPersistentDiskVolumeSource + <$> (o .:? "fsType") + <*> (o .: "pdID") + +-- | ToJSON V1PhotonPersistentDiskVolumeSource +instance A.ToJSON V1PhotonPersistentDiskVolumeSource where + toJSON V1PhotonPersistentDiskVolumeSource {..} = + _omitNulls + [ "fsType" .= v1PhotonPersistentDiskVolumeSourceFsType + , "pdID" .= v1PhotonPersistentDiskVolumeSourcePdId + ] + + +-- | Construct a value of type 'V1PhotonPersistentDiskVolumeSource' (by applying it's required fields, if any) +mkV1PhotonPersistentDiskVolumeSource + :: Text -- ^ 'v1PhotonPersistentDiskVolumeSourcePdId': pdID is the ID that identifies Photon Controller persistent disk + -> V1PhotonPersistentDiskVolumeSource +mkV1PhotonPersistentDiskVolumeSource v1PhotonPersistentDiskVolumeSourcePdId = + V1PhotonPersistentDiskVolumeSource + { v1PhotonPersistentDiskVolumeSourceFsType = Nothing + , v1PhotonPersistentDiskVolumeSourcePdId + } + +-- ** V1Pod +-- | V1Pod +-- Pod is a collection of containers that can run on a host. This resource is created by clients and scheduled onto hosts. +data V1Pod = V1Pod + { v1PodApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PodSpec :: !(Maybe V1PodSpec) -- ^ "spec" + , v1PodStatus :: !(Maybe V1PodStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Pod +instance A.FromJSON V1Pod where + parseJSON = A.withObject "V1Pod" $ \o -> + V1Pod + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Pod +instance A.ToJSON V1Pod where + toJSON V1Pod {..} = + _omitNulls + [ "apiVersion" .= v1PodApiVersion + , "kind" .= v1PodKind + , "metadata" .= v1PodMetadata + , "spec" .= v1PodSpec + , "status" .= v1PodStatus + ] + + +-- | Construct a value of type 'V1Pod' (by applying it's required fields, if any) +mkV1Pod + :: V1Pod +mkV1Pod = + V1Pod + { v1PodApiVersion = Nothing + , v1PodKind = Nothing + , v1PodMetadata = Nothing + , v1PodSpec = Nothing + , v1PodStatus = Nothing + } + +-- ** V1PodAffinity +-- | V1PodAffinity +-- Pod affinity is a group of inter pod affinity scheduling rules. +data V1PodAffinity = V1PodAffinity + { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1WeightedPodAffinityTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node has pods which matches the corresponding podAffinityTerm; the node(s) with the highest sum are the most preferred. + , v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PodAffinityTerm]) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" - If the affinity requirements specified by this field are not met at scheduling time, the pod will not be scheduled onto the node. If the affinity requirements specified by this field cease to be met at some point during pod execution (e.g. due to a pod label update), the system may or may not try to eventually evict the pod from its node. When there are multiple elements, the lists of nodes corresponding to each podAffinityTerm are intersected, i.e. all terms must be satisfied. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodAffinity +instance A.FromJSON V1PodAffinity where + parseJSON = A.withObject "V1PodAffinity" $ \o -> + V1PodAffinity + <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") + <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") + +-- | ToJSON V1PodAffinity +instance A.ToJSON V1PodAffinity where + toJSON V1PodAffinity {..} = + _omitNulls + [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution + , "requiredDuringSchedulingIgnoredDuringExecution" .= v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution + ] + + +-- | Construct a value of type 'V1PodAffinity' (by applying it's required fields, if any) +mkV1PodAffinity + :: V1PodAffinity +mkV1PodAffinity = + V1PodAffinity + { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing + , v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing + } + +-- ** V1PodAffinityTerm +-- | V1PodAffinityTerm +-- Defines a set of pods (namely those matching the labelSelector relative to the given namespace(s)) that this pod should be co-located (affinity) or not co-located (anti-affinity) with, where co-located is defined as running on a node whose value of the label with key matches that of any node on which a pod of the set of pods is running +data V1PodAffinityTerm = V1PodAffinityTerm + { v1PodAffinityTermLabelSelector :: !(Maybe V1LabelSelector) -- ^ "labelSelector" + , v1PodAffinityTermNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" + , v1PodAffinityTermNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - namespaces specifies a static list of namespace names that the term applies to. The term is applied to the union of the namespaces listed in this field and the ones selected by namespaceSelector. null or empty namespaces list and null namespaceSelector means \"this pod's namespace\". + , v1PodAffinityTermTopologyKey :: !(Text) -- ^ /Required/ "topologyKey" - This pod should be co-located (affinity) or not co-located (anti-affinity) with the pods matching the labelSelector in the specified namespaces, where co-located is defined as running on a node whose value of the label with key topologyKey matches that of any node on which any of the selected pods is running. Empty topologyKey is not allowed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodAffinityTerm +instance A.FromJSON V1PodAffinityTerm where + parseJSON = A.withObject "V1PodAffinityTerm" $ \o -> + V1PodAffinityTerm + <$> (o .:? "labelSelector") + <*> (o .:? "namespaceSelector") + <*> (o .:? "namespaces") + <*> (o .: "topologyKey") + +-- | ToJSON V1PodAffinityTerm +instance A.ToJSON V1PodAffinityTerm where + toJSON V1PodAffinityTerm {..} = + _omitNulls + [ "labelSelector" .= v1PodAffinityTermLabelSelector + , "namespaceSelector" .= v1PodAffinityTermNamespaceSelector + , "namespaces" .= v1PodAffinityTermNamespaces + , "topologyKey" .= v1PodAffinityTermTopologyKey + ] + + +-- | Construct a value of type 'V1PodAffinityTerm' (by applying it's required fields, if any) +mkV1PodAffinityTerm + :: Text -- ^ 'v1PodAffinityTermTopologyKey': This pod should be co-located (affinity) or not co-located (anti-affinity) with the pods matching the labelSelector in the specified namespaces, where co-located is defined as running on a node whose value of the label with key topologyKey matches that of any node on which any of the selected pods is running. Empty topologyKey is not allowed. + -> V1PodAffinityTerm +mkV1PodAffinityTerm v1PodAffinityTermTopologyKey = + V1PodAffinityTerm + { v1PodAffinityTermLabelSelector = Nothing + , v1PodAffinityTermNamespaceSelector = Nothing + , v1PodAffinityTermNamespaces = Nothing + , v1PodAffinityTermTopologyKey + } + +-- ** V1PodAntiAffinity +-- | V1PodAntiAffinity +-- Pod anti affinity is a group of inter pod anti affinity scheduling rules. +data V1PodAntiAffinity = V1PodAntiAffinity + { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1WeightedPodAffinityTerm]) -- ^ "preferredDuringSchedulingIgnoredDuringExecution" - The scheduler will prefer to schedule pods to nodes that satisfy the anti-affinity expressions specified by this field, but it may choose a node that violates one or more of the expressions. The node that is most preferred is the one with the greatest sum of weights, i.e. for each node that meets all of the scheduling requirements (resource request, requiredDuringScheduling anti-affinity expressions, etc.), compute a sum by iterating through the elements of this field and adding \"weight\" to the sum if the node has pods which matches the corresponding podAffinityTerm; the node(s) with the highest sum are the most preferred. + , v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution :: !(Maybe [V1PodAffinityTerm]) -- ^ "requiredDuringSchedulingIgnoredDuringExecution" - If the anti-affinity requirements specified by this field are not met at scheduling time, the pod will not be scheduled onto the node. If the anti-affinity requirements specified by this field cease to be met at some point during pod execution (e.g. due to a pod label update), the system may or may not try to eventually evict the pod from its node. When there are multiple elements, the lists of nodes corresponding to each podAffinityTerm are intersected, i.e. all terms must be satisfied. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodAntiAffinity +instance A.FromJSON V1PodAntiAffinity where + parseJSON = A.withObject "V1PodAntiAffinity" $ \o -> + V1PodAntiAffinity + <$> (o .:? "preferredDuringSchedulingIgnoredDuringExecution") + <*> (o .:? "requiredDuringSchedulingIgnoredDuringExecution") + +-- | ToJSON V1PodAntiAffinity +instance A.ToJSON V1PodAntiAffinity where + toJSON V1PodAntiAffinity {..} = + _omitNulls + [ "preferredDuringSchedulingIgnoredDuringExecution" .= v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution + , "requiredDuringSchedulingIgnoredDuringExecution" .= v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution + ] + + +-- | Construct a value of type 'V1PodAntiAffinity' (by applying it's required fields, if any) +mkV1PodAntiAffinity + :: V1PodAntiAffinity +mkV1PodAntiAffinity = + V1PodAntiAffinity + { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution = Nothing + , v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution = Nothing + } + +-- ** V1PodCondition +-- | V1PodCondition +-- PodCondition contains details for the current condition of this pod. +data V1PodCondition = V1PodCondition + { v1PodConditionLastProbeTime :: !(Maybe DateTime) -- ^ "lastProbeTime" - Last time we probed the condition. + , v1PodConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1PodConditionMessage :: !(Maybe Text) -- ^ "message" - Human-readable message indicating details about last transition. + , v1PodConditionReason :: !(Maybe Text) -- ^ "reason" - Unique, one-word, CamelCase reason for the condition's last transition. + , v1PodConditionStatus :: !(Text) -- ^ /Required/ "status" - Status is the status of the condition. Can be True, False, Unknown. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions + , v1PodConditionType :: !(Text) -- ^ /Required/ "type" - Type is the type of the condition. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodCondition +instance A.FromJSON V1PodCondition where + parseJSON = A.withObject "V1PodCondition" $ \o -> + V1PodCondition + <$> (o .:? "lastProbeTime") + <*> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1PodCondition +instance A.ToJSON V1PodCondition where + toJSON V1PodCondition {..} = + _omitNulls + [ "lastProbeTime" .= v1PodConditionLastProbeTime + , "lastTransitionTime" .= v1PodConditionLastTransitionTime + , "message" .= v1PodConditionMessage + , "reason" .= v1PodConditionReason + , "status" .= v1PodConditionStatus + , "type" .= v1PodConditionType + ] + + +-- | Construct a value of type 'V1PodCondition' (by applying it's required fields, if any) +mkV1PodCondition + :: Text -- ^ 'v1PodConditionStatus': Status is the status of the condition. Can be True, False, Unknown. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions + -> Text -- ^ 'v1PodConditionType': Type is the type of the condition. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions + -> V1PodCondition +mkV1PodCondition v1PodConditionStatus v1PodConditionType = + V1PodCondition + { v1PodConditionLastProbeTime = Nothing + , v1PodConditionLastTransitionTime = Nothing + , v1PodConditionMessage = Nothing + , v1PodConditionReason = Nothing + , v1PodConditionStatus + , v1PodConditionType + } + +-- ** V1PodDNSConfig +-- | V1PodDNSConfig +-- PodDNSConfig defines the DNS parameters of a pod in addition to those generated from DNSPolicy. +data V1PodDNSConfig = V1PodDNSConfig + { v1PodDNSConfigNameservers :: !(Maybe [Text]) -- ^ "nameservers" - A list of DNS name server IP addresses. This will be appended to the base nameservers generated from DNSPolicy. Duplicated nameservers will be removed. + , v1PodDNSConfigOptions :: !(Maybe [V1PodDNSConfigOption]) -- ^ "options" - A list of DNS resolver options. This will be merged with the base options generated from DNSPolicy. Duplicated entries will be removed. Resolution options given in Options will override those that appear in the base DNSPolicy. + , v1PodDNSConfigSearches :: !(Maybe [Text]) -- ^ "searches" - A list of DNS search domains for host-name lookup. This will be appended to the base search paths generated from DNSPolicy. Duplicated search paths will be removed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDNSConfig +instance A.FromJSON V1PodDNSConfig where + parseJSON = A.withObject "V1PodDNSConfig" $ \o -> + V1PodDNSConfig + <$> (o .:? "nameservers") + <*> (o .:? "options") + <*> (o .:? "searches") + +-- | ToJSON V1PodDNSConfig +instance A.ToJSON V1PodDNSConfig where + toJSON V1PodDNSConfig {..} = + _omitNulls + [ "nameservers" .= v1PodDNSConfigNameservers + , "options" .= v1PodDNSConfigOptions + , "searches" .= v1PodDNSConfigSearches + ] + + +-- | Construct a value of type 'V1PodDNSConfig' (by applying it's required fields, if any) +mkV1PodDNSConfig + :: V1PodDNSConfig +mkV1PodDNSConfig = + V1PodDNSConfig + { v1PodDNSConfigNameservers = Nothing + , v1PodDNSConfigOptions = Nothing + , v1PodDNSConfigSearches = Nothing + } + +-- ** V1PodDNSConfigOption +-- | V1PodDNSConfigOption +-- PodDNSConfigOption defines DNS resolver options of a pod. +data V1PodDNSConfigOption = V1PodDNSConfigOption + { v1PodDNSConfigOptionName :: !(Maybe Text) -- ^ "name" - Required. + , v1PodDNSConfigOptionValue :: !(Maybe Text) -- ^ "value" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDNSConfigOption +instance A.FromJSON V1PodDNSConfigOption where + parseJSON = A.withObject "V1PodDNSConfigOption" $ \o -> + V1PodDNSConfigOption + <$> (o .:? "name") + <*> (o .:? "value") + +-- | ToJSON V1PodDNSConfigOption +instance A.ToJSON V1PodDNSConfigOption where + toJSON V1PodDNSConfigOption {..} = + _omitNulls + [ "name" .= v1PodDNSConfigOptionName + , "value" .= v1PodDNSConfigOptionValue + ] + + +-- | Construct a value of type 'V1PodDNSConfigOption' (by applying it's required fields, if any) +mkV1PodDNSConfigOption + :: V1PodDNSConfigOption +mkV1PodDNSConfigOption = + V1PodDNSConfigOption + { v1PodDNSConfigOptionName = Nothing + , v1PodDNSConfigOptionValue = Nothing + } + +-- ** V1PodDisruptionBudget +-- | V1PodDisruptionBudget +-- PodDisruptionBudget is an object to define the max disruption that can be caused to a collection of pods +data V1PodDisruptionBudget = V1PodDisruptionBudget + { v1PodDisruptionBudgetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodDisruptionBudgetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodDisruptionBudgetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PodDisruptionBudgetSpec :: !(Maybe V1PodDisruptionBudgetSpec) -- ^ "spec" + , v1PodDisruptionBudgetStatus :: !(Maybe V1PodDisruptionBudgetStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDisruptionBudget +instance A.FromJSON V1PodDisruptionBudget where + parseJSON = A.withObject "V1PodDisruptionBudget" $ \o -> + V1PodDisruptionBudget + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1PodDisruptionBudget +instance A.ToJSON V1PodDisruptionBudget where + toJSON V1PodDisruptionBudget {..} = + _omitNulls + [ "apiVersion" .= v1PodDisruptionBudgetApiVersion + , "kind" .= v1PodDisruptionBudgetKind + , "metadata" .= v1PodDisruptionBudgetMetadata + , "spec" .= v1PodDisruptionBudgetSpec + , "status" .= v1PodDisruptionBudgetStatus + ] + + +-- | Construct a value of type 'V1PodDisruptionBudget' (by applying it's required fields, if any) +mkV1PodDisruptionBudget + :: V1PodDisruptionBudget +mkV1PodDisruptionBudget = + V1PodDisruptionBudget + { v1PodDisruptionBudgetApiVersion = Nothing + , v1PodDisruptionBudgetKind = Nothing + , v1PodDisruptionBudgetMetadata = Nothing + , v1PodDisruptionBudgetSpec = Nothing + , v1PodDisruptionBudgetStatus = Nothing + } + +-- ** V1PodDisruptionBudgetList +-- | V1PodDisruptionBudgetList +-- PodDisruptionBudgetList is a collection of PodDisruptionBudgets. +data V1PodDisruptionBudgetList = V1PodDisruptionBudgetList + { v1PodDisruptionBudgetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodDisruptionBudgetListItems :: !([V1PodDisruptionBudget]) -- ^ /Required/ "items" - Items is a list of PodDisruptionBudgets + , v1PodDisruptionBudgetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodDisruptionBudgetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDisruptionBudgetList +instance A.FromJSON V1PodDisruptionBudgetList where + parseJSON = A.withObject "V1PodDisruptionBudgetList" $ \o -> + V1PodDisruptionBudgetList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PodDisruptionBudgetList +instance A.ToJSON V1PodDisruptionBudgetList where + toJSON V1PodDisruptionBudgetList {..} = + _omitNulls + [ "apiVersion" .= v1PodDisruptionBudgetListApiVersion + , "items" .= v1PodDisruptionBudgetListItems + , "kind" .= v1PodDisruptionBudgetListKind + , "metadata" .= v1PodDisruptionBudgetListMetadata + ] + + +-- | Construct a value of type 'V1PodDisruptionBudgetList' (by applying it's required fields, if any) +mkV1PodDisruptionBudgetList + :: [V1PodDisruptionBudget] -- ^ 'v1PodDisruptionBudgetListItems': Items is a list of PodDisruptionBudgets + -> V1PodDisruptionBudgetList +mkV1PodDisruptionBudgetList v1PodDisruptionBudgetListItems = + V1PodDisruptionBudgetList + { v1PodDisruptionBudgetListApiVersion = Nothing + , v1PodDisruptionBudgetListItems + , v1PodDisruptionBudgetListKind = Nothing + , v1PodDisruptionBudgetListMetadata = Nothing + } + +-- ** V1PodDisruptionBudgetSpec +-- | V1PodDisruptionBudgetSpec +-- PodDisruptionBudgetSpec is a description of a PodDisruptionBudget. +data V1PodDisruptionBudgetSpec = V1PodDisruptionBudgetSpec + { v1PodDisruptionBudgetSpecMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" + , v1PodDisruptionBudgetSpecMinAvailable :: !(Maybe IntOrString) -- ^ "minAvailable" + , v1PodDisruptionBudgetSpecSelector :: !(Maybe V1LabelSelector) -- ^ "selector" + , v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy :: !(Maybe Text) -- ^ "unhealthyPodEvictionPolicy" - UnhealthyPodEvictionPolicy defines the criteria for when unhealthy pods should be considered for eviction. Current implementation considers healthy pods, as pods that have status.conditions item with type=\"Ready\",status=\"True\". Valid policies are IfHealthyBudget and AlwaysAllow. If no policy is specified, the default behavior will be used, which corresponds to the IfHealthyBudget policy. IfHealthyBudget policy means that running pods (status.phase=\"Running\"), but not yet healthy can be evicted only if the guarded application is not disrupted (status.currentHealthy is at least equal to status.desiredHealthy). Healthy pods will be subject to the PDB for eviction. AlwaysAllow policy means that all running pods (status.phase=\"Running\"), but not yet healthy are considered disrupted and can be evicted regardless of whether the criteria in a PDB is met. This means perspective running pods of a disrupted application might not get a chance to become healthy. Healthy pods will be subject to the PDB for eviction. Additional policies may be added in the future. Clients making eviction decisions should disallow eviction of unhealthy pods if they encounter an unrecognized policy in this field. This field is beta-level. The eviction API uses this field when the feature gate PDBUnhealthyPodEvictionPolicy is enabled (enabled by default). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDisruptionBudgetSpec +instance A.FromJSON V1PodDisruptionBudgetSpec where + parseJSON = A.withObject "V1PodDisruptionBudgetSpec" $ \o -> + V1PodDisruptionBudgetSpec + <$> (o .:? "maxUnavailable") + <*> (o .:? "minAvailable") + <*> (o .:? "selector") + <*> (o .:? "unhealthyPodEvictionPolicy") + +-- | ToJSON V1PodDisruptionBudgetSpec +instance A.ToJSON V1PodDisruptionBudgetSpec where + toJSON V1PodDisruptionBudgetSpec {..} = + _omitNulls + [ "maxUnavailable" .= v1PodDisruptionBudgetSpecMaxUnavailable + , "minAvailable" .= v1PodDisruptionBudgetSpecMinAvailable + , "selector" .= v1PodDisruptionBudgetSpecSelector + , "unhealthyPodEvictionPolicy" .= v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy + ] + + +-- | Construct a value of type 'V1PodDisruptionBudgetSpec' (by applying it's required fields, if any) +mkV1PodDisruptionBudgetSpec + :: V1PodDisruptionBudgetSpec +mkV1PodDisruptionBudgetSpec = + V1PodDisruptionBudgetSpec + { v1PodDisruptionBudgetSpecMaxUnavailable = Nothing + , v1PodDisruptionBudgetSpecMinAvailable = Nothing + , v1PodDisruptionBudgetSpecSelector = Nothing + , v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy = Nothing + } + +-- ** V1PodDisruptionBudgetStatus +-- | V1PodDisruptionBudgetStatus +-- PodDisruptionBudgetStatus represents information about the status of a PodDisruptionBudget. Status may trail the actual state of a system. +data V1PodDisruptionBudgetStatus = V1PodDisruptionBudgetStatus + { v1PodDisruptionBudgetStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - Conditions contain conditions for PDB. The disruption controller sets the DisruptionAllowed condition. The following are known values for the reason field (additional reasons could be added in the future): - SyncFailed: The controller encountered an error and wasn't able to compute the number of allowed disruptions. Therefore no disruptions are allowed and the status of the condition will be False. - InsufficientPods: The number of pods are either at or below the number required by the PodDisruptionBudget. No disruptions are allowed and the status of the condition will be False. - SufficientPods: There are more pods than required by the PodDisruptionBudget. The condition will be True, and the number of allowed disruptions are provided by the disruptionsAllowed property. + , v1PodDisruptionBudgetStatusCurrentHealthy :: !(Int) -- ^ /Required/ "currentHealthy" - current number of healthy pods + , v1PodDisruptionBudgetStatusDesiredHealthy :: !(Int) -- ^ /Required/ "desiredHealthy" - minimum desired number of healthy pods + , v1PodDisruptionBudgetStatusDisruptedPods :: !(Maybe (Map.Map String DateTime)) -- ^ "disruptedPods" - DisruptedPods contains information about pods whose eviction was processed by the API server eviction subresource handler but has not yet been observed by the PodDisruptionBudget controller. A pod will be in this map from the time when the API server processed the eviction request to the time when the pod is seen by PDB controller as having been marked for deletion (or after a timeout). The key in the map is the name of the pod and the value is the time when the API server processed the eviction request. If the deletion didn't occur and a pod is still there it will be removed from the list automatically by PodDisruptionBudget controller after some time. If everything goes smooth this map should be empty for the most of the time. Large number of entries in the map may indicate problems with pod deletions. + , v1PodDisruptionBudgetStatusDisruptionsAllowed :: !(Int) -- ^ /Required/ "disruptionsAllowed" - Number of pod disruptions that are currently allowed. + , v1PodDisruptionBudgetStatusExpectedPods :: !(Int) -- ^ /Required/ "expectedPods" - total number of pods counted by this disruption budget + , v1PodDisruptionBudgetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - Most recent generation observed when updating this PDB status. DisruptionsAllowed and other status information is valid only if observedGeneration equals to PDB's object generation. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodDisruptionBudgetStatus +instance A.FromJSON V1PodDisruptionBudgetStatus where + parseJSON = A.withObject "V1PodDisruptionBudgetStatus" $ \o -> + V1PodDisruptionBudgetStatus + <$> (o .:? "conditions") + <*> (o .: "currentHealthy") + <*> (o .: "desiredHealthy") + <*> (o .:? "disruptedPods") + <*> (o .: "disruptionsAllowed") + <*> (o .: "expectedPods") + <*> (o .:? "observedGeneration") + +-- | ToJSON V1PodDisruptionBudgetStatus +instance A.ToJSON V1PodDisruptionBudgetStatus where + toJSON V1PodDisruptionBudgetStatus {..} = + _omitNulls + [ "conditions" .= v1PodDisruptionBudgetStatusConditions + , "currentHealthy" .= v1PodDisruptionBudgetStatusCurrentHealthy + , "desiredHealthy" .= v1PodDisruptionBudgetStatusDesiredHealthy + , "disruptedPods" .= v1PodDisruptionBudgetStatusDisruptedPods + , "disruptionsAllowed" .= v1PodDisruptionBudgetStatusDisruptionsAllowed + , "expectedPods" .= v1PodDisruptionBudgetStatusExpectedPods + , "observedGeneration" .= v1PodDisruptionBudgetStatusObservedGeneration + ] + + +-- | Construct a value of type 'V1PodDisruptionBudgetStatus' (by applying it's required fields, if any) +mkV1PodDisruptionBudgetStatus + :: Int -- ^ 'v1PodDisruptionBudgetStatusCurrentHealthy': current number of healthy pods + -> Int -- ^ 'v1PodDisruptionBudgetStatusDesiredHealthy': minimum desired number of healthy pods + -> Int -- ^ 'v1PodDisruptionBudgetStatusDisruptionsAllowed': Number of pod disruptions that are currently allowed. + -> Int -- ^ 'v1PodDisruptionBudgetStatusExpectedPods': total number of pods counted by this disruption budget + -> V1PodDisruptionBudgetStatus +mkV1PodDisruptionBudgetStatus v1PodDisruptionBudgetStatusCurrentHealthy v1PodDisruptionBudgetStatusDesiredHealthy v1PodDisruptionBudgetStatusDisruptionsAllowed v1PodDisruptionBudgetStatusExpectedPods = + V1PodDisruptionBudgetStatus + { v1PodDisruptionBudgetStatusConditions = Nothing + , v1PodDisruptionBudgetStatusCurrentHealthy + , v1PodDisruptionBudgetStatusDesiredHealthy + , v1PodDisruptionBudgetStatusDisruptedPods = Nothing + , v1PodDisruptionBudgetStatusDisruptionsAllowed + , v1PodDisruptionBudgetStatusExpectedPods + , v1PodDisruptionBudgetStatusObservedGeneration = Nothing + } + +-- ** V1PodFailurePolicy +-- | V1PodFailurePolicy +-- PodFailurePolicy describes how failed pods influence the backoffLimit. +data V1PodFailurePolicy = V1PodFailurePolicy + { v1PodFailurePolicyRules :: !([V1PodFailurePolicyRule]) -- ^ /Required/ "rules" - A list of pod failure policy rules. The rules are evaluated in order. Once a rule matches a Pod failure, the remaining of the rules are ignored. When no rule matches the Pod failure, the default handling applies - the counter of pod failures is incremented and it is checked against the backoffLimit. At most 20 elements are allowed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodFailurePolicy +instance A.FromJSON V1PodFailurePolicy where + parseJSON = A.withObject "V1PodFailurePolicy" $ \o -> + V1PodFailurePolicy + <$> (o .: "rules") + +-- | ToJSON V1PodFailurePolicy +instance A.ToJSON V1PodFailurePolicy where + toJSON V1PodFailurePolicy {..} = + _omitNulls + [ "rules" .= v1PodFailurePolicyRules + ] + + +-- | Construct a value of type 'V1PodFailurePolicy' (by applying it's required fields, if any) +mkV1PodFailurePolicy + :: [V1PodFailurePolicyRule] -- ^ 'v1PodFailurePolicyRules': A list of pod failure policy rules. The rules are evaluated in order. Once a rule matches a Pod failure, the remaining of the rules are ignored. When no rule matches the Pod failure, the default handling applies - the counter of pod failures is incremented and it is checked against the backoffLimit. At most 20 elements are allowed. + -> V1PodFailurePolicy +mkV1PodFailurePolicy v1PodFailurePolicyRules = + V1PodFailurePolicy + { v1PodFailurePolicyRules + } + +-- ** V1PodFailurePolicyOnExitCodesRequirement +-- | V1PodFailurePolicyOnExitCodesRequirement +-- PodFailurePolicyOnExitCodesRequirement describes the requirement for handling a failed pod based on its container exit codes. In particular, it lookups the .state.terminated.exitCode for each app container and init container status, represented by the .status.containerStatuses and .status.initContainerStatuses fields in the Pod status, respectively. Containers completed with success (exit code 0) are excluded from the requirement check. +data V1PodFailurePolicyOnExitCodesRequirement = V1PodFailurePolicyOnExitCodesRequirement + { v1PodFailurePolicyOnExitCodesRequirementContainerName :: !(Maybe Text) -- ^ "containerName" - Restricts the check for exit codes to the container with the specified name. When null, the rule applies to all containers. When specified, it should match one the container or initContainer names in the pod template. + , v1PodFailurePolicyOnExitCodesRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents the relationship between the container exit code(s) and the specified values. Containers completed with success (exit code 0) are excluded from the requirement check. Possible values are: - In: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is in the set of specified values. - NotIn: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is not in the set of specified values. Additional values are considered to be added in the future. Clients should react to an unknown operator by assuming the requirement is not satisfied. + , v1PodFailurePolicyOnExitCodesRequirementValues :: !([Int]) -- ^ /Required/ "values" - Specifies the set of values. Each returned container exit code (might be multiple in case of multiple containers) is checked against this set of values with respect to the operator. The list of values must be ordered and must not contain duplicates. Value '0' cannot be used for the In operator. At least one element is required. At most 255 elements are allowed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodFailurePolicyOnExitCodesRequirement +instance A.FromJSON V1PodFailurePolicyOnExitCodesRequirement where + parseJSON = A.withObject "V1PodFailurePolicyOnExitCodesRequirement" $ \o -> + V1PodFailurePolicyOnExitCodesRequirement + <$> (o .:? "containerName") + <*> (o .: "operator") + <*> (o .: "values") + +-- | ToJSON V1PodFailurePolicyOnExitCodesRequirement +instance A.ToJSON V1PodFailurePolicyOnExitCodesRequirement where + toJSON V1PodFailurePolicyOnExitCodesRequirement {..} = + _omitNulls + [ "containerName" .= v1PodFailurePolicyOnExitCodesRequirementContainerName + , "operator" .= v1PodFailurePolicyOnExitCodesRequirementOperator + , "values" .= v1PodFailurePolicyOnExitCodesRequirementValues + ] + + +-- | Construct a value of type 'V1PodFailurePolicyOnExitCodesRequirement' (by applying it's required fields, if any) +mkV1PodFailurePolicyOnExitCodesRequirement + :: Text -- ^ 'v1PodFailurePolicyOnExitCodesRequirementOperator': Represents the relationship between the container exit code(s) and the specified values. Containers completed with success (exit code 0) are excluded from the requirement check. Possible values are: - In: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is in the set of specified values. - NotIn: the requirement is satisfied if at least one container exit code (might be multiple if there are multiple containers not restricted by the 'containerName' field) is not in the set of specified values. Additional values are considered to be added in the future. Clients should react to an unknown operator by assuming the requirement is not satisfied. + -> [Int] -- ^ 'v1PodFailurePolicyOnExitCodesRequirementValues': Specifies the set of values. Each returned container exit code (might be multiple in case of multiple containers) is checked against this set of values with respect to the operator. The list of values must be ordered and must not contain duplicates. Value '0' cannot be used for the In operator. At least one element is required. At most 255 elements are allowed. + -> V1PodFailurePolicyOnExitCodesRequirement +mkV1PodFailurePolicyOnExitCodesRequirement v1PodFailurePolicyOnExitCodesRequirementOperator v1PodFailurePolicyOnExitCodesRequirementValues = + V1PodFailurePolicyOnExitCodesRequirement + { v1PodFailurePolicyOnExitCodesRequirementContainerName = Nothing + , v1PodFailurePolicyOnExitCodesRequirementOperator + , v1PodFailurePolicyOnExitCodesRequirementValues + } + +-- ** V1PodFailurePolicyOnPodConditionsPattern +-- | V1PodFailurePolicyOnPodConditionsPattern +-- PodFailurePolicyOnPodConditionsPattern describes a pattern for matching an actual pod condition type. +data V1PodFailurePolicyOnPodConditionsPattern = V1PodFailurePolicyOnPodConditionsPattern + { v1PodFailurePolicyOnPodConditionsPatternStatus :: !(Text) -- ^ /Required/ "status" - Specifies the required Pod condition status. To match a pod condition it is required that the specified status equals the pod condition status. Defaults to True. + , v1PodFailurePolicyOnPodConditionsPatternType :: !(Text) -- ^ /Required/ "type" - Specifies the required Pod condition type. To match a pod condition it is required that specified type equals the pod condition type. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodFailurePolicyOnPodConditionsPattern +instance A.FromJSON V1PodFailurePolicyOnPodConditionsPattern where + parseJSON = A.withObject "V1PodFailurePolicyOnPodConditionsPattern" $ \o -> + V1PodFailurePolicyOnPodConditionsPattern + <$> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1PodFailurePolicyOnPodConditionsPattern +instance A.ToJSON V1PodFailurePolicyOnPodConditionsPattern where + toJSON V1PodFailurePolicyOnPodConditionsPattern {..} = + _omitNulls + [ "status" .= v1PodFailurePolicyOnPodConditionsPatternStatus + , "type" .= v1PodFailurePolicyOnPodConditionsPatternType + ] + + +-- | Construct a value of type 'V1PodFailurePolicyOnPodConditionsPattern' (by applying it's required fields, if any) +mkV1PodFailurePolicyOnPodConditionsPattern + :: Text -- ^ 'v1PodFailurePolicyOnPodConditionsPatternStatus': Specifies the required Pod condition status. To match a pod condition it is required that the specified status equals the pod condition status. Defaults to True. + -> Text -- ^ 'v1PodFailurePolicyOnPodConditionsPatternType': Specifies the required Pod condition type. To match a pod condition it is required that specified type equals the pod condition type. + -> V1PodFailurePolicyOnPodConditionsPattern +mkV1PodFailurePolicyOnPodConditionsPattern v1PodFailurePolicyOnPodConditionsPatternStatus v1PodFailurePolicyOnPodConditionsPatternType = + V1PodFailurePolicyOnPodConditionsPattern + { v1PodFailurePolicyOnPodConditionsPatternStatus + , v1PodFailurePolicyOnPodConditionsPatternType + } + +-- ** V1PodFailurePolicyRule +-- | V1PodFailurePolicyRule +-- PodFailurePolicyRule describes how a pod failure is handled when the requirements are met. One of onExitCodes and onPodConditions, but not both, can be used in each rule. +data V1PodFailurePolicyRule = V1PodFailurePolicyRule + { v1PodFailurePolicyRuleAction :: !(Text) -- ^ /Required/ "action" - Specifies the action taken on a pod failure when the requirements are satisfied. Possible values are: - FailJob: indicates that the pod's job is marked as Failed and all running pods are terminated. - Ignore: indicates that the counter towards the .backoffLimit is not incremented and a replacement pod is created. - Count: indicates that the pod is handled in the default way - the counter towards the .backoffLimit is incremented. Additional values are considered to be added in the future. Clients should react to an unknown action by skipping the rule. + , v1PodFailurePolicyRuleOnExitCodes :: !(Maybe V1PodFailurePolicyOnExitCodesRequirement) -- ^ "onExitCodes" + , v1PodFailurePolicyRuleOnPodConditions :: !(Maybe [V1PodFailurePolicyOnPodConditionsPattern]) -- ^ "onPodConditions" - Represents the requirement on the pod conditions. The requirement is represented as a list of pod condition patterns. The requirement is satisfied if at least one pattern matches an actual pod condition. At most 20 elements are allowed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodFailurePolicyRule +instance A.FromJSON V1PodFailurePolicyRule where + parseJSON = A.withObject "V1PodFailurePolicyRule" $ \o -> + V1PodFailurePolicyRule + <$> (o .: "action") + <*> (o .:? "onExitCodes") + <*> (o .:? "onPodConditions") + +-- | ToJSON V1PodFailurePolicyRule +instance A.ToJSON V1PodFailurePolicyRule where + toJSON V1PodFailurePolicyRule {..} = + _omitNulls + [ "action" .= v1PodFailurePolicyRuleAction + , "onExitCodes" .= v1PodFailurePolicyRuleOnExitCodes + , "onPodConditions" .= v1PodFailurePolicyRuleOnPodConditions + ] + + +-- | Construct a value of type 'V1PodFailurePolicyRule' (by applying it's required fields, if any) +mkV1PodFailurePolicyRule + :: Text -- ^ 'v1PodFailurePolicyRuleAction': Specifies the action taken on a pod failure when the requirements are satisfied. Possible values are: - FailJob: indicates that the pod's job is marked as Failed and all running pods are terminated. - Ignore: indicates that the counter towards the .backoffLimit is not incremented and a replacement pod is created. - Count: indicates that the pod is handled in the default way - the counter towards the .backoffLimit is incremented. Additional values are considered to be added in the future. Clients should react to an unknown action by skipping the rule. + -> V1PodFailurePolicyRule +mkV1PodFailurePolicyRule v1PodFailurePolicyRuleAction = + V1PodFailurePolicyRule + { v1PodFailurePolicyRuleAction + , v1PodFailurePolicyRuleOnExitCodes = Nothing + , v1PodFailurePolicyRuleOnPodConditions = Nothing + } + +-- ** V1PodIP +-- | V1PodIP +-- IP address information for entries in the (plural) PodIPs field. Each entry includes: IP: An IP address allocated to the pod. Routable at least within the cluster. +data V1PodIP = V1PodIP + { v1PodIPIp :: !(Maybe Text) -- ^ "ip" - ip is an IP address (IPv4 or IPv6) assigned to the pod + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodIP +instance A.FromJSON V1PodIP where + parseJSON = A.withObject "V1PodIP" $ \o -> + V1PodIP + <$> (o .:? "ip") + +-- | ToJSON V1PodIP +instance A.ToJSON V1PodIP where + toJSON V1PodIP {..} = + _omitNulls + [ "ip" .= v1PodIPIp + ] + + +-- | Construct a value of type 'V1PodIP' (by applying it's required fields, if any) +mkV1PodIP + :: V1PodIP +mkV1PodIP = + V1PodIP + { v1PodIPIp = Nothing + } + +-- ** V1PodList +-- | V1PodList +-- PodList is a list of Pods. +data V1PodList = V1PodList + { v1PodListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodListItems :: !([V1Pod]) -- ^ /Required/ "items" - List of pods. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md + , v1PodListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodList +instance A.FromJSON V1PodList where + parseJSON = A.withObject "V1PodList" $ \o -> + V1PodList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PodList +instance A.ToJSON V1PodList where + toJSON V1PodList {..} = + _omitNulls + [ "apiVersion" .= v1PodListApiVersion + , "items" .= v1PodListItems + , "kind" .= v1PodListKind + , "metadata" .= v1PodListMetadata + ] + + +-- | Construct a value of type 'V1PodList' (by applying it's required fields, if any) +mkV1PodList + :: [V1Pod] -- ^ 'v1PodListItems': List of pods. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md + -> V1PodList +mkV1PodList v1PodListItems = + V1PodList + { v1PodListApiVersion = Nothing + , v1PodListItems + , v1PodListKind = Nothing + , v1PodListMetadata = Nothing + } + +-- ** V1PodOS +-- | V1PodOS +-- PodOS defines the OS parameters of a pod. +data V1PodOS = V1PodOS + { v1PodOSName :: !(Text) -- ^ /Required/ "name" - Name is the name of the operating system. The currently supported values are linux and windows. Additional value may be defined in future and can be one of: https://github.com/opencontainers/runtime-spec/blob/master/config.md#platform-specific-configuration Clients should expect to handle additional values and treat unrecognized values in this field as os: null + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodOS +instance A.FromJSON V1PodOS where + parseJSON = A.withObject "V1PodOS" $ \o -> + V1PodOS + <$> (o .: "name") + +-- | ToJSON V1PodOS +instance A.ToJSON V1PodOS where + toJSON V1PodOS {..} = + _omitNulls + [ "name" .= v1PodOSName + ] + + +-- | Construct a value of type 'V1PodOS' (by applying it's required fields, if any) +mkV1PodOS + :: Text -- ^ 'v1PodOSName': Name is the name of the operating system. The currently supported values are linux and windows. Additional value may be defined in future and can be one of: https://github.com/opencontainers/runtime-spec/blob/master/config.md#platform-specific-configuration Clients should expect to handle additional values and treat unrecognized values in this field as os: null + -> V1PodOS +mkV1PodOS v1PodOSName = + V1PodOS + { v1PodOSName + } + +-- ** V1PodReadinessGate +-- | V1PodReadinessGate +-- PodReadinessGate contains the reference to a pod condition +data V1PodReadinessGate = V1PodReadinessGate + { v1PodReadinessGateConditionType :: !(Text) -- ^ /Required/ "conditionType" - ConditionType refers to a condition in the pod's condition list with matching type. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodReadinessGate +instance A.FromJSON V1PodReadinessGate where + parseJSON = A.withObject "V1PodReadinessGate" $ \o -> + V1PodReadinessGate + <$> (o .: "conditionType") + +-- | ToJSON V1PodReadinessGate +instance A.ToJSON V1PodReadinessGate where + toJSON V1PodReadinessGate {..} = + _omitNulls + [ "conditionType" .= v1PodReadinessGateConditionType + ] + + +-- | Construct a value of type 'V1PodReadinessGate' (by applying it's required fields, if any) +mkV1PodReadinessGate + :: Text -- ^ 'v1PodReadinessGateConditionType': ConditionType refers to a condition in the pod's condition list with matching type. + -> V1PodReadinessGate +mkV1PodReadinessGate v1PodReadinessGateConditionType = + V1PodReadinessGate + { v1PodReadinessGateConditionType + } + +-- ** V1PodResourceClaim +-- | V1PodResourceClaim +-- PodResourceClaim references exactly one ResourceClaim through a ClaimSource. It adds a name to it that uniquely identifies the ResourceClaim inside the Pod. Containers that need access to the ResourceClaim reference it with this name. +data V1PodResourceClaim = V1PodResourceClaim + { v1PodResourceClaimName :: !(Text) -- ^ /Required/ "name" - Name uniquely identifies this resource claim inside the pod. This must be a DNS_LABEL. + , v1PodResourceClaimSource :: !(Maybe V1ClaimSource) -- ^ "source" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodResourceClaim +instance A.FromJSON V1PodResourceClaim where + parseJSON = A.withObject "V1PodResourceClaim" $ \o -> + V1PodResourceClaim + <$> (o .: "name") + <*> (o .:? "source") + +-- | ToJSON V1PodResourceClaim +instance A.ToJSON V1PodResourceClaim where + toJSON V1PodResourceClaim {..} = + _omitNulls + [ "name" .= v1PodResourceClaimName + , "source" .= v1PodResourceClaimSource + ] + + +-- | Construct a value of type 'V1PodResourceClaim' (by applying it's required fields, if any) +mkV1PodResourceClaim + :: Text -- ^ 'v1PodResourceClaimName': Name uniquely identifies this resource claim inside the pod. This must be a DNS_LABEL. + -> V1PodResourceClaim +mkV1PodResourceClaim v1PodResourceClaimName = + V1PodResourceClaim + { v1PodResourceClaimName + , v1PodResourceClaimSource = Nothing + } + +-- ** V1PodSchedulingGate +-- | V1PodSchedulingGate +-- PodSchedulingGate is associated to a Pod to guard its scheduling. +data V1PodSchedulingGate = V1PodSchedulingGate + { v1PodSchedulingGateName :: !(Text) -- ^ /Required/ "name" - Name of the scheduling gate. Each scheduling gate must have a unique name field. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodSchedulingGate +instance A.FromJSON V1PodSchedulingGate where + parseJSON = A.withObject "V1PodSchedulingGate" $ \o -> + V1PodSchedulingGate + <$> (o .: "name") + +-- | ToJSON V1PodSchedulingGate +instance A.ToJSON V1PodSchedulingGate where + toJSON V1PodSchedulingGate {..} = + _omitNulls + [ "name" .= v1PodSchedulingGateName + ] + + +-- | Construct a value of type 'V1PodSchedulingGate' (by applying it's required fields, if any) +mkV1PodSchedulingGate + :: Text -- ^ 'v1PodSchedulingGateName': Name of the scheduling gate. Each scheduling gate must have a unique name field. + -> V1PodSchedulingGate +mkV1PodSchedulingGate v1PodSchedulingGateName = + V1PodSchedulingGate + { v1PodSchedulingGateName + } + +-- ** V1PodSecurityContext +-- | V1PodSecurityContext +-- PodSecurityContext holds pod-level security attributes and common container settings. Some fields are also present in container.securityContext. Field values of container.securityContext take precedence over field values of PodSecurityContext. +data V1PodSecurityContext = V1PodSecurityContext + { v1PodSecurityContextFsGroup :: !(Maybe Integer) -- ^ "fsGroup" - A special supplemental group that applies to all containers in a pod. Some volume types allow the Kubelet to change the ownership of that volume to be owned by the pod: 1. The owning GID will be the FSGroup 2. The setgid bit is set (new files created in the volume will be owned by FSGroup) 3. The permission bits are OR'd with rw-rw---- If unset, the Kubelet will not modify the ownership and permissions of any volume. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextFsGroupChangePolicy :: !(Maybe Text) -- ^ "fsGroupChangePolicy" - fsGroupChangePolicy defines behavior of changing ownership and permission of the volume before being exposed inside Pod. This field will only apply to volume types which support fsGroup based ownership(and permissions). It will have no effect on ephemeral volume types such as: secret, configmaps and emptydir. Valid values are \"OnRootMismatch\" and \"Always\". If not specified, \"Always\" is used. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextRunAsGroup :: !(Maybe Integer) -- ^ "runAsGroup" - The GID to run the entrypoint of the container process. Uses runtime default if unset. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence for that container. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextRunAsNonRoot :: !(Maybe Bool) -- ^ "runAsNonRoot" - Indicates that the container must run as a non-root user. If true, the Kubelet will validate the image at runtime to ensure that it does not run as UID 0 (root) and fail to start the container if it does. If unset or false, no such validation will be performed. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. + , v1PodSecurityContextRunAsUser :: !(Maybe Integer) -- ^ "runAsUser" - The UID to run the entrypoint of the container process. Defaults to user specified in image metadata if unspecified. May also be set in SecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence for that container. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextSeLinuxOptions :: !(Maybe V1SELinuxOptions) -- ^ "seLinuxOptions" + , v1PodSecurityContextSeccompProfile :: !(Maybe V1SeccompProfile) -- ^ "seccompProfile" + , v1PodSecurityContextSupplementalGroups :: !(Maybe [Integer]) -- ^ "supplementalGroups" - A list of groups applied to the first process run in each container, in addition to the container's primary GID, the fsGroup (if specified), and group memberships defined in the container image for the uid of the container process. If unspecified, no additional groups are added to any container. Note that group memberships defined in the container image for the uid of the container process are still effective, even if they are not included in this list. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextSysctls :: !(Maybe [V1Sysctl]) -- ^ "sysctls" - Sysctls hold a list of namespaced sysctls used for the pod. Pods with unsupported sysctls (by the container runtime) might fail to launch. Note that this field cannot be set when spec.os.name is windows. + , v1PodSecurityContextWindowsOptions :: !(Maybe V1WindowsSecurityContextOptions) -- ^ "windowsOptions" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodSecurityContext +instance A.FromJSON V1PodSecurityContext where + parseJSON = A.withObject "V1PodSecurityContext" $ \o -> + V1PodSecurityContext + <$> (o .:? "fsGroup") + <*> (o .:? "fsGroupChangePolicy") + <*> (o .:? "runAsGroup") + <*> (o .:? "runAsNonRoot") + <*> (o .:? "runAsUser") + <*> (o .:? "seLinuxOptions") + <*> (o .:? "seccompProfile") + <*> (o .:? "supplementalGroups") + <*> (o .:? "sysctls") + <*> (o .:? "windowsOptions") + +-- | ToJSON V1PodSecurityContext +instance A.ToJSON V1PodSecurityContext where + toJSON V1PodSecurityContext {..} = + _omitNulls + [ "fsGroup" .= v1PodSecurityContextFsGroup + , "fsGroupChangePolicy" .= v1PodSecurityContextFsGroupChangePolicy + , "runAsGroup" .= v1PodSecurityContextRunAsGroup + , "runAsNonRoot" .= v1PodSecurityContextRunAsNonRoot + , "runAsUser" .= v1PodSecurityContextRunAsUser + , "seLinuxOptions" .= v1PodSecurityContextSeLinuxOptions + , "seccompProfile" .= v1PodSecurityContextSeccompProfile + , "supplementalGroups" .= v1PodSecurityContextSupplementalGroups + , "sysctls" .= v1PodSecurityContextSysctls + , "windowsOptions" .= v1PodSecurityContextWindowsOptions + ] + + +-- | Construct a value of type 'V1PodSecurityContext' (by applying it's required fields, if any) +mkV1PodSecurityContext + :: V1PodSecurityContext +mkV1PodSecurityContext = + V1PodSecurityContext + { v1PodSecurityContextFsGroup = Nothing + , v1PodSecurityContextFsGroupChangePolicy = Nothing + , v1PodSecurityContextRunAsGroup = Nothing + , v1PodSecurityContextRunAsNonRoot = Nothing + , v1PodSecurityContextRunAsUser = Nothing + , v1PodSecurityContextSeLinuxOptions = Nothing + , v1PodSecurityContextSeccompProfile = Nothing + , v1PodSecurityContextSupplementalGroups = Nothing + , v1PodSecurityContextSysctls = Nothing + , v1PodSecurityContextWindowsOptions = Nothing + } + +-- ** V1PodSpec +-- | V1PodSpec +-- PodSpec is a description of a pod. +data V1PodSpec = V1PodSpec + { v1PodSpecActiveDeadlineSeconds :: !(Maybe Integer) -- ^ "activeDeadlineSeconds" - Optional duration in seconds the pod may be active on the node relative to StartTime before the system will actively try to mark it failed and kill associated containers. Value must be a positive integer. + , v1PodSpecAffinity :: !(Maybe V1Affinity) -- ^ "affinity" + , v1PodSpecAutomountServiceAccountToken :: !(Maybe Bool) -- ^ "automountServiceAccountToken" - AutomountServiceAccountToken indicates whether a service account token should be automatically mounted. + , v1PodSpecContainers :: !([V1Container]) -- ^ /Required/ "containers" - List of containers belonging to the pod. Containers cannot currently be added or removed. There must be at least one container in a Pod. Cannot be updated. + , v1PodSpecDnsConfig :: !(Maybe V1PodDNSConfig) -- ^ "dnsConfig" + , v1PodSpecDnsPolicy :: !(Maybe Text) -- ^ "dnsPolicy" - Set DNS policy for the pod. Defaults to \"ClusterFirst\". Valid values are 'ClusterFirstWithHostNet', 'ClusterFirst', 'Default' or 'None'. DNS parameters given in DNSConfig will be merged with the policy selected with DNSPolicy. To have DNS options set along with hostNetwork, you have to specify DNS policy explicitly to 'ClusterFirstWithHostNet'. + , v1PodSpecEnableServiceLinks :: !(Maybe Bool) -- ^ "enableServiceLinks" - EnableServiceLinks indicates whether information about services should be injected into pod's environment variables, matching the syntax of Docker links. Optional: Defaults to true. + , v1PodSpecEphemeralContainers :: !(Maybe [V1EphemeralContainer]) -- ^ "ephemeralContainers" - List of ephemeral containers run in this pod. Ephemeral containers may be run in an existing pod to perform user-initiated actions such as debugging. This list cannot be specified when creating a pod, and it cannot be modified by updating the pod spec. In order to add an ephemeral container to an existing pod, use the pod's ephemeralcontainers subresource. + , v1PodSpecHostAliases :: !(Maybe [V1HostAlias]) -- ^ "hostAliases" - HostAliases is an optional list of hosts and IPs that will be injected into the pod's hosts file if specified. This is only valid for non-hostNetwork pods. + , v1PodSpecHostIpc :: !(Maybe Bool) -- ^ "hostIPC" - Use the host's ipc namespace. Optional: Default to false. + , v1PodSpecHostNetwork :: !(Maybe Bool) -- ^ "hostNetwork" - Host networking requested for this pod. Use the host's network namespace. If this option is set, the ports that will be used must be specified. Default to false. + , v1PodSpecHostPid :: !(Maybe Bool) -- ^ "hostPID" - Use the host's pid namespace. Optional: Default to false. + , v1PodSpecHostUsers :: !(Maybe Bool) -- ^ "hostUsers" - Use the host's user namespace. Optional: Default to true. If set to true or not present, the pod will be run in the host user namespace, useful for when the pod needs a feature only available to the host user namespace, such as loading a kernel module with CAP_SYS_MODULE. When set to false, a new userns is created for the pod. Setting false is useful for mitigating container breakout vulnerabilities even allowing users to run their containers as root without actually having root privileges on the host. This field is alpha-level and is only honored by servers that enable the UserNamespacesSupport feature. + , v1PodSpecHostname :: !(Maybe Text) -- ^ "hostname" - Specifies the hostname of the Pod If not specified, the pod's hostname will be set to a system-defined value. + , v1PodSpecImagePullSecrets :: !(Maybe [V1LocalObjectReference]) -- ^ "imagePullSecrets" - ImagePullSecrets is an optional list of references to secrets in the same namespace to use for pulling any of the images used by this PodSpec. If specified, these secrets will be passed to individual puller implementations for them to use. More info: https://kubernetes.io/docs/concepts/containers/images#specifying-imagepullsecrets-on-a-pod + , v1PodSpecInitContainers :: !(Maybe [V1Container]) -- ^ "initContainers" - List of initialization containers belonging to the pod. Init containers are executed in order prior to containers being started. If any init container fails, the pod is considered to have failed and is handled according to its restartPolicy. The name for an init container or normal container must be unique among all containers. Init containers may not have Lifecycle actions, Readiness probes, Liveness probes, or Startup probes. The resourceRequirements of an init container are taken into account during scheduling by finding the highest request/limit for each resource type, and then using the max of of that value or the sum of the normal containers. Limits are applied to init containers in a similar fashion. Init containers cannot currently be added or removed. Cannot be updated. More info: https://kubernetes.io/docs/concepts/workloads/pods/init-containers/ + , v1PodSpecNodeName :: !(Maybe Text) -- ^ "nodeName" - NodeName is a request to schedule this pod onto a specific node. If it is non-empty, the scheduler simply schedules this pod onto that node, assuming that it fits resource requirements. + , v1PodSpecNodeSelector :: !(Maybe (Map.Map String Text)) -- ^ "nodeSelector" - NodeSelector is a selector which must be true for the pod to fit on a node. Selector which must match a node's labels for the pod to be scheduled on that node. More info: https://kubernetes.io/docs/concepts/configuration/assign-pod-node/ + , v1PodSpecOs :: !(Maybe V1PodOS) -- ^ "os" + , v1PodSpecOverhead :: !(Maybe (Map.Map String Quantity)) -- ^ "overhead" - Overhead represents the resource overhead associated with running a pod for a given RuntimeClass. This field will be autopopulated at admission time by the RuntimeClass admission controller. If the RuntimeClass admission controller is enabled, overhead must not be set in Pod create requests. The RuntimeClass admission controller will reject Pod create requests which have the overhead already set. If RuntimeClass is configured and selected in the PodSpec, Overhead will be set to the value defined in the corresponding RuntimeClass, otherwise it will remain unset and treated as zero. More info: https://git.k8s.io/enhancements/keps/sig-node/688-pod-overhead/README.md + , v1PodSpecPreemptionPolicy :: !(Maybe Text) -- ^ "preemptionPolicy" - PreemptionPolicy is the Policy for preempting pods with lower priority. One of Never, PreemptLowerPriority. Defaults to PreemptLowerPriority if unset. + , v1PodSpecPriority :: !(Maybe Int) -- ^ "priority" - The priority value. Various system components use this field to find the priority of the pod. When Priority Admission Controller is enabled, it prevents users from setting this field. The admission controller populates this field from PriorityClassName. The higher the value, the higher the priority. + , v1PodSpecPriorityClassName :: !(Maybe Text) -- ^ "priorityClassName" - If specified, indicates the pod's priority. \"system-node-critical\" and \"system-cluster-critical\" are two special keywords which indicate the highest priorities with the former being the highest priority. Any other name must be defined by creating a PriorityClass object with that name. If not specified, the pod priority will be default or zero if there is no default. + , v1PodSpecReadinessGates :: !(Maybe [V1PodReadinessGate]) -- ^ "readinessGates" - If specified, all readiness gates will be evaluated for pod readiness. A pod is ready when all its containers are ready AND all conditions specified in the readiness gates have status equal to \"True\" More info: https://git.k8s.io/enhancements/keps/sig-network/580-pod-readiness-gates + , v1PodSpecResourceClaims :: !(Maybe [V1PodResourceClaim]) -- ^ "resourceClaims" - ResourceClaims defines which ResourceClaims must be allocated and reserved before the Pod is allowed to start. The resources will be made available to those containers which consume them by name. This is an alpha field and requires enabling the DynamicResourceAllocation feature gate. This field is immutable. + , v1PodSpecRestartPolicy :: !(Maybe Text) -- ^ "restartPolicy" - Restart policy for all containers within the pod. One of Always, OnFailure, Never. In some contexts, only a subset of those values may be permitted. Default to Always. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle/#restart-policy + , v1PodSpecRuntimeClassName :: !(Maybe Text) -- ^ "runtimeClassName" - RuntimeClassName refers to a RuntimeClass object in the node.k8s.io group, which should be used to run this pod. If no RuntimeClass resource matches the named class, the pod will not be run. If unset or empty, the \"legacy\" RuntimeClass will be used, which is an implicit class with an empty definition that uses the default runtime handler. More info: https://git.k8s.io/enhancements/keps/sig-node/585-runtime-class + , v1PodSpecSchedulerName :: !(Maybe Text) -- ^ "schedulerName" - If specified, the pod will be dispatched by specified scheduler. If not specified, the pod will be dispatched by default scheduler. + , v1PodSpecSchedulingGates :: !(Maybe [V1PodSchedulingGate]) -- ^ "schedulingGates" - SchedulingGates is an opaque list of values that if specified will block scheduling the pod. If schedulingGates is not empty, the pod will stay in the SchedulingGated state and the scheduler will not attempt to schedule the pod. SchedulingGates can only be set at pod creation time, and be removed only afterwards. This is a beta feature enabled by the PodSchedulingReadiness feature gate. + , v1PodSpecSecurityContext :: !(Maybe V1PodSecurityContext) -- ^ "securityContext" + , v1PodSpecServiceAccount :: !(Maybe Text) -- ^ "serviceAccount" - DeprecatedServiceAccount is a depreciated alias for ServiceAccountName. Deprecated: Use serviceAccountName instead. + , v1PodSpecServiceAccountName :: !(Maybe Text) -- ^ "serviceAccountName" - ServiceAccountName is the name of the ServiceAccount to use to run this pod. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ + , v1PodSpecSetHostnameAsFqdn :: !(Maybe Bool) -- ^ "setHostnameAsFQDN" - If true the pod's hostname will be configured as the pod's FQDN, rather than the leaf name (the default). In Linux containers, this means setting the FQDN in the hostname field of the kernel (the nodename field of struct utsname). In Windows containers, this means setting the registry value of hostname for the registry key HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters to FQDN. If a pod does not have FQDN, this has no effect. Default to false. + , v1PodSpecShareProcessNamespace :: !(Maybe Bool) -- ^ "shareProcessNamespace" - Share a single process namespace between all of the containers in a pod. When this is set containers will be able to view and signal processes from other containers in the same pod, and the first process in each container will not be assigned PID 1. HostPID and ShareProcessNamespace cannot both be set. Optional: Default to false. + , v1PodSpecSubdomain :: !(Maybe Text) -- ^ "subdomain" - If specified, the fully qualified Pod hostname will be \"<hostname>.<subdomain>.<pod namespace>.svc.<cluster domain>\". If not specified, the pod will not have a domainname at all. + , v1PodSpecTerminationGracePeriodSeconds :: !(Maybe Integer) -- ^ "terminationGracePeriodSeconds" - Optional duration in seconds the pod needs to terminate gracefully. May be decreased in delete request. Value must be non-negative integer. The value zero indicates stop immediately via the kill signal (no opportunity to shut down). If this value is nil, the default grace period will be used instead. The grace period is the duration in seconds after the processes running in the pod are sent a termination signal and the time when the processes are forcibly halted with a kill signal. Set this value longer than the expected cleanup time for your process. Defaults to 30 seconds. + , v1PodSpecTolerations :: !(Maybe [V1Toleration]) -- ^ "tolerations" - If specified, the pod's tolerations. + , v1PodSpecTopologySpreadConstraints :: !(Maybe [V1TopologySpreadConstraint]) -- ^ "topologySpreadConstraints" - TopologySpreadConstraints describes how a group of pods ought to spread across topology domains. Scheduler will schedule pods in a way which abides by the constraints. All topologySpreadConstraints are ANDed. + , v1PodSpecVolumes :: !(Maybe [V1Volume]) -- ^ "volumes" - List of volumes that can be mounted by containers belonging to the pod. More info: https://kubernetes.io/docs/concepts/storage/volumes + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodSpec +instance A.FromJSON V1PodSpec where + parseJSON = A.withObject "V1PodSpec" $ \o -> + V1PodSpec + <$> (o .:? "activeDeadlineSeconds") + <*> (o .:? "affinity") + <*> (o .:? "automountServiceAccountToken") + <*> (o .: "containers") + <*> (o .:? "dnsConfig") + <*> (o .:? "dnsPolicy") + <*> (o .:? "enableServiceLinks") + <*> (o .:? "ephemeralContainers") + <*> (o .:? "hostAliases") + <*> (o .:? "hostIPC") + <*> (o .:? "hostNetwork") + <*> (o .:? "hostPID") + <*> (o .:? "hostUsers") + <*> (o .:? "hostname") + <*> (o .:? "imagePullSecrets") + <*> (o .:? "initContainers") + <*> (o .:? "nodeName") + <*> (o .:? "nodeSelector") + <*> (o .:? "os") + <*> (o .:? "overhead") + <*> (o .:? "preemptionPolicy") + <*> (o .:? "priority") + <*> (o .:? "priorityClassName") + <*> (o .:? "readinessGates") + <*> (o .:? "resourceClaims") + <*> (o .:? "restartPolicy") + <*> (o .:? "runtimeClassName") + <*> (o .:? "schedulerName") + <*> (o .:? "schedulingGates") + <*> (o .:? "securityContext") + <*> (o .:? "serviceAccount") + <*> (o .:? "serviceAccountName") + <*> (o .:? "setHostnameAsFQDN") + <*> (o .:? "shareProcessNamespace") + <*> (o .:? "subdomain") + <*> (o .:? "terminationGracePeriodSeconds") + <*> (o .:? "tolerations") + <*> (o .:? "topologySpreadConstraints") + <*> (o .:? "volumes") + +-- | ToJSON V1PodSpec +instance A.ToJSON V1PodSpec where + toJSON V1PodSpec {..} = + _omitNulls + [ "activeDeadlineSeconds" .= v1PodSpecActiveDeadlineSeconds + , "affinity" .= v1PodSpecAffinity + , "automountServiceAccountToken" .= v1PodSpecAutomountServiceAccountToken + , "containers" .= v1PodSpecContainers + , "dnsConfig" .= v1PodSpecDnsConfig + , "dnsPolicy" .= v1PodSpecDnsPolicy + , "enableServiceLinks" .= v1PodSpecEnableServiceLinks + , "ephemeralContainers" .= v1PodSpecEphemeralContainers + , "hostAliases" .= v1PodSpecHostAliases + , "hostIPC" .= v1PodSpecHostIpc + , "hostNetwork" .= v1PodSpecHostNetwork + , "hostPID" .= v1PodSpecHostPid + , "hostUsers" .= v1PodSpecHostUsers + , "hostname" .= v1PodSpecHostname + , "imagePullSecrets" .= v1PodSpecImagePullSecrets + , "initContainers" .= v1PodSpecInitContainers + , "nodeName" .= v1PodSpecNodeName + , "nodeSelector" .= v1PodSpecNodeSelector + , "os" .= v1PodSpecOs + , "overhead" .= v1PodSpecOverhead + , "preemptionPolicy" .= v1PodSpecPreemptionPolicy + , "priority" .= v1PodSpecPriority + , "priorityClassName" .= v1PodSpecPriorityClassName + , "readinessGates" .= v1PodSpecReadinessGates + , "resourceClaims" .= v1PodSpecResourceClaims + , "restartPolicy" .= v1PodSpecRestartPolicy + , "runtimeClassName" .= v1PodSpecRuntimeClassName + , "schedulerName" .= v1PodSpecSchedulerName + , "schedulingGates" .= v1PodSpecSchedulingGates + , "securityContext" .= v1PodSpecSecurityContext + , "serviceAccount" .= v1PodSpecServiceAccount + , "serviceAccountName" .= v1PodSpecServiceAccountName + , "setHostnameAsFQDN" .= v1PodSpecSetHostnameAsFqdn + , "shareProcessNamespace" .= v1PodSpecShareProcessNamespace + , "subdomain" .= v1PodSpecSubdomain + , "terminationGracePeriodSeconds" .= v1PodSpecTerminationGracePeriodSeconds + , "tolerations" .= v1PodSpecTolerations + , "topologySpreadConstraints" .= v1PodSpecTopologySpreadConstraints + , "volumes" .= v1PodSpecVolumes + ] + + +-- | Construct a value of type 'V1PodSpec' (by applying it's required fields, if any) +mkV1PodSpec + :: [V1Container] -- ^ 'v1PodSpecContainers': List of containers belonging to the pod. Containers cannot currently be added or removed. There must be at least one container in a Pod. Cannot be updated. + -> V1PodSpec +mkV1PodSpec v1PodSpecContainers = + V1PodSpec + { v1PodSpecActiveDeadlineSeconds = Nothing + , v1PodSpecAffinity = Nothing + , v1PodSpecAutomountServiceAccountToken = Nothing + , v1PodSpecContainers + , v1PodSpecDnsConfig = Nothing + , v1PodSpecDnsPolicy = Nothing + , v1PodSpecEnableServiceLinks = Nothing + , v1PodSpecEphemeralContainers = Nothing + , v1PodSpecHostAliases = Nothing + , v1PodSpecHostIpc = Nothing + , v1PodSpecHostNetwork = Nothing + , v1PodSpecHostPid = Nothing + , v1PodSpecHostUsers = Nothing + , v1PodSpecHostname = Nothing + , v1PodSpecImagePullSecrets = Nothing + , v1PodSpecInitContainers = Nothing + , v1PodSpecNodeName = Nothing + , v1PodSpecNodeSelector = Nothing + , v1PodSpecOs = Nothing + , v1PodSpecOverhead = Nothing + , v1PodSpecPreemptionPolicy = Nothing + , v1PodSpecPriority = Nothing + , v1PodSpecPriorityClassName = Nothing + , v1PodSpecReadinessGates = Nothing + , v1PodSpecResourceClaims = Nothing + , v1PodSpecRestartPolicy = Nothing + , v1PodSpecRuntimeClassName = Nothing + , v1PodSpecSchedulerName = Nothing + , v1PodSpecSchedulingGates = Nothing + , v1PodSpecSecurityContext = Nothing + , v1PodSpecServiceAccount = Nothing + , v1PodSpecServiceAccountName = Nothing + , v1PodSpecSetHostnameAsFqdn = Nothing + , v1PodSpecShareProcessNamespace = Nothing + , v1PodSpecSubdomain = Nothing + , v1PodSpecTerminationGracePeriodSeconds = Nothing + , v1PodSpecTolerations = Nothing + , v1PodSpecTopologySpreadConstraints = Nothing + , v1PodSpecVolumes = Nothing + } + +-- ** V1PodStatus +-- | V1PodStatus +-- PodStatus represents information about the status of a pod. Status may trail the actual state of a system, especially if the node that hosts the pod cannot contact the control plane. +data V1PodStatus = V1PodStatus + { v1PodStatusConditions :: !(Maybe [V1PodCondition]) -- ^ "conditions" - Current service state of pod. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-conditions + , v1PodStatusContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "containerStatuses" - The list has one entry per container in the manifest. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-and-container-status + , v1PodStatusEphemeralContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "ephemeralContainerStatuses" - Status for any ephemeral containers that have run in this pod. + , v1PodStatusHostIp :: !(Maybe Text) -- ^ "hostIP" - IP address of the host to which the pod is assigned. Empty if not yet scheduled. + , v1PodStatusInitContainerStatuses :: !(Maybe [V1ContainerStatus]) -- ^ "initContainerStatuses" - The list has one entry per init container in the manifest. The most recent successful init container will have ready = true, the most recently started container will have startTime set. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-and-container-status + , v1PodStatusMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about why the pod is in this condition. + , v1PodStatusNominatedNodeName :: !(Maybe Text) -- ^ "nominatedNodeName" - nominatedNodeName is set only when this pod preempts other pods on the node, but it cannot be scheduled right away as preemption victims receive their graceful termination periods. This field does not guarantee that the pod will be scheduled on this node. Scheduler may decide to place the pod elsewhere if other nodes become available sooner. Scheduler may also decide to give the resources on this node to a higher priority pod that is created after preemption. As a result, this field may be different than PodSpec.nodeName when the pod is scheduled. + , v1PodStatusPhase :: !(Maybe Text) -- ^ "phase" - The phase of a Pod is a simple, high-level summary of where the Pod is in its lifecycle. The conditions array, the reason and message fields, and the individual container status arrays contain more detail about the pod's status. There are five possible phase values: Pending: The pod has been accepted by the Kubernetes system, but one or more of the container images has not been created. This includes time before being scheduled as well as time spent downloading images over the network, which could take a while. Running: The pod has been bound to a node, and all of the containers have been created. At least one container is still running, or is in the process of starting or restarting. Succeeded: All containers in the pod have terminated in success, and will not be restarted. Failed: All containers in the pod have terminated, and at least one container has terminated in failure. The container either exited with non-zero status or was terminated by the system. Unknown: For some reason the state of the pod could not be obtained, typically due to an error in communicating with the host of the pod. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#pod-phase + , v1PodStatusPodIp :: !(Maybe Text) -- ^ "podIP" - IP address allocated to the pod. Routable at least within the cluster. Empty if not yet allocated. + , v1PodStatusPodIps :: !(Maybe [V1PodIP]) -- ^ "podIPs" - podIPs holds the IP addresses allocated to the pod. If this field is specified, the 0th entry must match the podIP field. Pods may be allocated at most 1 value for each of IPv4 and IPv6. This list is empty if no IPs have been allocated yet. + , v1PodStatusQosClass :: !(Maybe Text) -- ^ "qosClass" - The Quality of Service (QOS) classification assigned to the pod based on resource requirements See PodQOSClass type for available QOS classes More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-qos/#quality-of-service-classes + , v1PodStatusReason :: !(Maybe Text) -- ^ "reason" - A brief CamelCase message indicating details about why the pod is in this state. e.g. 'Evicted' + , v1PodStatusResize :: !(Maybe Text) -- ^ "resize" - Status of resources resize desired for pod's containers. It is empty if no resources resize is pending. Any changes to container resources will automatically set this to \"Proposed\" + , v1PodStatusStartTime :: !(Maybe DateTime) -- ^ "startTime" - RFC 3339 date and time at which the object was acknowledged by the Kubelet. This is before the Kubelet pulled the container image(s) for the pod. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodStatus +instance A.FromJSON V1PodStatus where + parseJSON = A.withObject "V1PodStatus" $ \o -> + V1PodStatus + <$> (o .:? "conditions") + <*> (o .:? "containerStatuses") + <*> (o .:? "ephemeralContainerStatuses") + <*> (o .:? "hostIP") + <*> (o .:? "initContainerStatuses") + <*> (o .:? "message") + <*> (o .:? "nominatedNodeName") + <*> (o .:? "phase") + <*> (o .:? "podIP") + <*> (o .:? "podIPs") + <*> (o .:? "qosClass") + <*> (o .:? "reason") + <*> (o .:? "resize") + <*> (o .:? "startTime") + +-- | ToJSON V1PodStatus +instance A.ToJSON V1PodStatus where + toJSON V1PodStatus {..} = + _omitNulls + [ "conditions" .= v1PodStatusConditions + , "containerStatuses" .= v1PodStatusContainerStatuses + , "ephemeralContainerStatuses" .= v1PodStatusEphemeralContainerStatuses + , "hostIP" .= v1PodStatusHostIp + , "initContainerStatuses" .= v1PodStatusInitContainerStatuses + , "message" .= v1PodStatusMessage + , "nominatedNodeName" .= v1PodStatusNominatedNodeName + , "phase" .= v1PodStatusPhase + , "podIP" .= v1PodStatusPodIp + , "podIPs" .= v1PodStatusPodIps + , "qosClass" .= v1PodStatusQosClass + , "reason" .= v1PodStatusReason + , "resize" .= v1PodStatusResize + , "startTime" .= v1PodStatusStartTime + ] + + +-- | Construct a value of type 'V1PodStatus' (by applying it's required fields, if any) +mkV1PodStatus + :: V1PodStatus +mkV1PodStatus = + V1PodStatus + { v1PodStatusConditions = Nothing + , v1PodStatusContainerStatuses = Nothing + , v1PodStatusEphemeralContainerStatuses = Nothing + , v1PodStatusHostIp = Nothing + , v1PodStatusInitContainerStatuses = Nothing + , v1PodStatusMessage = Nothing + , v1PodStatusNominatedNodeName = Nothing + , v1PodStatusPhase = Nothing + , v1PodStatusPodIp = Nothing + , v1PodStatusPodIps = Nothing + , v1PodStatusQosClass = Nothing + , v1PodStatusReason = Nothing + , v1PodStatusResize = Nothing + , v1PodStatusStartTime = Nothing + } + +-- ** V1PodTemplate +-- | V1PodTemplate +-- PodTemplate describes a template for creating copies of a predefined pod. +data V1PodTemplate = V1PodTemplate + { v1PodTemplateApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodTemplateKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PodTemplateTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodTemplate +instance A.FromJSON V1PodTemplate where + parseJSON = A.withObject "V1PodTemplate" $ \o -> + V1PodTemplate + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "template") + +-- | ToJSON V1PodTemplate +instance A.ToJSON V1PodTemplate where + toJSON V1PodTemplate {..} = + _omitNulls + [ "apiVersion" .= v1PodTemplateApiVersion + , "kind" .= v1PodTemplateKind + , "metadata" .= v1PodTemplateMetadata + , "template" .= v1PodTemplateTemplate + ] + + +-- | Construct a value of type 'V1PodTemplate' (by applying it's required fields, if any) +mkV1PodTemplate + :: V1PodTemplate +mkV1PodTemplate = + V1PodTemplate + { v1PodTemplateApiVersion = Nothing + , v1PodTemplateKind = Nothing + , v1PodTemplateMetadata = Nothing + , v1PodTemplateTemplate = Nothing + } + +-- ** V1PodTemplateList +-- | V1PodTemplateList +-- PodTemplateList is a list of PodTemplates. +data V1PodTemplateList = V1PodTemplateList + { v1PodTemplateListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PodTemplateListItems :: !([V1PodTemplate]) -- ^ /Required/ "items" - List of pod templates + , v1PodTemplateListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PodTemplateListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodTemplateList +instance A.FromJSON V1PodTemplateList where + parseJSON = A.withObject "V1PodTemplateList" $ \o -> + V1PodTemplateList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PodTemplateList +instance A.ToJSON V1PodTemplateList where + toJSON V1PodTemplateList {..} = + _omitNulls + [ "apiVersion" .= v1PodTemplateListApiVersion + , "items" .= v1PodTemplateListItems + , "kind" .= v1PodTemplateListKind + , "metadata" .= v1PodTemplateListMetadata + ] + + +-- | Construct a value of type 'V1PodTemplateList' (by applying it's required fields, if any) +mkV1PodTemplateList + :: [V1PodTemplate] -- ^ 'v1PodTemplateListItems': List of pod templates + -> V1PodTemplateList +mkV1PodTemplateList v1PodTemplateListItems = + V1PodTemplateList + { v1PodTemplateListApiVersion = Nothing + , v1PodTemplateListItems + , v1PodTemplateListKind = Nothing + , v1PodTemplateListMetadata = Nothing + } + +-- ** V1PodTemplateSpec +-- | V1PodTemplateSpec +-- PodTemplateSpec describes the data a pod should have when created from a template +data V1PodTemplateSpec = V1PodTemplateSpec + { v1PodTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PodTemplateSpecSpec :: !(Maybe V1PodSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PodTemplateSpec +instance A.FromJSON V1PodTemplateSpec where + parseJSON = A.withObject "V1PodTemplateSpec" $ \o -> + V1PodTemplateSpec + <$> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1PodTemplateSpec +instance A.ToJSON V1PodTemplateSpec where + toJSON V1PodTemplateSpec {..} = + _omitNulls + [ "metadata" .= v1PodTemplateSpecMetadata + , "spec" .= v1PodTemplateSpecSpec + ] + + +-- | Construct a value of type 'V1PodTemplateSpec' (by applying it's required fields, if any) +mkV1PodTemplateSpec + :: V1PodTemplateSpec +mkV1PodTemplateSpec = + V1PodTemplateSpec + { v1PodTemplateSpecMetadata = Nothing + , v1PodTemplateSpecSpec = Nothing + } + +-- ** V1PolicyRule +-- | V1PolicyRule +-- PolicyRule holds information that describes a policy rule, but does not contain information about who the rule applies to or which namespace the rule applies to. +data V1PolicyRule = V1PolicyRule + { v1PolicyRuleApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the name of the APIGroup that contains the resources. If multiple API groups are specified, any action requested against one of the enumerated resources in any API group will be allowed. \"\" represents the core API group and \"*\" represents all API groups. + , v1PolicyRuleNonResourceUrls :: !(Maybe [Text]) -- ^ "nonResourceURLs" - NonResourceURLs is a set of partial urls that a user should have access to. *s are allowed, but only as the full, final step in the path Since non-resource URLs are not namespaced, this field is only applicable for ClusterRoles referenced from a ClusterRoleBinding. Rules can either apply to API resources (such as \"pods\" or \"secrets\") or non-resource URL paths (such as \"/api\"), but not both. + , v1PolicyRuleResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. + , v1PolicyRuleResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. '*' represents all resources. + , v1PolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verbs is a list of Verbs that apply to ALL the ResourceKinds contained in this rule. '*' represents all verbs. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PolicyRule +instance A.FromJSON V1PolicyRule where + parseJSON = A.withObject "V1PolicyRule" $ \o -> + V1PolicyRule + <$> (o .:? "apiGroups") + <*> (o .:? "nonResourceURLs") + <*> (o .:? "resourceNames") + <*> (o .:? "resources") + <*> (o .: "verbs") + +-- | ToJSON V1PolicyRule +instance A.ToJSON V1PolicyRule where + toJSON V1PolicyRule {..} = + _omitNulls + [ "apiGroups" .= v1PolicyRuleApiGroups + , "nonResourceURLs" .= v1PolicyRuleNonResourceUrls + , "resourceNames" .= v1PolicyRuleResourceNames + , "resources" .= v1PolicyRuleResources + , "verbs" .= v1PolicyRuleVerbs + ] + + +-- | Construct a value of type 'V1PolicyRule' (by applying it's required fields, if any) +mkV1PolicyRule + :: [Text] -- ^ 'v1PolicyRuleVerbs': Verbs is a list of Verbs that apply to ALL the ResourceKinds contained in this rule. '*' represents all verbs. + -> V1PolicyRule +mkV1PolicyRule v1PolicyRuleVerbs = + V1PolicyRule + { v1PolicyRuleApiGroups = Nothing + , v1PolicyRuleNonResourceUrls = Nothing + , v1PolicyRuleResourceNames = Nothing + , v1PolicyRuleResources = Nothing + , v1PolicyRuleVerbs + } + +-- ** V1PortStatus +-- | V1PortStatus +data V1PortStatus = V1PortStatus + { v1PortStatusError :: !(Maybe Text) -- ^ "error" - Error is to record the problem with the service port The format of the error shall comply with the following rules: - built-in error values shall be specified in this file and those shall use CamelCase names - cloud provider specific error values must have names that comply with the format foo.example.com/CamelCase. + , v1PortStatusPort :: !(Int) -- ^ /Required/ "port" - Port is the port number of the service port of which status is recorded here + , v1PortStatusProtocol :: !(Text) -- ^ /Required/ "protocol" - Protocol is the protocol of the service port of which status is recorded here The supported values are: \"TCP\", \"UDP\", \"SCTP\" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PortStatus +instance A.FromJSON V1PortStatus where + parseJSON = A.withObject "V1PortStatus" $ \o -> + V1PortStatus + <$> (o .:? "error") + <*> (o .: "port") + <*> (o .: "protocol") + +-- | ToJSON V1PortStatus +instance A.ToJSON V1PortStatus where + toJSON V1PortStatus {..} = + _omitNulls + [ "error" .= v1PortStatusError + , "port" .= v1PortStatusPort + , "protocol" .= v1PortStatusProtocol + ] + + +-- | Construct a value of type 'V1PortStatus' (by applying it's required fields, if any) +mkV1PortStatus + :: Int -- ^ 'v1PortStatusPort': Port is the port number of the service port of which status is recorded here + -> Text -- ^ 'v1PortStatusProtocol': Protocol is the protocol of the service port of which status is recorded here The supported values are: \"TCP\", \"UDP\", \"SCTP\" + -> V1PortStatus +mkV1PortStatus v1PortStatusPort v1PortStatusProtocol = + V1PortStatus + { v1PortStatusError = Nothing + , v1PortStatusPort + , v1PortStatusProtocol + } + +-- ** V1PortworxVolumeSource +-- | V1PortworxVolumeSource +-- PortworxVolumeSource represents a Portworx volume resource. +data V1PortworxVolumeSource = V1PortworxVolumeSource + { v1PortworxVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fSType represents the filesystem type to mount Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1PortworxVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1PortworxVolumeSourceVolumeId :: !(Text) -- ^ /Required/ "volumeID" - volumeID uniquely identifies a Portworx volume + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PortworxVolumeSource +instance A.FromJSON V1PortworxVolumeSource where + parseJSON = A.withObject "V1PortworxVolumeSource" $ \o -> + V1PortworxVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "readOnly") + <*> (o .: "volumeID") + +-- | ToJSON V1PortworxVolumeSource +instance A.ToJSON V1PortworxVolumeSource where + toJSON V1PortworxVolumeSource {..} = + _omitNulls + [ "fsType" .= v1PortworxVolumeSourceFsType + , "readOnly" .= v1PortworxVolumeSourceReadOnly + , "volumeID" .= v1PortworxVolumeSourceVolumeId + ] + + +-- | Construct a value of type 'V1PortworxVolumeSource' (by applying it's required fields, if any) +mkV1PortworxVolumeSource + :: Text -- ^ 'v1PortworxVolumeSourceVolumeId': volumeID uniquely identifies a Portworx volume + -> V1PortworxVolumeSource +mkV1PortworxVolumeSource v1PortworxVolumeSourceVolumeId = + V1PortworxVolumeSource + { v1PortworxVolumeSourceFsType = Nothing + , v1PortworxVolumeSourceReadOnly = Nothing + , v1PortworxVolumeSourceVolumeId + } + +-- ** V1Preconditions +-- | V1Preconditions +-- Preconditions must be fulfilled before an operation (update, delete, etc.) is carried out. +data V1Preconditions = V1Preconditions + { v1PreconditionsResourceVersion :: !(Maybe Text) -- ^ "resourceVersion" - Specifies the target ResourceVersion + , v1PreconditionsUid :: !(Maybe Text) -- ^ "uid" - Specifies the target UID. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Preconditions +instance A.FromJSON V1Preconditions where + parseJSON = A.withObject "V1Preconditions" $ \o -> + V1Preconditions + <$> (o .:? "resourceVersion") + <*> (o .:? "uid") + +-- | ToJSON V1Preconditions +instance A.ToJSON V1Preconditions where + toJSON V1Preconditions {..} = + _omitNulls + [ "resourceVersion" .= v1PreconditionsResourceVersion + , "uid" .= v1PreconditionsUid + ] + + +-- | Construct a value of type 'V1Preconditions' (by applying it's required fields, if any) +mkV1Preconditions + :: V1Preconditions +mkV1Preconditions = + V1Preconditions + { v1PreconditionsResourceVersion = Nothing + , v1PreconditionsUid = Nothing + } + +-- ** V1PreferredSchedulingTerm +-- | V1PreferredSchedulingTerm +-- An empty preferred scheduling term matches all objects with implicit weight 0 (i.e. it's a no-op). A null preferred scheduling term matches no objects (i.e. is also a no-op). +data V1PreferredSchedulingTerm = V1PreferredSchedulingTerm + { v1PreferredSchedulingTermPreference :: !(V1NodeSelectorTerm) -- ^ /Required/ "preference" + , v1PreferredSchedulingTermWeight :: !(Int) -- ^ /Required/ "weight" - Weight associated with matching the corresponding nodeSelectorTerm, in the range 1-100. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PreferredSchedulingTerm +instance A.FromJSON V1PreferredSchedulingTerm where + parseJSON = A.withObject "V1PreferredSchedulingTerm" $ \o -> + V1PreferredSchedulingTerm + <$> (o .: "preference") + <*> (o .: "weight") + +-- | ToJSON V1PreferredSchedulingTerm +instance A.ToJSON V1PreferredSchedulingTerm where + toJSON V1PreferredSchedulingTerm {..} = + _omitNulls + [ "preference" .= v1PreferredSchedulingTermPreference + , "weight" .= v1PreferredSchedulingTermWeight + ] + + +-- | Construct a value of type 'V1PreferredSchedulingTerm' (by applying it's required fields, if any) +mkV1PreferredSchedulingTerm + :: V1NodeSelectorTerm -- ^ 'v1PreferredSchedulingTermPreference' + -> Int -- ^ 'v1PreferredSchedulingTermWeight': Weight associated with matching the corresponding nodeSelectorTerm, in the range 1-100. + -> V1PreferredSchedulingTerm +mkV1PreferredSchedulingTerm v1PreferredSchedulingTermPreference v1PreferredSchedulingTermWeight = + V1PreferredSchedulingTerm + { v1PreferredSchedulingTermPreference + , v1PreferredSchedulingTermWeight + } + +-- ** V1PriorityClass +-- | V1PriorityClass +-- PriorityClass defines mapping from a priority class name to the priority integer value. The value can be any valid integer. +data V1PriorityClass = V1PriorityClass + { v1PriorityClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PriorityClassDescription :: !(Maybe Text) -- ^ "description" - description is an arbitrary string that usually provides guidelines on when this priority class should be used. + , v1PriorityClassGlobalDefault :: !(Maybe Bool) -- ^ "globalDefault" - globalDefault specifies whether this PriorityClass should be considered as the default priority for pods that do not have any priority class. Only one PriorityClass can be marked as `globalDefault`. However, if more than one PriorityClasses exists with their `globalDefault` field set to true, the smallest value of such global default PriorityClasses will be used as the default priority. + , v1PriorityClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PriorityClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1PriorityClassPreemptionPolicy :: !(Maybe Text) -- ^ "preemptionPolicy" - preemptionPolicy is the Policy for preempting pods with lower priority. One of Never, PreemptLowerPriority. Defaults to PreemptLowerPriority if unset. + , v1PriorityClassValue :: !(Int) -- ^ /Required/ "value" - value represents the integer value of this priority class. This is the actual priority that pods receive when they have the name of this class in their pod spec. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PriorityClass +instance A.FromJSON V1PriorityClass where + parseJSON = A.withObject "V1PriorityClass" $ \o -> + V1PriorityClass + <$> (o .:? "apiVersion") + <*> (o .:? "description") + <*> (o .:? "globalDefault") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "preemptionPolicy") + <*> (o .: "value") + +-- | ToJSON V1PriorityClass +instance A.ToJSON V1PriorityClass where + toJSON V1PriorityClass {..} = + _omitNulls + [ "apiVersion" .= v1PriorityClassApiVersion + , "description" .= v1PriorityClassDescription + , "globalDefault" .= v1PriorityClassGlobalDefault + , "kind" .= v1PriorityClassKind + , "metadata" .= v1PriorityClassMetadata + , "preemptionPolicy" .= v1PriorityClassPreemptionPolicy + , "value" .= v1PriorityClassValue + ] + + +-- | Construct a value of type 'V1PriorityClass' (by applying it's required fields, if any) +mkV1PriorityClass + :: Int -- ^ 'v1PriorityClassValue': value represents the integer value of this priority class. This is the actual priority that pods receive when they have the name of this class in their pod spec. + -> V1PriorityClass +mkV1PriorityClass v1PriorityClassValue = + V1PriorityClass + { v1PriorityClassApiVersion = Nothing + , v1PriorityClassDescription = Nothing + , v1PriorityClassGlobalDefault = Nothing + , v1PriorityClassKind = Nothing + , v1PriorityClassMetadata = Nothing + , v1PriorityClassPreemptionPolicy = Nothing + , v1PriorityClassValue + } + +-- ** V1PriorityClassList +-- | V1PriorityClassList +-- PriorityClassList is a collection of priority classes. +data V1PriorityClassList = V1PriorityClassList + { v1PriorityClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1PriorityClassListItems :: !([V1PriorityClass]) -- ^ /Required/ "items" - items is the list of PriorityClasses + , v1PriorityClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1PriorityClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1PriorityClassList +instance A.FromJSON V1PriorityClassList where + parseJSON = A.withObject "V1PriorityClassList" $ \o -> + V1PriorityClassList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1PriorityClassList +instance A.ToJSON V1PriorityClassList where + toJSON V1PriorityClassList {..} = + _omitNulls + [ "apiVersion" .= v1PriorityClassListApiVersion + , "items" .= v1PriorityClassListItems + , "kind" .= v1PriorityClassListKind + , "metadata" .= v1PriorityClassListMetadata + ] + + +-- | Construct a value of type 'V1PriorityClassList' (by applying it's required fields, if any) +mkV1PriorityClassList + :: [V1PriorityClass] -- ^ 'v1PriorityClassListItems': items is the list of PriorityClasses + -> V1PriorityClassList +mkV1PriorityClassList v1PriorityClassListItems = + V1PriorityClassList + { v1PriorityClassListApiVersion = Nothing + , v1PriorityClassListItems + , v1PriorityClassListKind = Nothing + , v1PriorityClassListMetadata = Nothing + } + +-- ** V1Probe +-- | V1Probe +-- Probe describes a health check to be performed against a container to determine whether it is alive or ready to receive traffic. +data V1Probe = V1Probe + { v1ProbeExec :: !(Maybe V1ExecAction) -- ^ "exec" + , v1ProbeFailureThreshold :: !(Maybe Int) -- ^ "failureThreshold" - Minimum consecutive failures for the probe to be considered failed after having succeeded. Defaults to 3. Minimum value is 1. + , v1ProbeGrpc :: !(Maybe V1GRPCAction) -- ^ "grpc" + , v1ProbeHttpGet :: !(Maybe V1HTTPGetAction) -- ^ "httpGet" + , v1ProbeInitialDelaySeconds :: !(Maybe Int) -- ^ "initialDelaySeconds" - Number of seconds after the container has started before liveness probes are initiated. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#container-probes + , v1ProbePeriodSeconds :: !(Maybe Int) -- ^ "periodSeconds" - How often (in seconds) to perform the probe. Default to 10 seconds. Minimum value is 1. + , v1ProbeSuccessThreshold :: !(Maybe Int) -- ^ "successThreshold" - Minimum consecutive successes for the probe to be considered successful after having failed. Defaults to 1. Must be 1 for liveness and startup. Minimum value is 1. + , v1ProbeTcpSocket :: !(Maybe V1TCPSocketAction) -- ^ "tcpSocket" + , v1ProbeTerminationGracePeriodSeconds :: !(Maybe Integer) -- ^ "terminationGracePeriodSeconds" - Optional duration in seconds the pod needs to terminate gracefully upon probe failure. The grace period is the duration in seconds after the processes running in the pod are sent a termination signal and the time when the processes are forcibly halted with a kill signal. Set this value longer than the expected cleanup time for your process. If this value is nil, the pod's terminationGracePeriodSeconds will be used. Otherwise, this value overrides the value provided by the pod spec. Value must be non-negative integer. The value zero indicates stop immediately via the kill signal (no opportunity to shut down). This is a beta field and requires enabling ProbeTerminationGracePeriod feature gate. Minimum value is 1. spec.terminationGracePeriodSeconds is used if unset. + , v1ProbeTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - Number of seconds after which the probe times out. Defaults to 1 second. Minimum value is 1. More info: https://kubernetes.io/docs/concepts/workloads/pods/pod-lifecycle#container-probes + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Probe +instance A.FromJSON V1Probe where + parseJSON = A.withObject "V1Probe" $ \o -> + V1Probe + <$> (o .:? "exec") + <*> (o .:? "failureThreshold") + <*> (o .:? "grpc") + <*> (o .:? "httpGet") + <*> (o .:? "initialDelaySeconds") + <*> (o .:? "periodSeconds") + <*> (o .:? "successThreshold") + <*> (o .:? "tcpSocket") + <*> (o .:? "terminationGracePeriodSeconds") + <*> (o .:? "timeoutSeconds") + +-- | ToJSON V1Probe +instance A.ToJSON V1Probe where + toJSON V1Probe {..} = + _omitNulls + [ "exec" .= v1ProbeExec + , "failureThreshold" .= v1ProbeFailureThreshold + , "grpc" .= v1ProbeGrpc + , "httpGet" .= v1ProbeHttpGet + , "initialDelaySeconds" .= v1ProbeInitialDelaySeconds + , "periodSeconds" .= v1ProbePeriodSeconds + , "successThreshold" .= v1ProbeSuccessThreshold + , "tcpSocket" .= v1ProbeTcpSocket + , "terminationGracePeriodSeconds" .= v1ProbeTerminationGracePeriodSeconds + , "timeoutSeconds" .= v1ProbeTimeoutSeconds + ] + + +-- | Construct a value of type 'V1Probe' (by applying it's required fields, if any) +mkV1Probe + :: V1Probe +mkV1Probe = + V1Probe + { v1ProbeExec = Nothing + , v1ProbeFailureThreshold = Nothing + , v1ProbeGrpc = Nothing + , v1ProbeHttpGet = Nothing + , v1ProbeInitialDelaySeconds = Nothing + , v1ProbePeriodSeconds = Nothing + , v1ProbeSuccessThreshold = Nothing + , v1ProbeTcpSocket = Nothing + , v1ProbeTerminationGracePeriodSeconds = Nothing + , v1ProbeTimeoutSeconds = Nothing + } + +-- ** V1ProjectedVolumeSource +-- | V1ProjectedVolumeSource +-- Represents a projected volume source +data V1ProjectedVolumeSource = V1ProjectedVolumeSource + { v1ProjectedVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode are the mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1ProjectedVolumeSourceSources :: !(Maybe [V1VolumeProjection]) -- ^ "sources" - sources is the list of volume projections + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ProjectedVolumeSource +instance A.FromJSON V1ProjectedVolumeSource where + parseJSON = A.withObject "V1ProjectedVolumeSource" $ \o -> + V1ProjectedVolumeSource + <$> (o .:? "defaultMode") + <*> (o .:? "sources") + +-- | ToJSON V1ProjectedVolumeSource +instance A.ToJSON V1ProjectedVolumeSource where + toJSON V1ProjectedVolumeSource {..} = + _omitNulls + [ "defaultMode" .= v1ProjectedVolumeSourceDefaultMode + , "sources" .= v1ProjectedVolumeSourceSources + ] + + +-- | Construct a value of type 'V1ProjectedVolumeSource' (by applying it's required fields, if any) +mkV1ProjectedVolumeSource + :: V1ProjectedVolumeSource +mkV1ProjectedVolumeSource = + V1ProjectedVolumeSource + { v1ProjectedVolumeSourceDefaultMode = Nothing + , v1ProjectedVolumeSourceSources = Nothing + } + +-- ** V1QuobyteVolumeSource +-- | V1QuobyteVolumeSource +-- Represents a Quobyte mount that lasts the lifetime of a pod. Quobyte volumes do not support ownership management or SELinux relabeling. +data V1QuobyteVolumeSource = V1QuobyteVolumeSource + { v1QuobyteVolumeSourceGroup :: !(Maybe Text) -- ^ "group" - group to map volume access to Default is no group + , v1QuobyteVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the Quobyte volume to be mounted with read-only permissions. Defaults to false. + , v1QuobyteVolumeSourceRegistry :: !(Text) -- ^ /Required/ "registry" - registry represents a single or multiple Quobyte Registry services specified as a string as host:port pair (multiple entries are separated with commas) which acts as the central registry for volumes + , v1QuobyteVolumeSourceTenant :: !(Maybe Text) -- ^ "tenant" - tenant owning the given Quobyte volume in the Backend Used with dynamically provisioned Quobyte volumes, value is set by the plugin + , v1QuobyteVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user to map volume access to Defaults to serivceaccount user + , v1QuobyteVolumeSourceVolume :: !(Text) -- ^ /Required/ "volume" - volume is a string that references an already created Quobyte volume by name. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1QuobyteVolumeSource +instance A.FromJSON V1QuobyteVolumeSource where + parseJSON = A.withObject "V1QuobyteVolumeSource" $ \o -> + V1QuobyteVolumeSource + <$> (o .:? "group") + <*> (o .:? "readOnly") + <*> (o .: "registry") + <*> (o .:? "tenant") + <*> (o .:? "user") + <*> (o .: "volume") + +-- | ToJSON V1QuobyteVolumeSource +instance A.ToJSON V1QuobyteVolumeSource where + toJSON V1QuobyteVolumeSource {..} = + _omitNulls + [ "group" .= v1QuobyteVolumeSourceGroup + , "readOnly" .= v1QuobyteVolumeSourceReadOnly + , "registry" .= v1QuobyteVolumeSourceRegistry + , "tenant" .= v1QuobyteVolumeSourceTenant + , "user" .= v1QuobyteVolumeSourceUser + , "volume" .= v1QuobyteVolumeSourceVolume + ] + + +-- | Construct a value of type 'V1QuobyteVolumeSource' (by applying it's required fields, if any) +mkV1QuobyteVolumeSource + :: Text -- ^ 'v1QuobyteVolumeSourceRegistry': registry represents a single or multiple Quobyte Registry services specified as a string as host:port pair (multiple entries are separated with commas) which acts as the central registry for volumes + -> Text -- ^ 'v1QuobyteVolumeSourceVolume': volume is a string that references an already created Quobyte volume by name. + -> V1QuobyteVolumeSource +mkV1QuobyteVolumeSource v1QuobyteVolumeSourceRegistry v1QuobyteVolumeSourceVolume = + V1QuobyteVolumeSource + { v1QuobyteVolumeSourceGroup = Nothing + , v1QuobyteVolumeSourceReadOnly = Nothing + , v1QuobyteVolumeSourceRegistry + , v1QuobyteVolumeSourceTenant = Nothing + , v1QuobyteVolumeSourceUser = Nothing + , v1QuobyteVolumeSourceVolume + } + +-- ** V1RBDPersistentVolumeSource +-- | V1RBDPersistentVolumeSource +-- Represents a Rados Block Device mount that lasts the lifetime of a pod. RBD volumes support ownership management and SELinux relabeling. +data V1RBDPersistentVolumeSource = V1RBDPersistentVolumeSource + { v1RBDPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#rbd + , v1RBDPersistentVolumeSourceImage :: !(Text) -- ^ /Required/ "image" - image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDPersistentVolumeSourceKeyring :: !(Maybe Text) -- ^ "keyring" - keyring is the path to key ring for RBDUser. Default is /etc/ceph/keyring. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDPersistentVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDPersistentVolumeSourcePool :: !(Maybe Text) -- ^ "pool" - pool is the rados pool name. Default is rbd. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDPersistentVolumeSourceSecretRef :: !(Maybe V1SecretReference) -- ^ "secretRef" + , v1RBDPersistentVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is the rados user name. Default is admin. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RBDPersistentVolumeSource +instance A.FromJSON V1RBDPersistentVolumeSource where + parseJSON = A.withObject "V1RBDPersistentVolumeSource" $ \o -> + V1RBDPersistentVolumeSource + <$> (o .:? "fsType") + <*> (o .: "image") + <*> (o .:? "keyring") + <*> (o .: "monitors") + <*> (o .:? "pool") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .:? "user") + +-- | ToJSON V1RBDPersistentVolumeSource +instance A.ToJSON V1RBDPersistentVolumeSource where + toJSON V1RBDPersistentVolumeSource {..} = + _omitNulls + [ "fsType" .= v1RBDPersistentVolumeSourceFsType + , "image" .= v1RBDPersistentVolumeSourceImage + , "keyring" .= v1RBDPersistentVolumeSourceKeyring + , "monitors" .= v1RBDPersistentVolumeSourceMonitors + , "pool" .= v1RBDPersistentVolumeSourcePool + , "readOnly" .= v1RBDPersistentVolumeSourceReadOnly + , "secretRef" .= v1RBDPersistentVolumeSourceSecretRef + , "user" .= v1RBDPersistentVolumeSourceUser + ] + + +-- | Construct a value of type 'V1RBDPersistentVolumeSource' (by applying it's required fields, if any) +mkV1RBDPersistentVolumeSource + :: Text -- ^ 'v1RBDPersistentVolumeSourceImage': image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + -> [Text] -- ^ 'v1RBDPersistentVolumeSourceMonitors': monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + -> V1RBDPersistentVolumeSource +mkV1RBDPersistentVolumeSource v1RBDPersistentVolumeSourceImage v1RBDPersistentVolumeSourceMonitors = + V1RBDPersistentVolumeSource + { v1RBDPersistentVolumeSourceFsType = Nothing + , v1RBDPersistentVolumeSourceImage + , v1RBDPersistentVolumeSourceKeyring = Nothing + , v1RBDPersistentVolumeSourceMonitors + , v1RBDPersistentVolumeSourcePool = Nothing + , v1RBDPersistentVolumeSourceReadOnly = Nothing + , v1RBDPersistentVolumeSourceSecretRef = Nothing + , v1RBDPersistentVolumeSourceUser = Nothing + } + +-- ** V1RBDVolumeSource +-- | V1RBDVolumeSource +-- Represents a Rados Block Device mount that lasts the lifetime of a pod. RBD volumes support ownership management and SELinux relabeling. +data V1RBDVolumeSource = V1RBDVolumeSource + { v1RBDVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type of the volume that you want to mount. Tip: Ensure that the filesystem type is supported by the host operating system. Examples: \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. More info: https://kubernetes.io/docs/concepts/storage/volumes#rbd + , v1RBDVolumeSourceImage :: !(Text) -- ^ /Required/ "image" - image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDVolumeSourceKeyring :: !(Maybe Text) -- ^ "keyring" - keyring is the path to key ring for RBDUser. Default is /etc/ceph/keyring. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDVolumeSourceMonitors :: !([Text]) -- ^ /Required/ "monitors" - monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDVolumeSourcePool :: !(Maybe Text) -- ^ "pool" - pool is the rados pool name. Default is rbd. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly here will force the ReadOnly setting in VolumeMounts. Defaults to false. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + , v1RBDVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + , v1RBDVolumeSourceUser :: !(Maybe Text) -- ^ "user" - user is the rados user name. Default is admin. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RBDVolumeSource +instance A.FromJSON V1RBDVolumeSource where + parseJSON = A.withObject "V1RBDVolumeSource" $ \o -> + V1RBDVolumeSource + <$> (o .:? "fsType") + <*> (o .: "image") + <*> (o .:? "keyring") + <*> (o .: "monitors") + <*> (o .:? "pool") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .:? "user") + +-- | ToJSON V1RBDVolumeSource +instance A.ToJSON V1RBDVolumeSource where + toJSON V1RBDVolumeSource {..} = + _omitNulls + [ "fsType" .= v1RBDVolumeSourceFsType + , "image" .= v1RBDVolumeSourceImage + , "keyring" .= v1RBDVolumeSourceKeyring + , "monitors" .= v1RBDVolumeSourceMonitors + , "pool" .= v1RBDVolumeSourcePool + , "readOnly" .= v1RBDVolumeSourceReadOnly + , "secretRef" .= v1RBDVolumeSourceSecretRef + , "user" .= v1RBDVolumeSourceUser + ] + + +-- | Construct a value of type 'V1RBDVolumeSource' (by applying it's required fields, if any) +mkV1RBDVolumeSource + :: Text -- ^ 'v1RBDVolumeSourceImage': image is the rados image name. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + -> [Text] -- ^ 'v1RBDVolumeSourceMonitors': monitors is a collection of Ceph monitors. More info: https://examples.k8s.io/volumes/rbd/README.md#how-to-use-it + -> V1RBDVolumeSource +mkV1RBDVolumeSource v1RBDVolumeSourceImage v1RBDVolumeSourceMonitors = + V1RBDVolumeSource + { v1RBDVolumeSourceFsType = Nothing + , v1RBDVolumeSourceImage + , v1RBDVolumeSourceKeyring = Nothing + , v1RBDVolumeSourceMonitors + , v1RBDVolumeSourcePool = Nothing + , v1RBDVolumeSourceReadOnly = Nothing + , v1RBDVolumeSourceSecretRef = Nothing + , v1RBDVolumeSourceUser = Nothing + } + +-- ** V1ReplicaSet +-- | V1ReplicaSet +-- ReplicaSet ensures that a specified number of pod replicas are running at any given time. +data V1ReplicaSet = V1ReplicaSet + { v1ReplicaSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ReplicaSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ReplicaSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ReplicaSetSpec :: !(Maybe V1ReplicaSetSpec) -- ^ "spec" + , v1ReplicaSetStatus :: !(Maybe V1ReplicaSetStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicaSet +instance A.FromJSON V1ReplicaSet where + parseJSON = A.withObject "V1ReplicaSet" $ \o -> + V1ReplicaSet + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1ReplicaSet +instance A.ToJSON V1ReplicaSet where + toJSON V1ReplicaSet {..} = + _omitNulls + [ "apiVersion" .= v1ReplicaSetApiVersion + , "kind" .= v1ReplicaSetKind + , "metadata" .= v1ReplicaSetMetadata + , "spec" .= v1ReplicaSetSpec + , "status" .= v1ReplicaSetStatus + ] + + +-- | Construct a value of type 'V1ReplicaSet' (by applying it's required fields, if any) +mkV1ReplicaSet + :: V1ReplicaSet +mkV1ReplicaSet = + V1ReplicaSet + { v1ReplicaSetApiVersion = Nothing + , v1ReplicaSetKind = Nothing + , v1ReplicaSetMetadata = Nothing + , v1ReplicaSetSpec = Nothing + , v1ReplicaSetStatus = Nothing + } + +-- ** V1ReplicaSetCondition +-- | V1ReplicaSetCondition +-- ReplicaSetCondition describes the state of a replica set at a certain point. +data V1ReplicaSetCondition = V1ReplicaSetCondition + { v1ReplicaSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - The last time the condition transitioned from one status to another. + , v1ReplicaSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1ReplicaSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. + , v1ReplicaSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1ReplicaSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of replica set condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicaSetCondition +instance A.FromJSON V1ReplicaSetCondition where + parseJSON = A.withObject "V1ReplicaSetCondition" $ \o -> + V1ReplicaSetCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1ReplicaSetCondition +instance A.ToJSON V1ReplicaSetCondition where + toJSON V1ReplicaSetCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1ReplicaSetConditionLastTransitionTime + , "message" .= v1ReplicaSetConditionMessage + , "reason" .= v1ReplicaSetConditionReason + , "status" .= v1ReplicaSetConditionStatus + , "type" .= v1ReplicaSetConditionType + ] + + +-- | Construct a value of type 'V1ReplicaSetCondition' (by applying it's required fields, if any) +mkV1ReplicaSetCondition + :: Text -- ^ 'v1ReplicaSetConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1ReplicaSetConditionType': Type of replica set condition. + -> V1ReplicaSetCondition +mkV1ReplicaSetCondition v1ReplicaSetConditionStatus v1ReplicaSetConditionType = + V1ReplicaSetCondition + { v1ReplicaSetConditionLastTransitionTime = Nothing + , v1ReplicaSetConditionMessage = Nothing + , v1ReplicaSetConditionReason = Nothing + , v1ReplicaSetConditionStatus + , v1ReplicaSetConditionType + } + +-- ** V1ReplicaSetList +-- | V1ReplicaSetList +-- ReplicaSetList is a collection of ReplicaSets. +data V1ReplicaSetList = V1ReplicaSetList + { v1ReplicaSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ReplicaSetListItems :: !([V1ReplicaSet]) -- ^ /Required/ "items" - List of ReplicaSets. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller + , v1ReplicaSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ReplicaSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicaSetList +instance A.FromJSON V1ReplicaSetList where + parseJSON = A.withObject "V1ReplicaSetList" $ \o -> + V1ReplicaSetList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ReplicaSetList +instance A.ToJSON V1ReplicaSetList where + toJSON V1ReplicaSetList {..} = + _omitNulls + [ "apiVersion" .= v1ReplicaSetListApiVersion + , "items" .= v1ReplicaSetListItems + , "kind" .= v1ReplicaSetListKind + , "metadata" .= v1ReplicaSetListMetadata + ] + + +-- | Construct a value of type 'V1ReplicaSetList' (by applying it's required fields, if any) +mkV1ReplicaSetList + :: [V1ReplicaSet] -- ^ 'v1ReplicaSetListItems': List of ReplicaSets. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller + -> V1ReplicaSetList +mkV1ReplicaSetList v1ReplicaSetListItems = + V1ReplicaSetList + { v1ReplicaSetListApiVersion = Nothing + , v1ReplicaSetListItems + , v1ReplicaSetListKind = Nothing + , v1ReplicaSetListMetadata = Nothing + } + +-- ** V1ReplicaSetSpec +-- | V1ReplicaSetSpec +-- ReplicaSetSpec is the specification of a ReplicaSet. +data V1ReplicaSetSpec = V1ReplicaSetSpec + { v1ReplicaSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) + , v1ReplicaSetSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Replicas is the number of desired replicas. This is a pointer to distinguish between explicit zero and unspecified. Defaults to 1. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller + , v1ReplicaSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" + , v1ReplicaSetSpecTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicaSetSpec +instance A.FromJSON V1ReplicaSetSpec where + parseJSON = A.withObject "V1ReplicaSetSpec" $ \o -> + V1ReplicaSetSpec + <$> (o .:? "minReadySeconds") + <*> (o .:? "replicas") + <*> (o .: "selector") + <*> (o .:? "template") + +-- | ToJSON V1ReplicaSetSpec +instance A.ToJSON V1ReplicaSetSpec where + toJSON V1ReplicaSetSpec {..} = + _omitNulls + [ "minReadySeconds" .= v1ReplicaSetSpecMinReadySeconds + , "replicas" .= v1ReplicaSetSpecReplicas + , "selector" .= v1ReplicaSetSpecSelector + , "template" .= v1ReplicaSetSpecTemplate + ] + + +-- | Construct a value of type 'V1ReplicaSetSpec' (by applying it's required fields, if any) +mkV1ReplicaSetSpec + :: V1LabelSelector -- ^ 'v1ReplicaSetSpecSelector' + -> V1ReplicaSetSpec +mkV1ReplicaSetSpec v1ReplicaSetSpecSelector = + V1ReplicaSetSpec + { v1ReplicaSetSpecMinReadySeconds = Nothing + , v1ReplicaSetSpecReplicas = Nothing + , v1ReplicaSetSpecSelector + , v1ReplicaSetSpecTemplate = Nothing + } + +-- ** V1ReplicaSetStatus +-- | V1ReplicaSetStatus +-- ReplicaSetStatus represents the current status of a ReplicaSet. +data V1ReplicaSetStatus = V1ReplicaSetStatus + { v1ReplicaSetStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - The number of available replicas (ready for at least minReadySeconds) for this replica set. + , v1ReplicaSetStatusConditions :: !(Maybe [V1ReplicaSetCondition]) -- ^ "conditions" - Represents the latest available observations of a replica set's current state. + , v1ReplicaSetStatusFullyLabeledReplicas :: !(Maybe Int) -- ^ "fullyLabeledReplicas" - The number of pods that have labels matching the labels of the pod template of the replicaset. + , v1ReplicaSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - ObservedGeneration reflects the generation of the most recently observed ReplicaSet. + , v1ReplicaSetStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods targeted by this ReplicaSet with a Ready Condition. + , v1ReplicaSetStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicaSetStatus +instance A.FromJSON V1ReplicaSetStatus where + parseJSON = A.withObject "V1ReplicaSetStatus" $ \o -> + V1ReplicaSetStatus + <$> (o .:? "availableReplicas") + <*> (o .:? "conditions") + <*> (o .:? "fullyLabeledReplicas") + <*> (o .:? "observedGeneration") + <*> (o .:? "readyReplicas") + <*> (o .: "replicas") + +-- | ToJSON V1ReplicaSetStatus +instance A.ToJSON V1ReplicaSetStatus where + toJSON V1ReplicaSetStatus {..} = + _omitNulls + [ "availableReplicas" .= v1ReplicaSetStatusAvailableReplicas + , "conditions" .= v1ReplicaSetStatusConditions + , "fullyLabeledReplicas" .= v1ReplicaSetStatusFullyLabeledReplicas + , "observedGeneration" .= v1ReplicaSetStatusObservedGeneration + , "readyReplicas" .= v1ReplicaSetStatusReadyReplicas + , "replicas" .= v1ReplicaSetStatusReplicas + ] + + +-- | Construct a value of type 'V1ReplicaSetStatus' (by applying it's required fields, if any) +mkV1ReplicaSetStatus + :: Int -- ^ 'v1ReplicaSetStatusReplicas': Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller/#what-is-a-replicationcontroller + -> V1ReplicaSetStatus +mkV1ReplicaSetStatus v1ReplicaSetStatusReplicas = + V1ReplicaSetStatus + { v1ReplicaSetStatusAvailableReplicas = Nothing + , v1ReplicaSetStatusConditions = Nothing + , v1ReplicaSetStatusFullyLabeledReplicas = Nothing + , v1ReplicaSetStatusObservedGeneration = Nothing + , v1ReplicaSetStatusReadyReplicas = Nothing + , v1ReplicaSetStatusReplicas + } + +-- ** V1ReplicationController +-- | V1ReplicationController +-- ReplicationController represents the configuration of a replication controller. +data V1ReplicationController = V1ReplicationController + { v1ReplicationControllerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ReplicationControllerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ReplicationControllerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ReplicationControllerSpec :: !(Maybe V1ReplicationControllerSpec) -- ^ "spec" + , v1ReplicationControllerStatus :: !(Maybe V1ReplicationControllerStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicationController +instance A.FromJSON V1ReplicationController where + parseJSON = A.withObject "V1ReplicationController" $ \o -> + V1ReplicationController + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1ReplicationController +instance A.ToJSON V1ReplicationController where + toJSON V1ReplicationController {..} = + _omitNulls + [ "apiVersion" .= v1ReplicationControllerApiVersion + , "kind" .= v1ReplicationControllerKind + , "metadata" .= v1ReplicationControllerMetadata + , "spec" .= v1ReplicationControllerSpec + , "status" .= v1ReplicationControllerStatus + ] + + +-- | Construct a value of type 'V1ReplicationController' (by applying it's required fields, if any) +mkV1ReplicationController + :: V1ReplicationController +mkV1ReplicationController = + V1ReplicationController + { v1ReplicationControllerApiVersion = Nothing + , v1ReplicationControllerKind = Nothing + , v1ReplicationControllerMetadata = Nothing + , v1ReplicationControllerSpec = Nothing + , v1ReplicationControllerStatus = Nothing + } + +-- ** V1ReplicationControllerCondition +-- | V1ReplicationControllerCondition +-- ReplicationControllerCondition describes the state of a replication controller at a certain point. +data V1ReplicationControllerCondition = V1ReplicationControllerCondition + { v1ReplicationControllerConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - The last time the condition transitioned from one status to another. + , v1ReplicationControllerConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1ReplicationControllerConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. + , v1ReplicationControllerConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1ReplicationControllerConditionType :: !(Text) -- ^ /Required/ "type" - Type of replication controller condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicationControllerCondition +instance A.FromJSON V1ReplicationControllerCondition where + parseJSON = A.withObject "V1ReplicationControllerCondition" $ \o -> + V1ReplicationControllerCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1ReplicationControllerCondition +instance A.ToJSON V1ReplicationControllerCondition where + toJSON V1ReplicationControllerCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1ReplicationControllerConditionLastTransitionTime + , "message" .= v1ReplicationControllerConditionMessage + , "reason" .= v1ReplicationControllerConditionReason + , "status" .= v1ReplicationControllerConditionStatus + , "type" .= v1ReplicationControllerConditionType + ] + + +-- | Construct a value of type 'V1ReplicationControllerCondition' (by applying it's required fields, if any) +mkV1ReplicationControllerCondition + :: Text -- ^ 'v1ReplicationControllerConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1ReplicationControllerConditionType': Type of replication controller condition. + -> V1ReplicationControllerCondition +mkV1ReplicationControllerCondition v1ReplicationControllerConditionStatus v1ReplicationControllerConditionType = + V1ReplicationControllerCondition + { v1ReplicationControllerConditionLastTransitionTime = Nothing + , v1ReplicationControllerConditionMessage = Nothing + , v1ReplicationControllerConditionReason = Nothing + , v1ReplicationControllerConditionStatus + , v1ReplicationControllerConditionType + } + +-- ** V1ReplicationControllerList +-- | V1ReplicationControllerList +-- ReplicationControllerList is a collection of replication controllers. +data V1ReplicationControllerList = V1ReplicationControllerList + { v1ReplicationControllerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ReplicationControllerListItems :: !([V1ReplicationController]) -- ^ /Required/ "items" - List of replication controllers. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller + , v1ReplicationControllerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ReplicationControllerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicationControllerList +instance A.FromJSON V1ReplicationControllerList where + parseJSON = A.withObject "V1ReplicationControllerList" $ \o -> + V1ReplicationControllerList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ReplicationControllerList +instance A.ToJSON V1ReplicationControllerList where + toJSON V1ReplicationControllerList {..} = + _omitNulls + [ "apiVersion" .= v1ReplicationControllerListApiVersion + , "items" .= v1ReplicationControllerListItems + , "kind" .= v1ReplicationControllerListKind + , "metadata" .= v1ReplicationControllerListMetadata + ] + + +-- | Construct a value of type 'V1ReplicationControllerList' (by applying it's required fields, if any) +mkV1ReplicationControllerList + :: [V1ReplicationController] -- ^ 'v1ReplicationControllerListItems': List of replication controllers. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller + -> V1ReplicationControllerList +mkV1ReplicationControllerList v1ReplicationControllerListItems = + V1ReplicationControllerList + { v1ReplicationControllerListApiVersion = Nothing + , v1ReplicationControllerListItems + , v1ReplicationControllerListKind = Nothing + , v1ReplicationControllerListMetadata = Nothing + } + +-- ** V1ReplicationControllerSpec +-- | V1ReplicationControllerSpec +-- ReplicationControllerSpec is the specification of a replication controller. +data V1ReplicationControllerSpec = V1ReplicationControllerSpec + { v1ReplicationControllerSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing, for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) + , v1ReplicationControllerSpecReplicas :: !(Maybe Int) -- ^ "replicas" - Replicas is the number of desired replicas. This is a pointer to distinguish between explicit zero and unspecified. Defaults to 1. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller + , v1ReplicationControllerSpecSelector :: !(Maybe (Map.Map String Text)) -- ^ "selector" - Selector is a label query over pods that should match the Replicas count. If Selector is empty, it is defaulted to the labels present on the Pod template. Label keys and values that must match in order to be controlled by this replication controller, if empty defaulted to labels on Pod template. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/labels/#label-selectors + , v1ReplicationControllerSpecTemplate :: !(Maybe V1PodTemplateSpec) -- ^ "template" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicationControllerSpec +instance A.FromJSON V1ReplicationControllerSpec where + parseJSON = A.withObject "V1ReplicationControllerSpec" $ \o -> + V1ReplicationControllerSpec + <$> (o .:? "minReadySeconds") + <*> (o .:? "replicas") + <*> (o .:? "selector") + <*> (o .:? "template") + +-- | ToJSON V1ReplicationControllerSpec +instance A.ToJSON V1ReplicationControllerSpec where + toJSON V1ReplicationControllerSpec {..} = + _omitNulls + [ "minReadySeconds" .= v1ReplicationControllerSpecMinReadySeconds + , "replicas" .= v1ReplicationControllerSpecReplicas + , "selector" .= v1ReplicationControllerSpecSelector + , "template" .= v1ReplicationControllerSpecTemplate + ] + + +-- | Construct a value of type 'V1ReplicationControllerSpec' (by applying it's required fields, if any) +mkV1ReplicationControllerSpec + :: V1ReplicationControllerSpec +mkV1ReplicationControllerSpec = + V1ReplicationControllerSpec + { v1ReplicationControllerSpecMinReadySeconds = Nothing + , v1ReplicationControllerSpecReplicas = Nothing + , v1ReplicationControllerSpecSelector = Nothing + , v1ReplicationControllerSpecTemplate = Nothing + } + +-- ** V1ReplicationControllerStatus +-- | V1ReplicationControllerStatus +-- ReplicationControllerStatus represents the current status of a replication controller. +data V1ReplicationControllerStatus = V1ReplicationControllerStatus + { v1ReplicationControllerStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - The number of available replicas (ready for at least minReadySeconds) for this replication controller. + , v1ReplicationControllerStatusConditions :: !(Maybe [V1ReplicationControllerCondition]) -- ^ "conditions" - Represents the latest available observations of a replication controller's current state. + , v1ReplicationControllerStatusFullyLabeledReplicas :: !(Maybe Int) -- ^ "fullyLabeledReplicas" - The number of pods that have labels matching the labels of the pod template of the replication controller. + , v1ReplicationControllerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - ObservedGeneration reflects the generation of the most recently observed replication controller. + , v1ReplicationControllerStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - The number of ready replicas for this replication controller. + , v1ReplicationControllerStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ReplicationControllerStatus +instance A.FromJSON V1ReplicationControllerStatus where + parseJSON = A.withObject "V1ReplicationControllerStatus" $ \o -> + V1ReplicationControllerStatus + <$> (o .:? "availableReplicas") + <*> (o .:? "conditions") + <*> (o .:? "fullyLabeledReplicas") + <*> (o .:? "observedGeneration") + <*> (o .:? "readyReplicas") + <*> (o .: "replicas") + +-- | ToJSON V1ReplicationControllerStatus +instance A.ToJSON V1ReplicationControllerStatus where + toJSON V1ReplicationControllerStatus {..} = + _omitNulls + [ "availableReplicas" .= v1ReplicationControllerStatusAvailableReplicas + , "conditions" .= v1ReplicationControllerStatusConditions + , "fullyLabeledReplicas" .= v1ReplicationControllerStatusFullyLabeledReplicas + , "observedGeneration" .= v1ReplicationControllerStatusObservedGeneration + , "readyReplicas" .= v1ReplicationControllerStatusReadyReplicas + , "replicas" .= v1ReplicationControllerStatusReplicas + ] + + +-- | Construct a value of type 'V1ReplicationControllerStatus' (by applying it's required fields, if any) +mkV1ReplicationControllerStatus + :: Int -- ^ 'v1ReplicationControllerStatusReplicas': Replicas is the most recently observed number of replicas. More info: https://kubernetes.io/docs/concepts/workloads/controllers/replicationcontroller#what-is-a-replicationcontroller + -> V1ReplicationControllerStatus +mkV1ReplicationControllerStatus v1ReplicationControllerStatusReplicas = + V1ReplicationControllerStatus + { v1ReplicationControllerStatusAvailableReplicas = Nothing + , v1ReplicationControllerStatusConditions = Nothing + , v1ReplicationControllerStatusFullyLabeledReplicas = Nothing + , v1ReplicationControllerStatusObservedGeneration = Nothing + , v1ReplicationControllerStatusReadyReplicas = Nothing + , v1ReplicationControllerStatusReplicas + } + +-- ** V1ResourceAttributes +-- | V1ResourceAttributes +-- ResourceAttributes includes the authorization attributes available for resource requests to the Authorizer interface +data V1ResourceAttributes = V1ResourceAttributes + { v1ResourceAttributesGroup :: !(Maybe Text) -- ^ "group" - Group is the API Group of the Resource. \"*\" means all. + , v1ResourceAttributesName :: !(Maybe Text) -- ^ "name" - Name is the name of the resource being requested for a \"get\" or deleted for a \"delete\". \"\" (empty) means all. + , v1ResourceAttributesNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the action being requested. Currently, there is no distinction between no namespace and all namespaces \"\" (empty) is defaulted for LocalSubjectAccessReviews \"\" (empty) is empty for cluster-scoped resources \"\" (empty) means \"all\" for namespace scoped resources from a SubjectAccessReview or SelfSubjectAccessReview + , v1ResourceAttributesResource :: !(Maybe Text) -- ^ "resource" - Resource is one of the existing resource types. \"*\" means all. + , v1ResourceAttributesSubresource :: !(Maybe Text) -- ^ "subresource" - Subresource is one of the existing resource types. \"\" means none. + , v1ResourceAttributesVerb :: !(Maybe Text) -- ^ "verb" - Verb is a kubernetes resource API verb, like: get, list, watch, create, update, delete, proxy. \"*\" means all. + , v1ResourceAttributesVersion :: !(Maybe Text) -- ^ "version" - Version is the API Version of the Resource. \"*\" means all. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceAttributes +instance A.FromJSON V1ResourceAttributes where + parseJSON = A.withObject "V1ResourceAttributes" $ \o -> + V1ResourceAttributes + <$> (o .:? "group") + <*> (o .:? "name") + <*> (o .:? "namespace") + <*> (o .:? "resource") + <*> (o .:? "subresource") + <*> (o .:? "verb") + <*> (o .:? "version") + +-- | ToJSON V1ResourceAttributes +instance A.ToJSON V1ResourceAttributes where + toJSON V1ResourceAttributes {..} = + _omitNulls + [ "group" .= v1ResourceAttributesGroup + , "name" .= v1ResourceAttributesName + , "namespace" .= v1ResourceAttributesNamespace + , "resource" .= v1ResourceAttributesResource + , "subresource" .= v1ResourceAttributesSubresource + , "verb" .= v1ResourceAttributesVerb + , "version" .= v1ResourceAttributesVersion + ] + + +-- | Construct a value of type 'V1ResourceAttributes' (by applying it's required fields, if any) +mkV1ResourceAttributes + :: V1ResourceAttributes +mkV1ResourceAttributes = + V1ResourceAttributes + { v1ResourceAttributesGroup = Nothing + , v1ResourceAttributesName = Nothing + , v1ResourceAttributesNamespace = Nothing + , v1ResourceAttributesResource = Nothing + , v1ResourceAttributesSubresource = Nothing + , v1ResourceAttributesVerb = Nothing + , v1ResourceAttributesVersion = Nothing + } + +-- ** V1ResourceClaim +-- | V1ResourceClaim +-- ResourceClaim references one entry in PodSpec.ResourceClaims. +data V1ResourceClaim = V1ResourceClaim + { v1ResourceClaimName :: !(Text) -- ^ /Required/ "name" - Name must match the name of one entry in pod.spec.resourceClaims of the Pod where this field is used. It makes that resource available inside a container. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceClaim +instance A.FromJSON V1ResourceClaim where + parseJSON = A.withObject "V1ResourceClaim" $ \o -> + V1ResourceClaim + <$> (o .: "name") + +-- | ToJSON V1ResourceClaim +instance A.ToJSON V1ResourceClaim where + toJSON V1ResourceClaim {..} = + _omitNulls + [ "name" .= v1ResourceClaimName + ] + + +-- | Construct a value of type 'V1ResourceClaim' (by applying it's required fields, if any) +mkV1ResourceClaim + :: Text -- ^ 'v1ResourceClaimName': Name must match the name of one entry in pod.spec.resourceClaims of the Pod where this field is used. It makes that resource available inside a container. + -> V1ResourceClaim +mkV1ResourceClaim v1ResourceClaimName = + V1ResourceClaim + { v1ResourceClaimName + } + +-- ** V1ResourceFieldSelector +-- | V1ResourceFieldSelector +-- ResourceFieldSelector represents container resources (cpu, memory) and their output format +data V1ResourceFieldSelector = V1ResourceFieldSelector + { v1ResourceFieldSelectorContainerName :: !(Maybe Text) -- ^ "containerName" - Container name: required for volumes, optional for env vars + , v1ResourceFieldSelectorDivisor :: !(Maybe Quantity) -- ^ "divisor" + , v1ResourceFieldSelectorResource :: !(Text) -- ^ /Required/ "resource" - Required: resource to select + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceFieldSelector +instance A.FromJSON V1ResourceFieldSelector where + parseJSON = A.withObject "V1ResourceFieldSelector" $ \o -> + V1ResourceFieldSelector + <$> (o .:? "containerName") + <*> (o .:? "divisor") + <*> (o .: "resource") + +-- | ToJSON V1ResourceFieldSelector +instance A.ToJSON V1ResourceFieldSelector where + toJSON V1ResourceFieldSelector {..} = + _omitNulls + [ "containerName" .= v1ResourceFieldSelectorContainerName + , "divisor" .= v1ResourceFieldSelectorDivisor + , "resource" .= v1ResourceFieldSelectorResource + ] + + +-- | Construct a value of type 'V1ResourceFieldSelector' (by applying it's required fields, if any) +mkV1ResourceFieldSelector + :: Text -- ^ 'v1ResourceFieldSelectorResource': Required: resource to select + -> V1ResourceFieldSelector +mkV1ResourceFieldSelector v1ResourceFieldSelectorResource = + V1ResourceFieldSelector + { v1ResourceFieldSelectorContainerName = Nothing + , v1ResourceFieldSelectorDivisor = Nothing + , v1ResourceFieldSelectorResource + } + +-- ** V1ResourceQuota +-- | V1ResourceQuota +-- ResourceQuota sets aggregate quota restrictions enforced per namespace +data V1ResourceQuota = V1ResourceQuota + { v1ResourceQuotaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ResourceQuotaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ResourceQuotaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ResourceQuotaSpec :: !(Maybe V1ResourceQuotaSpec) -- ^ "spec" + , v1ResourceQuotaStatus :: !(Maybe V1ResourceQuotaStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceQuota +instance A.FromJSON V1ResourceQuota where + parseJSON = A.withObject "V1ResourceQuota" $ \o -> + V1ResourceQuota + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1ResourceQuota +instance A.ToJSON V1ResourceQuota where + toJSON V1ResourceQuota {..} = + _omitNulls + [ "apiVersion" .= v1ResourceQuotaApiVersion + , "kind" .= v1ResourceQuotaKind + , "metadata" .= v1ResourceQuotaMetadata + , "spec" .= v1ResourceQuotaSpec + , "status" .= v1ResourceQuotaStatus + ] + + +-- | Construct a value of type 'V1ResourceQuota' (by applying it's required fields, if any) +mkV1ResourceQuota + :: V1ResourceQuota +mkV1ResourceQuota = + V1ResourceQuota + { v1ResourceQuotaApiVersion = Nothing + , v1ResourceQuotaKind = Nothing + , v1ResourceQuotaMetadata = Nothing + , v1ResourceQuotaSpec = Nothing + , v1ResourceQuotaStatus = Nothing + } + +-- ** V1ResourceQuotaList +-- | V1ResourceQuotaList +-- ResourceQuotaList is a list of ResourceQuota items. +data V1ResourceQuotaList = V1ResourceQuotaList + { v1ResourceQuotaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ResourceQuotaListItems :: !([V1ResourceQuota]) -- ^ /Required/ "items" - Items is a list of ResourceQuota objects. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ + , v1ResourceQuotaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ResourceQuotaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceQuotaList +instance A.FromJSON V1ResourceQuotaList where + parseJSON = A.withObject "V1ResourceQuotaList" $ \o -> + V1ResourceQuotaList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ResourceQuotaList +instance A.ToJSON V1ResourceQuotaList where + toJSON V1ResourceQuotaList {..} = + _omitNulls + [ "apiVersion" .= v1ResourceQuotaListApiVersion + , "items" .= v1ResourceQuotaListItems + , "kind" .= v1ResourceQuotaListKind + , "metadata" .= v1ResourceQuotaListMetadata + ] + + +-- | Construct a value of type 'V1ResourceQuotaList' (by applying it's required fields, if any) +mkV1ResourceQuotaList + :: [V1ResourceQuota] -- ^ 'v1ResourceQuotaListItems': Items is a list of ResourceQuota objects. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ + -> V1ResourceQuotaList +mkV1ResourceQuotaList v1ResourceQuotaListItems = + V1ResourceQuotaList + { v1ResourceQuotaListApiVersion = Nothing + , v1ResourceQuotaListItems + , v1ResourceQuotaListKind = Nothing + , v1ResourceQuotaListMetadata = Nothing + } + +-- ** V1ResourceQuotaSpec +-- | V1ResourceQuotaSpec +-- ResourceQuotaSpec defines the desired hard limits to enforce for Quota. +data V1ResourceQuotaSpec = V1ResourceQuotaSpec + { v1ResourceQuotaSpecHard :: !(Maybe (Map.Map String Quantity)) -- ^ "hard" - hard is the set of desired hard limits for each named resource. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ + , v1ResourceQuotaSpecScopeSelector :: !(Maybe V1ScopeSelector) -- ^ "scopeSelector" + , v1ResourceQuotaSpecScopes :: !(Maybe [Text]) -- ^ "scopes" - A collection of filters that must match each object tracked by a quota. If not specified, the quota matches all objects. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceQuotaSpec +instance A.FromJSON V1ResourceQuotaSpec where + parseJSON = A.withObject "V1ResourceQuotaSpec" $ \o -> + V1ResourceQuotaSpec + <$> (o .:? "hard") + <*> (o .:? "scopeSelector") + <*> (o .:? "scopes") + +-- | ToJSON V1ResourceQuotaSpec +instance A.ToJSON V1ResourceQuotaSpec where + toJSON V1ResourceQuotaSpec {..} = + _omitNulls + [ "hard" .= v1ResourceQuotaSpecHard + , "scopeSelector" .= v1ResourceQuotaSpecScopeSelector + , "scopes" .= v1ResourceQuotaSpecScopes + ] + + +-- | Construct a value of type 'V1ResourceQuotaSpec' (by applying it's required fields, if any) +mkV1ResourceQuotaSpec + :: V1ResourceQuotaSpec +mkV1ResourceQuotaSpec = + V1ResourceQuotaSpec + { v1ResourceQuotaSpecHard = Nothing + , v1ResourceQuotaSpecScopeSelector = Nothing + , v1ResourceQuotaSpecScopes = Nothing + } + +-- ** V1ResourceQuotaStatus +-- | V1ResourceQuotaStatus +-- ResourceQuotaStatus defines the enforced hard limits and observed use. +data V1ResourceQuotaStatus = V1ResourceQuotaStatus + { v1ResourceQuotaStatusHard :: !(Maybe (Map.Map String Quantity)) -- ^ "hard" - Hard is the set of enforced hard limits for each named resource. More info: https://kubernetes.io/docs/concepts/policy/resource-quotas/ + , v1ResourceQuotaStatusUsed :: !(Maybe (Map.Map String Quantity)) -- ^ "used" - Used is the current observed total usage of the resource in the namespace. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceQuotaStatus +instance A.FromJSON V1ResourceQuotaStatus where + parseJSON = A.withObject "V1ResourceQuotaStatus" $ \o -> + V1ResourceQuotaStatus + <$> (o .:? "hard") + <*> (o .:? "used") + +-- | ToJSON V1ResourceQuotaStatus +instance A.ToJSON V1ResourceQuotaStatus where + toJSON V1ResourceQuotaStatus {..} = + _omitNulls + [ "hard" .= v1ResourceQuotaStatusHard + , "used" .= v1ResourceQuotaStatusUsed + ] + + +-- | Construct a value of type 'V1ResourceQuotaStatus' (by applying it's required fields, if any) +mkV1ResourceQuotaStatus + :: V1ResourceQuotaStatus +mkV1ResourceQuotaStatus = + V1ResourceQuotaStatus + { v1ResourceQuotaStatusHard = Nothing + , v1ResourceQuotaStatusUsed = Nothing + } + +-- ** V1ResourceRequirements +-- | V1ResourceRequirements +-- ResourceRequirements describes the compute resource requirements. +data V1ResourceRequirements = V1ResourceRequirements + { v1ResourceRequirementsClaims :: !(Maybe [V1ResourceClaim]) -- ^ "claims" - Claims lists the names of resources, defined in spec.resourceClaims, that are used by this container. This is an alpha field and requires enabling the DynamicResourceAllocation feature gate. This field is immutable. It can only be set for containers. + , v1ResourceRequirementsLimits :: !(Maybe (Map.Map String Quantity)) -- ^ "limits" - Limits describes the maximum amount of compute resources allowed. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ + , v1ResourceRequirementsRequests :: !(Maybe (Map.Map String Quantity)) -- ^ "requests" - Requests describes the minimum amount of compute resources required. If Requests is omitted for a container, it defaults to Limits if that is explicitly specified, otherwise to an implementation-defined value. Requests cannot exceed Limits. More info: https://kubernetes.io/docs/concepts/configuration/manage-resources-containers/ + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceRequirements +instance A.FromJSON V1ResourceRequirements where + parseJSON = A.withObject "V1ResourceRequirements" $ \o -> + V1ResourceRequirements + <$> (o .:? "claims") + <*> (o .:? "limits") + <*> (o .:? "requests") + +-- | ToJSON V1ResourceRequirements +instance A.ToJSON V1ResourceRequirements where + toJSON V1ResourceRequirements {..} = + _omitNulls + [ "claims" .= v1ResourceRequirementsClaims + , "limits" .= v1ResourceRequirementsLimits + , "requests" .= v1ResourceRequirementsRequests + ] + + +-- | Construct a value of type 'V1ResourceRequirements' (by applying it's required fields, if any) +mkV1ResourceRequirements + :: V1ResourceRequirements +mkV1ResourceRequirements = + V1ResourceRequirements + { v1ResourceRequirementsClaims = Nothing + , v1ResourceRequirementsLimits = Nothing + , v1ResourceRequirementsRequests = Nothing + } + +-- ** V1ResourceRule +-- | V1ResourceRule +-- ResourceRule is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. +data V1ResourceRule = V1ResourceRule + { v1ResourceRuleApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the name of the APIGroup that contains the resources. If multiple API groups are specified, any action requested against one of the enumerated resources in any API group will be allowed. \"*\" means all. + , v1ResourceRuleResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. \"*\" means all. + , v1ResourceRuleResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. \"*\" means all in the specified apiGroups. \"*/foo\" represents the subresource 'foo' for all resources in the specified apiGroups. + , v1ResourceRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - Verb is a list of kubernetes resource API verbs, like: get, list, watch, create, update, delete, proxy. \"*\" means all. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ResourceRule +instance A.FromJSON V1ResourceRule where + parseJSON = A.withObject "V1ResourceRule" $ \o -> + V1ResourceRule + <$> (o .:? "apiGroups") + <*> (o .:? "resourceNames") + <*> (o .:? "resources") + <*> (o .: "verbs") + +-- | ToJSON V1ResourceRule +instance A.ToJSON V1ResourceRule where + toJSON V1ResourceRule {..} = + _omitNulls + [ "apiGroups" .= v1ResourceRuleApiGroups + , "resourceNames" .= v1ResourceRuleResourceNames + , "resources" .= v1ResourceRuleResources + , "verbs" .= v1ResourceRuleVerbs + ] + + +-- | Construct a value of type 'V1ResourceRule' (by applying it's required fields, if any) +mkV1ResourceRule + :: [Text] -- ^ 'v1ResourceRuleVerbs': Verb is a list of kubernetes resource API verbs, like: get, list, watch, create, update, delete, proxy. \"*\" means all. + -> V1ResourceRule +mkV1ResourceRule v1ResourceRuleVerbs = + V1ResourceRule + { v1ResourceRuleApiGroups = Nothing + , v1ResourceRuleResourceNames = Nothing + , v1ResourceRuleResources = Nothing + , v1ResourceRuleVerbs + } + +-- ** V1Role +-- | V1Role +-- Role is a namespaced, logical grouping of PolicyRules that can be referenced as a unit by a RoleBinding. +data V1Role = V1Role + { v1RoleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RoleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RoleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1RoleRules :: !(Maybe [V1PolicyRule]) -- ^ "rules" - Rules holds all the PolicyRules for this Role + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Role +instance A.FromJSON V1Role where + parseJSON = A.withObject "V1Role" $ \o -> + V1Role + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "rules") + +-- | ToJSON V1Role +instance A.ToJSON V1Role where + toJSON V1Role {..} = + _omitNulls + [ "apiVersion" .= v1RoleApiVersion + , "kind" .= v1RoleKind + , "metadata" .= v1RoleMetadata + , "rules" .= v1RoleRules + ] + + +-- | Construct a value of type 'V1Role' (by applying it's required fields, if any) +mkV1Role + :: V1Role +mkV1Role = + V1Role + { v1RoleApiVersion = Nothing + , v1RoleKind = Nothing + , v1RoleMetadata = Nothing + , v1RoleRules = Nothing + } + +-- ** V1RoleBinding +-- | V1RoleBinding +-- RoleBinding references a role, but does not contain it. It can reference a Role in the same namespace or a ClusterRole in the global namespace. It adds who information via Subjects and namespace information by which namespace it exists in. RoleBindings in a given namespace only have effect in that namespace. +data V1RoleBinding = V1RoleBinding + { v1RoleBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RoleBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RoleBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1RoleBindingRoleRef :: !(V1RoleRef) -- ^ /Required/ "roleRef" + , v1RoleBindingSubjects :: !(Maybe [V1Subject]) -- ^ "subjects" - Subjects holds references to the objects the role applies to. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RoleBinding +instance A.FromJSON V1RoleBinding where + parseJSON = A.withObject "V1RoleBinding" $ \o -> + V1RoleBinding + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "roleRef") + <*> (o .:? "subjects") + +-- | ToJSON V1RoleBinding +instance A.ToJSON V1RoleBinding where + toJSON V1RoleBinding {..} = + _omitNulls + [ "apiVersion" .= v1RoleBindingApiVersion + , "kind" .= v1RoleBindingKind + , "metadata" .= v1RoleBindingMetadata + , "roleRef" .= v1RoleBindingRoleRef + , "subjects" .= v1RoleBindingSubjects + ] + + +-- | Construct a value of type 'V1RoleBinding' (by applying it's required fields, if any) +mkV1RoleBinding + :: V1RoleRef -- ^ 'v1RoleBindingRoleRef' + -> V1RoleBinding +mkV1RoleBinding v1RoleBindingRoleRef = + V1RoleBinding + { v1RoleBindingApiVersion = Nothing + , v1RoleBindingKind = Nothing + , v1RoleBindingMetadata = Nothing + , v1RoleBindingRoleRef + , v1RoleBindingSubjects = Nothing + } + +-- ** V1RoleBindingList +-- | V1RoleBindingList +-- RoleBindingList is a collection of RoleBindings +data V1RoleBindingList = V1RoleBindingList + { v1RoleBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RoleBindingListItems :: !([V1RoleBinding]) -- ^ /Required/ "items" - Items is a list of RoleBindings + , v1RoleBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RoleBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RoleBindingList +instance A.FromJSON V1RoleBindingList where + parseJSON = A.withObject "V1RoleBindingList" $ \o -> + V1RoleBindingList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1RoleBindingList +instance A.ToJSON V1RoleBindingList where + toJSON V1RoleBindingList {..} = + _omitNulls + [ "apiVersion" .= v1RoleBindingListApiVersion + , "items" .= v1RoleBindingListItems + , "kind" .= v1RoleBindingListKind + , "metadata" .= v1RoleBindingListMetadata + ] + + +-- | Construct a value of type 'V1RoleBindingList' (by applying it's required fields, if any) +mkV1RoleBindingList + :: [V1RoleBinding] -- ^ 'v1RoleBindingListItems': Items is a list of RoleBindings + -> V1RoleBindingList +mkV1RoleBindingList v1RoleBindingListItems = + V1RoleBindingList + { v1RoleBindingListApiVersion = Nothing + , v1RoleBindingListItems + , v1RoleBindingListKind = Nothing + , v1RoleBindingListMetadata = Nothing + } + +-- ** V1RoleList +-- | V1RoleList +-- RoleList is a collection of Roles +data V1RoleList = V1RoleList + { v1RoleListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RoleListItems :: !([V1Role]) -- ^ /Required/ "items" - Items is a list of Roles + , v1RoleListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RoleListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RoleList +instance A.FromJSON V1RoleList where + parseJSON = A.withObject "V1RoleList" $ \o -> + V1RoleList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1RoleList +instance A.ToJSON V1RoleList where + toJSON V1RoleList {..} = + _omitNulls + [ "apiVersion" .= v1RoleListApiVersion + , "items" .= v1RoleListItems + , "kind" .= v1RoleListKind + , "metadata" .= v1RoleListMetadata + ] + + +-- | Construct a value of type 'V1RoleList' (by applying it's required fields, if any) +mkV1RoleList + :: [V1Role] -- ^ 'v1RoleListItems': Items is a list of Roles + -> V1RoleList +mkV1RoleList v1RoleListItems = + V1RoleList + { v1RoleListApiVersion = Nothing + , v1RoleListItems + , v1RoleListKind = Nothing + , v1RoleListMetadata = Nothing + } + +-- ** V1RoleRef +-- | V1RoleRef +-- RoleRef contains information that points to the role being used +data V1RoleRef = V1RoleRef + { v1RoleRefApiGroup :: !(Text) -- ^ /Required/ "apiGroup" - APIGroup is the group for the resource being referenced + , v1RoleRefKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced + , v1RoleRefName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RoleRef +instance A.FromJSON V1RoleRef where + parseJSON = A.withObject "V1RoleRef" $ \o -> + V1RoleRef + <$> (o .: "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + +-- | ToJSON V1RoleRef +instance A.ToJSON V1RoleRef where + toJSON V1RoleRef {..} = + _omitNulls + [ "apiGroup" .= v1RoleRefApiGroup + , "kind" .= v1RoleRefKind + , "name" .= v1RoleRefName + ] + + +-- | Construct a value of type 'V1RoleRef' (by applying it's required fields, if any) +mkV1RoleRef + :: Text -- ^ 'v1RoleRefApiGroup': APIGroup is the group for the resource being referenced + -> Text -- ^ 'v1RoleRefKind': Kind is the type of resource being referenced + -> Text -- ^ 'v1RoleRefName': Name is the name of resource being referenced + -> V1RoleRef +mkV1RoleRef v1RoleRefApiGroup v1RoleRefKind v1RoleRefName = + V1RoleRef + { v1RoleRefApiGroup + , v1RoleRefKind + , v1RoleRefName + } + +-- ** V1RollingUpdateDaemonSet +-- | V1RollingUpdateDaemonSet +-- Spec to control the desired behavior of daemon set rolling update. +data V1RollingUpdateDaemonSet = V1RollingUpdateDaemonSet + { v1RollingUpdateDaemonSetMaxSurge :: !(Maybe IntOrString) -- ^ "maxSurge" + , v1RollingUpdateDaemonSetMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RollingUpdateDaemonSet +instance A.FromJSON V1RollingUpdateDaemonSet where + parseJSON = A.withObject "V1RollingUpdateDaemonSet" $ \o -> + V1RollingUpdateDaemonSet + <$> (o .:? "maxSurge") + <*> (o .:? "maxUnavailable") + +-- | ToJSON V1RollingUpdateDaemonSet +instance A.ToJSON V1RollingUpdateDaemonSet where + toJSON V1RollingUpdateDaemonSet {..} = + _omitNulls + [ "maxSurge" .= v1RollingUpdateDaemonSetMaxSurge + , "maxUnavailable" .= v1RollingUpdateDaemonSetMaxUnavailable + ] + + +-- | Construct a value of type 'V1RollingUpdateDaemonSet' (by applying it's required fields, if any) +mkV1RollingUpdateDaemonSet + :: V1RollingUpdateDaemonSet +mkV1RollingUpdateDaemonSet = + V1RollingUpdateDaemonSet + { v1RollingUpdateDaemonSetMaxSurge = Nothing + , v1RollingUpdateDaemonSetMaxUnavailable = Nothing + } + +-- ** V1RollingUpdateDeployment +-- | V1RollingUpdateDeployment +-- Spec to control the desired behavior of rolling update. +data V1RollingUpdateDeployment = V1RollingUpdateDeployment + { v1RollingUpdateDeploymentMaxSurge :: !(Maybe IntOrString) -- ^ "maxSurge" + , v1RollingUpdateDeploymentMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RollingUpdateDeployment +instance A.FromJSON V1RollingUpdateDeployment where + parseJSON = A.withObject "V1RollingUpdateDeployment" $ \o -> + V1RollingUpdateDeployment + <$> (o .:? "maxSurge") + <*> (o .:? "maxUnavailable") + +-- | ToJSON V1RollingUpdateDeployment +instance A.ToJSON V1RollingUpdateDeployment where + toJSON V1RollingUpdateDeployment {..} = + _omitNulls + [ "maxSurge" .= v1RollingUpdateDeploymentMaxSurge + , "maxUnavailable" .= v1RollingUpdateDeploymentMaxUnavailable + ] + + +-- | Construct a value of type 'V1RollingUpdateDeployment' (by applying it's required fields, if any) +mkV1RollingUpdateDeployment + :: V1RollingUpdateDeployment +mkV1RollingUpdateDeployment = + V1RollingUpdateDeployment + { v1RollingUpdateDeploymentMaxSurge = Nothing + , v1RollingUpdateDeploymentMaxUnavailable = Nothing + } + +-- ** V1RollingUpdateStatefulSetStrategy +-- | V1RollingUpdateStatefulSetStrategy +-- RollingUpdateStatefulSetStrategy is used to communicate parameter for RollingUpdateStatefulSetStrategyType. +data V1RollingUpdateStatefulSetStrategy = V1RollingUpdateStatefulSetStrategy + { v1RollingUpdateStatefulSetStrategyMaxUnavailable :: !(Maybe IntOrString) -- ^ "maxUnavailable" + , v1RollingUpdateStatefulSetStrategyPartition :: !(Maybe Int) -- ^ "partition" - Partition indicates the ordinal at which the StatefulSet should be partitioned for updates. During a rolling update, all pods from ordinal Replicas-1 to Partition are updated. All pods from ordinal Partition-1 to 0 remain untouched. This is helpful in being able to do a canary based deployment. The default value is 0. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RollingUpdateStatefulSetStrategy +instance A.FromJSON V1RollingUpdateStatefulSetStrategy where + parseJSON = A.withObject "V1RollingUpdateStatefulSetStrategy" $ \o -> + V1RollingUpdateStatefulSetStrategy + <$> (o .:? "maxUnavailable") + <*> (o .:? "partition") + +-- | ToJSON V1RollingUpdateStatefulSetStrategy +instance A.ToJSON V1RollingUpdateStatefulSetStrategy where + toJSON V1RollingUpdateStatefulSetStrategy {..} = + _omitNulls + [ "maxUnavailable" .= v1RollingUpdateStatefulSetStrategyMaxUnavailable + , "partition" .= v1RollingUpdateStatefulSetStrategyPartition + ] + + +-- | Construct a value of type 'V1RollingUpdateStatefulSetStrategy' (by applying it's required fields, if any) +mkV1RollingUpdateStatefulSetStrategy + :: V1RollingUpdateStatefulSetStrategy +mkV1RollingUpdateStatefulSetStrategy = + V1RollingUpdateStatefulSetStrategy + { v1RollingUpdateStatefulSetStrategyMaxUnavailable = Nothing + , v1RollingUpdateStatefulSetStrategyPartition = Nothing + } + +-- ** V1RuleWithOperations +-- | V1RuleWithOperations +-- RuleWithOperations is a tuple of Operations and Resources. It is recommended to make sure that all the tuple expansions are valid. +data V1RuleWithOperations = V1RuleWithOperations + { v1RuleWithOperationsApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the API groups the resources belong to. '*' is all groups. If '*' is present, the length of the slice must be one. Required. + , v1RuleWithOperationsApiVersions :: !(Maybe [Text]) -- ^ "apiVersions" - APIVersions is the API versions the resources belong to. '*' is all versions. If '*' is present, the length of the slice must be one. Required. + , v1RuleWithOperationsOperations :: !(Maybe [Text]) -- ^ "operations" - Operations is the operations the admission hook cares about - CREATE, UPDATE, DELETE, CONNECT or * for all of those operations and any future admission operations that are added. If '*' is present, the length of the slice must be one. Required. + , v1RuleWithOperationsResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. For example: 'pods' means pods. 'pods/log' means the log subresource of pods. '*' means all resources, but not subresources. 'pods/*' means all subresources of pods. '*/scale' means all scale subresources. '*/*' means all resources and their subresources. If wildcard is present, the validation rule will ensure resources do not overlap with each other. Depending on the enclosing object, subresources might not be allowed. Required. + , v1RuleWithOperationsScope :: !(Maybe Text) -- ^ "scope" - scope specifies the scope of this rule. Valid values are \"Cluster\", \"Namespaced\", and \"*\" \"Cluster\" means that only cluster-scoped resources will match this rule. Namespace API objects are cluster-scoped. \"Namespaced\" means that only namespaced resources will match this rule. \"*\" means that there are no scope restrictions. Subresources match the scope of their parent resource. Default is \"*\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RuleWithOperations +instance A.FromJSON V1RuleWithOperations where + parseJSON = A.withObject "V1RuleWithOperations" $ \o -> + V1RuleWithOperations + <$> (o .:? "apiGroups") + <*> (o .:? "apiVersions") + <*> (o .:? "operations") + <*> (o .:? "resources") + <*> (o .:? "scope") + +-- | ToJSON V1RuleWithOperations +instance A.ToJSON V1RuleWithOperations where + toJSON V1RuleWithOperations {..} = + _omitNulls + [ "apiGroups" .= v1RuleWithOperationsApiGroups + , "apiVersions" .= v1RuleWithOperationsApiVersions + , "operations" .= v1RuleWithOperationsOperations + , "resources" .= v1RuleWithOperationsResources + , "scope" .= v1RuleWithOperationsScope + ] + + +-- | Construct a value of type 'V1RuleWithOperations' (by applying it's required fields, if any) +mkV1RuleWithOperations + :: V1RuleWithOperations +mkV1RuleWithOperations = + V1RuleWithOperations + { v1RuleWithOperationsApiGroups = Nothing + , v1RuleWithOperationsApiVersions = Nothing + , v1RuleWithOperationsOperations = Nothing + , v1RuleWithOperationsResources = Nothing + , v1RuleWithOperationsScope = Nothing + } + +-- ** V1RuntimeClass +-- | V1RuntimeClass +-- RuntimeClass defines a class of container runtime supported in the cluster. The RuntimeClass is used to determine which container runtime is used to run all containers in a pod. RuntimeClasses are manually defined by a user or cluster provisioner, and referenced in the PodSpec. The Kubelet is responsible for resolving the RuntimeClassName reference before running the pod. For more details, see https://kubernetes.io/docs/concepts/containers/runtime-class/ +data V1RuntimeClass = V1RuntimeClass + { v1RuntimeClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RuntimeClassHandler :: !(Text) -- ^ /Required/ "handler" - handler specifies the underlying runtime and configuration that the CRI implementation will use to handle pods of this class. The possible values are specific to the node & CRI configuration. It is assumed that all handlers are available on every node, and handlers of the same name are equivalent on every node. For example, a handler called \"runc\" might specify that the runc OCI runtime (using native Linux containers) will be used to run the containers in a pod. The Handler must be lowercase, conform to the DNS Label (RFC 1123) requirements, and is immutable. + , v1RuntimeClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RuntimeClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1RuntimeClassOverhead :: !(Maybe V1Overhead) -- ^ "overhead" + , v1RuntimeClassScheduling :: !(Maybe V1Scheduling) -- ^ "scheduling" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RuntimeClass +instance A.FromJSON V1RuntimeClass where + parseJSON = A.withObject "V1RuntimeClass" $ \o -> + V1RuntimeClass + <$> (o .:? "apiVersion") + <*> (o .: "handler") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "overhead") + <*> (o .:? "scheduling") + +-- | ToJSON V1RuntimeClass +instance A.ToJSON V1RuntimeClass where + toJSON V1RuntimeClass {..} = + _omitNulls + [ "apiVersion" .= v1RuntimeClassApiVersion + , "handler" .= v1RuntimeClassHandler + , "kind" .= v1RuntimeClassKind + , "metadata" .= v1RuntimeClassMetadata + , "overhead" .= v1RuntimeClassOverhead + , "scheduling" .= v1RuntimeClassScheduling + ] + + +-- | Construct a value of type 'V1RuntimeClass' (by applying it's required fields, if any) +mkV1RuntimeClass + :: Text -- ^ 'v1RuntimeClassHandler': handler specifies the underlying runtime and configuration that the CRI implementation will use to handle pods of this class. The possible values are specific to the node & CRI configuration. It is assumed that all handlers are available on every node, and handlers of the same name are equivalent on every node. For example, a handler called \"runc\" might specify that the runc OCI runtime (using native Linux containers) will be used to run the containers in a pod. The Handler must be lowercase, conform to the DNS Label (RFC 1123) requirements, and is immutable. + -> V1RuntimeClass +mkV1RuntimeClass v1RuntimeClassHandler = + V1RuntimeClass + { v1RuntimeClassApiVersion = Nothing + , v1RuntimeClassHandler + , v1RuntimeClassKind = Nothing + , v1RuntimeClassMetadata = Nothing + , v1RuntimeClassOverhead = Nothing + , v1RuntimeClassScheduling = Nothing + } + +-- ** V1RuntimeClassList +-- | V1RuntimeClassList +-- RuntimeClassList is a list of RuntimeClass objects. +data V1RuntimeClassList = V1RuntimeClassList + { v1RuntimeClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1RuntimeClassListItems :: !([V1RuntimeClass]) -- ^ /Required/ "items" - items is a list of schema objects. + , v1RuntimeClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1RuntimeClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1RuntimeClassList +instance A.FromJSON V1RuntimeClassList where + parseJSON = A.withObject "V1RuntimeClassList" $ \o -> + V1RuntimeClassList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1RuntimeClassList +instance A.ToJSON V1RuntimeClassList where + toJSON V1RuntimeClassList {..} = + _omitNulls + [ "apiVersion" .= v1RuntimeClassListApiVersion + , "items" .= v1RuntimeClassListItems + , "kind" .= v1RuntimeClassListKind + , "metadata" .= v1RuntimeClassListMetadata + ] + + +-- | Construct a value of type 'V1RuntimeClassList' (by applying it's required fields, if any) +mkV1RuntimeClassList + :: [V1RuntimeClass] -- ^ 'v1RuntimeClassListItems': items is a list of schema objects. + -> V1RuntimeClassList +mkV1RuntimeClassList v1RuntimeClassListItems = + V1RuntimeClassList + { v1RuntimeClassListApiVersion = Nothing + , v1RuntimeClassListItems + , v1RuntimeClassListKind = Nothing + , v1RuntimeClassListMetadata = Nothing + } + +-- ** V1SELinuxOptions +-- | V1SELinuxOptions +-- SELinuxOptions are the labels to be applied to the container +data V1SELinuxOptions = V1SELinuxOptions + { v1SELinuxOptionsLevel :: !(Maybe Text) -- ^ "level" - Level is SELinux level label that applies to the container. + , v1SELinuxOptionsRole :: !(Maybe Text) -- ^ "role" - Role is a SELinux role label that applies to the container. + , v1SELinuxOptionsType :: !(Maybe Text) -- ^ "type" - Type is a SELinux type label that applies to the container. + , v1SELinuxOptionsUser :: !(Maybe Text) -- ^ "user" - User is a SELinux user label that applies to the container. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SELinuxOptions +instance A.FromJSON V1SELinuxOptions where + parseJSON = A.withObject "V1SELinuxOptions" $ \o -> + V1SELinuxOptions + <$> (o .:? "level") + <*> (o .:? "role") + <*> (o .:? "type") + <*> (o .:? "user") + +-- | ToJSON V1SELinuxOptions +instance A.ToJSON V1SELinuxOptions where + toJSON V1SELinuxOptions {..} = + _omitNulls + [ "level" .= v1SELinuxOptionsLevel + , "role" .= v1SELinuxOptionsRole + , "type" .= v1SELinuxOptionsType + , "user" .= v1SELinuxOptionsUser + ] + + +-- | Construct a value of type 'V1SELinuxOptions' (by applying it's required fields, if any) +mkV1SELinuxOptions + :: V1SELinuxOptions +mkV1SELinuxOptions = + V1SELinuxOptions + { v1SELinuxOptionsLevel = Nothing + , v1SELinuxOptionsRole = Nothing + , v1SELinuxOptionsType = Nothing + , v1SELinuxOptionsUser = Nothing + } + +-- ** V1Scale +-- | V1Scale +-- Scale represents a scaling request for a resource. +data V1Scale = V1Scale + { v1ScaleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ScaleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ScaleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ScaleSpec :: !(Maybe V1ScaleSpec) -- ^ "spec" + , v1ScaleStatus :: !(Maybe V1ScaleStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Scale +instance A.FromJSON V1Scale where + parseJSON = A.withObject "V1Scale" $ \o -> + V1Scale + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Scale +instance A.ToJSON V1Scale where + toJSON V1Scale {..} = + _omitNulls + [ "apiVersion" .= v1ScaleApiVersion + , "kind" .= v1ScaleKind + , "metadata" .= v1ScaleMetadata + , "spec" .= v1ScaleSpec + , "status" .= v1ScaleStatus + ] + + +-- | Construct a value of type 'V1Scale' (by applying it's required fields, if any) +mkV1Scale + :: V1Scale +mkV1Scale = + V1Scale + { v1ScaleApiVersion = Nothing + , v1ScaleKind = Nothing + , v1ScaleMetadata = Nothing + , v1ScaleSpec = Nothing + , v1ScaleStatus = Nothing + } + +-- ** V1ScaleIOPersistentVolumeSource +-- | V1ScaleIOPersistentVolumeSource +-- ScaleIOPersistentVolumeSource represents a persistent ScaleIO volume +data V1ScaleIOPersistentVolumeSource = V1ScaleIOPersistentVolumeSource + { v1ScaleIOPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Default is \"xfs\" + , v1ScaleIOPersistentVolumeSourceGateway :: !(Text) -- ^ /Required/ "gateway" - gateway is the host address of the ScaleIO API Gateway. + , v1ScaleIOPersistentVolumeSourceProtectionDomain :: !(Maybe Text) -- ^ "protectionDomain" - protectionDomain is the name of the ScaleIO Protection Domain for the configured storage. + , v1ScaleIOPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1ScaleIOPersistentVolumeSourceSecretRef :: !(V1SecretReference) -- ^ /Required/ "secretRef" + , v1ScaleIOPersistentVolumeSourceSslEnabled :: !(Maybe Bool) -- ^ "sslEnabled" - sslEnabled is the flag to enable/disable SSL communication with Gateway, default false + , v1ScaleIOPersistentVolumeSourceStorageMode :: !(Maybe Text) -- ^ "storageMode" - storageMode indicates whether the storage for a volume should be ThickProvisioned or ThinProvisioned. Default is ThinProvisioned. + , v1ScaleIOPersistentVolumeSourceStoragePool :: !(Maybe Text) -- ^ "storagePool" - storagePool is the ScaleIO Storage Pool associated with the protection domain. + , v1ScaleIOPersistentVolumeSourceSystem :: !(Text) -- ^ /Required/ "system" - system is the name of the storage system as configured in ScaleIO. + , v1ScaleIOPersistentVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the name of a volume already created in the ScaleIO system that is associated with this volume source. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScaleIOPersistentVolumeSource +instance A.FromJSON V1ScaleIOPersistentVolumeSource where + parseJSON = A.withObject "V1ScaleIOPersistentVolumeSource" $ \o -> + V1ScaleIOPersistentVolumeSource + <$> (o .:? "fsType") + <*> (o .: "gateway") + <*> (o .:? "protectionDomain") + <*> (o .:? "readOnly") + <*> (o .: "secretRef") + <*> (o .:? "sslEnabled") + <*> (o .:? "storageMode") + <*> (o .:? "storagePool") + <*> (o .: "system") + <*> (o .:? "volumeName") + +-- | ToJSON V1ScaleIOPersistentVolumeSource +instance A.ToJSON V1ScaleIOPersistentVolumeSource where + toJSON V1ScaleIOPersistentVolumeSource {..} = + _omitNulls + [ "fsType" .= v1ScaleIOPersistentVolumeSourceFsType + , "gateway" .= v1ScaleIOPersistentVolumeSourceGateway + , "protectionDomain" .= v1ScaleIOPersistentVolumeSourceProtectionDomain + , "readOnly" .= v1ScaleIOPersistentVolumeSourceReadOnly + , "secretRef" .= v1ScaleIOPersistentVolumeSourceSecretRef + , "sslEnabled" .= v1ScaleIOPersistentVolumeSourceSslEnabled + , "storageMode" .= v1ScaleIOPersistentVolumeSourceStorageMode + , "storagePool" .= v1ScaleIOPersistentVolumeSourceStoragePool + , "system" .= v1ScaleIOPersistentVolumeSourceSystem + , "volumeName" .= v1ScaleIOPersistentVolumeSourceVolumeName + ] + + +-- | Construct a value of type 'V1ScaleIOPersistentVolumeSource' (by applying it's required fields, if any) +mkV1ScaleIOPersistentVolumeSource + :: Text -- ^ 'v1ScaleIOPersistentVolumeSourceGateway': gateway is the host address of the ScaleIO API Gateway. + -> V1SecretReference -- ^ 'v1ScaleIOPersistentVolumeSourceSecretRef' + -> Text -- ^ 'v1ScaleIOPersistentVolumeSourceSystem': system is the name of the storage system as configured in ScaleIO. + -> V1ScaleIOPersistentVolumeSource +mkV1ScaleIOPersistentVolumeSource v1ScaleIOPersistentVolumeSourceGateway v1ScaleIOPersistentVolumeSourceSecretRef v1ScaleIOPersistentVolumeSourceSystem = + V1ScaleIOPersistentVolumeSource + { v1ScaleIOPersistentVolumeSourceFsType = Nothing + , v1ScaleIOPersistentVolumeSourceGateway + , v1ScaleIOPersistentVolumeSourceProtectionDomain = Nothing + , v1ScaleIOPersistentVolumeSourceReadOnly = Nothing + , v1ScaleIOPersistentVolumeSourceSecretRef + , v1ScaleIOPersistentVolumeSourceSslEnabled = Nothing + , v1ScaleIOPersistentVolumeSourceStorageMode = Nothing + , v1ScaleIOPersistentVolumeSourceStoragePool = Nothing + , v1ScaleIOPersistentVolumeSourceSystem + , v1ScaleIOPersistentVolumeSourceVolumeName = Nothing + } + +-- ** V1ScaleIOVolumeSource +-- | V1ScaleIOVolumeSource +-- ScaleIOVolumeSource represents a persistent ScaleIO volume +data V1ScaleIOVolumeSource = V1ScaleIOVolumeSource + { v1ScaleIOVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Default is \"xfs\". + , v1ScaleIOVolumeSourceGateway :: !(Text) -- ^ /Required/ "gateway" - gateway is the host address of the ScaleIO API Gateway. + , v1ScaleIOVolumeSourceProtectionDomain :: !(Maybe Text) -- ^ "protectionDomain" - protectionDomain is the name of the ScaleIO Protection Domain for the configured storage. + , v1ScaleIOVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly Defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1ScaleIOVolumeSourceSecretRef :: !(V1LocalObjectReference) -- ^ /Required/ "secretRef" + , v1ScaleIOVolumeSourceSslEnabled :: !(Maybe Bool) -- ^ "sslEnabled" - sslEnabled Flag enable/disable SSL communication with Gateway, default false + , v1ScaleIOVolumeSourceStorageMode :: !(Maybe Text) -- ^ "storageMode" - storageMode indicates whether the storage for a volume should be ThickProvisioned or ThinProvisioned. Default is ThinProvisioned. + , v1ScaleIOVolumeSourceStoragePool :: !(Maybe Text) -- ^ "storagePool" - storagePool is the ScaleIO Storage Pool associated with the protection domain. + , v1ScaleIOVolumeSourceSystem :: !(Text) -- ^ /Required/ "system" - system is the name of the storage system as configured in ScaleIO. + , v1ScaleIOVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the name of a volume already created in the ScaleIO system that is associated with this volume source. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScaleIOVolumeSource +instance A.FromJSON V1ScaleIOVolumeSource where + parseJSON = A.withObject "V1ScaleIOVolumeSource" $ \o -> + V1ScaleIOVolumeSource + <$> (o .:? "fsType") + <*> (o .: "gateway") + <*> (o .:? "protectionDomain") + <*> (o .:? "readOnly") + <*> (o .: "secretRef") + <*> (o .:? "sslEnabled") + <*> (o .:? "storageMode") + <*> (o .:? "storagePool") + <*> (o .: "system") + <*> (o .:? "volumeName") + +-- | ToJSON V1ScaleIOVolumeSource +instance A.ToJSON V1ScaleIOVolumeSource where + toJSON V1ScaleIOVolumeSource {..} = + _omitNulls + [ "fsType" .= v1ScaleIOVolumeSourceFsType + , "gateway" .= v1ScaleIOVolumeSourceGateway + , "protectionDomain" .= v1ScaleIOVolumeSourceProtectionDomain + , "readOnly" .= v1ScaleIOVolumeSourceReadOnly + , "secretRef" .= v1ScaleIOVolumeSourceSecretRef + , "sslEnabled" .= v1ScaleIOVolumeSourceSslEnabled + , "storageMode" .= v1ScaleIOVolumeSourceStorageMode + , "storagePool" .= v1ScaleIOVolumeSourceStoragePool + , "system" .= v1ScaleIOVolumeSourceSystem + , "volumeName" .= v1ScaleIOVolumeSourceVolumeName + ] + + +-- | Construct a value of type 'V1ScaleIOVolumeSource' (by applying it's required fields, if any) +mkV1ScaleIOVolumeSource + :: Text -- ^ 'v1ScaleIOVolumeSourceGateway': gateway is the host address of the ScaleIO API Gateway. + -> V1LocalObjectReference -- ^ 'v1ScaleIOVolumeSourceSecretRef' + -> Text -- ^ 'v1ScaleIOVolumeSourceSystem': system is the name of the storage system as configured in ScaleIO. + -> V1ScaleIOVolumeSource +mkV1ScaleIOVolumeSource v1ScaleIOVolumeSourceGateway v1ScaleIOVolumeSourceSecretRef v1ScaleIOVolumeSourceSystem = + V1ScaleIOVolumeSource + { v1ScaleIOVolumeSourceFsType = Nothing + , v1ScaleIOVolumeSourceGateway + , v1ScaleIOVolumeSourceProtectionDomain = Nothing + , v1ScaleIOVolumeSourceReadOnly = Nothing + , v1ScaleIOVolumeSourceSecretRef + , v1ScaleIOVolumeSourceSslEnabled = Nothing + , v1ScaleIOVolumeSourceStorageMode = Nothing + , v1ScaleIOVolumeSourceStoragePool = Nothing + , v1ScaleIOVolumeSourceSystem + , v1ScaleIOVolumeSourceVolumeName = Nothing + } + +-- ** V1ScaleSpec +-- | V1ScaleSpec +-- ScaleSpec describes the attributes of a scale subresource. +data V1ScaleSpec = V1ScaleSpec + { v1ScaleSpecReplicas :: !(Maybe Int) -- ^ "replicas" - replicas is the desired number of instances for the scaled object. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScaleSpec +instance A.FromJSON V1ScaleSpec where + parseJSON = A.withObject "V1ScaleSpec" $ \o -> + V1ScaleSpec + <$> (o .:? "replicas") + +-- | ToJSON V1ScaleSpec +instance A.ToJSON V1ScaleSpec where + toJSON V1ScaleSpec {..} = + _omitNulls + [ "replicas" .= v1ScaleSpecReplicas + ] + + +-- | Construct a value of type 'V1ScaleSpec' (by applying it's required fields, if any) +mkV1ScaleSpec + :: V1ScaleSpec +mkV1ScaleSpec = + V1ScaleSpec + { v1ScaleSpecReplicas = Nothing + } + +-- ** V1ScaleStatus +-- | V1ScaleStatus +-- ScaleStatus represents the current status of a scale subresource. +data V1ScaleStatus = V1ScaleStatus + { v1ScaleStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - replicas is the actual number of observed instances of the scaled object. + , v1ScaleStatusSelector :: !(Maybe Text) -- ^ "selector" - selector is the label query over pods that should match the replicas count. This is same as the label selector but in the string format to avoid introspection by clients. The string will be in the same format as the query-param syntax. More info about label selectors: https://kubernetes.io/docs/concepts/overview/working-with-objects/labels/ + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScaleStatus +instance A.FromJSON V1ScaleStatus where + parseJSON = A.withObject "V1ScaleStatus" $ \o -> + V1ScaleStatus + <$> (o .: "replicas") + <*> (o .:? "selector") + +-- | ToJSON V1ScaleStatus +instance A.ToJSON V1ScaleStatus where + toJSON V1ScaleStatus {..} = + _omitNulls + [ "replicas" .= v1ScaleStatusReplicas + , "selector" .= v1ScaleStatusSelector + ] + + +-- | Construct a value of type 'V1ScaleStatus' (by applying it's required fields, if any) +mkV1ScaleStatus + :: Int -- ^ 'v1ScaleStatusReplicas': replicas is the actual number of observed instances of the scaled object. + -> V1ScaleStatus +mkV1ScaleStatus v1ScaleStatusReplicas = + V1ScaleStatus + { v1ScaleStatusReplicas + , v1ScaleStatusSelector = Nothing + } + +-- ** V1Scheduling +-- | V1Scheduling +-- Scheduling specifies the scheduling constraints for nodes supporting a RuntimeClass. +data V1Scheduling = V1Scheduling + { v1SchedulingNodeSelector :: !(Maybe (Map.Map String Text)) -- ^ "nodeSelector" - nodeSelector lists labels that must be present on nodes that support this RuntimeClass. Pods using this RuntimeClass can only be scheduled to a node matched by this selector. The RuntimeClass nodeSelector is merged with a pod's existing nodeSelector. Any conflicts will cause the pod to be rejected in admission. + , v1SchedulingTolerations :: !(Maybe [V1Toleration]) -- ^ "tolerations" - tolerations are appended (excluding duplicates) to pods running with this RuntimeClass during admission, effectively unioning the set of nodes tolerated by the pod and the RuntimeClass. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Scheduling +instance A.FromJSON V1Scheduling where + parseJSON = A.withObject "V1Scheduling" $ \o -> + V1Scheduling + <$> (o .:? "nodeSelector") + <*> (o .:? "tolerations") + +-- | ToJSON V1Scheduling +instance A.ToJSON V1Scheduling where + toJSON V1Scheduling {..} = + _omitNulls + [ "nodeSelector" .= v1SchedulingNodeSelector + , "tolerations" .= v1SchedulingTolerations + ] + + +-- | Construct a value of type 'V1Scheduling' (by applying it's required fields, if any) +mkV1Scheduling + :: V1Scheduling +mkV1Scheduling = + V1Scheduling + { v1SchedulingNodeSelector = Nothing + , v1SchedulingTolerations = Nothing + } + +-- ** V1ScopeSelector +-- | V1ScopeSelector +-- A scope selector represents the AND of the selectors represented by the scoped-resource selector requirements. +data V1ScopeSelector = V1ScopeSelector + { v1ScopeSelectorMatchExpressions :: !(Maybe [V1ScopedResourceSelectorRequirement]) -- ^ "matchExpressions" - A list of scope selector requirements by scope of the resources. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScopeSelector +instance A.FromJSON V1ScopeSelector where + parseJSON = A.withObject "V1ScopeSelector" $ \o -> + V1ScopeSelector + <$> (o .:? "matchExpressions") + +-- | ToJSON V1ScopeSelector +instance A.ToJSON V1ScopeSelector where + toJSON V1ScopeSelector {..} = + _omitNulls + [ "matchExpressions" .= v1ScopeSelectorMatchExpressions + ] + + +-- | Construct a value of type 'V1ScopeSelector' (by applying it's required fields, if any) +mkV1ScopeSelector + :: V1ScopeSelector +mkV1ScopeSelector = + V1ScopeSelector + { v1ScopeSelectorMatchExpressions = Nothing + } + +-- ** V1ScopedResourceSelectorRequirement +-- | V1ScopedResourceSelectorRequirement +-- A scoped-resource selector requirement is a selector that contains values, a scope name, and an operator that relates the scope name and values. +data V1ScopedResourceSelectorRequirement = V1ScopedResourceSelectorRequirement + { v1ScopedResourceSelectorRequirementOperator :: !(Text) -- ^ /Required/ "operator" - Represents a scope's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. + , v1ScopedResourceSelectorRequirementScopeName :: !(Text) -- ^ /Required/ "scopeName" - The name of the scope that the selector applies to. + , v1ScopedResourceSelectorRequirementValues :: !(Maybe [Text]) -- ^ "values" - An array of string values. If the operator is In or NotIn, the values array must be non-empty. If the operator is Exists or DoesNotExist, the values array must be empty. This array is replaced during a strategic merge patch. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ScopedResourceSelectorRequirement +instance A.FromJSON V1ScopedResourceSelectorRequirement where + parseJSON = A.withObject "V1ScopedResourceSelectorRequirement" $ \o -> + V1ScopedResourceSelectorRequirement + <$> (o .: "operator") + <*> (o .: "scopeName") + <*> (o .:? "values") + +-- | ToJSON V1ScopedResourceSelectorRequirement +instance A.ToJSON V1ScopedResourceSelectorRequirement where + toJSON V1ScopedResourceSelectorRequirement {..} = + _omitNulls + [ "operator" .= v1ScopedResourceSelectorRequirementOperator + , "scopeName" .= v1ScopedResourceSelectorRequirementScopeName + , "values" .= v1ScopedResourceSelectorRequirementValues + ] + + +-- | Construct a value of type 'V1ScopedResourceSelectorRequirement' (by applying it's required fields, if any) +mkV1ScopedResourceSelectorRequirement + :: Text -- ^ 'v1ScopedResourceSelectorRequirementOperator': Represents a scope's relationship to a set of values. Valid operators are In, NotIn, Exists, DoesNotExist. + -> Text -- ^ 'v1ScopedResourceSelectorRequirementScopeName': The name of the scope that the selector applies to. + -> V1ScopedResourceSelectorRequirement +mkV1ScopedResourceSelectorRequirement v1ScopedResourceSelectorRequirementOperator v1ScopedResourceSelectorRequirementScopeName = + V1ScopedResourceSelectorRequirement + { v1ScopedResourceSelectorRequirementOperator + , v1ScopedResourceSelectorRequirementScopeName + , v1ScopedResourceSelectorRequirementValues = Nothing + } + +-- ** V1SeccompProfile +-- | V1SeccompProfile +-- SeccompProfile defines a pod/container's seccomp profile settings. Only one profile source may be set. +data V1SeccompProfile = V1SeccompProfile + { v1SeccompProfileLocalhostProfile :: !(Maybe Text) -- ^ "localhostProfile" - localhostProfile indicates a profile defined in a file on the node should be used. The profile must be preconfigured on the node to work. Must be a descending path, relative to the kubelet's configured seccomp profile location. Must only be set if type is \"Localhost\". + , v1SeccompProfileType :: !(Text) -- ^ /Required/ "type" - type indicates which kind of seccomp profile will be applied. Valid options are: Localhost - a profile defined in a file on the node should be used. RuntimeDefault - the container runtime default profile should be used. Unconfined - no profile should be applied. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SeccompProfile +instance A.FromJSON V1SeccompProfile where + parseJSON = A.withObject "V1SeccompProfile" $ \o -> + V1SeccompProfile + <$> (o .:? "localhostProfile") + <*> (o .: "type") + +-- | ToJSON V1SeccompProfile +instance A.ToJSON V1SeccompProfile where + toJSON V1SeccompProfile {..} = + _omitNulls + [ "localhostProfile" .= v1SeccompProfileLocalhostProfile + , "type" .= v1SeccompProfileType + ] + + +-- | Construct a value of type 'V1SeccompProfile' (by applying it's required fields, if any) +mkV1SeccompProfile + :: Text -- ^ 'v1SeccompProfileType': type indicates which kind of seccomp profile will be applied. Valid options are: Localhost - a profile defined in a file on the node should be used. RuntimeDefault - the container runtime default profile should be used. Unconfined - no profile should be applied. + -> V1SeccompProfile +mkV1SeccompProfile v1SeccompProfileType = + V1SeccompProfile + { v1SeccompProfileLocalhostProfile = Nothing + , v1SeccompProfileType + } + +-- ** V1Secret +-- | V1Secret +-- Secret holds secret data of a certain type. The total bytes of the values in the Data field must be less than MaxSecretSize bytes. +data V1Secret = V1Secret + { v1SecretApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1SecretData :: !(Maybe (Map.Map String ByteArray)) -- ^ "data" - Data contains the secret data. Each key must consist of alphanumeric characters, '-', '_' or '.'. The serialized form of the secret data is a base64 encoded string, representing the arbitrary (possibly non-string) data value here. Described in https://tools.ietf.org/html/rfc4648#section-4 + , v1SecretImmutable :: !(Maybe Bool) -- ^ "immutable" - Immutable, if set to true, ensures that data stored in the Secret cannot be updated (only object metadata can be modified). If not set to true, the field can be modified at any time. Defaulted to nil. + , v1SecretKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1SecretMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1SecretStringData :: !(Maybe (Map.Map String Text)) -- ^ "stringData" - stringData allows specifying non-binary secret data in string form. It is provided as a write-only input field for convenience. All keys and values are merged into the data field on write, overwriting any existing values. The stringData field is never output when reading from the API. + , v1SecretType :: !(Maybe Text) -- ^ "type" - Used to facilitate programmatic handling of secret data. More info: https://kubernetes.io/docs/concepts/configuration/secret/#secret-types + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Secret +instance A.FromJSON V1Secret where + parseJSON = A.withObject "V1Secret" $ \o -> + V1Secret + <$> (o .:? "apiVersion") + <*> (o .:? "data") + <*> (o .:? "immutable") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "stringData") + <*> (o .:? "type") + +-- | ToJSON V1Secret +instance A.ToJSON V1Secret where + toJSON V1Secret {..} = + _omitNulls + [ "apiVersion" .= v1SecretApiVersion + , "data" .= v1SecretData + , "immutable" .= v1SecretImmutable + , "kind" .= v1SecretKind + , "metadata" .= v1SecretMetadata + , "stringData" .= v1SecretStringData + , "type" .= v1SecretType + ] + + +-- | Construct a value of type 'V1Secret' (by applying it's required fields, if any) +mkV1Secret + :: V1Secret +mkV1Secret = + V1Secret + { v1SecretApiVersion = Nothing + , v1SecretData = Nothing + , v1SecretImmutable = Nothing + , v1SecretKind = Nothing + , v1SecretMetadata = Nothing + , v1SecretStringData = Nothing + , v1SecretType = Nothing + } + +-- ** V1SecretEnvSource +-- | V1SecretEnvSource +-- SecretEnvSource selects a Secret to populate the environment variables with. The contents of the target Secret's Data field will represent the key-value pairs as environment variables. +data V1SecretEnvSource = V1SecretEnvSource + { v1SecretEnvSourceName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1SecretEnvSourceOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the Secret must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretEnvSource +instance A.FromJSON V1SecretEnvSource where + parseJSON = A.withObject "V1SecretEnvSource" $ \o -> + V1SecretEnvSource + <$> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1SecretEnvSource +instance A.ToJSON V1SecretEnvSource where + toJSON V1SecretEnvSource {..} = + _omitNulls + [ "name" .= v1SecretEnvSourceName + , "optional" .= v1SecretEnvSourceOptional + ] + + +-- | Construct a value of type 'V1SecretEnvSource' (by applying it's required fields, if any) +mkV1SecretEnvSource + :: V1SecretEnvSource +mkV1SecretEnvSource = + V1SecretEnvSource + { v1SecretEnvSourceName = Nothing + , v1SecretEnvSourceOptional = Nothing + } + +-- ** V1SecretKeySelector +-- | V1SecretKeySelector +-- SecretKeySelector selects a key of a Secret. +data V1SecretKeySelector = V1SecretKeySelector + { v1SecretKeySelectorKey :: !(Text) -- ^ /Required/ "key" - The key of the secret to select from. Must be a valid secret key. + , v1SecretKeySelectorName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1SecretKeySelectorOptional :: !(Maybe Bool) -- ^ "optional" - Specify whether the Secret or its key must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretKeySelector +instance A.FromJSON V1SecretKeySelector where + parseJSON = A.withObject "V1SecretKeySelector" $ \o -> + V1SecretKeySelector + <$> (o .: "key") + <*> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1SecretKeySelector +instance A.ToJSON V1SecretKeySelector where + toJSON V1SecretKeySelector {..} = + _omitNulls + [ "key" .= v1SecretKeySelectorKey + , "name" .= v1SecretKeySelectorName + , "optional" .= v1SecretKeySelectorOptional + ] + + +-- | Construct a value of type 'V1SecretKeySelector' (by applying it's required fields, if any) +mkV1SecretKeySelector + :: Text -- ^ 'v1SecretKeySelectorKey': The key of the secret to select from. Must be a valid secret key. + -> V1SecretKeySelector +mkV1SecretKeySelector v1SecretKeySelectorKey = + V1SecretKeySelector + { v1SecretKeySelectorKey + , v1SecretKeySelectorName = Nothing + , v1SecretKeySelectorOptional = Nothing + } + +-- ** V1SecretList +-- | V1SecretList +-- SecretList is a list of Secret. +data V1SecretList = V1SecretList + { v1SecretListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1SecretListItems :: !([V1Secret]) -- ^ /Required/ "items" - Items is a list of secret objects. More info: https://kubernetes.io/docs/concepts/configuration/secret + , v1SecretListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1SecretListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretList +instance A.FromJSON V1SecretList where + parseJSON = A.withObject "V1SecretList" $ \o -> + V1SecretList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1SecretList +instance A.ToJSON V1SecretList where + toJSON V1SecretList {..} = + _omitNulls + [ "apiVersion" .= v1SecretListApiVersion + , "items" .= v1SecretListItems + , "kind" .= v1SecretListKind + , "metadata" .= v1SecretListMetadata + ] + + +-- | Construct a value of type 'V1SecretList' (by applying it's required fields, if any) +mkV1SecretList + :: [V1Secret] -- ^ 'v1SecretListItems': Items is a list of secret objects. More info: https://kubernetes.io/docs/concepts/configuration/secret + -> V1SecretList +mkV1SecretList v1SecretListItems = + V1SecretList + { v1SecretListApiVersion = Nothing + , v1SecretListItems + , v1SecretListKind = Nothing + , v1SecretListMetadata = Nothing + } + +-- ** V1SecretProjection +-- | V1SecretProjection +-- Adapts a secret into a projected volume. The contents of the target Secret's Data field will be presented in a projected volume as files using the keys in the Data field as the file names. Note that this is identical to a secret volume source without the default mode. +data V1SecretProjection = V1SecretProjection + { v1SecretProjectionItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items if unspecified, each key-value pair in the Data field of the referenced Secret will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the Secret, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. + , v1SecretProjectionName :: !(Maybe Text) -- ^ "name" - Name of the referent. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1SecretProjectionOptional :: !(Maybe Bool) -- ^ "optional" - optional field specify whether the Secret or its key must be defined + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretProjection +instance A.FromJSON V1SecretProjection where + parseJSON = A.withObject "V1SecretProjection" $ \o -> + V1SecretProjection + <$> (o .:? "items") + <*> (o .:? "name") + <*> (o .:? "optional") + +-- | ToJSON V1SecretProjection +instance A.ToJSON V1SecretProjection where + toJSON V1SecretProjection {..} = + _omitNulls + [ "items" .= v1SecretProjectionItems + , "name" .= v1SecretProjectionName + , "optional" .= v1SecretProjectionOptional + ] + + +-- | Construct a value of type 'V1SecretProjection' (by applying it's required fields, if any) +mkV1SecretProjection + :: V1SecretProjection +mkV1SecretProjection = + V1SecretProjection + { v1SecretProjectionItems = Nothing + , v1SecretProjectionName = Nothing + , v1SecretProjectionOptional = Nothing + } + +-- ** V1SecretReference +-- | V1SecretReference +-- SecretReference represents a Secret Reference. It has enough information to retrieve secret in any namespace +data V1SecretReference = V1SecretReference + { v1SecretReferenceName :: !(Maybe Text) -- ^ "name" - name is unique within a namespace to reference a secret resource. + , v1SecretReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - namespace defines the space within which the secret name must be unique. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretReference +instance A.FromJSON V1SecretReference where + parseJSON = A.withObject "V1SecretReference" $ \o -> + V1SecretReference + <$> (o .:? "name") + <*> (o .:? "namespace") + +-- | ToJSON V1SecretReference +instance A.ToJSON V1SecretReference where + toJSON V1SecretReference {..} = + _omitNulls + [ "name" .= v1SecretReferenceName + , "namespace" .= v1SecretReferenceNamespace + ] + + +-- | Construct a value of type 'V1SecretReference' (by applying it's required fields, if any) +mkV1SecretReference + :: V1SecretReference +mkV1SecretReference = + V1SecretReference + { v1SecretReferenceName = Nothing + , v1SecretReferenceNamespace = Nothing + } + +-- ** V1SecretVolumeSource +-- | V1SecretVolumeSource +-- Adapts a Secret into a volume. The contents of the target Secret's Data field will be presented in a volume as files using the keys in the Data field as the file names. Secret volumes support ownership management and SELinux relabeling. +data V1SecretVolumeSource = V1SecretVolumeSource + { v1SecretVolumeSourceDefaultMode :: !(Maybe Int) -- ^ "defaultMode" - defaultMode is Optional: mode bits used to set permissions on created files by default. Must be an octal value between 0000 and 0777 or a decimal value between 0 and 511. YAML accepts both octal and decimal values, JSON requires decimal values for mode bits. Defaults to 0644. Directories within the path are not affected by this setting. This might be in conflict with other options that affect the file mode, like fsGroup, and the result can be other mode bits set. + , v1SecretVolumeSourceItems :: !(Maybe [V1KeyToPath]) -- ^ "items" - items If unspecified, each key-value pair in the Data field of the referenced Secret will be projected into the volume as a file whose name is the key and content is the value. If specified, the listed keys will be projected into the specified paths, and unlisted keys will not be present. If a key is specified which is not present in the Secret, the volume setup will error unless it is marked optional. Paths must be relative and may not contain the '..' path or start with '..'. + , v1SecretVolumeSourceOptional :: !(Maybe Bool) -- ^ "optional" - optional field specify whether the Secret or its keys must be defined + , v1SecretVolumeSourceSecretName :: !(Maybe Text) -- ^ "secretName" - secretName is the name of the secret in the pod's namespace to use. More info: https://kubernetes.io/docs/concepts/storage/volumes#secret + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecretVolumeSource +instance A.FromJSON V1SecretVolumeSource where + parseJSON = A.withObject "V1SecretVolumeSource" $ \o -> + V1SecretVolumeSource + <$> (o .:? "defaultMode") + <*> (o .:? "items") + <*> (o .:? "optional") + <*> (o .:? "secretName") + +-- | ToJSON V1SecretVolumeSource +instance A.ToJSON V1SecretVolumeSource where + toJSON V1SecretVolumeSource {..} = + _omitNulls + [ "defaultMode" .= v1SecretVolumeSourceDefaultMode + , "items" .= v1SecretVolumeSourceItems + , "optional" .= v1SecretVolumeSourceOptional + , "secretName" .= v1SecretVolumeSourceSecretName + ] + + +-- | Construct a value of type 'V1SecretVolumeSource' (by applying it's required fields, if any) +mkV1SecretVolumeSource + :: V1SecretVolumeSource +mkV1SecretVolumeSource = + V1SecretVolumeSource + { v1SecretVolumeSourceDefaultMode = Nothing + , v1SecretVolumeSourceItems = Nothing + , v1SecretVolumeSourceOptional = Nothing + , v1SecretVolumeSourceSecretName = Nothing + } + +-- ** V1SecurityContext +-- | V1SecurityContext +-- SecurityContext holds security configuration that will be applied to a container. Some fields are present in both SecurityContext and PodSecurityContext. When both are set, the values in SecurityContext take precedence. +data V1SecurityContext = V1SecurityContext + { v1SecurityContextAllowPrivilegeEscalation :: !(Maybe Bool) -- ^ "allowPrivilegeEscalation" - AllowPrivilegeEscalation controls whether a process can gain more privileges than its parent process. This bool directly controls if the no_new_privs flag will be set on the container process. AllowPrivilegeEscalation is true always when the container is: 1) run as Privileged 2) has CAP_SYS_ADMIN Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextCapabilities :: !(Maybe V1Capabilities) -- ^ "capabilities" + , v1SecurityContextPrivileged :: !(Maybe Bool) -- ^ "privileged" - Run container in privileged mode. Processes in privileged containers are essentially equivalent to root on the host. Defaults to false. Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextProcMount :: !(Maybe Text) -- ^ "procMount" - procMount denotes the type of proc mount to use for the containers. The default is DefaultProcMount which uses the container runtime defaults for readonly paths and masked paths. This requires the ProcMountType feature flag to be enabled. Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextReadOnlyRootFilesystem :: !(Maybe Bool) -- ^ "readOnlyRootFilesystem" - Whether this container has a read-only root filesystem. Default is false. Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextRunAsGroup :: !(Maybe Integer) -- ^ "runAsGroup" - The GID to run the entrypoint of the container process. Uses runtime default if unset. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextRunAsNonRoot :: !(Maybe Bool) -- ^ "runAsNonRoot" - Indicates that the container must run as a non-root user. If true, the Kubelet will validate the image at runtime to ensure that it does not run as UID 0 (root) and fail to start the container if it does. If unset or false, no such validation will be performed. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. + , v1SecurityContextRunAsUser :: !(Maybe Integer) -- ^ "runAsUser" - The UID to run the entrypoint of the container process. Defaults to user specified in image metadata if unspecified. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. Note that this field cannot be set when spec.os.name is windows. + , v1SecurityContextSeLinuxOptions :: !(Maybe V1SELinuxOptions) -- ^ "seLinuxOptions" + , v1SecurityContextSeccompProfile :: !(Maybe V1SeccompProfile) -- ^ "seccompProfile" + , v1SecurityContextWindowsOptions :: !(Maybe V1WindowsSecurityContextOptions) -- ^ "windowsOptions" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SecurityContext +instance A.FromJSON V1SecurityContext where + parseJSON = A.withObject "V1SecurityContext" $ \o -> + V1SecurityContext + <$> (o .:? "allowPrivilegeEscalation") + <*> (o .:? "capabilities") + <*> (o .:? "privileged") + <*> (o .:? "procMount") + <*> (o .:? "readOnlyRootFilesystem") + <*> (o .:? "runAsGroup") + <*> (o .:? "runAsNonRoot") + <*> (o .:? "runAsUser") + <*> (o .:? "seLinuxOptions") + <*> (o .:? "seccompProfile") + <*> (o .:? "windowsOptions") + +-- | ToJSON V1SecurityContext +instance A.ToJSON V1SecurityContext where + toJSON V1SecurityContext {..} = + _omitNulls + [ "allowPrivilegeEscalation" .= v1SecurityContextAllowPrivilegeEscalation + , "capabilities" .= v1SecurityContextCapabilities + , "privileged" .= v1SecurityContextPrivileged + , "procMount" .= v1SecurityContextProcMount + , "readOnlyRootFilesystem" .= v1SecurityContextReadOnlyRootFilesystem + , "runAsGroup" .= v1SecurityContextRunAsGroup + , "runAsNonRoot" .= v1SecurityContextRunAsNonRoot + , "runAsUser" .= v1SecurityContextRunAsUser + , "seLinuxOptions" .= v1SecurityContextSeLinuxOptions + , "seccompProfile" .= v1SecurityContextSeccompProfile + , "windowsOptions" .= v1SecurityContextWindowsOptions + ] + + +-- | Construct a value of type 'V1SecurityContext' (by applying it's required fields, if any) +mkV1SecurityContext + :: V1SecurityContext +mkV1SecurityContext = + V1SecurityContext + { v1SecurityContextAllowPrivilegeEscalation = Nothing + , v1SecurityContextCapabilities = Nothing + , v1SecurityContextPrivileged = Nothing + , v1SecurityContextProcMount = Nothing + , v1SecurityContextReadOnlyRootFilesystem = Nothing + , v1SecurityContextRunAsGroup = Nothing + , v1SecurityContextRunAsNonRoot = Nothing + , v1SecurityContextRunAsUser = Nothing + , v1SecurityContextSeLinuxOptions = Nothing + , v1SecurityContextSeccompProfile = Nothing + , v1SecurityContextWindowsOptions = Nothing + } + +-- ** V1SelfSubjectAccessReview +-- | V1SelfSubjectAccessReview +-- SelfSubjectAccessReview checks whether or the current user can perform an action. Not filling in a spec.namespace means \"in all namespaces\". Self is a special case, because users should always be able to check whether they can perform an action +data V1SelfSubjectAccessReview = V1SelfSubjectAccessReview + { v1SelfSubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1SelfSubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1SelfSubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1SelfSubjectAccessReviewSpec :: !(V1SelfSubjectAccessReviewSpec) -- ^ /Required/ "spec" + , v1SelfSubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SelfSubjectAccessReview +instance A.FromJSON V1SelfSubjectAccessReview where + parseJSON = A.withObject "V1SelfSubjectAccessReview" $ \o -> + V1SelfSubjectAccessReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1SelfSubjectAccessReview +instance A.ToJSON V1SelfSubjectAccessReview where + toJSON V1SelfSubjectAccessReview {..} = + _omitNulls + [ "apiVersion" .= v1SelfSubjectAccessReviewApiVersion + , "kind" .= v1SelfSubjectAccessReviewKind + , "metadata" .= v1SelfSubjectAccessReviewMetadata + , "spec" .= v1SelfSubjectAccessReviewSpec + , "status" .= v1SelfSubjectAccessReviewStatus + ] + + +-- | Construct a value of type 'V1SelfSubjectAccessReview' (by applying it's required fields, if any) +mkV1SelfSubjectAccessReview + :: V1SelfSubjectAccessReviewSpec -- ^ 'v1SelfSubjectAccessReviewSpec' + -> V1SelfSubjectAccessReview +mkV1SelfSubjectAccessReview v1SelfSubjectAccessReviewSpec = + V1SelfSubjectAccessReview + { v1SelfSubjectAccessReviewApiVersion = Nothing + , v1SelfSubjectAccessReviewKind = Nothing + , v1SelfSubjectAccessReviewMetadata = Nothing + , v1SelfSubjectAccessReviewSpec + , v1SelfSubjectAccessReviewStatus = Nothing + } + +-- ** V1SelfSubjectAccessReviewSpec +-- | V1SelfSubjectAccessReviewSpec +-- SelfSubjectAccessReviewSpec is a description of the access request. Exactly one of ResourceAuthorizationAttributes and NonResourceAuthorizationAttributes must be set +data V1SelfSubjectAccessReviewSpec = V1SelfSubjectAccessReviewSpec + { v1SelfSubjectAccessReviewSpecNonResourceAttributes :: !(Maybe V1NonResourceAttributes) -- ^ "nonResourceAttributes" + , v1SelfSubjectAccessReviewSpecResourceAttributes :: !(Maybe V1ResourceAttributes) -- ^ "resourceAttributes" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SelfSubjectAccessReviewSpec +instance A.FromJSON V1SelfSubjectAccessReviewSpec where + parseJSON = A.withObject "V1SelfSubjectAccessReviewSpec" $ \o -> + V1SelfSubjectAccessReviewSpec + <$> (o .:? "nonResourceAttributes") + <*> (o .:? "resourceAttributes") + +-- | ToJSON V1SelfSubjectAccessReviewSpec +instance A.ToJSON V1SelfSubjectAccessReviewSpec where + toJSON V1SelfSubjectAccessReviewSpec {..} = + _omitNulls + [ "nonResourceAttributes" .= v1SelfSubjectAccessReviewSpecNonResourceAttributes + , "resourceAttributes" .= v1SelfSubjectAccessReviewSpecResourceAttributes + ] + + +-- | Construct a value of type 'V1SelfSubjectAccessReviewSpec' (by applying it's required fields, if any) +mkV1SelfSubjectAccessReviewSpec + :: V1SelfSubjectAccessReviewSpec +mkV1SelfSubjectAccessReviewSpec = + V1SelfSubjectAccessReviewSpec + { v1SelfSubjectAccessReviewSpecNonResourceAttributes = Nothing + , v1SelfSubjectAccessReviewSpecResourceAttributes = Nothing + } + +-- ** V1SelfSubjectRulesReview +-- | V1SelfSubjectRulesReview +-- SelfSubjectRulesReview enumerates the set of actions the current user can perform within a namespace. The returned list of actions may be incomplete depending on the server's authorization mode, and any errors experienced during the evaluation. SelfSubjectRulesReview should be used by UIs to show/hide actions, or to quickly let an end user reason about their permissions. It should NOT Be used by external systems to drive authorization decisions as this raises confused deputy, cache lifetime/revocation, and correctness concerns. SubjectAccessReview, and LocalAccessReview are the correct way to defer authorization decisions to the API server. +data V1SelfSubjectRulesReview = V1SelfSubjectRulesReview + { v1SelfSubjectRulesReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1SelfSubjectRulesReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1SelfSubjectRulesReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1SelfSubjectRulesReviewSpec :: !(V1SelfSubjectRulesReviewSpec) -- ^ /Required/ "spec" + , v1SelfSubjectRulesReviewStatus :: !(Maybe V1SubjectRulesReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SelfSubjectRulesReview +instance A.FromJSON V1SelfSubjectRulesReview where + parseJSON = A.withObject "V1SelfSubjectRulesReview" $ \o -> + V1SelfSubjectRulesReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1SelfSubjectRulesReview +instance A.ToJSON V1SelfSubjectRulesReview where + toJSON V1SelfSubjectRulesReview {..} = + _omitNulls + [ "apiVersion" .= v1SelfSubjectRulesReviewApiVersion + , "kind" .= v1SelfSubjectRulesReviewKind + , "metadata" .= v1SelfSubjectRulesReviewMetadata + , "spec" .= v1SelfSubjectRulesReviewSpec + , "status" .= v1SelfSubjectRulesReviewStatus + ] + + +-- | Construct a value of type 'V1SelfSubjectRulesReview' (by applying it's required fields, if any) +mkV1SelfSubjectRulesReview + :: V1SelfSubjectRulesReviewSpec -- ^ 'v1SelfSubjectRulesReviewSpec' + -> V1SelfSubjectRulesReview +mkV1SelfSubjectRulesReview v1SelfSubjectRulesReviewSpec = + V1SelfSubjectRulesReview + { v1SelfSubjectRulesReviewApiVersion = Nothing + , v1SelfSubjectRulesReviewKind = Nothing + , v1SelfSubjectRulesReviewMetadata = Nothing + , v1SelfSubjectRulesReviewSpec + , v1SelfSubjectRulesReviewStatus = Nothing + } + +-- ** V1SelfSubjectRulesReviewSpec +-- | V1SelfSubjectRulesReviewSpec +-- SelfSubjectRulesReviewSpec defines the specification for SelfSubjectRulesReview. +data V1SelfSubjectRulesReviewSpec = V1SelfSubjectRulesReviewSpec + { v1SelfSubjectRulesReviewSpecNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace to evaluate rules for. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SelfSubjectRulesReviewSpec +instance A.FromJSON V1SelfSubjectRulesReviewSpec where + parseJSON = A.withObject "V1SelfSubjectRulesReviewSpec" $ \o -> + V1SelfSubjectRulesReviewSpec + <$> (o .:? "namespace") + +-- | ToJSON V1SelfSubjectRulesReviewSpec +instance A.ToJSON V1SelfSubjectRulesReviewSpec where + toJSON V1SelfSubjectRulesReviewSpec {..} = + _omitNulls + [ "namespace" .= v1SelfSubjectRulesReviewSpecNamespace + ] + + +-- | Construct a value of type 'V1SelfSubjectRulesReviewSpec' (by applying it's required fields, if any) +mkV1SelfSubjectRulesReviewSpec + :: V1SelfSubjectRulesReviewSpec +mkV1SelfSubjectRulesReviewSpec = + V1SelfSubjectRulesReviewSpec + { v1SelfSubjectRulesReviewSpecNamespace = Nothing + } + +-- ** V1ServerAddressByClientCIDR +-- | V1ServerAddressByClientCIDR +-- ServerAddressByClientCIDR helps the client to determine the server address that they should use, depending on the clientCIDR that they match. +data V1ServerAddressByClientCIDR = V1ServerAddressByClientCIDR + { v1ServerAddressByClientCIDRClientCidr :: !(Text) -- ^ /Required/ "clientCIDR" - The CIDR with which clients can match their IP to figure out the server address that they should use. + , v1ServerAddressByClientCIDRServerAddress :: !(Text) -- ^ /Required/ "serverAddress" - Address of this server, suitable for a client that matches the above CIDR. This can be a hostname, hostname:port, IP or IP:port. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServerAddressByClientCIDR +instance A.FromJSON V1ServerAddressByClientCIDR where + parseJSON = A.withObject "V1ServerAddressByClientCIDR" $ \o -> + V1ServerAddressByClientCIDR + <$> (o .: "clientCIDR") + <*> (o .: "serverAddress") + +-- | ToJSON V1ServerAddressByClientCIDR +instance A.ToJSON V1ServerAddressByClientCIDR where + toJSON V1ServerAddressByClientCIDR {..} = + _omitNulls + [ "clientCIDR" .= v1ServerAddressByClientCIDRClientCidr + , "serverAddress" .= v1ServerAddressByClientCIDRServerAddress + ] + + +-- | Construct a value of type 'V1ServerAddressByClientCIDR' (by applying it's required fields, if any) +mkV1ServerAddressByClientCIDR + :: Text -- ^ 'v1ServerAddressByClientCIDRClientCidr': The CIDR with which clients can match their IP to figure out the server address that they should use. + -> Text -- ^ 'v1ServerAddressByClientCIDRServerAddress': Address of this server, suitable for a client that matches the above CIDR. This can be a hostname, hostname:port, IP or IP:port. + -> V1ServerAddressByClientCIDR +mkV1ServerAddressByClientCIDR v1ServerAddressByClientCIDRClientCidr v1ServerAddressByClientCIDRServerAddress = + V1ServerAddressByClientCIDR + { v1ServerAddressByClientCIDRClientCidr + , v1ServerAddressByClientCIDRServerAddress + } + +-- ** V1Service +-- | V1Service +-- Service is a named abstraction of software service (for example, mysql) consisting of local port (for example 3306) that the proxy listens on, and the selector that determines which pods will answer requests sent through the proxy. +data V1Service = V1Service + { v1ServiceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ServiceKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ServiceMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ServiceSpec :: !(Maybe V1ServiceSpec) -- ^ "spec" + , v1ServiceStatus :: !(Maybe V1ServiceStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Service +instance A.FromJSON V1Service where + parseJSON = A.withObject "V1Service" $ \o -> + V1Service + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1Service +instance A.ToJSON V1Service where + toJSON V1Service {..} = + _omitNulls + [ "apiVersion" .= v1ServiceApiVersion + , "kind" .= v1ServiceKind + , "metadata" .= v1ServiceMetadata + , "spec" .= v1ServiceSpec + , "status" .= v1ServiceStatus + ] + + +-- | Construct a value of type 'V1Service' (by applying it's required fields, if any) +mkV1Service + :: V1Service +mkV1Service = + V1Service + { v1ServiceApiVersion = Nothing + , v1ServiceKind = Nothing + , v1ServiceMetadata = Nothing + , v1ServiceSpec = Nothing + , v1ServiceStatus = Nothing + } + +-- ** V1ServiceAccount +-- | V1ServiceAccount +-- ServiceAccount binds together: * a name, understood by users, and perhaps by peripheral systems, for an identity * a principal that can be authenticated and authorized * a set of secrets +data V1ServiceAccount = V1ServiceAccount + { v1ServiceAccountApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ServiceAccountAutomountServiceAccountToken :: !(Maybe Bool) -- ^ "automountServiceAccountToken" - AutomountServiceAccountToken indicates whether pods running as this service account should have an API token automatically mounted. Can be overridden at the pod level. + , v1ServiceAccountImagePullSecrets :: !(Maybe [V1LocalObjectReference]) -- ^ "imagePullSecrets" - ImagePullSecrets is a list of references to secrets in the same namespace to use for pulling any images in pods that reference this ServiceAccount. ImagePullSecrets are distinct from Secrets because Secrets can be mounted in the pod, but ImagePullSecrets are only accessed by the kubelet. More info: https://kubernetes.io/docs/concepts/containers/images/#specifying-imagepullsecrets-on-a-pod + , v1ServiceAccountKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ServiceAccountMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ServiceAccountSecrets :: !(Maybe [V1ObjectReference]) -- ^ "secrets" - Secrets is a list of the secrets in the same namespace that pods running using this ServiceAccount are allowed to use. Pods are only limited to this list if this service account has a \"kubernetes.io/enforce-mountable-secrets\" annotation set to \"true\". This field should not be used to find auto-generated service account token secrets for use outside of pods. Instead, tokens can be requested directly using the TokenRequest API, or service account token secrets can be manually created. More info: https://kubernetes.io/docs/concepts/configuration/secret + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceAccount +instance A.FromJSON V1ServiceAccount where + parseJSON = A.withObject "V1ServiceAccount" $ \o -> + V1ServiceAccount + <$> (o .:? "apiVersion") + <*> (o .:? "automountServiceAccountToken") + <*> (o .:? "imagePullSecrets") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "secrets") + +-- | ToJSON V1ServiceAccount +instance A.ToJSON V1ServiceAccount where + toJSON V1ServiceAccount {..} = + _omitNulls + [ "apiVersion" .= v1ServiceAccountApiVersion + , "automountServiceAccountToken" .= v1ServiceAccountAutomountServiceAccountToken + , "imagePullSecrets" .= v1ServiceAccountImagePullSecrets + , "kind" .= v1ServiceAccountKind + , "metadata" .= v1ServiceAccountMetadata + , "secrets" .= v1ServiceAccountSecrets + ] + + +-- | Construct a value of type 'V1ServiceAccount' (by applying it's required fields, if any) +mkV1ServiceAccount + :: V1ServiceAccount +mkV1ServiceAccount = + V1ServiceAccount + { v1ServiceAccountApiVersion = Nothing + , v1ServiceAccountAutomountServiceAccountToken = Nothing + , v1ServiceAccountImagePullSecrets = Nothing + , v1ServiceAccountKind = Nothing + , v1ServiceAccountMetadata = Nothing + , v1ServiceAccountSecrets = Nothing + } + +-- ** V1ServiceAccountList +-- | V1ServiceAccountList +-- ServiceAccountList is a list of ServiceAccount objects +data V1ServiceAccountList = V1ServiceAccountList + { v1ServiceAccountListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ServiceAccountListItems :: !([V1ServiceAccount]) -- ^ /Required/ "items" - List of ServiceAccounts. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ + , v1ServiceAccountListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ServiceAccountListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceAccountList +instance A.FromJSON V1ServiceAccountList where + parseJSON = A.withObject "V1ServiceAccountList" $ \o -> + V1ServiceAccountList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ServiceAccountList +instance A.ToJSON V1ServiceAccountList where + toJSON V1ServiceAccountList {..} = + _omitNulls + [ "apiVersion" .= v1ServiceAccountListApiVersion + , "items" .= v1ServiceAccountListItems + , "kind" .= v1ServiceAccountListKind + , "metadata" .= v1ServiceAccountListMetadata + ] + + +-- | Construct a value of type 'V1ServiceAccountList' (by applying it's required fields, if any) +mkV1ServiceAccountList + :: [V1ServiceAccount] -- ^ 'v1ServiceAccountListItems': List of ServiceAccounts. More info: https://kubernetes.io/docs/tasks/configure-pod-container/configure-service-account/ + -> V1ServiceAccountList +mkV1ServiceAccountList v1ServiceAccountListItems = + V1ServiceAccountList + { v1ServiceAccountListApiVersion = Nothing + , v1ServiceAccountListItems + , v1ServiceAccountListKind = Nothing + , v1ServiceAccountListMetadata = Nothing + } + +-- ** V1ServiceAccountTokenProjection +-- | V1ServiceAccountTokenProjection +-- ServiceAccountTokenProjection represents a projected service account token volume. This projection can be used to insert a service account token into the pods runtime filesystem for use against APIs (Kubernetes API Server or otherwise). +data V1ServiceAccountTokenProjection = V1ServiceAccountTokenProjection + { v1ServiceAccountTokenProjectionAudience :: !(Maybe Text) -- ^ "audience" - audience is the intended audience of the token. A recipient of a token must identify itself with an identifier specified in the audience of the token, and otherwise should reject the token. The audience defaults to the identifier of the apiserver. + , v1ServiceAccountTokenProjectionExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - expirationSeconds is the requested duration of validity of the service account token. As the token approaches expiration, the kubelet volume plugin will proactively rotate the service account token. The kubelet will start trying to rotate the token if the token is older than 80 percent of its time to live or if the token is older than 24 hours.Defaults to 1 hour and must be at least 10 minutes. + , v1ServiceAccountTokenProjectionPath :: !(Text) -- ^ /Required/ "path" - path is the path relative to the mount point of the file to project the token into. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceAccountTokenProjection +instance A.FromJSON V1ServiceAccountTokenProjection where + parseJSON = A.withObject "V1ServiceAccountTokenProjection" $ \o -> + V1ServiceAccountTokenProjection + <$> (o .:? "audience") + <*> (o .:? "expirationSeconds") + <*> (o .: "path") + +-- | ToJSON V1ServiceAccountTokenProjection +instance A.ToJSON V1ServiceAccountTokenProjection where + toJSON V1ServiceAccountTokenProjection {..} = + _omitNulls + [ "audience" .= v1ServiceAccountTokenProjectionAudience + , "expirationSeconds" .= v1ServiceAccountTokenProjectionExpirationSeconds + , "path" .= v1ServiceAccountTokenProjectionPath + ] + + +-- | Construct a value of type 'V1ServiceAccountTokenProjection' (by applying it's required fields, if any) +mkV1ServiceAccountTokenProjection + :: Text -- ^ 'v1ServiceAccountTokenProjectionPath': path is the path relative to the mount point of the file to project the token into. + -> V1ServiceAccountTokenProjection +mkV1ServiceAccountTokenProjection v1ServiceAccountTokenProjectionPath = + V1ServiceAccountTokenProjection + { v1ServiceAccountTokenProjectionAudience = Nothing + , v1ServiceAccountTokenProjectionExpirationSeconds = Nothing + , v1ServiceAccountTokenProjectionPath + } + +-- ** V1ServiceBackendPort +-- | V1ServiceBackendPort +-- ServiceBackendPort is the service port being referenced. +data V1ServiceBackendPort = V1ServiceBackendPort + { v1ServiceBackendPortName :: !(Maybe Text) -- ^ "name" - name is the name of the port on the Service. This is a mutually exclusive setting with \"Number\". + , v1ServiceBackendPortNumber :: !(Maybe Int) -- ^ "number" - number is the numerical port number (e.g. 80) on the Service. This is a mutually exclusive setting with \"Name\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceBackendPort +instance A.FromJSON V1ServiceBackendPort where + parseJSON = A.withObject "V1ServiceBackendPort" $ \o -> + V1ServiceBackendPort + <$> (o .:? "name") + <*> (o .:? "number") + +-- | ToJSON V1ServiceBackendPort +instance A.ToJSON V1ServiceBackendPort where + toJSON V1ServiceBackendPort {..} = + _omitNulls + [ "name" .= v1ServiceBackendPortName + , "number" .= v1ServiceBackendPortNumber + ] + + +-- | Construct a value of type 'V1ServiceBackendPort' (by applying it's required fields, if any) +mkV1ServiceBackendPort + :: V1ServiceBackendPort +mkV1ServiceBackendPort = + V1ServiceBackendPort + { v1ServiceBackendPortName = Nothing + , v1ServiceBackendPortNumber = Nothing + } + +-- ** V1ServiceList +-- | V1ServiceList +-- ServiceList holds a list of services. +data V1ServiceList = V1ServiceList + { v1ServiceListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ServiceListItems :: !([V1Service]) -- ^ /Required/ "items" - List of services + , v1ServiceListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ServiceListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceList +instance A.FromJSON V1ServiceList where + parseJSON = A.withObject "V1ServiceList" $ \o -> + V1ServiceList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ServiceList +instance A.ToJSON V1ServiceList where + toJSON V1ServiceList {..} = + _omitNulls + [ "apiVersion" .= v1ServiceListApiVersion + , "items" .= v1ServiceListItems + , "kind" .= v1ServiceListKind + , "metadata" .= v1ServiceListMetadata + ] + + +-- | Construct a value of type 'V1ServiceList' (by applying it's required fields, if any) +mkV1ServiceList + :: [V1Service] -- ^ 'v1ServiceListItems': List of services + -> V1ServiceList +mkV1ServiceList v1ServiceListItems = + V1ServiceList + { v1ServiceListApiVersion = Nothing + , v1ServiceListItems + , v1ServiceListKind = Nothing + , v1ServiceListMetadata = Nothing + } + +-- ** V1ServicePort +-- | V1ServicePort +-- ServicePort contains information on service's port. +data V1ServicePort = V1ServicePort + { v1ServicePortAppProtocol :: !(Maybe Text) -- ^ "appProtocol" - The application protocol for this port. This field follows standard Kubernetes label syntax. Un-prefixed names are reserved for IANA standard service names (as per RFC-6335 and https://www.iana.org/assignments/service-names). Non-standard protocols should use prefixed names such as mycompany.com/my-custom-protocol. + , v1ServicePortName :: !(Maybe Text) -- ^ "name" - The name of this port within the service. This must be a DNS_LABEL. All ports within a ServiceSpec must have unique names. When considering the endpoints for a Service, this must match the 'name' field in the EndpointPort. Optional if only one ServicePort is defined on this service. + , v1ServicePortNodePort :: !(Maybe Int) -- ^ "nodePort" - The port on each node on which this service is exposed when type is NodePort or LoadBalancer. Usually assigned by the system. If a value is specified, in-range, and not in use it will be used, otherwise the operation will fail. If not specified, a port will be allocated if this Service requires one. If this field is specified when creating a Service which does not need it, creation will fail. This field will be wiped when updating a Service to no longer need it (e.g. changing type from NodePort to ClusterIP). More info: https://kubernetes.io/docs/concepts/services-networking/service/#type-nodeport + , v1ServicePortPort :: !(Int) -- ^ /Required/ "port" - The port that will be exposed by this service. + , v1ServicePortProtocol :: !(Maybe Text) -- ^ "protocol" - The IP protocol for this port. Supports \"TCP\", \"UDP\", and \"SCTP\". Default is TCP. + , v1ServicePortTargetPort :: !(Maybe IntOrString) -- ^ "targetPort" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServicePort +instance A.FromJSON V1ServicePort where + parseJSON = A.withObject "V1ServicePort" $ \o -> + V1ServicePort + <$> (o .:? "appProtocol") + <*> (o .:? "name") + <*> (o .:? "nodePort") + <*> (o .: "port") + <*> (o .:? "protocol") + <*> (o .:? "targetPort") + +-- | ToJSON V1ServicePort +instance A.ToJSON V1ServicePort where + toJSON V1ServicePort {..} = + _omitNulls + [ "appProtocol" .= v1ServicePortAppProtocol + , "name" .= v1ServicePortName + , "nodePort" .= v1ServicePortNodePort + , "port" .= v1ServicePortPort + , "protocol" .= v1ServicePortProtocol + , "targetPort" .= v1ServicePortTargetPort + ] + + +-- | Construct a value of type 'V1ServicePort' (by applying it's required fields, if any) +mkV1ServicePort + :: Int -- ^ 'v1ServicePortPort': The port that will be exposed by this service. + -> V1ServicePort +mkV1ServicePort v1ServicePortPort = + V1ServicePort + { v1ServicePortAppProtocol = Nothing + , v1ServicePortName = Nothing + , v1ServicePortNodePort = Nothing + , v1ServicePortPort + , v1ServicePortProtocol = Nothing + , v1ServicePortTargetPort = Nothing + } + +-- ** V1ServiceSpec +-- | V1ServiceSpec +-- ServiceSpec describes the attributes that a user creates on a service. +data V1ServiceSpec = V1ServiceSpec + { v1ServiceSpecAllocateLoadBalancerNodePorts :: !(Maybe Bool) -- ^ "allocateLoadBalancerNodePorts" - allocateLoadBalancerNodePorts defines if NodePorts will be automatically allocated for services with type LoadBalancer. Default is \"true\". It may be set to \"false\" if the cluster load-balancer does not rely on NodePorts. If the caller requests specific NodePorts (by specifying a value), those requests will be respected, regardless of this field. This field may only be set for services with type LoadBalancer and will be cleared if the type is changed to any other type. + , v1ServiceSpecClusterIp :: !(Maybe Text) -- ^ "clusterIP" - clusterIP is the IP address of the service and is usually assigned randomly. If an address is specified manually, is in-range (as per system configuration), and is not in use, it will be allocated to the service; otherwise creation of the service will fail. This field may not be changed through updates unless the type field is also being changed to ExternalName (which requires this field to be blank) or the type field is being changed from ExternalName (in which case this field may optionally be specified, as describe above). Valid values are \"None\", empty string (\"\"), or a valid IP address. Setting this to \"None\" makes a \"headless service\" (no virtual IP), which is useful when direct endpoint connections are preferred and proxying is not required. Only applies to types ClusterIP, NodePort, and LoadBalancer. If this field is specified when creating a Service of type ExternalName, creation will fail. This field will be wiped when updating a Service to type ExternalName. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies + , v1ServiceSpecClusterIps :: !(Maybe [Text]) -- ^ "clusterIPs" - ClusterIPs is a list of IP addresses assigned to this service, and are usually assigned randomly. If an address is specified manually, is in-range (as per system configuration), and is not in use, it will be allocated to the service; otherwise creation of the service will fail. This field may not be changed through updates unless the type field is also being changed to ExternalName (which requires this field to be empty) or the type field is being changed from ExternalName (in which case this field may optionally be specified, as describe above). Valid values are \"None\", empty string (\"\"), or a valid IP address. Setting this to \"None\" makes a \"headless service\" (no virtual IP), which is useful when direct endpoint connections are preferred and proxying is not required. Only applies to types ClusterIP, NodePort, and LoadBalancer. If this field is specified when creating a Service of type ExternalName, creation will fail. This field will be wiped when updating a Service to type ExternalName. If this field is not specified, it will be initialized from the clusterIP field. If this field is specified, clients must ensure that clusterIPs[0] and clusterIP have the same value. This field may hold a maximum of two entries (dual-stack IPs, in either order). These IPs must correspond to the values of the ipFamilies field. Both clusterIPs and ipFamilies are governed by the ipFamilyPolicy field. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies + , v1ServiceSpecExternalIps :: !(Maybe [Text]) -- ^ "externalIPs" - externalIPs is a list of IP addresses for which nodes in the cluster will also accept traffic for this service. These IPs are not managed by Kubernetes. The user is responsible for ensuring that traffic arrives at a node with this IP. A common example is external load-balancers that are not part of the Kubernetes system. + , v1ServiceSpecExternalName :: !(Maybe Text) -- ^ "externalName" - externalName is the external reference that discovery mechanisms will return as an alias for this service (e.g. a DNS CNAME record). No proxying will be involved. Must be a lowercase RFC-1123 hostname (https://tools.ietf.org/html/rfc1123) and requires `type` to be \"ExternalName\". + , v1ServiceSpecExternalTrafficPolicy :: !(Maybe Text) -- ^ "externalTrafficPolicy" - externalTrafficPolicy describes how nodes distribute service traffic they receive on one of the Service's \"externally-facing\" addresses (NodePorts, ExternalIPs, and LoadBalancer IPs). If set to \"Local\", the proxy will configure the service in a way that assumes that external load balancers will take care of balancing the service traffic between nodes, and so each node will deliver traffic only to the node-local endpoints of the service, without masquerading the client source IP. (Traffic mistakenly sent to a node with no endpoints will be dropped.) The default value, \"Cluster\", uses the standard behavior of routing to all endpoints evenly (possibly modified by topology and other features). Note that traffic sent to an External IP or LoadBalancer IP from within the cluster will always get \"Cluster\" semantics, but clients sending to a NodePort from within the cluster may need to take traffic policy into account when picking a node. + , v1ServiceSpecHealthCheckNodePort :: !(Maybe Int) -- ^ "healthCheckNodePort" - healthCheckNodePort specifies the healthcheck nodePort for the service. This only applies when type is set to LoadBalancer and externalTrafficPolicy is set to Local. If a value is specified, is in-range, and is not in use, it will be used. If not specified, a value will be automatically allocated. External systems (e.g. load-balancers) can use this port to determine if a given node holds endpoints for this service or not. If this field is specified when creating a Service which does not need it, creation will fail. This field will be wiped when updating a Service to no longer need it (e.g. changing type). This field cannot be updated once set. + , v1ServiceSpecInternalTrafficPolicy :: !(Maybe Text) -- ^ "internalTrafficPolicy" - InternalTrafficPolicy describes how nodes distribute service traffic they receive on the ClusterIP. If set to \"Local\", the proxy will assume that pods only want to talk to endpoints of the service on the same node as the pod, dropping the traffic if there are no local endpoints. The default value, \"Cluster\", uses the standard behavior of routing to all endpoints evenly (possibly modified by topology and other features). + , v1ServiceSpecIpFamilies :: !(Maybe [Text]) -- ^ "ipFamilies" - IPFamilies is a list of IP families (e.g. IPv4, IPv6) assigned to this service. This field is usually assigned automatically based on cluster configuration and the ipFamilyPolicy field. If this field is specified manually, the requested family is available in the cluster, and ipFamilyPolicy allows it, it will be used; otherwise creation of the service will fail. This field is conditionally mutable: it allows for adding or removing a secondary IP family, but it does not allow changing the primary IP family of the Service. Valid values are \"IPv4\" and \"IPv6\". This field only applies to Services of types ClusterIP, NodePort, and LoadBalancer, and does apply to \"headless\" services. This field will be wiped when updating a Service to type ExternalName. This field may hold a maximum of two entries (dual-stack families, in either order). These families must correspond to the values of the clusterIPs field, if specified. Both clusterIPs and ipFamilies are governed by the ipFamilyPolicy field. + , v1ServiceSpecIpFamilyPolicy :: !(Maybe Text) -- ^ "ipFamilyPolicy" - IPFamilyPolicy represents the dual-stack-ness requested or required by this Service. If there is no value provided, then this field will be set to SingleStack. Services can be \"SingleStack\" (a single IP family), \"PreferDualStack\" (two IP families on dual-stack configured clusters or a single IP family on single-stack clusters), or \"RequireDualStack\" (two IP families on dual-stack configured clusters, otherwise fail). The ipFamilies and clusterIPs fields depend on the value of this field. This field will be wiped when updating a service to type ExternalName. + , v1ServiceSpecLoadBalancerClass :: !(Maybe Text) -- ^ "loadBalancerClass" - loadBalancerClass is the class of the load balancer implementation this Service belongs to. If specified, the value of this field must be a label-style identifier, with an optional prefix, e.g. \"internal-vip\" or \"example.com/internal-vip\". Unprefixed names are reserved for end-users. This field can only be set when the Service type is 'LoadBalancer'. If not set, the default load balancer implementation is used, today this is typically done through the cloud provider integration, but should apply for any default implementation. If set, it is assumed that a load balancer implementation is watching for Services with a matching class. Any default load balancer implementation (e.g. cloud providers) should ignore Services that set this field. This field can only be set when creating or updating a Service to type 'LoadBalancer'. Once set, it can not be changed. This field will be wiped when a service is updated to a non 'LoadBalancer' type. + , v1ServiceSpecLoadBalancerIp :: !(Maybe Text) -- ^ "loadBalancerIP" - Only applies to Service Type: LoadBalancer. This feature depends on whether the underlying cloud-provider supports specifying the loadBalancerIP when a load balancer is created. This field will be ignored if the cloud-provider does not support the feature. Deprecated: This field was under-specified and its meaning varies across implementations, and it cannot support dual-stack. As of Kubernetes v1.24, users are encouraged to use implementation-specific annotations when available. This field may be removed in a future API version. + , v1ServiceSpecLoadBalancerSourceRanges :: !(Maybe [Text]) -- ^ "loadBalancerSourceRanges" - If specified and supported by the platform, this will restrict traffic through the cloud-provider load-balancer will be restricted to the specified client IPs. This field will be ignored if the cloud-provider does not support the feature.\" More info: https://kubernetes.io/docs/tasks/access-application-cluster/create-external-load-balancer/ + , v1ServiceSpecPorts :: !(Maybe [V1ServicePort]) -- ^ "ports" - The list of ports that are exposed by this service. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies + , v1ServiceSpecPublishNotReadyAddresses :: !(Maybe Bool) -- ^ "publishNotReadyAddresses" - publishNotReadyAddresses indicates that any agent which deals with endpoints for this Service should disregard any indications of ready/not-ready. The primary use case for setting this field is for a StatefulSet's Headless Service to propagate SRV DNS records for its Pods for the purpose of peer discovery. The Kubernetes controllers that generate Endpoints and EndpointSlice resources for Services interpret this to mean that all endpoints are considered \"ready\" even if the Pods themselves are not. Agents which consume only Kubernetes generated endpoints through the Endpoints or EndpointSlice resources can safely assume this behavior. + , v1ServiceSpecSelector :: !(Maybe (Map.Map String Text)) -- ^ "selector" - Route service traffic to pods with label keys and values matching this selector. If empty or not present, the service is assumed to have an external process managing its endpoints, which Kubernetes will not modify. Only applies to types ClusterIP, NodePort, and LoadBalancer. Ignored if type is ExternalName. More info: https://kubernetes.io/docs/concepts/services-networking/service/ + , v1ServiceSpecSessionAffinity :: !(Maybe Text) -- ^ "sessionAffinity" - Supports \"ClientIP\" and \"None\". Used to maintain session affinity. Enable client IP based session affinity. Must be ClientIP or None. Defaults to None. More info: https://kubernetes.io/docs/concepts/services-networking/service/#virtual-ips-and-service-proxies + , v1ServiceSpecSessionAffinityConfig :: !(Maybe V1SessionAffinityConfig) -- ^ "sessionAffinityConfig" + , v1ServiceSpecType :: !(Maybe Text) -- ^ "type" - type determines how the Service is exposed. Defaults to ClusterIP. Valid options are ExternalName, ClusterIP, NodePort, and LoadBalancer. \"ClusterIP\" allocates a cluster-internal IP address for load-balancing to endpoints. Endpoints are determined by the selector or if that is not specified, by manual construction of an Endpoints object or EndpointSlice objects. If clusterIP is \"None\", no virtual IP is allocated and the endpoints are published as a set of endpoints rather than a virtual IP. \"NodePort\" builds on ClusterIP and allocates a port on every node which routes to the same endpoints as the clusterIP. \"LoadBalancer\" builds on NodePort and creates an external load-balancer (if supported in the current cloud) which routes to the same endpoints as the clusterIP. \"ExternalName\" aliases this service to the specified externalName. Several other fields do not apply to ExternalName services. More info: https://kubernetes.io/docs/concepts/services-networking/service/#publishing-services-service-types + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceSpec +instance A.FromJSON V1ServiceSpec where + parseJSON = A.withObject "V1ServiceSpec" $ \o -> + V1ServiceSpec + <$> (o .:? "allocateLoadBalancerNodePorts") + <*> (o .:? "clusterIP") + <*> (o .:? "clusterIPs") + <*> (o .:? "externalIPs") + <*> (o .:? "externalName") + <*> (o .:? "externalTrafficPolicy") + <*> (o .:? "healthCheckNodePort") + <*> (o .:? "internalTrafficPolicy") + <*> (o .:? "ipFamilies") + <*> (o .:? "ipFamilyPolicy") + <*> (o .:? "loadBalancerClass") + <*> (o .:? "loadBalancerIP") + <*> (o .:? "loadBalancerSourceRanges") + <*> (o .:? "ports") + <*> (o .:? "publishNotReadyAddresses") + <*> (o .:? "selector") + <*> (o .:? "sessionAffinity") + <*> (o .:? "sessionAffinityConfig") + <*> (o .:? "type") + +-- | ToJSON V1ServiceSpec +instance A.ToJSON V1ServiceSpec where + toJSON V1ServiceSpec {..} = + _omitNulls + [ "allocateLoadBalancerNodePorts" .= v1ServiceSpecAllocateLoadBalancerNodePorts + , "clusterIP" .= v1ServiceSpecClusterIp + , "clusterIPs" .= v1ServiceSpecClusterIps + , "externalIPs" .= v1ServiceSpecExternalIps + , "externalName" .= v1ServiceSpecExternalName + , "externalTrafficPolicy" .= v1ServiceSpecExternalTrafficPolicy + , "healthCheckNodePort" .= v1ServiceSpecHealthCheckNodePort + , "internalTrafficPolicy" .= v1ServiceSpecInternalTrafficPolicy + , "ipFamilies" .= v1ServiceSpecIpFamilies + , "ipFamilyPolicy" .= v1ServiceSpecIpFamilyPolicy + , "loadBalancerClass" .= v1ServiceSpecLoadBalancerClass + , "loadBalancerIP" .= v1ServiceSpecLoadBalancerIp + , "loadBalancerSourceRanges" .= v1ServiceSpecLoadBalancerSourceRanges + , "ports" .= v1ServiceSpecPorts + , "publishNotReadyAddresses" .= v1ServiceSpecPublishNotReadyAddresses + , "selector" .= v1ServiceSpecSelector + , "sessionAffinity" .= v1ServiceSpecSessionAffinity + , "sessionAffinityConfig" .= v1ServiceSpecSessionAffinityConfig + , "type" .= v1ServiceSpecType + ] + + +-- | Construct a value of type 'V1ServiceSpec' (by applying it's required fields, if any) +mkV1ServiceSpec + :: V1ServiceSpec +mkV1ServiceSpec = + V1ServiceSpec + { v1ServiceSpecAllocateLoadBalancerNodePorts = Nothing + , v1ServiceSpecClusterIp = Nothing + , v1ServiceSpecClusterIps = Nothing + , v1ServiceSpecExternalIps = Nothing + , v1ServiceSpecExternalName = Nothing + , v1ServiceSpecExternalTrafficPolicy = Nothing + , v1ServiceSpecHealthCheckNodePort = Nothing + , v1ServiceSpecInternalTrafficPolicy = Nothing + , v1ServiceSpecIpFamilies = Nothing + , v1ServiceSpecIpFamilyPolicy = Nothing + , v1ServiceSpecLoadBalancerClass = Nothing + , v1ServiceSpecLoadBalancerIp = Nothing + , v1ServiceSpecLoadBalancerSourceRanges = Nothing + , v1ServiceSpecPorts = Nothing + , v1ServiceSpecPublishNotReadyAddresses = Nothing + , v1ServiceSpecSelector = Nothing + , v1ServiceSpecSessionAffinity = Nothing + , v1ServiceSpecSessionAffinityConfig = Nothing + , v1ServiceSpecType = Nothing + } + +-- ** V1ServiceStatus +-- | V1ServiceStatus +-- ServiceStatus represents the current status of a service. +data V1ServiceStatus = V1ServiceStatus + { v1ServiceStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - Current service state + , v1ServiceStatusLoadBalancer :: !(Maybe V1LoadBalancerStatus) -- ^ "loadBalancer" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ServiceStatus +instance A.FromJSON V1ServiceStatus where + parseJSON = A.withObject "V1ServiceStatus" $ \o -> + V1ServiceStatus + <$> (o .:? "conditions") + <*> (o .:? "loadBalancer") + +-- | ToJSON V1ServiceStatus +instance A.ToJSON V1ServiceStatus where + toJSON V1ServiceStatus {..} = + _omitNulls + [ "conditions" .= v1ServiceStatusConditions + , "loadBalancer" .= v1ServiceStatusLoadBalancer + ] + + +-- | Construct a value of type 'V1ServiceStatus' (by applying it's required fields, if any) +mkV1ServiceStatus + :: V1ServiceStatus +mkV1ServiceStatus = + V1ServiceStatus + { v1ServiceStatusConditions = Nothing + , v1ServiceStatusLoadBalancer = Nothing + } + +-- ** V1SessionAffinityConfig +-- | V1SessionAffinityConfig +-- SessionAffinityConfig represents the configurations of session affinity. +data V1SessionAffinityConfig = V1SessionAffinityConfig + { v1SessionAffinityConfigClientIp :: !(Maybe V1ClientIPConfig) -- ^ "clientIP" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SessionAffinityConfig +instance A.FromJSON V1SessionAffinityConfig where + parseJSON = A.withObject "V1SessionAffinityConfig" $ \o -> + V1SessionAffinityConfig + <$> (o .:? "clientIP") + +-- | ToJSON V1SessionAffinityConfig +instance A.ToJSON V1SessionAffinityConfig where + toJSON V1SessionAffinityConfig {..} = + _omitNulls + [ "clientIP" .= v1SessionAffinityConfigClientIp + ] + + +-- | Construct a value of type 'V1SessionAffinityConfig' (by applying it's required fields, if any) +mkV1SessionAffinityConfig + :: V1SessionAffinityConfig +mkV1SessionAffinityConfig = + V1SessionAffinityConfig + { v1SessionAffinityConfigClientIp = Nothing + } + +-- ** V1StatefulSet +-- | V1StatefulSet +-- StatefulSet represents a set of pods with consistent identities. Identities are defined as: - Network: A single stable DNS and hostname. - Storage: As many VolumeClaims as requested. The StatefulSet guarantees that a given network identity will always map to the same storage identity. +data V1StatefulSet = V1StatefulSet + { v1StatefulSetApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1StatefulSetKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StatefulSetMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1StatefulSetSpec :: !(Maybe V1StatefulSetSpec) -- ^ "spec" + , v1StatefulSetStatus :: !(Maybe V1StatefulSetStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSet +instance A.FromJSON V1StatefulSet where + parseJSON = A.withObject "V1StatefulSet" $ \o -> + V1StatefulSet + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1StatefulSet +instance A.ToJSON V1StatefulSet where + toJSON V1StatefulSet {..} = + _omitNulls + [ "apiVersion" .= v1StatefulSetApiVersion + , "kind" .= v1StatefulSetKind + , "metadata" .= v1StatefulSetMetadata + , "spec" .= v1StatefulSetSpec + , "status" .= v1StatefulSetStatus + ] + + +-- | Construct a value of type 'V1StatefulSet' (by applying it's required fields, if any) +mkV1StatefulSet + :: V1StatefulSet +mkV1StatefulSet = + V1StatefulSet + { v1StatefulSetApiVersion = Nothing + , v1StatefulSetKind = Nothing + , v1StatefulSetMetadata = Nothing + , v1StatefulSetSpec = Nothing + , v1StatefulSetStatus = Nothing + } + +-- ** V1StatefulSetCondition +-- | V1StatefulSetCondition +-- StatefulSetCondition describes the state of a statefulset at a certain point. +data V1StatefulSetCondition = V1StatefulSetCondition + { v1StatefulSetConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1StatefulSetConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1StatefulSetConditionReason :: !(Maybe Text) -- ^ "reason" - The reason for the condition's last transition. + , v1StatefulSetConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1StatefulSetConditionType :: !(Text) -- ^ /Required/ "type" - Type of statefulset condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetCondition +instance A.FromJSON V1StatefulSetCondition where + parseJSON = A.withObject "V1StatefulSetCondition" $ \o -> + V1StatefulSetCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1StatefulSetCondition +instance A.ToJSON V1StatefulSetCondition where + toJSON V1StatefulSetCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1StatefulSetConditionLastTransitionTime + , "message" .= v1StatefulSetConditionMessage + , "reason" .= v1StatefulSetConditionReason + , "status" .= v1StatefulSetConditionStatus + , "type" .= v1StatefulSetConditionType + ] + + +-- | Construct a value of type 'V1StatefulSetCondition' (by applying it's required fields, if any) +mkV1StatefulSetCondition + :: Text -- ^ 'v1StatefulSetConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1StatefulSetConditionType': Type of statefulset condition. + -> V1StatefulSetCondition +mkV1StatefulSetCondition v1StatefulSetConditionStatus v1StatefulSetConditionType = + V1StatefulSetCondition + { v1StatefulSetConditionLastTransitionTime = Nothing + , v1StatefulSetConditionMessage = Nothing + , v1StatefulSetConditionReason = Nothing + , v1StatefulSetConditionStatus + , v1StatefulSetConditionType + } + +-- ** V1StatefulSetList +-- | V1StatefulSetList +-- StatefulSetList is a collection of StatefulSets. +data V1StatefulSetList = V1StatefulSetList + { v1StatefulSetListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1StatefulSetListItems :: !([V1StatefulSet]) -- ^ /Required/ "items" - Items is the list of stateful sets. + , v1StatefulSetListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StatefulSetListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetList +instance A.FromJSON V1StatefulSetList where + parseJSON = A.withObject "V1StatefulSetList" $ \o -> + V1StatefulSetList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1StatefulSetList +instance A.ToJSON V1StatefulSetList where + toJSON V1StatefulSetList {..} = + _omitNulls + [ "apiVersion" .= v1StatefulSetListApiVersion + , "items" .= v1StatefulSetListItems + , "kind" .= v1StatefulSetListKind + , "metadata" .= v1StatefulSetListMetadata + ] + + +-- | Construct a value of type 'V1StatefulSetList' (by applying it's required fields, if any) +mkV1StatefulSetList + :: [V1StatefulSet] -- ^ 'v1StatefulSetListItems': Items is the list of stateful sets. + -> V1StatefulSetList +mkV1StatefulSetList v1StatefulSetListItems = + V1StatefulSetList + { v1StatefulSetListApiVersion = Nothing + , v1StatefulSetListItems + , v1StatefulSetListKind = Nothing + , v1StatefulSetListMetadata = Nothing + } + +-- ** V1StatefulSetOrdinals +-- | V1StatefulSetOrdinals +-- StatefulSetOrdinals describes the policy used for replica ordinal assignment in this StatefulSet. +data V1StatefulSetOrdinals = V1StatefulSetOrdinals + { v1StatefulSetOrdinalsStart :: !(Maybe Int) -- ^ "start" - start is the number representing the first replica's index. It may be used to number replicas from an alternate index (eg: 1-indexed) over the default 0-indexed names, or to orchestrate progressive movement of replicas from one StatefulSet to another. If set, replica indices will be in the range: [.spec.ordinals.start, .spec.ordinals.start + .spec.replicas). If unset, defaults to 0. Replica indices will be in the range: [0, .spec.replicas). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetOrdinals +instance A.FromJSON V1StatefulSetOrdinals where + parseJSON = A.withObject "V1StatefulSetOrdinals" $ \o -> + V1StatefulSetOrdinals + <$> (o .:? "start") + +-- | ToJSON V1StatefulSetOrdinals +instance A.ToJSON V1StatefulSetOrdinals where + toJSON V1StatefulSetOrdinals {..} = + _omitNulls + [ "start" .= v1StatefulSetOrdinalsStart + ] + + +-- | Construct a value of type 'V1StatefulSetOrdinals' (by applying it's required fields, if any) +mkV1StatefulSetOrdinals + :: V1StatefulSetOrdinals +mkV1StatefulSetOrdinals = + V1StatefulSetOrdinals + { v1StatefulSetOrdinalsStart = Nothing + } + +-- ** V1StatefulSetPersistentVolumeClaimRetentionPolicy +-- | V1StatefulSetPersistentVolumeClaimRetentionPolicy +-- StatefulSetPersistentVolumeClaimRetentionPolicy describes the policy used for PVCs created from the StatefulSet VolumeClaimTemplates. +data V1StatefulSetPersistentVolumeClaimRetentionPolicy = V1StatefulSetPersistentVolumeClaimRetentionPolicy + { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted :: !(Maybe Text) -- ^ "whenDeleted" - WhenDeleted specifies what happens to PVCs created from StatefulSet VolumeClaimTemplates when the StatefulSet is deleted. The default policy of `Retain` causes PVCs to not be affected by StatefulSet deletion. The `Delete` policy causes those PVCs to be deleted. + , v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled :: !(Maybe Text) -- ^ "whenScaled" - WhenScaled specifies what happens to PVCs created from StatefulSet VolumeClaimTemplates when the StatefulSet is scaled down. The default policy of `Retain` causes PVCs to not be affected by a scaledown. The `Delete` policy causes the associated PVCs for any excess pods above the replica count to be deleted. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy +instance A.FromJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy where + parseJSON = A.withObject "V1StatefulSetPersistentVolumeClaimRetentionPolicy" $ \o -> + V1StatefulSetPersistentVolumeClaimRetentionPolicy + <$> (o .:? "whenDeleted") + <*> (o .:? "whenScaled") + +-- | ToJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy +instance A.ToJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy where + toJSON V1StatefulSetPersistentVolumeClaimRetentionPolicy {..} = + _omitNulls + [ "whenDeleted" .= v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted + , "whenScaled" .= v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled + ] + + +-- | Construct a value of type 'V1StatefulSetPersistentVolumeClaimRetentionPolicy' (by applying it's required fields, if any) +mkV1StatefulSetPersistentVolumeClaimRetentionPolicy + :: V1StatefulSetPersistentVolumeClaimRetentionPolicy +mkV1StatefulSetPersistentVolumeClaimRetentionPolicy = + V1StatefulSetPersistentVolumeClaimRetentionPolicy + { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted = Nothing + , v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled = Nothing + } + +-- ** V1StatefulSetSpec +-- | V1StatefulSetSpec +-- A StatefulSetSpec is the specification of a StatefulSet. +data V1StatefulSetSpec = V1StatefulSetSpec + { v1StatefulSetSpecMinReadySeconds :: !(Maybe Int) -- ^ "minReadySeconds" - Minimum number of seconds for which a newly created pod should be ready without any of its container crashing for it to be considered available. Defaults to 0 (pod will be considered available as soon as it is ready) + , v1StatefulSetSpecOrdinals :: !(Maybe V1StatefulSetOrdinals) -- ^ "ordinals" + , v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy :: !(Maybe V1StatefulSetPersistentVolumeClaimRetentionPolicy) -- ^ "persistentVolumeClaimRetentionPolicy" + , v1StatefulSetSpecPodManagementPolicy :: !(Maybe Text) -- ^ "podManagementPolicy" - podManagementPolicy controls how pods are created during initial scale up, when replacing pods on nodes, or when scaling down. The default policy is `OrderedReady`, where pods are created in increasing order (pod-0, then pod-1, etc) and the controller will wait until each pod is ready before continuing. When scaling down, the pods are removed in the opposite order. The alternative policy is `Parallel` which will create pods in parallel to match the desired scale without waiting, and on scale down will delete all pods at once. + , v1StatefulSetSpecReplicas :: !(Maybe Int) -- ^ "replicas" - replicas is the desired number of replicas of the given Template. These are replicas in the sense that they are instantiations of the same Template, but individual replicas also have a consistent identity. If unspecified, defaults to 1. + , v1StatefulSetSpecRevisionHistoryLimit :: !(Maybe Int) -- ^ "revisionHistoryLimit" - revisionHistoryLimit is the maximum number of revisions that will be maintained in the StatefulSet's revision history. The revision history consists of all revisions not represented by a currently applied StatefulSetSpec version. The default value is 10. + , v1StatefulSetSpecSelector :: !(V1LabelSelector) -- ^ /Required/ "selector" + , v1StatefulSetSpecServiceName :: !(Text) -- ^ /Required/ "serviceName" - serviceName is the name of the service that governs this StatefulSet. This service must exist before the StatefulSet, and is responsible for the network identity of the set. Pods get DNS/hostnames that follow the pattern: pod-specific-string.serviceName.default.svc.cluster.local where \"pod-specific-string\" is managed by the StatefulSet controller. + , v1StatefulSetSpecTemplate :: !(V1PodTemplateSpec) -- ^ /Required/ "template" + , v1StatefulSetSpecUpdateStrategy :: !(Maybe V1StatefulSetUpdateStrategy) -- ^ "updateStrategy" + , v1StatefulSetSpecVolumeClaimTemplates :: !(Maybe [V1PersistentVolumeClaim]) -- ^ "volumeClaimTemplates" - volumeClaimTemplates is a list of claims that pods are allowed to reference. The StatefulSet controller is responsible for mapping network identities to claims in a way that maintains the identity of a pod. Every claim in this list must have at least one matching (by name) volumeMount in one container in the template. A claim in this list takes precedence over any volumes in the template, with the same name. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetSpec +instance A.FromJSON V1StatefulSetSpec where + parseJSON = A.withObject "V1StatefulSetSpec" $ \o -> + V1StatefulSetSpec + <$> (o .:? "minReadySeconds") + <*> (o .:? "ordinals") + <*> (o .:? "persistentVolumeClaimRetentionPolicy") + <*> (o .:? "podManagementPolicy") + <*> (o .:? "replicas") + <*> (o .:? "revisionHistoryLimit") + <*> (o .: "selector") + <*> (o .: "serviceName") + <*> (o .: "template") + <*> (o .:? "updateStrategy") + <*> (o .:? "volumeClaimTemplates") + +-- | ToJSON V1StatefulSetSpec +instance A.ToJSON V1StatefulSetSpec where + toJSON V1StatefulSetSpec {..} = + _omitNulls + [ "minReadySeconds" .= v1StatefulSetSpecMinReadySeconds + , "ordinals" .= v1StatefulSetSpecOrdinals + , "persistentVolumeClaimRetentionPolicy" .= v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy + , "podManagementPolicy" .= v1StatefulSetSpecPodManagementPolicy + , "replicas" .= v1StatefulSetSpecReplicas + , "revisionHistoryLimit" .= v1StatefulSetSpecRevisionHistoryLimit + , "selector" .= v1StatefulSetSpecSelector + , "serviceName" .= v1StatefulSetSpecServiceName + , "template" .= v1StatefulSetSpecTemplate + , "updateStrategy" .= v1StatefulSetSpecUpdateStrategy + , "volumeClaimTemplates" .= v1StatefulSetSpecVolumeClaimTemplates + ] + + +-- | Construct a value of type 'V1StatefulSetSpec' (by applying it's required fields, if any) +mkV1StatefulSetSpec + :: V1LabelSelector -- ^ 'v1StatefulSetSpecSelector' + -> Text -- ^ 'v1StatefulSetSpecServiceName': serviceName is the name of the service that governs this StatefulSet. This service must exist before the StatefulSet, and is responsible for the network identity of the set. Pods get DNS/hostnames that follow the pattern: pod-specific-string.serviceName.default.svc.cluster.local where \"pod-specific-string\" is managed by the StatefulSet controller. + -> V1PodTemplateSpec -- ^ 'v1StatefulSetSpecTemplate' + -> V1StatefulSetSpec +mkV1StatefulSetSpec v1StatefulSetSpecSelector v1StatefulSetSpecServiceName v1StatefulSetSpecTemplate = + V1StatefulSetSpec + { v1StatefulSetSpecMinReadySeconds = Nothing + , v1StatefulSetSpecOrdinals = Nothing + , v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy = Nothing + , v1StatefulSetSpecPodManagementPolicy = Nothing + , v1StatefulSetSpecReplicas = Nothing + , v1StatefulSetSpecRevisionHistoryLimit = Nothing + , v1StatefulSetSpecSelector + , v1StatefulSetSpecServiceName + , v1StatefulSetSpecTemplate + , v1StatefulSetSpecUpdateStrategy = Nothing + , v1StatefulSetSpecVolumeClaimTemplates = Nothing + } + +-- ** V1StatefulSetStatus +-- | V1StatefulSetStatus +-- StatefulSetStatus represents the current state of a StatefulSet. +data V1StatefulSetStatus = V1StatefulSetStatus + { v1StatefulSetStatusAvailableReplicas :: !(Maybe Int) -- ^ "availableReplicas" - Total number of available pods (ready for at least minReadySeconds) targeted by this statefulset. + , v1StatefulSetStatusCollisionCount :: !(Maybe Int) -- ^ "collisionCount" - collisionCount is the count of hash collisions for the StatefulSet. The StatefulSet controller uses this field as a collision avoidance mechanism when it needs to create the name for the newest ControllerRevision. + , v1StatefulSetStatusConditions :: !(Maybe [V1StatefulSetCondition]) -- ^ "conditions" - Represents the latest available observations of a statefulset's current state. + , v1StatefulSetStatusCurrentReplicas :: !(Maybe Int) -- ^ "currentReplicas" - currentReplicas is the number of Pods created by the StatefulSet controller from the StatefulSet version indicated by currentRevision. + , v1StatefulSetStatusCurrentRevision :: !(Maybe Text) -- ^ "currentRevision" - currentRevision, if not empty, indicates the version of the StatefulSet used to generate Pods in the sequence [0,currentReplicas). + , v1StatefulSetStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration is the most recent generation observed for this StatefulSet. It corresponds to the StatefulSet's generation, which is updated on mutation by the API Server. + , v1StatefulSetStatusReadyReplicas :: !(Maybe Int) -- ^ "readyReplicas" - readyReplicas is the number of pods created for this StatefulSet with a Ready Condition. + , v1StatefulSetStatusReplicas :: !(Int) -- ^ /Required/ "replicas" - replicas is the number of Pods created by the StatefulSet controller. + , v1StatefulSetStatusUpdateRevision :: !(Maybe Text) -- ^ "updateRevision" - updateRevision, if not empty, indicates the version of the StatefulSet used to generate Pods in the sequence [replicas-updatedReplicas,replicas) + , v1StatefulSetStatusUpdatedReplicas :: !(Maybe Int) -- ^ "updatedReplicas" - updatedReplicas is the number of Pods created by the StatefulSet controller from the StatefulSet version indicated by updateRevision. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetStatus +instance A.FromJSON V1StatefulSetStatus where + parseJSON = A.withObject "V1StatefulSetStatus" $ \o -> + V1StatefulSetStatus + <$> (o .:? "availableReplicas") + <*> (o .:? "collisionCount") + <*> (o .:? "conditions") + <*> (o .:? "currentReplicas") + <*> (o .:? "currentRevision") + <*> (o .:? "observedGeneration") + <*> (o .:? "readyReplicas") + <*> (o .: "replicas") + <*> (o .:? "updateRevision") + <*> (o .:? "updatedReplicas") + +-- | ToJSON V1StatefulSetStatus +instance A.ToJSON V1StatefulSetStatus where + toJSON V1StatefulSetStatus {..} = + _omitNulls + [ "availableReplicas" .= v1StatefulSetStatusAvailableReplicas + , "collisionCount" .= v1StatefulSetStatusCollisionCount + , "conditions" .= v1StatefulSetStatusConditions + , "currentReplicas" .= v1StatefulSetStatusCurrentReplicas + , "currentRevision" .= v1StatefulSetStatusCurrentRevision + , "observedGeneration" .= v1StatefulSetStatusObservedGeneration + , "readyReplicas" .= v1StatefulSetStatusReadyReplicas + , "replicas" .= v1StatefulSetStatusReplicas + , "updateRevision" .= v1StatefulSetStatusUpdateRevision + , "updatedReplicas" .= v1StatefulSetStatusUpdatedReplicas + ] + + +-- | Construct a value of type 'V1StatefulSetStatus' (by applying it's required fields, if any) +mkV1StatefulSetStatus + :: Int -- ^ 'v1StatefulSetStatusReplicas': replicas is the number of Pods created by the StatefulSet controller. + -> V1StatefulSetStatus +mkV1StatefulSetStatus v1StatefulSetStatusReplicas = + V1StatefulSetStatus + { v1StatefulSetStatusAvailableReplicas = Nothing + , v1StatefulSetStatusCollisionCount = Nothing + , v1StatefulSetStatusConditions = Nothing + , v1StatefulSetStatusCurrentReplicas = Nothing + , v1StatefulSetStatusCurrentRevision = Nothing + , v1StatefulSetStatusObservedGeneration = Nothing + , v1StatefulSetStatusReadyReplicas = Nothing + , v1StatefulSetStatusReplicas + , v1StatefulSetStatusUpdateRevision = Nothing + , v1StatefulSetStatusUpdatedReplicas = Nothing + } + +-- ** V1StatefulSetUpdateStrategy +-- | V1StatefulSetUpdateStrategy +-- StatefulSetUpdateStrategy indicates the strategy that the StatefulSet controller will use to perform updates. It includes any additional parameters necessary to perform the update for the indicated strategy. +data V1StatefulSetUpdateStrategy = V1StatefulSetUpdateStrategy + { v1StatefulSetUpdateStrategyRollingUpdate :: !(Maybe V1RollingUpdateStatefulSetStrategy) -- ^ "rollingUpdate" + , v1StatefulSetUpdateStrategyType :: !(Maybe Text) -- ^ "type" - Type indicates the type of the StatefulSetUpdateStrategy. Default is RollingUpdate. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatefulSetUpdateStrategy +instance A.FromJSON V1StatefulSetUpdateStrategy where + parseJSON = A.withObject "V1StatefulSetUpdateStrategy" $ \o -> + V1StatefulSetUpdateStrategy + <$> (o .:? "rollingUpdate") + <*> (o .:? "type") + +-- | ToJSON V1StatefulSetUpdateStrategy +instance A.ToJSON V1StatefulSetUpdateStrategy where + toJSON V1StatefulSetUpdateStrategy {..} = + _omitNulls + [ "rollingUpdate" .= v1StatefulSetUpdateStrategyRollingUpdate + , "type" .= v1StatefulSetUpdateStrategyType + ] + + +-- | Construct a value of type 'V1StatefulSetUpdateStrategy' (by applying it's required fields, if any) +mkV1StatefulSetUpdateStrategy + :: V1StatefulSetUpdateStrategy +mkV1StatefulSetUpdateStrategy = + V1StatefulSetUpdateStrategy + { v1StatefulSetUpdateStrategyRollingUpdate = Nothing + , v1StatefulSetUpdateStrategyType = Nothing + } + +-- ** V1Status +-- | V1Status +-- Status is a return value for calls that don't return other objects. +data V1Status = V1Status + { v1StatusApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1StatusCode :: !(Maybe Int) -- ^ "code" - Suggested HTTP return code for this status, 0 if not set. + , v1StatusDetails :: !(Maybe V1StatusDetails) -- ^ "details" + , v1StatusKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StatusMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the status of this operation. + , v1StatusMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + , v1StatusReason :: !(Maybe Text) -- ^ "reason" - A machine-readable description of why this operation is in the \"Failure\" status. If this value is empty there is no information available. A Reason clarifies an HTTP status code but does not override it. + , v1StatusStatus :: !(Maybe Text) -- ^ "status" - Status of the operation. One of: \"Success\" or \"Failure\". More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#spec-and-status + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Status +instance A.FromJSON V1Status where + parseJSON = A.withObject "V1Status" $ \o -> + V1Status + <$> (o .:? "apiVersion") + <*> (o .:? "code") + <*> (o .:? "details") + <*> (o .:? "kind") + <*> (o .:? "message") + <*> (o .:? "metadata") + <*> (o .:? "reason") + <*> (o .:? "status") + +-- | ToJSON V1Status +instance A.ToJSON V1Status where + toJSON V1Status {..} = + _omitNulls + [ "apiVersion" .= v1StatusApiVersion + , "code" .= v1StatusCode + , "details" .= v1StatusDetails + , "kind" .= v1StatusKind + , "message" .= v1StatusMessage + , "metadata" .= v1StatusMetadata + , "reason" .= v1StatusReason + , "status" .= v1StatusStatus + ] + + +-- | Construct a value of type 'V1Status' (by applying it's required fields, if any) +mkV1Status + :: V1Status +mkV1Status = + V1Status + { v1StatusApiVersion = Nothing + , v1StatusCode = Nothing + , v1StatusDetails = Nothing + , v1StatusKind = Nothing + , v1StatusMessage = Nothing + , v1StatusMetadata = Nothing + , v1StatusReason = Nothing + , v1StatusStatus = Nothing + } + +-- ** V1StatusCause +-- | V1StatusCause +-- StatusCause provides more information about an api.Status failure, including cases when multiple errors are encountered. +data V1StatusCause = V1StatusCause + { v1StatusCauseField :: !(Maybe Text) -- ^ "field" - The field of the resource that has caused this error, as named by its JSON serialization. May include dot and postfix notation for nested attributes. Arrays are zero-indexed. Fields may appear more than once in an array of causes due to fields having multiple errors. Optional. Examples: \"name\" - the field \"name\" on the current resource \"items[0].name\" - the field \"name\" on the first array entry in \"items\" + , v1StatusCauseMessage :: !(Maybe Text) -- ^ "message" - A human-readable description of the cause of the error. This field may be presented as-is to a reader. + , v1StatusCauseReason :: !(Maybe Text) -- ^ "reason" - A machine-readable description of the cause of the error. If this value is empty there is no information available. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatusCause +instance A.FromJSON V1StatusCause where + parseJSON = A.withObject "V1StatusCause" $ \o -> + V1StatusCause + <$> (o .:? "field") + <*> (o .:? "message") + <*> (o .:? "reason") + +-- | ToJSON V1StatusCause +instance A.ToJSON V1StatusCause where + toJSON V1StatusCause {..} = + _omitNulls + [ "field" .= v1StatusCauseField + , "message" .= v1StatusCauseMessage + , "reason" .= v1StatusCauseReason + ] + + +-- | Construct a value of type 'V1StatusCause' (by applying it's required fields, if any) +mkV1StatusCause + :: V1StatusCause +mkV1StatusCause = + V1StatusCause + { v1StatusCauseField = Nothing + , v1StatusCauseMessage = Nothing + , v1StatusCauseReason = Nothing + } + +-- ** V1StatusDetails +-- | V1StatusDetails +-- StatusDetails is a set of additional properties that MAY be set by the server to provide additional information about a response. The Reason field of a Status object defines what attributes will be set. Clients must ignore fields that do not match the defined type of each attribute, and should assume that any attribute may be empty, invalid, or under defined. +data V1StatusDetails = V1StatusDetails + { v1StatusDetailsCauses :: !(Maybe [V1StatusCause]) -- ^ "causes" - The Causes array includes more details associated with the StatusReason failure. Not all StatusReasons may provide detailed causes. + , v1StatusDetailsGroup :: !(Maybe Text) -- ^ "group" - The group attribute of the resource associated with the status StatusReason. + , v1StatusDetailsKind :: !(Maybe Text) -- ^ "kind" - The kind attribute of the resource associated with the status StatusReason. On some operations may differ from the requested resource Kind. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StatusDetailsName :: !(Maybe Text) -- ^ "name" - The name attribute of the resource associated with the status StatusReason (when there is a single name which can be described). + , v1StatusDetailsRetryAfterSeconds :: !(Maybe Int) -- ^ "retryAfterSeconds" - If specified, the time in seconds before the operation should be retried. Some errors may indicate the client must take an alternate action - for those errors this field may indicate how long to wait before taking the alternate action. + , v1StatusDetailsUid :: !(Maybe Text) -- ^ "uid" - UID of the resource. (when there is a single resource which can be described). More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names#uids + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StatusDetails +instance A.FromJSON V1StatusDetails where + parseJSON = A.withObject "V1StatusDetails" $ \o -> + V1StatusDetails + <$> (o .:? "causes") + <*> (o .:? "group") + <*> (o .:? "kind") + <*> (o .:? "name") + <*> (o .:? "retryAfterSeconds") + <*> (o .:? "uid") + +-- | ToJSON V1StatusDetails +instance A.ToJSON V1StatusDetails where + toJSON V1StatusDetails {..} = + _omitNulls + [ "causes" .= v1StatusDetailsCauses + , "group" .= v1StatusDetailsGroup + , "kind" .= v1StatusDetailsKind + , "name" .= v1StatusDetailsName + , "retryAfterSeconds" .= v1StatusDetailsRetryAfterSeconds + , "uid" .= v1StatusDetailsUid + ] + + +-- | Construct a value of type 'V1StatusDetails' (by applying it's required fields, if any) +mkV1StatusDetails + :: V1StatusDetails +mkV1StatusDetails = + V1StatusDetails + { v1StatusDetailsCauses = Nothing + , v1StatusDetailsGroup = Nothing + , v1StatusDetailsKind = Nothing + , v1StatusDetailsName = Nothing + , v1StatusDetailsRetryAfterSeconds = Nothing + , v1StatusDetailsUid = Nothing + } + +-- ** V1StorageClass +-- | V1StorageClass +-- StorageClass describes the parameters for a class of storage for which PersistentVolumes can be dynamically provisioned. StorageClasses are non-namespaced; the name of the storage class according to etcd is in ObjectMeta.Name. +data V1StorageClass = V1StorageClass + { v1StorageClassAllowVolumeExpansion :: !(Maybe Bool) -- ^ "allowVolumeExpansion" - allowVolumeExpansion shows whether the storage class allow volume expand. + , v1StorageClassAllowedTopologies :: !(Maybe [V1TopologySelectorTerm]) -- ^ "allowedTopologies" - allowedTopologies restrict the node topologies where volumes can be dynamically provisioned. Each volume plugin defines its own supported topology specifications. An empty TopologySelectorTerm list means there is no topology restriction. This field is only honored by servers that enable the VolumeScheduling feature. + , v1StorageClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1StorageClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StorageClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1StorageClassMountOptions :: !(Maybe [Text]) -- ^ "mountOptions" - mountOptions controls the mountOptions for dynamically provisioned PersistentVolumes of this storage class. e.g. [\"ro\", \"soft\"]. Not validated - mount of the PVs will simply fail if one is invalid. + , v1StorageClassParameters :: !(Maybe (Map.Map String Text)) -- ^ "parameters" - parameters holds the parameters for the provisioner that should create volumes of this storage class. + , v1StorageClassProvisioner :: !(Text) -- ^ /Required/ "provisioner" - provisioner indicates the type of the provisioner. + , v1StorageClassReclaimPolicy :: !(Maybe Text) -- ^ "reclaimPolicy" - reclaimPolicy controls the reclaimPolicy for dynamically provisioned PersistentVolumes of this storage class. Defaults to Delete. + , v1StorageClassVolumeBindingMode :: !(Maybe Text) -- ^ "volumeBindingMode" - volumeBindingMode indicates how PersistentVolumeClaims should be provisioned and bound. When unset, VolumeBindingImmediate is used. This field is only honored by servers that enable the VolumeScheduling feature. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StorageClass +instance A.FromJSON V1StorageClass where + parseJSON = A.withObject "V1StorageClass" $ \o -> + V1StorageClass + <$> (o .:? "allowVolumeExpansion") + <*> (o .:? "allowedTopologies") + <*> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "mountOptions") + <*> (o .:? "parameters") + <*> (o .: "provisioner") + <*> (o .:? "reclaimPolicy") + <*> (o .:? "volumeBindingMode") + +-- | ToJSON V1StorageClass +instance A.ToJSON V1StorageClass where + toJSON V1StorageClass {..} = + _omitNulls + [ "allowVolumeExpansion" .= v1StorageClassAllowVolumeExpansion + , "allowedTopologies" .= v1StorageClassAllowedTopologies + , "apiVersion" .= v1StorageClassApiVersion + , "kind" .= v1StorageClassKind + , "metadata" .= v1StorageClassMetadata + , "mountOptions" .= v1StorageClassMountOptions + , "parameters" .= v1StorageClassParameters + , "provisioner" .= v1StorageClassProvisioner + , "reclaimPolicy" .= v1StorageClassReclaimPolicy + , "volumeBindingMode" .= v1StorageClassVolumeBindingMode + ] + + +-- | Construct a value of type 'V1StorageClass' (by applying it's required fields, if any) +mkV1StorageClass + :: Text -- ^ 'v1StorageClassProvisioner': provisioner indicates the type of the provisioner. + -> V1StorageClass +mkV1StorageClass v1StorageClassProvisioner = + V1StorageClass + { v1StorageClassAllowVolumeExpansion = Nothing + , v1StorageClassAllowedTopologies = Nothing + , v1StorageClassApiVersion = Nothing + , v1StorageClassKind = Nothing + , v1StorageClassMetadata = Nothing + , v1StorageClassMountOptions = Nothing + , v1StorageClassParameters = Nothing + , v1StorageClassProvisioner + , v1StorageClassReclaimPolicy = Nothing + , v1StorageClassVolumeBindingMode = Nothing + } + +-- ** V1StorageClassList +-- | V1StorageClassList +-- StorageClassList is a collection of storage classes. +data V1StorageClassList = V1StorageClassList + { v1StorageClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1StorageClassListItems :: !([V1StorageClass]) -- ^ /Required/ "items" - items is the list of StorageClasses + , v1StorageClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1StorageClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StorageClassList +instance A.FromJSON V1StorageClassList where + parseJSON = A.withObject "V1StorageClassList" $ \o -> + V1StorageClassList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1StorageClassList +instance A.ToJSON V1StorageClassList where + toJSON V1StorageClassList {..} = + _omitNulls + [ "apiVersion" .= v1StorageClassListApiVersion + , "items" .= v1StorageClassListItems + , "kind" .= v1StorageClassListKind + , "metadata" .= v1StorageClassListMetadata + ] + + +-- | Construct a value of type 'V1StorageClassList' (by applying it's required fields, if any) +mkV1StorageClassList + :: [V1StorageClass] -- ^ 'v1StorageClassListItems': items is the list of StorageClasses + -> V1StorageClassList +mkV1StorageClassList v1StorageClassListItems = + V1StorageClassList + { v1StorageClassListApiVersion = Nothing + , v1StorageClassListItems + , v1StorageClassListKind = Nothing + , v1StorageClassListMetadata = Nothing + } + +-- ** V1StorageOSPersistentVolumeSource +-- | V1StorageOSPersistentVolumeSource +-- Represents a StorageOS persistent volume resource. +data V1StorageOSPersistentVolumeSource = V1StorageOSPersistentVolumeSource + { v1StorageOSPersistentVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1StorageOSPersistentVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1StorageOSPersistentVolumeSourceSecretRef :: !(Maybe V1ObjectReference) -- ^ "secretRef" + , v1StorageOSPersistentVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the human-readable name of the StorageOS volume. Volume names are only unique within a namespace. + , v1StorageOSPersistentVolumeSourceVolumeNamespace :: !(Maybe Text) -- ^ "volumeNamespace" - volumeNamespace specifies the scope of the volume within StorageOS. If no namespace is specified then the Pod's namespace will be used. This allows the Kubernetes name scoping to be mirrored within StorageOS for tighter integration. Set VolumeName to any name to override the default behaviour. Set to \"default\" if you are not using namespaces within StorageOS. Namespaces that do not pre-exist within StorageOS will be created. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StorageOSPersistentVolumeSource +instance A.FromJSON V1StorageOSPersistentVolumeSource where + parseJSON = A.withObject "V1StorageOSPersistentVolumeSource" $ \o -> + V1StorageOSPersistentVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .:? "volumeName") + <*> (o .:? "volumeNamespace") + +-- | ToJSON V1StorageOSPersistentVolumeSource +instance A.ToJSON V1StorageOSPersistentVolumeSource where + toJSON V1StorageOSPersistentVolumeSource {..} = + _omitNulls + [ "fsType" .= v1StorageOSPersistentVolumeSourceFsType + , "readOnly" .= v1StorageOSPersistentVolumeSourceReadOnly + , "secretRef" .= v1StorageOSPersistentVolumeSourceSecretRef + , "volumeName" .= v1StorageOSPersistentVolumeSourceVolumeName + , "volumeNamespace" .= v1StorageOSPersistentVolumeSourceVolumeNamespace + ] + + +-- | Construct a value of type 'V1StorageOSPersistentVolumeSource' (by applying it's required fields, if any) +mkV1StorageOSPersistentVolumeSource + :: V1StorageOSPersistentVolumeSource +mkV1StorageOSPersistentVolumeSource = + V1StorageOSPersistentVolumeSource + { v1StorageOSPersistentVolumeSourceFsType = Nothing + , v1StorageOSPersistentVolumeSourceReadOnly = Nothing + , v1StorageOSPersistentVolumeSourceSecretRef = Nothing + , v1StorageOSPersistentVolumeSourceVolumeName = Nothing + , v1StorageOSPersistentVolumeSourceVolumeNamespace = Nothing + } + +-- ** V1StorageOSVolumeSource +-- | V1StorageOSVolumeSource +-- Represents a StorageOS persistent volume resource. +data V1StorageOSVolumeSource = V1StorageOSVolumeSource + { v1StorageOSVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is the filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1StorageOSVolumeSourceReadOnly :: !(Maybe Bool) -- ^ "readOnly" - readOnly defaults to false (read/write). ReadOnly here will force the ReadOnly setting in VolumeMounts. + , v1StorageOSVolumeSourceSecretRef :: !(Maybe V1LocalObjectReference) -- ^ "secretRef" + , v1StorageOSVolumeSourceVolumeName :: !(Maybe Text) -- ^ "volumeName" - volumeName is the human-readable name of the StorageOS volume. Volume names are only unique within a namespace. + , v1StorageOSVolumeSourceVolumeNamespace :: !(Maybe Text) -- ^ "volumeNamespace" - volumeNamespace specifies the scope of the volume within StorageOS. If no namespace is specified then the Pod's namespace will be used. This allows the Kubernetes name scoping to be mirrored within StorageOS for tighter integration. Set VolumeName to any name to override the default behaviour. Set to \"default\" if you are not using namespaces within StorageOS. Namespaces that do not pre-exist within StorageOS will be created. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1StorageOSVolumeSource +instance A.FromJSON V1StorageOSVolumeSource where + parseJSON = A.withObject "V1StorageOSVolumeSource" $ \o -> + V1StorageOSVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "readOnly") + <*> (o .:? "secretRef") + <*> (o .:? "volumeName") + <*> (o .:? "volumeNamespace") + +-- | ToJSON V1StorageOSVolumeSource +instance A.ToJSON V1StorageOSVolumeSource where + toJSON V1StorageOSVolumeSource {..} = + _omitNulls + [ "fsType" .= v1StorageOSVolumeSourceFsType + , "readOnly" .= v1StorageOSVolumeSourceReadOnly + , "secretRef" .= v1StorageOSVolumeSourceSecretRef + , "volumeName" .= v1StorageOSVolumeSourceVolumeName + , "volumeNamespace" .= v1StorageOSVolumeSourceVolumeNamespace + ] + + +-- | Construct a value of type 'V1StorageOSVolumeSource' (by applying it's required fields, if any) +mkV1StorageOSVolumeSource + :: V1StorageOSVolumeSource +mkV1StorageOSVolumeSource = + V1StorageOSVolumeSource + { v1StorageOSVolumeSourceFsType = Nothing + , v1StorageOSVolumeSourceReadOnly = Nothing + , v1StorageOSVolumeSourceSecretRef = Nothing + , v1StorageOSVolumeSourceVolumeName = Nothing + , v1StorageOSVolumeSourceVolumeNamespace = Nothing + } + +-- ** V1Subject +-- | V1Subject +-- Subject contains a reference to the object or user identities a role binding applies to. This can either hold a direct API object reference, or a value for non-objects such as user and group names. +data V1Subject = V1Subject + { v1SubjectApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup holds the API group of the referenced subject. Defaults to \"\" for ServiceAccount subjects. Defaults to \"rbac.authorization.k8s.io\" for User and Group subjects. + , v1SubjectKind :: !(Text) -- ^ /Required/ "kind" - Kind of object being referenced. Values defined by this API group are \"User\", \"Group\", and \"ServiceAccount\". If the Authorizer does not recognized the kind value, the Authorizer should report an error. + , v1SubjectName :: !(Text) -- ^ /Required/ "name" - Name of the object being referenced. + , v1SubjectNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referenced object. If the object kind is non-namespace, such as \"User\" or \"Group\", and this value is not empty the Authorizer should report an error. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Subject +instance A.FromJSON V1Subject where + parseJSON = A.withObject "V1Subject" $ \o -> + V1Subject + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .:? "namespace") + +-- | ToJSON V1Subject +instance A.ToJSON V1Subject where + toJSON V1Subject {..} = + _omitNulls + [ "apiGroup" .= v1SubjectApiGroup + , "kind" .= v1SubjectKind + , "name" .= v1SubjectName + , "namespace" .= v1SubjectNamespace + ] + + +-- | Construct a value of type 'V1Subject' (by applying it's required fields, if any) +mkV1Subject + :: Text -- ^ 'v1SubjectKind': Kind of object being referenced. Values defined by this API group are \"User\", \"Group\", and \"ServiceAccount\". If the Authorizer does not recognized the kind value, the Authorizer should report an error. + -> Text -- ^ 'v1SubjectName': Name of the object being referenced. + -> V1Subject +mkV1Subject v1SubjectKind v1SubjectName = + V1Subject + { v1SubjectApiGroup = Nothing + , v1SubjectKind + , v1SubjectName + , v1SubjectNamespace = Nothing + } + +-- ** V1SubjectAccessReview +-- | V1SubjectAccessReview +-- SubjectAccessReview checks whether or not a user or group can perform an action. +data V1SubjectAccessReview = V1SubjectAccessReview + { v1SubjectAccessReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1SubjectAccessReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1SubjectAccessReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1SubjectAccessReviewSpec :: !(V1SubjectAccessReviewSpec) -- ^ /Required/ "spec" + , v1SubjectAccessReviewStatus :: !(Maybe V1SubjectAccessReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SubjectAccessReview +instance A.FromJSON V1SubjectAccessReview where + parseJSON = A.withObject "V1SubjectAccessReview" $ \o -> + V1SubjectAccessReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1SubjectAccessReview +instance A.ToJSON V1SubjectAccessReview where + toJSON V1SubjectAccessReview {..} = + _omitNulls + [ "apiVersion" .= v1SubjectAccessReviewApiVersion + , "kind" .= v1SubjectAccessReviewKind + , "metadata" .= v1SubjectAccessReviewMetadata + , "spec" .= v1SubjectAccessReviewSpec + , "status" .= v1SubjectAccessReviewStatus + ] + + +-- | Construct a value of type 'V1SubjectAccessReview' (by applying it's required fields, if any) +mkV1SubjectAccessReview + :: V1SubjectAccessReviewSpec -- ^ 'v1SubjectAccessReviewSpec' + -> V1SubjectAccessReview +mkV1SubjectAccessReview v1SubjectAccessReviewSpec = + V1SubjectAccessReview + { v1SubjectAccessReviewApiVersion = Nothing + , v1SubjectAccessReviewKind = Nothing + , v1SubjectAccessReviewMetadata = Nothing + , v1SubjectAccessReviewSpec + , v1SubjectAccessReviewStatus = Nothing + } + +-- ** V1SubjectAccessReviewSpec +-- | V1SubjectAccessReviewSpec +-- SubjectAccessReviewSpec is a description of the access request. Exactly one of ResourceAuthorizationAttributes and NonResourceAuthorizationAttributes must be set +data V1SubjectAccessReviewSpec = V1SubjectAccessReviewSpec + { v1SubjectAccessReviewSpecExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - Extra corresponds to the user.Info.GetExtra() method from the authenticator. Since that is input to the authorizer it needs a reflection here. + , v1SubjectAccessReviewSpecGroups :: !(Maybe [Text]) -- ^ "groups" - Groups is the groups you're testing for. + , v1SubjectAccessReviewSpecNonResourceAttributes :: !(Maybe V1NonResourceAttributes) -- ^ "nonResourceAttributes" + , v1SubjectAccessReviewSpecResourceAttributes :: !(Maybe V1ResourceAttributes) -- ^ "resourceAttributes" + , v1SubjectAccessReviewSpecUid :: !(Maybe Text) -- ^ "uid" - UID information about the requesting user. + , v1SubjectAccessReviewSpecUser :: !(Maybe Text) -- ^ "user" - User is the user you're testing for. If you specify \"User\" but not \"Groups\", then is it interpreted as \"What if User were not a member of any groups + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SubjectAccessReviewSpec +instance A.FromJSON V1SubjectAccessReviewSpec where + parseJSON = A.withObject "V1SubjectAccessReviewSpec" $ \o -> + V1SubjectAccessReviewSpec + <$> (o .:? "extra") + <*> (o .:? "groups") + <*> (o .:? "nonResourceAttributes") + <*> (o .:? "resourceAttributes") + <*> (o .:? "uid") + <*> (o .:? "user") + +-- | ToJSON V1SubjectAccessReviewSpec +instance A.ToJSON V1SubjectAccessReviewSpec where + toJSON V1SubjectAccessReviewSpec {..} = + _omitNulls + [ "extra" .= v1SubjectAccessReviewSpecExtra + , "groups" .= v1SubjectAccessReviewSpecGroups + , "nonResourceAttributes" .= v1SubjectAccessReviewSpecNonResourceAttributes + , "resourceAttributes" .= v1SubjectAccessReviewSpecResourceAttributes + , "uid" .= v1SubjectAccessReviewSpecUid + , "user" .= v1SubjectAccessReviewSpecUser + ] + + +-- | Construct a value of type 'V1SubjectAccessReviewSpec' (by applying it's required fields, if any) +mkV1SubjectAccessReviewSpec + :: V1SubjectAccessReviewSpec +mkV1SubjectAccessReviewSpec = + V1SubjectAccessReviewSpec + { v1SubjectAccessReviewSpecExtra = Nothing + , v1SubjectAccessReviewSpecGroups = Nothing + , v1SubjectAccessReviewSpecNonResourceAttributes = Nothing + , v1SubjectAccessReviewSpecResourceAttributes = Nothing + , v1SubjectAccessReviewSpecUid = Nothing + , v1SubjectAccessReviewSpecUser = Nothing + } + +-- ** V1SubjectAccessReviewStatus +-- | V1SubjectAccessReviewStatus +-- SubjectAccessReviewStatus +data V1SubjectAccessReviewStatus = V1SubjectAccessReviewStatus + { v1SubjectAccessReviewStatusAllowed :: !(Bool) -- ^ /Required/ "allowed" - Allowed is required. True if the action would be allowed, false otherwise. + , v1SubjectAccessReviewStatusDenied :: !(Maybe Bool) -- ^ "denied" - Denied is optional. True if the action would be denied, otherwise false. If both allowed is false and denied is false, then the authorizer has no opinion on whether to authorize the action. Denied may not be true if Allowed is true. + , v1SubjectAccessReviewStatusEvaluationError :: !(Maybe Text) -- ^ "evaluationError" - EvaluationError is an indication that some error occurred during the authorization check. It is entirely possible to get an error and be able to continue determine authorization status in spite of it. For instance, RBAC can be missing a role, but enough roles are still present and bound to reason about the request. + , v1SubjectAccessReviewStatusReason :: !(Maybe Text) -- ^ "reason" - Reason is optional. It indicates why a request was allowed or denied. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SubjectAccessReviewStatus +instance A.FromJSON V1SubjectAccessReviewStatus where + parseJSON = A.withObject "V1SubjectAccessReviewStatus" $ \o -> + V1SubjectAccessReviewStatus + <$> (o .: "allowed") + <*> (o .:? "denied") + <*> (o .:? "evaluationError") + <*> (o .:? "reason") + +-- | ToJSON V1SubjectAccessReviewStatus +instance A.ToJSON V1SubjectAccessReviewStatus where + toJSON V1SubjectAccessReviewStatus {..} = + _omitNulls + [ "allowed" .= v1SubjectAccessReviewStatusAllowed + , "denied" .= v1SubjectAccessReviewStatusDenied + , "evaluationError" .= v1SubjectAccessReviewStatusEvaluationError + , "reason" .= v1SubjectAccessReviewStatusReason + ] + + +-- | Construct a value of type 'V1SubjectAccessReviewStatus' (by applying it's required fields, if any) +mkV1SubjectAccessReviewStatus + :: Bool -- ^ 'v1SubjectAccessReviewStatusAllowed': Allowed is required. True if the action would be allowed, false otherwise. + -> V1SubjectAccessReviewStatus +mkV1SubjectAccessReviewStatus v1SubjectAccessReviewStatusAllowed = + V1SubjectAccessReviewStatus + { v1SubjectAccessReviewStatusAllowed + , v1SubjectAccessReviewStatusDenied = Nothing + , v1SubjectAccessReviewStatusEvaluationError = Nothing + , v1SubjectAccessReviewStatusReason = Nothing + } + +-- ** V1SubjectRulesReviewStatus +-- | V1SubjectRulesReviewStatus +-- SubjectRulesReviewStatus contains the result of a rules check. This check can be incomplete depending on the set of authorizers the server is configured with and any errors experienced during evaluation. Because authorization rules are additive, if a rule appears in a list it's safe to assume the subject has that permission, even if that list is incomplete. +data V1SubjectRulesReviewStatus = V1SubjectRulesReviewStatus + { v1SubjectRulesReviewStatusEvaluationError :: !(Maybe Text) -- ^ "evaluationError" - EvaluationError can appear in combination with Rules. It indicates an error occurred during rule evaluation, such as an authorizer that doesn't support rule evaluation, and that ResourceRules and/or NonResourceRules may be incomplete. + , v1SubjectRulesReviewStatusIncomplete :: !(Bool) -- ^ /Required/ "incomplete" - Incomplete is true when the rules returned by this call are incomplete. This is most commonly encountered when an authorizer, such as an external authorizer, doesn't support rules evaluation. + , v1SubjectRulesReviewStatusNonResourceRules :: !([V1NonResourceRule]) -- ^ /Required/ "nonResourceRules" - NonResourceRules is the list of actions the subject is allowed to perform on non-resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. + , v1SubjectRulesReviewStatusResourceRules :: !([V1ResourceRule]) -- ^ /Required/ "resourceRules" - ResourceRules is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1SubjectRulesReviewStatus +instance A.FromJSON V1SubjectRulesReviewStatus where + parseJSON = A.withObject "V1SubjectRulesReviewStatus" $ \o -> + V1SubjectRulesReviewStatus + <$> (o .:? "evaluationError") + <*> (o .: "incomplete") + <*> (o .: "nonResourceRules") + <*> (o .: "resourceRules") + +-- | ToJSON V1SubjectRulesReviewStatus +instance A.ToJSON V1SubjectRulesReviewStatus where + toJSON V1SubjectRulesReviewStatus {..} = + _omitNulls + [ "evaluationError" .= v1SubjectRulesReviewStatusEvaluationError + , "incomplete" .= v1SubjectRulesReviewStatusIncomplete + , "nonResourceRules" .= v1SubjectRulesReviewStatusNonResourceRules + , "resourceRules" .= v1SubjectRulesReviewStatusResourceRules + ] + + +-- | Construct a value of type 'V1SubjectRulesReviewStatus' (by applying it's required fields, if any) +mkV1SubjectRulesReviewStatus + :: Bool -- ^ 'v1SubjectRulesReviewStatusIncomplete': Incomplete is true when the rules returned by this call are incomplete. This is most commonly encountered when an authorizer, such as an external authorizer, doesn't support rules evaluation. + -> [V1NonResourceRule] -- ^ 'v1SubjectRulesReviewStatusNonResourceRules': NonResourceRules is the list of actions the subject is allowed to perform on non-resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. + -> [V1ResourceRule] -- ^ 'v1SubjectRulesReviewStatusResourceRules': ResourceRules is the list of actions the subject is allowed to perform on resources. The list ordering isn't significant, may contain duplicates, and possibly be incomplete. + -> V1SubjectRulesReviewStatus +mkV1SubjectRulesReviewStatus v1SubjectRulesReviewStatusIncomplete v1SubjectRulesReviewStatusNonResourceRules v1SubjectRulesReviewStatusResourceRules = + V1SubjectRulesReviewStatus + { v1SubjectRulesReviewStatusEvaluationError = Nothing + , v1SubjectRulesReviewStatusIncomplete + , v1SubjectRulesReviewStatusNonResourceRules + , v1SubjectRulesReviewStatusResourceRules + } + +-- ** V1Sysctl +-- | V1Sysctl +-- Sysctl defines a kernel parameter to be set +data V1Sysctl = V1Sysctl + { v1SysctlName :: !(Text) -- ^ /Required/ "name" - Name of a property to set + , v1SysctlValue :: !(Text) -- ^ /Required/ "value" - Value of a property to set + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Sysctl +instance A.FromJSON V1Sysctl where + parseJSON = A.withObject "V1Sysctl" $ \o -> + V1Sysctl + <$> (o .: "name") + <*> (o .: "value") + +-- | ToJSON V1Sysctl +instance A.ToJSON V1Sysctl where + toJSON V1Sysctl {..} = + _omitNulls + [ "name" .= v1SysctlName + , "value" .= v1SysctlValue + ] + + +-- | Construct a value of type 'V1Sysctl' (by applying it's required fields, if any) +mkV1Sysctl + :: Text -- ^ 'v1SysctlName': Name of a property to set + -> Text -- ^ 'v1SysctlValue': Value of a property to set + -> V1Sysctl +mkV1Sysctl v1SysctlName v1SysctlValue = + V1Sysctl + { v1SysctlName + , v1SysctlValue + } + +-- ** V1TCPSocketAction +-- | V1TCPSocketAction +-- TCPSocketAction describes an action based on opening a socket +data V1TCPSocketAction = V1TCPSocketAction + { v1TCPSocketActionHost :: !(Maybe Text) -- ^ "host" - Optional: Host name to connect to, defaults to the pod IP. + , v1TCPSocketActionPort :: !(IntOrString) -- ^ /Required/ "port" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TCPSocketAction +instance A.FromJSON V1TCPSocketAction where + parseJSON = A.withObject "V1TCPSocketAction" $ \o -> + V1TCPSocketAction + <$> (o .:? "host") + <*> (o .: "port") + +-- | ToJSON V1TCPSocketAction +instance A.ToJSON V1TCPSocketAction where + toJSON V1TCPSocketAction {..} = + _omitNulls + [ "host" .= v1TCPSocketActionHost + , "port" .= v1TCPSocketActionPort + ] + + +-- | Construct a value of type 'V1TCPSocketAction' (by applying it's required fields, if any) +mkV1TCPSocketAction + :: IntOrString -- ^ 'v1TCPSocketActionPort' + -> V1TCPSocketAction +mkV1TCPSocketAction v1TCPSocketActionPort = + V1TCPSocketAction + { v1TCPSocketActionHost = Nothing + , v1TCPSocketActionPort + } + +-- ** V1Taint +-- | V1Taint +-- The node this Taint is attached to has the \"effect\" on any pod that does not tolerate the Taint. +data V1Taint = V1Taint + { v1TaintEffect :: !(Text) -- ^ /Required/ "effect" - Required. The effect of the taint on pods that do not tolerate the taint. Valid effects are NoSchedule, PreferNoSchedule and NoExecute. + , v1TaintKey :: !(Text) -- ^ /Required/ "key" - Required. The taint key to be applied to a node. + , v1TaintTimeAdded :: !(Maybe DateTime) -- ^ "timeAdded" - TimeAdded represents the time at which the taint was added. It is only written for NoExecute taints. + , v1TaintValue :: !(Maybe Text) -- ^ "value" - The taint value corresponding to the taint key. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Taint +instance A.FromJSON V1Taint where + parseJSON = A.withObject "V1Taint" $ \o -> + V1Taint + <$> (o .: "effect") + <*> (o .: "key") + <*> (o .:? "timeAdded") + <*> (o .:? "value") + +-- | ToJSON V1Taint +instance A.ToJSON V1Taint where + toJSON V1Taint {..} = + _omitNulls + [ "effect" .= v1TaintEffect + , "key" .= v1TaintKey + , "timeAdded" .= v1TaintTimeAdded + , "value" .= v1TaintValue + ] + + +-- | Construct a value of type 'V1Taint' (by applying it's required fields, if any) +mkV1Taint + :: Text -- ^ 'v1TaintEffect': Required. The effect of the taint on pods that do not tolerate the taint. Valid effects are NoSchedule, PreferNoSchedule and NoExecute. + -> Text -- ^ 'v1TaintKey': Required. The taint key to be applied to a node. + -> V1Taint +mkV1Taint v1TaintEffect v1TaintKey = + V1Taint + { v1TaintEffect + , v1TaintKey + , v1TaintTimeAdded = Nothing + , v1TaintValue = Nothing + } + +-- ** V1TokenRequestSpec +-- | V1TokenRequestSpec +-- TokenRequestSpec contains client provided parameters of a token request. +data V1TokenRequestSpec = V1TokenRequestSpec + { v1TokenRequestSpecAudiences :: !([Text]) -- ^ /Required/ "audiences" - Audiences are the intendend audiences of the token. A recipient of a token must identify themself with an identifier in the list of audiences of the token, and otherwise should reject the token. A token issued for multiple audiences may be used to authenticate against any of the audiences listed but implies a high degree of trust between the target audiences. + , v1TokenRequestSpecBoundObjectRef :: !(Maybe V1BoundObjectReference) -- ^ "boundObjectRef" + , v1TokenRequestSpecExpirationSeconds :: !(Maybe Integer) -- ^ "expirationSeconds" - ExpirationSeconds is the requested duration of validity of the request. The token issuer may return a token with a different validity duration so a client needs to check the 'expiration' field in a response. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TokenRequestSpec +instance A.FromJSON V1TokenRequestSpec where + parseJSON = A.withObject "V1TokenRequestSpec" $ \o -> + V1TokenRequestSpec + <$> (o .: "audiences") + <*> (o .:? "boundObjectRef") + <*> (o .:? "expirationSeconds") + +-- | ToJSON V1TokenRequestSpec +instance A.ToJSON V1TokenRequestSpec where + toJSON V1TokenRequestSpec {..} = + _omitNulls + [ "audiences" .= v1TokenRequestSpecAudiences + , "boundObjectRef" .= v1TokenRequestSpecBoundObjectRef + , "expirationSeconds" .= v1TokenRequestSpecExpirationSeconds + ] + + +-- | Construct a value of type 'V1TokenRequestSpec' (by applying it's required fields, if any) +mkV1TokenRequestSpec + :: [Text] -- ^ 'v1TokenRequestSpecAudiences': Audiences are the intendend audiences of the token. A recipient of a token must identify themself with an identifier in the list of audiences of the token, and otherwise should reject the token. A token issued for multiple audiences may be used to authenticate against any of the audiences listed but implies a high degree of trust between the target audiences. + -> V1TokenRequestSpec +mkV1TokenRequestSpec v1TokenRequestSpecAudiences = + V1TokenRequestSpec + { v1TokenRequestSpecAudiences + , v1TokenRequestSpecBoundObjectRef = Nothing + , v1TokenRequestSpecExpirationSeconds = Nothing + } + +-- ** V1TokenRequestStatus +-- | V1TokenRequestStatus +-- TokenRequestStatus is the result of a token request. +data V1TokenRequestStatus = V1TokenRequestStatus + { v1TokenRequestStatusExpirationTimestamp :: !(DateTime) -- ^ /Required/ "expirationTimestamp" - ExpirationTimestamp is the time of expiration of the returned token. + , v1TokenRequestStatusToken :: !(Text) -- ^ /Required/ "token" - Token is the opaque bearer token. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TokenRequestStatus +instance A.FromJSON V1TokenRequestStatus where + parseJSON = A.withObject "V1TokenRequestStatus" $ \o -> + V1TokenRequestStatus + <$> (o .: "expirationTimestamp") + <*> (o .: "token") + +-- | ToJSON V1TokenRequestStatus +instance A.ToJSON V1TokenRequestStatus where + toJSON V1TokenRequestStatus {..} = + _omitNulls + [ "expirationTimestamp" .= v1TokenRequestStatusExpirationTimestamp + , "token" .= v1TokenRequestStatusToken + ] + + +-- | Construct a value of type 'V1TokenRequestStatus' (by applying it's required fields, if any) +mkV1TokenRequestStatus + :: DateTime -- ^ 'v1TokenRequestStatusExpirationTimestamp': ExpirationTimestamp is the time of expiration of the returned token. + -> Text -- ^ 'v1TokenRequestStatusToken': Token is the opaque bearer token. + -> V1TokenRequestStatus +mkV1TokenRequestStatus v1TokenRequestStatusExpirationTimestamp v1TokenRequestStatusToken = + V1TokenRequestStatus + { v1TokenRequestStatusExpirationTimestamp + , v1TokenRequestStatusToken + } + +-- ** V1TokenReview +-- | V1TokenReview +-- TokenReview attempts to authenticate a token to a known user. Note: TokenReview requests may be cached by the webhook token authenticator plugin in the kube-apiserver. +data V1TokenReview = V1TokenReview + { v1TokenReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1TokenReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1TokenReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1TokenReviewSpec :: !(V1TokenReviewSpec) -- ^ /Required/ "spec" + , v1TokenReviewStatus :: !(Maybe V1TokenReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TokenReview +instance A.FromJSON V1TokenReview where + parseJSON = A.withObject "V1TokenReview" $ \o -> + V1TokenReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1TokenReview +instance A.ToJSON V1TokenReview where + toJSON V1TokenReview {..} = + _omitNulls + [ "apiVersion" .= v1TokenReviewApiVersion + , "kind" .= v1TokenReviewKind + , "metadata" .= v1TokenReviewMetadata + , "spec" .= v1TokenReviewSpec + , "status" .= v1TokenReviewStatus + ] + + +-- | Construct a value of type 'V1TokenReview' (by applying it's required fields, if any) +mkV1TokenReview + :: V1TokenReviewSpec -- ^ 'v1TokenReviewSpec' + -> V1TokenReview +mkV1TokenReview v1TokenReviewSpec = + V1TokenReview + { v1TokenReviewApiVersion = Nothing + , v1TokenReviewKind = Nothing + , v1TokenReviewMetadata = Nothing + , v1TokenReviewSpec + , v1TokenReviewStatus = Nothing + } + +-- ** V1TokenReviewSpec +-- | V1TokenReviewSpec +-- TokenReviewSpec is a description of the token authentication request. +data V1TokenReviewSpec = V1TokenReviewSpec + { v1TokenReviewSpecAudiences :: !(Maybe [Text]) -- ^ "audiences" - Audiences is a list of the identifiers that the resource server presented with the token identifies as. Audience-aware token authenticators will verify that the token was intended for at least one of the audiences in this list. If no audiences are provided, the audience will default to the audience of the Kubernetes apiserver. + , v1TokenReviewSpecToken :: !(Maybe Text) -- ^ "token" - Token is the opaque bearer token. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TokenReviewSpec +instance A.FromJSON V1TokenReviewSpec where + parseJSON = A.withObject "V1TokenReviewSpec" $ \o -> + V1TokenReviewSpec + <$> (o .:? "audiences") + <*> (o .:? "token") + +-- | ToJSON V1TokenReviewSpec +instance A.ToJSON V1TokenReviewSpec where + toJSON V1TokenReviewSpec {..} = + _omitNulls + [ "audiences" .= v1TokenReviewSpecAudiences + , "token" .= v1TokenReviewSpecToken + ] + + +-- | Construct a value of type 'V1TokenReviewSpec' (by applying it's required fields, if any) +mkV1TokenReviewSpec + :: V1TokenReviewSpec +mkV1TokenReviewSpec = + V1TokenReviewSpec + { v1TokenReviewSpecAudiences = Nothing + , v1TokenReviewSpecToken = Nothing + } + +-- ** V1TokenReviewStatus +-- | V1TokenReviewStatus +-- TokenReviewStatus is the result of the token authentication request. +data V1TokenReviewStatus = V1TokenReviewStatus + { v1TokenReviewStatusAudiences :: !(Maybe [Text]) -- ^ "audiences" - Audiences are audience identifiers chosen by the authenticator that are compatible with both the TokenReview and token. An identifier is any identifier in the intersection of the TokenReviewSpec audiences and the token's audiences. A client of the TokenReview API that sets the spec.audiences field should validate that a compatible audience identifier is returned in the status.audiences field to ensure that the TokenReview server is audience aware. If a TokenReview returns an empty status.audience field where status.authenticated is \"true\", the token is valid against the audience of the Kubernetes API server. + , v1TokenReviewStatusAuthenticated :: !(Maybe Bool) -- ^ "authenticated" - Authenticated indicates that the token was associated with a known user. + , v1TokenReviewStatusError :: !(Maybe Text) -- ^ "error" - Error indicates that the token couldn't be checked + , v1TokenReviewStatusUser :: !(Maybe V1UserInfo) -- ^ "user" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TokenReviewStatus +instance A.FromJSON V1TokenReviewStatus where + parseJSON = A.withObject "V1TokenReviewStatus" $ \o -> + V1TokenReviewStatus + <$> (o .:? "audiences") + <*> (o .:? "authenticated") + <*> (o .:? "error") + <*> (o .:? "user") + +-- | ToJSON V1TokenReviewStatus +instance A.ToJSON V1TokenReviewStatus where + toJSON V1TokenReviewStatus {..} = + _omitNulls + [ "audiences" .= v1TokenReviewStatusAudiences + , "authenticated" .= v1TokenReviewStatusAuthenticated + , "error" .= v1TokenReviewStatusError + , "user" .= v1TokenReviewStatusUser + ] + + +-- | Construct a value of type 'V1TokenReviewStatus' (by applying it's required fields, if any) +mkV1TokenReviewStatus + :: V1TokenReviewStatus +mkV1TokenReviewStatus = + V1TokenReviewStatus + { v1TokenReviewStatusAudiences = Nothing + , v1TokenReviewStatusAuthenticated = Nothing + , v1TokenReviewStatusError = Nothing + , v1TokenReviewStatusUser = Nothing + } + +-- ** V1Toleration +-- | V1Toleration +-- The pod this Toleration is attached to tolerates any taint that matches the triple using the matching operator . +data V1Toleration = V1Toleration + { v1TolerationEffect :: !(Maybe Text) -- ^ "effect" - Effect indicates the taint effect to match. Empty means match all taint effects. When specified, allowed values are NoSchedule, PreferNoSchedule and NoExecute. + , v1TolerationKey :: !(Maybe Text) -- ^ "key" - Key is the taint key that the toleration applies to. Empty means match all taint keys. If the key is empty, operator must be Exists; this combination means to match all values and all keys. + , v1TolerationOperator :: !(Maybe Text) -- ^ "operator" - Operator represents a key's relationship to the value. Valid operators are Exists and Equal. Defaults to Equal. Exists is equivalent to wildcard for value, so that a pod can tolerate all taints of a particular category. + , v1TolerationTolerationSeconds :: !(Maybe Integer) -- ^ "tolerationSeconds" - TolerationSeconds represents the period of time the toleration (which must be of effect NoExecute, otherwise this field is ignored) tolerates the taint. By default, it is not set, which means tolerate the taint forever (do not evict). Zero and negative values will be treated as 0 (evict immediately) by the system. + , v1TolerationValue :: !(Maybe Text) -- ^ "value" - Value is the taint value the toleration matches to. If the operator is Exists, the value should be empty, otherwise just a regular string. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Toleration +instance A.FromJSON V1Toleration where + parseJSON = A.withObject "V1Toleration" $ \o -> + V1Toleration + <$> (o .:? "effect") + <*> (o .:? "key") + <*> (o .:? "operator") + <*> (o .:? "tolerationSeconds") + <*> (o .:? "value") + +-- | ToJSON V1Toleration +instance A.ToJSON V1Toleration where + toJSON V1Toleration {..} = + _omitNulls + [ "effect" .= v1TolerationEffect + , "key" .= v1TolerationKey + , "operator" .= v1TolerationOperator + , "tolerationSeconds" .= v1TolerationTolerationSeconds + , "value" .= v1TolerationValue + ] + + +-- | Construct a value of type 'V1Toleration' (by applying it's required fields, if any) +mkV1Toleration + :: V1Toleration +mkV1Toleration = + V1Toleration + { v1TolerationEffect = Nothing + , v1TolerationKey = Nothing + , v1TolerationOperator = Nothing + , v1TolerationTolerationSeconds = Nothing + , v1TolerationValue = Nothing + } + +-- ** V1TopologySelectorLabelRequirement +-- | V1TopologySelectorLabelRequirement +-- A topology selector requirement is a selector that matches given label. This is an alpha feature and may change in the future. +data V1TopologySelectorLabelRequirement = V1TopologySelectorLabelRequirement + { v1TopologySelectorLabelRequirementKey :: !(Text) -- ^ /Required/ "key" - The label key that the selector applies to. + , v1TopologySelectorLabelRequirementValues :: !([Text]) -- ^ /Required/ "values" - An array of string values. One value must match the label to be selected. Each entry in Values is ORed. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TopologySelectorLabelRequirement +instance A.FromJSON V1TopologySelectorLabelRequirement where + parseJSON = A.withObject "V1TopologySelectorLabelRequirement" $ \o -> + V1TopologySelectorLabelRequirement + <$> (o .: "key") + <*> (o .: "values") + +-- | ToJSON V1TopologySelectorLabelRequirement +instance A.ToJSON V1TopologySelectorLabelRequirement where + toJSON V1TopologySelectorLabelRequirement {..} = + _omitNulls + [ "key" .= v1TopologySelectorLabelRequirementKey + , "values" .= v1TopologySelectorLabelRequirementValues + ] + + +-- | Construct a value of type 'V1TopologySelectorLabelRequirement' (by applying it's required fields, if any) +mkV1TopologySelectorLabelRequirement + :: Text -- ^ 'v1TopologySelectorLabelRequirementKey': The label key that the selector applies to. + -> [Text] -- ^ 'v1TopologySelectorLabelRequirementValues': An array of string values. One value must match the label to be selected. Each entry in Values is ORed. + -> V1TopologySelectorLabelRequirement +mkV1TopologySelectorLabelRequirement v1TopologySelectorLabelRequirementKey v1TopologySelectorLabelRequirementValues = + V1TopologySelectorLabelRequirement + { v1TopologySelectorLabelRequirementKey + , v1TopologySelectorLabelRequirementValues + } + +-- ** V1TopologySelectorTerm +-- | V1TopologySelectorTerm +-- A topology selector term represents the result of label queries. A null or empty topology selector term matches no objects. The requirements of them are ANDed. It provides a subset of functionality as NodeSelectorTerm. This is an alpha feature and may change in the future. +data V1TopologySelectorTerm = V1TopologySelectorTerm + { v1TopologySelectorTermMatchLabelExpressions :: !(Maybe [V1TopologySelectorLabelRequirement]) -- ^ "matchLabelExpressions" - A list of topology selector requirements by labels. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TopologySelectorTerm +instance A.FromJSON V1TopologySelectorTerm where + parseJSON = A.withObject "V1TopologySelectorTerm" $ \o -> + V1TopologySelectorTerm + <$> (o .:? "matchLabelExpressions") + +-- | ToJSON V1TopologySelectorTerm +instance A.ToJSON V1TopologySelectorTerm where + toJSON V1TopologySelectorTerm {..} = + _omitNulls + [ "matchLabelExpressions" .= v1TopologySelectorTermMatchLabelExpressions + ] + + +-- | Construct a value of type 'V1TopologySelectorTerm' (by applying it's required fields, if any) +mkV1TopologySelectorTerm + :: V1TopologySelectorTerm +mkV1TopologySelectorTerm = + V1TopologySelectorTerm + { v1TopologySelectorTermMatchLabelExpressions = Nothing + } + +-- ** V1TopologySpreadConstraint +-- | V1TopologySpreadConstraint +-- TopologySpreadConstraint specifies how to spread matching pods among the given topology. +data V1TopologySpreadConstraint = V1TopologySpreadConstraint + { v1TopologySpreadConstraintLabelSelector :: !(Maybe V1LabelSelector) -- ^ "labelSelector" + , v1TopologySpreadConstraintMatchLabelKeys :: !(Maybe [Text]) -- ^ "matchLabelKeys" - MatchLabelKeys is a set of pod label keys to select the pods over which spreading will be calculated. The keys are used to lookup values from the incoming pod labels, those key-value labels are ANDed with labelSelector to select the group of existing pods over which spreading will be calculated for the incoming pod. The same key is forbidden to exist in both MatchLabelKeys and LabelSelector. MatchLabelKeys cannot be set when LabelSelector isn't set. Keys that don't exist in the incoming pod labels will be ignored. A null or empty list means only match against labelSelector. This is a beta field and requires the MatchLabelKeysInPodTopologySpread feature gate to be enabled (enabled by default). + , v1TopologySpreadConstraintMaxSkew :: !(Int) -- ^ /Required/ "maxSkew" - MaxSkew describes the degree to which pods may be unevenly distributed. When `whenUnsatisfiable=DoNotSchedule`, it is the maximum permitted difference between the number of matching pods in the target topology and the global minimum. The global minimum is the minimum number of matching pods in an eligible domain or zero if the number of eligible domains is less than MinDomains. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 2/2/1: In this case, the global minimum is 1. | zone1 | zone2 | zone3 | | P P | P P | P | - if MaxSkew is 1, incoming pod can only be scheduled to zone3 to become 2/2/2; scheduling it onto zone1(zone2) would make the ActualSkew(3-1) on zone1(zone2) violate MaxSkew(1). - if MaxSkew is 2, incoming pod can be scheduled onto any zone. When `whenUnsatisfiable=ScheduleAnyway`, it is used to give higher precedence to topologies that satisfy it. It's a required field. Default value is 1 and 0 is not allowed. + , v1TopologySpreadConstraintMinDomains :: !(Maybe Int) -- ^ "minDomains" - MinDomains indicates a minimum number of eligible domains. When the number of eligible domains with matching topology keys is less than minDomains, Pod Topology Spread treats \"global minimum\" as 0, and then the calculation of Skew is performed. And when the number of eligible domains with matching topology keys equals or greater than minDomains, this value has no effect on scheduling. As a result, when the number of eligible domains is less than minDomains, scheduler won't schedule more than maxSkew Pods to those domains. If value is nil, the constraint behaves as if MinDomains is equal to 1. Valid values are integers greater than 0. When value is not nil, WhenUnsatisfiable must be DoNotSchedule. For example, in a 3-zone cluster, MaxSkew is set to 2, MinDomains is set to 5 and pods with the same labelSelector spread as 2/2/2: | zone1 | zone2 | zone3 | | P P | P P | P P | The number of domains is less than 5(MinDomains), so \"global minimum\" is treated as 0. In this situation, new pod with the same labelSelector cannot be scheduled, because computed skew will be 3(3 - 0) if new Pod is scheduled to any of the three zones, it will violate MaxSkew. This is a beta field and requires the MinDomainsInPodTopologySpread feature gate to be enabled (enabled by default). + , v1TopologySpreadConstraintNodeAffinityPolicy :: !(Maybe Text) -- ^ "nodeAffinityPolicy" - NodeAffinityPolicy indicates how we will treat Pod's nodeAffinity/nodeSelector when calculating pod topology spread skew. Options are: - Honor: only nodes matching nodeAffinity/nodeSelector are included in the calculations. - Ignore: nodeAffinity/nodeSelector are ignored. All nodes are included in the calculations. If this value is nil, the behavior is equivalent to the Honor policy. This is a beta-level feature default enabled by the NodeInclusionPolicyInPodTopologySpread feature flag. + , v1TopologySpreadConstraintNodeTaintsPolicy :: !(Maybe Text) -- ^ "nodeTaintsPolicy" - NodeTaintsPolicy indicates how we will treat node taints when calculating pod topology spread skew. Options are: - Honor: nodes without taints, along with tainted nodes for which the incoming pod has a toleration, are included. - Ignore: node taints are ignored. All nodes are included. If this value is nil, the behavior is equivalent to the Ignore policy. This is a beta-level feature default enabled by the NodeInclusionPolicyInPodTopologySpread feature flag. + , v1TopologySpreadConstraintTopologyKey :: !(Text) -- ^ /Required/ "topologyKey" - TopologyKey is the key of node labels. Nodes that have a label with this key and identical values are considered to be in the same topology. We consider each <key, value> as a \"bucket\", and try to put balanced number of pods into each bucket. We define a domain as a particular instance of a topology. Also, we define an eligible domain as a domain whose nodes meet the requirements of nodeAffinityPolicy and nodeTaintsPolicy. e.g. If TopologyKey is \"kubernetes.io/hostname\", each Node is a domain of that topology. And, if TopologyKey is \"topology.kubernetes.io/zone\", each zone is a domain of that topology. It's a required field. + , v1TopologySpreadConstraintWhenUnsatisfiable :: !(Text) -- ^ /Required/ "whenUnsatisfiable" - WhenUnsatisfiable indicates how to deal with a pod if it doesn't satisfy the spread constraint. - DoNotSchedule (default) tells the scheduler not to schedule it. - ScheduleAnyway tells the scheduler to schedule the pod in any location, but giving higher precedence to topologies that would help reduce the skew. A constraint is considered \"Unsatisfiable\" for an incoming pod if and only if every possible node assignment for that pod would violate \"MaxSkew\" on some topology. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 3/1/1: | zone1 | zone2 | zone3 | | P P P | P | P | If WhenUnsatisfiable is set to DoNotSchedule, incoming pod can only be scheduled to zone2(zone3) to become 3/2/1(3/1/2) as ActualSkew(2-1) on zone2(zone3) satisfies MaxSkew(1). In other words, the cluster can still be imbalanced, but scheduler won't make it *more* imbalanced. It's a required field. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TopologySpreadConstraint +instance A.FromJSON V1TopologySpreadConstraint where + parseJSON = A.withObject "V1TopologySpreadConstraint" $ \o -> + V1TopologySpreadConstraint + <$> (o .:? "labelSelector") + <*> (o .:? "matchLabelKeys") + <*> (o .: "maxSkew") + <*> (o .:? "minDomains") + <*> (o .:? "nodeAffinityPolicy") + <*> (o .:? "nodeTaintsPolicy") + <*> (o .: "topologyKey") + <*> (o .: "whenUnsatisfiable") + +-- | ToJSON V1TopologySpreadConstraint +instance A.ToJSON V1TopologySpreadConstraint where + toJSON V1TopologySpreadConstraint {..} = + _omitNulls + [ "labelSelector" .= v1TopologySpreadConstraintLabelSelector + , "matchLabelKeys" .= v1TopologySpreadConstraintMatchLabelKeys + , "maxSkew" .= v1TopologySpreadConstraintMaxSkew + , "minDomains" .= v1TopologySpreadConstraintMinDomains + , "nodeAffinityPolicy" .= v1TopologySpreadConstraintNodeAffinityPolicy + , "nodeTaintsPolicy" .= v1TopologySpreadConstraintNodeTaintsPolicy + , "topologyKey" .= v1TopologySpreadConstraintTopologyKey + , "whenUnsatisfiable" .= v1TopologySpreadConstraintWhenUnsatisfiable + ] + + +-- | Construct a value of type 'V1TopologySpreadConstraint' (by applying it's required fields, if any) +mkV1TopologySpreadConstraint + :: Int -- ^ 'v1TopologySpreadConstraintMaxSkew': MaxSkew describes the degree to which pods may be unevenly distributed. When `whenUnsatisfiable=DoNotSchedule`, it is the maximum permitted difference between the number of matching pods in the target topology and the global minimum. The global minimum is the minimum number of matching pods in an eligible domain or zero if the number of eligible domains is less than MinDomains. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 2/2/1: In this case, the global minimum is 1. | zone1 | zone2 | zone3 | | P P | P P | P | - if MaxSkew is 1, incoming pod can only be scheduled to zone3 to become 2/2/2; scheduling it onto zone1(zone2) would make the ActualSkew(3-1) on zone1(zone2) violate MaxSkew(1). - if MaxSkew is 2, incoming pod can be scheduled onto any zone. When `whenUnsatisfiable=ScheduleAnyway`, it is used to give higher precedence to topologies that satisfy it. It's a required field. Default value is 1 and 0 is not allowed. + -> Text -- ^ 'v1TopologySpreadConstraintTopologyKey': TopologyKey is the key of node labels. Nodes that have a label with this key and identical values are considered to be in the same topology. We consider each as a \"bucket\", and try to put balanced number of pods into each bucket. We define a domain as a particular instance of a topology. Also, we define an eligible domain as a domain whose nodes meet the requirements of nodeAffinityPolicy and nodeTaintsPolicy. e.g. If TopologyKey is \"kubernetes.io/hostname\", each Node is a domain of that topology. And, if TopologyKey is \"topology.kubernetes.io/zone\", each zone is a domain of that topology. It's a required field. + -> Text -- ^ 'v1TopologySpreadConstraintWhenUnsatisfiable': WhenUnsatisfiable indicates how to deal with a pod if it doesn't satisfy the spread constraint. - DoNotSchedule (default) tells the scheduler not to schedule it. - ScheduleAnyway tells the scheduler to schedule the pod in any location, but giving higher precedence to topologies that would help reduce the skew. A constraint is considered \"Unsatisfiable\" for an incoming pod if and only if every possible node assignment for that pod would violate \"MaxSkew\" on some topology. For example, in a 3-zone cluster, MaxSkew is set to 1, and pods with the same labelSelector spread as 3/1/1: | zone1 | zone2 | zone3 | | P P P | P | P | If WhenUnsatisfiable is set to DoNotSchedule, incoming pod can only be scheduled to zone2(zone3) to become 3/2/1(3/1/2) as ActualSkew(2-1) on zone2(zone3) satisfies MaxSkew(1). In other words, the cluster can still be imbalanced, but scheduler won't make it *more* imbalanced. It's a required field. + -> V1TopologySpreadConstraint +mkV1TopologySpreadConstraint v1TopologySpreadConstraintMaxSkew v1TopologySpreadConstraintTopologyKey v1TopologySpreadConstraintWhenUnsatisfiable = + V1TopologySpreadConstraint + { v1TopologySpreadConstraintLabelSelector = Nothing + , v1TopologySpreadConstraintMatchLabelKeys = Nothing + , v1TopologySpreadConstraintMaxSkew + , v1TopologySpreadConstraintMinDomains = Nothing + , v1TopologySpreadConstraintNodeAffinityPolicy = Nothing + , v1TopologySpreadConstraintNodeTaintsPolicy = Nothing + , v1TopologySpreadConstraintTopologyKey + , v1TopologySpreadConstraintWhenUnsatisfiable + } + +-- ** V1TypedLocalObjectReference +-- | V1TypedLocalObjectReference +-- TypedLocalObjectReference contains enough information to let you locate the typed referenced object inside the same namespace. +data V1TypedLocalObjectReference = V1TypedLocalObjectReference + { v1TypedLocalObjectReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. + , v1TypedLocalObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced + , v1TypedLocalObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TypedLocalObjectReference +instance A.FromJSON V1TypedLocalObjectReference where + parseJSON = A.withObject "V1TypedLocalObjectReference" $ \o -> + V1TypedLocalObjectReference + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + +-- | ToJSON V1TypedLocalObjectReference +instance A.ToJSON V1TypedLocalObjectReference where + toJSON V1TypedLocalObjectReference {..} = + _omitNulls + [ "apiGroup" .= v1TypedLocalObjectReferenceApiGroup + , "kind" .= v1TypedLocalObjectReferenceKind + , "name" .= v1TypedLocalObjectReferenceName + ] + + +-- | Construct a value of type 'V1TypedLocalObjectReference' (by applying it's required fields, if any) +mkV1TypedLocalObjectReference + :: Text -- ^ 'v1TypedLocalObjectReferenceKind': Kind is the type of resource being referenced + -> Text -- ^ 'v1TypedLocalObjectReferenceName': Name is the name of resource being referenced + -> V1TypedLocalObjectReference +mkV1TypedLocalObjectReference v1TypedLocalObjectReferenceKind v1TypedLocalObjectReferenceName = + V1TypedLocalObjectReference + { v1TypedLocalObjectReferenceApiGroup = Nothing + , v1TypedLocalObjectReferenceKind + , v1TypedLocalObjectReferenceName + } + +-- ** V1TypedObjectReference +-- | V1TypedObjectReference +data V1TypedObjectReference = V1TypedObjectReference + { v1TypedObjectReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. If APIGroup is not specified, the specified Kind must be in the core API group. For any other third-party types, APIGroup is required. + , v1TypedObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced + , v1TypedObjectReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced + , v1TypedObjectReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of resource being referenced Note that when a namespace is specified, a gateway.networking.k8s.io/ReferenceGrant object is required in the referent namespace to allow that namespace's owner to accept the reference. See the ReferenceGrant documentation for details. (Alpha) This field requires the CrossNamespaceVolumeDataSource feature gate to be enabled. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1TypedObjectReference +instance A.FromJSON V1TypedObjectReference where + parseJSON = A.withObject "V1TypedObjectReference" $ \o -> + V1TypedObjectReference + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .:? "namespace") + +-- | ToJSON V1TypedObjectReference +instance A.ToJSON V1TypedObjectReference where + toJSON V1TypedObjectReference {..} = + _omitNulls + [ "apiGroup" .= v1TypedObjectReferenceApiGroup + , "kind" .= v1TypedObjectReferenceKind + , "name" .= v1TypedObjectReferenceName + , "namespace" .= v1TypedObjectReferenceNamespace + ] + + +-- | Construct a value of type 'V1TypedObjectReference' (by applying it's required fields, if any) +mkV1TypedObjectReference + :: Text -- ^ 'v1TypedObjectReferenceKind': Kind is the type of resource being referenced + -> Text -- ^ 'v1TypedObjectReferenceName': Name is the name of resource being referenced + -> V1TypedObjectReference +mkV1TypedObjectReference v1TypedObjectReferenceKind v1TypedObjectReferenceName = + V1TypedObjectReference + { v1TypedObjectReferenceApiGroup = Nothing + , v1TypedObjectReferenceKind + , v1TypedObjectReferenceName + , v1TypedObjectReferenceNamespace = Nothing + } + +-- ** V1UncountedTerminatedPods +-- | V1UncountedTerminatedPods +-- UncountedTerminatedPods holds UIDs of Pods that have terminated but haven't been accounted in Job status counters. +data V1UncountedTerminatedPods = V1UncountedTerminatedPods + { v1UncountedTerminatedPodsFailed :: !(Maybe [Text]) -- ^ "failed" - failed holds UIDs of failed Pods. + , v1UncountedTerminatedPodsSucceeded :: !(Maybe [Text]) -- ^ "succeeded" - succeeded holds UIDs of succeeded Pods. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1UncountedTerminatedPods +instance A.FromJSON V1UncountedTerminatedPods where + parseJSON = A.withObject "V1UncountedTerminatedPods" $ \o -> + V1UncountedTerminatedPods + <$> (o .:? "failed") + <*> (o .:? "succeeded") + +-- | ToJSON V1UncountedTerminatedPods +instance A.ToJSON V1UncountedTerminatedPods where + toJSON V1UncountedTerminatedPods {..} = + _omitNulls + [ "failed" .= v1UncountedTerminatedPodsFailed + , "succeeded" .= v1UncountedTerminatedPodsSucceeded + ] + + +-- | Construct a value of type 'V1UncountedTerminatedPods' (by applying it's required fields, if any) +mkV1UncountedTerminatedPods + :: V1UncountedTerminatedPods +mkV1UncountedTerminatedPods = + V1UncountedTerminatedPods + { v1UncountedTerminatedPodsFailed = Nothing + , v1UncountedTerminatedPodsSucceeded = Nothing + } + +-- ** V1UserInfo +-- | V1UserInfo +-- UserInfo holds the information about the user needed to implement the user.Info interface. +data V1UserInfo = V1UserInfo + { v1UserInfoExtra :: !(Maybe (Map.Map String [Text])) -- ^ "extra" - Any additional information provided by the authenticator. + , v1UserInfoGroups :: !(Maybe [Text]) -- ^ "groups" - The names of groups this user is a part of. + , v1UserInfoUid :: !(Maybe Text) -- ^ "uid" - A unique value that identifies this user across time. If this user is deleted and another user by the same name is added, they will have different UIDs. + , v1UserInfoUsername :: !(Maybe Text) -- ^ "username" - The name that uniquely identifies this user among all active users. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1UserInfo +instance A.FromJSON V1UserInfo where + parseJSON = A.withObject "V1UserInfo" $ \o -> + V1UserInfo + <$> (o .:? "extra") + <*> (o .:? "groups") + <*> (o .:? "uid") + <*> (o .:? "username") + +-- | ToJSON V1UserInfo +instance A.ToJSON V1UserInfo where + toJSON V1UserInfo {..} = + _omitNulls + [ "extra" .= v1UserInfoExtra + , "groups" .= v1UserInfoGroups + , "uid" .= v1UserInfoUid + , "username" .= v1UserInfoUsername + ] + + +-- | Construct a value of type 'V1UserInfo' (by applying it's required fields, if any) +mkV1UserInfo + :: V1UserInfo +mkV1UserInfo = + V1UserInfo + { v1UserInfoExtra = Nothing + , v1UserInfoGroups = Nothing + , v1UserInfoUid = Nothing + , v1UserInfoUsername = Nothing + } + +-- ** V1ValidatingWebhook +-- | V1ValidatingWebhook +-- ValidatingWebhook describes an admission webhook and the resources and operations it applies to. +data V1ValidatingWebhook = V1ValidatingWebhook + { v1ValidatingWebhookAdmissionReviewVersions :: !([Text]) -- ^ /Required/ "admissionReviewVersions" - AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. + , v1ValidatingWebhookClientConfig :: !(AdmissionregistrationV1WebhookClientConfig) -- ^ /Required/ "clientConfig" + , v1ValidatingWebhookFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - FailurePolicy defines how unrecognized errors from the admission endpoint are handled - allowed values are Ignore or Fail. Defaults to Fail. + , v1ValidatingWebhookMatchConditions :: !(Maybe [V1MatchCondition]) -- ^ "matchConditions" - MatchConditions is a list of conditions that must be met for a request to be sent to this webhook. Match conditions filter requests that have already been matched by the rules, namespaceSelector, and objectSelector. An empty list of matchConditions matches all requests. There are a maximum of 64 match conditions allowed. The exact matching logic is (in order): 1. If ANY matchCondition evaluates to FALSE, the webhook is skipped. 2. If ALL matchConditions evaluate to TRUE, the webhook is called. 3. If any matchCondition evaluates to an error (but none are FALSE): - If failurePolicy=Fail, reject the request - If failurePolicy=Ignore, the error is ignored and the webhook is skipped This is an alpha feature and managed by the AdmissionWebhookMatchConditions feature gate. + , v1ValidatingWebhookMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"rules\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the webhook. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the webhook. Defaults to \"Equivalent\" + , v1ValidatingWebhookName :: !(Text) -- ^ /Required/ "name" - The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. + , v1ValidatingWebhookNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" + , v1ValidatingWebhookObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" + , v1ValidatingWebhookRules :: !(Maybe [V1RuleWithOperations]) -- ^ "rules" - Rules describes what operations on what resources/subresources the webhook cares about. The webhook cares about an operation if it matches _any_ Rule. However, in order to prevent ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks from putting the cluster in a state which cannot be recovered from without completely disabling the plugin, ValidatingAdmissionWebhooks and MutatingAdmissionWebhooks are never called on admission requests for ValidatingWebhookConfiguration and MutatingWebhookConfiguration objects. + , v1ValidatingWebhookSideEffects :: !(Text) -- ^ /Required/ "sideEffects" - SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. + , v1ValidatingWebhookTimeoutSeconds :: !(Maybe Int) -- ^ "timeoutSeconds" - TimeoutSeconds specifies the timeout for this webhook. After the timeout passes, the webhook call will be ignored or the API call will fail based on the failure policy. The timeout value must be between 1 and 30 seconds. Default to 10 seconds. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ValidatingWebhook +instance A.FromJSON V1ValidatingWebhook where + parseJSON = A.withObject "V1ValidatingWebhook" $ \o -> + V1ValidatingWebhook + <$> (o .: "admissionReviewVersions") + <*> (o .: "clientConfig") + <*> (o .:? "failurePolicy") + <*> (o .:? "matchConditions") + <*> (o .:? "matchPolicy") + <*> (o .: "name") + <*> (o .:? "namespaceSelector") + <*> (o .:? "objectSelector") + <*> (o .:? "rules") + <*> (o .: "sideEffects") + <*> (o .:? "timeoutSeconds") + +-- | ToJSON V1ValidatingWebhook +instance A.ToJSON V1ValidatingWebhook where + toJSON V1ValidatingWebhook {..} = + _omitNulls + [ "admissionReviewVersions" .= v1ValidatingWebhookAdmissionReviewVersions + , "clientConfig" .= v1ValidatingWebhookClientConfig + , "failurePolicy" .= v1ValidatingWebhookFailurePolicy + , "matchConditions" .= v1ValidatingWebhookMatchConditions + , "matchPolicy" .= v1ValidatingWebhookMatchPolicy + , "name" .= v1ValidatingWebhookName + , "namespaceSelector" .= v1ValidatingWebhookNamespaceSelector + , "objectSelector" .= v1ValidatingWebhookObjectSelector + , "rules" .= v1ValidatingWebhookRules + , "sideEffects" .= v1ValidatingWebhookSideEffects + , "timeoutSeconds" .= v1ValidatingWebhookTimeoutSeconds + ] + + +-- | Construct a value of type 'V1ValidatingWebhook' (by applying it's required fields, if any) +mkV1ValidatingWebhook + :: [Text] -- ^ 'v1ValidatingWebhookAdmissionReviewVersions': AdmissionReviewVersions is an ordered list of preferred `AdmissionReview` versions the Webhook expects. API server will try to use first version in the list which it supports. If none of the versions specified in this list supported by API server, validation will fail for this object. If a persisted webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail and be subject to the failure policy. + -> AdmissionregistrationV1WebhookClientConfig -- ^ 'v1ValidatingWebhookClientConfig' + -> Text -- ^ 'v1ValidatingWebhookName': The name of the admission webhook. Name should be fully qualified, e.g., imagepolicy.kubernetes.io, where \"imagepolicy\" is the name of the webhook, and kubernetes.io is the name of the organization. Required. + -> Text -- ^ 'v1ValidatingWebhookSideEffects': SideEffects states whether this webhook has side effects. Acceptable values are: None, NoneOnDryRun (webhooks created via v1beta1 may also specify Some or Unknown). Webhooks with side effects MUST implement a reconciliation system, since a request may be rejected by a future step in the admission chain and the side effects therefore need to be undone. Requests with the dryRun attribute will be auto-rejected if they match a webhook with sideEffects == Unknown or Some. + -> V1ValidatingWebhook +mkV1ValidatingWebhook v1ValidatingWebhookAdmissionReviewVersions v1ValidatingWebhookClientConfig v1ValidatingWebhookName v1ValidatingWebhookSideEffects = + V1ValidatingWebhook + { v1ValidatingWebhookAdmissionReviewVersions + , v1ValidatingWebhookClientConfig + , v1ValidatingWebhookFailurePolicy = Nothing + , v1ValidatingWebhookMatchConditions = Nothing + , v1ValidatingWebhookMatchPolicy = Nothing + , v1ValidatingWebhookName + , v1ValidatingWebhookNamespaceSelector = Nothing + , v1ValidatingWebhookObjectSelector = Nothing + , v1ValidatingWebhookRules = Nothing + , v1ValidatingWebhookSideEffects + , v1ValidatingWebhookTimeoutSeconds = Nothing + } + +-- ** V1ValidatingWebhookConfiguration +-- | V1ValidatingWebhookConfiguration +-- ValidatingWebhookConfiguration describes the configuration of and admission webhook that accept or reject and object without changing it. +data V1ValidatingWebhookConfiguration = V1ValidatingWebhookConfiguration + { v1ValidatingWebhookConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ValidatingWebhookConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ValidatingWebhookConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1ValidatingWebhookConfigurationWebhooks :: !(Maybe [V1ValidatingWebhook]) -- ^ "webhooks" - Webhooks is a list of webhooks and the affected resources and operations. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ValidatingWebhookConfiguration +instance A.FromJSON V1ValidatingWebhookConfiguration where + parseJSON = A.withObject "V1ValidatingWebhookConfiguration" $ \o -> + V1ValidatingWebhookConfiguration + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "webhooks") + +-- | ToJSON V1ValidatingWebhookConfiguration +instance A.ToJSON V1ValidatingWebhookConfiguration where + toJSON V1ValidatingWebhookConfiguration {..} = + _omitNulls + [ "apiVersion" .= v1ValidatingWebhookConfigurationApiVersion + , "kind" .= v1ValidatingWebhookConfigurationKind + , "metadata" .= v1ValidatingWebhookConfigurationMetadata + , "webhooks" .= v1ValidatingWebhookConfigurationWebhooks + ] + + +-- | Construct a value of type 'V1ValidatingWebhookConfiguration' (by applying it's required fields, if any) +mkV1ValidatingWebhookConfiguration + :: V1ValidatingWebhookConfiguration +mkV1ValidatingWebhookConfiguration = + V1ValidatingWebhookConfiguration + { v1ValidatingWebhookConfigurationApiVersion = Nothing + , v1ValidatingWebhookConfigurationKind = Nothing + , v1ValidatingWebhookConfigurationMetadata = Nothing + , v1ValidatingWebhookConfigurationWebhooks = Nothing + } + +-- ** V1ValidatingWebhookConfigurationList +-- | V1ValidatingWebhookConfigurationList +-- ValidatingWebhookConfigurationList is a list of ValidatingWebhookConfiguration. +data V1ValidatingWebhookConfigurationList = V1ValidatingWebhookConfigurationList + { v1ValidatingWebhookConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1ValidatingWebhookConfigurationListItems :: !([V1ValidatingWebhookConfiguration]) -- ^ /Required/ "items" - List of ValidatingWebhookConfiguration. + , v1ValidatingWebhookConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1ValidatingWebhookConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ValidatingWebhookConfigurationList +instance A.FromJSON V1ValidatingWebhookConfigurationList where + parseJSON = A.withObject "V1ValidatingWebhookConfigurationList" $ \o -> + V1ValidatingWebhookConfigurationList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1ValidatingWebhookConfigurationList +instance A.ToJSON V1ValidatingWebhookConfigurationList where + toJSON V1ValidatingWebhookConfigurationList {..} = + _omitNulls + [ "apiVersion" .= v1ValidatingWebhookConfigurationListApiVersion + , "items" .= v1ValidatingWebhookConfigurationListItems + , "kind" .= v1ValidatingWebhookConfigurationListKind + , "metadata" .= v1ValidatingWebhookConfigurationListMetadata + ] + + +-- | Construct a value of type 'V1ValidatingWebhookConfigurationList' (by applying it's required fields, if any) +mkV1ValidatingWebhookConfigurationList + :: [V1ValidatingWebhookConfiguration] -- ^ 'v1ValidatingWebhookConfigurationListItems': List of ValidatingWebhookConfiguration. + -> V1ValidatingWebhookConfigurationList +mkV1ValidatingWebhookConfigurationList v1ValidatingWebhookConfigurationListItems = + V1ValidatingWebhookConfigurationList + { v1ValidatingWebhookConfigurationListApiVersion = Nothing + , v1ValidatingWebhookConfigurationListItems + , v1ValidatingWebhookConfigurationListKind = Nothing + , v1ValidatingWebhookConfigurationListMetadata = Nothing + } + +-- ** V1ValidationRule +-- | V1ValidationRule +-- ValidationRule describes a validation rule written in the CEL expression language. +data V1ValidationRule = V1ValidationRule + { v1ValidationRuleMessage :: !(Maybe Text) -- ^ "message" - Message represents the message displayed when validation fails. The message is required if the Rule contains line breaks. The message must not contain line breaks. If unset, the message is \"failed rule: {Rule}\". e.g. \"must be a URL with the host matching spec.host\" + , v1ValidationRuleMessageExpression :: !(Maybe Text) -- ^ "messageExpression" - MessageExpression declares a CEL expression that evaluates to the validation failure message that is returned when this rule fails. Since messageExpression is used as a failure message, it must evaluate to a string. If both message and messageExpression are present on a rule, then messageExpression will be used if validation fails. If messageExpression results in a runtime error, the runtime error is logged, and the validation failure message is produced as if the messageExpression field were unset. If messageExpression evaluates to an empty string, a string with only spaces, or a string that contains line breaks, then the validation failure message will also be produced as if the messageExpression field were unset, and the fact that messageExpression produced an empty string/string with only spaces/string with line breaks will be logged. messageExpression has access to all the same variables as the rule; the only difference is the return type. Example: \"x must be less than max (\"+string(self.max)+\")\" + , v1ValidationRuleRule :: !(Text) -- ^ /Required/ "rule" - Rule represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec The Rule is scoped to the location of the x-kubernetes-validations extension in the schema. The `self` variable in the CEL expression is bound to the scoped value. Example: - Rule scoped to the root of a resource with a status subresource: {\"rule\": \"self.status.actual <= self.spec.maxDesired\"} If the Rule is scoped to an object with properties, the accessible properties of the object are field selectable via `self.field` and field presence can be checked via `has(self.field)`. Null valued fields are treated as absent fields in CEL expressions. If the Rule is scoped to an object with additionalProperties (i.e. a map) the value of the map are accessible via `self[mapKey]`, map containment can be checked via `mapKey in self` and all entries of the map are accessible via CEL macros and functions such as `self.all(...)`. If the Rule is scoped to an array, the elements of the array are accessible via `self[i]` and also by macros and functions. If the Rule is scoped to a scalar, `self` is bound to the scalar value. Examples: - Rule scoped to a map of objects: {\"rule\": \"self.components['Widget'].priority < 10\"} - Rule scoped to a list of integers: {\"rule\": \"self.values.all(value, value >= 0 && value < 100)\"} - Rule scoped to a string value: {\"rule\": \"self.startsWith('kube')\"} The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object and from any x-kubernetes-embedded-resource annotated objects. No other metadata properties are accessible. Unknown data preserved in custom resources via x-kubernetes-preserve-unknown-fields is not accessible in CEL expressions. This includes: - Unknown field values that are preserved by object schemas with x-kubernetes-preserve-unknown-fields. - Object properties where the property schema is of an \"unknown type\". An \"unknown type\" is recursively defined as: - A schema with no type and x-kubernetes-preserve-unknown-fields set to true - An array where the items schema is of an \"unknown type\" - An object where the additionalProperties schema is of an \"unknown type\" Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Rule accessing a property named \"namespace\": {\"rule\": \"self.__namespace__ > 0\"} - Rule accessing a property named \"x-prop\": {\"rule\": \"self.x__dash__prop > 0\"} - Rule accessing a property named \"redact__d\": {\"rule\": \"self.redact__underscores__d > 0\"} Equality on arrays with x-kubernetes-list-type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1ValidationRule +instance A.FromJSON V1ValidationRule where + parseJSON = A.withObject "V1ValidationRule" $ \o -> + V1ValidationRule + <$> (o .:? "message") + <*> (o .:? "messageExpression") + <*> (o .: "rule") + +-- | ToJSON V1ValidationRule +instance A.ToJSON V1ValidationRule where + toJSON V1ValidationRule {..} = + _omitNulls + [ "message" .= v1ValidationRuleMessage + , "messageExpression" .= v1ValidationRuleMessageExpression + , "rule" .= v1ValidationRuleRule + ] + + +-- | Construct a value of type 'V1ValidationRule' (by applying it's required fields, if any) +mkV1ValidationRule + :: Text -- ^ 'v1ValidationRuleRule': Rule represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec The Rule is scoped to the location of the x-kubernetes-validations extension in the schema. The `self` variable in the CEL expression is bound to the scoped value. Example: - Rule scoped to the root of a resource with a status subresource: {\"rule\": \"self.status.actual <= self.spec.maxDesired\"} If the Rule is scoped to an object with properties, the accessible properties of the object are field selectable via `self.field` and field presence can be checked via `has(self.field)`. Null valued fields are treated as absent fields in CEL expressions. If the Rule is scoped to an object with additionalProperties (i.e. a map) the value of the map are accessible via `self[mapKey]`, map containment can be checked via `mapKey in self` and all entries of the map are accessible via CEL macros and functions such as `self.all(...)`. If the Rule is scoped to an array, the elements of the array are accessible via `self[i]` and also by macros and functions. If the Rule is scoped to a scalar, `self` is bound to the scalar value. Examples: - Rule scoped to a map of objects: {\"rule\": \"self.components['Widget'].priority < 10\"} - Rule scoped to a list of integers: {\"rule\": \"self.values.all(value, value >= 0 && value < 100)\"} - Rule scoped to a string value: {\"rule\": \"self.startsWith('kube')\"} The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object and from any x-kubernetes-embedded-resource annotated objects. No other metadata properties are accessible. Unknown data preserved in custom resources via x-kubernetes-preserve-unknown-fields is not accessible in CEL expressions. This includes: - Unknown field values that are preserved by object schemas with x-kubernetes-preserve-unknown-fields. - Object properties where the property schema is of an \"unknown type\". An \"unknown type\" is recursively defined as: - A schema with no type and x-kubernetes-preserve-unknown-fields set to true - An array where the items schema is of an \"unknown type\" - An object where the additionalProperties schema is of an \"unknown type\" Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Rule accessing a property named \"namespace\": {\"rule\": \"self.__namespace__ > 0\"} - Rule accessing a property named \"x-prop\": {\"rule\": \"self.x__dash__prop > 0\"} - Rule accessing a property named \"redact__d\": {\"rule\": \"self.redact__underscores__d > 0\"} Equality on arrays with x-kubernetes-list-type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. + -> V1ValidationRule +mkV1ValidationRule v1ValidationRuleRule = + V1ValidationRule + { v1ValidationRuleMessage = Nothing + , v1ValidationRuleMessageExpression = Nothing + , v1ValidationRuleRule + } + +-- ** V1Volume +-- | V1Volume +-- Volume represents a named volume in a pod that may be accessed by any container in the pod. +data V1Volume = V1Volume + { v1VolumeAwsElasticBlockStore :: !(Maybe V1AWSElasticBlockStoreVolumeSource) -- ^ "awsElasticBlockStore" + , v1VolumeAzureDisk :: !(Maybe V1AzureDiskVolumeSource) -- ^ "azureDisk" + , v1VolumeAzureFile :: !(Maybe V1AzureFileVolumeSource) -- ^ "azureFile" + , v1VolumeCephfs :: !(Maybe V1CephFSVolumeSource) -- ^ "cephfs" + , v1VolumeCinder :: !(Maybe V1CinderVolumeSource) -- ^ "cinder" + , v1VolumeConfigMap :: !(Maybe V1ConfigMapVolumeSource) -- ^ "configMap" + , v1VolumeCsi :: !(Maybe V1CSIVolumeSource) -- ^ "csi" + , v1VolumeDownwardApi :: !(Maybe V1DownwardAPIVolumeSource) -- ^ "downwardAPI" + , v1VolumeEmptyDir :: !(Maybe V1EmptyDirVolumeSource) -- ^ "emptyDir" + , v1VolumeEphemeral :: !(Maybe V1EphemeralVolumeSource) -- ^ "ephemeral" + , v1VolumeFc :: !(Maybe V1FCVolumeSource) -- ^ "fc" + , v1VolumeFlexVolume :: !(Maybe V1FlexVolumeSource) -- ^ "flexVolume" + , v1VolumeFlocker :: !(Maybe V1FlockerVolumeSource) -- ^ "flocker" + , v1VolumeGcePersistentDisk :: !(Maybe V1GCEPersistentDiskVolumeSource) -- ^ "gcePersistentDisk" + , v1VolumeGitRepo :: !(Maybe V1GitRepoVolumeSource) -- ^ "gitRepo" + , v1VolumeGlusterfs :: !(Maybe V1GlusterfsVolumeSource) -- ^ "glusterfs" + , v1VolumeHostPath :: !(Maybe V1HostPathVolumeSource) -- ^ "hostPath" + , v1VolumeIscsi :: !(Maybe V1ISCSIVolumeSource) -- ^ "iscsi" + , v1VolumeName :: !(Text) -- ^ /Required/ "name" - name of the volume. Must be a DNS_LABEL and unique within the pod. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + , v1VolumeNfs :: !(Maybe V1NFSVolumeSource) -- ^ "nfs" + , v1VolumePersistentVolumeClaim :: !(Maybe V1PersistentVolumeClaimVolumeSource) -- ^ "persistentVolumeClaim" + , v1VolumePhotonPersistentDisk :: !(Maybe V1PhotonPersistentDiskVolumeSource) -- ^ "photonPersistentDisk" + , v1VolumePortworxVolume :: !(Maybe V1PortworxVolumeSource) -- ^ "portworxVolume" + , v1VolumeProjected :: !(Maybe V1ProjectedVolumeSource) -- ^ "projected" + , v1VolumeQuobyte :: !(Maybe V1QuobyteVolumeSource) -- ^ "quobyte" + , v1VolumeRbd :: !(Maybe V1RBDVolumeSource) -- ^ "rbd" + , v1VolumeScaleIo :: !(Maybe V1ScaleIOVolumeSource) -- ^ "scaleIO" + , v1VolumeSecret :: !(Maybe V1SecretVolumeSource) -- ^ "secret" + , v1VolumeStorageos :: !(Maybe V1StorageOSVolumeSource) -- ^ "storageos" + , v1VolumeVsphereVolume :: !(Maybe V1VsphereVirtualDiskVolumeSource) -- ^ "vsphereVolume" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1Volume +instance A.FromJSON V1Volume where + parseJSON = A.withObject "V1Volume" $ \o -> + V1Volume + <$> (o .:? "awsElasticBlockStore") + <*> (o .:? "azureDisk") + <*> (o .:? "azureFile") + <*> (o .:? "cephfs") + <*> (o .:? "cinder") + <*> (o .:? "configMap") + <*> (o .:? "csi") + <*> (o .:? "downwardAPI") + <*> (o .:? "emptyDir") + <*> (o .:? "ephemeral") + <*> (o .:? "fc") + <*> (o .:? "flexVolume") + <*> (o .:? "flocker") + <*> (o .:? "gcePersistentDisk") + <*> (o .:? "gitRepo") + <*> (o .:? "glusterfs") + <*> (o .:? "hostPath") + <*> (o .:? "iscsi") + <*> (o .: "name") + <*> (o .:? "nfs") + <*> (o .:? "persistentVolumeClaim") + <*> (o .:? "photonPersistentDisk") + <*> (o .:? "portworxVolume") + <*> (o .:? "projected") + <*> (o .:? "quobyte") + <*> (o .:? "rbd") + <*> (o .:? "scaleIO") + <*> (o .:? "secret") + <*> (o .:? "storageos") + <*> (o .:? "vsphereVolume") + +-- | ToJSON V1Volume +instance A.ToJSON V1Volume where + toJSON V1Volume {..} = + _omitNulls + [ "awsElasticBlockStore" .= v1VolumeAwsElasticBlockStore + , "azureDisk" .= v1VolumeAzureDisk + , "azureFile" .= v1VolumeAzureFile + , "cephfs" .= v1VolumeCephfs + , "cinder" .= v1VolumeCinder + , "configMap" .= v1VolumeConfigMap + , "csi" .= v1VolumeCsi + , "downwardAPI" .= v1VolumeDownwardApi + , "emptyDir" .= v1VolumeEmptyDir + , "ephemeral" .= v1VolumeEphemeral + , "fc" .= v1VolumeFc + , "flexVolume" .= v1VolumeFlexVolume + , "flocker" .= v1VolumeFlocker + , "gcePersistentDisk" .= v1VolumeGcePersistentDisk + , "gitRepo" .= v1VolumeGitRepo + , "glusterfs" .= v1VolumeGlusterfs + , "hostPath" .= v1VolumeHostPath + , "iscsi" .= v1VolumeIscsi + , "name" .= v1VolumeName + , "nfs" .= v1VolumeNfs + , "persistentVolumeClaim" .= v1VolumePersistentVolumeClaim + , "photonPersistentDisk" .= v1VolumePhotonPersistentDisk + , "portworxVolume" .= v1VolumePortworxVolume + , "projected" .= v1VolumeProjected + , "quobyte" .= v1VolumeQuobyte + , "rbd" .= v1VolumeRbd + , "scaleIO" .= v1VolumeScaleIo + , "secret" .= v1VolumeSecret + , "storageos" .= v1VolumeStorageos + , "vsphereVolume" .= v1VolumeVsphereVolume + ] + + +-- | Construct a value of type 'V1Volume' (by applying it's required fields, if any) +mkV1Volume + :: Text -- ^ 'v1VolumeName': name of the volume. Must be a DNS_LABEL and unique within the pod. More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + -> V1Volume +mkV1Volume v1VolumeName = + V1Volume + { v1VolumeAwsElasticBlockStore = Nothing + , v1VolumeAzureDisk = Nothing + , v1VolumeAzureFile = Nothing + , v1VolumeCephfs = Nothing + , v1VolumeCinder = Nothing + , v1VolumeConfigMap = Nothing + , v1VolumeCsi = Nothing + , v1VolumeDownwardApi = Nothing + , v1VolumeEmptyDir = Nothing + , v1VolumeEphemeral = Nothing + , v1VolumeFc = Nothing + , v1VolumeFlexVolume = Nothing + , v1VolumeFlocker = Nothing + , v1VolumeGcePersistentDisk = Nothing + , v1VolumeGitRepo = Nothing + , v1VolumeGlusterfs = Nothing + , v1VolumeHostPath = Nothing + , v1VolumeIscsi = Nothing + , v1VolumeName + , v1VolumeNfs = Nothing + , v1VolumePersistentVolumeClaim = Nothing + , v1VolumePhotonPersistentDisk = Nothing + , v1VolumePortworxVolume = Nothing + , v1VolumeProjected = Nothing + , v1VolumeQuobyte = Nothing + , v1VolumeRbd = Nothing + , v1VolumeScaleIo = Nothing + , v1VolumeSecret = Nothing + , v1VolumeStorageos = Nothing + , v1VolumeVsphereVolume = Nothing + } + +-- ** V1VolumeAttachment +-- | V1VolumeAttachment +-- VolumeAttachment captures the intent to attach or detach the specified volume to/from the specified node. VolumeAttachment objects are non-namespaced. +data V1VolumeAttachment = V1VolumeAttachment + { v1VolumeAttachmentApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1VolumeAttachmentKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1VolumeAttachmentMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1VolumeAttachmentSpec :: !(V1VolumeAttachmentSpec) -- ^ /Required/ "spec" + , v1VolumeAttachmentStatus :: !(Maybe V1VolumeAttachmentStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeAttachment +instance A.FromJSON V1VolumeAttachment where + parseJSON = A.withObject "V1VolumeAttachment" $ \o -> + V1VolumeAttachment + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1VolumeAttachment +instance A.ToJSON V1VolumeAttachment where + toJSON V1VolumeAttachment {..} = + _omitNulls + [ "apiVersion" .= v1VolumeAttachmentApiVersion + , "kind" .= v1VolumeAttachmentKind + , "metadata" .= v1VolumeAttachmentMetadata + , "spec" .= v1VolumeAttachmentSpec + , "status" .= v1VolumeAttachmentStatus + ] + + +-- | Construct a value of type 'V1VolumeAttachment' (by applying it's required fields, if any) +mkV1VolumeAttachment + :: V1VolumeAttachmentSpec -- ^ 'v1VolumeAttachmentSpec' + -> V1VolumeAttachment +mkV1VolumeAttachment v1VolumeAttachmentSpec = + V1VolumeAttachment + { v1VolumeAttachmentApiVersion = Nothing + , v1VolumeAttachmentKind = Nothing + , v1VolumeAttachmentMetadata = Nothing + , v1VolumeAttachmentSpec + , v1VolumeAttachmentStatus = Nothing + } + +-- ** V1VolumeAttachmentList +-- | V1VolumeAttachmentList +-- VolumeAttachmentList is a collection of VolumeAttachment objects. +data V1VolumeAttachmentList = V1VolumeAttachmentList + { v1VolumeAttachmentListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1VolumeAttachmentListItems :: !([V1VolumeAttachment]) -- ^ /Required/ "items" - items is the list of VolumeAttachments + , v1VolumeAttachmentListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1VolumeAttachmentListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeAttachmentList +instance A.FromJSON V1VolumeAttachmentList where + parseJSON = A.withObject "V1VolumeAttachmentList" $ \o -> + V1VolumeAttachmentList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1VolumeAttachmentList +instance A.ToJSON V1VolumeAttachmentList where + toJSON V1VolumeAttachmentList {..} = + _omitNulls + [ "apiVersion" .= v1VolumeAttachmentListApiVersion + , "items" .= v1VolumeAttachmentListItems + , "kind" .= v1VolumeAttachmentListKind + , "metadata" .= v1VolumeAttachmentListMetadata + ] + + +-- | Construct a value of type 'V1VolumeAttachmentList' (by applying it's required fields, if any) +mkV1VolumeAttachmentList + :: [V1VolumeAttachment] -- ^ 'v1VolumeAttachmentListItems': items is the list of VolumeAttachments + -> V1VolumeAttachmentList +mkV1VolumeAttachmentList v1VolumeAttachmentListItems = + V1VolumeAttachmentList + { v1VolumeAttachmentListApiVersion = Nothing + , v1VolumeAttachmentListItems + , v1VolumeAttachmentListKind = Nothing + , v1VolumeAttachmentListMetadata = Nothing + } + +-- ** V1VolumeAttachmentSource +-- | V1VolumeAttachmentSource +-- VolumeAttachmentSource represents a volume that should be attached. Right now only PersistenVolumes can be attached via external attacher, in future we may allow also inline volumes in pods. Exactly one member can be set. +data V1VolumeAttachmentSource = V1VolumeAttachmentSource + { v1VolumeAttachmentSourceInlineVolumeSpec :: !(Maybe V1PersistentVolumeSpec) -- ^ "inlineVolumeSpec" + , v1VolumeAttachmentSourcePersistentVolumeName :: !(Maybe Text) -- ^ "persistentVolumeName" - persistentVolumeName represents the name of the persistent volume to attach. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeAttachmentSource +instance A.FromJSON V1VolumeAttachmentSource where + parseJSON = A.withObject "V1VolumeAttachmentSource" $ \o -> + V1VolumeAttachmentSource + <$> (o .:? "inlineVolumeSpec") + <*> (o .:? "persistentVolumeName") + +-- | ToJSON V1VolumeAttachmentSource +instance A.ToJSON V1VolumeAttachmentSource where + toJSON V1VolumeAttachmentSource {..} = + _omitNulls + [ "inlineVolumeSpec" .= v1VolumeAttachmentSourceInlineVolumeSpec + , "persistentVolumeName" .= v1VolumeAttachmentSourcePersistentVolumeName + ] + + +-- | Construct a value of type 'V1VolumeAttachmentSource' (by applying it's required fields, if any) +mkV1VolumeAttachmentSource + :: V1VolumeAttachmentSource +mkV1VolumeAttachmentSource = + V1VolumeAttachmentSource + { v1VolumeAttachmentSourceInlineVolumeSpec = Nothing + , v1VolumeAttachmentSourcePersistentVolumeName = Nothing + } + +-- ** V1VolumeAttachmentSpec +-- | V1VolumeAttachmentSpec +-- VolumeAttachmentSpec is the specification of a VolumeAttachment request. +data V1VolumeAttachmentSpec = V1VolumeAttachmentSpec + { v1VolumeAttachmentSpecAttacher :: !(Text) -- ^ /Required/ "attacher" - attacher indicates the name of the volume driver that MUST handle this request. This is the name returned by GetPluginName(). + , v1VolumeAttachmentSpecNodeName :: !(Text) -- ^ /Required/ "nodeName" - nodeName represents the node that the volume should be attached to. + , v1VolumeAttachmentSpecSource :: !(V1VolumeAttachmentSource) -- ^ /Required/ "source" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeAttachmentSpec +instance A.FromJSON V1VolumeAttachmentSpec where + parseJSON = A.withObject "V1VolumeAttachmentSpec" $ \o -> + V1VolumeAttachmentSpec + <$> (o .: "attacher") + <*> (o .: "nodeName") + <*> (o .: "source") + +-- | ToJSON V1VolumeAttachmentSpec +instance A.ToJSON V1VolumeAttachmentSpec where + toJSON V1VolumeAttachmentSpec {..} = + _omitNulls + [ "attacher" .= v1VolumeAttachmentSpecAttacher + , "nodeName" .= v1VolumeAttachmentSpecNodeName + , "source" .= v1VolumeAttachmentSpecSource + ] + + +-- | Construct a value of type 'V1VolumeAttachmentSpec' (by applying it's required fields, if any) +mkV1VolumeAttachmentSpec + :: Text -- ^ 'v1VolumeAttachmentSpecAttacher': attacher indicates the name of the volume driver that MUST handle this request. This is the name returned by GetPluginName(). + -> Text -- ^ 'v1VolumeAttachmentSpecNodeName': nodeName represents the node that the volume should be attached to. + -> V1VolumeAttachmentSource -- ^ 'v1VolumeAttachmentSpecSource' + -> V1VolumeAttachmentSpec +mkV1VolumeAttachmentSpec v1VolumeAttachmentSpecAttacher v1VolumeAttachmentSpecNodeName v1VolumeAttachmentSpecSource = + V1VolumeAttachmentSpec + { v1VolumeAttachmentSpecAttacher + , v1VolumeAttachmentSpecNodeName + , v1VolumeAttachmentSpecSource + } + +-- ** V1VolumeAttachmentStatus +-- | V1VolumeAttachmentStatus +-- VolumeAttachmentStatus is the status of a VolumeAttachment request. +data V1VolumeAttachmentStatus = V1VolumeAttachmentStatus + { v1VolumeAttachmentStatusAttachError :: !(Maybe V1VolumeError) -- ^ "attachError" + , v1VolumeAttachmentStatusAttached :: !(Bool) -- ^ /Required/ "attached" - attached indicates the volume is successfully attached. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. + , v1VolumeAttachmentStatusAttachmentMetadata :: !(Maybe (Map.Map String Text)) -- ^ "attachmentMetadata" - attachmentMetadata is populated with any information returned by the attach operation, upon successful attach, that must be passed into subsequent WaitForAttach or Mount calls. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. + , v1VolumeAttachmentStatusDetachError :: !(Maybe V1VolumeError) -- ^ "detachError" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeAttachmentStatus +instance A.FromJSON V1VolumeAttachmentStatus where + parseJSON = A.withObject "V1VolumeAttachmentStatus" $ \o -> + V1VolumeAttachmentStatus + <$> (o .:? "attachError") + <*> (o .: "attached") + <*> (o .:? "attachmentMetadata") + <*> (o .:? "detachError") + +-- | ToJSON V1VolumeAttachmentStatus +instance A.ToJSON V1VolumeAttachmentStatus where + toJSON V1VolumeAttachmentStatus {..} = + _omitNulls + [ "attachError" .= v1VolumeAttachmentStatusAttachError + , "attached" .= v1VolumeAttachmentStatusAttached + , "attachmentMetadata" .= v1VolumeAttachmentStatusAttachmentMetadata + , "detachError" .= v1VolumeAttachmentStatusDetachError + ] + + +-- | Construct a value of type 'V1VolumeAttachmentStatus' (by applying it's required fields, if any) +mkV1VolumeAttachmentStatus + :: Bool -- ^ 'v1VolumeAttachmentStatusAttached': attached indicates the volume is successfully attached. This field must only be set by the entity completing the attach operation, i.e. the external-attacher. + -> V1VolumeAttachmentStatus +mkV1VolumeAttachmentStatus v1VolumeAttachmentStatusAttached = + V1VolumeAttachmentStatus + { v1VolumeAttachmentStatusAttachError = Nothing + , v1VolumeAttachmentStatusAttached + , v1VolumeAttachmentStatusAttachmentMetadata = Nothing + , v1VolumeAttachmentStatusDetachError = Nothing + } + +-- ** V1VolumeDevice +-- | V1VolumeDevice +-- volumeDevice describes a mapping of a raw block device within a container. +data V1VolumeDevice = V1VolumeDevice + { v1VolumeDeviceDevicePath :: !(Text) -- ^ /Required/ "devicePath" - devicePath is the path inside of the container that the device will be mapped to. + , v1VolumeDeviceName :: !(Text) -- ^ /Required/ "name" - name must match the name of a persistentVolumeClaim in the pod + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeDevice +instance A.FromJSON V1VolumeDevice where + parseJSON = A.withObject "V1VolumeDevice" $ \o -> + V1VolumeDevice + <$> (o .: "devicePath") + <*> (o .: "name") + +-- | ToJSON V1VolumeDevice +instance A.ToJSON V1VolumeDevice where + toJSON V1VolumeDevice {..} = + _omitNulls + [ "devicePath" .= v1VolumeDeviceDevicePath + , "name" .= v1VolumeDeviceName + ] + + +-- | Construct a value of type 'V1VolumeDevice' (by applying it's required fields, if any) +mkV1VolumeDevice + :: Text -- ^ 'v1VolumeDeviceDevicePath': devicePath is the path inside of the container that the device will be mapped to. + -> Text -- ^ 'v1VolumeDeviceName': name must match the name of a persistentVolumeClaim in the pod + -> V1VolumeDevice +mkV1VolumeDevice v1VolumeDeviceDevicePath v1VolumeDeviceName = + V1VolumeDevice + { v1VolumeDeviceDevicePath + , v1VolumeDeviceName + } + +-- ** V1VolumeError +-- | V1VolumeError +-- VolumeError captures an error encountered during a volume operation. +data V1VolumeError = V1VolumeError + { v1VolumeErrorMessage :: !(Maybe Text) -- ^ "message" - message represents the error encountered during Attach or Detach operation. This string may be logged, so it should not contain sensitive information. + , v1VolumeErrorTime :: !(Maybe DateTime) -- ^ "time" - time represents the time the error was encountered. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeError +instance A.FromJSON V1VolumeError where + parseJSON = A.withObject "V1VolumeError" $ \o -> + V1VolumeError + <$> (o .:? "message") + <*> (o .:? "time") + +-- | ToJSON V1VolumeError +instance A.ToJSON V1VolumeError where + toJSON V1VolumeError {..} = + _omitNulls + [ "message" .= v1VolumeErrorMessage + , "time" .= v1VolumeErrorTime + ] + + +-- | Construct a value of type 'V1VolumeError' (by applying it's required fields, if any) +mkV1VolumeError + :: V1VolumeError +mkV1VolumeError = + V1VolumeError + { v1VolumeErrorMessage = Nothing + , v1VolumeErrorTime = Nothing + } + +-- ** V1VolumeMount +-- | V1VolumeMount +-- VolumeMount describes a mounting of a Volume within a container. +data V1VolumeMount = V1VolumeMount + { v1VolumeMountMountPath :: !(Text) -- ^ /Required/ "mountPath" - Path within the container at which the volume should be mounted. Must not contain ':'. + , v1VolumeMountMountPropagation :: !(Maybe Text) -- ^ "mountPropagation" - mountPropagation determines how mounts are propagated from the host to container and the other way around. When not set, MountPropagationNone is used. This field is beta in 1.10. + , v1VolumeMountName :: !(Text) -- ^ /Required/ "name" - This must match the Name of a Volume. + , v1VolumeMountReadOnly :: !(Maybe Bool) -- ^ "readOnly" - Mounted read-only if true, read-write otherwise (false or unspecified). Defaults to false. + , v1VolumeMountSubPath :: !(Maybe Text) -- ^ "subPath" - Path within the volume from which the container's volume should be mounted. Defaults to \"\" (volume's root). + , v1VolumeMountSubPathExpr :: !(Maybe Text) -- ^ "subPathExpr" - Expanded path within the volume from which the container's volume should be mounted. Behaves similarly to SubPath but environment variable references $(VAR_NAME) are expanded using the container's environment. Defaults to \"\" (volume's root). SubPathExpr and SubPath are mutually exclusive. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeMount +instance A.FromJSON V1VolumeMount where + parseJSON = A.withObject "V1VolumeMount" $ \o -> + V1VolumeMount + <$> (o .: "mountPath") + <*> (o .:? "mountPropagation") + <*> (o .: "name") + <*> (o .:? "readOnly") + <*> (o .:? "subPath") + <*> (o .:? "subPathExpr") + +-- | ToJSON V1VolumeMount +instance A.ToJSON V1VolumeMount where + toJSON V1VolumeMount {..} = + _omitNulls + [ "mountPath" .= v1VolumeMountMountPath + , "mountPropagation" .= v1VolumeMountMountPropagation + , "name" .= v1VolumeMountName + , "readOnly" .= v1VolumeMountReadOnly + , "subPath" .= v1VolumeMountSubPath + , "subPathExpr" .= v1VolumeMountSubPathExpr + ] + + +-- | Construct a value of type 'V1VolumeMount' (by applying it's required fields, if any) +mkV1VolumeMount + :: Text -- ^ 'v1VolumeMountMountPath': Path within the container at which the volume should be mounted. Must not contain ':'. + -> Text -- ^ 'v1VolumeMountName': This must match the Name of a Volume. + -> V1VolumeMount +mkV1VolumeMount v1VolumeMountMountPath v1VolumeMountName = + V1VolumeMount + { v1VolumeMountMountPath + , v1VolumeMountMountPropagation = Nothing + , v1VolumeMountName + , v1VolumeMountReadOnly = Nothing + , v1VolumeMountSubPath = Nothing + , v1VolumeMountSubPathExpr = Nothing + } + +-- ** V1VolumeNodeAffinity +-- | V1VolumeNodeAffinity +-- VolumeNodeAffinity defines constraints that limit what nodes this volume can be accessed from. +data V1VolumeNodeAffinity = V1VolumeNodeAffinity + { v1VolumeNodeAffinityRequired :: !(Maybe V1NodeSelector) -- ^ "required" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeNodeAffinity +instance A.FromJSON V1VolumeNodeAffinity where + parseJSON = A.withObject "V1VolumeNodeAffinity" $ \o -> + V1VolumeNodeAffinity + <$> (o .:? "required") + +-- | ToJSON V1VolumeNodeAffinity +instance A.ToJSON V1VolumeNodeAffinity where + toJSON V1VolumeNodeAffinity {..} = + _omitNulls + [ "required" .= v1VolumeNodeAffinityRequired + ] + + +-- | Construct a value of type 'V1VolumeNodeAffinity' (by applying it's required fields, if any) +mkV1VolumeNodeAffinity + :: V1VolumeNodeAffinity +mkV1VolumeNodeAffinity = + V1VolumeNodeAffinity + { v1VolumeNodeAffinityRequired = Nothing + } + +-- ** V1VolumeNodeResources +-- | V1VolumeNodeResources +-- VolumeNodeResources is a set of resource limits for scheduling of volumes. +data V1VolumeNodeResources = V1VolumeNodeResources + { v1VolumeNodeResourcesCount :: !(Maybe Int) -- ^ "count" - count indicates the maximum number of unique volumes managed by the CSI driver that can be used on a node. A volume that is both attached and mounted on a node is considered to be used once, not twice. The same rule applies for a unique volume that is shared among multiple pods on the same node. If this field is not specified, then the supported number of volumes on this node is unbounded. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeNodeResources +instance A.FromJSON V1VolumeNodeResources where + parseJSON = A.withObject "V1VolumeNodeResources" $ \o -> + V1VolumeNodeResources + <$> (o .:? "count") + +-- | ToJSON V1VolumeNodeResources +instance A.ToJSON V1VolumeNodeResources where + toJSON V1VolumeNodeResources {..} = + _omitNulls + [ "count" .= v1VolumeNodeResourcesCount + ] + + +-- | Construct a value of type 'V1VolumeNodeResources' (by applying it's required fields, if any) +mkV1VolumeNodeResources + :: V1VolumeNodeResources +mkV1VolumeNodeResources = + V1VolumeNodeResources + { v1VolumeNodeResourcesCount = Nothing + } + +-- ** V1VolumeProjection +-- | V1VolumeProjection +-- Projection that may be projected along with other supported volume types +data V1VolumeProjection = V1VolumeProjection + { v1VolumeProjectionConfigMap :: !(Maybe V1ConfigMapProjection) -- ^ "configMap" + , v1VolumeProjectionDownwardApi :: !(Maybe V1DownwardAPIProjection) -- ^ "downwardAPI" + , v1VolumeProjectionSecret :: !(Maybe V1SecretProjection) -- ^ "secret" + , v1VolumeProjectionServiceAccountToken :: !(Maybe V1ServiceAccountTokenProjection) -- ^ "serviceAccountToken" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VolumeProjection +instance A.FromJSON V1VolumeProjection where + parseJSON = A.withObject "V1VolumeProjection" $ \o -> + V1VolumeProjection + <$> (o .:? "configMap") + <*> (o .:? "downwardAPI") + <*> (o .:? "secret") + <*> (o .:? "serviceAccountToken") + +-- | ToJSON V1VolumeProjection +instance A.ToJSON V1VolumeProjection where + toJSON V1VolumeProjection {..} = + _omitNulls + [ "configMap" .= v1VolumeProjectionConfigMap + , "downwardAPI" .= v1VolumeProjectionDownwardApi + , "secret" .= v1VolumeProjectionSecret + , "serviceAccountToken" .= v1VolumeProjectionServiceAccountToken + ] + + +-- | Construct a value of type 'V1VolumeProjection' (by applying it's required fields, if any) +mkV1VolumeProjection + :: V1VolumeProjection +mkV1VolumeProjection = + V1VolumeProjection + { v1VolumeProjectionConfigMap = Nothing + , v1VolumeProjectionDownwardApi = Nothing + , v1VolumeProjectionSecret = Nothing + , v1VolumeProjectionServiceAccountToken = Nothing + } + +-- ** V1VsphereVirtualDiskVolumeSource +-- | V1VsphereVirtualDiskVolumeSource +-- Represents a vSphere volume resource. +data V1VsphereVirtualDiskVolumeSource = V1VsphereVirtualDiskVolumeSource + { v1VsphereVirtualDiskVolumeSourceFsType :: !(Maybe Text) -- ^ "fsType" - fsType is filesystem type to mount. Must be a filesystem type supported by the host operating system. Ex. \"ext4\", \"xfs\", \"ntfs\". Implicitly inferred to be \"ext4\" if unspecified. + , v1VsphereVirtualDiskVolumeSourceStoragePolicyId :: !(Maybe Text) -- ^ "storagePolicyID" - storagePolicyID is the storage Policy Based Management (SPBM) profile ID associated with the StoragePolicyName. + , v1VsphereVirtualDiskVolumeSourceStoragePolicyName :: !(Maybe Text) -- ^ "storagePolicyName" - storagePolicyName is the storage Policy Based Management (SPBM) profile name. + , v1VsphereVirtualDiskVolumeSourceVolumePath :: !(Text) -- ^ /Required/ "volumePath" - volumePath is the path that identifies vSphere volume vmdk + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1VsphereVirtualDiskVolumeSource +instance A.FromJSON V1VsphereVirtualDiskVolumeSource where + parseJSON = A.withObject "V1VsphereVirtualDiskVolumeSource" $ \o -> + V1VsphereVirtualDiskVolumeSource + <$> (o .:? "fsType") + <*> (o .:? "storagePolicyID") + <*> (o .:? "storagePolicyName") + <*> (o .: "volumePath") + +-- | ToJSON V1VsphereVirtualDiskVolumeSource +instance A.ToJSON V1VsphereVirtualDiskVolumeSource where + toJSON V1VsphereVirtualDiskVolumeSource {..} = + _omitNulls + [ "fsType" .= v1VsphereVirtualDiskVolumeSourceFsType + , "storagePolicyID" .= v1VsphereVirtualDiskVolumeSourceStoragePolicyId + , "storagePolicyName" .= v1VsphereVirtualDiskVolumeSourceStoragePolicyName + , "volumePath" .= v1VsphereVirtualDiskVolumeSourceVolumePath + ] + + +-- | Construct a value of type 'V1VsphereVirtualDiskVolumeSource' (by applying it's required fields, if any) +mkV1VsphereVirtualDiskVolumeSource + :: Text -- ^ 'v1VsphereVirtualDiskVolumeSourceVolumePath': volumePath is the path that identifies vSphere volume vmdk + -> V1VsphereVirtualDiskVolumeSource +mkV1VsphereVirtualDiskVolumeSource v1VsphereVirtualDiskVolumeSourceVolumePath = + V1VsphereVirtualDiskVolumeSource + { v1VsphereVirtualDiskVolumeSourceFsType = Nothing + , v1VsphereVirtualDiskVolumeSourceStoragePolicyId = Nothing + , v1VsphereVirtualDiskVolumeSourceStoragePolicyName = Nothing + , v1VsphereVirtualDiskVolumeSourceVolumePath + } + +-- ** V1WatchEvent +-- | V1WatchEvent +-- Event represents a single event to a watched resource. +data V1WatchEvent = V1WatchEvent + { v1WatchEventObject :: !(A.Value) -- ^ /Required/ "object" - Object is: * If Type is Added or Modified: the new state of the object. * If Type is Deleted: the state of the object immediately before deletion. * If Type is Error: *Status is recommended; other types may make sense depending on context. + , v1WatchEventType :: !(Text) -- ^ /Required/ "type" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1WatchEvent +instance A.FromJSON V1WatchEvent where + parseJSON = A.withObject "V1WatchEvent" $ \o -> + V1WatchEvent + <$> (o .: "object") + <*> (o .: "type") + +-- | ToJSON V1WatchEvent +instance A.ToJSON V1WatchEvent where + toJSON V1WatchEvent {..} = + _omitNulls + [ "object" .= v1WatchEventObject + , "type" .= v1WatchEventType + ] + + +-- | Construct a value of type 'V1WatchEvent' (by applying it's required fields, if any) +mkV1WatchEvent + :: A.Value -- ^ 'v1WatchEventObject': Object is: * If Type is Added or Modified: the new state of the object. * If Type is Deleted: the state of the object immediately before deletion. * If Type is Error: *Status is recommended; other types may make sense depending on context. + -> Text -- ^ 'v1WatchEventType' + -> V1WatchEvent +mkV1WatchEvent v1WatchEventObject v1WatchEventType = + V1WatchEvent + { v1WatchEventObject + , v1WatchEventType + } + +-- ** V1WebhookConversion +-- | V1WebhookConversion +-- WebhookConversion describes how to call a conversion webhook +data V1WebhookConversion = V1WebhookConversion + { v1WebhookConversionClientConfig :: !(Maybe ApiextensionsV1WebhookClientConfig) -- ^ "clientConfig" + , v1WebhookConversionConversionReviewVersions :: !([Text]) -- ^ /Required/ "conversionReviewVersions" - conversionReviewVersions is an ordered list of preferred `ConversionReview` versions the Webhook expects. The API server will use the first version in the list which it supports. If none of the versions specified in this list are supported by API server, conversion will fail for the custom resource. If a persisted Webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1WebhookConversion +instance A.FromJSON V1WebhookConversion where + parseJSON = A.withObject "V1WebhookConversion" $ \o -> + V1WebhookConversion + <$> (o .:? "clientConfig") + <*> (o .: "conversionReviewVersions") + +-- | ToJSON V1WebhookConversion +instance A.ToJSON V1WebhookConversion where + toJSON V1WebhookConversion {..} = + _omitNulls + [ "clientConfig" .= v1WebhookConversionClientConfig + , "conversionReviewVersions" .= v1WebhookConversionConversionReviewVersions + ] + + +-- | Construct a value of type 'V1WebhookConversion' (by applying it's required fields, if any) +mkV1WebhookConversion + :: [Text] -- ^ 'v1WebhookConversionConversionReviewVersions': conversionReviewVersions is an ordered list of preferred `ConversionReview` versions the Webhook expects. The API server will use the first version in the list which it supports. If none of the versions specified in this list are supported by API server, conversion will fail for the custom resource. If a persisted Webhook configuration specifies allowed versions and does not include any versions known to the API Server, calls to the webhook will fail. + -> V1WebhookConversion +mkV1WebhookConversion v1WebhookConversionConversionReviewVersions = + V1WebhookConversion + { v1WebhookConversionClientConfig = Nothing + , v1WebhookConversionConversionReviewVersions + } + +-- ** V1WeightedPodAffinityTerm +-- | V1WeightedPodAffinityTerm +-- The weights of all of the matched WeightedPodAffinityTerm fields are added per-node to find the most preferred node(s) +data V1WeightedPodAffinityTerm = V1WeightedPodAffinityTerm + { v1WeightedPodAffinityTermPodAffinityTerm :: !(V1PodAffinityTerm) -- ^ /Required/ "podAffinityTerm" + , v1WeightedPodAffinityTermWeight :: !(Int) -- ^ /Required/ "weight" - weight associated with matching the corresponding podAffinityTerm, in the range 1-100. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1WeightedPodAffinityTerm +instance A.FromJSON V1WeightedPodAffinityTerm where + parseJSON = A.withObject "V1WeightedPodAffinityTerm" $ \o -> + V1WeightedPodAffinityTerm + <$> (o .: "podAffinityTerm") + <*> (o .: "weight") + +-- | ToJSON V1WeightedPodAffinityTerm +instance A.ToJSON V1WeightedPodAffinityTerm where + toJSON V1WeightedPodAffinityTerm {..} = + _omitNulls + [ "podAffinityTerm" .= v1WeightedPodAffinityTermPodAffinityTerm + , "weight" .= v1WeightedPodAffinityTermWeight + ] + + +-- | Construct a value of type 'V1WeightedPodAffinityTerm' (by applying it's required fields, if any) +mkV1WeightedPodAffinityTerm + :: V1PodAffinityTerm -- ^ 'v1WeightedPodAffinityTermPodAffinityTerm' + -> Int -- ^ 'v1WeightedPodAffinityTermWeight': weight associated with matching the corresponding podAffinityTerm, in the range 1-100. + -> V1WeightedPodAffinityTerm +mkV1WeightedPodAffinityTerm v1WeightedPodAffinityTermPodAffinityTerm v1WeightedPodAffinityTermWeight = + V1WeightedPodAffinityTerm + { v1WeightedPodAffinityTermPodAffinityTerm + , v1WeightedPodAffinityTermWeight + } + +-- ** V1WindowsSecurityContextOptions +-- | V1WindowsSecurityContextOptions +-- WindowsSecurityContextOptions contain Windows-specific options and credentials. +data V1WindowsSecurityContextOptions = V1WindowsSecurityContextOptions + { v1WindowsSecurityContextOptionsGmsaCredentialSpec :: !(Maybe Text) -- ^ "gmsaCredentialSpec" - GMSACredentialSpec is where the GMSA admission webhook (https://github.com/kubernetes-sigs/windows-gmsa) inlines the contents of the GMSA credential spec named by the GMSACredentialSpecName field. + , v1WindowsSecurityContextOptionsGmsaCredentialSpecName :: !(Maybe Text) -- ^ "gmsaCredentialSpecName" - GMSACredentialSpecName is the name of the GMSA credential spec to use. + , v1WindowsSecurityContextOptionsHostProcess :: !(Maybe Bool) -- ^ "hostProcess" - HostProcess determines if a container should be run as a 'Host Process' container. This field is alpha-level and will only be honored by components that enable the WindowsHostProcessContainers feature flag. Setting this field without the feature flag will result in errors when validating the Pod. All of a Pod's containers must have the same effective HostProcess value (it is not allowed to have a mix of HostProcess containers and non-HostProcess containers). In addition, if HostProcess is true then HostNetwork must also be set to true. + , v1WindowsSecurityContextOptionsRunAsUserName :: !(Maybe Text) -- ^ "runAsUserName" - The UserName in Windows to run the entrypoint of the container process. Defaults to the user specified in image metadata if unspecified. May also be set in PodSecurityContext. If set in both SecurityContext and PodSecurityContext, the value specified in SecurityContext takes precedence. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1WindowsSecurityContextOptions +instance A.FromJSON V1WindowsSecurityContextOptions where + parseJSON = A.withObject "V1WindowsSecurityContextOptions" $ \o -> + V1WindowsSecurityContextOptions + <$> (o .:? "gmsaCredentialSpec") + <*> (o .:? "gmsaCredentialSpecName") + <*> (o .:? "hostProcess") + <*> (o .:? "runAsUserName") + +-- | ToJSON V1WindowsSecurityContextOptions +instance A.ToJSON V1WindowsSecurityContextOptions where + toJSON V1WindowsSecurityContextOptions {..} = + _omitNulls + [ "gmsaCredentialSpec" .= v1WindowsSecurityContextOptionsGmsaCredentialSpec + , "gmsaCredentialSpecName" .= v1WindowsSecurityContextOptionsGmsaCredentialSpecName + , "hostProcess" .= v1WindowsSecurityContextOptionsHostProcess + , "runAsUserName" .= v1WindowsSecurityContextOptionsRunAsUserName + ] + + +-- | Construct a value of type 'V1WindowsSecurityContextOptions' (by applying it's required fields, if any) +mkV1WindowsSecurityContextOptions + :: V1WindowsSecurityContextOptions +mkV1WindowsSecurityContextOptions = + V1WindowsSecurityContextOptions + { v1WindowsSecurityContextOptionsGmsaCredentialSpec = Nothing + , v1WindowsSecurityContextOptionsGmsaCredentialSpecName = Nothing + , v1WindowsSecurityContextOptionsHostProcess = Nothing + , v1WindowsSecurityContextOptionsRunAsUserName = Nothing + } + +-- ** V1alpha1AuditAnnotation +-- | V1alpha1AuditAnnotation +-- AuditAnnotation describes how to produce an audit annotation for an API request. +data V1alpha1AuditAnnotation = V1alpha1AuditAnnotation + { v1alpha1AuditAnnotationKey :: !(Text) -- ^ /Required/ "key" - key specifies the audit annotation key. The audit annotation keys of a ValidatingAdmissionPolicy must be unique. The key must be a qualified name ([A-Za-z0-9][-A-Za-z0-9_.]*) no more than 63 bytes in length. The key is combined with the resource name of the ValidatingAdmissionPolicy to construct an audit annotation key: \"{ValidatingAdmissionPolicy name}/{key}\". If an admission webhook uses the same resource name as this ValidatingAdmissionPolicy and the same audit annotation key, the annotation key will be identical. In this case, the first annotation written with the key will be included in the audit event and all subsequent annotations with the same key will be discarded. Required. + , v1alpha1AuditAnnotationValueExpression :: !(Text) -- ^ /Required/ "valueExpression" - valueExpression represents the expression which is evaluated by CEL to produce an audit annotation value. The expression must evaluate to either a string or null value. If the expression evaluates to a string, the audit annotation is included with the string value. If the expression evaluates to null or empty string the audit annotation will be omitted. The valueExpression may be no longer than 5kb in length. If the result of the valueExpression is more than 10kb in length, it will be truncated to 10kb. If multiple ValidatingAdmissionPolicyBinding resources match an API request, then the valueExpression will be evaluated for each binding. All unique values produced by the valueExpressions will be joined together in a comma-separated list. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1AuditAnnotation +instance A.FromJSON V1alpha1AuditAnnotation where + parseJSON = A.withObject "V1alpha1AuditAnnotation" $ \o -> + V1alpha1AuditAnnotation + <$> (o .: "key") + <*> (o .: "valueExpression") + +-- | ToJSON V1alpha1AuditAnnotation +instance A.ToJSON V1alpha1AuditAnnotation where + toJSON V1alpha1AuditAnnotation {..} = + _omitNulls + [ "key" .= v1alpha1AuditAnnotationKey + , "valueExpression" .= v1alpha1AuditAnnotationValueExpression + ] + + +-- | Construct a value of type 'V1alpha1AuditAnnotation' (by applying it's required fields, if any) +mkV1alpha1AuditAnnotation + :: Text -- ^ 'v1alpha1AuditAnnotationKey': key specifies the audit annotation key. The audit annotation keys of a ValidatingAdmissionPolicy must be unique. The key must be a qualified name ([A-Za-z0-9][-A-Za-z0-9_.]*) no more than 63 bytes in length. The key is combined with the resource name of the ValidatingAdmissionPolicy to construct an audit annotation key: \"{ValidatingAdmissionPolicy name}/{key}\". If an admission webhook uses the same resource name as this ValidatingAdmissionPolicy and the same audit annotation key, the annotation key will be identical. In this case, the first annotation written with the key will be included in the audit event and all subsequent annotations with the same key will be discarded. Required. + -> Text -- ^ 'v1alpha1AuditAnnotationValueExpression': valueExpression represents the expression which is evaluated by CEL to produce an audit annotation value. The expression must evaluate to either a string or null value. If the expression evaluates to a string, the audit annotation is included with the string value. If the expression evaluates to null or empty string the audit annotation will be omitted. The valueExpression may be no longer than 5kb in length. If the result of the valueExpression is more than 10kb in length, it will be truncated to 10kb. If multiple ValidatingAdmissionPolicyBinding resources match an API request, then the valueExpression will be evaluated for each binding. All unique values produced by the valueExpressions will be joined together in a comma-separated list. Required. + -> V1alpha1AuditAnnotation +mkV1alpha1AuditAnnotation v1alpha1AuditAnnotationKey v1alpha1AuditAnnotationValueExpression = + V1alpha1AuditAnnotation + { v1alpha1AuditAnnotationKey + , v1alpha1AuditAnnotationValueExpression + } + +-- ** V1alpha1ClusterCIDR +-- | V1alpha1ClusterCIDR +-- ClusterCIDR represents a single configuration for per-Node Pod CIDR allocations when the MultiCIDRRangeAllocator is enabled (see the config for kube-controller-manager). A cluster may have any number of ClusterCIDR resources, all of which will be considered when allocating a CIDR for a Node. A ClusterCIDR is eligible to be used for a given Node when the node selector matches the node in question and has free CIDRs to allocate. In case of multiple matching ClusterCIDR resources, the allocator will attempt to break ties using internal heuristics, but any ClusterCIDR whose node selector matches the Node may be used. +data V1alpha1ClusterCIDR = V1alpha1ClusterCIDR + { v1alpha1ClusterCIDRApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ClusterCIDRKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ClusterCIDRMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1ClusterCIDRSpec :: !(Maybe V1alpha1ClusterCIDRSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterCIDR +instance A.FromJSON V1alpha1ClusterCIDR where + parseJSON = A.withObject "V1alpha1ClusterCIDR" $ \o -> + V1alpha1ClusterCIDR + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1alpha1ClusterCIDR +instance A.ToJSON V1alpha1ClusterCIDR where + toJSON V1alpha1ClusterCIDR {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ClusterCIDRApiVersion + , "kind" .= v1alpha1ClusterCIDRKind + , "metadata" .= v1alpha1ClusterCIDRMetadata + , "spec" .= v1alpha1ClusterCIDRSpec + ] + + +-- | Construct a value of type 'V1alpha1ClusterCIDR' (by applying it's required fields, if any) +mkV1alpha1ClusterCIDR + :: V1alpha1ClusterCIDR +mkV1alpha1ClusterCIDR = + V1alpha1ClusterCIDR + { v1alpha1ClusterCIDRApiVersion = Nothing + , v1alpha1ClusterCIDRKind = Nothing + , v1alpha1ClusterCIDRMetadata = Nothing + , v1alpha1ClusterCIDRSpec = Nothing + } + +-- ** V1alpha1ClusterCIDRList +-- | V1alpha1ClusterCIDRList +-- ClusterCIDRList contains a list of ClusterCIDR. +data V1alpha1ClusterCIDRList = V1alpha1ClusterCIDRList + { v1alpha1ClusterCIDRListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ClusterCIDRListItems :: !([V1alpha1ClusterCIDR]) -- ^ /Required/ "items" - items is the list of ClusterCIDRs. + , v1alpha1ClusterCIDRListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ClusterCIDRListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterCIDRList +instance A.FromJSON V1alpha1ClusterCIDRList where + parseJSON = A.withObject "V1alpha1ClusterCIDRList" $ \o -> + V1alpha1ClusterCIDRList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1ClusterCIDRList +instance A.ToJSON V1alpha1ClusterCIDRList where + toJSON V1alpha1ClusterCIDRList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ClusterCIDRListApiVersion + , "items" .= v1alpha1ClusterCIDRListItems + , "kind" .= v1alpha1ClusterCIDRListKind + , "metadata" .= v1alpha1ClusterCIDRListMetadata + ] + + +-- | Construct a value of type 'V1alpha1ClusterCIDRList' (by applying it's required fields, if any) +mkV1alpha1ClusterCIDRList + :: [V1alpha1ClusterCIDR] -- ^ 'v1alpha1ClusterCIDRListItems': items is the list of ClusterCIDRs. + -> V1alpha1ClusterCIDRList +mkV1alpha1ClusterCIDRList v1alpha1ClusterCIDRListItems = + V1alpha1ClusterCIDRList + { v1alpha1ClusterCIDRListApiVersion = Nothing + , v1alpha1ClusterCIDRListItems + , v1alpha1ClusterCIDRListKind = Nothing + , v1alpha1ClusterCIDRListMetadata = Nothing + } + +-- ** V1alpha1ClusterCIDRSpec +-- | V1alpha1ClusterCIDRSpec +-- ClusterCIDRSpec defines the desired state of ClusterCIDR. +data V1alpha1ClusterCIDRSpec = V1alpha1ClusterCIDRSpec + { v1alpha1ClusterCIDRSpecIpv4 :: !(Maybe Text) -- ^ "ipv4" - ipv4 defines an IPv4 IP block in CIDR notation(e.g. \"10.0.0.0/8\"). At least one of ipv4 and ipv6 must be specified. This field is immutable. + , v1alpha1ClusterCIDRSpecIpv6 :: !(Maybe Text) -- ^ "ipv6" - ipv6 defines an IPv6 IP block in CIDR notation(e.g. \"2001:db8::/64\"). At least one of ipv4 and ipv6 must be specified. This field is immutable. + , v1alpha1ClusterCIDRSpecNodeSelector :: !(Maybe V1NodeSelector) -- ^ "nodeSelector" + , v1alpha1ClusterCIDRSpecPerNodeHostBits :: !(Int) -- ^ /Required/ "perNodeHostBits" - perNodeHostBits defines the number of host bits to be configured per node. A subnet mask determines how much of the address is used for network bits and host bits. For example an IPv4 address of 192.168.0.0/24, splits the address into 24 bits for the network portion and 8 bits for the host portion. To allocate 256 IPs, set this field to 8 (a /24 mask for IPv4 or a /120 for IPv6). Minimum value is 4 (16 IPs). This field is immutable. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterCIDRSpec +instance A.FromJSON V1alpha1ClusterCIDRSpec where + parseJSON = A.withObject "V1alpha1ClusterCIDRSpec" $ \o -> + V1alpha1ClusterCIDRSpec + <$> (o .:? "ipv4") + <*> (o .:? "ipv6") + <*> (o .:? "nodeSelector") + <*> (o .: "perNodeHostBits") + +-- | ToJSON V1alpha1ClusterCIDRSpec +instance A.ToJSON V1alpha1ClusterCIDRSpec where + toJSON V1alpha1ClusterCIDRSpec {..} = + _omitNulls + [ "ipv4" .= v1alpha1ClusterCIDRSpecIpv4 + , "ipv6" .= v1alpha1ClusterCIDRSpecIpv6 + , "nodeSelector" .= v1alpha1ClusterCIDRSpecNodeSelector + , "perNodeHostBits" .= v1alpha1ClusterCIDRSpecPerNodeHostBits + ] + + +-- | Construct a value of type 'V1alpha1ClusterCIDRSpec' (by applying it's required fields, if any) +mkV1alpha1ClusterCIDRSpec + :: Int -- ^ 'v1alpha1ClusterCIDRSpecPerNodeHostBits': perNodeHostBits defines the number of host bits to be configured per node. A subnet mask determines how much of the address is used for network bits and host bits. For example an IPv4 address of 192.168.0.0/24, splits the address into 24 bits for the network portion and 8 bits for the host portion. To allocate 256 IPs, set this field to 8 (a /24 mask for IPv4 or a /120 for IPv6). Minimum value is 4 (16 IPs). This field is immutable. + -> V1alpha1ClusterCIDRSpec +mkV1alpha1ClusterCIDRSpec v1alpha1ClusterCIDRSpecPerNodeHostBits = + V1alpha1ClusterCIDRSpec + { v1alpha1ClusterCIDRSpecIpv4 = Nothing + , v1alpha1ClusterCIDRSpecIpv6 = Nothing + , v1alpha1ClusterCIDRSpecNodeSelector = Nothing + , v1alpha1ClusterCIDRSpecPerNodeHostBits + } + +-- ** V1alpha1ClusterTrustBundle +-- | V1alpha1ClusterTrustBundle +-- ClusterTrustBundle is a cluster-scoped container for X.509 trust anchors (root certificates). ClusterTrustBundle objects are considered to be readable by any authenticated user in the cluster, because they can be mounted by pods using the `clusterTrustBundle` projection. All service accounts have read access to ClusterTrustBundles by default. Users who only have namespace-level access to a cluster can read ClusterTrustBundles by impersonating a serviceaccount that they have access to. It can be optionally associated with a particular assigner, in which case it contains one valid set of trust anchors for that signer. Signers may have multiple associated ClusterTrustBundles; each is an independent set of trust anchors for that signer. Admission control is used to enforce that only users with permissions on the signer can create or modify the corresponding bundle. +data V1alpha1ClusterTrustBundle = V1alpha1ClusterTrustBundle + { v1alpha1ClusterTrustBundleApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ClusterTrustBundleKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ClusterTrustBundleMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1ClusterTrustBundleSpec :: !(V1alpha1ClusterTrustBundleSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterTrustBundle +instance A.FromJSON V1alpha1ClusterTrustBundle where + parseJSON = A.withObject "V1alpha1ClusterTrustBundle" $ \o -> + V1alpha1ClusterTrustBundle + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1alpha1ClusterTrustBundle +instance A.ToJSON V1alpha1ClusterTrustBundle where + toJSON V1alpha1ClusterTrustBundle {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ClusterTrustBundleApiVersion + , "kind" .= v1alpha1ClusterTrustBundleKind + , "metadata" .= v1alpha1ClusterTrustBundleMetadata + , "spec" .= v1alpha1ClusterTrustBundleSpec + ] + + +-- | Construct a value of type 'V1alpha1ClusterTrustBundle' (by applying it's required fields, if any) +mkV1alpha1ClusterTrustBundle + :: V1alpha1ClusterTrustBundleSpec -- ^ 'v1alpha1ClusterTrustBundleSpec' + -> V1alpha1ClusterTrustBundle +mkV1alpha1ClusterTrustBundle v1alpha1ClusterTrustBundleSpec = + V1alpha1ClusterTrustBundle + { v1alpha1ClusterTrustBundleApiVersion = Nothing + , v1alpha1ClusterTrustBundleKind = Nothing + , v1alpha1ClusterTrustBundleMetadata = Nothing + , v1alpha1ClusterTrustBundleSpec + } + +-- ** V1alpha1ClusterTrustBundleList +-- | V1alpha1ClusterTrustBundleList +-- ClusterTrustBundleList is a collection of ClusterTrustBundle objects +data V1alpha1ClusterTrustBundleList = V1alpha1ClusterTrustBundleList + { v1alpha1ClusterTrustBundleListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ClusterTrustBundleListItems :: !([V1alpha1ClusterTrustBundle]) -- ^ /Required/ "items" - items is a collection of ClusterTrustBundle objects + , v1alpha1ClusterTrustBundleListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ClusterTrustBundleListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterTrustBundleList +instance A.FromJSON V1alpha1ClusterTrustBundleList where + parseJSON = A.withObject "V1alpha1ClusterTrustBundleList" $ \o -> + V1alpha1ClusterTrustBundleList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1ClusterTrustBundleList +instance A.ToJSON V1alpha1ClusterTrustBundleList where + toJSON V1alpha1ClusterTrustBundleList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ClusterTrustBundleListApiVersion + , "items" .= v1alpha1ClusterTrustBundleListItems + , "kind" .= v1alpha1ClusterTrustBundleListKind + , "metadata" .= v1alpha1ClusterTrustBundleListMetadata + ] + + +-- | Construct a value of type 'V1alpha1ClusterTrustBundleList' (by applying it's required fields, if any) +mkV1alpha1ClusterTrustBundleList + :: [V1alpha1ClusterTrustBundle] -- ^ 'v1alpha1ClusterTrustBundleListItems': items is a collection of ClusterTrustBundle objects + -> V1alpha1ClusterTrustBundleList +mkV1alpha1ClusterTrustBundleList v1alpha1ClusterTrustBundleListItems = + V1alpha1ClusterTrustBundleList + { v1alpha1ClusterTrustBundleListApiVersion = Nothing + , v1alpha1ClusterTrustBundleListItems + , v1alpha1ClusterTrustBundleListKind = Nothing + , v1alpha1ClusterTrustBundleListMetadata = Nothing + } + +-- ** V1alpha1ClusterTrustBundleSpec +-- | V1alpha1ClusterTrustBundleSpec +-- ClusterTrustBundleSpec contains the signer and trust anchors. +data V1alpha1ClusterTrustBundleSpec = V1alpha1ClusterTrustBundleSpec + { v1alpha1ClusterTrustBundleSpecSignerName :: !(Maybe Text) -- ^ "signerName" - signerName indicates the associated signer, if any. In order to create or update a ClusterTrustBundle that sets signerName, you must have the following cluster-scoped permission: group=certificates.k8s.io resource=signers resourceName=<the signer name> verb=attest. If signerName is not empty, then the ClusterTrustBundle object must be named with the signer name as a prefix (translating slashes to colons). For example, for the signer name `example.com/foo`, valid ClusterTrustBundle object names include `example.com:foo:abc` and `example.com:foo:v1`. If signerName is empty, then the ClusterTrustBundle object's name must not have such a prefix. List/watch requests for ClusterTrustBundles can filter on this field using a `spec.signerName=NAME` field selector. + , v1alpha1ClusterTrustBundleSpecTrustBundle :: !(Text) -- ^ /Required/ "trustBundle" - trustBundle contains the individual X.509 trust anchors for this bundle, as PEM bundle of PEM-wrapped, DER-formatted X.509 certificates. The data must consist only of PEM certificate blocks that parse as valid X.509 certificates. Each certificate must include a basic constraints extension with the CA bit set. The API server will reject objects that contain duplicate certificates, or that use PEM block headers. Users of ClusterTrustBundles, including Kubelet, are free to reorder and deduplicate certificate blocks in this file according to their own logic, as well as to drop PEM block headers and inter-block data. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ClusterTrustBundleSpec +instance A.FromJSON V1alpha1ClusterTrustBundleSpec where + parseJSON = A.withObject "V1alpha1ClusterTrustBundleSpec" $ \o -> + V1alpha1ClusterTrustBundleSpec + <$> (o .:? "signerName") + <*> (o .: "trustBundle") + +-- | ToJSON V1alpha1ClusterTrustBundleSpec +instance A.ToJSON V1alpha1ClusterTrustBundleSpec where + toJSON V1alpha1ClusterTrustBundleSpec {..} = + _omitNulls + [ "signerName" .= v1alpha1ClusterTrustBundleSpecSignerName + , "trustBundle" .= v1alpha1ClusterTrustBundleSpecTrustBundle + ] + + +-- | Construct a value of type 'V1alpha1ClusterTrustBundleSpec' (by applying it's required fields, if any) +mkV1alpha1ClusterTrustBundleSpec + :: Text -- ^ 'v1alpha1ClusterTrustBundleSpecTrustBundle': trustBundle contains the individual X.509 trust anchors for this bundle, as PEM bundle of PEM-wrapped, DER-formatted X.509 certificates. The data must consist only of PEM certificate blocks that parse as valid X.509 certificates. Each certificate must include a basic constraints extension with the CA bit set. The API server will reject objects that contain duplicate certificates, or that use PEM block headers. Users of ClusterTrustBundles, including Kubelet, are free to reorder and deduplicate certificate blocks in this file according to their own logic, as well as to drop PEM block headers and inter-block data. + -> V1alpha1ClusterTrustBundleSpec +mkV1alpha1ClusterTrustBundleSpec v1alpha1ClusterTrustBundleSpecTrustBundle = + V1alpha1ClusterTrustBundleSpec + { v1alpha1ClusterTrustBundleSpecSignerName = Nothing + , v1alpha1ClusterTrustBundleSpecTrustBundle + } + +-- ** V1alpha1ExpressionWarning +-- | V1alpha1ExpressionWarning +-- ExpressionWarning is a warning information that targets a specific expression. +data V1alpha1ExpressionWarning = V1alpha1ExpressionWarning + { v1alpha1ExpressionWarningFieldRef :: !(Text) -- ^ /Required/ "fieldRef" - The path to the field that refers the expression. For example, the reference to the expression of the first item of validations is \"spec.validations[0].expression\" + , v1alpha1ExpressionWarningWarning :: !(Text) -- ^ /Required/ "warning" - The content of type checking information in a human-readable form. Each line of the warning contains the type that the expression is checked against, followed by the type check error from the compiler. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ExpressionWarning +instance A.FromJSON V1alpha1ExpressionWarning where + parseJSON = A.withObject "V1alpha1ExpressionWarning" $ \o -> + V1alpha1ExpressionWarning + <$> (o .: "fieldRef") + <*> (o .: "warning") + +-- | ToJSON V1alpha1ExpressionWarning +instance A.ToJSON V1alpha1ExpressionWarning where + toJSON V1alpha1ExpressionWarning {..} = + _omitNulls + [ "fieldRef" .= v1alpha1ExpressionWarningFieldRef + , "warning" .= v1alpha1ExpressionWarningWarning + ] + + +-- | Construct a value of type 'V1alpha1ExpressionWarning' (by applying it's required fields, if any) +mkV1alpha1ExpressionWarning + :: Text -- ^ 'v1alpha1ExpressionWarningFieldRef': The path to the field that refers the expression. For example, the reference to the expression of the first item of validations is \"spec.validations[0].expression\" + -> Text -- ^ 'v1alpha1ExpressionWarningWarning': The content of type checking information in a human-readable form. Each line of the warning contains the type that the expression is checked against, followed by the type check error from the compiler. + -> V1alpha1ExpressionWarning +mkV1alpha1ExpressionWarning v1alpha1ExpressionWarningFieldRef v1alpha1ExpressionWarningWarning = + V1alpha1ExpressionWarning + { v1alpha1ExpressionWarningFieldRef + , v1alpha1ExpressionWarningWarning + } + +-- ** V1alpha1IPAddress +-- | V1alpha1IPAddress +-- IPAddress represents a single IP of a single IP Family. The object is designed to be used by APIs that operate on IP addresses. The object is used by the Service core API for allocation of IP addresses. An IP address can be represented in different formats, to guarantee the uniqueness of the IP, the name of the object is the IP address in canonical format, four decimal digits separated by dots suppressing leading zeros for IPv4 and the representation defined by RFC 5952 for IPv6. Valid: 192.168.1.5 or 2001:db8::1 or 2001:db8:aaaa:bbbb:cccc:dddd:eeee:1 Invalid: 10.01.2.3 or 2001:db8:0:0:0::1 +data V1alpha1IPAddress = V1alpha1IPAddress + { v1alpha1IPAddressApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1IPAddressKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1IPAddressMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1IPAddressSpec :: !(Maybe V1alpha1IPAddressSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1IPAddress +instance A.FromJSON V1alpha1IPAddress where + parseJSON = A.withObject "V1alpha1IPAddress" $ \o -> + V1alpha1IPAddress + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1alpha1IPAddress +instance A.ToJSON V1alpha1IPAddress where + toJSON V1alpha1IPAddress {..} = + _omitNulls + [ "apiVersion" .= v1alpha1IPAddressApiVersion + , "kind" .= v1alpha1IPAddressKind + , "metadata" .= v1alpha1IPAddressMetadata + , "spec" .= v1alpha1IPAddressSpec + ] + + +-- | Construct a value of type 'V1alpha1IPAddress' (by applying it's required fields, if any) +mkV1alpha1IPAddress + :: V1alpha1IPAddress +mkV1alpha1IPAddress = + V1alpha1IPAddress + { v1alpha1IPAddressApiVersion = Nothing + , v1alpha1IPAddressKind = Nothing + , v1alpha1IPAddressMetadata = Nothing + , v1alpha1IPAddressSpec = Nothing + } + +-- ** V1alpha1IPAddressList +-- | V1alpha1IPAddressList +-- IPAddressList contains a list of IPAddress. +data V1alpha1IPAddressList = V1alpha1IPAddressList + { v1alpha1IPAddressListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1IPAddressListItems :: !([V1alpha1IPAddress]) -- ^ /Required/ "items" - items is the list of IPAddresses. + , v1alpha1IPAddressListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1IPAddressListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1IPAddressList +instance A.FromJSON V1alpha1IPAddressList where + parseJSON = A.withObject "V1alpha1IPAddressList" $ \o -> + V1alpha1IPAddressList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1IPAddressList +instance A.ToJSON V1alpha1IPAddressList where + toJSON V1alpha1IPAddressList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1IPAddressListApiVersion + , "items" .= v1alpha1IPAddressListItems + , "kind" .= v1alpha1IPAddressListKind + , "metadata" .= v1alpha1IPAddressListMetadata + ] + + +-- | Construct a value of type 'V1alpha1IPAddressList' (by applying it's required fields, if any) +mkV1alpha1IPAddressList + :: [V1alpha1IPAddress] -- ^ 'v1alpha1IPAddressListItems': items is the list of IPAddresses. + -> V1alpha1IPAddressList +mkV1alpha1IPAddressList v1alpha1IPAddressListItems = + V1alpha1IPAddressList + { v1alpha1IPAddressListApiVersion = Nothing + , v1alpha1IPAddressListItems + , v1alpha1IPAddressListKind = Nothing + , v1alpha1IPAddressListMetadata = Nothing + } + +-- ** V1alpha1IPAddressSpec +-- | V1alpha1IPAddressSpec +-- IPAddressSpec describe the attributes in an IP Address. +data V1alpha1IPAddressSpec = V1alpha1IPAddressSpec + { v1alpha1IPAddressSpecParentRef :: !(Maybe V1alpha1ParentReference) -- ^ "parentRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1IPAddressSpec +instance A.FromJSON V1alpha1IPAddressSpec where + parseJSON = A.withObject "V1alpha1IPAddressSpec" $ \o -> + V1alpha1IPAddressSpec + <$> (o .:? "parentRef") + +-- | ToJSON V1alpha1IPAddressSpec +instance A.ToJSON V1alpha1IPAddressSpec where + toJSON V1alpha1IPAddressSpec {..} = + _omitNulls + [ "parentRef" .= v1alpha1IPAddressSpecParentRef + ] + + +-- | Construct a value of type 'V1alpha1IPAddressSpec' (by applying it's required fields, if any) +mkV1alpha1IPAddressSpec + :: V1alpha1IPAddressSpec +mkV1alpha1IPAddressSpec = + V1alpha1IPAddressSpec + { v1alpha1IPAddressSpecParentRef = Nothing + } + +-- ** V1alpha1MatchCondition +-- | V1alpha1MatchCondition +data V1alpha1MatchCondition = V1alpha1MatchCondition + { v1alpha1MatchConditionExpression :: !(Text) -- ^ /Required/ "expression" - Expression represents the expression which will be evaluated by CEL. Must evaluate to bool. CEL expressions have access to the contents of the AdmissionRequest and Authorizer, organized into CEL variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request(/pkg/apis/admission/types.go#AdmissionRequest). 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. Documentation on CEL: https://kubernetes.io/docs/reference/using-api/cel/ Required. + , v1alpha1MatchConditionName :: !(Text) -- ^ /Required/ "name" - Name is an identifier for this match condition, used for strategic merging of MatchConditions, as well as providing an identifier for logging purposes. A good name should be descriptive of the associated expression. Name must be a qualified name consisting of alphanumeric characters, '-', '_' or '.', and must start and end with an alphanumeric character (e.g. 'MyName', or 'my.name', or '123-abc', regex used for validation is '([A-Za-z0-9][-A-Za-z0-9_.]*)?[A-Za-z0-9]') with an optional DNS subdomain prefix and '/' (e.g. 'example.com/MyName') Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1MatchCondition +instance A.FromJSON V1alpha1MatchCondition where + parseJSON = A.withObject "V1alpha1MatchCondition" $ \o -> + V1alpha1MatchCondition + <$> (o .: "expression") + <*> (o .: "name") + +-- | ToJSON V1alpha1MatchCondition +instance A.ToJSON V1alpha1MatchCondition where + toJSON V1alpha1MatchCondition {..} = + _omitNulls + [ "expression" .= v1alpha1MatchConditionExpression + , "name" .= v1alpha1MatchConditionName + ] + + +-- | Construct a value of type 'V1alpha1MatchCondition' (by applying it's required fields, if any) +mkV1alpha1MatchCondition + :: Text -- ^ 'v1alpha1MatchConditionExpression': Expression represents the expression which will be evaluated by CEL. Must evaluate to bool. CEL expressions have access to the contents of the AdmissionRequest and Authorizer, organized into CEL variables: 'object' - The object from the incoming request. The value is null for DELETE requests. 'oldObject' - The existing object. The value is null for CREATE requests. 'request' - Attributes of the admission request(/pkg/apis/admission/types.go#AdmissionRequest). 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. Documentation on CEL: https://kubernetes.io/docs/reference/using-api/cel/ Required. + -> Text -- ^ 'v1alpha1MatchConditionName': Name is an identifier for this match condition, used for strategic merging of MatchConditions, as well as providing an identifier for logging purposes. A good name should be descriptive of the associated expression. Name must be a qualified name consisting of alphanumeric characters, '-', '_' or '.', and must start and end with an alphanumeric character (e.g. 'MyName', or 'my.name', or '123-abc', regex used for validation is '([A-Za-z0-9][-A-Za-z0-9_.]*)?[A-Za-z0-9]') with an optional DNS subdomain prefix and '/' (e.g. 'example.com/MyName') Required. + -> V1alpha1MatchCondition +mkV1alpha1MatchCondition v1alpha1MatchConditionExpression v1alpha1MatchConditionName = + V1alpha1MatchCondition + { v1alpha1MatchConditionExpression + , v1alpha1MatchConditionName + } + +-- ** V1alpha1MatchResources +-- | V1alpha1MatchResources +-- MatchResources decides whether to run the admission control policy on an object based on whether it meets the match criteria. The exclude rules take precedence over include rules (if a resource matches both, it is excluded) +data V1alpha1MatchResources = V1alpha1MatchResources + { v1alpha1MatchResourcesExcludeResourceRules :: !(Maybe [V1alpha1NamedRuleWithOperations]) -- ^ "excludeResourceRules" - ExcludeResourceRules describes what operations on what resources/subresources the ValidatingAdmissionPolicy should not care about. The exclude rules take precedence over include rules (if a resource matches both, it is excluded) + , v1alpha1MatchResourcesMatchPolicy :: !(Maybe Text) -- ^ "matchPolicy" - matchPolicy defines how the \"MatchResources\" list is used to match incoming requests. Allowed values are \"Exact\" or \"Equivalent\". - Exact: match a request only if it exactly matches a specified rule. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, but \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would not be sent to the ValidatingAdmissionPolicy. - Equivalent: match a request if modifies a resource listed in rules, even via another API group or version. For example, if deployments can be modified via apps/v1, apps/v1beta1, and extensions/v1beta1, and \"rules\" only included `apiGroups:[\"apps\"], apiVersions:[\"v1\"], resources: [\"deployments\"]`, a request to apps/v1beta1 or extensions/v1beta1 would be converted to apps/v1 and sent to the ValidatingAdmissionPolicy. Defaults to \"Equivalent\" + , v1alpha1MatchResourcesNamespaceSelector :: !(Maybe V1LabelSelector) -- ^ "namespaceSelector" + , v1alpha1MatchResourcesObjectSelector :: !(Maybe V1LabelSelector) -- ^ "objectSelector" + , v1alpha1MatchResourcesResourceRules :: !(Maybe [V1alpha1NamedRuleWithOperations]) -- ^ "resourceRules" - ResourceRules describes what operations on what resources/subresources the ValidatingAdmissionPolicy matches. The policy cares about an operation if it matches _any_ Rule. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1MatchResources +instance A.FromJSON V1alpha1MatchResources where + parseJSON = A.withObject "V1alpha1MatchResources" $ \o -> + V1alpha1MatchResources + <$> (o .:? "excludeResourceRules") + <*> (o .:? "matchPolicy") + <*> (o .:? "namespaceSelector") + <*> (o .:? "objectSelector") + <*> (o .:? "resourceRules") + +-- | ToJSON V1alpha1MatchResources +instance A.ToJSON V1alpha1MatchResources where + toJSON V1alpha1MatchResources {..} = + _omitNulls + [ "excludeResourceRules" .= v1alpha1MatchResourcesExcludeResourceRules + , "matchPolicy" .= v1alpha1MatchResourcesMatchPolicy + , "namespaceSelector" .= v1alpha1MatchResourcesNamespaceSelector + , "objectSelector" .= v1alpha1MatchResourcesObjectSelector + , "resourceRules" .= v1alpha1MatchResourcesResourceRules + ] + + +-- | Construct a value of type 'V1alpha1MatchResources' (by applying it's required fields, if any) +mkV1alpha1MatchResources + :: V1alpha1MatchResources +mkV1alpha1MatchResources = + V1alpha1MatchResources + { v1alpha1MatchResourcesExcludeResourceRules = Nothing + , v1alpha1MatchResourcesMatchPolicy = Nothing + , v1alpha1MatchResourcesNamespaceSelector = Nothing + , v1alpha1MatchResourcesObjectSelector = Nothing + , v1alpha1MatchResourcesResourceRules = Nothing + } + +-- ** V1alpha1NamedRuleWithOperations +-- | V1alpha1NamedRuleWithOperations +-- NamedRuleWithOperations is a tuple of Operations and Resources with ResourceNames. +data V1alpha1NamedRuleWithOperations = V1alpha1NamedRuleWithOperations + { v1alpha1NamedRuleWithOperationsApiGroups :: !(Maybe [Text]) -- ^ "apiGroups" - APIGroups is the API groups the resources belong to. '*' is all groups. If '*' is present, the length of the slice must be one. Required. + , v1alpha1NamedRuleWithOperationsApiVersions :: !(Maybe [Text]) -- ^ "apiVersions" - APIVersions is the API versions the resources belong to. '*' is all versions. If '*' is present, the length of the slice must be one. Required. + , v1alpha1NamedRuleWithOperationsOperations :: !(Maybe [Text]) -- ^ "operations" - Operations is the operations the admission hook cares about - CREATE, UPDATE, DELETE, CONNECT or * for all of those operations and any future admission operations that are added. If '*' is present, the length of the slice must be one. Required. + , v1alpha1NamedRuleWithOperationsResourceNames :: !(Maybe [Text]) -- ^ "resourceNames" - ResourceNames is an optional white list of names that the rule applies to. An empty set means that everything is allowed. + , v1alpha1NamedRuleWithOperationsResources :: !(Maybe [Text]) -- ^ "resources" - Resources is a list of resources this rule applies to. For example: 'pods' means pods. 'pods/log' means the log subresource of pods. '*' means all resources, but not subresources. 'pods/*' means all subresources of pods. '*/scale' means all scale subresources. '*/*' means all resources and their subresources. If wildcard is present, the validation rule will ensure resources do not overlap with each other. Depending on the enclosing object, subresources might not be allowed. Required. + , v1alpha1NamedRuleWithOperationsScope :: !(Maybe Text) -- ^ "scope" - scope specifies the scope of this rule. Valid values are \"Cluster\", \"Namespaced\", and \"*\" \"Cluster\" means that only cluster-scoped resources will match this rule. Namespace API objects are cluster-scoped. \"Namespaced\" means that only namespaced resources will match this rule. \"*\" means that there are no scope restrictions. Subresources match the scope of their parent resource. Default is \"*\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1NamedRuleWithOperations +instance A.FromJSON V1alpha1NamedRuleWithOperations where + parseJSON = A.withObject "V1alpha1NamedRuleWithOperations" $ \o -> + V1alpha1NamedRuleWithOperations + <$> (o .:? "apiGroups") + <*> (o .:? "apiVersions") + <*> (o .:? "operations") + <*> (o .:? "resourceNames") + <*> (o .:? "resources") + <*> (o .:? "scope") + +-- | ToJSON V1alpha1NamedRuleWithOperations +instance A.ToJSON V1alpha1NamedRuleWithOperations where + toJSON V1alpha1NamedRuleWithOperations {..} = + _omitNulls + [ "apiGroups" .= v1alpha1NamedRuleWithOperationsApiGroups + , "apiVersions" .= v1alpha1NamedRuleWithOperationsApiVersions + , "operations" .= v1alpha1NamedRuleWithOperationsOperations + , "resourceNames" .= v1alpha1NamedRuleWithOperationsResourceNames + , "resources" .= v1alpha1NamedRuleWithOperationsResources + , "scope" .= v1alpha1NamedRuleWithOperationsScope + ] + + +-- | Construct a value of type 'V1alpha1NamedRuleWithOperations' (by applying it's required fields, if any) +mkV1alpha1NamedRuleWithOperations + :: V1alpha1NamedRuleWithOperations +mkV1alpha1NamedRuleWithOperations = + V1alpha1NamedRuleWithOperations + { v1alpha1NamedRuleWithOperationsApiGroups = Nothing + , v1alpha1NamedRuleWithOperationsApiVersions = Nothing + , v1alpha1NamedRuleWithOperationsOperations = Nothing + , v1alpha1NamedRuleWithOperationsResourceNames = Nothing + , v1alpha1NamedRuleWithOperationsResources = Nothing + , v1alpha1NamedRuleWithOperationsScope = Nothing + } + +-- ** V1alpha1ParamKind +-- | V1alpha1ParamKind +-- ParamKind is a tuple of Group Kind and Version. +data V1alpha1ParamKind = V1alpha1ParamKind + { v1alpha1ParamKindApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion is the API group version the resources belong to. In format of \"group/version\". Required. + , v1alpha1ParamKindKind :: !(Maybe Text) -- ^ "kind" - Kind is the API kind the resources belong to. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ParamKind +instance A.FromJSON V1alpha1ParamKind where + parseJSON = A.withObject "V1alpha1ParamKind" $ \o -> + V1alpha1ParamKind + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + +-- | ToJSON V1alpha1ParamKind +instance A.ToJSON V1alpha1ParamKind where + toJSON V1alpha1ParamKind {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ParamKindApiVersion + , "kind" .= v1alpha1ParamKindKind + ] + + +-- | Construct a value of type 'V1alpha1ParamKind' (by applying it's required fields, if any) +mkV1alpha1ParamKind + :: V1alpha1ParamKind +mkV1alpha1ParamKind = + V1alpha1ParamKind + { v1alpha1ParamKindApiVersion = Nothing + , v1alpha1ParamKindKind = Nothing + } + +-- ** V1alpha1ParamRef +-- | V1alpha1ParamRef +-- ParamRef references a parameter resource +data V1alpha1ParamRef = V1alpha1ParamRef + { v1alpha1ParamRefName :: !(Maybe Text) -- ^ "name" - Name of the resource being referenced. + , v1alpha1ParamRefNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace of the referenced resource. Should be empty for the cluster-scoped resources + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ParamRef +instance A.FromJSON V1alpha1ParamRef where + parseJSON = A.withObject "V1alpha1ParamRef" $ \o -> + V1alpha1ParamRef + <$> (o .:? "name") + <*> (o .:? "namespace") + +-- | ToJSON V1alpha1ParamRef +instance A.ToJSON V1alpha1ParamRef where + toJSON V1alpha1ParamRef {..} = + _omitNulls + [ "name" .= v1alpha1ParamRefName + , "namespace" .= v1alpha1ParamRefNamespace + ] + + +-- | Construct a value of type 'V1alpha1ParamRef' (by applying it's required fields, if any) +mkV1alpha1ParamRef + :: V1alpha1ParamRef +mkV1alpha1ParamRef = + V1alpha1ParamRef + { v1alpha1ParamRefName = Nothing + , v1alpha1ParamRefNamespace = Nothing + } + +-- ** V1alpha1ParentReference +-- | V1alpha1ParentReference +-- ParentReference describes a reference to a parent object. +data V1alpha1ParentReference = V1alpha1ParentReference + { v1alpha1ParentReferenceGroup :: !(Maybe Text) -- ^ "group" - Group is the group of the object being referenced. + , v1alpha1ParentReferenceName :: !(Maybe Text) -- ^ "name" - Name is the name of the object being referenced. + , v1alpha1ParentReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace is the namespace of the object being referenced. + , v1alpha1ParentReferenceResource :: !(Maybe Text) -- ^ "resource" - Resource is the resource of the object being referenced. + , v1alpha1ParentReferenceUid :: !(Maybe Text) -- ^ "uid" - UID is the uid of the object being referenced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ParentReference +instance A.FromJSON V1alpha1ParentReference where + parseJSON = A.withObject "V1alpha1ParentReference" $ \o -> + V1alpha1ParentReference + <$> (o .:? "group") + <*> (o .:? "name") + <*> (o .:? "namespace") + <*> (o .:? "resource") + <*> (o .:? "uid") + +-- | ToJSON V1alpha1ParentReference +instance A.ToJSON V1alpha1ParentReference where + toJSON V1alpha1ParentReference {..} = + _omitNulls + [ "group" .= v1alpha1ParentReferenceGroup + , "name" .= v1alpha1ParentReferenceName + , "namespace" .= v1alpha1ParentReferenceNamespace + , "resource" .= v1alpha1ParentReferenceResource + , "uid" .= v1alpha1ParentReferenceUid + ] + + +-- | Construct a value of type 'V1alpha1ParentReference' (by applying it's required fields, if any) +mkV1alpha1ParentReference + :: V1alpha1ParentReference +mkV1alpha1ParentReference = + V1alpha1ParentReference + { v1alpha1ParentReferenceGroup = Nothing + , v1alpha1ParentReferenceName = Nothing + , v1alpha1ParentReferenceNamespace = Nothing + , v1alpha1ParentReferenceResource = Nothing + , v1alpha1ParentReferenceUid = Nothing + } + +-- ** V1alpha1SelfSubjectReview +-- | V1alpha1SelfSubjectReview +-- SelfSubjectReview contains the user information that the kube-apiserver has about the user making this request. When using impersonation, users will receive the user info of the user being impersonated. If impersonation or request header authentication is used, any extra keys will have their case ignored and returned as lowercase. +data V1alpha1SelfSubjectReview = V1alpha1SelfSubjectReview + { v1alpha1SelfSubjectReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1SelfSubjectReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1SelfSubjectReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1SelfSubjectReviewStatus :: !(Maybe V1alpha1SelfSubjectReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1SelfSubjectReview +instance A.FromJSON V1alpha1SelfSubjectReview where + parseJSON = A.withObject "V1alpha1SelfSubjectReview" $ \o -> + V1alpha1SelfSubjectReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "status") + +-- | ToJSON V1alpha1SelfSubjectReview +instance A.ToJSON V1alpha1SelfSubjectReview where + toJSON V1alpha1SelfSubjectReview {..} = + _omitNulls + [ "apiVersion" .= v1alpha1SelfSubjectReviewApiVersion + , "kind" .= v1alpha1SelfSubjectReviewKind + , "metadata" .= v1alpha1SelfSubjectReviewMetadata + , "status" .= v1alpha1SelfSubjectReviewStatus + ] + + +-- | Construct a value of type 'V1alpha1SelfSubjectReview' (by applying it's required fields, if any) +mkV1alpha1SelfSubjectReview + :: V1alpha1SelfSubjectReview +mkV1alpha1SelfSubjectReview = + V1alpha1SelfSubjectReview + { v1alpha1SelfSubjectReviewApiVersion = Nothing + , v1alpha1SelfSubjectReviewKind = Nothing + , v1alpha1SelfSubjectReviewMetadata = Nothing + , v1alpha1SelfSubjectReviewStatus = Nothing + } + +-- ** V1alpha1SelfSubjectReviewStatus +-- | V1alpha1SelfSubjectReviewStatus +-- SelfSubjectReviewStatus is filled by the kube-apiserver and sent back to a user. +data V1alpha1SelfSubjectReviewStatus = V1alpha1SelfSubjectReviewStatus + { v1alpha1SelfSubjectReviewStatusUserInfo :: !(Maybe V1UserInfo) -- ^ "userInfo" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1SelfSubjectReviewStatus +instance A.FromJSON V1alpha1SelfSubjectReviewStatus where + parseJSON = A.withObject "V1alpha1SelfSubjectReviewStatus" $ \o -> + V1alpha1SelfSubjectReviewStatus + <$> (o .:? "userInfo") + +-- | ToJSON V1alpha1SelfSubjectReviewStatus +instance A.ToJSON V1alpha1SelfSubjectReviewStatus where + toJSON V1alpha1SelfSubjectReviewStatus {..} = + _omitNulls + [ "userInfo" .= v1alpha1SelfSubjectReviewStatusUserInfo + ] + + +-- | Construct a value of type 'V1alpha1SelfSubjectReviewStatus' (by applying it's required fields, if any) +mkV1alpha1SelfSubjectReviewStatus + :: V1alpha1SelfSubjectReviewStatus +mkV1alpha1SelfSubjectReviewStatus = + V1alpha1SelfSubjectReviewStatus + { v1alpha1SelfSubjectReviewStatusUserInfo = Nothing + } + +-- ** V1alpha1ServerStorageVersion +-- | V1alpha1ServerStorageVersion +-- An API server instance reports the version it can decode and the version it encodes objects to when persisting objects in the backend. +data V1alpha1ServerStorageVersion = V1alpha1ServerStorageVersion + { v1alpha1ServerStorageVersionApiServerId :: !(Maybe Text) -- ^ "apiServerID" - The ID of the reporting API server. + , v1alpha1ServerStorageVersionDecodableVersions :: !(Maybe [Text]) -- ^ "decodableVersions" - The API server can decode objects encoded in these versions. The encodingVersion must be included in the decodableVersions. + , v1alpha1ServerStorageVersionEncodingVersion :: !(Maybe Text) -- ^ "encodingVersion" - The API server encodes the object to this version when persisting it in the backend (e.g., etcd). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ServerStorageVersion +instance A.FromJSON V1alpha1ServerStorageVersion where + parseJSON = A.withObject "V1alpha1ServerStorageVersion" $ \o -> + V1alpha1ServerStorageVersion + <$> (o .:? "apiServerID") + <*> (o .:? "decodableVersions") + <*> (o .:? "encodingVersion") + +-- | ToJSON V1alpha1ServerStorageVersion +instance A.ToJSON V1alpha1ServerStorageVersion where + toJSON V1alpha1ServerStorageVersion {..} = + _omitNulls + [ "apiServerID" .= v1alpha1ServerStorageVersionApiServerId + , "decodableVersions" .= v1alpha1ServerStorageVersionDecodableVersions + , "encodingVersion" .= v1alpha1ServerStorageVersionEncodingVersion + ] + + +-- | Construct a value of type 'V1alpha1ServerStorageVersion' (by applying it's required fields, if any) +mkV1alpha1ServerStorageVersion + :: V1alpha1ServerStorageVersion +mkV1alpha1ServerStorageVersion = + V1alpha1ServerStorageVersion + { v1alpha1ServerStorageVersionApiServerId = Nothing + , v1alpha1ServerStorageVersionDecodableVersions = Nothing + , v1alpha1ServerStorageVersionEncodingVersion = Nothing + } + +-- ** V1alpha1StorageVersion +-- | V1alpha1StorageVersion +-- Storage version of a specific resource. +data V1alpha1StorageVersion = V1alpha1StorageVersion + { v1alpha1StorageVersionApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1StorageVersionKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1StorageVersionMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1StorageVersionSpec :: !(A.Value) -- ^ /Required/ "spec" - Spec is an empty spec. It is here to comply with Kubernetes API style. + , v1alpha1StorageVersionStatus :: !(V1alpha1StorageVersionStatus) -- ^ /Required/ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1StorageVersion +instance A.FromJSON V1alpha1StorageVersion where + parseJSON = A.withObject "V1alpha1StorageVersion" $ \o -> + V1alpha1StorageVersion + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .: "status") + +-- | ToJSON V1alpha1StorageVersion +instance A.ToJSON V1alpha1StorageVersion where + toJSON V1alpha1StorageVersion {..} = + _omitNulls + [ "apiVersion" .= v1alpha1StorageVersionApiVersion + , "kind" .= v1alpha1StorageVersionKind + , "metadata" .= v1alpha1StorageVersionMetadata + , "spec" .= v1alpha1StorageVersionSpec + , "status" .= v1alpha1StorageVersionStatus + ] + + +-- | Construct a value of type 'V1alpha1StorageVersion' (by applying it's required fields, if any) +mkV1alpha1StorageVersion + :: A.Value -- ^ 'v1alpha1StorageVersionSpec': Spec is an empty spec. It is here to comply with Kubernetes API style. + -> V1alpha1StorageVersionStatus -- ^ 'v1alpha1StorageVersionStatus' + -> V1alpha1StorageVersion +mkV1alpha1StorageVersion v1alpha1StorageVersionSpec v1alpha1StorageVersionStatus = + V1alpha1StorageVersion + { v1alpha1StorageVersionApiVersion = Nothing + , v1alpha1StorageVersionKind = Nothing + , v1alpha1StorageVersionMetadata = Nothing + , v1alpha1StorageVersionSpec + , v1alpha1StorageVersionStatus + } + +-- ** V1alpha1StorageVersionCondition +-- | V1alpha1StorageVersionCondition +-- Describes the state of the storageVersion at a certain point. +data V1alpha1StorageVersionCondition = V1alpha1StorageVersionCondition + { v1alpha1StorageVersionConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - Last time the condition transitioned from one status to another. + , v1alpha1StorageVersionConditionMessage :: !(Maybe Text) -- ^ "message" - A human readable message indicating details about the transition. + , v1alpha1StorageVersionConditionObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - If set, this represents the .metadata.generation that the condition was set based upon. + , v1alpha1StorageVersionConditionReason :: !(Text) -- ^ /Required/ "reason" - The reason for the condition's last transition. + , v1alpha1StorageVersionConditionStatus :: !(Text) -- ^ /Required/ "status" - Status of the condition, one of True, False, Unknown. + , v1alpha1StorageVersionConditionType :: !(Text) -- ^ /Required/ "type" - Type of the condition. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1StorageVersionCondition +instance A.FromJSON V1alpha1StorageVersionCondition where + parseJSON = A.withObject "V1alpha1StorageVersionCondition" $ \o -> + V1alpha1StorageVersionCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "observedGeneration") + <*> (o .: "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V1alpha1StorageVersionCondition +instance A.ToJSON V1alpha1StorageVersionCondition where + toJSON V1alpha1StorageVersionCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1alpha1StorageVersionConditionLastTransitionTime + , "message" .= v1alpha1StorageVersionConditionMessage + , "observedGeneration" .= v1alpha1StorageVersionConditionObservedGeneration + , "reason" .= v1alpha1StorageVersionConditionReason + , "status" .= v1alpha1StorageVersionConditionStatus + , "type" .= v1alpha1StorageVersionConditionType + ] + + +-- | Construct a value of type 'V1alpha1StorageVersionCondition' (by applying it's required fields, if any) +mkV1alpha1StorageVersionCondition + :: Text -- ^ 'v1alpha1StorageVersionConditionReason': The reason for the condition's last transition. + -> Text -- ^ 'v1alpha1StorageVersionConditionStatus': Status of the condition, one of True, False, Unknown. + -> Text -- ^ 'v1alpha1StorageVersionConditionType': Type of the condition. + -> V1alpha1StorageVersionCondition +mkV1alpha1StorageVersionCondition v1alpha1StorageVersionConditionReason v1alpha1StorageVersionConditionStatus v1alpha1StorageVersionConditionType = + V1alpha1StorageVersionCondition + { v1alpha1StorageVersionConditionLastTransitionTime = Nothing + , v1alpha1StorageVersionConditionMessage = Nothing + , v1alpha1StorageVersionConditionObservedGeneration = Nothing + , v1alpha1StorageVersionConditionReason + , v1alpha1StorageVersionConditionStatus + , v1alpha1StorageVersionConditionType + } + +-- ** V1alpha1StorageVersionList +-- | V1alpha1StorageVersionList +-- A list of StorageVersions. +data V1alpha1StorageVersionList = V1alpha1StorageVersionList + { v1alpha1StorageVersionListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1StorageVersionListItems :: !([V1alpha1StorageVersion]) -- ^ /Required/ "items" - Items holds a list of StorageVersion + , v1alpha1StorageVersionListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1StorageVersionListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1StorageVersionList +instance A.FromJSON V1alpha1StorageVersionList where + parseJSON = A.withObject "V1alpha1StorageVersionList" $ \o -> + V1alpha1StorageVersionList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1StorageVersionList +instance A.ToJSON V1alpha1StorageVersionList where + toJSON V1alpha1StorageVersionList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1StorageVersionListApiVersion + , "items" .= v1alpha1StorageVersionListItems + , "kind" .= v1alpha1StorageVersionListKind + , "metadata" .= v1alpha1StorageVersionListMetadata + ] + + +-- | Construct a value of type 'V1alpha1StorageVersionList' (by applying it's required fields, if any) +mkV1alpha1StorageVersionList + :: [V1alpha1StorageVersion] -- ^ 'v1alpha1StorageVersionListItems': Items holds a list of StorageVersion + -> V1alpha1StorageVersionList +mkV1alpha1StorageVersionList v1alpha1StorageVersionListItems = + V1alpha1StorageVersionList + { v1alpha1StorageVersionListApiVersion = Nothing + , v1alpha1StorageVersionListItems + , v1alpha1StorageVersionListKind = Nothing + , v1alpha1StorageVersionListMetadata = Nothing + } + +-- ** V1alpha1StorageVersionStatus +-- | V1alpha1StorageVersionStatus +-- API server instances report the versions they can decode and the version they encode objects to when persisting objects in the backend. +data V1alpha1StorageVersionStatus = V1alpha1StorageVersionStatus + { v1alpha1StorageVersionStatusCommonEncodingVersion :: !(Maybe Text) -- ^ "commonEncodingVersion" - If all API server instances agree on the same encoding storage version, then this field is set to that version. Otherwise this field is left empty. API servers should finish updating its storageVersionStatus entry before serving write operations, so that this field will be in sync with the reality. + , v1alpha1StorageVersionStatusConditions :: !(Maybe [V1alpha1StorageVersionCondition]) -- ^ "conditions" - The latest available observations of the storageVersion's state. + , v1alpha1StorageVersionStatusStorageVersions :: !(Maybe [V1alpha1ServerStorageVersion]) -- ^ "storageVersions" - The reported versions per API server instance. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1StorageVersionStatus +instance A.FromJSON V1alpha1StorageVersionStatus where + parseJSON = A.withObject "V1alpha1StorageVersionStatus" $ \o -> + V1alpha1StorageVersionStatus + <$> (o .:? "commonEncodingVersion") + <*> (o .:? "conditions") + <*> (o .:? "storageVersions") + +-- | ToJSON V1alpha1StorageVersionStatus +instance A.ToJSON V1alpha1StorageVersionStatus where + toJSON V1alpha1StorageVersionStatus {..} = + _omitNulls + [ "commonEncodingVersion" .= v1alpha1StorageVersionStatusCommonEncodingVersion + , "conditions" .= v1alpha1StorageVersionStatusConditions + , "storageVersions" .= v1alpha1StorageVersionStatusStorageVersions + ] + + +-- | Construct a value of type 'V1alpha1StorageVersionStatus' (by applying it's required fields, if any) +mkV1alpha1StorageVersionStatus + :: V1alpha1StorageVersionStatus +mkV1alpha1StorageVersionStatus = + V1alpha1StorageVersionStatus + { v1alpha1StorageVersionStatusCommonEncodingVersion = Nothing + , v1alpha1StorageVersionStatusConditions = Nothing + , v1alpha1StorageVersionStatusStorageVersions = Nothing + } + +-- ** V1alpha1TypeChecking +-- | V1alpha1TypeChecking +-- TypeChecking contains results of type checking the expressions in the ValidatingAdmissionPolicy +data V1alpha1TypeChecking = V1alpha1TypeChecking + { v1alpha1TypeCheckingExpressionWarnings :: !(Maybe [V1alpha1ExpressionWarning]) -- ^ "expressionWarnings" - The type checking warnings for each expression. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1TypeChecking +instance A.FromJSON V1alpha1TypeChecking where + parseJSON = A.withObject "V1alpha1TypeChecking" $ \o -> + V1alpha1TypeChecking + <$> (o .:? "expressionWarnings") + +-- | ToJSON V1alpha1TypeChecking +instance A.ToJSON V1alpha1TypeChecking where + toJSON V1alpha1TypeChecking {..} = + _omitNulls + [ "expressionWarnings" .= v1alpha1TypeCheckingExpressionWarnings + ] + + +-- | Construct a value of type 'V1alpha1TypeChecking' (by applying it's required fields, if any) +mkV1alpha1TypeChecking + :: V1alpha1TypeChecking +mkV1alpha1TypeChecking = + V1alpha1TypeChecking + { v1alpha1TypeCheckingExpressionWarnings = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicy +-- | V1alpha1ValidatingAdmissionPolicy +-- ValidatingAdmissionPolicy describes the definition of an admission validation policy that accepts or rejects an object without changing it. +data V1alpha1ValidatingAdmissionPolicy = V1alpha1ValidatingAdmissionPolicy + { v1alpha1ValidatingAdmissionPolicyApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ValidatingAdmissionPolicyKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ValidatingAdmissionPolicyMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1ValidatingAdmissionPolicySpec :: !(Maybe V1alpha1ValidatingAdmissionPolicySpec) -- ^ "spec" + , v1alpha1ValidatingAdmissionPolicyStatus :: !(Maybe V1alpha1ValidatingAdmissionPolicyStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicy +instance A.FromJSON V1alpha1ValidatingAdmissionPolicy where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicy" $ \o -> + V1alpha1ValidatingAdmissionPolicy + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicy +instance A.ToJSON V1alpha1ValidatingAdmissionPolicy where + toJSON V1alpha1ValidatingAdmissionPolicy {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyApiVersion + , "kind" .= v1alpha1ValidatingAdmissionPolicyKind + , "metadata" .= v1alpha1ValidatingAdmissionPolicyMetadata + , "spec" .= v1alpha1ValidatingAdmissionPolicySpec + , "status" .= v1alpha1ValidatingAdmissionPolicyStatus + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicy' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicy + :: V1alpha1ValidatingAdmissionPolicy +mkV1alpha1ValidatingAdmissionPolicy = + V1alpha1ValidatingAdmissionPolicy + { v1alpha1ValidatingAdmissionPolicyApiVersion = Nothing + , v1alpha1ValidatingAdmissionPolicyKind = Nothing + , v1alpha1ValidatingAdmissionPolicyMetadata = Nothing + , v1alpha1ValidatingAdmissionPolicySpec = Nothing + , v1alpha1ValidatingAdmissionPolicyStatus = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicyBinding +-- | V1alpha1ValidatingAdmissionPolicyBinding +-- ValidatingAdmissionPolicyBinding binds the ValidatingAdmissionPolicy with paramerized resources. ValidatingAdmissionPolicyBinding and parameter CRDs together define how cluster administrators configure policies for clusters. +data V1alpha1ValidatingAdmissionPolicyBinding = V1alpha1ValidatingAdmissionPolicyBinding + { v1alpha1ValidatingAdmissionPolicyBindingApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ValidatingAdmissionPolicyBindingKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ValidatingAdmissionPolicyBindingMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha1ValidatingAdmissionPolicyBindingSpec :: !(Maybe V1alpha1ValidatingAdmissionPolicyBindingSpec) -- ^ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicyBinding +instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBinding where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBinding" $ \o -> + V1alpha1ValidatingAdmissionPolicyBinding + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicyBinding +instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBinding where + toJSON V1alpha1ValidatingAdmissionPolicyBinding {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyBindingApiVersion + , "kind" .= v1alpha1ValidatingAdmissionPolicyBindingKind + , "metadata" .= v1alpha1ValidatingAdmissionPolicyBindingMetadata + , "spec" .= v1alpha1ValidatingAdmissionPolicyBindingSpec + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBinding' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicyBinding + :: V1alpha1ValidatingAdmissionPolicyBinding +mkV1alpha1ValidatingAdmissionPolicyBinding = + V1alpha1ValidatingAdmissionPolicyBinding + { v1alpha1ValidatingAdmissionPolicyBindingApiVersion = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingKind = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingMetadata = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingSpec = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicyBindingList +-- | V1alpha1ValidatingAdmissionPolicyBindingList +-- ValidatingAdmissionPolicyBindingList is a list of ValidatingAdmissionPolicyBinding. +data V1alpha1ValidatingAdmissionPolicyBindingList = V1alpha1ValidatingAdmissionPolicyBindingList + { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ValidatingAdmissionPolicyBindingListItems :: !(Maybe [V1alpha1ValidatingAdmissionPolicyBinding]) -- ^ "items" - List of PolicyBinding. + , v1alpha1ValidatingAdmissionPolicyBindingListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ValidatingAdmissionPolicyBindingListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicyBindingList +instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBindingList where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBindingList" $ \o -> + V1alpha1ValidatingAdmissionPolicyBindingList + <$> (o .:? "apiVersion") + <*> (o .:? "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicyBindingList +instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBindingList where + toJSON V1alpha1ValidatingAdmissionPolicyBindingList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyBindingListApiVersion + , "items" .= v1alpha1ValidatingAdmissionPolicyBindingListItems + , "kind" .= v1alpha1ValidatingAdmissionPolicyBindingListKind + , "metadata" .= v1alpha1ValidatingAdmissionPolicyBindingListMetadata + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBindingList' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicyBindingList + :: V1alpha1ValidatingAdmissionPolicyBindingList +mkV1alpha1ValidatingAdmissionPolicyBindingList = + V1alpha1ValidatingAdmissionPolicyBindingList + { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingListItems = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingListKind = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingListMetadata = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicyBindingSpec +-- | V1alpha1ValidatingAdmissionPolicyBindingSpec +-- ValidatingAdmissionPolicyBindingSpec is the specification of the ValidatingAdmissionPolicyBinding. +data V1alpha1ValidatingAdmissionPolicyBindingSpec = V1alpha1ValidatingAdmissionPolicyBindingSpec + { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources :: !(Maybe V1alpha1MatchResources) -- ^ "matchResources" + , v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef :: !(Maybe V1alpha1ParamRef) -- ^ "paramRef" + , v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName :: !(Maybe Text) -- ^ "policyName" - PolicyName references a ValidatingAdmissionPolicy name which the ValidatingAdmissionPolicyBinding binds to. If the referenced resource does not exist, this binding is considered invalid and will be ignored Required. + , v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions :: !(Maybe [Text]) -- ^ "validationActions" - validationActions declares how Validations of the referenced ValidatingAdmissionPolicy are enforced. If a validation evaluates to false it is always enforced according to these actions. Failures defined by the ValidatingAdmissionPolicy's FailurePolicy are enforced according to these actions only if the FailurePolicy is set to Fail, otherwise the failures are ignored. This includes compilation errors, runtime errors and misconfigurations of the policy. validationActions is declared as a set of action values. Order does not matter. validationActions may not contain duplicates of the same action. The supported actions values are: \"Deny\" specifies that a validation failure results in a denied request. \"Warn\" specifies that a validation failure is reported to the request client in HTTP Warning headers, with a warning code of 299. Warnings can be sent both for allowed or denied admission responses. \"Audit\" specifies that a validation failure is included in the published audit event for the request. The audit event will contain a `validation.policy.admission.k8s.io/validation_failure` audit annotation with a value containing the details of the validation failures, formatted as a JSON list of objects, each with the following fields: - message: The validation failure message string - policy: The resource name of the ValidatingAdmissionPolicy - binding: The resource name of the ValidatingAdmissionPolicyBinding - expressionIndex: The index of the failed validations in the ValidatingAdmissionPolicy - validationActions: The enforcement actions enacted for the validation failure Example audit annotation: `\"validation.policy.admission.k8s.io/validation_failure\": \"[{\"message\": \"Invalid value\", {\"policy\": \"policy.example.com\", {\"binding\": \"policybinding.example.com\", {\"expressionIndex\": \"1\", {\"validationActions\": [\"Audit\"]}]\"` Clients should expect to handle additional values by ignoring any values not recognized. \"Deny\" and \"Warn\" may not be used together since this combination needlessly duplicates the validation failure both in the API response body and the HTTP warning headers. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicyBindingSpec +instance A.FromJSON V1alpha1ValidatingAdmissionPolicyBindingSpec where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyBindingSpec" $ \o -> + V1alpha1ValidatingAdmissionPolicyBindingSpec + <$> (o .:? "matchResources") + <*> (o .:? "paramRef") + <*> (o .:? "policyName") + <*> (o .:? "validationActions") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicyBindingSpec +instance A.ToJSON V1alpha1ValidatingAdmissionPolicyBindingSpec where + toJSON V1alpha1ValidatingAdmissionPolicyBindingSpec {..} = + _omitNulls + [ "matchResources" .= v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources + , "paramRef" .= v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef + , "policyName" .= v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName + , "validationActions" .= v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyBindingSpec' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicyBindingSpec + :: V1alpha1ValidatingAdmissionPolicyBindingSpec +mkV1alpha1ValidatingAdmissionPolicyBindingSpec = + V1alpha1ValidatingAdmissionPolicyBindingSpec + { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName = Nothing + , v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicyList +-- | V1alpha1ValidatingAdmissionPolicyList +-- ValidatingAdmissionPolicyList is a list of ValidatingAdmissionPolicy. +data V1alpha1ValidatingAdmissionPolicyList = V1alpha1ValidatingAdmissionPolicyList + { v1alpha1ValidatingAdmissionPolicyListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha1ValidatingAdmissionPolicyListItems :: !(Maybe [V1alpha1ValidatingAdmissionPolicy]) -- ^ "items" - List of ValidatingAdmissionPolicy. + , v1alpha1ValidatingAdmissionPolicyListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha1ValidatingAdmissionPolicyListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicyList +instance A.FromJSON V1alpha1ValidatingAdmissionPolicyList where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyList" $ \o -> + V1alpha1ValidatingAdmissionPolicyList + <$> (o .:? "apiVersion") + <*> (o .:? "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicyList +instance A.ToJSON V1alpha1ValidatingAdmissionPolicyList where + toJSON V1alpha1ValidatingAdmissionPolicyList {..} = + _omitNulls + [ "apiVersion" .= v1alpha1ValidatingAdmissionPolicyListApiVersion + , "items" .= v1alpha1ValidatingAdmissionPolicyListItems + , "kind" .= v1alpha1ValidatingAdmissionPolicyListKind + , "metadata" .= v1alpha1ValidatingAdmissionPolicyListMetadata + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyList' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicyList + :: V1alpha1ValidatingAdmissionPolicyList +mkV1alpha1ValidatingAdmissionPolicyList = + V1alpha1ValidatingAdmissionPolicyList + { v1alpha1ValidatingAdmissionPolicyListApiVersion = Nothing + , v1alpha1ValidatingAdmissionPolicyListItems = Nothing + , v1alpha1ValidatingAdmissionPolicyListKind = Nothing + , v1alpha1ValidatingAdmissionPolicyListMetadata = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicySpec +-- | V1alpha1ValidatingAdmissionPolicySpec +-- ValidatingAdmissionPolicySpec is the specification of the desired behavior of the AdmissionPolicy. +data V1alpha1ValidatingAdmissionPolicySpec = V1alpha1ValidatingAdmissionPolicySpec + { v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations :: !(Maybe [V1alpha1AuditAnnotation]) -- ^ "auditAnnotations" - auditAnnotations contains CEL expressions which are used to produce audit annotations for the audit event of the API request. validations and auditAnnotations may not both be empty; a least one of validations or auditAnnotations is required. + , v1alpha1ValidatingAdmissionPolicySpecFailurePolicy :: !(Maybe Text) -- ^ "failurePolicy" - failurePolicy defines how to handle failures for the admission policy. Failures can occur from CEL expression parse errors, type check errors, runtime errors and invalid or mis-configured policy definitions or bindings. A policy is invalid if spec.paramKind refers to a non-existent Kind. A binding is invalid if spec.paramRef.name refers to a non-existent resource. failurePolicy does not define how validations that evaluate to false are handled. When failurePolicy is set to Fail, ValidatingAdmissionPolicyBinding validationActions define how failures are enforced. Allowed values are Ignore or Fail. Defaults to Fail. + , v1alpha1ValidatingAdmissionPolicySpecMatchConditions :: !(Maybe [V1alpha1MatchCondition]) -- ^ "matchConditions" - MatchConditions is a list of conditions that must be met for a request to be validated. Match conditions filter requests that have already been matched by the rules, namespaceSelector, and objectSelector. An empty list of matchConditions matches all requests. There are a maximum of 64 match conditions allowed. If a parameter object is provided, it can be accessed via the `params` handle in the same manner as validation expressions. The exact matching logic is (in order): 1. If ANY matchCondition evaluates to FALSE, the policy is skipped. 2. If ALL matchConditions evaluate to TRUE, the policy is evaluated. 3. If any matchCondition evaluates to an error (but none are FALSE): - If failurePolicy=Fail, reject the request - If failurePolicy=Ignore, the policy is skipped + , v1alpha1ValidatingAdmissionPolicySpecMatchConstraints :: !(Maybe V1alpha1MatchResources) -- ^ "matchConstraints" + , v1alpha1ValidatingAdmissionPolicySpecParamKind :: !(Maybe V1alpha1ParamKind) -- ^ "paramKind" + , v1alpha1ValidatingAdmissionPolicySpecValidations :: !(Maybe [V1alpha1Validation]) -- ^ "validations" - Validations contain CEL expressions which is used to apply the validation. Validations and AuditAnnotations may not both be empty; a minimum of one Validations or AuditAnnotations is required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicySpec +instance A.FromJSON V1alpha1ValidatingAdmissionPolicySpec where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicySpec" $ \o -> + V1alpha1ValidatingAdmissionPolicySpec + <$> (o .:? "auditAnnotations") + <*> (o .:? "failurePolicy") + <*> (o .:? "matchConditions") + <*> (o .:? "matchConstraints") + <*> (o .:? "paramKind") + <*> (o .:? "validations") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicySpec +instance A.ToJSON V1alpha1ValidatingAdmissionPolicySpec where + toJSON V1alpha1ValidatingAdmissionPolicySpec {..} = + _omitNulls + [ "auditAnnotations" .= v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations + , "failurePolicy" .= v1alpha1ValidatingAdmissionPolicySpecFailurePolicy + , "matchConditions" .= v1alpha1ValidatingAdmissionPolicySpecMatchConditions + , "matchConstraints" .= v1alpha1ValidatingAdmissionPolicySpecMatchConstraints + , "paramKind" .= v1alpha1ValidatingAdmissionPolicySpecParamKind + , "validations" .= v1alpha1ValidatingAdmissionPolicySpecValidations + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicySpec' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicySpec + :: V1alpha1ValidatingAdmissionPolicySpec +mkV1alpha1ValidatingAdmissionPolicySpec = + V1alpha1ValidatingAdmissionPolicySpec + { v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations = Nothing + , v1alpha1ValidatingAdmissionPolicySpecFailurePolicy = Nothing + , v1alpha1ValidatingAdmissionPolicySpecMatchConditions = Nothing + , v1alpha1ValidatingAdmissionPolicySpecMatchConstraints = Nothing + , v1alpha1ValidatingAdmissionPolicySpecParamKind = Nothing + , v1alpha1ValidatingAdmissionPolicySpecValidations = Nothing + } + +-- ** V1alpha1ValidatingAdmissionPolicyStatus +-- | V1alpha1ValidatingAdmissionPolicyStatus +-- ValidatingAdmissionPolicyStatus represents the status of a ValidatingAdmissionPolicy. +data V1alpha1ValidatingAdmissionPolicyStatus = V1alpha1ValidatingAdmissionPolicyStatus + { v1alpha1ValidatingAdmissionPolicyStatusConditions :: !(Maybe [V1Condition]) -- ^ "conditions" - The conditions represent the latest available observations of a policy's current state. + , v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - The generation observed by the controller. + , v1alpha1ValidatingAdmissionPolicyStatusTypeChecking :: !(Maybe V1alpha1TypeChecking) -- ^ "typeChecking" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1ValidatingAdmissionPolicyStatus +instance A.FromJSON V1alpha1ValidatingAdmissionPolicyStatus where + parseJSON = A.withObject "V1alpha1ValidatingAdmissionPolicyStatus" $ \o -> + V1alpha1ValidatingAdmissionPolicyStatus + <$> (o .:? "conditions") + <*> (o .:? "observedGeneration") + <*> (o .:? "typeChecking") + +-- | ToJSON V1alpha1ValidatingAdmissionPolicyStatus +instance A.ToJSON V1alpha1ValidatingAdmissionPolicyStatus where + toJSON V1alpha1ValidatingAdmissionPolicyStatus {..} = + _omitNulls + [ "conditions" .= v1alpha1ValidatingAdmissionPolicyStatusConditions + , "observedGeneration" .= v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration + , "typeChecking" .= v1alpha1ValidatingAdmissionPolicyStatusTypeChecking + ] + + +-- | Construct a value of type 'V1alpha1ValidatingAdmissionPolicyStatus' (by applying it's required fields, if any) +mkV1alpha1ValidatingAdmissionPolicyStatus + :: V1alpha1ValidatingAdmissionPolicyStatus +mkV1alpha1ValidatingAdmissionPolicyStatus = + V1alpha1ValidatingAdmissionPolicyStatus + { v1alpha1ValidatingAdmissionPolicyStatusConditions = Nothing + , v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration = Nothing + , v1alpha1ValidatingAdmissionPolicyStatusTypeChecking = Nothing + } + +-- ** V1alpha1Validation +-- | V1alpha1Validation +-- Validation specifies the CEL expression which is used to apply the validation. +data V1alpha1Validation = V1alpha1Validation + { v1alpha1ValidationExpression :: !(Text) -- ^ /Required/ "expression" - Expression represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec CEL expressions have access to the contents of the API request/response, organized into CEL variables as well as some other useful variables: - 'object' - The object from the incoming request. The value is null for DELETE requests. - 'oldObject' - The existing object. The value is null for CREATE requests. - 'request' - Attributes of the API request([ref](/pkg/apis/admission/types.go#AdmissionRequest)). - 'params' - Parameter resource referred to by the policy binding being evaluated. Only populated if the policy has a ParamKind. - 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz - 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object. No other metadata properties are accessible. Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Expression accessing a property named \"namespace\": {\"Expression\": \"object.__namespace__ > 0\"} - Expression accessing a property named \"x-prop\": {\"Expression\": \"object.x__dash__prop > 0\"} - Expression accessing a property named \"redact__d\": {\"Expression\": \"object.redact__underscores__d > 0\"} Equality on arrays with list type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. Required. + , v1alpha1ValidationMessage :: !(Maybe Text) -- ^ "message" - Message represents the message displayed when validation fails. The message is required if the Expression contains line breaks. The message must not contain line breaks. If unset, the message is \"failed rule: {Rule}\". e.g. \"must be a URL with the host matching spec.host\" If the Expression contains line breaks. Message is required. The message must not contain line breaks. If unset, the message is \"failed Expression: {Expression}\". + , v1alpha1ValidationMessageExpression :: !(Maybe Text) -- ^ "messageExpression" - messageExpression declares a CEL expression that evaluates to the validation failure message that is returned when this rule fails. Since messageExpression is used as a failure message, it must evaluate to a string. If both message and messageExpression are present on a validation, then messageExpression will be used if validation fails. If messageExpression results in a runtime error, the runtime error is logged, and the validation failure message is produced as if the messageExpression field were unset. If messageExpression evaluates to an empty string, a string with only spaces, or a string that contains line breaks, then the validation failure message will also be produced as if the messageExpression field were unset, and the fact that messageExpression produced an empty string/string with only spaces/string with line breaks will be logged. messageExpression has access to all the same variables as the `expression` except for 'authorizer' and 'authorizer.requestResource'. Example: \"object.x must be less than max (\"+string(params.max)+\")\" + , v1alpha1ValidationReason :: !(Maybe Text) -- ^ "reason" - Reason represents a machine-readable description of why this validation failed. If this is the first validation in the list to fail, this reason, as well as the corresponding HTTP response code, are used in the HTTP response to the client. The currently supported reasons are: \"Unauthorized\", \"Forbidden\", \"Invalid\", \"RequestEntityTooLarge\". If not set, StatusReasonInvalid is used in the response to the client. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha1Validation +instance A.FromJSON V1alpha1Validation where + parseJSON = A.withObject "V1alpha1Validation" $ \o -> + V1alpha1Validation + <$> (o .: "expression") + <*> (o .:? "message") + <*> (o .:? "messageExpression") + <*> (o .:? "reason") + +-- | ToJSON V1alpha1Validation +instance A.ToJSON V1alpha1Validation where + toJSON V1alpha1Validation {..} = + _omitNulls + [ "expression" .= v1alpha1ValidationExpression + , "message" .= v1alpha1ValidationMessage + , "messageExpression" .= v1alpha1ValidationMessageExpression + , "reason" .= v1alpha1ValidationReason + ] + + +-- | Construct a value of type 'V1alpha1Validation' (by applying it's required fields, if any) +mkV1alpha1Validation + :: Text -- ^ 'v1alpha1ValidationExpression': Expression represents the expression which will be evaluated by CEL. ref: https://github.com/google/cel-spec CEL expressions have access to the contents of the API request/response, organized into CEL variables as well as some other useful variables: - 'object' - The object from the incoming request. The value is null for DELETE requests. - 'oldObject' - The existing object. The value is null for CREATE requests. - 'request' - Attributes of the API request([ref](/pkg/apis/admission/types.go#AdmissionRequest)). - 'params' - Parameter resource referred to by the policy binding being evaluated. Only populated if the policy has a ParamKind. - 'authorizer' - A CEL Authorizer. May be used to perform authorization checks for the principal (user or service account) of the request. See https://pkg.go.dev/k8s.io/apiserver/pkg/cel/library#Authz - 'authorizer.requestResource' - A CEL ResourceCheck constructed from the 'authorizer' and configured with the request resource. The `apiVersion`, `kind`, `metadata.name` and `metadata.generateName` are always accessible from the root of the object. No other metadata properties are accessible. Only property names of the form `[a-zA-Z_.-/][a-zA-Z0-9_.-/]*` are accessible. Accessible property names are escaped according to the following rules when accessed in the expression: - '__' escapes to '__underscores__' - '.' escapes to '__dot__' - '-' escapes to '__dash__' - '/' escapes to '__slash__' - Property names that exactly match a CEL RESERVED keyword escape to '__{keyword}__'. The keywords are: \"true\", \"false\", \"null\", \"in\", \"as\", \"break\", \"const\", \"continue\", \"else\", \"for\", \"function\", \"if\", \"import\", \"let\", \"loop\", \"package\", \"namespace\", \"return\". Examples: - Expression accessing a property named \"namespace\": {\"Expression\": \"object.__namespace__ > 0\"} - Expression accessing a property named \"x-prop\": {\"Expression\": \"object.x__dash__prop > 0\"} - Expression accessing a property named \"redact__d\": {\"Expression\": \"object.redact__underscores__d > 0\"} Equality on arrays with list type of 'set' or 'map' ignores element order, i.e. [1, 2] == [2, 1]. Concatenation on arrays with x-kubernetes-list-type use the semantics of the list type: - 'set': `X + Y` performs a union where the array positions of all elements in `X` are preserved and non-intersecting elements in `Y` are appended, retaining their partial order. - 'map': `X + Y` performs a merge where the array positions of all keys in `X` are preserved but the values are overwritten by values in `Y` when the key sets of `X` and `Y` intersect. Elements in `Y` with non-intersecting keys are appended, retaining their partial order. Required. + -> V1alpha1Validation +mkV1alpha1Validation v1alpha1ValidationExpression = + V1alpha1Validation + { v1alpha1ValidationExpression + , v1alpha1ValidationMessage = Nothing + , v1alpha1ValidationMessageExpression = Nothing + , v1alpha1ValidationReason = Nothing + } + +-- ** V1alpha2AllocationResult +-- | V1alpha2AllocationResult +-- AllocationResult contains attributes of an allocated resource. +data V1alpha2AllocationResult = V1alpha2AllocationResult + { v1alpha2AllocationResultAvailableOnNodes :: !(Maybe V1NodeSelector) -- ^ "availableOnNodes" + , v1alpha2AllocationResultResourceHandles :: !(Maybe [V1alpha2ResourceHandle]) -- ^ "resourceHandles" - ResourceHandles contain the state associated with an allocation that should be maintained throughout the lifetime of a claim. Each ResourceHandle contains data that should be passed to a specific kubelet plugin once it lands on a node. This data is returned by the driver after a successful allocation and is opaque to Kubernetes. Driver documentation may explain to users how to interpret this data if needed. Setting this field is optional. It has a maximum size of 32 entries. If null (or empty), it is assumed this allocation will be processed by a single kubelet plugin with no ResourceHandle data attached. The name of the kubelet plugin invoked will match the DriverName set in the ResourceClaimStatus this AllocationResult is embedded in. + , v1alpha2AllocationResultShareable :: !(Maybe Bool) -- ^ "shareable" - Shareable determines whether the resource supports more than one consumer at a time. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2AllocationResult +instance A.FromJSON V1alpha2AllocationResult where + parseJSON = A.withObject "V1alpha2AllocationResult" $ \o -> + V1alpha2AllocationResult + <$> (o .:? "availableOnNodes") + <*> (o .:? "resourceHandles") + <*> (o .:? "shareable") + +-- | ToJSON V1alpha2AllocationResult +instance A.ToJSON V1alpha2AllocationResult where + toJSON V1alpha2AllocationResult {..} = + _omitNulls + [ "availableOnNodes" .= v1alpha2AllocationResultAvailableOnNodes + , "resourceHandles" .= v1alpha2AllocationResultResourceHandles + , "shareable" .= v1alpha2AllocationResultShareable + ] + + +-- | Construct a value of type 'V1alpha2AllocationResult' (by applying it's required fields, if any) +mkV1alpha2AllocationResult + :: V1alpha2AllocationResult +mkV1alpha2AllocationResult = + V1alpha2AllocationResult + { v1alpha2AllocationResultAvailableOnNodes = Nothing + , v1alpha2AllocationResultResourceHandles = Nothing + , v1alpha2AllocationResultShareable = Nothing + } + +-- ** V1alpha2PodSchedulingContext +-- | V1alpha2PodSchedulingContext +-- PodSchedulingContext objects hold information that is needed to schedule a Pod with ResourceClaims that use \"WaitForFirstConsumer\" allocation mode. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. +data V1alpha2PodSchedulingContext = V1alpha2PodSchedulingContext + { v1alpha2PodSchedulingContextApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2PodSchedulingContextKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2PodSchedulingContextMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha2PodSchedulingContextSpec :: !(V1alpha2PodSchedulingContextSpec) -- ^ /Required/ "spec" + , v1alpha2PodSchedulingContextStatus :: !(Maybe V1alpha2PodSchedulingContextStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2PodSchedulingContext +instance A.FromJSON V1alpha2PodSchedulingContext where + parseJSON = A.withObject "V1alpha2PodSchedulingContext" $ \o -> + V1alpha2PodSchedulingContext + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1alpha2PodSchedulingContext +instance A.ToJSON V1alpha2PodSchedulingContext where + toJSON V1alpha2PodSchedulingContext {..} = + _omitNulls + [ "apiVersion" .= v1alpha2PodSchedulingContextApiVersion + , "kind" .= v1alpha2PodSchedulingContextKind + , "metadata" .= v1alpha2PodSchedulingContextMetadata + , "spec" .= v1alpha2PodSchedulingContextSpec + , "status" .= v1alpha2PodSchedulingContextStatus + ] + + +-- | Construct a value of type 'V1alpha2PodSchedulingContext' (by applying it's required fields, if any) +mkV1alpha2PodSchedulingContext + :: V1alpha2PodSchedulingContextSpec -- ^ 'v1alpha2PodSchedulingContextSpec' + -> V1alpha2PodSchedulingContext +mkV1alpha2PodSchedulingContext v1alpha2PodSchedulingContextSpec = + V1alpha2PodSchedulingContext + { v1alpha2PodSchedulingContextApiVersion = Nothing + , v1alpha2PodSchedulingContextKind = Nothing + , v1alpha2PodSchedulingContextMetadata = Nothing + , v1alpha2PodSchedulingContextSpec + , v1alpha2PodSchedulingContextStatus = Nothing + } + +-- ** V1alpha2PodSchedulingContextList +-- | V1alpha2PodSchedulingContextList +-- PodSchedulingContextList is a collection of Pod scheduling objects. +data V1alpha2PodSchedulingContextList = V1alpha2PodSchedulingContextList + { v1alpha2PodSchedulingContextListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2PodSchedulingContextListItems :: !([V1alpha2PodSchedulingContext]) -- ^ /Required/ "items" - Items is the list of PodSchedulingContext objects. + , v1alpha2PodSchedulingContextListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2PodSchedulingContextListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2PodSchedulingContextList +instance A.FromJSON V1alpha2PodSchedulingContextList where + parseJSON = A.withObject "V1alpha2PodSchedulingContextList" $ \o -> + V1alpha2PodSchedulingContextList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha2PodSchedulingContextList +instance A.ToJSON V1alpha2PodSchedulingContextList where + toJSON V1alpha2PodSchedulingContextList {..} = + _omitNulls + [ "apiVersion" .= v1alpha2PodSchedulingContextListApiVersion + , "items" .= v1alpha2PodSchedulingContextListItems + , "kind" .= v1alpha2PodSchedulingContextListKind + , "metadata" .= v1alpha2PodSchedulingContextListMetadata + ] + + +-- | Construct a value of type 'V1alpha2PodSchedulingContextList' (by applying it's required fields, if any) +mkV1alpha2PodSchedulingContextList + :: [V1alpha2PodSchedulingContext] -- ^ 'v1alpha2PodSchedulingContextListItems': Items is the list of PodSchedulingContext objects. + -> V1alpha2PodSchedulingContextList +mkV1alpha2PodSchedulingContextList v1alpha2PodSchedulingContextListItems = + V1alpha2PodSchedulingContextList + { v1alpha2PodSchedulingContextListApiVersion = Nothing + , v1alpha2PodSchedulingContextListItems + , v1alpha2PodSchedulingContextListKind = Nothing + , v1alpha2PodSchedulingContextListMetadata = Nothing + } + +-- ** V1alpha2PodSchedulingContextSpec +-- | V1alpha2PodSchedulingContextSpec +-- PodSchedulingContextSpec describes where resources for the Pod are needed. +data V1alpha2PodSchedulingContextSpec = V1alpha2PodSchedulingContextSpec + { v1alpha2PodSchedulingContextSpecPotentialNodes :: !(Maybe [Text]) -- ^ "potentialNodes" - PotentialNodes lists nodes where the Pod might be able to run. The size of this field is limited to 128. This is large enough for many clusters. Larger clusters may need more attempts to find a node that suits all pending resources. This may get increased in the future, but not reduced. + , v1alpha2PodSchedulingContextSpecSelectedNode :: !(Maybe Text) -- ^ "selectedNode" - SelectedNode is the node for which allocation of ResourceClaims that are referenced by the Pod and that use \"WaitForFirstConsumer\" allocation is to be attempted. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2PodSchedulingContextSpec +instance A.FromJSON V1alpha2PodSchedulingContextSpec where + parseJSON = A.withObject "V1alpha2PodSchedulingContextSpec" $ \o -> + V1alpha2PodSchedulingContextSpec + <$> (o .:? "potentialNodes") + <*> (o .:? "selectedNode") + +-- | ToJSON V1alpha2PodSchedulingContextSpec +instance A.ToJSON V1alpha2PodSchedulingContextSpec where + toJSON V1alpha2PodSchedulingContextSpec {..} = + _omitNulls + [ "potentialNodes" .= v1alpha2PodSchedulingContextSpecPotentialNodes + , "selectedNode" .= v1alpha2PodSchedulingContextSpecSelectedNode + ] + + +-- | Construct a value of type 'V1alpha2PodSchedulingContextSpec' (by applying it's required fields, if any) +mkV1alpha2PodSchedulingContextSpec + :: V1alpha2PodSchedulingContextSpec +mkV1alpha2PodSchedulingContextSpec = + V1alpha2PodSchedulingContextSpec + { v1alpha2PodSchedulingContextSpecPotentialNodes = Nothing + , v1alpha2PodSchedulingContextSpecSelectedNode = Nothing + } + +-- ** V1alpha2PodSchedulingContextStatus +-- | V1alpha2PodSchedulingContextStatus +-- PodSchedulingContextStatus describes where resources for the Pod can be allocated. +data V1alpha2PodSchedulingContextStatus = V1alpha2PodSchedulingContextStatus + { v1alpha2PodSchedulingContextStatusResourceClaims :: !(Maybe [V1alpha2ResourceClaimSchedulingStatus]) -- ^ "resourceClaims" - ResourceClaims describes resource availability for each pod.spec.resourceClaim entry where the corresponding ResourceClaim uses \"WaitForFirstConsumer\" allocation mode. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2PodSchedulingContextStatus +instance A.FromJSON V1alpha2PodSchedulingContextStatus where + parseJSON = A.withObject "V1alpha2PodSchedulingContextStatus" $ \o -> + V1alpha2PodSchedulingContextStatus + <$> (o .:? "resourceClaims") + +-- | ToJSON V1alpha2PodSchedulingContextStatus +instance A.ToJSON V1alpha2PodSchedulingContextStatus where + toJSON V1alpha2PodSchedulingContextStatus {..} = + _omitNulls + [ "resourceClaims" .= v1alpha2PodSchedulingContextStatusResourceClaims + ] + + +-- | Construct a value of type 'V1alpha2PodSchedulingContextStatus' (by applying it's required fields, if any) +mkV1alpha2PodSchedulingContextStatus + :: V1alpha2PodSchedulingContextStatus +mkV1alpha2PodSchedulingContextStatus = + V1alpha2PodSchedulingContextStatus + { v1alpha2PodSchedulingContextStatusResourceClaims = Nothing + } + +-- ** V1alpha2ResourceClaim +-- | V1alpha2ResourceClaim +-- ResourceClaim describes which resources are needed by a resource consumer. Its status tracks whether the resource has been allocated and what the resulting attributes are. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. +data V1alpha2ResourceClaim = V1alpha2ResourceClaim + { v1alpha2ResourceClaimApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClaimKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClaimMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha2ResourceClaimSpec :: !(V1alpha2ResourceClaimSpec) -- ^ /Required/ "spec" + , v1alpha2ResourceClaimStatus :: !(Maybe V1alpha2ResourceClaimStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaim +instance A.FromJSON V1alpha2ResourceClaim where + parseJSON = A.withObject "V1alpha2ResourceClaim" $ \o -> + V1alpha2ResourceClaim + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + <*> (o .:? "status") + +-- | ToJSON V1alpha2ResourceClaim +instance A.ToJSON V1alpha2ResourceClaim where + toJSON V1alpha2ResourceClaim {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClaimApiVersion + , "kind" .= v1alpha2ResourceClaimKind + , "metadata" .= v1alpha2ResourceClaimMetadata + , "spec" .= v1alpha2ResourceClaimSpec + , "status" .= v1alpha2ResourceClaimStatus + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaim' (by applying it's required fields, if any) +mkV1alpha2ResourceClaim + :: V1alpha2ResourceClaimSpec -- ^ 'v1alpha2ResourceClaimSpec' + -> V1alpha2ResourceClaim +mkV1alpha2ResourceClaim v1alpha2ResourceClaimSpec = + V1alpha2ResourceClaim + { v1alpha2ResourceClaimApiVersion = Nothing + , v1alpha2ResourceClaimKind = Nothing + , v1alpha2ResourceClaimMetadata = Nothing + , v1alpha2ResourceClaimSpec + , v1alpha2ResourceClaimStatus = Nothing + } + +-- ** V1alpha2ResourceClaimConsumerReference +-- | V1alpha2ResourceClaimConsumerReference +-- ResourceClaimConsumerReference contains enough information to let you locate the consumer of a ResourceClaim. The user must be a resource in the same namespace as the ResourceClaim. +data V1alpha2ResourceClaimConsumerReference = V1alpha2ResourceClaimConsumerReference + { v1alpha2ResourceClaimConsumerReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. + , v1alpha2ResourceClaimConsumerReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. + , v1alpha2ResourceClaimConsumerReferenceResource :: !(Text) -- ^ /Required/ "resource" - Resource is the type of resource being referenced, for example \"pods\". + , v1alpha2ResourceClaimConsumerReferenceUid :: !(Text) -- ^ /Required/ "uid" - UID identifies exactly one incarnation of the resource. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimConsumerReference +instance A.FromJSON V1alpha2ResourceClaimConsumerReference where + parseJSON = A.withObject "V1alpha2ResourceClaimConsumerReference" $ \o -> + V1alpha2ResourceClaimConsumerReference + <$> (o .:? "apiGroup") + <*> (o .: "name") + <*> (o .: "resource") + <*> (o .: "uid") + +-- | ToJSON V1alpha2ResourceClaimConsumerReference +instance A.ToJSON V1alpha2ResourceClaimConsumerReference where + toJSON V1alpha2ResourceClaimConsumerReference {..} = + _omitNulls + [ "apiGroup" .= v1alpha2ResourceClaimConsumerReferenceApiGroup + , "name" .= v1alpha2ResourceClaimConsumerReferenceName + , "resource" .= v1alpha2ResourceClaimConsumerReferenceResource + , "uid" .= v1alpha2ResourceClaimConsumerReferenceUid + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimConsumerReference' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimConsumerReference + :: Text -- ^ 'v1alpha2ResourceClaimConsumerReferenceName': Name is the name of resource being referenced. + -> Text -- ^ 'v1alpha2ResourceClaimConsumerReferenceResource': Resource is the type of resource being referenced, for example \"pods\". + -> Text -- ^ 'v1alpha2ResourceClaimConsumerReferenceUid': UID identifies exactly one incarnation of the resource. + -> V1alpha2ResourceClaimConsumerReference +mkV1alpha2ResourceClaimConsumerReference v1alpha2ResourceClaimConsumerReferenceName v1alpha2ResourceClaimConsumerReferenceResource v1alpha2ResourceClaimConsumerReferenceUid = + V1alpha2ResourceClaimConsumerReference + { v1alpha2ResourceClaimConsumerReferenceApiGroup = Nothing + , v1alpha2ResourceClaimConsumerReferenceName + , v1alpha2ResourceClaimConsumerReferenceResource + , v1alpha2ResourceClaimConsumerReferenceUid + } + +-- ** V1alpha2ResourceClaimList +-- | V1alpha2ResourceClaimList +-- ResourceClaimList is a collection of claims. +data V1alpha2ResourceClaimList = V1alpha2ResourceClaimList + { v1alpha2ResourceClaimListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClaimListItems :: !([V1alpha2ResourceClaim]) -- ^ /Required/ "items" - Items is the list of resource claims. + , v1alpha2ResourceClaimListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClaimListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimList +instance A.FromJSON V1alpha2ResourceClaimList where + parseJSON = A.withObject "V1alpha2ResourceClaimList" $ \o -> + V1alpha2ResourceClaimList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha2ResourceClaimList +instance A.ToJSON V1alpha2ResourceClaimList where + toJSON V1alpha2ResourceClaimList {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClaimListApiVersion + , "items" .= v1alpha2ResourceClaimListItems + , "kind" .= v1alpha2ResourceClaimListKind + , "metadata" .= v1alpha2ResourceClaimListMetadata + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimList' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimList + :: [V1alpha2ResourceClaim] -- ^ 'v1alpha2ResourceClaimListItems': Items is the list of resource claims. + -> V1alpha2ResourceClaimList +mkV1alpha2ResourceClaimList v1alpha2ResourceClaimListItems = + V1alpha2ResourceClaimList + { v1alpha2ResourceClaimListApiVersion = Nothing + , v1alpha2ResourceClaimListItems + , v1alpha2ResourceClaimListKind = Nothing + , v1alpha2ResourceClaimListMetadata = Nothing + } + +-- ** V1alpha2ResourceClaimParametersReference +-- | V1alpha2ResourceClaimParametersReference +-- ResourceClaimParametersReference contains enough information to let you locate the parameters for a ResourceClaim. The object must be in the same namespace as the ResourceClaim. +data V1alpha2ResourceClaimParametersReference = V1alpha2ResourceClaimParametersReference + { v1alpha2ResourceClaimParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. + , v1alpha2ResourceClaimParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata, for example \"ConfigMap\". + , v1alpha2ResourceClaimParametersReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimParametersReference +instance A.FromJSON V1alpha2ResourceClaimParametersReference where + parseJSON = A.withObject "V1alpha2ResourceClaimParametersReference" $ \o -> + V1alpha2ResourceClaimParametersReference + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + +-- | ToJSON V1alpha2ResourceClaimParametersReference +instance A.ToJSON V1alpha2ResourceClaimParametersReference where + toJSON V1alpha2ResourceClaimParametersReference {..} = + _omitNulls + [ "apiGroup" .= v1alpha2ResourceClaimParametersReferenceApiGroup + , "kind" .= v1alpha2ResourceClaimParametersReferenceKind + , "name" .= v1alpha2ResourceClaimParametersReferenceName + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimParametersReference' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimParametersReference + :: Text -- ^ 'v1alpha2ResourceClaimParametersReferenceKind': Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata, for example \"ConfigMap\". + -> Text -- ^ 'v1alpha2ResourceClaimParametersReferenceName': Name is the name of resource being referenced. + -> V1alpha2ResourceClaimParametersReference +mkV1alpha2ResourceClaimParametersReference v1alpha2ResourceClaimParametersReferenceKind v1alpha2ResourceClaimParametersReferenceName = + V1alpha2ResourceClaimParametersReference + { v1alpha2ResourceClaimParametersReferenceApiGroup = Nothing + , v1alpha2ResourceClaimParametersReferenceKind + , v1alpha2ResourceClaimParametersReferenceName + } + +-- ** V1alpha2ResourceClaimSchedulingStatus +-- | V1alpha2ResourceClaimSchedulingStatus +-- ResourceClaimSchedulingStatus contains information about one particular ResourceClaim with \"WaitForFirstConsumer\" allocation mode. +data V1alpha2ResourceClaimSchedulingStatus = V1alpha2ResourceClaimSchedulingStatus + { v1alpha2ResourceClaimSchedulingStatusName :: !(Maybe Text) -- ^ "name" - Name matches the pod.spec.resourceClaims[*].Name field. + , v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes :: !(Maybe [Text]) -- ^ "unsuitableNodes" - UnsuitableNodes lists nodes that the ResourceClaim cannot be allocated for. The size of this field is limited to 128, the same as for PodSchedulingSpec.PotentialNodes. This may get increased in the future, but not reduced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimSchedulingStatus +instance A.FromJSON V1alpha2ResourceClaimSchedulingStatus where + parseJSON = A.withObject "V1alpha2ResourceClaimSchedulingStatus" $ \o -> + V1alpha2ResourceClaimSchedulingStatus + <$> (o .:? "name") + <*> (o .:? "unsuitableNodes") + +-- | ToJSON V1alpha2ResourceClaimSchedulingStatus +instance A.ToJSON V1alpha2ResourceClaimSchedulingStatus where + toJSON V1alpha2ResourceClaimSchedulingStatus {..} = + _omitNulls + [ "name" .= v1alpha2ResourceClaimSchedulingStatusName + , "unsuitableNodes" .= v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimSchedulingStatus' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimSchedulingStatus + :: V1alpha2ResourceClaimSchedulingStatus +mkV1alpha2ResourceClaimSchedulingStatus = + V1alpha2ResourceClaimSchedulingStatus + { v1alpha2ResourceClaimSchedulingStatusName = Nothing + , v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes = Nothing + } + +-- ** V1alpha2ResourceClaimSpec +-- | V1alpha2ResourceClaimSpec +-- ResourceClaimSpec defines how a resource is to be allocated. +data V1alpha2ResourceClaimSpec = V1alpha2ResourceClaimSpec + { v1alpha2ResourceClaimSpecAllocationMode :: !(Maybe Text) -- ^ "allocationMode" - Allocation can start immediately or when a Pod wants to use the resource. \"WaitForFirstConsumer\" is the default. + , v1alpha2ResourceClaimSpecParametersRef :: !(Maybe V1alpha2ResourceClaimParametersReference) -- ^ "parametersRef" + , v1alpha2ResourceClaimSpecResourceClassName :: !(Text) -- ^ /Required/ "resourceClassName" - ResourceClassName references the driver and additional parameters via the name of a ResourceClass that was created as part of the driver deployment. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimSpec +instance A.FromJSON V1alpha2ResourceClaimSpec where + parseJSON = A.withObject "V1alpha2ResourceClaimSpec" $ \o -> + V1alpha2ResourceClaimSpec + <$> (o .:? "allocationMode") + <*> (o .:? "parametersRef") + <*> (o .: "resourceClassName") + +-- | ToJSON V1alpha2ResourceClaimSpec +instance A.ToJSON V1alpha2ResourceClaimSpec where + toJSON V1alpha2ResourceClaimSpec {..} = + _omitNulls + [ "allocationMode" .= v1alpha2ResourceClaimSpecAllocationMode + , "parametersRef" .= v1alpha2ResourceClaimSpecParametersRef + , "resourceClassName" .= v1alpha2ResourceClaimSpecResourceClassName + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimSpec' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimSpec + :: Text -- ^ 'v1alpha2ResourceClaimSpecResourceClassName': ResourceClassName references the driver and additional parameters via the name of a ResourceClass that was created as part of the driver deployment. + -> V1alpha2ResourceClaimSpec +mkV1alpha2ResourceClaimSpec v1alpha2ResourceClaimSpecResourceClassName = + V1alpha2ResourceClaimSpec + { v1alpha2ResourceClaimSpecAllocationMode = Nothing + , v1alpha2ResourceClaimSpecParametersRef = Nothing + , v1alpha2ResourceClaimSpecResourceClassName + } + +-- ** V1alpha2ResourceClaimStatus +-- | V1alpha2ResourceClaimStatus +-- ResourceClaimStatus tracks whether the resource has been allocated and what the resulting attributes are. +data V1alpha2ResourceClaimStatus = V1alpha2ResourceClaimStatus + { v1alpha2ResourceClaimStatusAllocation :: !(Maybe V1alpha2AllocationResult) -- ^ "allocation" + , v1alpha2ResourceClaimStatusDeallocationRequested :: !(Maybe Bool) -- ^ "deallocationRequested" - DeallocationRequested indicates that a ResourceClaim is to be deallocated. The driver then must deallocate this claim and reset the field together with clearing the Allocation field. While DeallocationRequested is set, no new consumers may be added to ReservedFor. + , v1alpha2ResourceClaimStatusDriverName :: !(Maybe Text) -- ^ "driverName" - DriverName is a copy of the driver name from the ResourceClass at the time when allocation started. + , v1alpha2ResourceClaimStatusReservedFor :: !(Maybe [V1alpha2ResourceClaimConsumerReference]) -- ^ "reservedFor" - ReservedFor indicates which entities are currently allowed to use the claim. A Pod which references a ResourceClaim which is not reserved for that Pod will not be started. There can be at most 32 such reservations. This may get increased in the future, but not reduced. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimStatus +instance A.FromJSON V1alpha2ResourceClaimStatus where + parseJSON = A.withObject "V1alpha2ResourceClaimStatus" $ \o -> + V1alpha2ResourceClaimStatus + <$> (o .:? "allocation") + <*> (o .:? "deallocationRequested") + <*> (o .:? "driverName") + <*> (o .:? "reservedFor") + +-- | ToJSON V1alpha2ResourceClaimStatus +instance A.ToJSON V1alpha2ResourceClaimStatus where + toJSON V1alpha2ResourceClaimStatus {..} = + _omitNulls + [ "allocation" .= v1alpha2ResourceClaimStatusAllocation + , "deallocationRequested" .= v1alpha2ResourceClaimStatusDeallocationRequested + , "driverName" .= v1alpha2ResourceClaimStatusDriverName + , "reservedFor" .= v1alpha2ResourceClaimStatusReservedFor + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimStatus' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimStatus + :: V1alpha2ResourceClaimStatus +mkV1alpha2ResourceClaimStatus = + V1alpha2ResourceClaimStatus + { v1alpha2ResourceClaimStatusAllocation = Nothing + , v1alpha2ResourceClaimStatusDeallocationRequested = Nothing + , v1alpha2ResourceClaimStatusDriverName = Nothing + , v1alpha2ResourceClaimStatusReservedFor = Nothing + } + +-- ** V1alpha2ResourceClaimTemplate +-- | V1alpha2ResourceClaimTemplate +-- ResourceClaimTemplate is used to produce ResourceClaim objects. +data V1alpha2ResourceClaimTemplate = V1alpha2ResourceClaimTemplate + { v1alpha2ResourceClaimTemplateApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClaimTemplateKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClaimTemplateMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha2ResourceClaimTemplateSpec :: !(V1alpha2ResourceClaimTemplateSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimTemplate +instance A.FromJSON V1alpha2ResourceClaimTemplate where + parseJSON = A.withObject "V1alpha2ResourceClaimTemplate" $ \o -> + V1alpha2ResourceClaimTemplate + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1alpha2ResourceClaimTemplate +instance A.ToJSON V1alpha2ResourceClaimTemplate where + toJSON V1alpha2ResourceClaimTemplate {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClaimTemplateApiVersion + , "kind" .= v1alpha2ResourceClaimTemplateKind + , "metadata" .= v1alpha2ResourceClaimTemplateMetadata + , "spec" .= v1alpha2ResourceClaimTemplateSpec + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimTemplate' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimTemplate + :: V1alpha2ResourceClaimTemplateSpec -- ^ 'v1alpha2ResourceClaimTemplateSpec' + -> V1alpha2ResourceClaimTemplate +mkV1alpha2ResourceClaimTemplate v1alpha2ResourceClaimTemplateSpec = + V1alpha2ResourceClaimTemplate + { v1alpha2ResourceClaimTemplateApiVersion = Nothing + , v1alpha2ResourceClaimTemplateKind = Nothing + , v1alpha2ResourceClaimTemplateMetadata = Nothing + , v1alpha2ResourceClaimTemplateSpec + } + +-- ** V1alpha2ResourceClaimTemplateList +-- | V1alpha2ResourceClaimTemplateList +-- ResourceClaimTemplateList is a collection of claim templates. +data V1alpha2ResourceClaimTemplateList = V1alpha2ResourceClaimTemplateList + { v1alpha2ResourceClaimTemplateListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClaimTemplateListItems :: !([V1alpha2ResourceClaimTemplate]) -- ^ /Required/ "items" - Items is the list of resource claim templates. + , v1alpha2ResourceClaimTemplateListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClaimTemplateListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimTemplateList +instance A.FromJSON V1alpha2ResourceClaimTemplateList where + parseJSON = A.withObject "V1alpha2ResourceClaimTemplateList" $ \o -> + V1alpha2ResourceClaimTemplateList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha2ResourceClaimTemplateList +instance A.ToJSON V1alpha2ResourceClaimTemplateList where + toJSON V1alpha2ResourceClaimTemplateList {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClaimTemplateListApiVersion + , "items" .= v1alpha2ResourceClaimTemplateListItems + , "kind" .= v1alpha2ResourceClaimTemplateListKind + , "metadata" .= v1alpha2ResourceClaimTemplateListMetadata + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimTemplateList' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimTemplateList + :: [V1alpha2ResourceClaimTemplate] -- ^ 'v1alpha2ResourceClaimTemplateListItems': Items is the list of resource claim templates. + -> V1alpha2ResourceClaimTemplateList +mkV1alpha2ResourceClaimTemplateList v1alpha2ResourceClaimTemplateListItems = + V1alpha2ResourceClaimTemplateList + { v1alpha2ResourceClaimTemplateListApiVersion = Nothing + , v1alpha2ResourceClaimTemplateListItems + , v1alpha2ResourceClaimTemplateListKind = Nothing + , v1alpha2ResourceClaimTemplateListMetadata = Nothing + } + +-- ** V1alpha2ResourceClaimTemplateSpec +-- | V1alpha2ResourceClaimTemplateSpec +-- ResourceClaimTemplateSpec contains the metadata and fields for a ResourceClaim. +data V1alpha2ResourceClaimTemplateSpec = V1alpha2ResourceClaimTemplateSpec + { v1alpha2ResourceClaimTemplateSpecMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha2ResourceClaimTemplateSpecSpec :: !(V1alpha2ResourceClaimSpec) -- ^ /Required/ "spec" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClaimTemplateSpec +instance A.FromJSON V1alpha2ResourceClaimTemplateSpec where + parseJSON = A.withObject "V1alpha2ResourceClaimTemplateSpec" $ \o -> + V1alpha2ResourceClaimTemplateSpec + <$> (o .:? "metadata") + <*> (o .: "spec") + +-- | ToJSON V1alpha2ResourceClaimTemplateSpec +instance A.ToJSON V1alpha2ResourceClaimTemplateSpec where + toJSON V1alpha2ResourceClaimTemplateSpec {..} = + _omitNulls + [ "metadata" .= v1alpha2ResourceClaimTemplateSpecMetadata + , "spec" .= v1alpha2ResourceClaimTemplateSpecSpec + ] + + +-- | Construct a value of type 'V1alpha2ResourceClaimTemplateSpec' (by applying it's required fields, if any) +mkV1alpha2ResourceClaimTemplateSpec + :: V1alpha2ResourceClaimSpec -- ^ 'v1alpha2ResourceClaimTemplateSpecSpec' + -> V1alpha2ResourceClaimTemplateSpec +mkV1alpha2ResourceClaimTemplateSpec v1alpha2ResourceClaimTemplateSpecSpec = + V1alpha2ResourceClaimTemplateSpec + { v1alpha2ResourceClaimTemplateSpecMetadata = Nothing + , v1alpha2ResourceClaimTemplateSpecSpec + } + +-- ** V1alpha2ResourceClass +-- | V1alpha2ResourceClass +-- ResourceClass is used by administrators to influence how resources are allocated. This is an alpha type and requires enabling the DynamicResourceAllocation feature gate. +data V1alpha2ResourceClass = V1alpha2ResourceClass + { v1alpha2ResourceClassApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClassDriverName :: !(Text) -- ^ /Required/ "driverName" - DriverName defines the name of the dynamic resource driver that is used for allocation of a ResourceClaim that uses this class. Resource drivers have a unique name in forward domain order (acme.example.com). + , v1alpha2ResourceClassKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClassMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1alpha2ResourceClassParametersRef :: !(Maybe V1alpha2ResourceClassParametersReference) -- ^ "parametersRef" + , v1alpha2ResourceClassSuitableNodes :: !(Maybe V1NodeSelector) -- ^ "suitableNodes" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClass +instance A.FromJSON V1alpha2ResourceClass where + parseJSON = A.withObject "V1alpha2ResourceClass" $ \o -> + V1alpha2ResourceClass + <$> (o .:? "apiVersion") + <*> (o .: "driverName") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "parametersRef") + <*> (o .:? "suitableNodes") + +-- | ToJSON V1alpha2ResourceClass +instance A.ToJSON V1alpha2ResourceClass where + toJSON V1alpha2ResourceClass {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClassApiVersion + , "driverName" .= v1alpha2ResourceClassDriverName + , "kind" .= v1alpha2ResourceClassKind + , "metadata" .= v1alpha2ResourceClassMetadata + , "parametersRef" .= v1alpha2ResourceClassParametersRef + , "suitableNodes" .= v1alpha2ResourceClassSuitableNodes + ] + + +-- | Construct a value of type 'V1alpha2ResourceClass' (by applying it's required fields, if any) +mkV1alpha2ResourceClass + :: Text -- ^ 'v1alpha2ResourceClassDriverName': DriverName defines the name of the dynamic resource driver that is used for allocation of a ResourceClaim that uses this class. Resource drivers have a unique name in forward domain order (acme.example.com). + -> V1alpha2ResourceClass +mkV1alpha2ResourceClass v1alpha2ResourceClassDriverName = + V1alpha2ResourceClass + { v1alpha2ResourceClassApiVersion = Nothing + , v1alpha2ResourceClassDriverName + , v1alpha2ResourceClassKind = Nothing + , v1alpha2ResourceClassMetadata = Nothing + , v1alpha2ResourceClassParametersRef = Nothing + , v1alpha2ResourceClassSuitableNodes = Nothing + } + +-- ** V1alpha2ResourceClassList +-- | V1alpha2ResourceClassList +-- ResourceClassList is a collection of classes. +data V1alpha2ResourceClassList = V1alpha2ResourceClassList + { v1alpha2ResourceClassListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1alpha2ResourceClassListItems :: !([V1alpha2ResourceClass]) -- ^ /Required/ "items" - Items is the list of resource classes. + , v1alpha2ResourceClassListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1alpha2ResourceClassListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClassList +instance A.FromJSON V1alpha2ResourceClassList where + parseJSON = A.withObject "V1alpha2ResourceClassList" $ \o -> + V1alpha2ResourceClassList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1alpha2ResourceClassList +instance A.ToJSON V1alpha2ResourceClassList where + toJSON V1alpha2ResourceClassList {..} = + _omitNulls + [ "apiVersion" .= v1alpha2ResourceClassListApiVersion + , "items" .= v1alpha2ResourceClassListItems + , "kind" .= v1alpha2ResourceClassListKind + , "metadata" .= v1alpha2ResourceClassListMetadata + ] + + +-- | Construct a value of type 'V1alpha2ResourceClassList' (by applying it's required fields, if any) +mkV1alpha2ResourceClassList + :: [V1alpha2ResourceClass] -- ^ 'v1alpha2ResourceClassListItems': Items is the list of resource classes. + -> V1alpha2ResourceClassList +mkV1alpha2ResourceClassList v1alpha2ResourceClassListItems = + V1alpha2ResourceClassList + { v1alpha2ResourceClassListApiVersion = Nothing + , v1alpha2ResourceClassListItems + , v1alpha2ResourceClassListKind = Nothing + , v1alpha2ResourceClassListMetadata = Nothing + } + +-- ** V1alpha2ResourceClassParametersReference +-- | V1alpha2ResourceClassParametersReference +-- ResourceClassParametersReference contains enough information to let you locate the parameters for a ResourceClass. +data V1alpha2ResourceClassParametersReference = V1alpha2ResourceClassParametersReference + { v1alpha2ResourceClassParametersReferenceApiGroup :: !(Maybe Text) -- ^ "apiGroup" - APIGroup is the group for the resource being referenced. It is empty for the core API. This matches the group in the APIVersion that is used when creating the resources. + , v1alpha2ResourceClassParametersReferenceKind :: !(Text) -- ^ /Required/ "kind" - Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata. + , v1alpha2ResourceClassParametersReferenceName :: !(Text) -- ^ /Required/ "name" - Name is the name of resource being referenced. + , v1alpha2ResourceClassParametersReferenceNamespace :: !(Maybe Text) -- ^ "namespace" - Namespace that contains the referenced resource. Must be empty for cluster-scoped resources and non-empty for namespaced resources. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceClassParametersReference +instance A.FromJSON V1alpha2ResourceClassParametersReference where + parseJSON = A.withObject "V1alpha2ResourceClassParametersReference" $ \o -> + V1alpha2ResourceClassParametersReference + <$> (o .:? "apiGroup") + <*> (o .: "kind") + <*> (o .: "name") + <*> (o .:? "namespace") + +-- | ToJSON V1alpha2ResourceClassParametersReference +instance A.ToJSON V1alpha2ResourceClassParametersReference where + toJSON V1alpha2ResourceClassParametersReference {..} = + _omitNulls + [ "apiGroup" .= v1alpha2ResourceClassParametersReferenceApiGroup + , "kind" .= v1alpha2ResourceClassParametersReferenceKind + , "name" .= v1alpha2ResourceClassParametersReferenceName + , "namespace" .= v1alpha2ResourceClassParametersReferenceNamespace + ] + + +-- | Construct a value of type 'V1alpha2ResourceClassParametersReference' (by applying it's required fields, if any) +mkV1alpha2ResourceClassParametersReference + :: Text -- ^ 'v1alpha2ResourceClassParametersReferenceKind': Kind is the type of resource being referenced. This is the same value as in the parameter object's metadata. + -> Text -- ^ 'v1alpha2ResourceClassParametersReferenceName': Name is the name of resource being referenced. + -> V1alpha2ResourceClassParametersReference +mkV1alpha2ResourceClassParametersReference v1alpha2ResourceClassParametersReferenceKind v1alpha2ResourceClassParametersReferenceName = + V1alpha2ResourceClassParametersReference + { v1alpha2ResourceClassParametersReferenceApiGroup = Nothing + , v1alpha2ResourceClassParametersReferenceKind + , v1alpha2ResourceClassParametersReferenceName + , v1alpha2ResourceClassParametersReferenceNamespace = Nothing + } + +-- ** V1alpha2ResourceHandle +-- | V1alpha2ResourceHandle +-- ResourceHandle holds opaque resource data for processing by a specific kubelet plugin. +data V1alpha2ResourceHandle = V1alpha2ResourceHandle + { v1alpha2ResourceHandleData :: !(Maybe Text) -- ^ "data" - Data contains the opaque data associated with this ResourceHandle. It is set by the controller component of the resource driver whose name matches the DriverName set in the ResourceClaimStatus this ResourceHandle is embedded in. It is set at allocation time and is intended for processing by the kubelet plugin whose name matches the DriverName set in this ResourceHandle. The maximum size of this field is 16KiB. This may get increased in the future, but not reduced. + , v1alpha2ResourceHandleDriverName :: !(Maybe Text) -- ^ "driverName" - DriverName specifies the name of the resource driver whose kubelet plugin should be invoked to process this ResourceHandle's data once it lands on a node. This may differ from the DriverName set in ResourceClaimStatus this ResourceHandle is embedded in. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1alpha2ResourceHandle +instance A.FromJSON V1alpha2ResourceHandle where + parseJSON = A.withObject "V1alpha2ResourceHandle" $ \o -> + V1alpha2ResourceHandle + <$> (o .:? "data") + <*> (o .:? "driverName") + +-- | ToJSON V1alpha2ResourceHandle +instance A.ToJSON V1alpha2ResourceHandle where + toJSON V1alpha2ResourceHandle {..} = + _omitNulls + [ "data" .= v1alpha2ResourceHandleData + , "driverName" .= v1alpha2ResourceHandleDriverName + ] + + +-- | Construct a value of type 'V1alpha2ResourceHandle' (by applying it's required fields, if any) +mkV1alpha2ResourceHandle + :: V1alpha2ResourceHandle +mkV1alpha2ResourceHandle = + V1alpha2ResourceHandle + { v1alpha2ResourceHandleData = Nothing + , v1alpha2ResourceHandleDriverName = Nothing + } + +-- ** V1beta1SelfSubjectReview +-- | V1beta1SelfSubjectReview +-- SelfSubjectReview contains the user information that the kube-apiserver has about the user making this request. When using impersonation, users will receive the user info of the user being impersonated. If impersonation or request header authentication is used, any extra keys will have their case ignored and returned as lowercase. +data V1beta1SelfSubjectReview = V1beta1SelfSubjectReview + { v1beta1SelfSubjectReviewApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta1SelfSubjectReviewKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta1SelfSubjectReviewMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1beta1SelfSubjectReviewStatus :: !(Maybe V1beta1SelfSubjectReviewStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta1SelfSubjectReview +instance A.FromJSON V1beta1SelfSubjectReview where + parseJSON = A.withObject "V1beta1SelfSubjectReview" $ \o -> + V1beta1SelfSubjectReview + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "status") + +-- | ToJSON V1beta1SelfSubjectReview +instance A.ToJSON V1beta1SelfSubjectReview where + toJSON V1beta1SelfSubjectReview {..} = + _omitNulls + [ "apiVersion" .= v1beta1SelfSubjectReviewApiVersion + , "kind" .= v1beta1SelfSubjectReviewKind + , "metadata" .= v1beta1SelfSubjectReviewMetadata + , "status" .= v1beta1SelfSubjectReviewStatus + ] + + +-- | Construct a value of type 'V1beta1SelfSubjectReview' (by applying it's required fields, if any) +mkV1beta1SelfSubjectReview + :: V1beta1SelfSubjectReview +mkV1beta1SelfSubjectReview = + V1beta1SelfSubjectReview + { v1beta1SelfSubjectReviewApiVersion = Nothing + , v1beta1SelfSubjectReviewKind = Nothing + , v1beta1SelfSubjectReviewMetadata = Nothing + , v1beta1SelfSubjectReviewStatus = Nothing + } + +-- ** V1beta1SelfSubjectReviewStatus +-- | V1beta1SelfSubjectReviewStatus +-- SelfSubjectReviewStatus is filled by the kube-apiserver and sent back to a user. +data V1beta1SelfSubjectReviewStatus = V1beta1SelfSubjectReviewStatus + { v1beta1SelfSubjectReviewStatusUserInfo :: !(Maybe V1UserInfo) -- ^ "userInfo" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta1SelfSubjectReviewStatus +instance A.FromJSON V1beta1SelfSubjectReviewStatus where + parseJSON = A.withObject "V1beta1SelfSubjectReviewStatus" $ \o -> + V1beta1SelfSubjectReviewStatus + <$> (o .:? "userInfo") + +-- | ToJSON V1beta1SelfSubjectReviewStatus +instance A.ToJSON V1beta1SelfSubjectReviewStatus where + toJSON V1beta1SelfSubjectReviewStatus {..} = + _omitNulls + [ "userInfo" .= v1beta1SelfSubjectReviewStatusUserInfo + ] + + +-- | Construct a value of type 'V1beta1SelfSubjectReviewStatus' (by applying it's required fields, if any) +mkV1beta1SelfSubjectReviewStatus + :: V1beta1SelfSubjectReviewStatus +mkV1beta1SelfSubjectReviewStatus = + V1beta1SelfSubjectReviewStatus + { v1beta1SelfSubjectReviewStatusUserInfo = Nothing + } + +-- ** V1beta2FlowDistinguisherMethod +-- | V1beta2FlowDistinguisherMethod +-- FlowDistinguisherMethod specifies the method of a flow distinguisher. +data V1beta2FlowDistinguisherMethod = V1beta2FlowDistinguisherMethod + { v1beta2FlowDistinguisherMethodType :: !(Text) -- ^ /Required/ "type" - `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowDistinguisherMethod +instance A.FromJSON V1beta2FlowDistinguisherMethod where + parseJSON = A.withObject "V1beta2FlowDistinguisherMethod" $ \o -> + V1beta2FlowDistinguisherMethod + <$> (o .: "type") + +-- | ToJSON V1beta2FlowDistinguisherMethod +instance A.ToJSON V1beta2FlowDistinguisherMethod where + toJSON V1beta2FlowDistinguisherMethod {..} = + _omitNulls + [ "type" .= v1beta2FlowDistinguisherMethodType + ] + + +-- | Construct a value of type 'V1beta2FlowDistinguisherMethod' (by applying it's required fields, if any) +mkV1beta2FlowDistinguisherMethod + :: Text -- ^ 'v1beta2FlowDistinguisherMethodType': `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. + -> V1beta2FlowDistinguisherMethod +mkV1beta2FlowDistinguisherMethod v1beta2FlowDistinguisherMethodType = + V1beta2FlowDistinguisherMethod + { v1beta2FlowDistinguisherMethodType + } + +-- ** V1beta2FlowSchema +-- | V1beta2FlowSchema +-- FlowSchema defines the schema of a group of flows. Note that a flow is made up of a set of inbound API requests with similar attributes and is identified by a pair of strings: the name of the FlowSchema and a \"flow distinguisher\". +data V1beta2FlowSchema = V1beta2FlowSchema + { v1beta2FlowSchemaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta2FlowSchemaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta2FlowSchemaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1beta2FlowSchemaSpec :: !(Maybe V1beta2FlowSchemaSpec) -- ^ "spec" + , v1beta2FlowSchemaStatus :: !(Maybe V1beta2FlowSchemaStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowSchema +instance A.FromJSON V1beta2FlowSchema where + parseJSON = A.withObject "V1beta2FlowSchema" $ \o -> + V1beta2FlowSchema + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1beta2FlowSchema +instance A.ToJSON V1beta2FlowSchema where + toJSON V1beta2FlowSchema {..} = + _omitNulls + [ "apiVersion" .= v1beta2FlowSchemaApiVersion + , "kind" .= v1beta2FlowSchemaKind + , "metadata" .= v1beta2FlowSchemaMetadata + , "spec" .= v1beta2FlowSchemaSpec + , "status" .= v1beta2FlowSchemaStatus + ] + + +-- | Construct a value of type 'V1beta2FlowSchema' (by applying it's required fields, if any) +mkV1beta2FlowSchema + :: V1beta2FlowSchema +mkV1beta2FlowSchema = + V1beta2FlowSchema + { v1beta2FlowSchemaApiVersion = Nothing + , v1beta2FlowSchemaKind = Nothing + , v1beta2FlowSchemaMetadata = Nothing + , v1beta2FlowSchemaSpec = Nothing + , v1beta2FlowSchemaStatus = Nothing + } + +-- ** V1beta2FlowSchemaCondition +-- | V1beta2FlowSchemaCondition +-- FlowSchemaCondition describes conditions for a FlowSchema. +data V1beta2FlowSchemaCondition = V1beta2FlowSchemaCondition + { v1beta2FlowSchemaConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. + , v1beta2FlowSchemaConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. + , v1beta2FlowSchemaConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. + , v1beta2FlowSchemaConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. + , v1beta2FlowSchemaConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowSchemaCondition +instance A.FromJSON V1beta2FlowSchemaCondition where + parseJSON = A.withObject "V1beta2FlowSchemaCondition" $ \o -> + V1beta2FlowSchemaCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .:? "status") + <*> (o .:? "type") + +-- | ToJSON V1beta2FlowSchemaCondition +instance A.ToJSON V1beta2FlowSchemaCondition where + toJSON V1beta2FlowSchemaCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1beta2FlowSchemaConditionLastTransitionTime + , "message" .= v1beta2FlowSchemaConditionMessage + , "reason" .= v1beta2FlowSchemaConditionReason + , "status" .= v1beta2FlowSchemaConditionStatus + , "type" .= v1beta2FlowSchemaConditionType + ] + + +-- | Construct a value of type 'V1beta2FlowSchemaCondition' (by applying it's required fields, if any) +mkV1beta2FlowSchemaCondition + :: V1beta2FlowSchemaCondition +mkV1beta2FlowSchemaCondition = + V1beta2FlowSchemaCondition + { v1beta2FlowSchemaConditionLastTransitionTime = Nothing + , v1beta2FlowSchemaConditionMessage = Nothing + , v1beta2FlowSchemaConditionReason = Nothing + , v1beta2FlowSchemaConditionStatus = Nothing + , v1beta2FlowSchemaConditionType = Nothing + } + +-- ** V1beta2FlowSchemaList +-- | V1beta2FlowSchemaList +-- FlowSchemaList is a list of FlowSchema objects. +data V1beta2FlowSchemaList = V1beta2FlowSchemaList + { v1beta2FlowSchemaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta2FlowSchemaListItems :: !([V1beta2FlowSchema]) -- ^ /Required/ "items" - `items` is a list of FlowSchemas. + , v1beta2FlowSchemaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta2FlowSchemaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowSchemaList +instance A.FromJSON V1beta2FlowSchemaList where + parseJSON = A.withObject "V1beta2FlowSchemaList" $ \o -> + V1beta2FlowSchemaList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1beta2FlowSchemaList +instance A.ToJSON V1beta2FlowSchemaList where + toJSON V1beta2FlowSchemaList {..} = + _omitNulls + [ "apiVersion" .= v1beta2FlowSchemaListApiVersion + , "items" .= v1beta2FlowSchemaListItems + , "kind" .= v1beta2FlowSchemaListKind + , "metadata" .= v1beta2FlowSchemaListMetadata + ] + + +-- | Construct a value of type 'V1beta2FlowSchemaList' (by applying it's required fields, if any) +mkV1beta2FlowSchemaList + :: [V1beta2FlowSchema] -- ^ 'v1beta2FlowSchemaListItems': `items` is a list of FlowSchemas. + -> V1beta2FlowSchemaList +mkV1beta2FlowSchemaList v1beta2FlowSchemaListItems = + V1beta2FlowSchemaList + { v1beta2FlowSchemaListApiVersion = Nothing + , v1beta2FlowSchemaListItems + , v1beta2FlowSchemaListKind = Nothing + , v1beta2FlowSchemaListMetadata = Nothing + } + +-- ** V1beta2FlowSchemaSpec +-- | V1beta2FlowSchemaSpec +-- FlowSchemaSpec describes how the FlowSchema's specification looks like. +data V1beta2FlowSchemaSpec = V1beta2FlowSchemaSpec + { v1beta2FlowSchemaSpecDistinguisherMethod :: !(Maybe V1beta2FlowDistinguisherMethod) -- ^ "distinguisherMethod" + , v1beta2FlowSchemaSpecMatchingPrecedence :: !(Maybe Int) -- ^ "matchingPrecedence" - `matchingPrecedence` is used to choose among the FlowSchemas that match a given request. The chosen FlowSchema is among those with the numerically lowest (which we take to be logically highest) MatchingPrecedence. Each MatchingPrecedence value must be ranged in [1,10000]. Note that if the precedence is not specified, it will be set to 1000 as default. + , v1beta2FlowSchemaSpecPriorityLevelConfiguration :: !(V1beta2PriorityLevelConfigurationReference) -- ^ /Required/ "priorityLevelConfiguration" + , v1beta2FlowSchemaSpecRules :: !(Maybe [V1beta2PolicyRulesWithSubjects]) -- ^ "rules" - `rules` describes which requests will match this flow schema. This FlowSchema matches a request if and only if at least one member of rules matches the request. if it is an empty slice, there will be no requests matching the FlowSchema. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowSchemaSpec +instance A.FromJSON V1beta2FlowSchemaSpec where + parseJSON = A.withObject "V1beta2FlowSchemaSpec" $ \o -> + V1beta2FlowSchemaSpec + <$> (o .:? "distinguisherMethod") + <*> (o .:? "matchingPrecedence") + <*> (o .: "priorityLevelConfiguration") + <*> (o .:? "rules") + +-- | ToJSON V1beta2FlowSchemaSpec +instance A.ToJSON V1beta2FlowSchemaSpec where + toJSON V1beta2FlowSchemaSpec {..} = + _omitNulls + [ "distinguisherMethod" .= v1beta2FlowSchemaSpecDistinguisherMethod + , "matchingPrecedence" .= v1beta2FlowSchemaSpecMatchingPrecedence + , "priorityLevelConfiguration" .= v1beta2FlowSchemaSpecPriorityLevelConfiguration + , "rules" .= v1beta2FlowSchemaSpecRules + ] + + +-- | Construct a value of type 'V1beta2FlowSchemaSpec' (by applying it's required fields, if any) +mkV1beta2FlowSchemaSpec + :: V1beta2PriorityLevelConfigurationReference -- ^ 'v1beta2FlowSchemaSpecPriorityLevelConfiguration' + -> V1beta2FlowSchemaSpec +mkV1beta2FlowSchemaSpec v1beta2FlowSchemaSpecPriorityLevelConfiguration = + V1beta2FlowSchemaSpec + { v1beta2FlowSchemaSpecDistinguisherMethod = Nothing + , v1beta2FlowSchemaSpecMatchingPrecedence = Nothing + , v1beta2FlowSchemaSpecPriorityLevelConfiguration + , v1beta2FlowSchemaSpecRules = Nothing + } + +-- ** V1beta2FlowSchemaStatus +-- | V1beta2FlowSchemaStatus +-- FlowSchemaStatus represents the current state of a FlowSchema. +data V1beta2FlowSchemaStatus = V1beta2FlowSchemaStatus + { v1beta2FlowSchemaStatusConditions :: !(Maybe [V1beta2FlowSchemaCondition]) -- ^ "conditions" - `conditions` is a list of the current states of FlowSchema. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2FlowSchemaStatus +instance A.FromJSON V1beta2FlowSchemaStatus where + parseJSON = A.withObject "V1beta2FlowSchemaStatus" $ \o -> + V1beta2FlowSchemaStatus + <$> (o .:? "conditions") + +-- | ToJSON V1beta2FlowSchemaStatus +instance A.ToJSON V1beta2FlowSchemaStatus where + toJSON V1beta2FlowSchemaStatus {..} = + _omitNulls + [ "conditions" .= v1beta2FlowSchemaStatusConditions + ] + + +-- | Construct a value of type 'V1beta2FlowSchemaStatus' (by applying it's required fields, if any) +mkV1beta2FlowSchemaStatus + :: V1beta2FlowSchemaStatus +mkV1beta2FlowSchemaStatus = + V1beta2FlowSchemaStatus + { v1beta2FlowSchemaStatusConditions = Nothing + } + +-- ** V1beta2GroupSubject +-- | V1beta2GroupSubject +-- GroupSubject holds detailed information for group-kind subject. +data V1beta2GroupSubject = V1beta2GroupSubject + { v1beta2GroupSubjectName :: !(Text) -- ^ /Required/ "name" - name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2GroupSubject +instance A.FromJSON V1beta2GroupSubject where + parseJSON = A.withObject "V1beta2GroupSubject" $ \o -> + V1beta2GroupSubject + <$> (o .: "name") + +-- | ToJSON V1beta2GroupSubject +instance A.ToJSON V1beta2GroupSubject where + toJSON V1beta2GroupSubject {..} = + _omitNulls + [ "name" .= v1beta2GroupSubjectName + ] + + +-- | Construct a value of type 'V1beta2GroupSubject' (by applying it's required fields, if any) +mkV1beta2GroupSubject + :: Text -- ^ 'v1beta2GroupSubjectName': name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. + -> V1beta2GroupSubject +mkV1beta2GroupSubject v1beta2GroupSubjectName = + V1beta2GroupSubject + { v1beta2GroupSubjectName + } + +-- ** V1beta2LimitResponse +-- | V1beta2LimitResponse +-- LimitResponse defines how to handle requests that can not be executed right now. +data V1beta2LimitResponse = V1beta2LimitResponse + { v1beta2LimitResponseQueuing :: !(Maybe V1beta2QueuingConfiguration) -- ^ "queuing" + , v1beta2LimitResponseType :: !(Text) -- ^ /Required/ "type" - `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2LimitResponse +instance A.FromJSON V1beta2LimitResponse where + parseJSON = A.withObject "V1beta2LimitResponse" $ \o -> + V1beta2LimitResponse + <$> (o .:? "queuing") + <*> (o .: "type") + +-- | ToJSON V1beta2LimitResponse +instance A.ToJSON V1beta2LimitResponse where + toJSON V1beta2LimitResponse {..} = + _omitNulls + [ "queuing" .= v1beta2LimitResponseQueuing + , "type" .= v1beta2LimitResponseType + ] + + +-- | Construct a value of type 'V1beta2LimitResponse' (by applying it's required fields, if any) +mkV1beta2LimitResponse + :: Text -- ^ 'v1beta2LimitResponseType': `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. + -> V1beta2LimitResponse +mkV1beta2LimitResponse v1beta2LimitResponseType = + V1beta2LimitResponse + { v1beta2LimitResponseQueuing = Nothing + , v1beta2LimitResponseType + } + +-- ** V1beta2LimitedPriorityLevelConfiguration +-- | V1beta2LimitedPriorityLevelConfiguration +-- LimitedPriorityLevelConfiguration specifies how to handle requests that are subject to limits. It addresses two issues: - How are requests for this priority level limited? - What should be done with requests that exceed the limit? +data V1beta2LimitedPriorityLevelConfiguration = V1beta2LimitedPriorityLevelConfiguration + { v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares :: !(Maybe Int) -- ^ "assuredConcurrencyShares" - `assuredConcurrencyShares` (ACS) configures the execution limit, which is a limit on the number of requests of this priority level that may be exeucting at a given time. ACS must be a positive number. The server's concurrency limit (SCL) is divided among the concurrency-controlled priority levels in proportion to their assured concurrency shares. This produces the assured concurrency value (ACV) --- the number of requests that may be executing at a time --- for each such priority level: ACV(l) = ceil( SCL * ACS(l) / ( sum[priority levels k] ACS(k) ) ) bigger numbers of ACS mean more reserved concurrent requests (at the expense of every other PL). This field has a default value of 30. + , v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent :: !(Maybe Int) -- ^ "borrowingLimitPercent" - `borrowingLimitPercent`, if present, configures a limit on how many seats this priority level can borrow from other priority levels. The limit is known as this level's BorrowingConcurrencyLimit (BorrowingCL) and is a limit on the total number of seats that this level may borrow at any one time. This field holds the ratio of that limit to the level's nominal concurrency limit. When this field is non-nil, it must hold a non-negative integer and the limit is calculated as follows. BorrowingCL(i) = round( NominalCL(i) * borrowingLimitPercent(i)/100.0 ) The value of this field can be more than 100, implying that this priority level can borrow a number of seats that is greater than its own nominal concurrency limit (NominalCL). When this field is left `nil`, the limit is effectively infinite. + , v1beta2LimitedPriorityLevelConfigurationLendablePercent :: !(Maybe Int) -- ^ "lendablePercent" - `lendablePercent` prescribes the fraction of the level's NominalCL that can be borrowed by other priority levels. The value of this field must be between 0 and 100, inclusive, and it defaults to 0. The number of seats that other levels can borrow from this level, known as this level's LendableConcurrencyLimit (LendableCL), is defined as follows. LendableCL(i) = round( NominalCL(i) * lendablePercent(i)/100.0 ) + , v1beta2LimitedPriorityLevelConfigurationLimitResponse :: !(Maybe V1beta2LimitResponse) -- ^ "limitResponse" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2LimitedPriorityLevelConfiguration +instance A.FromJSON V1beta2LimitedPriorityLevelConfiguration where + parseJSON = A.withObject "V1beta2LimitedPriorityLevelConfiguration" $ \o -> + V1beta2LimitedPriorityLevelConfiguration + <$> (o .:? "assuredConcurrencyShares") + <*> (o .:? "borrowingLimitPercent") + <*> (o .:? "lendablePercent") + <*> (o .:? "limitResponse") + +-- | ToJSON V1beta2LimitedPriorityLevelConfiguration +instance A.ToJSON V1beta2LimitedPriorityLevelConfiguration where + toJSON V1beta2LimitedPriorityLevelConfiguration {..} = + _omitNulls + [ "assuredConcurrencyShares" .= v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares + , "borrowingLimitPercent" .= v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent + , "lendablePercent" .= v1beta2LimitedPriorityLevelConfigurationLendablePercent + , "limitResponse" .= v1beta2LimitedPriorityLevelConfigurationLimitResponse + ] + + +-- | Construct a value of type 'V1beta2LimitedPriorityLevelConfiguration' (by applying it's required fields, if any) +mkV1beta2LimitedPriorityLevelConfiguration + :: V1beta2LimitedPriorityLevelConfiguration +mkV1beta2LimitedPriorityLevelConfiguration = + V1beta2LimitedPriorityLevelConfiguration + { v1beta2LimitedPriorityLevelConfigurationAssuredConcurrencyShares = Nothing + , v1beta2LimitedPriorityLevelConfigurationBorrowingLimitPercent = Nothing + , v1beta2LimitedPriorityLevelConfigurationLendablePercent = Nothing + , v1beta2LimitedPriorityLevelConfigurationLimitResponse = Nothing + } + +-- ** V1beta2NonResourcePolicyRule +-- | V1beta2NonResourcePolicyRule +-- NonResourcePolicyRule is a predicate that matches non-resource requests according to their verb and the target non-resource URL. A NonResourcePolicyRule matches a request if and only if both (a) at least one member of verbs matches the request and (b) at least one member of nonResourceURLs matches the request. +data V1beta2NonResourcePolicyRule = V1beta2NonResourcePolicyRule + { v1beta2NonResourcePolicyRuleNonResourceUrls :: !([Text]) -- ^ /Required/ "nonResourceURLs" - `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. + , v1beta2NonResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2NonResourcePolicyRule +instance A.FromJSON V1beta2NonResourcePolicyRule where + parseJSON = A.withObject "V1beta2NonResourcePolicyRule" $ \o -> + V1beta2NonResourcePolicyRule + <$> (o .: "nonResourceURLs") + <*> (o .: "verbs") + +-- | ToJSON V1beta2NonResourcePolicyRule +instance A.ToJSON V1beta2NonResourcePolicyRule where + toJSON V1beta2NonResourcePolicyRule {..} = + _omitNulls + [ "nonResourceURLs" .= v1beta2NonResourcePolicyRuleNonResourceUrls + , "verbs" .= v1beta2NonResourcePolicyRuleVerbs + ] + + +-- | Construct a value of type 'V1beta2NonResourcePolicyRule' (by applying it's required fields, if any) +mkV1beta2NonResourcePolicyRule + :: [Text] -- ^ 'v1beta2NonResourcePolicyRuleNonResourceUrls': `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. + -> [Text] -- ^ 'v1beta2NonResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. + -> V1beta2NonResourcePolicyRule +mkV1beta2NonResourcePolicyRule v1beta2NonResourcePolicyRuleNonResourceUrls v1beta2NonResourcePolicyRuleVerbs = + V1beta2NonResourcePolicyRule + { v1beta2NonResourcePolicyRuleNonResourceUrls + , v1beta2NonResourcePolicyRuleVerbs + } + +-- ** V1beta2PolicyRulesWithSubjects +-- | V1beta2PolicyRulesWithSubjects +-- PolicyRulesWithSubjects prescribes a test that applies to a request to an apiserver. The test considers the subject making the request, the verb being requested, and the resource to be acted upon. This PolicyRulesWithSubjects matches a request if and only if both (a) at least one member of subjects matches the request and (b) at least one member of resourceRules or nonResourceRules matches the request. +data V1beta2PolicyRulesWithSubjects = V1beta2PolicyRulesWithSubjects + { v1beta2PolicyRulesWithSubjectsNonResourceRules :: !(Maybe [V1beta2NonResourcePolicyRule]) -- ^ "nonResourceRules" - `nonResourceRules` is a list of NonResourcePolicyRules that identify matching requests according to their verb and the target non-resource URL. + , v1beta2PolicyRulesWithSubjectsResourceRules :: !(Maybe [V1beta2ResourcePolicyRule]) -- ^ "resourceRules" - `resourceRules` is a slice of ResourcePolicyRules that identify matching requests according to their verb and the target resource. At least one of `resourceRules` and `nonResourceRules` has to be non-empty. + , v1beta2PolicyRulesWithSubjectsSubjects :: !([V1beta2Subject]) -- ^ /Required/ "subjects" - subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PolicyRulesWithSubjects +instance A.FromJSON V1beta2PolicyRulesWithSubjects where + parseJSON = A.withObject "V1beta2PolicyRulesWithSubjects" $ \o -> + V1beta2PolicyRulesWithSubjects + <$> (o .:? "nonResourceRules") + <*> (o .:? "resourceRules") + <*> (o .: "subjects") + +-- | ToJSON V1beta2PolicyRulesWithSubjects +instance A.ToJSON V1beta2PolicyRulesWithSubjects where + toJSON V1beta2PolicyRulesWithSubjects {..} = + _omitNulls + [ "nonResourceRules" .= v1beta2PolicyRulesWithSubjectsNonResourceRules + , "resourceRules" .= v1beta2PolicyRulesWithSubjectsResourceRules + , "subjects" .= v1beta2PolicyRulesWithSubjectsSubjects + ] + + +-- | Construct a value of type 'V1beta2PolicyRulesWithSubjects' (by applying it's required fields, if any) +mkV1beta2PolicyRulesWithSubjects + :: [V1beta2Subject] -- ^ 'v1beta2PolicyRulesWithSubjectsSubjects': subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. + -> V1beta2PolicyRulesWithSubjects +mkV1beta2PolicyRulesWithSubjects v1beta2PolicyRulesWithSubjectsSubjects = + V1beta2PolicyRulesWithSubjects + { v1beta2PolicyRulesWithSubjectsNonResourceRules = Nothing + , v1beta2PolicyRulesWithSubjectsResourceRules = Nothing + , v1beta2PolicyRulesWithSubjectsSubjects + } + +-- ** V1beta2PriorityLevelConfiguration +-- | V1beta2PriorityLevelConfiguration +-- PriorityLevelConfiguration represents the configuration of a priority level. +data V1beta2PriorityLevelConfiguration = V1beta2PriorityLevelConfiguration + { v1beta2PriorityLevelConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta2PriorityLevelConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta2PriorityLevelConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1beta2PriorityLevelConfigurationSpec :: !(Maybe V1beta2PriorityLevelConfigurationSpec) -- ^ "spec" + , v1beta2PriorityLevelConfigurationStatus :: !(Maybe V1beta2PriorityLevelConfigurationStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfiguration +instance A.FromJSON V1beta2PriorityLevelConfiguration where + parseJSON = A.withObject "V1beta2PriorityLevelConfiguration" $ \o -> + V1beta2PriorityLevelConfiguration + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1beta2PriorityLevelConfiguration +instance A.ToJSON V1beta2PriorityLevelConfiguration where + toJSON V1beta2PriorityLevelConfiguration {..} = + _omitNulls + [ "apiVersion" .= v1beta2PriorityLevelConfigurationApiVersion + , "kind" .= v1beta2PriorityLevelConfigurationKind + , "metadata" .= v1beta2PriorityLevelConfigurationMetadata + , "spec" .= v1beta2PriorityLevelConfigurationSpec + , "status" .= v1beta2PriorityLevelConfigurationStatus + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfiguration' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfiguration + :: V1beta2PriorityLevelConfiguration +mkV1beta2PriorityLevelConfiguration = + V1beta2PriorityLevelConfiguration + { v1beta2PriorityLevelConfigurationApiVersion = Nothing + , v1beta2PriorityLevelConfigurationKind = Nothing + , v1beta2PriorityLevelConfigurationMetadata = Nothing + , v1beta2PriorityLevelConfigurationSpec = Nothing + , v1beta2PriorityLevelConfigurationStatus = Nothing + } + +-- ** V1beta2PriorityLevelConfigurationCondition +-- | V1beta2PriorityLevelConfigurationCondition +-- PriorityLevelConfigurationCondition defines the condition of priority level. +data V1beta2PriorityLevelConfigurationCondition = V1beta2PriorityLevelConfigurationCondition + { v1beta2PriorityLevelConfigurationConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. + , v1beta2PriorityLevelConfigurationConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. + , v1beta2PriorityLevelConfigurationConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. + , v1beta2PriorityLevelConfigurationConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. + , v1beta2PriorityLevelConfigurationConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfigurationCondition +instance A.FromJSON V1beta2PriorityLevelConfigurationCondition where + parseJSON = A.withObject "V1beta2PriorityLevelConfigurationCondition" $ \o -> + V1beta2PriorityLevelConfigurationCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .:? "status") + <*> (o .:? "type") + +-- | ToJSON V1beta2PriorityLevelConfigurationCondition +instance A.ToJSON V1beta2PriorityLevelConfigurationCondition where + toJSON V1beta2PriorityLevelConfigurationCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1beta2PriorityLevelConfigurationConditionLastTransitionTime + , "message" .= v1beta2PriorityLevelConfigurationConditionMessage + , "reason" .= v1beta2PriorityLevelConfigurationConditionReason + , "status" .= v1beta2PriorityLevelConfigurationConditionStatus + , "type" .= v1beta2PriorityLevelConfigurationConditionType + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfigurationCondition' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfigurationCondition + :: V1beta2PriorityLevelConfigurationCondition +mkV1beta2PriorityLevelConfigurationCondition = + V1beta2PriorityLevelConfigurationCondition + { v1beta2PriorityLevelConfigurationConditionLastTransitionTime = Nothing + , v1beta2PriorityLevelConfigurationConditionMessage = Nothing + , v1beta2PriorityLevelConfigurationConditionReason = Nothing + , v1beta2PriorityLevelConfigurationConditionStatus = Nothing + , v1beta2PriorityLevelConfigurationConditionType = Nothing + } + +-- ** V1beta2PriorityLevelConfigurationList +-- | V1beta2PriorityLevelConfigurationList +-- PriorityLevelConfigurationList is a list of PriorityLevelConfiguration objects. +data V1beta2PriorityLevelConfigurationList = V1beta2PriorityLevelConfigurationList + { v1beta2PriorityLevelConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta2PriorityLevelConfigurationListItems :: !([V1beta2PriorityLevelConfiguration]) -- ^ /Required/ "items" - `items` is a list of request-priorities. + , v1beta2PriorityLevelConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta2PriorityLevelConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfigurationList +instance A.FromJSON V1beta2PriorityLevelConfigurationList where + parseJSON = A.withObject "V1beta2PriorityLevelConfigurationList" $ \o -> + V1beta2PriorityLevelConfigurationList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1beta2PriorityLevelConfigurationList +instance A.ToJSON V1beta2PriorityLevelConfigurationList where + toJSON V1beta2PriorityLevelConfigurationList {..} = + _omitNulls + [ "apiVersion" .= v1beta2PriorityLevelConfigurationListApiVersion + , "items" .= v1beta2PriorityLevelConfigurationListItems + , "kind" .= v1beta2PriorityLevelConfigurationListKind + , "metadata" .= v1beta2PriorityLevelConfigurationListMetadata + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfigurationList' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfigurationList + :: [V1beta2PriorityLevelConfiguration] -- ^ 'v1beta2PriorityLevelConfigurationListItems': `items` is a list of request-priorities. + -> V1beta2PriorityLevelConfigurationList +mkV1beta2PriorityLevelConfigurationList v1beta2PriorityLevelConfigurationListItems = + V1beta2PriorityLevelConfigurationList + { v1beta2PriorityLevelConfigurationListApiVersion = Nothing + , v1beta2PriorityLevelConfigurationListItems + , v1beta2PriorityLevelConfigurationListKind = Nothing + , v1beta2PriorityLevelConfigurationListMetadata = Nothing + } + +-- ** V1beta2PriorityLevelConfigurationReference +-- | V1beta2PriorityLevelConfigurationReference +-- PriorityLevelConfigurationReference contains information that points to the \"request-priority\" being used. +data V1beta2PriorityLevelConfigurationReference = V1beta2PriorityLevelConfigurationReference + { v1beta2PriorityLevelConfigurationReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the priority level configuration being referenced Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfigurationReference +instance A.FromJSON V1beta2PriorityLevelConfigurationReference where + parseJSON = A.withObject "V1beta2PriorityLevelConfigurationReference" $ \o -> + V1beta2PriorityLevelConfigurationReference + <$> (o .: "name") + +-- | ToJSON V1beta2PriorityLevelConfigurationReference +instance A.ToJSON V1beta2PriorityLevelConfigurationReference where + toJSON V1beta2PriorityLevelConfigurationReference {..} = + _omitNulls + [ "name" .= v1beta2PriorityLevelConfigurationReferenceName + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfigurationReference' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfigurationReference + :: Text -- ^ 'v1beta2PriorityLevelConfigurationReferenceName': `name` is the name of the priority level configuration being referenced Required. + -> V1beta2PriorityLevelConfigurationReference +mkV1beta2PriorityLevelConfigurationReference v1beta2PriorityLevelConfigurationReferenceName = + V1beta2PriorityLevelConfigurationReference + { v1beta2PriorityLevelConfigurationReferenceName + } + +-- ** V1beta2PriorityLevelConfigurationSpec +-- | V1beta2PriorityLevelConfigurationSpec +-- PriorityLevelConfigurationSpec specifies the configuration of a priority level. +data V1beta2PriorityLevelConfigurationSpec = V1beta2PriorityLevelConfigurationSpec + { v1beta2PriorityLevelConfigurationSpecLimited :: !(Maybe V1beta2LimitedPriorityLevelConfiguration) -- ^ "limited" + , v1beta2PriorityLevelConfigurationSpecType :: !(Text) -- ^ /Required/ "type" - `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfigurationSpec +instance A.FromJSON V1beta2PriorityLevelConfigurationSpec where + parseJSON = A.withObject "V1beta2PriorityLevelConfigurationSpec" $ \o -> + V1beta2PriorityLevelConfigurationSpec + <$> (o .:? "limited") + <*> (o .: "type") + +-- | ToJSON V1beta2PriorityLevelConfigurationSpec +instance A.ToJSON V1beta2PriorityLevelConfigurationSpec where + toJSON V1beta2PriorityLevelConfigurationSpec {..} = + _omitNulls + [ "limited" .= v1beta2PriorityLevelConfigurationSpecLimited + , "type" .= v1beta2PriorityLevelConfigurationSpecType + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfigurationSpec' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfigurationSpec + :: Text -- ^ 'v1beta2PriorityLevelConfigurationSpecType': `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. + -> V1beta2PriorityLevelConfigurationSpec +mkV1beta2PriorityLevelConfigurationSpec v1beta2PriorityLevelConfigurationSpecType = + V1beta2PriorityLevelConfigurationSpec + { v1beta2PriorityLevelConfigurationSpecLimited = Nothing + , v1beta2PriorityLevelConfigurationSpecType + } + +-- ** V1beta2PriorityLevelConfigurationStatus +-- | V1beta2PriorityLevelConfigurationStatus +-- PriorityLevelConfigurationStatus represents the current state of a \"request-priority\". +data V1beta2PriorityLevelConfigurationStatus = V1beta2PriorityLevelConfigurationStatus + { v1beta2PriorityLevelConfigurationStatusConditions :: !(Maybe [V1beta2PriorityLevelConfigurationCondition]) -- ^ "conditions" - `conditions` is the current state of \"request-priority\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2PriorityLevelConfigurationStatus +instance A.FromJSON V1beta2PriorityLevelConfigurationStatus where + parseJSON = A.withObject "V1beta2PriorityLevelConfigurationStatus" $ \o -> + V1beta2PriorityLevelConfigurationStatus + <$> (o .:? "conditions") + +-- | ToJSON V1beta2PriorityLevelConfigurationStatus +instance A.ToJSON V1beta2PriorityLevelConfigurationStatus where + toJSON V1beta2PriorityLevelConfigurationStatus {..} = + _omitNulls + [ "conditions" .= v1beta2PriorityLevelConfigurationStatusConditions + ] + + +-- | Construct a value of type 'V1beta2PriorityLevelConfigurationStatus' (by applying it's required fields, if any) +mkV1beta2PriorityLevelConfigurationStatus + :: V1beta2PriorityLevelConfigurationStatus +mkV1beta2PriorityLevelConfigurationStatus = + V1beta2PriorityLevelConfigurationStatus + { v1beta2PriorityLevelConfigurationStatusConditions = Nothing + } + +-- ** V1beta2QueuingConfiguration +-- | V1beta2QueuingConfiguration +-- QueuingConfiguration holds the configuration parameters for queuing +data V1beta2QueuingConfiguration = V1beta2QueuingConfiguration + { v1beta2QueuingConfigurationHandSize :: !(Maybe Int) -- ^ "handSize" - `handSize` is a small positive number that configures the shuffle sharding of requests into queues. When enqueuing a request at this priority level the request's flow identifier (a string pair) is hashed and the hash value is used to shuffle the list of queues and deal a hand of the size specified here. The request is put into one of the shortest queues in that hand. `handSize` must be no larger than `queues`, and should be significantly smaller (so that a few heavy flows do not saturate most of the queues). See the user-facing documentation for more extensive guidance on setting this field. This field has a default value of 8. + , v1beta2QueuingConfigurationQueueLengthLimit :: !(Maybe Int) -- ^ "queueLengthLimit" - `queueLengthLimit` is the maximum number of requests allowed to be waiting in a given queue of this priority level at a time; excess requests are rejected. This value must be positive. If not specified, it will be defaulted to 50. + , v1beta2QueuingConfigurationQueues :: !(Maybe Int) -- ^ "queues" - `queues` is the number of queues for this priority level. The queues exist independently at each apiserver. The value must be positive. Setting it to 1 effectively precludes shufflesharding and thus makes the distinguisher method of associated flow schemas irrelevant. This field has a default value of 64. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2QueuingConfiguration +instance A.FromJSON V1beta2QueuingConfiguration where + parseJSON = A.withObject "V1beta2QueuingConfiguration" $ \o -> + V1beta2QueuingConfiguration + <$> (o .:? "handSize") + <*> (o .:? "queueLengthLimit") + <*> (o .:? "queues") + +-- | ToJSON V1beta2QueuingConfiguration +instance A.ToJSON V1beta2QueuingConfiguration where + toJSON V1beta2QueuingConfiguration {..} = + _omitNulls + [ "handSize" .= v1beta2QueuingConfigurationHandSize + , "queueLengthLimit" .= v1beta2QueuingConfigurationQueueLengthLimit + , "queues" .= v1beta2QueuingConfigurationQueues + ] + + +-- | Construct a value of type 'V1beta2QueuingConfiguration' (by applying it's required fields, if any) +mkV1beta2QueuingConfiguration + :: V1beta2QueuingConfiguration +mkV1beta2QueuingConfiguration = + V1beta2QueuingConfiguration + { v1beta2QueuingConfigurationHandSize = Nothing + , v1beta2QueuingConfigurationQueueLengthLimit = Nothing + , v1beta2QueuingConfigurationQueues = Nothing + } + +-- ** V1beta2ResourcePolicyRule +-- | V1beta2ResourcePolicyRule +-- ResourcePolicyRule is a predicate that matches some resource requests, testing the request's verb and the target resource. A ResourcePolicyRule matches a resource request if and only if: (a) at least one member of verbs matches the request, (b) at least one member of apiGroups matches the request, (c) at least one member of resources matches the request, and (d) either (d1) the request does not specify a namespace (i.e., `Namespace==\"\"`) and clusterScope is true or (d2) the request specifies a namespace and least one member of namespaces matches the request's namespace. +data V1beta2ResourcePolicyRule = V1beta2ResourcePolicyRule + { v1beta2ResourcePolicyRuleApiGroups :: !([Text]) -- ^ /Required/ "apiGroups" - `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. + , v1beta2ResourcePolicyRuleClusterScope :: !(Maybe Bool) -- ^ "clusterScope" - `clusterScope` indicates whether to match requests that do not specify a namespace (which happens either because the resource is not namespaced or the request targets all namespaces). If this field is omitted or false then the `namespaces` field must contain a non-empty list. + , v1beta2ResourcePolicyRuleNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - `namespaces` is a list of target namespaces that restricts matches. A request that specifies a target namespace matches only if either (a) this list contains that target namespace or (b) this list contains \"*\". Note that \"*\" matches any specified namespace but does not match a request that _does not specify_ a namespace (see the `clusterScope` field for that). This list may be empty, but only if `clusterScope` is true. + , v1beta2ResourcePolicyRuleResources :: !([Text]) -- ^ /Required/ "resources" - `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. + , v1beta2ResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2ResourcePolicyRule +instance A.FromJSON V1beta2ResourcePolicyRule where + parseJSON = A.withObject "V1beta2ResourcePolicyRule" $ \o -> + V1beta2ResourcePolicyRule + <$> (o .: "apiGroups") + <*> (o .:? "clusterScope") + <*> (o .:? "namespaces") + <*> (o .: "resources") + <*> (o .: "verbs") + +-- | ToJSON V1beta2ResourcePolicyRule +instance A.ToJSON V1beta2ResourcePolicyRule where + toJSON V1beta2ResourcePolicyRule {..} = + _omitNulls + [ "apiGroups" .= v1beta2ResourcePolicyRuleApiGroups + , "clusterScope" .= v1beta2ResourcePolicyRuleClusterScope + , "namespaces" .= v1beta2ResourcePolicyRuleNamespaces + , "resources" .= v1beta2ResourcePolicyRuleResources + , "verbs" .= v1beta2ResourcePolicyRuleVerbs + ] + + +-- | Construct a value of type 'V1beta2ResourcePolicyRule' (by applying it's required fields, if any) +mkV1beta2ResourcePolicyRule + :: [Text] -- ^ 'v1beta2ResourcePolicyRuleApiGroups': `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. + -> [Text] -- ^ 'v1beta2ResourcePolicyRuleResources': `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. + -> [Text] -- ^ 'v1beta2ResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. + -> V1beta2ResourcePolicyRule +mkV1beta2ResourcePolicyRule v1beta2ResourcePolicyRuleApiGroups v1beta2ResourcePolicyRuleResources v1beta2ResourcePolicyRuleVerbs = + V1beta2ResourcePolicyRule + { v1beta2ResourcePolicyRuleApiGroups + , v1beta2ResourcePolicyRuleClusterScope = Nothing + , v1beta2ResourcePolicyRuleNamespaces = Nothing + , v1beta2ResourcePolicyRuleResources + , v1beta2ResourcePolicyRuleVerbs + } + +-- ** V1beta2ServiceAccountSubject +-- | V1beta2ServiceAccountSubject +-- ServiceAccountSubject holds detailed information for service-account-kind subject. +data V1beta2ServiceAccountSubject = V1beta2ServiceAccountSubject + { v1beta2ServiceAccountSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. + , v1beta2ServiceAccountSubjectNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of matching ServiceAccount objects. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2ServiceAccountSubject +instance A.FromJSON V1beta2ServiceAccountSubject where + parseJSON = A.withObject "V1beta2ServiceAccountSubject" $ \o -> + V1beta2ServiceAccountSubject + <$> (o .: "name") + <*> (o .: "namespace") + +-- | ToJSON V1beta2ServiceAccountSubject +instance A.ToJSON V1beta2ServiceAccountSubject where + toJSON V1beta2ServiceAccountSubject {..} = + _omitNulls + [ "name" .= v1beta2ServiceAccountSubjectName + , "namespace" .= v1beta2ServiceAccountSubjectNamespace + ] + + +-- | Construct a value of type 'V1beta2ServiceAccountSubject' (by applying it's required fields, if any) +mkV1beta2ServiceAccountSubject + :: Text -- ^ 'v1beta2ServiceAccountSubjectName': `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. + -> Text -- ^ 'v1beta2ServiceAccountSubjectNamespace': `namespace` is the namespace of matching ServiceAccount objects. Required. + -> V1beta2ServiceAccountSubject +mkV1beta2ServiceAccountSubject v1beta2ServiceAccountSubjectName v1beta2ServiceAccountSubjectNamespace = + V1beta2ServiceAccountSubject + { v1beta2ServiceAccountSubjectName + , v1beta2ServiceAccountSubjectNamespace + } + +-- ** V1beta2Subject +-- | V1beta2Subject +-- Subject matches the originator of a request, as identified by the request authentication system. There are three ways of matching an originator; by user, group, or service account. +data V1beta2Subject = V1beta2Subject + { v1beta2SubjectGroup :: !(Maybe V1beta2GroupSubject) -- ^ "group" + , v1beta2SubjectKind :: !(Text) -- ^ /Required/ "kind" - `kind` indicates which one of the other fields is non-empty. Required + , v1beta2SubjectServiceAccount :: !(Maybe V1beta2ServiceAccountSubject) -- ^ "serviceAccount" + , v1beta2SubjectUser :: !(Maybe V1beta2UserSubject) -- ^ "user" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2Subject +instance A.FromJSON V1beta2Subject where + parseJSON = A.withObject "V1beta2Subject" $ \o -> + V1beta2Subject + <$> (o .:? "group") + <*> (o .: "kind") + <*> (o .:? "serviceAccount") + <*> (o .:? "user") + +-- | ToJSON V1beta2Subject +instance A.ToJSON V1beta2Subject where + toJSON V1beta2Subject {..} = + _omitNulls + [ "group" .= v1beta2SubjectGroup + , "kind" .= v1beta2SubjectKind + , "serviceAccount" .= v1beta2SubjectServiceAccount + , "user" .= v1beta2SubjectUser + ] + + +-- | Construct a value of type 'V1beta2Subject' (by applying it's required fields, if any) +mkV1beta2Subject + :: Text -- ^ 'v1beta2SubjectKind': `kind` indicates which one of the other fields is non-empty. Required + -> V1beta2Subject +mkV1beta2Subject v1beta2SubjectKind = + V1beta2Subject + { v1beta2SubjectGroup = Nothing + , v1beta2SubjectKind + , v1beta2SubjectServiceAccount = Nothing + , v1beta2SubjectUser = Nothing + } + +-- ** V1beta2UserSubject +-- | V1beta2UserSubject +-- UserSubject holds detailed information for user-kind subject. +data V1beta2UserSubject = V1beta2UserSubject + { v1beta2UserSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the username that matches, or \"*\" to match all usernames. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta2UserSubject +instance A.FromJSON V1beta2UserSubject where + parseJSON = A.withObject "V1beta2UserSubject" $ \o -> + V1beta2UserSubject + <$> (o .: "name") + +-- | ToJSON V1beta2UserSubject +instance A.ToJSON V1beta2UserSubject where + toJSON V1beta2UserSubject {..} = + _omitNulls + [ "name" .= v1beta2UserSubjectName + ] + + +-- | Construct a value of type 'V1beta2UserSubject' (by applying it's required fields, if any) +mkV1beta2UserSubject + :: Text -- ^ 'v1beta2UserSubjectName': `name` is the username that matches, or \"*\" to match all usernames. Required. + -> V1beta2UserSubject +mkV1beta2UserSubject v1beta2UserSubjectName = + V1beta2UserSubject + { v1beta2UserSubjectName + } + +-- ** V1beta3FlowDistinguisherMethod +-- | V1beta3FlowDistinguisherMethod +-- FlowDistinguisherMethod specifies the method of a flow distinguisher. +data V1beta3FlowDistinguisherMethod = V1beta3FlowDistinguisherMethod + { v1beta3FlowDistinguisherMethodType :: !(Text) -- ^ /Required/ "type" - `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowDistinguisherMethod +instance A.FromJSON V1beta3FlowDistinguisherMethod where + parseJSON = A.withObject "V1beta3FlowDistinguisherMethod" $ \o -> + V1beta3FlowDistinguisherMethod + <$> (o .: "type") + +-- | ToJSON V1beta3FlowDistinguisherMethod +instance A.ToJSON V1beta3FlowDistinguisherMethod where + toJSON V1beta3FlowDistinguisherMethod {..} = + _omitNulls + [ "type" .= v1beta3FlowDistinguisherMethodType + ] + + +-- | Construct a value of type 'V1beta3FlowDistinguisherMethod' (by applying it's required fields, if any) +mkV1beta3FlowDistinguisherMethod + :: Text -- ^ 'v1beta3FlowDistinguisherMethodType': `type` is the type of flow distinguisher method The supported types are \"ByUser\" and \"ByNamespace\". Required. + -> V1beta3FlowDistinguisherMethod +mkV1beta3FlowDistinguisherMethod v1beta3FlowDistinguisherMethodType = + V1beta3FlowDistinguisherMethod + { v1beta3FlowDistinguisherMethodType + } + +-- ** V1beta3FlowSchema +-- | V1beta3FlowSchema +-- FlowSchema defines the schema of a group of flows. Note that a flow is made up of a set of inbound API requests with similar attributes and is identified by a pair of strings: the name of the FlowSchema and a \"flow distinguisher\". +data V1beta3FlowSchema = V1beta3FlowSchema + { v1beta3FlowSchemaApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta3FlowSchemaKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta3FlowSchemaMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1beta3FlowSchemaSpec :: !(Maybe V1beta3FlowSchemaSpec) -- ^ "spec" + , v1beta3FlowSchemaStatus :: !(Maybe V1beta3FlowSchemaStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowSchema +instance A.FromJSON V1beta3FlowSchema where + parseJSON = A.withObject "V1beta3FlowSchema" $ \o -> + V1beta3FlowSchema + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1beta3FlowSchema +instance A.ToJSON V1beta3FlowSchema where + toJSON V1beta3FlowSchema {..} = + _omitNulls + [ "apiVersion" .= v1beta3FlowSchemaApiVersion + , "kind" .= v1beta3FlowSchemaKind + , "metadata" .= v1beta3FlowSchemaMetadata + , "spec" .= v1beta3FlowSchemaSpec + , "status" .= v1beta3FlowSchemaStatus + ] + + +-- | Construct a value of type 'V1beta3FlowSchema' (by applying it's required fields, if any) +mkV1beta3FlowSchema + :: V1beta3FlowSchema +mkV1beta3FlowSchema = + V1beta3FlowSchema + { v1beta3FlowSchemaApiVersion = Nothing + , v1beta3FlowSchemaKind = Nothing + , v1beta3FlowSchemaMetadata = Nothing + , v1beta3FlowSchemaSpec = Nothing + , v1beta3FlowSchemaStatus = Nothing + } + +-- ** V1beta3FlowSchemaCondition +-- | V1beta3FlowSchemaCondition +-- FlowSchemaCondition describes conditions for a FlowSchema. +data V1beta3FlowSchemaCondition = V1beta3FlowSchemaCondition + { v1beta3FlowSchemaConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. + , v1beta3FlowSchemaConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. + , v1beta3FlowSchemaConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. + , v1beta3FlowSchemaConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. + , v1beta3FlowSchemaConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowSchemaCondition +instance A.FromJSON V1beta3FlowSchemaCondition where + parseJSON = A.withObject "V1beta3FlowSchemaCondition" $ \o -> + V1beta3FlowSchemaCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .:? "status") + <*> (o .:? "type") + +-- | ToJSON V1beta3FlowSchemaCondition +instance A.ToJSON V1beta3FlowSchemaCondition where + toJSON V1beta3FlowSchemaCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1beta3FlowSchemaConditionLastTransitionTime + , "message" .= v1beta3FlowSchemaConditionMessage + , "reason" .= v1beta3FlowSchemaConditionReason + , "status" .= v1beta3FlowSchemaConditionStatus + , "type" .= v1beta3FlowSchemaConditionType + ] + + +-- | Construct a value of type 'V1beta3FlowSchemaCondition' (by applying it's required fields, if any) +mkV1beta3FlowSchemaCondition + :: V1beta3FlowSchemaCondition +mkV1beta3FlowSchemaCondition = + V1beta3FlowSchemaCondition + { v1beta3FlowSchemaConditionLastTransitionTime = Nothing + , v1beta3FlowSchemaConditionMessage = Nothing + , v1beta3FlowSchemaConditionReason = Nothing + , v1beta3FlowSchemaConditionStatus = Nothing + , v1beta3FlowSchemaConditionType = Nothing + } + +-- ** V1beta3FlowSchemaList +-- | V1beta3FlowSchemaList +-- FlowSchemaList is a list of FlowSchema objects. +data V1beta3FlowSchemaList = V1beta3FlowSchemaList + { v1beta3FlowSchemaListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta3FlowSchemaListItems :: !([V1beta3FlowSchema]) -- ^ /Required/ "items" - `items` is a list of FlowSchemas. + , v1beta3FlowSchemaListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta3FlowSchemaListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowSchemaList +instance A.FromJSON V1beta3FlowSchemaList where + parseJSON = A.withObject "V1beta3FlowSchemaList" $ \o -> + V1beta3FlowSchemaList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1beta3FlowSchemaList +instance A.ToJSON V1beta3FlowSchemaList where + toJSON V1beta3FlowSchemaList {..} = + _omitNulls + [ "apiVersion" .= v1beta3FlowSchemaListApiVersion + , "items" .= v1beta3FlowSchemaListItems + , "kind" .= v1beta3FlowSchemaListKind + , "metadata" .= v1beta3FlowSchemaListMetadata + ] + + +-- | Construct a value of type 'V1beta3FlowSchemaList' (by applying it's required fields, if any) +mkV1beta3FlowSchemaList + :: [V1beta3FlowSchema] -- ^ 'v1beta3FlowSchemaListItems': `items` is a list of FlowSchemas. + -> V1beta3FlowSchemaList +mkV1beta3FlowSchemaList v1beta3FlowSchemaListItems = + V1beta3FlowSchemaList + { v1beta3FlowSchemaListApiVersion = Nothing + , v1beta3FlowSchemaListItems + , v1beta3FlowSchemaListKind = Nothing + , v1beta3FlowSchemaListMetadata = Nothing + } + +-- ** V1beta3FlowSchemaSpec +-- | V1beta3FlowSchemaSpec +-- FlowSchemaSpec describes how the FlowSchema's specification looks like. +data V1beta3FlowSchemaSpec = V1beta3FlowSchemaSpec + { v1beta3FlowSchemaSpecDistinguisherMethod :: !(Maybe V1beta3FlowDistinguisherMethod) -- ^ "distinguisherMethod" + , v1beta3FlowSchemaSpecMatchingPrecedence :: !(Maybe Int) -- ^ "matchingPrecedence" - `matchingPrecedence` is used to choose among the FlowSchemas that match a given request. The chosen FlowSchema is among those with the numerically lowest (which we take to be logically highest) MatchingPrecedence. Each MatchingPrecedence value must be ranged in [1,10000]. Note that if the precedence is not specified, it will be set to 1000 as default. + , v1beta3FlowSchemaSpecPriorityLevelConfiguration :: !(V1beta3PriorityLevelConfigurationReference) -- ^ /Required/ "priorityLevelConfiguration" + , v1beta3FlowSchemaSpecRules :: !(Maybe [V1beta3PolicyRulesWithSubjects]) -- ^ "rules" - `rules` describes which requests will match this flow schema. This FlowSchema matches a request if and only if at least one member of rules matches the request. if it is an empty slice, there will be no requests matching the FlowSchema. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowSchemaSpec +instance A.FromJSON V1beta3FlowSchemaSpec where + parseJSON = A.withObject "V1beta3FlowSchemaSpec" $ \o -> + V1beta3FlowSchemaSpec + <$> (o .:? "distinguisherMethod") + <*> (o .:? "matchingPrecedence") + <*> (o .: "priorityLevelConfiguration") + <*> (o .:? "rules") + +-- | ToJSON V1beta3FlowSchemaSpec +instance A.ToJSON V1beta3FlowSchemaSpec where + toJSON V1beta3FlowSchemaSpec {..} = + _omitNulls + [ "distinguisherMethod" .= v1beta3FlowSchemaSpecDistinguisherMethod + , "matchingPrecedence" .= v1beta3FlowSchemaSpecMatchingPrecedence + , "priorityLevelConfiguration" .= v1beta3FlowSchemaSpecPriorityLevelConfiguration + , "rules" .= v1beta3FlowSchemaSpecRules + ] + + +-- | Construct a value of type 'V1beta3FlowSchemaSpec' (by applying it's required fields, if any) +mkV1beta3FlowSchemaSpec + :: V1beta3PriorityLevelConfigurationReference -- ^ 'v1beta3FlowSchemaSpecPriorityLevelConfiguration' + -> V1beta3FlowSchemaSpec +mkV1beta3FlowSchemaSpec v1beta3FlowSchemaSpecPriorityLevelConfiguration = + V1beta3FlowSchemaSpec + { v1beta3FlowSchemaSpecDistinguisherMethod = Nothing + , v1beta3FlowSchemaSpecMatchingPrecedence = Nothing + , v1beta3FlowSchemaSpecPriorityLevelConfiguration + , v1beta3FlowSchemaSpecRules = Nothing + } + +-- ** V1beta3FlowSchemaStatus +-- | V1beta3FlowSchemaStatus +-- FlowSchemaStatus represents the current state of a FlowSchema. +data V1beta3FlowSchemaStatus = V1beta3FlowSchemaStatus + { v1beta3FlowSchemaStatusConditions :: !(Maybe [V1beta3FlowSchemaCondition]) -- ^ "conditions" - `conditions` is a list of the current states of FlowSchema. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3FlowSchemaStatus +instance A.FromJSON V1beta3FlowSchemaStatus where + parseJSON = A.withObject "V1beta3FlowSchemaStatus" $ \o -> + V1beta3FlowSchemaStatus + <$> (o .:? "conditions") + +-- | ToJSON V1beta3FlowSchemaStatus +instance A.ToJSON V1beta3FlowSchemaStatus where + toJSON V1beta3FlowSchemaStatus {..} = + _omitNulls + [ "conditions" .= v1beta3FlowSchemaStatusConditions + ] + + +-- | Construct a value of type 'V1beta3FlowSchemaStatus' (by applying it's required fields, if any) +mkV1beta3FlowSchemaStatus + :: V1beta3FlowSchemaStatus +mkV1beta3FlowSchemaStatus = + V1beta3FlowSchemaStatus + { v1beta3FlowSchemaStatusConditions = Nothing + } + +-- ** V1beta3GroupSubject +-- | V1beta3GroupSubject +-- GroupSubject holds detailed information for group-kind subject. +data V1beta3GroupSubject = V1beta3GroupSubject + { v1beta3GroupSubjectName :: !(Text) -- ^ /Required/ "name" - name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3GroupSubject +instance A.FromJSON V1beta3GroupSubject where + parseJSON = A.withObject "V1beta3GroupSubject" $ \o -> + V1beta3GroupSubject + <$> (o .: "name") + +-- | ToJSON V1beta3GroupSubject +instance A.ToJSON V1beta3GroupSubject where + toJSON V1beta3GroupSubject {..} = + _omitNulls + [ "name" .= v1beta3GroupSubjectName + ] + + +-- | Construct a value of type 'V1beta3GroupSubject' (by applying it's required fields, if any) +mkV1beta3GroupSubject + :: Text -- ^ 'v1beta3GroupSubjectName': name is the user group that matches, or \"*\" to match all user groups. See https://github.com/kubernetes/apiserver/blob/master/pkg/authentication/user/user.go for some well-known group names. Required. + -> V1beta3GroupSubject +mkV1beta3GroupSubject v1beta3GroupSubjectName = + V1beta3GroupSubject + { v1beta3GroupSubjectName + } + +-- ** V1beta3LimitResponse +-- | V1beta3LimitResponse +-- LimitResponse defines how to handle requests that can not be executed right now. +data V1beta3LimitResponse = V1beta3LimitResponse + { v1beta3LimitResponseQueuing :: !(Maybe V1beta3QueuingConfiguration) -- ^ "queuing" + , v1beta3LimitResponseType :: !(Text) -- ^ /Required/ "type" - `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3LimitResponse +instance A.FromJSON V1beta3LimitResponse where + parseJSON = A.withObject "V1beta3LimitResponse" $ \o -> + V1beta3LimitResponse + <$> (o .:? "queuing") + <*> (o .: "type") + +-- | ToJSON V1beta3LimitResponse +instance A.ToJSON V1beta3LimitResponse where + toJSON V1beta3LimitResponse {..} = + _omitNulls + [ "queuing" .= v1beta3LimitResponseQueuing + , "type" .= v1beta3LimitResponseType + ] + + +-- | Construct a value of type 'V1beta3LimitResponse' (by applying it's required fields, if any) +mkV1beta3LimitResponse + :: Text -- ^ 'v1beta3LimitResponseType': `type` is \"Queue\" or \"Reject\". \"Queue\" means that requests that can not be executed upon arrival are held in a queue until they can be executed or a queuing limit is reached. \"Reject\" means that requests that can not be executed upon arrival are rejected. Required. + -> V1beta3LimitResponse +mkV1beta3LimitResponse v1beta3LimitResponseType = + V1beta3LimitResponse + { v1beta3LimitResponseQueuing = Nothing + , v1beta3LimitResponseType + } + +-- ** V1beta3LimitedPriorityLevelConfiguration +-- | V1beta3LimitedPriorityLevelConfiguration +-- LimitedPriorityLevelConfiguration specifies how to handle requests that are subject to limits. It addresses two issues: - How are requests for this priority level limited? - What should be done with requests that exceed the limit? +data V1beta3LimitedPriorityLevelConfiguration = V1beta3LimitedPriorityLevelConfiguration + { v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent :: !(Maybe Int) -- ^ "borrowingLimitPercent" - `borrowingLimitPercent`, if present, configures a limit on how many seats this priority level can borrow from other priority levels. The limit is known as this level's BorrowingConcurrencyLimit (BorrowingCL) and is a limit on the total number of seats that this level may borrow at any one time. This field holds the ratio of that limit to the level's nominal concurrency limit. When this field is non-nil, it must hold a non-negative integer and the limit is calculated as follows. BorrowingCL(i) = round( NominalCL(i) * borrowingLimitPercent(i)/100.0 ) The value of this field can be more than 100, implying that this priority level can borrow a number of seats that is greater than its own nominal concurrency limit (NominalCL). When this field is left `nil`, the limit is effectively infinite. + , v1beta3LimitedPriorityLevelConfigurationLendablePercent :: !(Maybe Int) -- ^ "lendablePercent" - `lendablePercent` prescribes the fraction of the level's NominalCL that can be borrowed by other priority levels. The value of this field must be between 0 and 100, inclusive, and it defaults to 0. The number of seats that other levels can borrow from this level, known as this level's LendableConcurrencyLimit (LendableCL), is defined as follows. LendableCL(i) = round( NominalCL(i) * lendablePercent(i)/100.0 ) + , v1beta3LimitedPriorityLevelConfigurationLimitResponse :: !(Maybe V1beta3LimitResponse) -- ^ "limitResponse" + , v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares :: !(Maybe Int) -- ^ "nominalConcurrencyShares" - `nominalConcurrencyShares` (NCS) contributes to the computation of the NominalConcurrencyLimit (NominalCL) of this level. This is the number of execution seats available at this priority level. This is used both for requests dispatched from this priority level as well as requests dispatched from other priority levels borrowing seats from this level. The server's concurrency limit (ServerCL) is divided among the Limited priority levels in proportion to their NCS values: NominalCL(i) = ceil( ServerCL * NCS(i) / sum_ncs ) sum_ncs = sum[limited priority level k] NCS(k) Bigger numbers mean a larger nominal concurrency limit, at the expense of every other Limited priority level. This field has a default value of 30. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3LimitedPriorityLevelConfiguration +instance A.FromJSON V1beta3LimitedPriorityLevelConfiguration where + parseJSON = A.withObject "V1beta3LimitedPriorityLevelConfiguration" $ \o -> + V1beta3LimitedPriorityLevelConfiguration + <$> (o .:? "borrowingLimitPercent") + <*> (o .:? "lendablePercent") + <*> (o .:? "limitResponse") + <*> (o .:? "nominalConcurrencyShares") + +-- | ToJSON V1beta3LimitedPriorityLevelConfiguration +instance A.ToJSON V1beta3LimitedPriorityLevelConfiguration where + toJSON V1beta3LimitedPriorityLevelConfiguration {..} = + _omitNulls + [ "borrowingLimitPercent" .= v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent + , "lendablePercent" .= v1beta3LimitedPriorityLevelConfigurationLendablePercent + , "limitResponse" .= v1beta3LimitedPriorityLevelConfigurationLimitResponse + , "nominalConcurrencyShares" .= v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares + ] + + +-- | Construct a value of type 'V1beta3LimitedPriorityLevelConfiguration' (by applying it's required fields, if any) +mkV1beta3LimitedPriorityLevelConfiguration + :: V1beta3LimitedPriorityLevelConfiguration +mkV1beta3LimitedPriorityLevelConfiguration = + V1beta3LimitedPriorityLevelConfiguration + { v1beta3LimitedPriorityLevelConfigurationBorrowingLimitPercent = Nothing + , v1beta3LimitedPriorityLevelConfigurationLendablePercent = Nothing + , v1beta3LimitedPriorityLevelConfigurationLimitResponse = Nothing + , v1beta3LimitedPriorityLevelConfigurationNominalConcurrencyShares = Nothing + } + +-- ** V1beta3NonResourcePolicyRule +-- | V1beta3NonResourcePolicyRule +-- NonResourcePolicyRule is a predicate that matches non-resource requests according to their verb and the target non-resource URL. A NonResourcePolicyRule matches a request if and only if both (a) at least one member of verbs matches the request and (b) at least one member of nonResourceURLs matches the request. +data V1beta3NonResourcePolicyRule = V1beta3NonResourcePolicyRule + { v1beta3NonResourcePolicyRuleNonResourceUrls :: !([Text]) -- ^ /Required/ "nonResourceURLs" - `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. + , v1beta3NonResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3NonResourcePolicyRule +instance A.FromJSON V1beta3NonResourcePolicyRule where + parseJSON = A.withObject "V1beta3NonResourcePolicyRule" $ \o -> + V1beta3NonResourcePolicyRule + <$> (o .: "nonResourceURLs") + <*> (o .: "verbs") + +-- | ToJSON V1beta3NonResourcePolicyRule +instance A.ToJSON V1beta3NonResourcePolicyRule where + toJSON V1beta3NonResourcePolicyRule {..} = + _omitNulls + [ "nonResourceURLs" .= v1beta3NonResourcePolicyRuleNonResourceUrls + , "verbs" .= v1beta3NonResourcePolicyRuleVerbs + ] + + +-- | Construct a value of type 'V1beta3NonResourcePolicyRule' (by applying it's required fields, if any) +mkV1beta3NonResourcePolicyRule + :: [Text] -- ^ 'v1beta3NonResourcePolicyRuleNonResourceUrls': `nonResourceURLs` is a set of url prefixes that a user should have access to and may not be empty. For example: - \"/healthz\" is legal - \"/hea*\" is illegal - \"/hea\" is legal but matches nothing - \"/hea/*\" also matches nothing - \"/healthz/*\" matches all per-component health checks. \"*\" matches all non-resource urls. if it is present, it must be the only entry. Required. + -> [Text] -- ^ 'v1beta3NonResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs. If it is present, it must be the only entry. Required. + -> V1beta3NonResourcePolicyRule +mkV1beta3NonResourcePolicyRule v1beta3NonResourcePolicyRuleNonResourceUrls v1beta3NonResourcePolicyRuleVerbs = + V1beta3NonResourcePolicyRule + { v1beta3NonResourcePolicyRuleNonResourceUrls + , v1beta3NonResourcePolicyRuleVerbs + } + +-- ** V1beta3PolicyRulesWithSubjects +-- | V1beta3PolicyRulesWithSubjects +-- PolicyRulesWithSubjects prescribes a test that applies to a request to an apiserver. The test considers the subject making the request, the verb being requested, and the resource to be acted upon. This PolicyRulesWithSubjects matches a request if and only if both (a) at least one member of subjects matches the request and (b) at least one member of resourceRules or nonResourceRules matches the request. +data V1beta3PolicyRulesWithSubjects = V1beta3PolicyRulesWithSubjects + { v1beta3PolicyRulesWithSubjectsNonResourceRules :: !(Maybe [V1beta3NonResourcePolicyRule]) -- ^ "nonResourceRules" - `nonResourceRules` is a list of NonResourcePolicyRules that identify matching requests according to their verb and the target non-resource URL. + , v1beta3PolicyRulesWithSubjectsResourceRules :: !(Maybe [V1beta3ResourcePolicyRule]) -- ^ "resourceRules" - `resourceRules` is a slice of ResourcePolicyRules that identify matching requests according to their verb and the target resource. At least one of `resourceRules` and `nonResourceRules` has to be non-empty. + , v1beta3PolicyRulesWithSubjectsSubjects :: !([V1beta3Subject]) -- ^ /Required/ "subjects" - subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PolicyRulesWithSubjects +instance A.FromJSON V1beta3PolicyRulesWithSubjects where + parseJSON = A.withObject "V1beta3PolicyRulesWithSubjects" $ \o -> + V1beta3PolicyRulesWithSubjects + <$> (o .:? "nonResourceRules") + <*> (o .:? "resourceRules") + <*> (o .: "subjects") + +-- | ToJSON V1beta3PolicyRulesWithSubjects +instance A.ToJSON V1beta3PolicyRulesWithSubjects where + toJSON V1beta3PolicyRulesWithSubjects {..} = + _omitNulls + [ "nonResourceRules" .= v1beta3PolicyRulesWithSubjectsNonResourceRules + , "resourceRules" .= v1beta3PolicyRulesWithSubjectsResourceRules + , "subjects" .= v1beta3PolicyRulesWithSubjectsSubjects + ] + + +-- | Construct a value of type 'V1beta3PolicyRulesWithSubjects' (by applying it's required fields, if any) +mkV1beta3PolicyRulesWithSubjects + :: [V1beta3Subject] -- ^ 'v1beta3PolicyRulesWithSubjectsSubjects': subjects is the list of normal user, serviceaccount, or group that this rule cares about. There must be at least one member in this slice. A slice that includes both the system:authenticated and system:unauthenticated user groups matches every request. Required. + -> V1beta3PolicyRulesWithSubjects +mkV1beta3PolicyRulesWithSubjects v1beta3PolicyRulesWithSubjectsSubjects = + V1beta3PolicyRulesWithSubjects + { v1beta3PolicyRulesWithSubjectsNonResourceRules = Nothing + , v1beta3PolicyRulesWithSubjectsResourceRules = Nothing + , v1beta3PolicyRulesWithSubjectsSubjects + } + +-- ** V1beta3PriorityLevelConfiguration +-- | V1beta3PriorityLevelConfiguration +-- PriorityLevelConfiguration represents the configuration of a priority level. +data V1beta3PriorityLevelConfiguration = V1beta3PriorityLevelConfiguration + { v1beta3PriorityLevelConfigurationApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta3PriorityLevelConfigurationKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta3PriorityLevelConfigurationMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v1beta3PriorityLevelConfigurationSpec :: !(Maybe V1beta3PriorityLevelConfigurationSpec) -- ^ "spec" + , v1beta3PriorityLevelConfigurationStatus :: !(Maybe V1beta3PriorityLevelConfigurationStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfiguration +instance A.FromJSON V1beta3PriorityLevelConfiguration where + parseJSON = A.withObject "V1beta3PriorityLevelConfiguration" $ \o -> + V1beta3PriorityLevelConfiguration + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V1beta3PriorityLevelConfiguration +instance A.ToJSON V1beta3PriorityLevelConfiguration where + toJSON V1beta3PriorityLevelConfiguration {..} = + _omitNulls + [ "apiVersion" .= v1beta3PriorityLevelConfigurationApiVersion + , "kind" .= v1beta3PriorityLevelConfigurationKind + , "metadata" .= v1beta3PriorityLevelConfigurationMetadata + , "spec" .= v1beta3PriorityLevelConfigurationSpec + , "status" .= v1beta3PriorityLevelConfigurationStatus + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfiguration' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfiguration + :: V1beta3PriorityLevelConfiguration +mkV1beta3PriorityLevelConfiguration = + V1beta3PriorityLevelConfiguration + { v1beta3PriorityLevelConfigurationApiVersion = Nothing + , v1beta3PriorityLevelConfigurationKind = Nothing + , v1beta3PriorityLevelConfigurationMetadata = Nothing + , v1beta3PriorityLevelConfigurationSpec = Nothing + , v1beta3PriorityLevelConfigurationStatus = Nothing + } + +-- ** V1beta3PriorityLevelConfigurationCondition +-- | V1beta3PriorityLevelConfigurationCondition +-- PriorityLevelConfigurationCondition defines the condition of priority level. +data V1beta3PriorityLevelConfigurationCondition = V1beta3PriorityLevelConfigurationCondition + { v1beta3PriorityLevelConfigurationConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - `lastTransitionTime` is the last time the condition transitioned from one status to another. + , v1beta3PriorityLevelConfigurationConditionMessage :: !(Maybe Text) -- ^ "message" - `message` is a human-readable message indicating details about last transition. + , v1beta3PriorityLevelConfigurationConditionReason :: !(Maybe Text) -- ^ "reason" - `reason` is a unique, one-word, CamelCase reason for the condition's last transition. + , v1beta3PriorityLevelConfigurationConditionStatus :: !(Maybe Text) -- ^ "status" - `status` is the status of the condition. Can be True, False, Unknown. Required. + , v1beta3PriorityLevelConfigurationConditionType :: !(Maybe Text) -- ^ "type" - `type` is the type of the condition. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfigurationCondition +instance A.FromJSON V1beta3PriorityLevelConfigurationCondition where + parseJSON = A.withObject "V1beta3PriorityLevelConfigurationCondition" $ \o -> + V1beta3PriorityLevelConfigurationCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .:? "status") + <*> (o .:? "type") + +-- | ToJSON V1beta3PriorityLevelConfigurationCondition +instance A.ToJSON V1beta3PriorityLevelConfigurationCondition where + toJSON V1beta3PriorityLevelConfigurationCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v1beta3PriorityLevelConfigurationConditionLastTransitionTime + , "message" .= v1beta3PriorityLevelConfigurationConditionMessage + , "reason" .= v1beta3PriorityLevelConfigurationConditionReason + , "status" .= v1beta3PriorityLevelConfigurationConditionStatus + , "type" .= v1beta3PriorityLevelConfigurationConditionType + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfigurationCondition' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfigurationCondition + :: V1beta3PriorityLevelConfigurationCondition +mkV1beta3PriorityLevelConfigurationCondition = + V1beta3PriorityLevelConfigurationCondition + { v1beta3PriorityLevelConfigurationConditionLastTransitionTime = Nothing + , v1beta3PriorityLevelConfigurationConditionMessage = Nothing + , v1beta3PriorityLevelConfigurationConditionReason = Nothing + , v1beta3PriorityLevelConfigurationConditionStatus = Nothing + , v1beta3PriorityLevelConfigurationConditionType = Nothing + } + +-- ** V1beta3PriorityLevelConfigurationList +-- | V1beta3PriorityLevelConfigurationList +-- PriorityLevelConfigurationList is a list of PriorityLevelConfiguration objects. +data V1beta3PriorityLevelConfigurationList = V1beta3PriorityLevelConfigurationList + { v1beta3PriorityLevelConfigurationListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v1beta3PriorityLevelConfigurationListItems :: !([V1beta3PriorityLevelConfiguration]) -- ^ /Required/ "items" - `items` is a list of request-priorities. + , v1beta3PriorityLevelConfigurationListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v1beta3PriorityLevelConfigurationListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfigurationList +instance A.FromJSON V1beta3PriorityLevelConfigurationList where + parseJSON = A.withObject "V1beta3PriorityLevelConfigurationList" $ \o -> + V1beta3PriorityLevelConfigurationList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V1beta3PriorityLevelConfigurationList +instance A.ToJSON V1beta3PriorityLevelConfigurationList where + toJSON V1beta3PriorityLevelConfigurationList {..} = + _omitNulls + [ "apiVersion" .= v1beta3PriorityLevelConfigurationListApiVersion + , "items" .= v1beta3PriorityLevelConfigurationListItems + , "kind" .= v1beta3PriorityLevelConfigurationListKind + , "metadata" .= v1beta3PriorityLevelConfigurationListMetadata + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfigurationList' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfigurationList + :: [V1beta3PriorityLevelConfiguration] -- ^ 'v1beta3PriorityLevelConfigurationListItems': `items` is a list of request-priorities. + -> V1beta3PriorityLevelConfigurationList +mkV1beta3PriorityLevelConfigurationList v1beta3PriorityLevelConfigurationListItems = + V1beta3PriorityLevelConfigurationList + { v1beta3PriorityLevelConfigurationListApiVersion = Nothing + , v1beta3PriorityLevelConfigurationListItems + , v1beta3PriorityLevelConfigurationListKind = Nothing + , v1beta3PriorityLevelConfigurationListMetadata = Nothing + } + +-- ** V1beta3PriorityLevelConfigurationReference +-- | V1beta3PriorityLevelConfigurationReference +-- PriorityLevelConfigurationReference contains information that points to the \"request-priority\" being used. +data V1beta3PriorityLevelConfigurationReference = V1beta3PriorityLevelConfigurationReference + { v1beta3PriorityLevelConfigurationReferenceName :: !(Text) -- ^ /Required/ "name" - `name` is the name of the priority level configuration being referenced Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfigurationReference +instance A.FromJSON V1beta3PriorityLevelConfigurationReference where + parseJSON = A.withObject "V1beta3PriorityLevelConfigurationReference" $ \o -> + V1beta3PriorityLevelConfigurationReference + <$> (o .: "name") + +-- | ToJSON V1beta3PriorityLevelConfigurationReference +instance A.ToJSON V1beta3PriorityLevelConfigurationReference where + toJSON V1beta3PriorityLevelConfigurationReference {..} = + _omitNulls + [ "name" .= v1beta3PriorityLevelConfigurationReferenceName + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfigurationReference' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfigurationReference + :: Text -- ^ 'v1beta3PriorityLevelConfigurationReferenceName': `name` is the name of the priority level configuration being referenced Required. + -> V1beta3PriorityLevelConfigurationReference +mkV1beta3PriorityLevelConfigurationReference v1beta3PriorityLevelConfigurationReferenceName = + V1beta3PriorityLevelConfigurationReference + { v1beta3PriorityLevelConfigurationReferenceName + } + +-- ** V1beta3PriorityLevelConfigurationSpec +-- | V1beta3PriorityLevelConfigurationSpec +-- PriorityLevelConfigurationSpec specifies the configuration of a priority level. +data V1beta3PriorityLevelConfigurationSpec = V1beta3PriorityLevelConfigurationSpec + { v1beta3PriorityLevelConfigurationSpecLimited :: !(Maybe V1beta3LimitedPriorityLevelConfiguration) -- ^ "limited" + , v1beta3PriorityLevelConfigurationSpecType :: !(Text) -- ^ /Required/ "type" - `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfigurationSpec +instance A.FromJSON V1beta3PriorityLevelConfigurationSpec where + parseJSON = A.withObject "V1beta3PriorityLevelConfigurationSpec" $ \o -> + V1beta3PriorityLevelConfigurationSpec + <$> (o .:? "limited") + <*> (o .: "type") + +-- | ToJSON V1beta3PriorityLevelConfigurationSpec +instance A.ToJSON V1beta3PriorityLevelConfigurationSpec where + toJSON V1beta3PriorityLevelConfigurationSpec {..} = + _omitNulls + [ "limited" .= v1beta3PriorityLevelConfigurationSpecLimited + , "type" .= v1beta3PriorityLevelConfigurationSpecType + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfigurationSpec' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfigurationSpec + :: Text -- ^ 'v1beta3PriorityLevelConfigurationSpecType': `type` indicates whether this priority level is subject to limitation on request execution. A value of `\"Exempt\"` means that requests of this priority level are not subject to a limit (and thus are never queued) and do not detract from the capacity made available to other priority levels. A value of `\"Limited\"` means that (a) requests of this priority level _are_ subject to limits and (b) some of the server's limited capacity is made available exclusively to this priority level. Required. + -> V1beta3PriorityLevelConfigurationSpec +mkV1beta3PriorityLevelConfigurationSpec v1beta3PriorityLevelConfigurationSpecType = + V1beta3PriorityLevelConfigurationSpec + { v1beta3PriorityLevelConfigurationSpecLimited = Nothing + , v1beta3PriorityLevelConfigurationSpecType + } + +-- ** V1beta3PriorityLevelConfigurationStatus +-- | V1beta3PriorityLevelConfigurationStatus +-- PriorityLevelConfigurationStatus represents the current state of a \"request-priority\". +data V1beta3PriorityLevelConfigurationStatus = V1beta3PriorityLevelConfigurationStatus + { v1beta3PriorityLevelConfigurationStatusConditions :: !(Maybe [V1beta3PriorityLevelConfigurationCondition]) -- ^ "conditions" - `conditions` is the current state of \"request-priority\". + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3PriorityLevelConfigurationStatus +instance A.FromJSON V1beta3PriorityLevelConfigurationStatus where + parseJSON = A.withObject "V1beta3PriorityLevelConfigurationStatus" $ \o -> + V1beta3PriorityLevelConfigurationStatus + <$> (o .:? "conditions") + +-- | ToJSON V1beta3PriorityLevelConfigurationStatus +instance A.ToJSON V1beta3PriorityLevelConfigurationStatus where + toJSON V1beta3PriorityLevelConfigurationStatus {..} = + _omitNulls + [ "conditions" .= v1beta3PriorityLevelConfigurationStatusConditions + ] + + +-- | Construct a value of type 'V1beta3PriorityLevelConfigurationStatus' (by applying it's required fields, if any) +mkV1beta3PriorityLevelConfigurationStatus + :: V1beta3PriorityLevelConfigurationStatus +mkV1beta3PriorityLevelConfigurationStatus = + V1beta3PriorityLevelConfigurationStatus + { v1beta3PriorityLevelConfigurationStatusConditions = Nothing + } + +-- ** V1beta3QueuingConfiguration +-- | V1beta3QueuingConfiguration +-- QueuingConfiguration holds the configuration parameters for queuing +data V1beta3QueuingConfiguration = V1beta3QueuingConfiguration + { v1beta3QueuingConfigurationHandSize :: !(Maybe Int) -- ^ "handSize" - `handSize` is a small positive number that configures the shuffle sharding of requests into queues. When enqueuing a request at this priority level the request's flow identifier (a string pair) is hashed and the hash value is used to shuffle the list of queues and deal a hand of the size specified here. The request is put into one of the shortest queues in that hand. `handSize` must be no larger than `queues`, and should be significantly smaller (so that a few heavy flows do not saturate most of the queues). See the user-facing documentation for more extensive guidance on setting this field. This field has a default value of 8. + , v1beta3QueuingConfigurationQueueLengthLimit :: !(Maybe Int) -- ^ "queueLengthLimit" - `queueLengthLimit` is the maximum number of requests allowed to be waiting in a given queue of this priority level at a time; excess requests are rejected. This value must be positive. If not specified, it will be defaulted to 50. + , v1beta3QueuingConfigurationQueues :: !(Maybe Int) -- ^ "queues" - `queues` is the number of queues for this priority level. The queues exist independently at each apiserver. The value must be positive. Setting it to 1 effectively precludes shufflesharding and thus makes the distinguisher method of associated flow schemas irrelevant. This field has a default value of 64. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3QueuingConfiguration +instance A.FromJSON V1beta3QueuingConfiguration where + parseJSON = A.withObject "V1beta3QueuingConfiguration" $ \o -> + V1beta3QueuingConfiguration + <$> (o .:? "handSize") + <*> (o .:? "queueLengthLimit") + <*> (o .:? "queues") + +-- | ToJSON V1beta3QueuingConfiguration +instance A.ToJSON V1beta3QueuingConfiguration where + toJSON V1beta3QueuingConfiguration {..} = + _omitNulls + [ "handSize" .= v1beta3QueuingConfigurationHandSize + , "queueLengthLimit" .= v1beta3QueuingConfigurationQueueLengthLimit + , "queues" .= v1beta3QueuingConfigurationQueues + ] + + +-- | Construct a value of type 'V1beta3QueuingConfiguration' (by applying it's required fields, if any) +mkV1beta3QueuingConfiguration + :: V1beta3QueuingConfiguration +mkV1beta3QueuingConfiguration = + V1beta3QueuingConfiguration + { v1beta3QueuingConfigurationHandSize = Nothing + , v1beta3QueuingConfigurationQueueLengthLimit = Nothing + , v1beta3QueuingConfigurationQueues = Nothing + } + +-- ** V1beta3ResourcePolicyRule +-- | V1beta3ResourcePolicyRule +-- ResourcePolicyRule is a predicate that matches some resource requests, testing the request's verb and the target resource. A ResourcePolicyRule matches a resource request if and only if: (a) at least one member of verbs matches the request, (b) at least one member of apiGroups matches the request, (c) at least one member of resources matches the request, and (d) either (d1) the request does not specify a namespace (i.e., `Namespace==\"\"`) and clusterScope is true or (d2) the request specifies a namespace and least one member of namespaces matches the request's namespace. +data V1beta3ResourcePolicyRule = V1beta3ResourcePolicyRule + { v1beta3ResourcePolicyRuleApiGroups :: !([Text]) -- ^ /Required/ "apiGroups" - `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. + , v1beta3ResourcePolicyRuleClusterScope :: !(Maybe Bool) -- ^ "clusterScope" - `clusterScope` indicates whether to match requests that do not specify a namespace (which happens either because the resource is not namespaced or the request targets all namespaces). If this field is omitted or false then the `namespaces` field must contain a non-empty list. + , v1beta3ResourcePolicyRuleNamespaces :: !(Maybe [Text]) -- ^ "namespaces" - `namespaces` is a list of target namespaces that restricts matches. A request that specifies a target namespace matches only if either (a) this list contains that target namespace or (b) this list contains \"*\". Note that \"*\" matches any specified namespace but does not match a request that _does not specify_ a namespace (see the `clusterScope` field for that). This list may be empty, but only if `clusterScope` is true. + , v1beta3ResourcePolicyRuleResources :: !([Text]) -- ^ /Required/ "resources" - `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. + , v1beta3ResourcePolicyRuleVerbs :: !([Text]) -- ^ /Required/ "verbs" - `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3ResourcePolicyRule +instance A.FromJSON V1beta3ResourcePolicyRule where + parseJSON = A.withObject "V1beta3ResourcePolicyRule" $ \o -> + V1beta3ResourcePolicyRule + <$> (o .: "apiGroups") + <*> (o .:? "clusterScope") + <*> (o .:? "namespaces") + <*> (o .: "resources") + <*> (o .: "verbs") + +-- | ToJSON V1beta3ResourcePolicyRule +instance A.ToJSON V1beta3ResourcePolicyRule where + toJSON V1beta3ResourcePolicyRule {..} = + _omitNulls + [ "apiGroups" .= v1beta3ResourcePolicyRuleApiGroups + , "clusterScope" .= v1beta3ResourcePolicyRuleClusterScope + , "namespaces" .= v1beta3ResourcePolicyRuleNamespaces + , "resources" .= v1beta3ResourcePolicyRuleResources + , "verbs" .= v1beta3ResourcePolicyRuleVerbs + ] + + +-- | Construct a value of type 'V1beta3ResourcePolicyRule' (by applying it's required fields, if any) +mkV1beta3ResourcePolicyRule + :: [Text] -- ^ 'v1beta3ResourcePolicyRuleApiGroups': `apiGroups` is a list of matching API groups and may not be empty. \"*\" matches all API groups and, if present, must be the only entry. Required. + -> [Text] -- ^ 'v1beta3ResourcePolicyRuleResources': `resources` is a list of matching resources (i.e., lowercase and plural) with, if desired, subresource. For example, [ \"services\", \"nodes/status\" ]. This list may not be empty. \"*\" matches all resources and, if present, must be the only entry. Required. + -> [Text] -- ^ 'v1beta3ResourcePolicyRuleVerbs': `verbs` is a list of matching verbs and may not be empty. \"*\" matches all verbs and, if present, must be the only entry. Required. + -> V1beta3ResourcePolicyRule +mkV1beta3ResourcePolicyRule v1beta3ResourcePolicyRuleApiGroups v1beta3ResourcePolicyRuleResources v1beta3ResourcePolicyRuleVerbs = + V1beta3ResourcePolicyRule + { v1beta3ResourcePolicyRuleApiGroups + , v1beta3ResourcePolicyRuleClusterScope = Nothing + , v1beta3ResourcePolicyRuleNamespaces = Nothing + , v1beta3ResourcePolicyRuleResources + , v1beta3ResourcePolicyRuleVerbs + } + +-- ** V1beta3ServiceAccountSubject +-- | V1beta3ServiceAccountSubject +-- ServiceAccountSubject holds detailed information for service-account-kind subject. +data V1beta3ServiceAccountSubject = V1beta3ServiceAccountSubject + { v1beta3ServiceAccountSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. + , v1beta3ServiceAccountSubjectNamespace :: !(Text) -- ^ /Required/ "namespace" - `namespace` is the namespace of matching ServiceAccount objects. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3ServiceAccountSubject +instance A.FromJSON V1beta3ServiceAccountSubject where + parseJSON = A.withObject "V1beta3ServiceAccountSubject" $ \o -> + V1beta3ServiceAccountSubject + <$> (o .: "name") + <*> (o .: "namespace") + +-- | ToJSON V1beta3ServiceAccountSubject +instance A.ToJSON V1beta3ServiceAccountSubject where + toJSON V1beta3ServiceAccountSubject {..} = + _omitNulls + [ "name" .= v1beta3ServiceAccountSubjectName + , "namespace" .= v1beta3ServiceAccountSubjectNamespace + ] + + +-- | Construct a value of type 'V1beta3ServiceAccountSubject' (by applying it's required fields, if any) +mkV1beta3ServiceAccountSubject + :: Text -- ^ 'v1beta3ServiceAccountSubjectName': `name` is the name of matching ServiceAccount objects, or \"*\" to match regardless of name. Required. + -> Text -- ^ 'v1beta3ServiceAccountSubjectNamespace': `namespace` is the namespace of matching ServiceAccount objects. Required. + -> V1beta3ServiceAccountSubject +mkV1beta3ServiceAccountSubject v1beta3ServiceAccountSubjectName v1beta3ServiceAccountSubjectNamespace = + V1beta3ServiceAccountSubject + { v1beta3ServiceAccountSubjectName + , v1beta3ServiceAccountSubjectNamespace + } + +-- ** V1beta3Subject +-- | V1beta3Subject +-- Subject matches the originator of a request, as identified by the request authentication system. There are three ways of matching an originator; by user, group, or service account. +data V1beta3Subject = V1beta3Subject + { v1beta3SubjectGroup :: !(Maybe V1beta3GroupSubject) -- ^ "group" + , v1beta3SubjectKind :: !(Text) -- ^ /Required/ "kind" - `kind` indicates which one of the other fields is non-empty. Required + , v1beta3SubjectServiceAccount :: !(Maybe V1beta3ServiceAccountSubject) -- ^ "serviceAccount" + , v1beta3SubjectUser :: !(Maybe V1beta3UserSubject) -- ^ "user" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3Subject +instance A.FromJSON V1beta3Subject where + parseJSON = A.withObject "V1beta3Subject" $ \o -> + V1beta3Subject + <$> (o .:? "group") + <*> (o .: "kind") + <*> (o .:? "serviceAccount") + <*> (o .:? "user") + +-- | ToJSON V1beta3Subject +instance A.ToJSON V1beta3Subject where + toJSON V1beta3Subject {..} = + _omitNulls + [ "group" .= v1beta3SubjectGroup + , "kind" .= v1beta3SubjectKind + , "serviceAccount" .= v1beta3SubjectServiceAccount + , "user" .= v1beta3SubjectUser + ] + + +-- | Construct a value of type 'V1beta3Subject' (by applying it's required fields, if any) +mkV1beta3Subject + :: Text -- ^ 'v1beta3SubjectKind': `kind` indicates which one of the other fields is non-empty. Required + -> V1beta3Subject +mkV1beta3Subject v1beta3SubjectKind = + V1beta3Subject + { v1beta3SubjectGroup = Nothing + , v1beta3SubjectKind + , v1beta3SubjectServiceAccount = Nothing + , v1beta3SubjectUser = Nothing + } + +-- ** V1beta3UserSubject +-- | V1beta3UserSubject +-- UserSubject holds detailed information for user-kind subject. +data V1beta3UserSubject = V1beta3UserSubject + { v1beta3UserSubjectName :: !(Text) -- ^ /Required/ "name" - `name` is the username that matches, or \"*\" to match all usernames. Required. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V1beta3UserSubject +instance A.FromJSON V1beta3UserSubject where + parseJSON = A.withObject "V1beta3UserSubject" $ \o -> + V1beta3UserSubject + <$> (o .: "name") + +-- | ToJSON V1beta3UserSubject +instance A.ToJSON V1beta3UserSubject where + toJSON V1beta3UserSubject {..} = + _omitNulls + [ "name" .= v1beta3UserSubjectName + ] + + +-- | Construct a value of type 'V1beta3UserSubject' (by applying it's required fields, if any) +mkV1beta3UserSubject + :: Text -- ^ 'v1beta3UserSubjectName': `name` is the username that matches, or \"*\" to match all usernames. Required. + -> V1beta3UserSubject +mkV1beta3UserSubject v1beta3UserSubjectName = + V1beta3UserSubject + { v1beta3UserSubjectName + } + +-- ** V2ContainerResourceMetricSource +-- | V2ContainerResourceMetricSource +-- ContainerResourceMetricSource indicates how to scale on a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). The values will be averaged together before being compared to the target. Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. Only one \"target\" type should be set. +data V2ContainerResourceMetricSource = V2ContainerResourceMetricSource + { v2ContainerResourceMetricSourceContainer :: !(Text) -- ^ /Required/ "container" - container is the name of the container in the pods of the scaling target + , v2ContainerResourceMetricSourceName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. + , v2ContainerResourceMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ContainerResourceMetricSource +instance A.FromJSON V2ContainerResourceMetricSource where + parseJSON = A.withObject "V2ContainerResourceMetricSource" $ \o -> + V2ContainerResourceMetricSource + <$> (o .: "container") + <*> (o .: "name") + <*> (o .: "target") + +-- | ToJSON V2ContainerResourceMetricSource +instance A.ToJSON V2ContainerResourceMetricSource where + toJSON V2ContainerResourceMetricSource {..} = + _omitNulls + [ "container" .= v2ContainerResourceMetricSourceContainer + , "name" .= v2ContainerResourceMetricSourceName + , "target" .= v2ContainerResourceMetricSourceTarget + ] + + +-- | Construct a value of type 'V2ContainerResourceMetricSource' (by applying it's required fields, if any) +mkV2ContainerResourceMetricSource + :: Text -- ^ 'v2ContainerResourceMetricSourceContainer': container is the name of the container in the pods of the scaling target + -> Text -- ^ 'v2ContainerResourceMetricSourceName': name is the name of the resource in question. + -> V2MetricTarget -- ^ 'v2ContainerResourceMetricSourceTarget' + -> V2ContainerResourceMetricSource +mkV2ContainerResourceMetricSource v2ContainerResourceMetricSourceContainer v2ContainerResourceMetricSourceName v2ContainerResourceMetricSourceTarget = + V2ContainerResourceMetricSource + { v2ContainerResourceMetricSourceContainer + , v2ContainerResourceMetricSourceName + , v2ContainerResourceMetricSourceTarget + } + +-- ** V2ContainerResourceMetricStatus +-- | V2ContainerResourceMetricStatus +-- ContainerResourceMetricStatus indicates the current value of a resource metric known to Kubernetes, as specified in requests and limits, describing a single container in each pod in the current scale target (e.g. CPU or memory). Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. +data V2ContainerResourceMetricStatus = V2ContainerResourceMetricStatus + { v2ContainerResourceMetricStatusContainer :: !(Text) -- ^ /Required/ "container" - container is the name of the container in the pods of the scaling target + , v2ContainerResourceMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" + , v2ContainerResourceMetricStatusName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ContainerResourceMetricStatus +instance A.FromJSON V2ContainerResourceMetricStatus where + parseJSON = A.withObject "V2ContainerResourceMetricStatus" $ \o -> + V2ContainerResourceMetricStatus + <$> (o .: "container") + <*> (o .: "current") + <*> (o .: "name") + +-- | ToJSON V2ContainerResourceMetricStatus +instance A.ToJSON V2ContainerResourceMetricStatus where + toJSON V2ContainerResourceMetricStatus {..} = + _omitNulls + [ "container" .= v2ContainerResourceMetricStatusContainer + , "current" .= v2ContainerResourceMetricStatusCurrent + , "name" .= v2ContainerResourceMetricStatusName + ] + + +-- | Construct a value of type 'V2ContainerResourceMetricStatus' (by applying it's required fields, if any) +mkV2ContainerResourceMetricStatus + :: Text -- ^ 'v2ContainerResourceMetricStatusContainer': container is the name of the container in the pods of the scaling target + -> V2MetricValueStatus -- ^ 'v2ContainerResourceMetricStatusCurrent' + -> Text -- ^ 'v2ContainerResourceMetricStatusName': name is the name of the resource in question. + -> V2ContainerResourceMetricStatus +mkV2ContainerResourceMetricStatus v2ContainerResourceMetricStatusContainer v2ContainerResourceMetricStatusCurrent v2ContainerResourceMetricStatusName = + V2ContainerResourceMetricStatus + { v2ContainerResourceMetricStatusContainer + , v2ContainerResourceMetricStatusCurrent + , v2ContainerResourceMetricStatusName + } + +-- ** V2CrossVersionObjectReference +-- | V2CrossVersionObjectReference +-- CrossVersionObjectReference contains enough information to let you identify the referred resource. +data V2CrossVersionObjectReference = V2CrossVersionObjectReference + { v2CrossVersionObjectReferenceApiVersion :: !(Maybe Text) -- ^ "apiVersion" - apiVersion is the API version of the referent + , v2CrossVersionObjectReferenceKind :: !(Text) -- ^ /Required/ "kind" - kind is the kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v2CrossVersionObjectReferenceName :: !(Text) -- ^ /Required/ "name" - name is the name of the referent; More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2CrossVersionObjectReference +instance A.FromJSON V2CrossVersionObjectReference where + parseJSON = A.withObject "V2CrossVersionObjectReference" $ \o -> + V2CrossVersionObjectReference + <$> (o .:? "apiVersion") + <*> (o .: "kind") + <*> (o .: "name") + +-- | ToJSON V2CrossVersionObjectReference +instance A.ToJSON V2CrossVersionObjectReference where + toJSON V2CrossVersionObjectReference {..} = + _omitNulls + [ "apiVersion" .= v2CrossVersionObjectReferenceApiVersion + , "kind" .= v2CrossVersionObjectReferenceKind + , "name" .= v2CrossVersionObjectReferenceName + ] + + +-- | Construct a value of type 'V2CrossVersionObjectReference' (by applying it's required fields, if any) +mkV2CrossVersionObjectReference + :: Text -- ^ 'v2CrossVersionObjectReferenceKind': kind is the kind of the referent; More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + -> Text -- ^ 'v2CrossVersionObjectReferenceName': name is the name of the referent; More info: https://kubernetes.io/docs/concepts/overview/working-with-objects/names/#names + -> V2CrossVersionObjectReference +mkV2CrossVersionObjectReference v2CrossVersionObjectReferenceKind v2CrossVersionObjectReferenceName = + V2CrossVersionObjectReference + { v2CrossVersionObjectReferenceApiVersion = Nothing + , v2CrossVersionObjectReferenceKind + , v2CrossVersionObjectReferenceName + } + +-- ** V2ExternalMetricSource +-- | V2ExternalMetricSource +-- ExternalMetricSource indicates how to scale on a metric not associated with any Kubernetes object (for example length of queue in cloud messaging service, or QPS from loadbalancer running outside of cluster). +data V2ExternalMetricSource = V2ExternalMetricSource + { v2ExternalMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + , v2ExternalMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ExternalMetricSource +instance A.FromJSON V2ExternalMetricSource where + parseJSON = A.withObject "V2ExternalMetricSource" $ \o -> + V2ExternalMetricSource + <$> (o .: "metric") + <*> (o .: "target") + +-- | ToJSON V2ExternalMetricSource +instance A.ToJSON V2ExternalMetricSource where + toJSON V2ExternalMetricSource {..} = + _omitNulls + [ "metric" .= v2ExternalMetricSourceMetric + , "target" .= v2ExternalMetricSourceTarget + ] + + +-- | Construct a value of type 'V2ExternalMetricSource' (by applying it's required fields, if any) +mkV2ExternalMetricSource + :: V2MetricIdentifier -- ^ 'v2ExternalMetricSourceMetric' + -> V2MetricTarget -- ^ 'v2ExternalMetricSourceTarget' + -> V2ExternalMetricSource +mkV2ExternalMetricSource v2ExternalMetricSourceMetric v2ExternalMetricSourceTarget = + V2ExternalMetricSource + { v2ExternalMetricSourceMetric + , v2ExternalMetricSourceTarget + } + +-- ** V2ExternalMetricStatus +-- | V2ExternalMetricStatus +-- ExternalMetricStatus indicates the current value of a global metric not associated with any Kubernetes object. +data V2ExternalMetricStatus = V2ExternalMetricStatus + { v2ExternalMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" + , v2ExternalMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ExternalMetricStatus +instance A.FromJSON V2ExternalMetricStatus where + parseJSON = A.withObject "V2ExternalMetricStatus" $ \o -> + V2ExternalMetricStatus + <$> (o .: "current") + <*> (o .: "metric") + +-- | ToJSON V2ExternalMetricStatus +instance A.ToJSON V2ExternalMetricStatus where + toJSON V2ExternalMetricStatus {..} = + _omitNulls + [ "current" .= v2ExternalMetricStatusCurrent + , "metric" .= v2ExternalMetricStatusMetric + ] + + +-- | Construct a value of type 'V2ExternalMetricStatus' (by applying it's required fields, if any) +mkV2ExternalMetricStatus + :: V2MetricValueStatus -- ^ 'v2ExternalMetricStatusCurrent' + -> V2MetricIdentifier -- ^ 'v2ExternalMetricStatusMetric' + -> V2ExternalMetricStatus +mkV2ExternalMetricStatus v2ExternalMetricStatusCurrent v2ExternalMetricStatusMetric = + V2ExternalMetricStatus + { v2ExternalMetricStatusCurrent + , v2ExternalMetricStatusMetric + } + +-- ** V2HPAScalingPolicy +-- | V2HPAScalingPolicy +-- HPAScalingPolicy is a single policy which must hold true for a specified past interval. +data V2HPAScalingPolicy = V2HPAScalingPolicy + { v2HPAScalingPolicyPeriodSeconds :: !(Int) -- ^ /Required/ "periodSeconds" - periodSeconds specifies the window of time for which the policy should hold true. PeriodSeconds must be greater than zero and less than or equal to 1800 (30 min). + , v2HPAScalingPolicyType :: !(Text) -- ^ /Required/ "type" - type is used to specify the scaling policy. + , v2HPAScalingPolicyValue :: !(Int) -- ^ /Required/ "value" - value contains the amount of change which is permitted by the policy. It must be greater than zero + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HPAScalingPolicy +instance A.FromJSON V2HPAScalingPolicy where + parseJSON = A.withObject "V2HPAScalingPolicy" $ \o -> + V2HPAScalingPolicy + <$> (o .: "periodSeconds") + <*> (o .: "type") + <*> (o .: "value") + +-- | ToJSON V2HPAScalingPolicy +instance A.ToJSON V2HPAScalingPolicy where + toJSON V2HPAScalingPolicy {..} = + _omitNulls + [ "periodSeconds" .= v2HPAScalingPolicyPeriodSeconds + , "type" .= v2HPAScalingPolicyType + , "value" .= v2HPAScalingPolicyValue + ] + + +-- | Construct a value of type 'V2HPAScalingPolicy' (by applying it's required fields, if any) +mkV2HPAScalingPolicy + :: Int -- ^ 'v2HPAScalingPolicyPeriodSeconds': periodSeconds specifies the window of time for which the policy should hold true. PeriodSeconds must be greater than zero and less than or equal to 1800 (30 min). + -> Text -- ^ 'v2HPAScalingPolicyType': type is used to specify the scaling policy. + -> Int -- ^ 'v2HPAScalingPolicyValue': value contains the amount of change which is permitted by the policy. It must be greater than zero + -> V2HPAScalingPolicy +mkV2HPAScalingPolicy v2HPAScalingPolicyPeriodSeconds v2HPAScalingPolicyType v2HPAScalingPolicyValue = + V2HPAScalingPolicy + { v2HPAScalingPolicyPeriodSeconds + , v2HPAScalingPolicyType + , v2HPAScalingPolicyValue + } + +-- ** V2HPAScalingRules +-- | V2HPAScalingRules +-- HPAScalingRules configures the scaling behavior for one direction. These Rules are applied after calculating DesiredReplicas from metrics for the HPA. They can limit the scaling velocity by specifying scaling policies. They can prevent flapping by specifying the stabilization window, so that the number of replicas is not set instantly, instead, the safest value from the stabilization window is chosen. +data V2HPAScalingRules = V2HPAScalingRules + { v2HPAScalingRulesPolicies :: !(Maybe [V2HPAScalingPolicy]) -- ^ "policies" - policies is a list of potential scaling polices which can be used during scaling. At least one policy must be specified, otherwise the HPAScalingRules will be discarded as invalid + , v2HPAScalingRulesSelectPolicy :: !(Maybe Text) -- ^ "selectPolicy" - selectPolicy is used to specify which policy should be used. If not set, the default value Max is used. + , v2HPAScalingRulesStabilizationWindowSeconds :: !(Maybe Int) -- ^ "stabilizationWindowSeconds" - stabilizationWindowSeconds is the number of seconds for which past recommendations should be considered while scaling up or scaling down. StabilizationWindowSeconds must be greater than or equal to zero and less than or equal to 3600 (one hour). If not set, use the default values: - For scale up: 0 (i.e. no stabilization is done). - For scale down: 300 (i.e. the stabilization window is 300 seconds long). + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HPAScalingRules +instance A.FromJSON V2HPAScalingRules where + parseJSON = A.withObject "V2HPAScalingRules" $ \o -> + V2HPAScalingRules + <$> (o .:? "policies") + <*> (o .:? "selectPolicy") + <*> (o .:? "stabilizationWindowSeconds") + +-- | ToJSON V2HPAScalingRules +instance A.ToJSON V2HPAScalingRules where + toJSON V2HPAScalingRules {..} = + _omitNulls + [ "policies" .= v2HPAScalingRulesPolicies + , "selectPolicy" .= v2HPAScalingRulesSelectPolicy + , "stabilizationWindowSeconds" .= v2HPAScalingRulesStabilizationWindowSeconds + ] + + +-- | Construct a value of type 'V2HPAScalingRules' (by applying it's required fields, if any) +mkV2HPAScalingRules + :: V2HPAScalingRules +mkV2HPAScalingRules = + V2HPAScalingRules + { v2HPAScalingRulesPolicies = Nothing + , v2HPAScalingRulesSelectPolicy = Nothing + , v2HPAScalingRulesStabilizationWindowSeconds = Nothing + } + +-- ** V2HorizontalPodAutoscaler +-- | V2HorizontalPodAutoscaler +-- HorizontalPodAutoscaler is the configuration for a horizontal pod autoscaler, which automatically manages the replica count of any resource implementing the scale subresource based on the metrics specified. +data V2HorizontalPodAutoscaler = V2HorizontalPodAutoscaler + { v2HorizontalPodAutoscalerApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v2HorizontalPodAutoscalerKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v2HorizontalPodAutoscalerMetadata :: !(Maybe V1ObjectMeta) -- ^ "metadata" + , v2HorizontalPodAutoscalerSpec :: !(Maybe V2HorizontalPodAutoscalerSpec) -- ^ "spec" + , v2HorizontalPodAutoscalerStatus :: !(Maybe V2HorizontalPodAutoscalerStatus) -- ^ "status" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscaler +instance A.FromJSON V2HorizontalPodAutoscaler where + parseJSON = A.withObject "V2HorizontalPodAutoscaler" $ \o -> + V2HorizontalPodAutoscaler + <$> (o .:? "apiVersion") + <*> (o .:? "kind") + <*> (o .:? "metadata") + <*> (o .:? "spec") + <*> (o .:? "status") + +-- | ToJSON V2HorizontalPodAutoscaler +instance A.ToJSON V2HorizontalPodAutoscaler where + toJSON V2HorizontalPodAutoscaler {..} = + _omitNulls + [ "apiVersion" .= v2HorizontalPodAutoscalerApiVersion + , "kind" .= v2HorizontalPodAutoscalerKind + , "metadata" .= v2HorizontalPodAutoscalerMetadata + , "spec" .= v2HorizontalPodAutoscalerSpec + , "status" .= v2HorizontalPodAutoscalerStatus + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscaler' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscaler + :: V2HorizontalPodAutoscaler +mkV2HorizontalPodAutoscaler = + V2HorizontalPodAutoscaler + { v2HorizontalPodAutoscalerApiVersion = Nothing + , v2HorizontalPodAutoscalerKind = Nothing + , v2HorizontalPodAutoscalerMetadata = Nothing + , v2HorizontalPodAutoscalerSpec = Nothing + , v2HorizontalPodAutoscalerStatus = Nothing + } + +-- ** V2HorizontalPodAutoscalerBehavior +-- | V2HorizontalPodAutoscalerBehavior +-- HorizontalPodAutoscalerBehavior configures the scaling behavior of the target in both Up and Down directions (scaleUp and scaleDown fields respectively). +data V2HorizontalPodAutoscalerBehavior = V2HorizontalPodAutoscalerBehavior + { v2HorizontalPodAutoscalerBehaviorScaleDown :: !(Maybe V2HPAScalingRules) -- ^ "scaleDown" + , v2HorizontalPodAutoscalerBehaviorScaleUp :: !(Maybe V2HPAScalingRules) -- ^ "scaleUp" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscalerBehavior +instance A.FromJSON V2HorizontalPodAutoscalerBehavior where + parseJSON = A.withObject "V2HorizontalPodAutoscalerBehavior" $ \o -> + V2HorizontalPodAutoscalerBehavior + <$> (o .:? "scaleDown") + <*> (o .:? "scaleUp") + +-- | ToJSON V2HorizontalPodAutoscalerBehavior +instance A.ToJSON V2HorizontalPodAutoscalerBehavior where + toJSON V2HorizontalPodAutoscalerBehavior {..} = + _omitNulls + [ "scaleDown" .= v2HorizontalPodAutoscalerBehaviorScaleDown + , "scaleUp" .= v2HorizontalPodAutoscalerBehaviorScaleUp + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscalerBehavior' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscalerBehavior + :: V2HorizontalPodAutoscalerBehavior +mkV2HorizontalPodAutoscalerBehavior = + V2HorizontalPodAutoscalerBehavior + { v2HorizontalPodAutoscalerBehaviorScaleDown = Nothing + , v2HorizontalPodAutoscalerBehaviorScaleUp = Nothing + } + +-- ** V2HorizontalPodAutoscalerCondition +-- | V2HorizontalPodAutoscalerCondition +-- HorizontalPodAutoscalerCondition describes the state of a HorizontalPodAutoscaler at a certain point. +data V2HorizontalPodAutoscalerCondition = V2HorizontalPodAutoscalerCondition + { v2HorizontalPodAutoscalerConditionLastTransitionTime :: !(Maybe DateTime) -- ^ "lastTransitionTime" - lastTransitionTime is the last time the condition transitioned from one status to another + , v2HorizontalPodAutoscalerConditionMessage :: !(Maybe Text) -- ^ "message" - message is a human-readable explanation containing details about the transition + , v2HorizontalPodAutoscalerConditionReason :: !(Maybe Text) -- ^ "reason" - reason is the reason for the condition's last transition. + , v2HorizontalPodAutoscalerConditionStatus :: !(Text) -- ^ /Required/ "status" - status is the status of the condition (True, False, Unknown) + , v2HorizontalPodAutoscalerConditionType :: !(Text) -- ^ /Required/ "type" - type describes the current condition + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscalerCondition +instance A.FromJSON V2HorizontalPodAutoscalerCondition where + parseJSON = A.withObject "V2HorizontalPodAutoscalerCondition" $ \o -> + V2HorizontalPodAutoscalerCondition + <$> (o .:? "lastTransitionTime") + <*> (o .:? "message") + <*> (o .:? "reason") + <*> (o .: "status") + <*> (o .: "type") + +-- | ToJSON V2HorizontalPodAutoscalerCondition +instance A.ToJSON V2HorizontalPodAutoscalerCondition where + toJSON V2HorizontalPodAutoscalerCondition {..} = + _omitNulls + [ "lastTransitionTime" .= v2HorizontalPodAutoscalerConditionLastTransitionTime + , "message" .= v2HorizontalPodAutoscalerConditionMessage + , "reason" .= v2HorizontalPodAutoscalerConditionReason + , "status" .= v2HorizontalPodAutoscalerConditionStatus + , "type" .= v2HorizontalPodAutoscalerConditionType + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscalerCondition' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscalerCondition + :: Text -- ^ 'v2HorizontalPodAutoscalerConditionStatus': status is the status of the condition (True, False, Unknown) + -> Text -- ^ 'v2HorizontalPodAutoscalerConditionType': type describes the current condition + -> V2HorizontalPodAutoscalerCondition +mkV2HorizontalPodAutoscalerCondition v2HorizontalPodAutoscalerConditionStatus v2HorizontalPodAutoscalerConditionType = + V2HorizontalPodAutoscalerCondition + { v2HorizontalPodAutoscalerConditionLastTransitionTime = Nothing + , v2HorizontalPodAutoscalerConditionMessage = Nothing + , v2HorizontalPodAutoscalerConditionReason = Nothing + , v2HorizontalPodAutoscalerConditionStatus + , v2HorizontalPodAutoscalerConditionType + } + +-- ** V2HorizontalPodAutoscalerList +-- | V2HorizontalPodAutoscalerList +-- HorizontalPodAutoscalerList is a list of horizontal pod autoscaler objects. +data V2HorizontalPodAutoscalerList = V2HorizontalPodAutoscalerList + { v2HorizontalPodAutoscalerListApiVersion :: !(Maybe Text) -- ^ "apiVersion" - APIVersion defines the versioned schema of this representation of an object. Servers should convert recognized schemas to the latest internal value, and may reject unrecognized values. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#resources + , v2HorizontalPodAutoscalerListItems :: !([V2HorizontalPodAutoscaler]) -- ^ /Required/ "items" - items is the list of horizontal pod autoscaler objects. + , v2HorizontalPodAutoscalerListKind :: !(Maybe Text) -- ^ "kind" - Kind is a string value representing the REST resource this object represents. Servers may infer this from the endpoint the client submits requests to. Cannot be updated. In CamelCase. More info: https://git.k8s.io/community/contributors/devel/sig-architecture/api-conventions.md#types-kinds + , v2HorizontalPodAutoscalerListMetadata :: !(Maybe V1ListMeta) -- ^ "metadata" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscalerList +instance A.FromJSON V2HorizontalPodAutoscalerList where + parseJSON = A.withObject "V2HorizontalPodAutoscalerList" $ \o -> + V2HorizontalPodAutoscalerList + <$> (o .:? "apiVersion") + <*> (o .: "items") + <*> (o .:? "kind") + <*> (o .:? "metadata") + +-- | ToJSON V2HorizontalPodAutoscalerList +instance A.ToJSON V2HorizontalPodAutoscalerList where + toJSON V2HorizontalPodAutoscalerList {..} = + _omitNulls + [ "apiVersion" .= v2HorizontalPodAutoscalerListApiVersion + , "items" .= v2HorizontalPodAutoscalerListItems + , "kind" .= v2HorizontalPodAutoscalerListKind + , "metadata" .= v2HorizontalPodAutoscalerListMetadata + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscalerList' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscalerList + :: [V2HorizontalPodAutoscaler] -- ^ 'v2HorizontalPodAutoscalerListItems': items is the list of horizontal pod autoscaler objects. + -> V2HorizontalPodAutoscalerList +mkV2HorizontalPodAutoscalerList v2HorizontalPodAutoscalerListItems = + V2HorizontalPodAutoscalerList + { v2HorizontalPodAutoscalerListApiVersion = Nothing + , v2HorizontalPodAutoscalerListItems + , v2HorizontalPodAutoscalerListKind = Nothing + , v2HorizontalPodAutoscalerListMetadata = Nothing + } + +-- ** V2HorizontalPodAutoscalerSpec +-- | V2HorizontalPodAutoscalerSpec +-- HorizontalPodAutoscalerSpec describes the desired functionality of the HorizontalPodAutoscaler. +data V2HorizontalPodAutoscalerSpec = V2HorizontalPodAutoscalerSpec + { v2HorizontalPodAutoscalerSpecBehavior :: !(Maybe V2HorizontalPodAutoscalerBehavior) -- ^ "behavior" + , v2HorizontalPodAutoscalerSpecMaxReplicas :: !(Int) -- ^ /Required/ "maxReplicas" - maxReplicas is the upper limit for the number of replicas to which the autoscaler can scale up. It cannot be less that minReplicas. + , v2HorizontalPodAutoscalerSpecMetrics :: !(Maybe [V2MetricSpec]) -- ^ "metrics" - metrics contains the specifications for which to use to calculate the desired replica count (the maximum replica count across all metrics will be used). The desired replica count is calculated multiplying the ratio between the target value and the current value by the current number of pods. Ergo, metrics used must decrease as the pod count is increased, and vice-versa. See the individual metric source types for more information about how each type of metric must respond. If not set, the default metric will be set to 80% average CPU utilization. + , v2HorizontalPodAutoscalerSpecMinReplicas :: !(Maybe Int) -- ^ "minReplicas" - minReplicas is the lower limit for the number of replicas to which the autoscaler can scale down. It defaults to 1 pod. minReplicas is allowed to be 0 if the alpha feature gate HPAScaleToZero is enabled and at least one Object or External metric is configured. Scaling is active as long as at least one metric value is available. + , v2HorizontalPodAutoscalerSpecScaleTargetRef :: !(V2CrossVersionObjectReference) -- ^ /Required/ "scaleTargetRef" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscalerSpec +instance A.FromJSON V2HorizontalPodAutoscalerSpec where + parseJSON = A.withObject "V2HorizontalPodAutoscalerSpec" $ \o -> + V2HorizontalPodAutoscalerSpec + <$> (o .:? "behavior") + <*> (o .: "maxReplicas") + <*> (o .:? "metrics") + <*> (o .:? "minReplicas") + <*> (o .: "scaleTargetRef") + +-- | ToJSON V2HorizontalPodAutoscalerSpec +instance A.ToJSON V2HorizontalPodAutoscalerSpec where + toJSON V2HorizontalPodAutoscalerSpec {..} = + _omitNulls + [ "behavior" .= v2HorizontalPodAutoscalerSpecBehavior + , "maxReplicas" .= v2HorizontalPodAutoscalerSpecMaxReplicas + , "metrics" .= v2HorizontalPodAutoscalerSpecMetrics + , "minReplicas" .= v2HorizontalPodAutoscalerSpecMinReplicas + , "scaleTargetRef" .= v2HorizontalPodAutoscalerSpecScaleTargetRef + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscalerSpec' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscalerSpec + :: Int -- ^ 'v2HorizontalPodAutoscalerSpecMaxReplicas': maxReplicas is the upper limit for the number of replicas to which the autoscaler can scale up. It cannot be less that minReplicas. + -> V2CrossVersionObjectReference -- ^ 'v2HorizontalPodAutoscalerSpecScaleTargetRef' + -> V2HorizontalPodAutoscalerSpec +mkV2HorizontalPodAutoscalerSpec v2HorizontalPodAutoscalerSpecMaxReplicas v2HorizontalPodAutoscalerSpecScaleTargetRef = + V2HorizontalPodAutoscalerSpec + { v2HorizontalPodAutoscalerSpecBehavior = Nothing + , v2HorizontalPodAutoscalerSpecMaxReplicas + , v2HorizontalPodAutoscalerSpecMetrics = Nothing + , v2HorizontalPodAutoscalerSpecMinReplicas = Nothing + , v2HorizontalPodAutoscalerSpecScaleTargetRef + } + +-- ** V2HorizontalPodAutoscalerStatus +-- | V2HorizontalPodAutoscalerStatus +-- HorizontalPodAutoscalerStatus describes the current status of a horizontal pod autoscaler. +data V2HorizontalPodAutoscalerStatus = V2HorizontalPodAutoscalerStatus + { v2HorizontalPodAutoscalerStatusConditions :: !(Maybe [V2HorizontalPodAutoscalerCondition]) -- ^ "conditions" - conditions is the set of conditions required for this autoscaler to scale its target, and indicates whether or not those conditions are met. + , v2HorizontalPodAutoscalerStatusCurrentMetrics :: !(Maybe [V2MetricStatus]) -- ^ "currentMetrics" - currentMetrics is the last read state of the metrics used by this autoscaler. + , v2HorizontalPodAutoscalerStatusCurrentReplicas :: !(Maybe Int) -- ^ "currentReplicas" - currentReplicas is current number of replicas of pods managed by this autoscaler, as last seen by the autoscaler. + , v2HorizontalPodAutoscalerStatusDesiredReplicas :: !(Int) -- ^ /Required/ "desiredReplicas" - desiredReplicas is the desired number of replicas of pods managed by this autoscaler, as last calculated by the autoscaler. + , v2HorizontalPodAutoscalerStatusLastScaleTime :: !(Maybe DateTime) -- ^ "lastScaleTime" - lastScaleTime is the last time the HorizontalPodAutoscaler scaled the number of pods, used by the autoscaler to control how often the number of pods is changed. + , v2HorizontalPodAutoscalerStatusObservedGeneration :: !(Maybe Integer) -- ^ "observedGeneration" - observedGeneration is the most recent generation observed by this autoscaler. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2HorizontalPodAutoscalerStatus +instance A.FromJSON V2HorizontalPodAutoscalerStatus where + parseJSON = A.withObject "V2HorizontalPodAutoscalerStatus" $ \o -> + V2HorizontalPodAutoscalerStatus + <$> (o .:? "conditions") + <*> (o .:? "currentMetrics") + <*> (o .:? "currentReplicas") + <*> (o .: "desiredReplicas") + <*> (o .:? "lastScaleTime") + <*> (o .:? "observedGeneration") + +-- | ToJSON V2HorizontalPodAutoscalerStatus +instance A.ToJSON V2HorizontalPodAutoscalerStatus where + toJSON V2HorizontalPodAutoscalerStatus {..} = + _omitNulls + [ "conditions" .= v2HorizontalPodAutoscalerStatusConditions + , "currentMetrics" .= v2HorizontalPodAutoscalerStatusCurrentMetrics + , "currentReplicas" .= v2HorizontalPodAutoscalerStatusCurrentReplicas + , "desiredReplicas" .= v2HorizontalPodAutoscalerStatusDesiredReplicas + , "lastScaleTime" .= v2HorizontalPodAutoscalerStatusLastScaleTime + , "observedGeneration" .= v2HorizontalPodAutoscalerStatusObservedGeneration + ] + + +-- | Construct a value of type 'V2HorizontalPodAutoscalerStatus' (by applying it's required fields, if any) +mkV2HorizontalPodAutoscalerStatus + :: Int -- ^ 'v2HorizontalPodAutoscalerStatusDesiredReplicas': desiredReplicas is the desired number of replicas of pods managed by this autoscaler, as last calculated by the autoscaler. + -> V2HorizontalPodAutoscalerStatus +mkV2HorizontalPodAutoscalerStatus v2HorizontalPodAutoscalerStatusDesiredReplicas = + V2HorizontalPodAutoscalerStatus + { v2HorizontalPodAutoscalerStatusConditions = Nothing + , v2HorizontalPodAutoscalerStatusCurrentMetrics = Nothing + , v2HorizontalPodAutoscalerStatusCurrentReplicas = Nothing + , v2HorizontalPodAutoscalerStatusDesiredReplicas + , v2HorizontalPodAutoscalerStatusLastScaleTime = Nothing + , v2HorizontalPodAutoscalerStatusObservedGeneration = Nothing + } + +-- ** V2MetricIdentifier +-- | V2MetricIdentifier +-- MetricIdentifier defines the name and optionally selector for a metric +data V2MetricIdentifier = V2MetricIdentifier + { v2MetricIdentifierName :: !(Text) -- ^ /Required/ "name" - name is the name of the given metric + , v2MetricIdentifierSelector :: !(Maybe V1LabelSelector) -- ^ "selector" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2MetricIdentifier +instance A.FromJSON V2MetricIdentifier where + parseJSON = A.withObject "V2MetricIdentifier" $ \o -> + V2MetricIdentifier + <$> (o .: "name") + <*> (o .:? "selector") + +-- | ToJSON V2MetricIdentifier +instance A.ToJSON V2MetricIdentifier where + toJSON V2MetricIdentifier {..} = + _omitNulls + [ "name" .= v2MetricIdentifierName + , "selector" .= v2MetricIdentifierSelector + ] + + +-- | Construct a value of type 'V2MetricIdentifier' (by applying it's required fields, if any) +mkV2MetricIdentifier + :: Text -- ^ 'v2MetricIdentifierName': name is the name of the given metric + -> V2MetricIdentifier +mkV2MetricIdentifier v2MetricIdentifierName = + V2MetricIdentifier + { v2MetricIdentifierName + , v2MetricIdentifierSelector = Nothing + } + +-- ** V2MetricSpec +-- | V2MetricSpec +-- MetricSpec specifies how to scale based on a single metric (only `type` and one other matching field should be set at once). +data V2MetricSpec = V2MetricSpec + { v2MetricSpecContainerResource :: !(Maybe V2ContainerResourceMetricSource) -- ^ "containerResource" + , v2MetricSpecExternal :: !(Maybe V2ExternalMetricSource) -- ^ "external" + , v2MetricSpecObject :: !(Maybe V2ObjectMetricSource) -- ^ "object" + , v2MetricSpecPods :: !(Maybe V2PodsMetricSource) -- ^ "pods" + , v2MetricSpecResource :: !(Maybe V2ResourceMetricSource) -- ^ "resource" + , v2MetricSpecType :: !(Text) -- ^ /Required/ "type" - type is the type of metric source. It should be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each mapping to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2MetricSpec +instance A.FromJSON V2MetricSpec where + parseJSON = A.withObject "V2MetricSpec" $ \o -> + V2MetricSpec + <$> (o .:? "containerResource") + <*> (o .:? "external") + <*> (o .:? "object") + <*> (o .:? "pods") + <*> (o .:? "resource") + <*> (o .: "type") + +-- | ToJSON V2MetricSpec +instance A.ToJSON V2MetricSpec where + toJSON V2MetricSpec {..} = + _omitNulls + [ "containerResource" .= v2MetricSpecContainerResource + , "external" .= v2MetricSpecExternal + , "object" .= v2MetricSpecObject + , "pods" .= v2MetricSpecPods + , "resource" .= v2MetricSpecResource + , "type" .= v2MetricSpecType + ] + + +-- | Construct a value of type 'V2MetricSpec' (by applying it's required fields, if any) +mkV2MetricSpec + :: Text -- ^ 'v2MetricSpecType': type is the type of metric source. It should be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each mapping to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled + -> V2MetricSpec +mkV2MetricSpec v2MetricSpecType = + V2MetricSpec + { v2MetricSpecContainerResource = Nothing + , v2MetricSpecExternal = Nothing + , v2MetricSpecObject = Nothing + , v2MetricSpecPods = Nothing + , v2MetricSpecResource = Nothing + , v2MetricSpecType + } + +-- ** V2MetricStatus +-- | V2MetricStatus +-- MetricStatus describes the last-read state of a single metric. +data V2MetricStatus = V2MetricStatus + { v2MetricStatusContainerResource :: !(Maybe V2ContainerResourceMetricStatus) -- ^ "containerResource" + , v2MetricStatusExternal :: !(Maybe V2ExternalMetricStatus) -- ^ "external" + , v2MetricStatusObject :: !(Maybe V2ObjectMetricStatus) -- ^ "object" + , v2MetricStatusPods :: !(Maybe V2PodsMetricStatus) -- ^ "pods" + , v2MetricStatusResource :: !(Maybe V2ResourceMetricStatus) -- ^ "resource" + , v2MetricStatusType :: !(Text) -- ^ /Required/ "type" - type is the type of metric source. It will be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each corresponds to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2MetricStatus +instance A.FromJSON V2MetricStatus where + parseJSON = A.withObject "V2MetricStatus" $ \o -> + V2MetricStatus + <$> (o .:? "containerResource") + <*> (o .:? "external") + <*> (o .:? "object") + <*> (o .:? "pods") + <*> (o .:? "resource") + <*> (o .: "type") + +-- | ToJSON V2MetricStatus +instance A.ToJSON V2MetricStatus where + toJSON V2MetricStatus {..} = + _omitNulls + [ "containerResource" .= v2MetricStatusContainerResource + , "external" .= v2MetricStatusExternal + , "object" .= v2MetricStatusObject + , "pods" .= v2MetricStatusPods + , "resource" .= v2MetricStatusResource + , "type" .= v2MetricStatusType + ] + + +-- | Construct a value of type 'V2MetricStatus' (by applying it's required fields, if any) +mkV2MetricStatus + :: Text -- ^ 'v2MetricStatusType': type is the type of metric source. It will be one of \"ContainerResource\", \"External\", \"Object\", \"Pods\" or \"Resource\", each corresponds to a matching field in the object. Note: \"ContainerResource\" type is available on when the feature-gate HPAContainerMetrics is enabled + -> V2MetricStatus +mkV2MetricStatus v2MetricStatusType = + V2MetricStatus + { v2MetricStatusContainerResource = Nothing + , v2MetricStatusExternal = Nothing + , v2MetricStatusObject = Nothing + , v2MetricStatusPods = Nothing + , v2MetricStatusResource = Nothing + , v2MetricStatusType + } + +-- ** V2MetricTarget +-- | V2MetricTarget +-- MetricTarget defines the target value, average value, or average utilization of a specific metric +data V2MetricTarget = V2MetricTarget + { v2MetricTargetAverageUtilization :: !(Maybe Int) -- ^ "averageUtilization" - averageUtilization is the target value of the average of the resource metric across all relevant pods, represented as a percentage of the requested value of the resource for the pods. Currently only valid for Resource metric source type + , v2MetricTargetAverageValue :: !(Maybe Quantity) -- ^ "averageValue" + , v2MetricTargetType :: !(Text) -- ^ /Required/ "type" - type represents whether the metric type is Utilization, Value, or AverageValue + , v2MetricTargetValue :: !(Maybe Quantity) -- ^ "value" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2MetricTarget +instance A.FromJSON V2MetricTarget where + parseJSON = A.withObject "V2MetricTarget" $ \o -> + V2MetricTarget + <$> (o .:? "averageUtilization") + <*> (o .:? "averageValue") + <*> (o .: "type") + <*> (o .:? "value") + +-- | ToJSON V2MetricTarget +instance A.ToJSON V2MetricTarget where + toJSON V2MetricTarget {..} = + _omitNulls + [ "averageUtilization" .= v2MetricTargetAverageUtilization + , "averageValue" .= v2MetricTargetAverageValue + , "type" .= v2MetricTargetType + , "value" .= v2MetricTargetValue + ] + + +-- | Construct a value of type 'V2MetricTarget' (by applying it's required fields, if any) +mkV2MetricTarget + :: Text -- ^ 'v2MetricTargetType': type represents whether the metric type is Utilization, Value, or AverageValue + -> V2MetricTarget +mkV2MetricTarget v2MetricTargetType = + V2MetricTarget + { v2MetricTargetAverageUtilization = Nothing + , v2MetricTargetAverageValue = Nothing + , v2MetricTargetType + , v2MetricTargetValue = Nothing + } + +-- ** V2MetricValueStatus +-- | V2MetricValueStatus +-- MetricValueStatus holds the current value for a metric +data V2MetricValueStatus = V2MetricValueStatus + { v2MetricValueStatusAverageUtilization :: !(Maybe Int) -- ^ "averageUtilization" - currentAverageUtilization is the current value of the average of the resource metric across all relevant pods, represented as a percentage of the requested value of the resource for the pods. + , v2MetricValueStatusAverageValue :: !(Maybe Quantity) -- ^ "averageValue" + , v2MetricValueStatusValue :: !(Maybe Quantity) -- ^ "value" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2MetricValueStatus +instance A.FromJSON V2MetricValueStatus where + parseJSON = A.withObject "V2MetricValueStatus" $ \o -> + V2MetricValueStatus + <$> (o .:? "averageUtilization") + <*> (o .:? "averageValue") + <*> (o .:? "value") + +-- | ToJSON V2MetricValueStatus +instance A.ToJSON V2MetricValueStatus where + toJSON V2MetricValueStatus {..} = + _omitNulls + [ "averageUtilization" .= v2MetricValueStatusAverageUtilization + , "averageValue" .= v2MetricValueStatusAverageValue + , "value" .= v2MetricValueStatusValue + ] + + +-- | Construct a value of type 'V2MetricValueStatus' (by applying it's required fields, if any) +mkV2MetricValueStatus + :: V2MetricValueStatus +mkV2MetricValueStatus = + V2MetricValueStatus + { v2MetricValueStatusAverageUtilization = Nothing + , v2MetricValueStatusAverageValue = Nothing + , v2MetricValueStatusValue = Nothing + } + +-- ** V2ObjectMetricSource +-- | V2ObjectMetricSource +-- ObjectMetricSource indicates how to scale on a metric describing a kubernetes object (for example, hits-per-second on an Ingress object). +data V2ObjectMetricSource = V2ObjectMetricSource + { v2ObjectMetricSourceDescribedObject :: !(V2CrossVersionObjectReference) -- ^ /Required/ "describedObject" + , v2ObjectMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + , v2ObjectMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ObjectMetricSource +instance A.FromJSON V2ObjectMetricSource where + parseJSON = A.withObject "V2ObjectMetricSource" $ \o -> + V2ObjectMetricSource + <$> (o .: "describedObject") + <*> (o .: "metric") + <*> (o .: "target") + +-- | ToJSON V2ObjectMetricSource +instance A.ToJSON V2ObjectMetricSource where + toJSON V2ObjectMetricSource {..} = + _omitNulls + [ "describedObject" .= v2ObjectMetricSourceDescribedObject + , "metric" .= v2ObjectMetricSourceMetric + , "target" .= v2ObjectMetricSourceTarget + ] + + +-- | Construct a value of type 'V2ObjectMetricSource' (by applying it's required fields, if any) +mkV2ObjectMetricSource + :: V2CrossVersionObjectReference -- ^ 'v2ObjectMetricSourceDescribedObject' + -> V2MetricIdentifier -- ^ 'v2ObjectMetricSourceMetric' + -> V2MetricTarget -- ^ 'v2ObjectMetricSourceTarget' + -> V2ObjectMetricSource +mkV2ObjectMetricSource v2ObjectMetricSourceDescribedObject v2ObjectMetricSourceMetric v2ObjectMetricSourceTarget = + V2ObjectMetricSource + { v2ObjectMetricSourceDescribedObject + , v2ObjectMetricSourceMetric + , v2ObjectMetricSourceTarget + } + +-- ** V2ObjectMetricStatus +-- | V2ObjectMetricStatus +-- ObjectMetricStatus indicates the current value of a metric describing a kubernetes object (for example, hits-per-second on an Ingress object). +data V2ObjectMetricStatus = V2ObjectMetricStatus + { v2ObjectMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" + , v2ObjectMetricStatusDescribedObject :: !(V2CrossVersionObjectReference) -- ^ /Required/ "describedObject" + , v2ObjectMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ObjectMetricStatus +instance A.FromJSON V2ObjectMetricStatus where + parseJSON = A.withObject "V2ObjectMetricStatus" $ \o -> + V2ObjectMetricStatus + <$> (o .: "current") + <*> (o .: "describedObject") + <*> (o .: "metric") + +-- | ToJSON V2ObjectMetricStatus +instance A.ToJSON V2ObjectMetricStatus where + toJSON V2ObjectMetricStatus {..} = + _omitNulls + [ "current" .= v2ObjectMetricStatusCurrent + , "describedObject" .= v2ObjectMetricStatusDescribedObject + , "metric" .= v2ObjectMetricStatusMetric + ] + + +-- | Construct a value of type 'V2ObjectMetricStatus' (by applying it's required fields, if any) +mkV2ObjectMetricStatus + :: V2MetricValueStatus -- ^ 'v2ObjectMetricStatusCurrent' + -> V2CrossVersionObjectReference -- ^ 'v2ObjectMetricStatusDescribedObject' + -> V2MetricIdentifier -- ^ 'v2ObjectMetricStatusMetric' + -> V2ObjectMetricStatus +mkV2ObjectMetricStatus v2ObjectMetricStatusCurrent v2ObjectMetricStatusDescribedObject v2ObjectMetricStatusMetric = + V2ObjectMetricStatus + { v2ObjectMetricStatusCurrent + , v2ObjectMetricStatusDescribedObject + , v2ObjectMetricStatusMetric + } + +-- ** V2PodsMetricSource +-- | V2PodsMetricSource +-- PodsMetricSource indicates how to scale on a metric describing each pod in the current scale target (for example, transactions-processed-per-second). The values will be averaged together before being compared to the target value. +data V2PodsMetricSource = V2PodsMetricSource + { v2PodsMetricSourceMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + , v2PodsMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2PodsMetricSource +instance A.FromJSON V2PodsMetricSource where + parseJSON = A.withObject "V2PodsMetricSource" $ \o -> + V2PodsMetricSource + <$> (o .: "metric") + <*> (o .: "target") + +-- | ToJSON V2PodsMetricSource +instance A.ToJSON V2PodsMetricSource where + toJSON V2PodsMetricSource {..} = + _omitNulls + [ "metric" .= v2PodsMetricSourceMetric + , "target" .= v2PodsMetricSourceTarget + ] + + +-- | Construct a value of type 'V2PodsMetricSource' (by applying it's required fields, if any) +mkV2PodsMetricSource + :: V2MetricIdentifier -- ^ 'v2PodsMetricSourceMetric' + -> V2MetricTarget -- ^ 'v2PodsMetricSourceTarget' + -> V2PodsMetricSource +mkV2PodsMetricSource v2PodsMetricSourceMetric v2PodsMetricSourceTarget = + V2PodsMetricSource + { v2PodsMetricSourceMetric + , v2PodsMetricSourceTarget + } + +-- ** V2PodsMetricStatus +-- | V2PodsMetricStatus +-- PodsMetricStatus indicates the current value of a metric describing each pod in the current scale target (for example, transactions-processed-per-second). +data V2PodsMetricStatus = V2PodsMetricStatus + { v2PodsMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" + , v2PodsMetricStatusMetric :: !(V2MetricIdentifier) -- ^ /Required/ "metric" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2PodsMetricStatus +instance A.FromJSON V2PodsMetricStatus where + parseJSON = A.withObject "V2PodsMetricStatus" $ \o -> + V2PodsMetricStatus + <$> (o .: "current") + <*> (o .: "metric") + +-- | ToJSON V2PodsMetricStatus +instance A.ToJSON V2PodsMetricStatus where + toJSON V2PodsMetricStatus {..} = + _omitNulls + [ "current" .= v2PodsMetricStatusCurrent + , "metric" .= v2PodsMetricStatusMetric + ] + + +-- | Construct a value of type 'V2PodsMetricStatus' (by applying it's required fields, if any) +mkV2PodsMetricStatus + :: V2MetricValueStatus -- ^ 'v2PodsMetricStatusCurrent' + -> V2MetricIdentifier -- ^ 'v2PodsMetricStatusMetric' + -> V2PodsMetricStatus +mkV2PodsMetricStatus v2PodsMetricStatusCurrent v2PodsMetricStatusMetric = + V2PodsMetricStatus + { v2PodsMetricStatusCurrent + , v2PodsMetricStatusMetric + } + +-- ** V2ResourceMetricSource +-- | V2ResourceMetricSource +-- ResourceMetricSource indicates how to scale on a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). The values will be averaged together before being compared to the target. Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. Only one \"target\" type should be set. +data V2ResourceMetricSource = V2ResourceMetricSource + { v2ResourceMetricSourceName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. + , v2ResourceMetricSourceTarget :: !(V2MetricTarget) -- ^ /Required/ "target" + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ResourceMetricSource +instance A.FromJSON V2ResourceMetricSource where + parseJSON = A.withObject "V2ResourceMetricSource" $ \o -> + V2ResourceMetricSource + <$> (o .: "name") + <*> (o .: "target") + +-- | ToJSON V2ResourceMetricSource +instance A.ToJSON V2ResourceMetricSource where + toJSON V2ResourceMetricSource {..} = + _omitNulls + [ "name" .= v2ResourceMetricSourceName + , "target" .= v2ResourceMetricSourceTarget + ] + + +-- | Construct a value of type 'V2ResourceMetricSource' (by applying it's required fields, if any) +mkV2ResourceMetricSource + :: Text -- ^ 'v2ResourceMetricSourceName': name is the name of the resource in question. + -> V2MetricTarget -- ^ 'v2ResourceMetricSourceTarget' + -> V2ResourceMetricSource +mkV2ResourceMetricSource v2ResourceMetricSourceName v2ResourceMetricSourceTarget = + V2ResourceMetricSource + { v2ResourceMetricSourceName + , v2ResourceMetricSourceTarget + } + +-- ** V2ResourceMetricStatus +-- | V2ResourceMetricStatus +-- ResourceMetricStatus indicates the current value of a resource metric known to Kubernetes, as specified in requests and limits, describing each pod in the current scale target (e.g. CPU or memory). Such metrics are built in to Kubernetes, and have special scaling options on top of those available to normal per-pod metrics using the \"pods\" source. +data V2ResourceMetricStatus = V2ResourceMetricStatus + { v2ResourceMetricStatusCurrent :: !(V2MetricValueStatus) -- ^ /Required/ "current" + , v2ResourceMetricStatusName :: !(Text) -- ^ /Required/ "name" - name is the name of the resource in question. + } deriving (P.Show, P.Eq, P.Typeable) + +-- | FromJSON V2ResourceMetricStatus +instance A.FromJSON V2ResourceMetricStatus where + parseJSON = A.withObject "V2ResourceMetricStatus" $ \o -> + V2ResourceMetricStatus + <$> (o .: "current") + <*> (o .: "name") + +-- | ToJSON V2ResourceMetricStatus +instance A.ToJSON V2ResourceMetricStatus where + toJSON V2ResourceMetricStatus {..} = + _omitNulls + [ "current" .= v2ResourceMetricStatusCurrent + , "name" .= v2ResourceMetricStatusName + ] + + +-- | Construct a value of type 'V2ResourceMetricStatus' (by applying it's required fields, if any) +mkV2ResourceMetricStatus + :: V2MetricValueStatus -- ^ 'v2ResourceMetricStatusCurrent' + -> Text -- ^ 'v2ResourceMetricStatusName': name is the name of the resource in question. -> V2ResourceMetricStatus mkV2ResourceMetricStatus v2ResourceMetricStatusCurrent v2ResourceMetricStatusName = V2ResourceMetricStatus diff --git a/lib/Kubernetes/OpenAPI/ModelLens.hs b/lib/Kubernetes/OpenAPI/ModelLens.hs --- a/lib/Kubernetes/OpenAPI/ModelLens.hs +++ b/lib/Kubernetes/OpenAPI/ModelLens.hs @@ -4,11860 +4,12155 @@ No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator) OpenAPI Version: 3.0.1 - Kubernetes API version: release-1.26 - Generated by OpenAPI Generator (https://openapi-generator.tech) --} - -{-| -Module : Kubernetes.OpenAPI.Lens --} - -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE NamedFieldPuns #-} -{-# LANGUAGE RankNTypes #-} -{-# LANGUAGE RecordWildCards #-} -{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} - -module Kubernetes.OpenAPI.ModelLens where - -import qualified Data.Aeson as A -import qualified Data.ByteString.Lazy as BL -import qualified Data.Data as P (Data, Typeable) -import qualified Data.Map as Map -import qualified Data.Set as Set -import qualified Data.Time as TI - -import Data.Text (Text) - -import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) -import qualified Prelude as P - -import Kubernetes.OpenAPI.Model -import Kubernetes.OpenAPI.Core - - --- * AdmissionregistrationV1ServiceReference - --- | 'admissionregistrationV1ServiceReferenceName' Lens -admissionregistrationV1ServiceReferenceNameL :: Lens_' AdmissionregistrationV1ServiceReference (Text) -admissionregistrationV1ServiceReferenceNameL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferenceName -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferenceName, ..} ) <$> f admissionregistrationV1ServiceReferenceName -{-# INLINE admissionregistrationV1ServiceReferenceNameL #-} - --- | 'admissionregistrationV1ServiceReferenceNamespace' Lens -admissionregistrationV1ServiceReferenceNamespaceL :: Lens_' AdmissionregistrationV1ServiceReference (Text) -admissionregistrationV1ServiceReferenceNamespaceL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferenceNamespace -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferenceNamespace, ..} ) <$> f admissionregistrationV1ServiceReferenceNamespace -{-# INLINE admissionregistrationV1ServiceReferenceNamespaceL #-} - --- | 'admissionregistrationV1ServiceReferencePath' Lens -admissionregistrationV1ServiceReferencePathL :: Lens_' AdmissionregistrationV1ServiceReference (Maybe Text) -admissionregistrationV1ServiceReferencePathL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferencePath -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferencePath, ..} ) <$> f admissionregistrationV1ServiceReferencePath -{-# INLINE admissionregistrationV1ServiceReferencePathL #-} - --- | 'admissionregistrationV1ServiceReferencePort' Lens -admissionregistrationV1ServiceReferencePortL :: Lens_' AdmissionregistrationV1ServiceReference (Maybe Int) -admissionregistrationV1ServiceReferencePortL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferencePort -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferencePort, ..} ) <$> f admissionregistrationV1ServiceReferencePort -{-# INLINE admissionregistrationV1ServiceReferencePortL #-} - - - --- * AdmissionregistrationV1WebhookClientConfig - --- | 'admissionregistrationV1WebhookClientConfigCaBundle' Lens -admissionregistrationV1WebhookClientConfigCaBundleL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe ByteArray) -admissionregistrationV1WebhookClientConfigCaBundleL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigCaBundle -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigCaBundle, ..} ) <$> f admissionregistrationV1WebhookClientConfigCaBundle -{-# INLINE admissionregistrationV1WebhookClientConfigCaBundleL #-} - --- | 'admissionregistrationV1WebhookClientConfigService' Lens -admissionregistrationV1WebhookClientConfigServiceL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe AdmissionregistrationV1ServiceReference) -admissionregistrationV1WebhookClientConfigServiceL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigService -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigService, ..} ) <$> f admissionregistrationV1WebhookClientConfigService -{-# INLINE admissionregistrationV1WebhookClientConfigServiceL #-} - --- | 'admissionregistrationV1WebhookClientConfigUrl' Lens -admissionregistrationV1WebhookClientConfigUrlL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe Text) -admissionregistrationV1WebhookClientConfigUrlL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigUrl -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigUrl, ..} ) <$> f admissionregistrationV1WebhookClientConfigUrl -{-# INLINE admissionregistrationV1WebhookClientConfigUrlL #-} - - - --- * ApiextensionsV1ServiceReference - --- | 'apiextensionsV1ServiceReferenceName' Lens -apiextensionsV1ServiceReferenceNameL :: Lens_' ApiextensionsV1ServiceReference (Text) -apiextensionsV1ServiceReferenceNameL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferenceName -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferenceName, ..} ) <$> f apiextensionsV1ServiceReferenceName -{-# INLINE apiextensionsV1ServiceReferenceNameL #-} - --- | 'apiextensionsV1ServiceReferenceNamespace' Lens -apiextensionsV1ServiceReferenceNamespaceL :: Lens_' ApiextensionsV1ServiceReference (Text) -apiextensionsV1ServiceReferenceNamespaceL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferenceNamespace -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferenceNamespace, ..} ) <$> f apiextensionsV1ServiceReferenceNamespace -{-# INLINE apiextensionsV1ServiceReferenceNamespaceL #-} - --- | 'apiextensionsV1ServiceReferencePath' Lens -apiextensionsV1ServiceReferencePathL :: Lens_' ApiextensionsV1ServiceReference (Maybe Text) -apiextensionsV1ServiceReferencePathL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferencePath -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferencePath, ..} ) <$> f apiextensionsV1ServiceReferencePath -{-# INLINE apiextensionsV1ServiceReferencePathL #-} - --- | 'apiextensionsV1ServiceReferencePort' Lens -apiextensionsV1ServiceReferencePortL :: Lens_' ApiextensionsV1ServiceReference (Maybe Int) -apiextensionsV1ServiceReferencePortL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferencePort -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferencePort, ..} ) <$> f apiextensionsV1ServiceReferencePort -{-# INLINE apiextensionsV1ServiceReferencePortL #-} - - - --- * ApiextensionsV1WebhookClientConfig - --- | 'apiextensionsV1WebhookClientConfigCaBundle' Lens -apiextensionsV1WebhookClientConfigCaBundleL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe ByteArray) -apiextensionsV1WebhookClientConfigCaBundleL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigCaBundle -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigCaBundle, ..} ) <$> f apiextensionsV1WebhookClientConfigCaBundle -{-# INLINE apiextensionsV1WebhookClientConfigCaBundleL #-} - --- | 'apiextensionsV1WebhookClientConfigService' Lens -apiextensionsV1WebhookClientConfigServiceL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe ApiextensionsV1ServiceReference) -apiextensionsV1WebhookClientConfigServiceL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigService -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigService, ..} ) <$> f apiextensionsV1WebhookClientConfigService -{-# INLINE apiextensionsV1WebhookClientConfigServiceL #-} - --- | 'apiextensionsV1WebhookClientConfigUrl' Lens -apiextensionsV1WebhookClientConfigUrlL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe Text) -apiextensionsV1WebhookClientConfigUrlL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigUrl -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigUrl, ..} ) <$> f apiextensionsV1WebhookClientConfigUrl -{-# INLINE apiextensionsV1WebhookClientConfigUrlL #-} - - - --- * ApiregistrationV1ServiceReference - --- | 'apiregistrationV1ServiceReferenceName' Lens -apiregistrationV1ServiceReferenceNameL :: Lens_' ApiregistrationV1ServiceReference (Maybe Text) -apiregistrationV1ServiceReferenceNameL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferenceName -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferenceName, ..} ) <$> f apiregistrationV1ServiceReferenceName -{-# INLINE apiregistrationV1ServiceReferenceNameL #-} - --- | 'apiregistrationV1ServiceReferenceNamespace' Lens -apiregistrationV1ServiceReferenceNamespaceL :: Lens_' ApiregistrationV1ServiceReference (Maybe Text) -apiregistrationV1ServiceReferenceNamespaceL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferenceNamespace -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferenceNamespace, ..} ) <$> f apiregistrationV1ServiceReferenceNamespace -{-# INLINE apiregistrationV1ServiceReferenceNamespaceL #-} - --- | 'apiregistrationV1ServiceReferencePort' Lens -apiregistrationV1ServiceReferencePortL :: Lens_' ApiregistrationV1ServiceReference (Maybe Int) -apiregistrationV1ServiceReferencePortL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferencePort -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferencePort, ..} ) <$> f apiregistrationV1ServiceReferencePort -{-# INLINE apiregistrationV1ServiceReferencePortL #-} - - - --- * AuthenticationV1TokenRequest - --- | 'authenticationV1TokenRequestApiVersion' Lens -authenticationV1TokenRequestApiVersionL :: Lens_' AuthenticationV1TokenRequest (Maybe Text) -authenticationV1TokenRequestApiVersionL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestApiVersion -> AuthenticationV1TokenRequest { authenticationV1TokenRequestApiVersion, ..} ) <$> f authenticationV1TokenRequestApiVersion -{-# INLINE authenticationV1TokenRequestApiVersionL #-} - --- | 'authenticationV1TokenRequestKind' Lens -authenticationV1TokenRequestKindL :: Lens_' AuthenticationV1TokenRequest (Maybe Text) -authenticationV1TokenRequestKindL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestKind -> AuthenticationV1TokenRequest { authenticationV1TokenRequestKind, ..} ) <$> f authenticationV1TokenRequestKind -{-# INLINE authenticationV1TokenRequestKindL #-} - --- | 'authenticationV1TokenRequestMetadata' Lens -authenticationV1TokenRequestMetadataL :: Lens_' AuthenticationV1TokenRequest (Maybe V1ObjectMeta) -authenticationV1TokenRequestMetadataL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestMetadata -> AuthenticationV1TokenRequest { authenticationV1TokenRequestMetadata, ..} ) <$> f authenticationV1TokenRequestMetadata -{-# INLINE authenticationV1TokenRequestMetadataL #-} - --- | 'authenticationV1TokenRequestSpec' Lens -authenticationV1TokenRequestSpecL :: Lens_' AuthenticationV1TokenRequest (V1TokenRequestSpec) -authenticationV1TokenRequestSpecL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestSpec -> AuthenticationV1TokenRequest { authenticationV1TokenRequestSpec, ..} ) <$> f authenticationV1TokenRequestSpec -{-# INLINE authenticationV1TokenRequestSpecL #-} - --- | 'authenticationV1TokenRequestStatus' Lens -authenticationV1TokenRequestStatusL :: Lens_' AuthenticationV1TokenRequest (Maybe V1TokenRequestStatus) -authenticationV1TokenRequestStatusL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestStatus -> AuthenticationV1TokenRequest { authenticationV1TokenRequestStatus, ..} ) <$> f authenticationV1TokenRequestStatus -{-# INLINE authenticationV1TokenRequestStatusL #-} - - - --- * CoreV1EndpointPort - --- | 'coreV1EndpointPortAppProtocol' Lens -coreV1EndpointPortAppProtocolL :: Lens_' CoreV1EndpointPort (Maybe Text) -coreV1EndpointPortAppProtocolL f CoreV1EndpointPort{..} = (\coreV1EndpointPortAppProtocol -> CoreV1EndpointPort { coreV1EndpointPortAppProtocol, ..} ) <$> f coreV1EndpointPortAppProtocol -{-# INLINE coreV1EndpointPortAppProtocolL #-} - --- | 'coreV1EndpointPortName' Lens -coreV1EndpointPortNameL :: Lens_' CoreV1EndpointPort (Maybe Text) -coreV1EndpointPortNameL f CoreV1EndpointPort{..} = (\coreV1EndpointPortName -> CoreV1EndpointPort { coreV1EndpointPortName, ..} ) <$> f coreV1EndpointPortName -{-# INLINE coreV1EndpointPortNameL #-} - --- | 'coreV1EndpointPortPort' Lens -coreV1EndpointPortPortL :: Lens_' CoreV1EndpointPort (Int) -coreV1EndpointPortPortL f CoreV1EndpointPort{..} = (\coreV1EndpointPortPort -> CoreV1EndpointPort { coreV1EndpointPortPort, ..} ) <$> f coreV1EndpointPortPort -{-# INLINE coreV1EndpointPortPortL #-} - --- | 'coreV1EndpointPortProtocol' Lens -coreV1EndpointPortProtocolL :: Lens_' CoreV1EndpointPort (Maybe Text) -coreV1EndpointPortProtocolL f CoreV1EndpointPort{..} = (\coreV1EndpointPortProtocol -> CoreV1EndpointPort { coreV1EndpointPortProtocol, ..} ) <$> f coreV1EndpointPortProtocol -{-# INLINE coreV1EndpointPortProtocolL #-} - - - --- * CoreV1Event - --- | 'coreV1EventAction' Lens -coreV1EventActionL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventActionL f CoreV1Event{..} = (\coreV1EventAction -> CoreV1Event { coreV1EventAction, ..} ) <$> f coreV1EventAction -{-# INLINE coreV1EventActionL #-} - --- | 'coreV1EventApiVersion' Lens -coreV1EventApiVersionL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventApiVersionL f CoreV1Event{..} = (\coreV1EventApiVersion -> CoreV1Event { coreV1EventApiVersion, ..} ) <$> f coreV1EventApiVersion -{-# INLINE coreV1EventApiVersionL #-} - --- | 'coreV1EventCount' Lens -coreV1EventCountL :: Lens_' CoreV1Event (Maybe Int) -coreV1EventCountL f CoreV1Event{..} = (\coreV1EventCount -> CoreV1Event { coreV1EventCount, ..} ) <$> f coreV1EventCount -{-# INLINE coreV1EventCountL #-} - --- | 'coreV1EventEventTime' Lens -coreV1EventEventTimeL :: Lens_' CoreV1Event (Maybe DateTime) -coreV1EventEventTimeL f CoreV1Event{..} = (\coreV1EventEventTime -> CoreV1Event { coreV1EventEventTime, ..} ) <$> f coreV1EventEventTime -{-# INLINE coreV1EventEventTimeL #-} - --- | 'coreV1EventFirstTimestamp' Lens -coreV1EventFirstTimestampL :: Lens_' CoreV1Event (Maybe DateTime) -coreV1EventFirstTimestampL f CoreV1Event{..} = (\coreV1EventFirstTimestamp -> CoreV1Event { coreV1EventFirstTimestamp, ..} ) <$> f coreV1EventFirstTimestamp -{-# INLINE coreV1EventFirstTimestampL #-} - --- | 'coreV1EventInvolvedObject' Lens -coreV1EventInvolvedObjectL :: Lens_' CoreV1Event (V1ObjectReference) -coreV1EventInvolvedObjectL f CoreV1Event{..} = (\coreV1EventInvolvedObject -> CoreV1Event { coreV1EventInvolvedObject, ..} ) <$> f coreV1EventInvolvedObject -{-# INLINE coreV1EventInvolvedObjectL #-} - --- | 'coreV1EventKind' Lens -coreV1EventKindL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventKindL f CoreV1Event{..} = (\coreV1EventKind -> CoreV1Event { coreV1EventKind, ..} ) <$> f coreV1EventKind -{-# INLINE coreV1EventKindL #-} - --- | 'coreV1EventLastTimestamp' Lens -coreV1EventLastTimestampL :: Lens_' CoreV1Event (Maybe DateTime) -coreV1EventLastTimestampL f CoreV1Event{..} = (\coreV1EventLastTimestamp -> CoreV1Event { coreV1EventLastTimestamp, ..} ) <$> f coreV1EventLastTimestamp -{-# INLINE coreV1EventLastTimestampL #-} - --- | 'coreV1EventMessage' Lens -coreV1EventMessageL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventMessageL f CoreV1Event{..} = (\coreV1EventMessage -> CoreV1Event { coreV1EventMessage, ..} ) <$> f coreV1EventMessage -{-# INLINE coreV1EventMessageL #-} - --- | 'coreV1EventMetadata' Lens -coreV1EventMetadataL :: Lens_' CoreV1Event (V1ObjectMeta) -coreV1EventMetadataL f CoreV1Event{..} = (\coreV1EventMetadata -> CoreV1Event { coreV1EventMetadata, ..} ) <$> f coreV1EventMetadata -{-# INLINE coreV1EventMetadataL #-} - --- | 'coreV1EventReason' Lens -coreV1EventReasonL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventReasonL f CoreV1Event{..} = (\coreV1EventReason -> CoreV1Event { coreV1EventReason, ..} ) <$> f coreV1EventReason -{-# INLINE coreV1EventReasonL #-} - --- | 'coreV1EventRelated' Lens -coreV1EventRelatedL :: Lens_' CoreV1Event (Maybe V1ObjectReference) -coreV1EventRelatedL f CoreV1Event{..} = (\coreV1EventRelated -> CoreV1Event { coreV1EventRelated, ..} ) <$> f coreV1EventRelated -{-# INLINE coreV1EventRelatedL #-} - --- | 'coreV1EventReportingComponent' Lens -coreV1EventReportingComponentL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventReportingComponentL f CoreV1Event{..} = (\coreV1EventReportingComponent -> CoreV1Event { coreV1EventReportingComponent, ..} ) <$> f coreV1EventReportingComponent -{-# INLINE coreV1EventReportingComponentL #-} - --- | 'coreV1EventReportingInstance' Lens -coreV1EventReportingInstanceL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventReportingInstanceL f CoreV1Event{..} = (\coreV1EventReportingInstance -> CoreV1Event { coreV1EventReportingInstance, ..} ) <$> f coreV1EventReportingInstance -{-# INLINE coreV1EventReportingInstanceL #-} - --- | 'coreV1EventSeries' Lens -coreV1EventSeriesL :: Lens_' CoreV1Event (Maybe CoreV1EventSeries) -coreV1EventSeriesL f CoreV1Event{..} = (\coreV1EventSeries -> CoreV1Event { coreV1EventSeries, ..} ) <$> f coreV1EventSeries -{-# INLINE coreV1EventSeriesL #-} - --- | 'coreV1EventSource' Lens -coreV1EventSourceL :: Lens_' CoreV1Event (Maybe V1EventSource) -coreV1EventSourceL f CoreV1Event{..} = (\coreV1EventSource -> CoreV1Event { coreV1EventSource, ..} ) <$> f coreV1EventSource -{-# INLINE coreV1EventSourceL #-} - --- | 'coreV1EventType' Lens -coreV1EventTypeL :: Lens_' CoreV1Event (Maybe Text) -coreV1EventTypeL f CoreV1Event{..} = (\coreV1EventType -> CoreV1Event { coreV1EventType, ..} ) <$> f coreV1EventType -{-# INLINE coreV1EventTypeL #-} - - - --- * CoreV1EventList - --- | 'coreV1EventListApiVersion' Lens -coreV1EventListApiVersionL :: Lens_' CoreV1EventList (Maybe Text) -coreV1EventListApiVersionL f CoreV1EventList{..} = (\coreV1EventListApiVersion -> CoreV1EventList { coreV1EventListApiVersion, ..} ) <$> f coreV1EventListApiVersion -{-# INLINE coreV1EventListApiVersionL #-} - --- | 'coreV1EventListItems' Lens -coreV1EventListItemsL :: Lens_' CoreV1EventList ([CoreV1Event]) -coreV1EventListItemsL f CoreV1EventList{..} = (\coreV1EventListItems -> CoreV1EventList { coreV1EventListItems, ..} ) <$> f coreV1EventListItems -{-# INLINE coreV1EventListItemsL #-} - --- | 'coreV1EventListKind' Lens -coreV1EventListKindL :: Lens_' CoreV1EventList (Maybe Text) -coreV1EventListKindL f CoreV1EventList{..} = (\coreV1EventListKind -> CoreV1EventList { coreV1EventListKind, ..} ) <$> f coreV1EventListKind -{-# INLINE coreV1EventListKindL #-} - --- | 'coreV1EventListMetadata' Lens -coreV1EventListMetadataL :: Lens_' CoreV1EventList (Maybe V1ListMeta) -coreV1EventListMetadataL f CoreV1EventList{..} = (\coreV1EventListMetadata -> CoreV1EventList { coreV1EventListMetadata, ..} ) <$> f coreV1EventListMetadata -{-# INLINE coreV1EventListMetadataL #-} - - - --- * CoreV1EventSeries - --- | 'coreV1EventSeriesCount' Lens -coreV1EventSeriesCountL :: Lens_' CoreV1EventSeries (Maybe Int) -coreV1EventSeriesCountL f CoreV1EventSeries{..} = (\coreV1EventSeriesCount -> CoreV1EventSeries { coreV1EventSeriesCount, ..} ) <$> f coreV1EventSeriesCount -{-# INLINE coreV1EventSeriesCountL #-} - --- | 'coreV1EventSeriesLastObservedTime' Lens -coreV1EventSeriesLastObservedTimeL :: Lens_' CoreV1EventSeries (Maybe DateTime) -coreV1EventSeriesLastObservedTimeL f CoreV1EventSeries{..} = (\coreV1EventSeriesLastObservedTime -> CoreV1EventSeries { coreV1EventSeriesLastObservedTime, ..} ) <$> f coreV1EventSeriesLastObservedTime -{-# INLINE coreV1EventSeriesLastObservedTimeL #-} - - - --- * DiscoveryV1EndpointPort - --- | 'discoveryV1EndpointPortAppProtocol' Lens -discoveryV1EndpointPortAppProtocolL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) -discoveryV1EndpointPortAppProtocolL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortAppProtocol -> DiscoveryV1EndpointPort { discoveryV1EndpointPortAppProtocol, ..} ) <$> f discoveryV1EndpointPortAppProtocol -{-# INLINE discoveryV1EndpointPortAppProtocolL #-} - --- | 'discoveryV1EndpointPortName' Lens -discoveryV1EndpointPortNameL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) -discoveryV1EndpointPortNameL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortName -> DiscoveryV1EndpointPort { discoveryV1EndpointPortName, ..} ) <$> f discoveryV1EndpointPortName -{-# INLINE discoveryV1EndpointPortNameL #-} - --- | 'discoveryV1EndpointPortPort' Lens -discoveryV1EndpointPortPortL :: Lens_' DiscoveryV1EndpointPort (Maybe Int) -discoveryV1EndpointPortPortL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortPort -> DiscoveryV1EndpointPort { discoveryV1EndpointPortPort, ..} ) <$> f discoveryV1EndpointPortPort -{-# INLINE discoveryV1EndpointPortPortL #-} - --- | 'discoveryV1EndpointPortProtocol' Lens -discoveryV1EndpointPortProtocolL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) -discoveryV1EndpointPortProtocolL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortProtocol -> DiscoveryV1EndpointPort { discoveryV1EndpointPortProtocol, ..} ) <$> f discoveryV1EndpointPortProtocol -{-# INLINE discoveryV1EndpointPortProtocolL #-} - - - --- * EventsV1Event - --- | 'eventsV1EventAction' Lens -eventsV1EventActionL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventActionL f EventsV1Event{..} = (\eventsV1EventAction -> EventsV1Event { eventsV1EventAction, ..} ) <$> f eventsV1EventAction -{-# INLINE eventsV1EventActionL #-} - --- | 'eventsV1EventApiVersion' Lens -eventsV1EventApiVersionL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventApiVersionL f EventsV1Event{..} = (\eventsV1EventApiVersion -> EventsV1Event { eventsV1EventApiVersion, ..} ) <$> f eventsV1EventApiVersion -{-# INLINE eventsV1EventApiVersionL #-} - --- | 'eventsV1EventDeprecatedCount' Lens -eventsV1EventDeprecatedCountL :: Lens_' EventsV1Event (Maybe Int) -eventsV1EventDeprecatedCountL f EventsV1Event{..} = (\eventsV1EventDeprecatedCount -> EventsV1Event { eventsV1EventDeprecatedCount, ..} ) <$> f eventsV1EventDeprecatedCount -{-# INLINE eventsV1EventDeprecatedCountL #-} - --- | 'eventsV1EventDeprecatedFirstTimestamp' Lens -eventsV1EventDeprecatedFirstTimestampL :: Lens_' EventsV1Event (Maybe DateTime) -eventsV1EventDeprecatedFirstTimestampL f EventsV1Event{..} = (\eventsV1EventDeprecatedFirstTimestamp -> EventsV1Event { eventsV1EventDeprecatedFirstTimestamp, ..} ) <$> f eventsV1EventDeprecatedFirstTimestamp -{-# INLINE eventsV1EventDeprecatedFirstTimestampL #-} - --- | 'eventsV1EventDeprecatedLastTimestamp' Lens -eventsV1EventDeprecatedLastTimestampL :: Lens_' EventsV1Event (Maybe DateTime) -eventsV1EventDeprecatedLastTimestampL f EventsV1Event{..} = (\eventsV1EventDeprecatedLastTimestamp -> EventsV1Event { eventsV1EventDeprecatedLastTimestamp, ..} ) <$> f eventsV1EventDeprecatedLastTimestamp -{-# INLINE eventsV1EventDeprecatedLastTimestampL #-} - --- | 'eventsV1EventDeprecatedSource' Lens -eventsV1EventDeprecatedSourceL :: Lens_' EventsV1Event (Maybe V1EventSource) -eventsV1EventDeprecatedSourceL f EventsV1Event{..} = (\eventsV1EventDeprecatedSource -> EventsV1Event { eventsV1EventDeprecatedSource, ..} ) <$> f eventsV1EventDeprecatedSource -{-# INLINE eventsV1EventDeprecatedSourceL #-} - --- | 'eventsV1EventEventTime' Lens -eventsV1EventEventTimeL :: Lens_' EventsV1Event (DateTime) -eventsV1EventEventTimeL f EventsV1Event{..} = (\eventsV1EventEventTime -> EventsV1Event { eventsV1EventEventTime, ..} ) <$> f eventsV1EventEventTime -{-# INLINE eventsV1EventEventTimeL #-} - --- | 'eventsV1EventKind' Lens -eventsV1EventKindL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventKindL f EventsV1Event{..} = (\eventsV1EventKind -> EventsV1Event { eventsV1EventKind, ..} ) <$> f eventsV1EventKind -{-# INLINE eventsV1EventKindL #-} - --- | 'eventsV1EventMetadata' Lens -eventsV1EventMetadataL :: Lens_' EventsV1Event (Maybe V1ObjectMeta) -eventsV1EventMetadataL f EventsV1Event{..} = (\eventsV1EventMetadata -> EventsV1Event { eventsV1EventMetadata, ..} ) <$> f eventsV1EventMetadata -{-# INLINE eventsV1EventMetadataL #-} - --- | 'eventsV1EventNote' Lens -eventsV1EventNoteL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventNoteL f EventsV1Event{..} = (\eventsV1EventNote -> EventsV1Event { eventsV1EventNote, ..} ) <$> f eventsV1EventNote -{-# INLINE eventsV1EventNoteL #-} - --- | 'eventsV1EventReason' Lens -eventsV1EventReasonL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventReasonL f EventsV1Event{..} = (\eventsV1EventReason -> EventsV1Event { eventsV1EventReason, ..} ) <$> f eventsV1EventReason -{-# INLINE eventsV1EventReasonL #-} - --- | 'eventsV1EventRegarding' Lens -eventsV1EventRegardingL :: Lens_' EventsV1Event (Maybe V1ObjectReference) -eventsV1EventRegardingL f EventsV1Event{..} = (\eventsV1EventRegarding -> EventsV1Event { eventsV1EventRegarding, ..} ) <$> f eventsV1EventRegarding -{-# INLINE eventsV1EventRegardingL #-} - --- | 'eventsV1EventRelated' Lens -eventsV1EventRelatedL :: Lens_' EventsV1Event (Maybe V1ObjectReference) -eventsV1EventRelatedL f EventsV1Event{..} = (\eventsV1EventRelated -> EventsV1Event { eventsV1EventRelated, ..} ) <$> f eventsV1EventRelated -{-# INLINE eventsV1EventRelatedL #-} - --- | 'eventsV1EventReportingController' Lens -eventsV1EventReportingControllerL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventReportingControllerL f EventsV1Event{..} = (\eventsV1EventReportingController -> EventsV1Event { eventsV1EventReportingController, ..} ) <$> f eventsV1EventReportingController -{-# INLINE eventsV1EventReportingControllerL #-} - --- | 'eventsV1EventReportingInstance' Lens -eventsV1EventReportingInstanceL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventReportingInstanceL f EventsV1Event{..} = (\eventsV1EventReportingInstance -> EventsV1Event { eventsV1EventReportingInstance, ..} ) <$> f eventsV1EventReportingInstance -{-# INLINE eventsV1EventReportingInstanceL #-} - --- | 'eventsV1EventSeries' Lens -eventsV1EventSeriesL :: Lens_' EventsV1Event (Maybe EventsV1EventSeries) -eventsV1EventSeriesL f EventsV1Event{..} = (\eventsV1EventSeries -> EventsV1Event { eventsV1EventSeries, ..} ) <$> f eventsV1EventSeries -{-# INLINE eventsV1EventSeriesL #-} - --- | 'eventsV1EventType' Lens -eventsV1EventTypeL :: Lens_' EventsV1Event (Maybe Text) -eventsV1EventTypeL f EventsV1Event{..} = (\eventsV1EventType -> EventsV1Event { eventsV1EventType, ..} ) <$> f eventsV1EventType -{-# INLINE eventsV1EventTypeL #-} - - - --- * EventsV1EventList - --- | 'eventsV1EventListApiVersion' Lens -eventsV1EventListApiVersionL :: Lens_' EventsV1EventList (Maybe Text) -eventsV1EventListApiVersionL f EventsV1EventList{..} = (\eventsV1EventListApiVersion -> EventsV1EventList { eventsV1EventListApiVersion, ..} ) <$> f eventsV1EventListApiVersion -{-# INLINE eventsV1EventListApiVersionL #-} - --- | 'eventsV1EventListItems' Lens -eventsV1EventListItemsL :: Lens_' EventsV1EventList ([EventsV1Event]) -eventsV1EventListItemsL f EventsV1EventList{..} = (\eventsV1EventListItems -> EventsV1EventList { eventsV1EventListItems, ..} ) <$> f eventsV1EventListItems -{-# INLINE eventsV1EventListItemsL #-} - --- | 'eventsV1EventListKind' Lens -eventsV1EventListKindL :: Lens_' EventsV1EventList (Maybe Text) -eventsV1EventListKindL f EventsV1EventList{..} = (\eventsV1EventListKind -> EventsV1EventList { eventsV1EventListKind, ..} ) <$> f eventsV1EventListKind -{-# INLINE eventsV1EventListKindL #-} - --- | 'eventsV1EventListMetadata' Lens -eventsV1EventListMetadataL :: Lens_' EventsV1EventList (Maybe V1ListMeta) -eventsV1EventListMetadataL f EventsV1EventList{..} = (\eventsV1EventListMetadata -> EventsV1EventList { eventsV1EventListMetadata, ..} ) <$> f eventsV1EventListMetadata -{-# INLINE eventsV1EventListMetadataL #-} - - - --- * EventsV1EventSeries - --- | 'eventsV1EventSeriesCount' Lens -eventsV1EventSeriesCountL :: Lens_' EventsV1EventSeries (Int) -eventsV1EventSeriesCountL f EventsV1EventSeries{..} = (\eventsV1EventSeriesCount -> EventsV1EventSeries { eventsV1EventSeriesCount, ..} ) <$> f eventsV1EventSeriesCount -{-# INLINE eventsV1EventSeriesCountL #-} - --- | 'eventsV1EventSeriesLastObservedTime' Lens -eventsV1EventSeriesLastObservedTimeL :: Lens_' EventsV1EventSeries (DateTime) -eventsV1EventSeriesLastObservedTimeL f EventsV1EventSeries{..} = (\eventsV1EventSeriesLastObservedTime -> EventsV1EventSeries { eventsV1EventSeriesLastObservedTime, ..} ) <$> f eventsV1EventSeriesLastObservedTime -{-# INLINE eventsV1EventSeriesLastObservedTimeL #-} - - - --- * StorageV1TokenRequest - --- | 'storageV1TokenRequestAudience' Lens -storageV1TokenRequestAudienceL :: Lens_' StorageV1TokenRequest (Text) -storageV1TokenRequestAudienceL f StorageV1TokenRequest{..} = (\storageV1TokenRequestAudience -> StorageV1TokenRequest { storageV1TokenRequestAudience, ..} ) <$> f storageV1TokenRequestAudience -{-# INLINE storageV1TokenRequestAudienceL #-} - --- | 'storageV1TokenRequestExpirationSeconds' Lens -storageV1TokenRequestExpirationSecondsL :: Lens_' StorageV1TokenRequest (Maybe Integer) -storageV1TokenRequestExpirationSecondsL f StorageV1TokenRequest{..} = (\storageV1TokenRequestExpirationSeconds -> StorageV1TokenRequest { storageV1TokenRequestExpirationSeconds, ..} ) <$> f storageV1TokenRequestExpirationSeconds -{-# INLINE storageV1TokenRequestExpirationSecondsL #-} - - - --- * V1APIGroup - --- | 'v1APIGroupApiVersion' Lens -v1APIGroupApiVersionL :: Lens_' V1APIGroup (Maybe Text) -v1APIGroupApiVersionL f V1APIGroup{..} = (\v1APIGroupApiVersion -> V1APIGroup { v1APIGroupApiVersion, ..} ) <$> f v1APIGroupApiVersion -{-# INLINE v1APIGroupApiVersionL #-} - --- | 'v1APIGroupKind' Lens -v1APIGroupKindL :: Lens_' V1APIGroup (Maybe Text) -v1APIGroupKindL f V1APIGroup{..} = (\v1APIGroupKind -> V1APIGroup { v1APIGroupKind, ..} ) <$> f v1APIGroupKind -{-# INLINE v1APIGroupKindL #-} - --- | 'v1APIGroupName' Lens -v1APIGroupNameL :: Lens_' V1APIGroup (Text) -v1APIGroupNameL f V1APIGroup{..} = (\v1APIGroupName -> V1APIGroup { v1APIGroupName, ..} ) <$> f v1APIGroupName -{-# INLINE v1APIGroupNameL #-} - --- | 'v1APIGroupPreferredVersion' Lens -v1APIGroupPreferredVersionL :: Lens_' V1APIGroup (Maybe V1GroupVersionForDiscovery) -v1APIGroupPreferredVersionL f V1APIGroup{..} = (\v1APIGroupPreferredVersion -> V1APIGroup { v1APIGroupPreferredVersion, ..} ) <$> f v1APIGroupPreferredVersion -{-# INLINE v1APIGroupPreferredVersionL #-} - --- | 'v1APIGroupServerAddressByClientCidrs' Lens -v1APIGroupServerAddressByClientCidrsL :: Lens_' V1APIGroup (Maybe [V1ServerAddressByClientCIDR]) -v1APIGroupServerAddressByClientCidrsL f V1APIGroup{..} = (\v1APIGroupServerAddressByClientCidrs -> V1APIGroup { v1APIGroupServerAddressByClientCidrs, ..} ) <$> f v1APIGroupServerAddressByClientCidrs -{-# INLINE v1APIGroupServerAddressByClientCidrsL #-} - --- | 'v1APIGroupVersions' Lens -v1APIGroupVersionsL :: Lens_' V1APIGroup ([V1GroupVersionForDiscovery]) -v1APIGroupVersionsL f V1APIGroup{..} = (\v1APIGroupVersions -> V1APIGroup { v1APIGroupVersions, ..} ) <$> f v1APIGroupVersions -{-# INLINE v1APIGroupVersionsL #-} - - - --- * V1APIGroupList - --- | 'v1APIGroupListApiVersion' Lens -v1APIGroupListApiVersionL :: Lens_' V1APIGroupList (Maybe Text) -v1APIGroupListApiVersionL f V1APIGroupList{..} = (\v1APIGroupListApiVersion -> V1APIGroupList { v1APIGroupListApiVersion, ..} ) <$> f v1APIGroupListApiVersion -{-# INLINE v1APIGroupListApiVersionL #-} - --- | 'v1APIGroupListGroups' Lens -v1APIGroupListGroupsL :: Lens_' V1APIGroupList ([V1APIGroup]) -v1APIGroupListGroupsL f V1APIGroupList{..} = (\v1APIGroupListGroups -> V1APIGroupList { v1APIGroupListGroups, ..} ) <$> f v1APIGroupListGroups -{-# INLINE v1APIGroupListGroupsL #-} - --- | 'v1APIGroupListKind' Lens -v1APIGroupListKindL :: Lens_' V1APIGroupList (Maybe Text) -v1APIGroupListKindL f V1APIGroupList{..} = (\v1APIGroupListKind -> V1APIGroupList { v1APIGroupListKind, ..} ) <$> f v1APIGroupListKind -{-# INLINE v1APIGroupListKindL #-} - - - --- * V1APIResource - --- | 'v1APIResourceCategories' Lens -v1APIResourceCategoriesL :: Lens_' V1APIResource (Maybe [Text]) -v1APIResourceCategoriesL f V1APIResource{..} = (\v1APIResourceCategories -> V1APIResource { v1APIResourceCategories, ..} ) <$> f v1APIResourceCategories -{-# INLINE v1APIResourceCategoriesL #-} - --- | 'v1APIResourceGroup' Lens -v1APIResourceGroupL :: Lens_' V1APIResource (Maybe Text) -v1APIResourceGroupL f V1APIResource{..} = (\v1APIResourceGroup -> V1APIResource { v1APIResourceGroup, ..} ) <$> f v1APIResourceGroup -{-# INLINE v1APIResourceGroupL #-} - --- | 'v1APIResourceKind' Lens -v1APIResourceKindL :: Lens_' V1APIResource (Text) -v1APIResourceKindL f V1APIResource{..} = (\v1APIResourceKind -> V1APIResource { v1APIResourceKind, ..} ) <$> f v1APIResourceKind -{-# INLINE v1APIResourceKindL #-} - --- | 'v1APIResourceName' Lens -v1APIResourceNameL :: Lens_' V1APIResource (Text) -v1APIResourceNameL f V1APIResource{..} = (\v1APIResourceName -> V1APIResource { v1APIResourceName, ..} ) <$> f v1APIResourceName -{-# INLINE v1APIResourceNameL #-} - --- | 'v1APIResourceNamespaced' Lens -v1APIResourceNamespacedL :: Lens_' V1APIResource (Bool) -v1APIResourceNamespacedL f V1APIResource{..} = (\v1APIResourceNamespaced -> V1APIResource { v1APIResourceNamespaced, ..} ) <$> f v1APIResourceNamespaced -{-# INLINE v1APIResourceNamespacedL #-} - --- | 'v1APIResourceShortNames' Lens -v1APIResourceShortNamesL :: Lens_' V1APIResource (Maybe [Text]) -v1APIResourceShortNamesL f V1APIResource{..} = (\v1APIResourceShortNames -> V1APIResource { v1APIResourceShortNames, ..} ) <$> f v1APIResourceShortNames -{-# INLINE v1APIResourceShortNamesL #-} - --- | 'v1APIResourceSingularName' Lens -v1APIResourceSingularNameL :: Lens_' V1APIResource (Text) -v1APIResourceSingularNameL f V1APIResource{..} = (\v1APIResourceSingularName -> V1APIResource { v1APIResourceSingularName, ..} ) <$> f v1APIResourceSingularName -{-# INLINE v1APIResourceSingularNameL #-} - --- | 'v1APIResourceStorageVersionHash' Lens -v1APIResourceStorageVersionHashL :: Lens_' V1APIResource (Maybe Text) -v1APIResourceStorageVersionHashL f V1APIResource{..} = (\v1APIResourceStorageVersionHash -> V1APIResource { v1APIResourceStorageVersionHash, ..} ) <$> f v1APIResourceStorageVersionHash -{-# INLINE v1APIResourceStorageVersionHashL #-} - --- | 'v1APIResourceVerbs' Lens -v1APIResourceVerbsL :: Lens_' V1APIResource ([Text]) -v1APIResourceVerbsL f V1APIResource{..} = (\v1APIResourceVerbs -> V1APIResource { v1APIResourceVerbs, ..} ) <$> f v1APIResourceVerbs -{-# INLINE v1APIResourceVerbsL #-} - --- | 'v1APIResourceVersion' Lens -v1APIResourceVersionL :: Lens_' V1APIResource (Maybe Text) -v1APIResourceVersionL f V1APIResource{..} = (\v1APIResourceVersion -> V1APIResource { v1APIResourceVersion, ..} ) <$> f v1APIResourceVersion -{-# INLINE v1APIResourceVersionL #-} - - - --- * V1APIResourceList - --- | 'v1APIResourceListApiVersion' Lens -v1APIResourceListApiVersionL :: Lens_' V1APIResourceList (Maybe Text) -v1APIResourceListApiVersionL f V1APIResourceList{..} = (\v1APIResourceListApiVersion -> V1APIResourceList { v1APIResourceListApiVersion, ..} ) <$> f v1APIResourceListApiVersion -{-# INLINE v1APIResourceListApiVersionL #-} - --- | 'v1APIResourceListGroupVersion' Lens -v1APIResourceListGroupVersionL :: Lens_' V1APIResourceList (Text) -v1APIResourceListGroupVersionL f V1APIResourceList{..} = (\v1APIResourceListGroupVersion -> V1APIResourceList { v1APIResourceListGroupVersion, ..} ) <$> f v1APIResourceListGroupVersion -{-# INLINE v1APIResourceListGroupVersionL #-} - --- | 'v1APIResourceListKind' Lens -v1APIResourceListKindL :: Lens_' V1APIResourceList (Maybe Text) -v1APIResourceListKindL f V1APIResourceList{..} = (\v1APIResourceListKind -> V1APIResourceList { v1APIResourceListKind, ..} ) <$> f v1APIResourceListKind -{-# INLINE v1APIResourceListKindL #-} - --- | 'v1APIResourceListResources' Lens -v1APIResourceListResourcesL :: Lens_' V1APIResourceList ([V1APIResource]) -v1APIResourceListResourcesL f V1APIResourceList{..} = (\v1APIResourceListResources -> V1APIResourceList { v1APIResourceListResources, ..} ) <$> f v1APIResourceListResources -{-# INLINE v1APIResourceListResourcesL #-} - - - --- * V1APIService - --- | 'v1APIServiceApiVersion' Lens -v1APIServiceApiVersionL :: Lens_' V1APIService (Maybe Text) -v1APIServiceApiVersionL f V1APIService{..} = (\v1APIServiceApiVersion -> V1APIService { v1APIServiceApiVersion, ..} ) <$> f v1APIServiceApiVersion -{-# INLINE v1APIServiceApiVersionL #-} - --- | 'v1APIServiceKind' Lens -v1APIServiceKindL :: Lens_' V1APIService (Maybe Text) -v1APIServiceKindL f V1APIService{..} = (\v1APIServiceKind -> V1APIService { v1APIServiceKind, ..} ) <$> f v1APIServiceKind -{-# INLINE v1APIServiceKindL #-} - --- | 'v1APIServiceMetadata' Lens -v1APIServiceMetadataL :: Lens_' V1APIService (Maybe V1ObjectMeta) -v1APIServiceMetadataL f V1APIService{..} = (\v1APIServiceMetadata -> V1APIService { v1APIServiceMetadata, ..} ) <$> f v1APIServiceMetadata -{-# INLINE v1APIServiceMetadataL #-} - --- | 'v1APIServiceSpec' Lens -v1APIServiceSpecL :: Lens_' V1APIService (Maybe V1APIServiceSpec) -v1APIServiceSpecL f V1APIService{..} = (\v1APIServiceSpec -> V1APIService { v1APIServiceSpec, ..} ) <$> f v1APIServiceSpec -{-# INLINE v1APIServiceSpecL #-} - --- | 'v1APIServiceStatus' Lens -v1APIServiceStatusL :: Lens_' V1APIService (Maybe V1APIServiceStatus) -v1APIServiceStatusL f V1APIService{..} = (\v1APIServiceStatus -> V1APIService { v1APIServiceStatus, ..} ) <$> f v1APIServiceStatus -{-# INLINE v1APIServiceStatusL #-} - - - --- * V1APIServiceCondition - --- | 'v1APIServiceConditionLastTransitionTime' Lens -v1APIServiceConditionLastTransitionTimeL :: Lens_' V1APIServiceCondition (Maybe DateTime) -v1APIServiceConditionLastTransitionTimeL f V1APIServiceCondition{..} = (\v1APIServiceConditionLastTransitionTime -> V1APIServiceCondition { v1APIServiceConditionLastTransitionTime, ..} ) <$> f v1APIServiceConditionLastTransitionTime -{-# INLINE v1APIServiceConditionLastTransitionTimeL #-} - --- | 'v1APIServiceConditionMessage' Lens -v1APIServiceConditionMessageL :: Lens_' V1APIServiceCondition (Maybe Text) -v1APIServiceConditionMessageL f V1APIServiceCondition{..} = (\v1APIServiceConditionMessage -> V1APIServiceCondition { v1APIServiceConditionMessage, ..} ) <$> f v1APIServiceConditionMessage -{-# INLINE v1APIServiceConditionMessageL #-} - --- | 'v1APIServiceConditionReason' Lens -v1APIServiceConditionReasonL :: Lens_' V1APIServiceCondition (Maybe Text) -v1APIServiceConditionReasonL f V1APIServiceCondition{..} = (\v1APIServiceConditionReason -> V1APIServiceCondition { v1APIServiceConditionReason, ..} ) <$> f v1APIServiceConditionReason -{-# INLINE v1APIServiceConditionReasonL #-} - --- | 'v1APIServiceConditionStatus' Lens -v1APIServiceConditionStatusL :: Lens_' V1APIServiceCondition (Text) -v1APIServiceConditionStatusL f V1APIServiceCondition{..} = (\v1APIServiceConditionStatus -> V1APIServiceCondition { v1APIServiceConditionStatus, ..} ) <$> f v1APIServiceConditionStatus -{-# INLINE v1APIServiceConditionStatusL #-} - --- | 'v1APIServiceConditionType' Lens -v1APIServiceConditionTypeL :: Lens_' V1APIServiceCondition (Text) -v1APIServiceConditionTypeL f V1APIServiceCondition{..} = (\v1APIServiceConditionType -> V1APIServiceCondition { v1APIServiceConditionType, ..} ) <$> f v1APIServiceConditionType -{-# INLINE v1APIServiceConditionTypeL #-} - - - --- * V1APIServiceList - --- | 'v1APIServiceListApiVersion' Lens -v1APIServiceListApiVersionL :: Lens_' V1APIServiceList (Maybe Text) -v1APIServiceListApiVersionL f V1APIServiceList{..} = (\v1APIServiceListApiVersion -> V1APIServiceList { v1APIServiceListApiVersion, ..} ) <$> f v1APIServiceListApiVersion -{-# INLINE v1APIServiceListApiVersionL #-} - --- | 'v1APIServiceListItems' Lens -v1APIServiceListItemsL :: Lens_' V1APIServiceList ([V1APIService]) -v1APIServiceListItemsL f V1APIServiceList{..} = (\v1APIServiceListItems -> V1APIServiceList { v1APIServiceListItems, ..} ) <$> f v1APIServiceListItems -{-# INLINE v1APIServiceListItemsL #-} - --- | 'v1APIServiceListKind' Lens -v1APIServiceListKindL :: Lens_' V1APIServiceList (Maybe Text) -v1APIServiceListKindL f V1APIServiceList{..} = (\v1APIServiceListKind -> V1APIServiceList { v1APIServiceListKind, ..} ) <$> f v1APIServiceListKind -{-# INLINE v1APIServiceListKindL #-} - --- | 'v1APIServiceListMetadata' Lens -v1APIServiceListMetadataL :: Lens_' V1APIServiceList (Maybe V1ListMeta) -v1APIServiceListMetadataL f V1APIServiceList{..} = (\v1APIServiceListMetadata -> V1APIServiceList { v1APIServiceListMetadata, ..} ) <$> f v1APIServiceListMetadata -{-# INLINE v1APIServiceListMetadataL #-} - - - --- * V1APIServiceSpec - --- | 'v1APIServiceSpecCaBundle' Lens -v1APIServiceSpecCaBundleL :: Lens_' V1APIServiceSpec (Maybe ByteArray) -v1APIServiceSpecCaBundleL f V1APIServiceSpec{..} = (\v1APIServiceSpecCaBundle -> V1APIServiceSpec { v1APIServiceSpecCaBundle, ..} ) <$> f v1APIServiceSpecCaBundle -{-# INLINE v1APIServiceSpecCaBundleL #-} - --- | 'v1APIServiceSpecGroup' Lens -v1APIServiceSpecGroupL :: Lens_' V1APIServiceSpec (Maybe Text) -v1APIServiceSpecGroupL f V1APIServiceSpec{..} = (\v1APIServiceSpecGroup -> V1APIServiceSpec { v1APIServiceSpecGroup, ..} ) <$> f v1APIServiceSpecGroup -{-# INLINE v1APIServiceSpecGroupL #-} - --- | 'v1APIServiceSpecGroupPriorityMinimum' Lens -v1APIServiceSpecGroupPriorityMinimumL :: Lens_' V1APIServiceSpec (Int) -v1APIServiceSpecGroupPriorityMinimumL f V1APIServiceSpec{..} = (\v1APIServiceSpecGroupPriorityMinimum -> V1APIServiceSpec { v1APIServiceSpecGroupPriorityMinimum, ..} ) <$> f v1APIServiceSpecGroupPriorityMinimum -{-# INLINE v1APIServiceSpecGroupPriorityMinimumL #-} - --- | 'v1APIServiceSpecInsecureSkipTlsVerify' Lens -v1APIServiceSpecInsecureSkipTlsVerifyL :: Lens_' V1APIServiceSpec (Maybe Bool) -v1APIServiceSpecInsecureSkipTlsVerifyL f V1APIServiceSpec{..} = (\v1APIServiceSpecInsecureSkipTlsVerify -> V1APIServiceSpec { v1APIServiceSpecInsecureSkipTlsVerify, ..} ) <$> f v1APIServiceSpecInsecureSkipTlsVerify -{-# INLINE v1APIServiceSpecInsecureSkipTlsVerifyL #-} - --- | 'v1APIServiceSpecService' Lens -v1APIServiceSpecServiceL :: Lens_' V1APIServiceSpec (Maybe ApiregistrationV1ServiceReference) -v1APIServiceSpecServiceL f V1APIServiceSpec{..} = (\v1APIServiceSpecService -> V1APIServiceSpec { v1APIServiceSpecService, ..} ) <$> f v1APIServiceSpecService -{-# INLINE v1APIServiceSpecServiceL #-} - --- | 'v1APIServiceSpecVersion' Lens -v1APIServiceSpecVersionL :: Lens_' V1APIServiceSpec (Maybe Text) -v1APIServiceSpecVersionL f V1APIServiceSpec{..} = (\v1APIServiceSpecVersion -> V1APIServiceSpec { v1APIServiceSpecVersion, ..} ) <$> f v1APIServiceSpecVersion -{-# INLINE v1APIServiceSpecVersionL #-} - --- | 'v1APIServiceSpecVersionPriority' Lens -v1APIServiceSpecVersionPriorityL :: Lens_' V1APIServiceSpec (Int) -v1APIServiceSpecVersionPriorityL f V1APIServiceSpec{..} = (\v1APIServiceSpecVersionPriority -> V1APIServiceSpec { v1APIServiceSpecVersionPriority, ..} ) <$> f v1APIServiceSpecVersionPriority -{-# INLINE v1APIServiceSpecVersionPriorityL #-} - - - --- * V1APIServiceStatus - --- | 'v1APIServiceStatusConditions' Lens -v1APIServiceStatusConditionsL :: Lens_' V1APIServiceStatus (Maybe [V1APIServiceCondition]) -v1APIServiceStatusConditionsL f V1APIServiceStatus{..} = (\v1APIServiceStatusConditions -> V1APIServiceStatus { v1APIServiceStatusConditions, ..} ) <$> f v1APIServiceStatusConditions -{-# INLINE v1APIServiceStatusConditionsL #-} - - - --- * V1APIVersions - --- | 'v1APIVersionsApiVersion' Lens -v1APIVersionsApiVersionL :: Lens_' V1APIVersions (Maybe Text) -v1APIVersionsApiVersionL f V1APIVersions{..} = (\v1APIVersionsApiVersion -> V1APIVersions { v1APIVersionsApiVersion, ..} ) <$> f v1APIVersionsApiVersion -{-# INLINE v1APIVersionsApiVersionL #-} - --- | 'v1APIVersionsKind' Lens -v1APIVersionsKindL :: Lens_' V1APIVersions (Maybe Text) -v1APIVersionsKindL f V1APIVersions{..} = (\v1APIVersionsKind -> V1APIVersions { v1APIVersionsKind, ..} ) <$> f v1APIVersionsKind -{-# INLINE v1APIVersionsKindL #-} - --- | 'v1APIVersionsServerAddressByClientCidrs' Lens -v1APIVersionsServerAddressByClientCidrsL :: Lens_' V1APIVersions ([V1ServerAddressByClientCIDR]) -v1APIVersionsServerAddressByClientCidrsL f V1APIVersions{..} = (\v1APIVersionsServerAddressByClientCidrs -> V1APIVersions { v1APIVersionsServerAddressByClientCidrs, ..} ) <$> f v1APIVersionsServerAddressByClientCidrs -{-# INLINE v1APIVersionsServerAddressByClientCidrsL #-} - --- | 'v1APIVersionsVersions' Lens -v1APIVersionsVersionsL :: Lens_' V1APIVersions ([Text]) -v1APIVersionsVersionsL f V1APIVersions{..} = (\v1APIVersionsVersions -> V1APIVersions { v1APIVersionsVersions, ..} ) <$> f v1APIVersionsVersions -{-# INLINE v1APIVersionsVersionsL #-} - - - --- * V1AWSElasticBlockStoreVolumeSource - --- | 'v1AWSElasticBlockStoreVolumeSourceFsType' Lens -v1AWSElasticBlockStoreVolumeSourceFsTypeL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Text) -v1AWSElasticBlockStoreVolumeSourceFsTypeL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceFsType -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceFsType, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceFsType -{-# INLINE v1AWSElasticBlockStoreVolumeSourceFsTypeL #-} - --- | 'v1AWSElasticBlockStoreVolumeSourcePartition' Lens -v1AWSElasticBlockStoreVolumeSourcePartitionL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Int) -v1AWSElasticBlockStoreVolumeSourcePartitionL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourcePartition -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourcePartition, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourcePartition -{-# INLINE v1AWSElasticBlockStoreVolumeSourcePartitionL #-} - --- | 'v1AWSElasticBlockStoreVolumeSourceReadOnly' Lens -v1AWSElasticBlockStoreVolumeSourceReadOnlyL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Bool) -v1AWSElasticBlockStoreVolumeSourceReadOnlyL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceReadOnly -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceReadOnly, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceReadOnly -{-# INLINE v1AWSElasticBlockStoreVolumeSourceReadOnlyL #-} - --- | 'v1AWSElasticBlockStoreVolumeSourceVolumeId' Lens -v1AWSElasticBlockStoreVolumeSourceVolumeIdL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Text) -v1AWSElasticBlockStoreVolumeSourceVolumeIdL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceVolumeId -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceVolumeId, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceVolumeId -{-# INLINE v1AWSElasticBlockStoreVolumeSourceVolumeIdL #-} - - - --- * V1Affinity - --- | 'v1AffinityNodeAffinity' Lens -v1AffinityNodeAffinityL :: Lens_' V1Affinity (Maybe V1NodeAffinity) -v1AffinityNodeAffinityL f V1Affinity{..} = (\v1AffinityNodeAffinity -> V1Affinity { v1AffinityNodeAffinity, ..} ) <$> f v1AffinityNodeAffinity -{-# INLINE v1AffinityNodeAffinityL #-} - --- | 'v1AffinityPodAffinity' Lens -v1AffinityPodAffinityL :: Lens_' V1Affinity (Maybe V1PodAffinity) -v1AffinityPodAffinityL f V1Affinity{..} = (\v1AffinityPodAffinity -> V1Affinity { v1AffinityPodAffinity, ..} ) <$> f v1AffinityPodAffinity -{-# INLINE v1AffinityPodAffinityL #-} - --- | 'v1AffinityPodAntiAffinity' Lens -v1AffinityPodAntiAffinityL :: Lens_' V1Affinity (Maybe V1PodAntiAffinity) -v1AffinityPodAntiAffinityL f V1Affinity{..} = (\v1AffinityPodAntiAffinity -> V1Affinity { v1AffinityPodAntiAffinity, ..} ) <$> f v1AffinityPodAntiAffinity -{-# INLINE v1AffinityPodAntiAffinityL #-} - - - --- * V1AggregationRule - --- | 'v1AggregationRuleClusterRoleSelectors' Lens -v1AggregationRuleClusterRoleSelectorsL :: Lens_' V1AggregationRule (Maybe [V1LabelSelector]) -v1AggregationRuleClusterRoleSelectorsL f V1AggregationRule{..} = (\v1AggregationRuleClusterRoleSelectors -> V1AggregationRule { v1AggregationRuleClusterRoleSelectors, ..} ) <$> f v1AggregationRuleClusterRoleSelectors -{-# INLINE v1AggregationRuleClusterRoleSelectorsL #-} - - - --- * V1AttachedVolume - --- | 'v1AttachedVolumeDevicePath' Lens -v1AttachedVolumeDevicePathL :: Lens_' V1AttachedVolume (Text) -v1AttachedVolumeDevicePathL f V1AttachedVolume{..} = (\v1AttachedVolumeDevicePath -> V1AttachedVolume { v1AttachedVolumeDevicePath, ..} ) <$> f v1AttachedVolumeDevicePath -{-# INLINE v1AttachedVolumeDevicePathL #-} - --- | 'v1AttachedVolumeName' Lens -v1AttachedVolumeNameL :: Lens_' V1AttachedVolume (Text) -v1AttachedVolumeNameL f V1AttachedVolume{..} = (\v1AttachedVolumeName -> V1AttachedVolume { v1AttachedVolumeName, ..} ) <$> f v1AttachedVolumeName -{-# INLINE v1AttachedVolumeNameL #-} - - - --- * V1AzureDiskVolumeSource - --- | 'v1AzureDiskVolumeSourceCachingMode' Lens -v1AzureDiskVolumeSourceCachingModeL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) -v1AzureDiskVolumeSourceCachingModeL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceCachingMode -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceCachingMode, ..} ) <$> f v1AzureDiskVolumeSourceCachingMode -{-# INLINE v1AzureDiskVolumeSourceCachingModeL #-} - --- | 'v1AzureDiskVolumeSourceDiskName' Lens -v1AzureDiskVolumeSourceDiskNameL :: Lens_' V1AzureDiskVolumeSource (Text) -v1AzureDiskVolumeSourceDiskNameL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceDiskName -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceDiskName, ..} ) <$> f v1AzureDiskVolumeSourceDiskName -{-# INLINE v1AzureDiskVolumeSourceDiskNameL #-} - --- | 'v1AzureDiskVolumeSourceDiskUri' Lens -v1AzureDiskVolumeSourceDiskUriL :: Lens_' V1AzureDiskVolumeSource (Text) -v1AzureDiskVolumeSourceDiskUriL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceDiskUri -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceDiskUri, ..} ) <$> f v1AzureDiskVolumeSourceDiskUri -{-# INLINE v1AzureDiskVolumeSourceDiskUriL #-} - --- | 'v1AzureDiskVolumeSourceFsType' Lens -v1AzureDiskVolumeSourceFsTypeL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) -v1AzureDiskVolumeSourceFsTypeL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceFsType -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceFsType, ..} ) <$> f v1AzureDiskVolumeSourceFsType -{-# INLINE v1AzureDiskVolumeSourceFsTypeL #-} - --- | 'v1AzureDiskVolumeSourceKind' Lens -v1AzureDiskVolumeSourceKindL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) -v1AzureDiskVolumeSourceKindL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceKind -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceKind, ..} ) <$> f v1AzureDiskVolumeSourceKind -{-# INLINE v1AzureDiskVolumeSourceKindL #-} - --- | 'v1AzureDiskVolumeSourceReadOnly' Lens -v1AzureDiskVolumeSourceReadOnlyL :: Lens_' V1AzureDiskVolumeSource (Maybe Bool) -v1AzureDiskVolumeSourceReadOnlyL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceReadOnly -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceReadOnly, ..} ) <$> f v1AzureDiskVolumeSourceReadOnly -{-# INLINE v1AzureDiskVolumeSourceReadOnlyL #-} - - - --- * V1AzureFilePersistentVolumeSource - --- | 'v1AzureFilePersistentVolumeSourceReadOnly' Lens -v1AzureFilePersistentVolumeSourceReadOnlyL :: Lens_' V1AzureFilePersistentVolumeSource (Maybe Bool) -v1AzureFilePersistentVolumeSourceReadOnlyL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceReadOnly -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceReadOnly, ..} ) <$> f v1AzureFilePersistentVolumeSourceReadOnly -{-# INLINE v1AzureFilePersistentVolumeSourceReadOnlyL #-} - --- | 'v1AzureFilePersistentVolumeSourceSecretName' Lens -v1AzureFilePersistentVolumeSourceSecretNameL :: Lens_' V1AzureFilePersistentVolumeSource (Text) -v1AzureFilePersistentVolumeSourceSecretNameL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceSecretName -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceSecretName, ..} ) <$> f v1AzureFilePersistentVolumeSourceSecretName -{-# INLINE v1AzureFilePersistentVolumeSourceSecretNameL #-} - --- | 'v1AzureFilePersistentVolumeSourceSecretNamespace' Lens -v1AzureFilePersistentVolumeSourceSecretNamespaceL :: Lens_' V1AzureFilePersistentVolumeSource (Maybe Text) -v1AzureFilePersistentVolumeSourceSecretNamespaceL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceSecretNamespace -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceSecretNamespace, ..} ) <$> f v1AzureFilePersistentVolumeSourceSecretNamespace -{-# INLINE v1AzureFilePersistentVolumeSourceSecretNamespaceL #-} - --- | 'v1AzureFilePersistentVolumeSourceShareName' Lens -v1AzureFilePersistentVolumeSourceShareNameL :: Lens_' V1AzureFilePersistentVolumeSource (Text) -v1AzureFilePersistentVolumeSourceShareNameL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceShareName -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceShareName, ..} ) <$> f v1AzureFilePersistentVolumeSourceShareName -{-# INLINE v1AzureFilePersistentVolumeSourceShareNameL #-} - - - --- * V1AzureFileVolumeSource - --- | 'v1AzureFileVolumeSourceReadOnly' Lens -v1AzureFileVolumeSourceReadOnlyL :: Lens_' V1AzureFileVolumeSource (Maybe Bool) -v1AzureFileVolumeSourceReadOnlyL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceReadOnly -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceReadOnly, ..} ) <$> f v1AzureFileVolumeSourceReadOnly -{-# INLINE v1AzureFileVolumeSourceReadOnlyL #-} - --- | 'v1AzureFileVolumeSourceSecretName' Lens -v1AzureFileVolumeSourceSecretNameL :: Lens_' V1AzureFileVolumeSource (Text) -v1AzureFileVolumeSourceSecretNameL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceSecretName -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceSecretName, ..} ) <$> f v1AzureFileVolumeSourceSecretName -{-# INLINE v1AzureFileVolumeSourceSecretNameL #-} - --- | 'v1AzureFileVolumeSourceShareName' Lens -v1AzureFileVolumeSourceShareNameL :: Lens_' V1AzureFileVolumeSource (Text) -v1AzureFileVolumeSourceShareNameL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceShareName -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceShareName, ..} ) <$> f v1AzureFileVolumeSourceShareName -{-# INLINE v1AzureFileVolumeSourceShareNameL #-} - - - --- * V1Binding - --- | 'v1BindingApiVersion' Lens -v1BindingApiVersionL :: Lens_' V1Binding (Maybe Text) -v1BindingApiVersionL f V1Binding{..} = (\v1BindingApiVersion -> V1Binding { v1BindingApiVersion, ..} ) <$> f v1BindingApiVersion -{-# INLINE v1BindingApiVersionL #-} - --- | 'v1BindingKind' Lens -v1BindingKindL :: Lens_' V1Binding (Maybe Text) -v1BindingKindL f V1Binding{..} = (\v1BindingKind -> V1Binding { v1BindingKind, ..} ) <$> f v1BindingKind -{-# INLINE v1BindingKindL #-} - --- | 'v1BindingMetadata' Lens -v1BindingMetadataL :: Lens_' V1Binding (Maybe V1ObjectMeta) -v1BindingMetadataL f V1Binding{..} = (\v1BindingMetadata -> V1Binding { v1BindingMetadata, ..} ) <$> f v1BindingMetadata -{-# INLINE v1BindingMetadataL #-} - --- | 'v1BindingTarget' Lens -v1BindingTargetL :: Lens_' V1Binding (V1ObjectReference) -v1BindingTargetL f V1Binding{..} = (\v1BindingTarget -> V1Binding { v1BindingTarget, ..} ) <$> f v1BindingTarget -{-# INLINE v1BindingTargetL #-} - - - --- * V1BoundObjectReference - --- | 'v1BoundObjectReferenceApiVersion' Lens -v1BoundObjectReferenceApiVersionL :: Lens_' V1BoundObjectReference (Maybe Text) -v1BoundObjectReferenceApiVersionL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceApiVersion -> V1BoundObjectReference { v1BoundObjectReferenceApiVersion, ..} ) <$> f v1BoundObjectReferenceApiVersion -{-# INLINE v1BoundObjectReferenceApiVersionL #-} - --- | 'v1BoundObjectReferenceKind' Lens -v1BoundObjectReferenceKindL :: Lens_' V1BoundObjectReference (Maybe Text) -v1BoundObjectReferenceKindL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceKind -> V1BoundObjectReference { v1BoundObjectReferenceKind, ..} ) <$> f v1BoundObjectReferenceKind -{-# INLINE v1BoundObjectReferenceKindL #-} - --- | 'v1BoundObjectReferenceName' Lens -v1BoundObjectReferenceNameL :: Lens_' V1BoundObjectReference (Maybe Text) -v1BoundObjectReferenceNameL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceName -> V1BoundObjectReference { v1BoundObjectReferenceName, ..} ) <$> f v1BoundObjectReferenceName -{-# INLINE v1BoundObjectReferenceNameL #-} - --- | 'v1BoundObjectReferenceUid' Lens -v1BoundObjectReferenceUidL :: Lens_' V1BoundObjectReference (Maybe Text) -v1BoundObjectReferenceUidL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceUid -> V1BoundObjectReference { v1BoundObjectReferenceUid, ..} ) <$> f v1BoundObjectReferenceUid -{-# INLINE v1BoundObjectReferenceUidL #-} - - - --- * V1CSIDriver - --- | 'v1CSIDriverApiVersion' Lens -v1CSIDriverApiVersionL :: Lens_' V1CSIDriver (Maybe Text) -v1CSIDriverApiVersionL f V1CSIDriver{..} = (\v1CSIDriverApiVersion -> V1CSIDriver { v1CSIDriverApiVersion, ..} ) <$> f v1CSIDriverApiVersion -{-# INLINE v1CSIDriverApiVersionL #-} - --- | 'v1CSIDriverKind' Lens -v1CSIDriverKindL :: Lens_' V1CSIDriver (Maybe Text) -v1CSIDriverKindL f V1CSIDriver{..} = (\v1CSIDriverKind -> V1CSIDriver { v1CSIDriverKind, ..} ) <$> f v1CSIDriverKind -{-# INLINE v1CSIDriverKindL #-} - --- | 'v1CSIDriverMetadata' Lens -v1CSIDriverMetadataL :: Lens_' V1CSIDriver (Maybe V1ObjectMeta) -v1CSIDriverMetadataL f V1CSIDriver{..} = (\v1CSIDriverMetadata -> V1CSIDriver { v1CSIDriverMetadata, ..} ) <$> f v1CSIDriverMetadata -{-# INLINE v1CSIDriverMetadataL #-} - --- | 'v1CSIDriverSpec' Lens -v1CSIDriverSpecL :: Lens_' V1CSIDriver (V1CSIDriverSpec) -v1CSIDriverSpecL f V1CSIDriver{..} = (\v1CSIDriverSpec -> V1CSIDriver { v1CSIDriverSpec, ..} ) <$> f v1CSIDriverSpec -{-# INLINE v1CSIDriverSpecL #-} - - - --- * V1CSIDriverList - --- | 'v1CSIDriverListApiVersion' Lens -v1CSIDriverListApiVersionL :: Lens_' V1CSIDriverList (Maybe Text) -v1CSIDriverListApiVersionL f V1CSIDriverList{..} = (\v1CSIDriverListApiVersion -> V1CSIDriverList { v1CSIDriverListApiVersion, ..} ) <$> f v1CSIDriverListApiVersion -{-# INLINE v1CSIDriverListApiVersionL #-} - --- | 'v1CSIDriverListItems' Lens -v1CSIDriverListItemsL :: Lens_' V1CSIDriverList ([V1CSIDriver]) -v1CSIDriverListItemsL f V1CSIDriverList{..} = (\v1CSIDriverListItems -> V1CSIDriverList { v1CSIDriverListItems, ..} ) <$> f v1CSIDriverListItems -{-# INLINE v1CSIDriverListItemsL #-} - --- | 'v1CSIDriverListKind' Lens -v1CSIDriverListKindL :: Lens_' V1CSIDriverList (Maybe Text) -v1CSIDriverListKindL f V1CSIDriverList{..} = (\v1CSIDriverListKind -> V1CSIDriverList { v1CSIDriverListKind, ..} ) <$> f v1CSIDriverListKind -{-# INLINE v1CSIDriverListKindL #-} - --- | 'v1CSIDriverListMetadata' Lens -v1CSIDriverListMetadataL :: Lens_' V1CSIDriverList (Maybe V1ListMeta) -v1CSIDriverListMetadataL f V1CSIDriverList{..} = (\v1CSIDriverListMetadata -> V1CSIDriverList { v1CSIDriverListMetadata, ..} ) <$> f v1CSIDriverListMetadata -{-# INLINE v1CSIDriverListMetadataL #-} - - - --- * V1CSIDriverSpec - --- | 'v1CSIDriverSpecAttachRequired' Lens -v1CSIDriverSpecAttachRequiredL :: Lens_' V1CSIDriverSpec (Maybe Bool) -v1CSIDriverSpecAttachRequiredL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecAttachRequired -> V1CSIDriverSpec { v1CSIDriverSpecAttachRequired, ..} ) <$> f v1CSIDriverSpecAttachRequired -{-# INLINE v1CSIDriverSpecAttachRequiredL #-} - --- | 'v1CSIDriverSpecFsGroupPolicy' Lens -v1CSIDriverSpecFsGroupPolicyL :: Lens_' V1CSIDriverSpec (Maybe Text) -v1CSIDriverSpecFsGroupPolicyL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecFsGroupPolicy -> V1CSIDriverSpec { v1CSIDriverSpecFsGroupPolicy, ..} ) <$> f v1CSIDriverSpecFsGroupPolicy -{-# INLINE v1CSIDriverSpecFsGroupPolicyL #-} - --- | 'v1CSIDriverSpecPodInfoOnMount' Lens -v1CSIDriverSpecPodInfoOnMountL :: Lens_' V1CSIDriverSpec (Maybe Bool) -v1CSIDriverSpecPodInfoOnMountL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecPodInfoOnMount -> V1CSIDriverSpec { v1CSIDriverSpecPodInfoOnMount, ..} ) <$> f v1CSIDriverSpecPodInfoOnMount -{-# INLINE v1CSIDriverSpecPodInfoOnMountL #-} - --- | 'v1CSIDriverSpecRequiresRepublish' Lens -v1CSIDriverSpecRequiresRepublishL :: Lens_' V1CSIDriverSpec (Maybe Bool) -v1CSIDriverSpecRequiresRepublishL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecRequiresRepublish -> V1CSIDriverSpec { v1CSIDriverSpecRequiresRepublish, ..} ) <$> f v1CSIDriverSpecRequiresRepublish -{-# INLINE v1CSIDriverSpecRequiresRepublishL #-} - --- | 'v1CSIDriverSpecSeLinuxMount' Lens -v1CSIDriverSpecSeLinuxMountL :: Lens_' V1CSIDriverSpec (Maybe Bool) -v1CSIDriverSpecSeLinuxMountL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecSeLinuxMount -> V1CSIDriverSpec { v1CSIDriverSpecSeLinuxMount, ..} ) <$> f v1CSIDriverSpecSeLinuxMount -{-# INLINE v1CSIDriverSpecSeLinuxMountL #-} - --- | 'v1CSIDriverSpecStorageCapacity' Lens -v1CSIDriverSpecStorageCapacityL :: Lens_' V1CSIDriverSpec (Maybe Bool) -v1CSIDriverSpecStorageCapacityL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecStorageCapacity -> V1CSIDriverSpec { v1CSIDriverSpecStorageCapacity, ..} ) <$> f v1CSIDriverSpecStorageCapacity -{-# INLINE v1CSIDriverSpecStorageCapacityL #-} - --- | 'v1CSIDriverSpecTokenRequests' Lens -v1CSIDriverSpecTokenRequestsL :: Lens_' V1CSIDriverSpec (Maybe [StorageV1TokenRequest]) -v1CSIDriverSpecTokenRequestsL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecTokenRequests -> V1CSIDriverSpec { v1CSIDriverSpecTokenRequests, ..} ) <$> f v1CSIDriverSpecTokenRequests -{-# INLINE v1CSIDriverSpecTokenRequestsL #-} - --- | 'v1CSIDriverSpecVolumeLifecycleModes' Lens -v1CSIDriverSpecVolumeLifecycleModesL :: Lens_' V1CSIDriverSpec (Maybe [Text]) -v1CSIDriverSpecVolumeLifecycleModesL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecVolumeLifecycleModes -> V1CSIDriverSpec { v1CSIDriverSpecVolumeLifecycleModes, ..} ) <$> f v1CSIDriverSpecVolumeLifecycleModes -{-# INLINE v1CSIDriverSpecVolumeLifecycleModesL #-} - - - --- * V1CSINode - --- | 'v1CSINodeApiVersion' Lens -v1CSINodeApiVersionL :: Lens_' V1CSINode (Maybe Text) -v1CSINodeApiVersionL f V1CSINode{..} = (\v1CSINodeApiVersion -> V1CSINode { v1CSINodeApiVersion, ..} ) <$> f v1CSINodeApiVersion -{-# INLINE v1CSINodeApiVersionL #-} - --- | 'v1CSINodeKind' Lens -v1CSINodeKindL :: Lens_' V1CSINode (Maybe Text) -v1CSINodeKindL f V1CSINode{..} = (\v1CSINodeKind -> V1CSINode { v1CSINodeKind, ..} ) <$> f v1CSINodeKind -{-# INLINE v1CSINodeKindL #-} - --- | 'v1CSINodeMetadata' Lens -v1CSINodeMetadataL :: Lens_' V1CSINode (Maybe V1ObjectMeta) -v1CSINodeMetadataL f V1CSINode{..} = (\v1CSINodeMetadata -> V1CSINode { v1CSINodeMetadata, ..} ) <$> f v1CSINodeMetadata -{-# INLINE v1CSINodeMetadataL #-} - --- | 'v1CSINodeSpec' Lens -v1CSINodeSpecL :: Lens_' V1CSINode (V1CSINodeSpec) -v1CSINodeSpecL f V1CSINode{..} = (\v1CSINodeSpec -> V1CSINode { v1CSINodeSpec, ..} ) <$> f v1CSINodeSpec -{-# INLINE v1CSINodeSpecL #-} - - - --- * V1CSINodeDriver - --- | 'v1CSINodeDriverAllocatable' Lens -v1CSINodeDriverAllocatableL :: Lens_' V1CSINodeDriver (Maybe V1VolumeNodeResources) -v1CSINodeDriverAllocatableL f V1CSINodeDriver{..} = (\v1CSINodeDriverAllocatable -> V1CSINodeDriver { v1CSINodeDriverAllocatable, ..} ) <$> f v1CSINodeDriverAllocatable -{-# INLINE v1CSINodeDriverAllocatableL #-} - --- | 'v1CSINodeDriverName' Lens -v1CSINodeDriverNameL :: Lens_' V1CSINodeDriver (Text) -v1CSINodeDriverNameL f V1CSINodeDriver{..} = (\v1CSINodeDriverName -> V1CSINodeDriver { v1CSINodeDriverName, ..} ) <$> f v1CSINodeDriverName -{-# INLINE v1CSINodeDriverNameL #-} - --- | 'v1CSINodeDriverNodeId' Lens -v1CSINodeDriverNodeIdL :: Lens_' V1CSINodeDriver (Text) -v1CSINodeDriverNodeIdL f V1CSINodeDriver{..} = (\v1CSINodeDriverNodeId -> V1CSINodeDriver { v1CSINodeDriverNodeId, ..} ) <$> f v1CSINodeDriverNodeId -{-# INLINE v1CSINodeDriverNodeIdL #-} - --- | 'v1CSINodeDriverTopologyKeys' Lens -v1CSINodeDriverTopologyKeysL :: Lens_' V1CSINodeDriver (Maybe [Text]) -v1CSINodeDriverTopologyKeysL f V1CSINodeDriver{..} = (\v1CSINodeDriverTopologyKeys -> V1CSINodeDriver { v1CSINodeDriverTopologyKeys, ..} ) <$> f v1CSINodeDriverTopologyKeys -{-# INLINE v1CSINodeDriverTopologyKeysL #-} - - - --- * V1CSINodeList - --- | 'v1CSINodeListApiVersion' Lens -v1CSINodeListApiVersionL :: Lens_' V1CSINodeList (Maybe Text) -v1CSINodeListApiVersionL f V1CSINodeList{..} = (\v1CSINodeListApiVersion -> V1CSINodeList { v1CSINodeListApiVersion, ..} ) <$> f v1CSINodeListApiVersion -{-# INLINE v1CSINodeListApiVersionL #-} - --- | 'v1CSINodeListItems' Lens -v1CSINodeListItemsL :: Lens_' V1CSINodeList ([V1CSINode]) -v1CSINodeListItemsL f V1CSINodeList{..} = (\v1CSINodeListItems -> V1CSINodeList { v1CSINodeListItems, ..} ) <$> f v1CSINodeListItems -{-# INLINE v1CSINodeListItemsL #-} - --- | 'v1CSINodeListKind' Lens -v1CSINodeListKindL :: Lens_' V1CSINodeList (Maybe Text) -v1CSINodeListKindL f V1CSINodeList{..} = (\v1CSINodeListKind -> V1CSINodeList { v1CSINodeListKind, ..} ) <$> f v1CSINodeListKind -{-# INLINE v1CSINodeListKindL #-} - --- | 'v1CSINodeListMetadata' Lens -v1CSINodeListMetadataL :: Lens_' V1CSINodeList (Maybe V1ListMeta) -v1CSINodeListMetadataL f V1CSINodeList{..} = (\v1CSINodeListMetadata -> V1CSINodeList { v1CSINodeListMetadata, ..} ) <$> f v1CSINodeListMetadata -{-# INLINE v1CSINodeListMetadataL #-} - - - --- * V1CSINodeSpec - --- | 'v1CSINodeSpecDrivers' Lens -v1CSINodeSpecDriversL :: Lens_' V1CSINodeSpec ([V1CSINodeDriver]) -v1CSINodeSpecDriversL f V1CSINodeSpec{..} = (\v1CSINodeSpecDrivers -> V1CSINodeSpec { v1CSINodeSpecDrivers, ..} ) <$> f v1CSINodeSpecDrivers -{-# INLINE v1CSINodeSpecDriversL #-} - - - --- * V1CSIPersistentVolumeSource - --- | 'v1CSIPersistentVolumeSourceControllerExpandSecretRef' Lens -v1CSIPersistentVolumeSourceControllerExpandSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) -v1CSIPersistentVolumeSourceControllerExpandSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceControllerExpandSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceControllerExpandSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceControllerExpandSecretRef -{-# INLINE v1CSIPersistentVolumeSourceControllerExpandSecretRefL #-} - --- | 'v1CSIPersistentVolumeSourceControllerPublishSecretRef' Lens -v1CSIPersistentVolumeSourceControllerPublishSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) -v1CSIPersistentVolumeSourceControllerPublishSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceControllerPublishSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceControllerPublishSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceControllerPublishSecretRef -{-# INLINE v1CSIPersistentVolumeSourceControllerPublishSecretRefL #-} - --- | 'v1CSIPersistentVolumeSourceDriver' Lens -v1CSIPersistentVolumeSourceDriverL :: Lens_' V1CSIPersistentVolumeSource (Text) -v1CSIPersistentVolumeSourceDriverL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceDriver -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceDriver, ..} ) <$> f v1CSIPersistentVolumeSourceDriver -{-# INLINE v1CSIPersistentVolumeSourceDriverL #-} - --- | 'v1CSIPersistentVolumeSourceFsType' Lens -v1CSIPersistentVolumeSourceFsTypeL :: Lens_' V1CSIPersistentVolumeSource (Maybe Text) -v1CSIPersistentVolumeSourceFsTypeL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceFsType -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceFsType, ..} ) <$> f v1CSIPersistentVolumeSourceFsType -{-# INLINE v1CSIPersistentVolumeSourceFsTypeL #-} - --- | 'v1CSIPersistentVolumeSourceNodeExpandSecretRef' Lens -v1CSIPersistentVolumeSourceNodeExpandSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) -v1CSIPersistentVolumeSourceNodeExpandSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodeExpandSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodeExpandSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodeExpandSecretRef -{-# INLINE v1CSIPersistentVolumeSourceNodeExpandSecretRefL #-} - --- | 'v1CSIPersistentVolumeSourceNodePublishSecretRef' Lens -v1CSIPersistentVolumeSourceNodePublishSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) -v1CSIPersistentVolumeSourceNodePublishSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodePublishSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodePublishSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodePublishSecretRef -{-# INLINE v1CSIPersistentVolumeSourceNodePublishSecretRefL #-} - --- | 'v1CSIPersistentVolumeSourceNodeStageSecretRef' Lens -v1CSIPersistentVolumeSourceNodeStageSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) -v1CSIPersistentVolumeSourceNodeStageSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodeStageSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodeStageSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodeStageSecretRef -{-# INLINE v1CSIPersistentVolumeSourceNodeStageSecretRefL #-} - --- | 'v1CSIPersistentVolumeSourceReadOnly' Lens -v1CSIPersistentVolumeSourceReadOnlyL :: Lens_' V1CSIPersistentVolumeSource (Maybe Bool) -v1CSIPersistentVolumeSourceReadOnlyL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceReadOnly -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceReadOnly, ..} ) <$> f v1CSIPersistentVolumeSourceReadOnly -{-# INLINE v1CSIPersistentVolumeSourceReadOnlyL #-} - --- | 'v1CSIPersistentVolumeSourceVolumeAttributes' Lens -v1CSIPersistentVolumeSourceVolumeAttributesL :: Lens_' V1CSIPersistentVolumeSource (Maybe (Map.Map String Text)) -v1CSIPersistentVolumeSourceVolumeAttributesL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceVolumeAttributes -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceVolumeAttributes, ..} ) <$> f v1CSIPersistentVolumeSourceVolumeAttributes -{-# INLINE v1CSIPersistentVolumeSourceVolumeAttributesL #-} - --- | 'v1CSIPersistentVolumeSourceVolumeHandle' Lens -v1CSIPersistentVolumeSourceVolumeHandleL :: Lens_' V1CSIPersistentVolumeSource (Text) -v1CSIPersistentVolumeSourceVolumeHandleL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceVolumeHandle -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceVolumeHandle, ..} ) <$> f v1CSIPersistentVolumeSourceVolumeHandle -{-# INLINE v1CSIPersistentVolumeSourceVolumeHandleL #-} - - - --- * V1CSIStorageCapacity - --- | 'v1CSIStorageCapacityApiVersion' Lens -v1CSIStorageCapacityApiVersionL :: Lens_' V1CSIStorageCapacity (Maybe Text) -v1CSIStorageCapacityApiVersionL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityApiVersion -> V1CSIStorageCapacity { v1CSIStorageCapacityApiVersion, ..} ) <$> f v1CSIStorageCapacityApiVersion -{-# INLINE v1CSIStorageCapacityApiVersionL #-} - --- | 'v1CSIStorageCapacityCapacity' Lens -v1CSIStorageCapacityCapacityL :: Lens_' V1CSIStorageCapacity (Maybe Quantity) -v1CSIStorageCapacityCapacityL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityCapacity -> V1CSIStorageCapacity { v1CSIStorageCapacityCapacity, ..} ) <$> f v1CSIStorageCapacityCapacity -{-# INLINE v1CSIStorageCapacityCapacityL #-} - --- | 'v1CSIStorageCapacityKind' Lens -v1CSIStorageCapacityKindL :: Lens_' V1CSIStorageCapacity (Maybe Text) -v1CSIStorageCapacityKindL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityKind -> V1CSIStorageCapacity { v1CSIStorageCapacityKind, ..} ) <$> f v1CSIStorageCapacityKind -{-# INLINE v1CSIStorageCapacityKindL #-} - --- | 'v1CSIStorageCapacityMaximumVolumeSize' Lens -v1CSIStorageCapacityMaximumVolumeSizeL :: Lens_' V1CSIStorageCapacity (Maybe Quantity) -v1CSIStorageCapacityMaximumVolumeSizeL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityMaximumVolumeSize -> V1CSIStorageCapacity { v1CSIStorageCapacityMaximumVolumeSize, ..} ) <$> f v1CSIStorageCapacityMaximumVolumeSize -{-# INLINE v1CSIStorageCapacityMaximumVolumeSizeL #-} - --- | 'v1CSIStorageCapacityMetadata' Lens -v1CSIStorageCapacityMetadataL :: Lens_' V1CSIStorageCapacity (Maybe V1ObjectMeta) -v1CSIStorageCapacityMetadataL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityMetadata -> V1CSIStorageCapacity { v1CSIStorageCapacityMetadata, ..} ) <$> f v1CSIStorageCapacityMetadata -{-# INLINE v1CSIStorageCapacityMetadataL #-} - --- | 'v1CSIStorageCapacityNodeTopology' Lens -v1CSIStorageCapacityNodeTopologyL :: Lens_' V1CSIStorageCapacity (Maybe V1LabelSelector) -v1CSIStorageCapacityNodeTopologyL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityNodeTopology -> V1CSIStorageCapacity { v1CSIStorageCapacityNodeTopology, ..} ) <$> f v1CSIStorageCapacityNodeTopology -{-# INLINE v1CSIStorageCapacityNodeTopologyL #-} - --- | 'v1CSIStorageCapacityStorageClassName' Lens -v1CSIStorageCapacityStorageClassNameL :: Lens_' V1CSIStorageCapacity (Text) -v1CSIStorageCapacityStorageClassNameL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityStorageClassName -> V1CSIStorageCapacity { v1CSIStorageCapacityStorageClassName, ..} ) <$> f v1CSIStorageCapacityStorageClassName -{-# INLINE v1CSIStorageCapacityStorageClassNameL #-} - - - --- * V1CSIStorageCapacityList - --- | 'v1CSIStorageCapacityListApiVersion' Lens -v1CSIStorageCapacityListApiVersionL :: Lens_' V1CSIStorageCapacityList (Maybe Text) -v1CSIStorageCapacityListApiVersionL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListApiVersion -> V1CSIStorageCapacityList { v1CSIStorageCapacityListApiVersion, ..} ) <$> f v1CSIStorageCapacityListApiVersion -{-# INLINE v1CSIStorageCapacityListApiVersionL #-} - --- | 'v1CSIStorageCapacityListItems' Lens -v1CSIStorageCapacityListItemsL :: Lens_' V1CSIStorageCapacityList ([V1CSIStorageCapacity]) -v1CSIStorageCapacityListItemsL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListItems -> V1CSIStorageCapacityList { v1CSIStorageCapacityListItems, ..} ) <$> f v1CSIStorageCapacityListItems -{-# INLINE v1CSIStorageCapacityListItemsL #-} - --- | 'v1CSIStorageCapacityListKind' Lens -v1CSIStorageCapacityListKindL :: Lens_' V1CSIStorageCapacityList (Maybe Text) -v1CSIStorageCapacityListKindL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListKind -> V1CSIStorageCapacityList { v1CSIStorageCapacityListKind, ..} ) <$> f v1CSIStorageCapacityListKind -{-# INLINE v1CSIStorageCapacityListKindL #-} - --- | 'v1CSIStorageCapacityListMetadata' Lens -v1CSIStorageCapacityListMetadataL :: Lens_' V1CSIStorageCapacityList (Maybe V1ListMeta) -v1CSIStorageCapacityListMetadataL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListMetadata -> V1CSIStorageCapacityList { v1CSIStorageCapacityListMetadata, ..} ) <$> f v1CSIStorageCapacityListMetadata -{-# INLINE v1CSIStorageCapacityListMetadataL #-} - - - --- * V1CSIVolumeSource - --- | 'v1CSIVolumeSourceDriver' Lens -v1CSIVolumeSourceDriverL :: Lens_' V1CSIVolumeSource (Text) -v1CSIVolumeSourceDriverL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceDriver -> V1CSIVolumeSource { v1CSIVolumeSourceDriver, ..} ) <$> f v1CSIVolumeSourceDriver -{-# INLINE v1CSIVolumeSourceDriverL #-} - --- | 'v1CSIVolumeSourceFsType' Lens -v1CSIVolumeSourceFsTypeL :: Lens_' V1CSIVolumeSource (Maybe Text) -v1CSIVolumeSourceFsTypeL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceFsType -> V1CSIVolumeSource { v1CSIVolumeSourceFsType, ..} ) <$> f v1CSIVolumeSourceFsType -{-# INLINE v1CSIVolumeSourceFsTypeL #-} - --- | 'v1CSIVolumeSourceNodePublishSecretRef' Lens -v1CSIVolumeSourceNodePublishSecretRefL :: Lens_' V1CSIVolumeSource (Maybe V1LocalObjectReference) -v1CSIVolumeSourceNodePublishSecretRefL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceNodePublishSecretRef -> V1CSIVolumeSource { v1CSIVolumeSourceNodePublishSecretRef, ..} ) <$> f v1CSIVolumeSourceNodePublishSecretRef -{-# INLINE v1CSIVolumeSourceNodePublishSecretRefL #-} - --- | 'v1CSIVolumeSourceReadOnly' Lens -v1CSIVolumeSourceReadOnlyL :: Lens_' V1CSIVolumeSource (Maybe Bool) -v1CSIVolumeSourceReadOnlyL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceReadOnly -> V1CSIVolumeSource { v1CSIVolumeSourceReadOnly, ..} ) <$> f v1CSIVolumeSourceReadOnly -{-# INLINE v1CSIVolumeSourceReadOnlyL #-} - --- | 'v1CSIVolumeSourceVolumeAttributes' Lens -v1CSIVolumeSourceVolumeAttributesL :: Lens_' V1CSIVolumeSource (Maybe (Map.Map String Text)) -v1CSIVolumeSourceVolumeAttributesL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceVolumeAttributes -> V1CSIVolumeSource { v1CSIVolumeSourceVolumeAttributes, ..} ) <$> f v1CSIVolumeSourceVolumeAttributes -{-# INLINE v1CSIVolumeSourceVolumeAttributesL #-} - - - --- * V1Capabilities - --- | 'v1CapabilitiesAdd' Lens -v1CapabilitiesAddL :: Lens_' V1Capabilities (Maybe [Text]) -v1CapabilitiesAddL f V1Capabilities{..} = (\v1CapabilitiesAdd -> V1Capabilities { v1CapabilitiesAdd, ..} ) <$> f v1CapabilitiesAdd -{-# INLINE v1CapabilitiesAddL #-} - --- | 'v1CapabilitiesDrop' Lens -v1CapabilitiesDropL :: Lens_' V1Capabilities (Maybe [Text]) -v1CapabilitiesDropL f V1Capabilities{..} = (\v1CapabilitiesDrop -> V1Capabilities { v1CapabilitiesDrop, ..} ) <$> f v1CapabilitiesDrop -{-# INLINE v1CapabilitiesDropL #-} - - - --- * V1CephFSPersistentVolumeSource - --- | 'v1CephFSPersistentVolumeSourceMonitors' Lens -v1CephFSPersistentVolumeSourceMonitorsL :: Lens_' V1CephFSPersistentVolumeSource ([Text]) -v1CephFSPersistentVolumeSourceMonitorsL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceMonitors -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceMonitors, ..} ) <$> f v1CephFSPersistentVolumeSourceMonitors -{-# INLINE v1CephFSPersistentVolumeSourceMonitorsL #-} - --- | 'v1CephFSPersistentVolumeSourcePath' Lens -v1CephFSPersistentVolumeSourcePathL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) -v1CephFSPersistentVolumeSourcePathL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourcePath -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourcePath, ..} ) <$> f v1CephFSPersistentVolumeSourcePath -{-# INLINE v1CephFSPersistentVolumeSourcePathL #-} - --- | 'v1CephFSPersistentVolumeSourceReadOnly' Lens -v1CephFSPersistentVolumeSourceReadOnlyL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Bool) -v1CephFSPersistentVolumeSourceReadOnlyL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceReadOnly -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceReadOnly, ..} ) <$> f v1CephFSPersistentVolumeSourceReadOnly -{-# INLINE v1CephFSPersistentVolumeSourceReadOnlyL #-} - --- | 'v1CephFSPersistentVolumeSourceSecretFile' Lens -v1CephFSPersistentVolumeSourceSecretFileL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) -v1CephFSPersistentVolumeSourceSecretFileL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceSecretFile -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceSecretFile, ..} ) <$> f v1CephFSPersistentVolumeSourceSecretFile -{-# INLINE v1CephFSPersistentVolumeSourceSecretFileL #-} - --- | 'v1CephFSPersistentVolumeSourceSecretRef' Lens -v1CephFSPersistentVolumeSourceSecretRefL :: Lens_' V1CephFSPersistentVolumeSource (Maybe V1SecretReference) -v1CephFSPersistentVolumeSourceSecretRefL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceSecretRef -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceSecretRef, ..} ) <$> f v1CephFSPersistentVolumeSourceSecretRef -{-# INLINE v1CephFSPersistentVolumeSourceSecretRefL #-} - --- | 'v1CephFSPersistentVolumeSourceUser' Lens -v1CephFSPersistentVolumeSourceUserL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) -v1CephFSPersistentVolumeSourceUserL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceUser -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceUser, ..} ) <$> f v1CephFSPersistentVolumeSourceUser -{-# INLINE v1CephFSPersistentVolumeSourceUserL #-} - - - --- * V1CephFSVolumeSource - --- | 'v1CephFSVolumeSourceMonitors' Lens -v1CephFSVolumeSourceMonitorsL :: Lens_' V1CephFSVolumeSource ([Text]) -v1CephFSVolumeSourceMonitorsL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceMonitors -> V1CephFSVolumeSource { v1CephFSVolumeSourceMonitors, ..} ) <$> f v1CephFSVolumeSourceMonitors -{-# INLINE v1CephFSVolumeSourceMonitorsL #-} - --- | 'v1CephFSVolumeSourcePath' Lens -v1CephFSVolumeSourcePathL :: Lens_' V1CephFSVolumeSource (Maybe Text) -v1CephFSVolumeSourcePathL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourcePath -> V1CephFSVolumeSource { v1CephFSVolumeSourcePath, ..} ) <$> f v1CephFSVolumeSourcePath -{-# INLINE v1CephFSVolumeSourcePathL #-} - --- | 'v1CephFSVolumeSourceReadOnly' Lens -v1CephFSVolumeSourceReadOnlyL :: Lens_' V1CephFSVolumeSource (Maybe Bool) -v1CephFSVolumeSourceReadOnlyL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceReadOnly -> V1CephFSVolumeSource { v1CephFSVolumeSourceReadOnly, ..} ) <$> f v1CephFSVolumeSourceReadOnly -{-# INLINE v1CephFSVolumeSourceReadOnlyL #-} - --- | 'v1CephFSVolumeSourceSecretFile' Lens -v1CephFSVolumeSourceSecretFileL :: Lens_' V1CephFSVolumeSource (Maybe Text) -v1CephFSVolumeSourceSecretFileL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceSecretFile -> V1CephFSVolumeSource { v1CephFSVolumeSourceSecretFile, ..} ) <$> f v1CephFSVolumeSourceSecretFile -{-# INLINE v1CephFSVolumeSourceSecretFileL #-} - --- | 'v1CephFSVolumeSourceSecretRef' Lens -v1CephFSVolumeSourceSecretRefL :: Lens_' V1CephFSVolumeSource (Maybe V1LocalObjectReference) -v1CephFSVolumeSourceSecretRefL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceSecretRef -> V1CephFSVolumeSource { v1CephFSVolumeSourceSecretRef, ..} ) <$> f v1CephFSVolumeSourceSecretRef -{-# INLINE v1CephFSVolumeSourceSecretRefL #-} - --- | 'v1CephFSVolumeSourceUser' Lens -v1CephFSVolumeSourceUserL :: Lens_' V1CephFSVolumeSource (Maybe Text) -v1CephFSVolumeSourceUserL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceUser -> V1CephFSVolumeSource { v1CephFSVolumeSourceUser, ..} ) <$> f v1CephFSVolumeSourceUser -{-# INLINE v1CephFSVolumeSourceUserL #-} - - - --- * V1CertificateSigningRequest - --- | 'v1CertificateSigningRequestApiVersion' Lens -v1CertificateSigningRequestApiVersionL :: Lens_' V1CertificateSigningRequest (Maybe Text) -v1CertificateSigningRequestApiVersionL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestApiVersion -> V1CertificateSigningRequest { v1CertificateSigningRequestApiVersion, ..} ) <$> f v1CertificateSigningRequestApiVersion -{-# INLINE v1CertificateSigningRequestApiVersionL #-} - --- | 'v1CertificateSigningRequestKind' Lens -v1CertificateSigningRequestKindL :: Lens_' V1CertificateSigningRequest (Maybe Text) -v1CertificateSigningRequestKindL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestKind -> V1CertificateSigningRequest { v1CertificateSigningRequestKind, ..} ) <$> f v1CertificateSigningRequestKind -{-# INLINE v1CertificateSigningRequestKindL #-} - --- | 'v1CertificateSigningRequestMetadata' Lens -v1CertificateSigningRequestMetadataL :: Lens_' V1CertificateSigningRequest (Maybe V1ObjectMeta) -v1CertificateSigningRequestMetadataL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestMetadata -> V1CertificateSigningRequest { v1CertificateSigningRequestMetadata, ..} ) <$> f v1CertificateSigningRequestMetadata -{-# INLINE v1CertificateSigningRequestMetadataL #-} - --- | 'v1CertificateSigningRequestSpec' Lens -v1CertificateSigningRequestSpecL :: Lens_' V1CertificateSigningRequest (V1CertificateSigningRequestSpec) -v1CertificateSigningRequestSpecL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestSpec -> V1CertificateSigningRequest { v1CertificateSigningRequestSpec, ..} ) <$> f v1CertificateSigningRequestSpec -{-# INLINE v1CertificateSigningRequestSpecL #-} - --- | 'v1CertificateSigningRequestStatus' Lens -v1CertificateSigningRequestStatusL :: Lens_' V1CertificateSigningRequest (Maybe V1CertificateSigningRequestStatus) -v1CertificateSigningRequestStatusL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestStatus -> V1CertificateSigningRequest { v1CertificateSigningRequestStatus, ..} ) <$> f v1CertificateSigningRequestStatus -{-# INLINE v1CertificateSigningRequestStatusL #-} - - - --- * V1CertificateSigningRequestCondition - --- | 'v1CertificateSigningRequestConditionLastTransitionTime' Lens -v1CertificateSigningRequestConditionLastTransitionTimeL :: Lens_' V1CertificateSigningRequestCondition (Maybe DateTime) -v1CertificateSigningRequestConditionLastTransitionTimeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionLastTransitionTime -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionLastTransitionTime, ..} ) <$> f v1CertificateSigningRequestConditionLastTransitionTime -{-# INLINE v1CertificateSigningRequestConditionLastTransitionTimeL #-} - --- | 'v1CertificateSigningRequestConditionLastUpdateTime' Lens -v1CertificateSigningRequestConditionLastUpdateTimeL :: Lens_' V1CertificateSigningRequestCondition (Maybe DateTime) -v1CertificateSigningRequestConditionLastUpdateTimeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionLastUpdateTime -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionLastUpdateTime, ..} ) <$> f v1CertificateSigningRequestConditionLastUpdateTime -{-# INLINE v1CertificateSigningRequestConditionLastUpdateTimeL #-} - --- | 'v1CertificateSigningRequestConditionMessage' Lens -v1CertificateSigningRequestConditionMessageL :: Lens_' V1CertificateSigningRequestCondition (Maybe Text) -v1CertificateSigningRequestConditionMessageL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionMessage -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionMessage, ..} ) <$> f v1CertificateSigningRequestConditionMessage -{-# INLINE v1CertificateSigningRequestConditionMessageL #-} - --- | 'v1CertificateSigningRequestConditionReason' Lens -v1CertificateSigningRequestConditionReasonL :: Lens_' V1CertificateSigningRequestCondition (Maybe Text) -v1CertificateSigningRequestConditionReasonL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionReason -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionReason, ..} ) <$> f v1CertificateSigningRequestConditionReason -{-# INLINE v1CertificateSigningRequestConditionReasonL #-} - --- | 'v1CertificateSigningRequestConditionStatus' Lens -v1CertificateSigningRequestConditionStatusL :: Lens_' V1CertificateSigningRequestCondition (Text) -v1CertificateSigningRequestConditionStatusL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionStatus -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionStatus, ..} ) <$> f v1CertificateSigningRequestConditionStatus -{-# INLINE v1CertificateSigningRequestConditionStatusL #-} - --- | 'v1CertificateSigningRequestConditionType' Lens -v1CertificateSigningRequestConditionTypeL :: Lens_' V1CertificateSigningRequestCondition (Text) -v1CertificateSigningRequestConditionTypeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionType -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionType, ..} ) <$> f v1CertificateSigningRequestConditionType -{-# INLINE v1CertificateSigningRequestConditionTypeL #-} - - - --- * V1CertificateSigningRequestList - --- | 'v1CertificateSigningRequestListApiVersion' Lens -v1CertificateSigningRequestListApiVersionL :: Lens_' V1CertificateSigningRequestList (Maybe Text) -v1CertificateSigningRequestListApiVersionL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListApiVersion -> V1CertificateSigningRequestList { v1CertificateSigningRequestListApiVersion, ..} ) <$> f v1CertificateSigningRequestListApiVersion -{-# INLINE v1CertificateSigningRequestListApiVersionL #-} - --- | 'v1CertificateSigningRequestListItems' Lens -v1CertificateSigningRequestListItemsL :: Lens_' V1CertificateSigningRequestList ([V1CertificateSigningRequest]) -v1CertificateSigningRequestListItemsL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListItems -> V1CertificateSigningRequestList { v1CertificateSigningRequestListItems, ..} ) <$> f v1CertificateSigningRequestListItems -{-# INLINE v1CertificateSigningRequestListItemsL #-} - --- | 'v1CertificateSigningRequestListKind' Lens -v1CertificateSigningRequestListKindL :: Lens_' V1CertificateSigningRequestList (Maybe Text) -v1CertificateSigningRequestListKindL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListKind -> V1CertificateSigningRequestList { v1CertificateSigningRequestListKind, ..} ) <$> f v1CertificateSigningRequestListKind -{-# INLINE v1CertificateSigningRequestListKindL #-} - --- | 'v1CertificateSigningRequestListMetadata' Lens -v1CertificateSigningRequestListMetadataL :: Lens_' V1CertificateSigningRequestList (Maybe V1ListMeta) -v1CertificateSigningRequestListMetadataL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListMetadata -> V1CertificateSigningRequestList { v1CertificateSigningRequestListMetadata, ..} ) <$> f v1CertificateSigningRequestListMetadata -{-# INLINE v1CertificateSigningRequestListMetadataL #-} - - - --- * V1CertificateSigningRequestSpec - --- | 'v1CertificateSigningRequestSpecExpirationSeconds' Lens -v1CertificateSigningRequestSpecExpirationSecondsL :: Lens_' V1CertificateSigningRequestSpec (Maybe Int) -v1CertificateSigningRequestSpecExpirationSecondsL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecExpirationSeconds -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecExpirationSeconds, ..} ) <$> f v1CertificateSigningRequestSpecExpirationSeconds -{-# INLINE v1CertificateSigningRequestSpecExpirationSecondsL #-} - --- | 'v1CertificateSigningRequestSpecExtra' Lens -v1CertificateSigningRequestSpecExtraL :: Lens_' V1CertificateSigningRequestSpec (Maybe (Map.Map String [Text])) -v1CertificateSigningRequestSpecExtraL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecExtra -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecExtra, ..} ) <$> f v1CertificateSigningRequestSpecExtra -{-# INLINE v1CertificateSigningRequestSpecExtraL #-} - --- | 'v1CertificateSigningRequestSpecGroups' Lens -v1CertificateSigningRequestSpecGroupsL :: Lens_' V1CertificateSigningRequestSpec (Maybe [Text]) -v1CertificateSigningRequestSpecGroupsL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecGroups -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecGroups, ..} ) <$> f v1CertificateSigningRequestSpecGroups -{-# INLINE v1CertificateSigningRequestSpecGroupsL #-} - --- | 'v1CertificateSigningRequestSpecRequest' Lens -v1CertificateSigningRequestSpecRequestL :: Lens_' V1CertificateSigningRequestSpec (ByteArray) -v1CertificateSigningRequestSpecRequestL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecRequest -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecRequest, ..} ) <$> f v1CertificateSigningRequestSpecRequest -{-# INLINE v1CertificateSigningRequestSpecRequestL #-} - --- | 'v1CertificateSigningRequestSpecSignerName' Lens -v1CertificateSigningRequestSpecSignerNameL :: Lens_' V1CertificateSigningRequestSpec (Text) -v1CertificateSigningRequestSpecSignerNameL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecSignerName -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecSignerName, ..} ) <$> f v1CertificateSigningRequestSpecSignerName -{-# INLINE v1CertificateSigningRequestSpecSignerNameL #-} - --- | 'v1CertificateSigningRequestSpecUid' Lens -v1CertificateSigningRequestSpecUidL :: Lens_' V1CertificateSigningRequestSpec (Maybe Text) -v1CertificateSigningRequestSpecUidL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUid -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUid, ..} ) <$> f v1CertificateSigningRequestSpecUid -{-# INLINE v1CertificateSigningRequestSpecUidL #-} - --- | 'v1CertificateSigningRequestSpecUsages' Lens -v1CertificateSigningRequestSpecUsagesL :: Lens_' V1CertificateSigningRequestSpec (Maybe [Text]) -v1CertificateSigningRequestSpecUsagesL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUsages -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUsages, ..} ) <$> f v1CertificateSigningRequestSpecUsages -{-# INLINE v1CertificateSigningRequestSpecUsagesL #-} - --- | 'v1CertificateSigningRequestSpecUsername' Lens -v1CertificateSigningRequestSpecUsernameL :: Lens_' V1CertificateSigningRequestSpec (Maybe Text) -v1CertificateSigningRequestSpecUsernameL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUsername -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUsername, ..} ) <$> f v1CertificateSigningRequestSpecUsername -{-# INLINE v1CertificateSigningRequestSpecUsernameL #-} - - - --- * V1CertificateSigningRequestStatus - --- | 'v1CertificateSigningRequestStatusCertificate' Lens -v1CertificateSigningRequestStatusCertificateL :: Lens_' V1CertificateSigningRequestStatus (Maybe ByteArray) -v1CertificateSigningRequestStatusCertificateL f V1CertificateSigningRequestStatus{..} = (\v1CertificateSigningRequestStatusCertificate -> V1CertificateSigningRequestStatus { v1CertificateSigningRequestStatusCertificate, ..} ) <$> f v1CertificateSigningRequestStatusCertificate -{-# INLINE v1CertificateSigningRequestStatusCertificateL #-} - --- | 'v1CertificateSigningRequestStatusConditions' Lens -v1CertificateSigningRequestStatusConditionsL :: Lens_' V1CertificateSigningRequestStatus (Maybe [V1CertificateSigningRequestCondition]) -v1CertificateSigningRequestStatusConditionsL f V1CertificateSigningRequestStatus{..} = (\v1CertificateSigningRequestStatusConditions -> V1CertificateSigningRequestStatus { v1CertificateSigningRequestStatusConditions, ..} ) <$> f v1CertificateSigningRequestStatusConditions -{-# INLINE v1CertificateSigningRequestStatusConditionsL #-} - - - --- * V1CinderPersistentVolumeSource - --- | 'v1CinderPersistentVolumeSourceFsType' Lens -v1CinderPersistentVolumeSourceFsTypeL :: Lens_' V1CinderPersistentVolumeSource (Maybe Text) -v1CinderPersistentVolumeSourceFsTypeL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceFsType -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceFsType, ..} ) <$> f v1CinderPersistentVolumeSourceFsType -{-# INLINE v1CinderPersistentVolumeSourceFsTypeL #-} - --- | 'v1CinderPersistentVolumeSourceReadOnly' Lens -v1CinderPersistentVolumeSourceReadOnlyL :: Lens_' V1CinderPersistentVolumeSource (Maybe Bool) -v1CinderPersistentVolumeSourceReadOnlyL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceReadOnly -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceReadOnly, ..} ) <$> f v1CinderPersistentVolumeSourceReadOnly -{-# INLINE v1CinderPersistentVolumeSourceReadOnlyL #-} - --- | 'v1CinderPersistentVolumeSourceSecretRef' Lens -v1CinderPersistentVolumeSourceSecretRefL :: Lens_' V1CinderPersistentVolumeSource (Maybe V1SecretReference) -v1CinderPersistentVolumeSourceSecretRefL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceSecretRef -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceSecretRef, ..} ) <$> f v1CinderPersistentVolumeSourceSecretRef -{-# INLINE v1CinderPersistentVolumeSourceSecretRefL #-} - --- | 'v1CinderPersistentVolumeSourceVolumeId' Lens -v1CinderPersistentVolumeSourceVolumeIdL :: Lens_' V1CinderPersistentVolumeSource (Text) -v1CinderPersistentVolumeSourceVolumeIdL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceVolumeId -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceVolumeId, ..} ) <$> f v1CinderPersistentVolumeSourceVolumeId -{-# INLINE v1CinderPersistentVolumeSourceVolumeIdL #-} - - - --- * V1CinderVolumeSource - --- | 'v1CinderVolumeSourceFsType' Lens -v1CinderVolumeSourceFsTypeL :: Lens_' V1CinderVolumeSource (Maybe Text) -v1CinderVolumeSourceFsTypeL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceFsType -> V1CinderVolumeSource { v1CinderVolumeSourceFsType, ..} ) <$> f v1CinderVolumeSourceFsType -{-# INLINE v1CinderVolumeSourceFsTypeL #-} - --- | 'v1CinderVolumeSourceReadOnly' Lens -v1CinderVolumeSourceReadOnlyL :: Lens_' V1CinderVolumeSource (Maybe Bool) -v1CinderVolumeSourceReadOnlyL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceReadOnly -> V1CinderVolumeSource { v1CinderVolumeSourceReadOnly, ..} ) <$> f v1CinderVolumeSourceReadOnly -{-# INLINE v1CinderVolumeSourceReadOnlyL #-} - --- | 'v1CinderVolumeSourceSecretRef' Lens -v1CinderVolumeSourceSecretRefL :: Lens_' V1CinderVolumeSource (Maybe V1LocalObjectReference) -v1CinderVolumeSourceSecretRefL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceSecretRef -> V1CinderVolumeSource { v1CinderVolumeSourceSecretRef, ..} ) <$> f v1CinderVolumeSourceSecretRef -{-# INLINE v1CinderVolumeSourceSecretRefL #-} - --- | 'v1CinderVolumeSourceVolumeId' Lens -v1CinderVolumeSourceVolumeIdL :: Lens_' V1CinderVolumeSource (Text) -v1CinderVolumeSourceVolumeIdL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceVolumeId -> V1CinderVolumeSource { v1CinderVolumeSourceVolumeId, ..} ) <$> f v1CinderVolumeSourceVolumeId -{-# INLINE v1CinderVolumeSourceVolumeIdL #-} - - - --- * V1ClaimSource - --- | 'v1ClaimSourceResourceClaimName' Lens -v1ClaimSourceResourceClaimNameL :: Lens_' V1ClaimSource (Maybe Text) -v1ClaimSourceResourceClaimNameL f V1ClaimSource{..} = (\v1ClaimSourceResourceClaimName -> V1ClaimSource { v1ClaimSourceResourceClaimName, ..} ) <$> f v1ClaimSourceResourceClaimName -{-# INLINE v1ClaimSourceResourceClaimNameL #-} - --- | 'v1ClaimSourceResourceClaimTemplateName' Lens -v1ClaimSourceResourceClaimTemplateNameL :: Lens_' V1ClaimSource (Maybe Text) -v1ClaimSourceResourceClaimTemplateNameL f V1ClaimSource{..} = (\v1ClaimSourceResourceClaimTemplateName -> V1ClaimSource { v1ClaimSourceResourceClaimTemplateName, ..} ) <$> f v1ClaimSourceResourceClaimTemplateName -{-# INLINE v1ClaimSourceResourceClaimTemplateNameL #-} - - - --- * V1ClientIPConfig - --- | 'v1ClientIPConfigTimeoutSeconds' Lens -v1ClientIPConfigTimeoutSecondsL :: Lens_' V1ClientIPConfig (Maybe Int) -v1ClientIPConfigTimeoutSecondsL f V1ClientIPConfig{..} = (\v1ClientIPConfigTimeoutSeconds -> V1ClientIPConfig { v1ClientIPConfigTimeoutSeconds, ..} ) <$> f v1ClientIPConfigTimeoutSeconds -{-# INLINE v1ClientIPConfigTimeoutSecondsL #-} - - - --- * V1ClusterRole - --- | 'v1ClusterRoleAggregationRule' Lens -v1ClusterRoleAggregationRuleL :: Lens_' V1ClusterRole (Maybe V1AggregationRule) -v1ClusterRoleAggregationRuleL f V1ClusterRole{..} = (\v1ClusterRoleAggregationRule -> V1ClusterRole { v1ClusterRoleAggregationRule, ..} ) <$> f v1ClusterRoleAggregationRule -{-# INLINE v1ClusterRoleAggregationRuleL #-} - --- | 'v1ClusterRoleApiVersion' Lens -v1ClusterRoleApiVersionL :: Lens_' V1ClusterRole (Maybe Text) -v1ClusterRoleApiVersionL f V1ClusterRole{..} = (\v1ClusterRoleApiVersion -> V1ClusterRole { v1ClusterRoleApiVersion, ..} ) <$> f v1ClusterRoleApiVersion -{-# INLINE v1ClusterRoleApiVersionL #-} - --- | 'v1ClusterRoleKind' Lens -v1ClusterRoleKindL :: Lens_' V1ClusterRole (Maybe Text) -v1ClusterRoleKindL f V1ClusterRole{..} = (\v1ClusterRoleKind -> V1ClusterRole { v1ClusterRoleKind, ..} ) <$> f v1ClusterRoleKind -{-# INLINE v1ClusterRoleKindL #-} - --- | 'v1ClusterRoleMetadata' Lens -v1ClusterRoleMetadataL :: Lens_' V1ClusterRole (Maybe V1ObjectMeta) -v1ClusterRoleMetadataL f V1ClusterRole{..} = (\v1ClusterRoleMetadata -> V1ClusterRole { v1ClusterRoleMetadata, ..} ) <$> f v1ClusterRoleMetadata -{-# INLINE v1ClusterRoleMetadataL #-} - --- | 'v1ClusterRoleRules' Lens -v1ClusterRoleRulesL :: Lens_' V1ClusterRole (Maybe [V1PolicyRule]) -v1ClusterRoleRulesL f V1ClusterRole{..} = (\v1ClusterRoleRules -> V1ClusterRole { v1ClusterRoleRules, ..} ) <$> f v1ClusterRoleRules -{-# INLINE v1ClusterRoleRulesL #-} - - - --- * V1ClusterRoleBinding - --- | 'v1ClusterRoleBindingApiVersion' Lens -v1ClusterRoleBindingApiVersionL :: Lens_' V1ClusterRoleBinding (Maybe Text) -v1ClusterRoleBindingApiVersionL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingApiVersion -> V1ClusterRoleBinding { v1ClusterRoleBindingApiVersion, ..} ) <$> f v1ClusterRoleBindingApiVersion -{-# INLINE v1ClusterRoleBindingApiVersionL #-} - --- | 'v1ClusterRoleBindingKind' Lens -v1ClusterRoleBindingKindL :: Lens_' V1ClusterRoleBinding (Maybe Text) -v1ClusterRoleBindingKindL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingKind -> V1ClusterRoleBinding { v1ClusterRoleBindingKind, ..} ) <$> f v1ClusterRoleBindingKind -{-# INLINE v1ClusterRoleBindingKindL #-} - --- | 'v1ClusterRoleBindingMetadata' Lens -v1ClusterRoleBindingMetadataL :: Lens_' V1ClusterRoleBinding (Maybe V1ObjectMeta) -v1ClusterRoleBindingMetadataL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingMetadata -> V1ClusterRoleBinding { v1ClusterRoleBindingMetadata, ..} ) <$> f v1ClusterRoleBindingMetadata -{-# INLINE v1ClusterRoleBindingMetadataL #-} - --- | 'v1ClusterRoleBindingRoleRef' Lens -v1ClusterRoleBindingRoleRefL :: Lens_' V1ClusterRoleBinding (V1RoleRef) -v1ClusterRoleBindingRoleRefL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingRoleRef -> V1ClusterRoleBinding { v1ClusterRoleBindingRoleRef, ..} ) <$> f v1ClusterRoleBindingRoleRef -{-# INLINE v1ClusterRoleBindingRoleRefL #-} - --- | 'v1ClusterRoleBindingSubjects' Lens -v1ClusterRoleBindingSubjectsL :: Lens_' V1ClusterRoleBinding (Maybe [V1Subject]) -v1ClusterRoleBindingSubjectsL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingSubjects -> V1ClusterRoleBinding { v1ClusterRoleBindingSubjects, ..} ) <$> f v1ClusterRoleBindingSubjects -{-# INLINE v1ClusterRoleBindingSubjectsL #-} - - - --- * V1ClusterRoleBindingList - --- | 'v1ClusterRoleBindingListApiVersion' Lens -v1ClusterRoleBindingListApiVersionL :: Lens_' V1ClusterRoleBindingList (Maybe Text) -v1ClusterRoleBindingListApiVersionL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListApiVersion -> V1ClusterRoleBindingList { v1ClusterRoleBindingListApiVersion, ..} ) <$> f v1ClusterRoleBindingListApiVersion -{-# INLINE v1ClusterRoleBindingListApiVersionL #-} - --- | 'v1ClusterRoleBindingListItems' Lens -v1ClusterRoleBindingListItemsL :: Lens_' V1ClusterRoleBindingList ([V1ClusterRoleBinding]) -v1ClusterRoleBindingListItemsL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListItems -> V1ClusterRoleBindingList { v1ClusterRoleBindingListItems, ..} ) <$> f v1ClusterRoleBindingListItems -{-# INLINE v1ClusterRoleBindingListItemsL #-} - --- | 'v1ClusterRoleBindingListKind' Lens -v1ClusterRoleBindingListKindL :: Lens_' V1ClusterRoleBindingList (Maybe Text) -v1ClusterRoleBindingListKindL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListKind -> V1ClusterRoleBindingList { v1ClusterRoleBindingListKind, ..} ) <$> f v1ClusterRoleBindingListKind -{-# INLINE v1ClusterRoleBindingListKindL #-} - --- | 'v1ClusterRoleBindingListMetadata' Lens -v1ClusterRoleBindingListMetadataL :: Lens_' V1ClusterRoleBindingList (Maybe V1ListMeta) -v1ClusterRoleBindingListMetadataL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListMetadata -> V1ClusterRoleBindingList { v1ClusterRoleBindingListMetadata, ..} ) <$> f v1ClusterRoleBindingListMetadata -{-# INLINE v1ClusterRoleBindingListMetadataL #-} - - - --- * V1ClusterRoleList - --- | 'v1ClusterRoleListApiVersion' Lens -v1ClusterRoleListApiVersionL :: Lens_' V1ClusterRoleList (Maybe Text) -v1ClusterRoleListApiVersionL f V1ClusterRoleList{..} = (\v1ClusterRoleListApiVersion -> V1ClusterRoleList { v1ClusterRoleListApiVersion, ..} ) <$> f v1ClusterRoleListApiVersion -{-# INLINE v1ClusterRoleListApiVersionL #-} - --- | 'v1ClusterRoleListItems' Lens -v1ClusterRoleListItemsL :: Lens_' V1ClusterRoleList ([V1ClusterRole]) -v1ClusterRoleListItemsL f V1ClusterRoleList{..} = (\v1ClusterRoleListItems -> V1ClusterRoleList { v1ClusterRoleListItems, ..} ) <$> f v1ClusterRoleListItems -{-# INLINE v1ClusterRoleListItemsL #-} - --- | 'v1ClusterRoleListKind' Lens -v1ClusterRoleListKindL :: Lens_' V1ClusterRoleList (Maybe Text) -v1ClusterRoleListKindL f V1ClusterRoleList{..} = (\v1ClusterRoleListKind -> V1ClusterRoleList { v1ClusterRoleListKind, ..} ) <$> f v1ClusterRoleListKind -{-# INLINE v1ClusterRoleListKindL #-} - --- | 'v1ClusterRoleListMetadata' Lens -v1ClusterRoleListMetadataL :: Lens_' V1ClusterRoleList (Maybe V1ListMeta) -v1ClusterRoleListMetadataL f V1ClusterRoleList{..} = (\v1ClusterRoleListMetadata -> V1ClusterRoleList { v1ClusterRoleListMetadata, ..} ) <$> f v1ClusterRoleListMetadata -{-# INLINE v1ClusterRoleListMetadataL #-} - - - --- * V1ComponentCondition - --- | 'v1ComponentConditionError' Lens -v1ComponentConditionErrorL :: Lens_' V1ComponentCondition (Maybe Text) -v1ComponentConditionErrorL f V1ComponentCondition{..} = (\v1ComponentConditionError -> V1ComponentCondition { v1ComponentConditionError, ..} ) <$> f v1ComponentConditionError -{-# INLINE v1ComponentConditionErrorL #-} - --- | 'v1ComponentConditionMessage' Lens -v1ComponentConditionMessageL :: Lens_' V1ComponentCondition (Maybe Text) -v1ComponentConditionMessageL f V1ComponentCondition{..} = (\v1ComponentConditionMessage -> V1ComponentCondition { v1ComponentConditionMessage, ..} ) <$> f v1ComponentConditionMessage -{-# INLINE v1ComponentConditionMessageL #-} - --- | 'v1ComponentConditionStatus' Lens -v1ComponentConditionStatusL :: Lens_' V1ComponentCondition (Text) -v1ComponentConditionStatusL f V1ComponentCondition{..} = (\v1ComponentConditionStatus -> V1ComponentCondition { v1ComponentConditionStatus, ..} ) <$> f v1ComponentConditionStatus -{-# INLINE v1ComponentConditionStatusL #-} - --- | 'v1ComponentConditionType' Lens -v1ComponentConditionTypeL :: Lens_' V1ComponentCondition (Text) -v1ComponentConditionTypeL f V1ComponentCondition{..} = (\v1ComponentConditionType -> V1ComponentCondition { v1ComponentConditionType, ..} ) <$> f v1ComponentConditionType -{-# INLINE v1ComponentConditionTypeL #-} - - - --- * V1ComponentStatus - --- | 'v1ComponentStatusApiVersion' Lens -v1ComponentStatusApiVersionL :: Lens_' V1ComponentStatus (Maybe Text) -v1ComponentStatusApiVersionL f V1ComponentStatus{..} = (\v1ComponentStatusApiVersion -> V1ComponentStatus { v1ComponentStatusApiVersion, ..} ) <$> f v1ComponentStatusApiVersion -{-# INLINE v1ComponentStatusApiVersionL #-} - --- | 'v1ComponentStatusConditions' Lens -v1ComponentStatusConditionsL :: Lens_' V1ComponentStatus (Maybe [V1ComponentCondition]) -v1ComponentStatusConditionsL f V1ComponentStatus{..} = (\v1ComponentStatusConditions -> V1ComponentStatus { v1ComponentStatusConditions, ..} ) <$> f v1ComponentStatusConditions -{-# INLINE v1ComponentStatusConditionsL #-} - --- | 'v1ComponentStatusKind' Lens -v1ComponentStatusKindL :: Lens_' V1ComponentStatus (Maybe Text) -v1ComponentStatusKindL f V1ComponentStatus{..} = (\v1ComponentStatusKind -> V1ComponentStatus { v1ComponentStatusKind, ..} ) <$> f v1ComponentStatusKind -{-# INLINE v1ComponentStatusKindL #-} - --- | 'v1ComponentStatusMetadata' Lens -v1ComponentStatusMetadataL :: Lens_' V1ComponentStatus (Maybe V1ObjectMeta) -v1ComponentStatusMetadataL f V1ComponentStatus{..} = (\v1ComponentStatusMetadata -> V1ComponentStatus { v1ComponentStatusMetadata, ..} ) <$> f v1ComponentStatusMetadata -{-# INLINE v1ComponentStatusMetadataL #-} - - - --- * V1ComponentStatusList - --- | 'v1ComponentStatusListApiVersion' Lens -v1ComponentStatusListApiVersionL :: Lens_' V1ComponentStatusList (Maybe Text) -v1ComponentStatusListApiVersionL f V1ComponentStatusList{..} = (\v1ComponentStatusListApiVersion -> V1ComponentStatusList { v1ComponentStatusListApiVersion, ..} ) <$> f v1ComponentStatusListApiVersion -{-# INLINE v1ComponentStatusListApiVersionL #-} - --- | 'v1ComponentStatusListItems' Lens -v1ComponentStatusListItemsL :: Lens_' V1ComponentStatusList ([V1ComponentStatus]) -v1ComponentStatusListItemsL f V1ComponentStatusList{..} = (\v1ComponentStatusListItems -> V1ComponentStatusList { v1ComponentStatusListItems, ..} ) <$> f v1ComponentStatusListItems -{-# INLINE v1ComponentStatusListItemsL #-} - --- | 'v1ComponentStatusListKind' Lens -v1ComponentStatusListKindL :: Lens_' V1ComponentStatusList (Maybe Text) -v1ComponentStatusListKindL f V1ComponentStatusList{..} = (\v1ComponentStatusListKind -> V1ComponentStatusList { v1ComponentStatusListKind, ..} ) <$> f v1ComponentStatusListKind -{-# INLINE v1ComponentStatusListKindL #-} - --- | 'v1ComponentStatusListMetadata' Lens -v1ComponentStatusListMetadataL :: Lens_' V1ComponentStatusList (Maybe V1ListMeta) -v1ComponentStatusListMetadataL f V1ComponentStatusList{..} = (\v1ComponentStatusListMetadata -> V1ComponentStatusList { v1ComponentStatusListMetadata, ..} ) <$> f v1ComponentStatusListMetadata -{-# INLINE v1ComponentStatusListMetadataL #-} - - - --- * V1Condition - --- | 'v1ConditionLastTransitionTime' Lens -v1ConditionLastTransitionTimeL :: Lens_' V1Condition (DateTime) -v1ConditionLastTransitionTimeL f V1Condition{..} = (\v1ConditionLastTransitionTime -> V1Condition { v1ConditionLastTransitionTime, ..} ) <$> f v1ConditionLastTransitionTime -{-# INLINE v1ConditionLastTransitionTimeL #-} - --- | 'v1ConditionMessage' Lens -v1ConditionMessageL :: Lens_' V1Condition (Text) -v1ConditionMessageL f V1Condition{..} = (\v1ConditionMessage -> V1Condition { v1ConditionMessage, ..} ) <$> f v1ConditionMessage -{-# INLINE v1ConditionMessageL #-} - --- | 'v1ConditionObservedGeneration' Lens -v1ConditionObservedGenerationL :: Lens_' V1Condition (Maybe Integer) -v1ConditionObservedGenerationL f V1Condition{..} = (\v1ConditionObservedGeneration -> V1Condition { v1ConditionObservedGeneration, ..} ) <$> f v1ConditionObservedGeneration -{-# INLINE v1ConditionObservedGenerationL #-} - --- | 'v1ConditionReason' Lens -v1ConditionReasonL :: Lens_' V1Condition (Text) -v1ConditionReasonL f V1Condition{..} = (\v1ConditionReason -> V1Condition { v1ConditionReason, ..} ) <$> f v1ConditionReason -{-# INLINE v1ConditionReasonL #-} - --- | 'v1ConditionStatus' Lens -v1ConditionStatusL :: Lens_' V1Condition (Text) -v1ConditionStatusL f V1Condition{..} = (\v1ConditionStatus -> V1Condition { v1ConditionStatus, ..} ) <$> f v1ConditionStatus -{-# INLINE v1ConditionStatusL #-} - --- | 'v1ConditionType' Lens -v1ConditionTypeL :: Lens_' V1Condition (Text) -v1ConditionTypeL f V1Condition{..} = (\v1ConditionType -> V1Condition { v1ConditionType, ..} ) <$> f v1ConditionType -{-# INLINE v1ConditionTypeL #-} - - - --- * V1ConfigMap - --- | 'v1ConfigMapApiVersion' Lens -v1ConfigMapApiVersionL :: Lens_' V1ConfigMap (Maybe Text) -v1ConfigMapApiVersionL f V1ConfigMap{..} = (\v1ConfigMapApiVersion -> V1ConfigMap { v1ConfigMapApiVersion, ..} ) <$> f v1ConfigMapApiVersion -{-# INLINE v1ConfigMapApiVersionL #-} - --- | 'v1ConfigMapBinaryData' Lens -v1ConfigMapBinaryDataL :: Lens_' V1ConfigMap (Maybe (Map.Map String ByteArray)) -v1ConfigMapBinaryDataL f V1ConfigMap{..} = (\v1ConfigMapBinaryData -> V1ConfigMap { v1ConfigMapBinaryData, ..} ) <$> f v1ConfigMapBinaryData -{-# INLINE v1ConfigMapBinaryDataL #-} - --- | 'v1ConfigMapData' Lens -v1ConfigMapDataL :: Lens_' V1ConfigMap (Maybe (Map.Map String Text)) -v1ConfigMapDataL f V1ConfigMap{..} = (\v1ConfigMapData -> V1ConfigMap { v1ConfigMapData, ..} ) <$> f v1ConfigMapData -{-# INLINE v1ConfigMapDataL #-} - --- | 'v1ConfigMapImmutable' Lens -v1ConfigMapImmutableL :: Lens_' V1ConfigMap (Maybe Bool) -v1ConfigMapImmutableL f V1ConfigMap{..} = (\v1ConfigMapImmutable -> V1ConfigMap { v1ConfigMapImmutable, ..} ) <$> f v1ConfigMapImmutable -{-# INLINE v1ConfigMapImmutableL #-} - --- | 'v1ConfigMapKind' Lens -v1ConfigMapKindL :: Lens_' V1ConfigMap (Maybe Text) -v1ConfigMapKindL f V1ConfigMap{..} = (\v1ConfigMapKind -> V1ConfigMap { v1ConfigMapKind, ..} ) <$> f v1ConfigMapKind -{-# INLINE v1ConfigMapKindL #-} - --- | 'v1ConfigMapMetadata' Lens -v1ConfigMapMetadataL :: Lens_' V1ConfigMap (Maybe V1ObjectMeta) -v1ConfigMapMetadataL f V1ConfigMap{..} = (\v1ConfigMapMetadata -> V1ConfigMap { v1ConfigMapMetadata, ..} ) <$> f v1ConfigMapMetadata -{-# INLINE v1ConfigMapMetadataL #-} - - - --- * V1ConfigMapEnvSource - --- | 'v1ConfigMapEnvSourceName' Lens -v1ConfigMapEnvSourceNameL :: Lens_' V1ConfigMapEnvSource (Maybe Text) -v1ConfigMapEnvSourceNameL f V1ConfigMapEnvSource{..} = (\v1ConfigMapEnvSourceName -> V1ConfigMapEnvSource { v1ConfigMapEnvSourceName, ..} ) <$> f v1ConfigMapEnvSourceName -{-# INLINE v1ConfigMapEnvSourceNameL #-} - --- | 'v1ConfigMapEnvSourceOptional' Lens -v1ConfigMapEnvSourceOptionalL :: Lens_' V1ConfigMapEnvSource (Maybe Bool) -v1ConfigMapEnvSourceOptionalL f V1ConfigMapEnvSource{..} = (\v1ConfigMapEnvSourceOptional -> V1ConfigMapEnvSource { v1ConfigMapEnvSourceOptional, ..} ) <$> f v1ConfigMapEnvSourceOptional -{-# INLINE v1ConfigMapEnvSourceOptionalL #-} - - - --- * V1ConfigMapKeySelector - --- | 'v1ConfigMapKeySelectorKey' Lens -v1ConfigMapKeySelectorKeyL :: Lens_' V1ConfigMapKeySelector (Text) -v1ConfigMapKeySelectorKeyL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorKey -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorKey, ..} ) <$> f v1ConfigMapKeySelectorKey -{-# INLINE v1ConfigMapKeySelectorKeyL #-} - --- | 'v1ConfigMapKeySelectorName' Lens -v1ConfigMapKeySelectorNameL :: Lens_' V1ConfigMapKeySelector (Maybe Text) -v1ConfigMapKeySelectorNameL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorName -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorName, ..} ) <$> f v1ConfigMapKeySelectorName -{-# INLINE v1ConfigMapKeySelectorNameL #-} - --- | 'v1ConfigMapKeySelectorOptional' Lens -v1ConfigMapKeySelectorOptionalL :: Lens_' V1ConfigMapKeySelector (Maybe Bool) -v1ConfigMapKeySelectorOptionalL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorOptional -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorOptional, ..} ) <$> f v1ConfigMapKeySelectorOptional -{-# INLINE v1ConfigMapKeySelectorOptionalL #-} - - - --- * V1ConfigMapList - --- | 'v1ConfigMapListApiVersion' Lens -v1ConfigMapListApiVersionL :: Lens_' V1ConfigMapList (Maybe Text) -v1ConfigMapListApiVersionL f V1ConfigMapList{..} = (\v1ConfigMapListApiVersion -> V1ConfigMapList { v1ConfigMapListApiVersion, ..} ) <$> f v1ConfigMapListApiVersion -{-# INLINE v1ConfigMapListApiVersionL #-} - --- | 'v1ConfigMapListItems' Lens -v1ConfigMapListItemsL :: Lens_' V1ConfigMapList ([V1ConfigMap]) -v1ConfigMapListItemsL f V1ConfigMapList{..} = (\v1ConfigMapListItems -> V1ConfigMapList { v1ConfigMapListItems, ..} ) <$> f v1ConfigMapListItems -{-# INLINE v1ConfigMapListItemsL #-} - --- | 'v1ConfigMapListKind' Lens -v1ConfigMapListKindL :: Lens_' V1ConfigMapList (Maybe Text) -v1ConfigMapListKindL f V1ConfigMapList{..} = (\v1ConfigMapListKind -> V1ConfigMapList { v1ConfigMapListKind, ..} ) <$> f v1ConfigMapListKind -{-# INLINE v1ConfigMapListKindL #-} - --- | 'v1ConfigMapListMetadata' Lens -v1ConfigMapListMetadataL :: Lens_' V1ConfigMapList (Maybe V1ListMeta) -v1ConfigMapListMetadataL f V1ConfigMapList{..} = (\v1ConfigMapListMetadata -> V1ConfigMapList { v1ConfigMapListMetadata, ..} ) <$> f v1ConfigMapListMetadata -{-# INLINE v1ConfigMapListMetadataL #-} - - - --- * V1ConfigMapNodeConfigSource - --- | 'v1ConfigMapNodeConfigSourceKubeletConfigKey' Lens -v1ConfigMapNodeConfigSourceKubeletConfigKeyL :: Lens_' V1ConfigMapNodeConfigSource (Text) -v1ConfigMapNodeConfigSourceKubeletConfigKeyL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceKubeletConfigKey -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceKubeletConfigKey, ..} ) <$> f v1ConfigMapNodeConfigSourceKubeletConfigKey -{-# INLINE v1ConfigMapNodeConfigSourceKubeletConfigKeyL #-} - --- | 'v1ConfigMapNodeConfigSourceName' Lens -v1ConfigMapNodeConfigSourceNameL :: Lens_' V1ConfigMapNodeConfigSource (Text) -v1ConfigMapNodeConfigSourceNameL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceName -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceName, ..} ) <$> f v1ConfigMapNodeConfigSourceName -{-# INLINE v1ConfigMapNodeConfigSourceNameL #-} - --- | 'v1ConfigMapNodeConfigSourceNamespace' Lens -v1ConfigMapNodeConfigSourceNamespaceL :: Lens_' V1ConfigMapNodeConfigSource (Text) -v1ConfigMapNodeConfigSourceNamespaceL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceNamespace -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceNamespace, ..} ) <$> f v1ConfigMapNodeConfigSourceNamespace -{-# INLINE v1ConfigMapNodeConfigSourceNamespaceL #-} - --- | 'v1ConfigMapNodeConfigSourceResourceVersion' Lens -v1ConfigMapNodeConfigSourceResourceVersionL :: Lens_' V1ConfigMapNodeConfigSource (Maybe Text) -v1ConfigMapNodeConfigSourceResourceVersionL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceResourceVersion -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceResourceVersion, ..} ) <$> f v1ConfigMapNodeConfigSourceResourceVersion -{-# INLINE v1ConfigMapNodeConfigSourceResourceVersionL #-} - --- | 'v1ConfigMapNodeConfigSourceUid' Lens -v1ConfigMapNodeConfigSourceUidL :: Lens_' V1ConfigMapNodeConfigSource (Maybe Text) -v1ConfigMapNodeConfigSourceUidL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceUid -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceUid, ..} ) <$> f v1ConfigMapNodeConfigSourceUid -{-# INLINE v1ConfigMapNodeConfigSourceUidL #-} - - - --- * V1ConfigMapProjection - --- | 'v1ConfigMapProjectionItems' Lens -v1ConfigMapProjectionItemsL :: Lens_' V1ConfigMapProjection (Maybe [V1KeyToPath]) -v1ConfigMapProjectionItemsL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionItems -> V1ConfigMapProjection { v1ConfigMapProjectionItems, ..} ) <$> f v1ConfigMapProjectionItems -{-# INLINE v1ConfigMapProjectionItemsL #-} - --- | 'v1ConfigMapProjectionName' Lens -v1ConfigMapProjectionNameL :: Lens_' V1ConfigMapProjection (Maybe Text) -v1ConfigMapProjectionNameL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionName -> V1ConfigMapProjection { v1ConfigMapProjectionName, ..} ) <$> f v1ConfigMapProjectionName -{-# INLINE v1ConfigMapProjectionNameL #-} - --- | 'v1ConfigMapProjectionOptional' Lens -v1ConfigMapProjectionOptionalL :: Lens_' V1ConfigMapProjection (Maybe Bool) -v1ConfigMapProjectionOptionalL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionOptional -> V1ConfigMapProjection { v1ConfigMapProjectionOptional, ..} ) <$> f v1ConfigMapProjectionOptional -{-# INLINE v1ConfigMapProjectionOptionalL #-} - - - --- * V1ConfigMapVolumeSource - --- | 'v1ConfigMapVolumeSourceDefaultMode' Lens -v1ConfigMapVolumeSourceDefaultModeL :: Lens_' V1ConfigMapVolumeSource (Maybe Int) -v1ConfigMapVolumeSourceDefaultModeL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceDefaultMode -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceDefaultMode, ..} ) <$> f v1ConfigMapVolumeSourceDefaultMode -{-# INLINE v1ConfigMapVolumeSourceDefaultModeL #-} - --- | 'v1ConfigMapVolumeSourceItems' Lens -v1ConfigMapVolumeSourceItemsL :: Lens_' V1ConfigMapVolumeSource (Maybe [V1KeyToPath]) -v1ConfigMapVolumeSourceItemsL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceItems -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceItems, ..} ) <$> f v1ConfigMapVolumeSourceItems -{-# INLINE v1ConfigMapVolumeSourceItemsL #-} - --- | 'v1ConfigMapVolumeSourceName' Lens -v1ConfigMapVolumeSourceNameL :: Lens_' V1ConfigMapVolumeSource (Maybe Text) -v1ConfigMapVolumeSourceNameL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceName -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceName, ..} ) <$> f v1ConfigMapVolumeSourceName -{-# INLINE v1ConfigMapVolumeSourceNameL #-} - --- | 'v1ConfigMapVolumeSourceOptional' Lens -v1ConfigMapVolumeSourceOptionalL :: Lens_' V1ConfigMapVolumeSource (Maybe Bool) -v1ConfigMapVolumeSourceOptionalL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceOptional -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceOptional, ..} ) <$> f v1ConfigMapVolumeSourceOptional -{-# INLINE v1ConfigMapVolumeSourceOptionalL #-} - - - --- * V1Container - --- | 'v1ContainerArgs' Lens -v1ContainerArgsL :: Lens_' V1Container (Maybe [Text]) -v1ContainerArgsL f V1Container{..} = (\v1ContainerArgs -> V1Container { v1ContainerArgs, ..} ) <$> f v1ContainerArgs -{-# INLINE v1ContainerArgsL #-} - --- | 'v1ContainerCommand' Lens -v1ContainerCommandL :: Lens_' V1Container (Maybe [Text]) -v1ContainerCommandL f V1Container{..} = (\v1ContainerCommand -> V1Container { v1ContainerCommand, ..} ) <$> f v1ContainerCommand -{-# INLINE v1ContainerCommandL #-} - --- | 'v1ContainerEnv' Lens -v1ContainerEnvL :: Lens_' V1Container (Maybe [V1EnvVar]) -v1ContainerEnvL f V1Container{..} = (\v1ContainerEnv -> V1Container { v1ContainerEnv, ..} ) <$> f v1ContainerEnv -{-# INLINE v1ContainerEnvL #-} - --- | 'v1ContainerEnvFrom' Lens -v1ContainerEnvFromL :: Lens_' V1Container (Maybe [V1EnvFromSource]) -v1ContainerEnvFromL f V1Container{..} = (\v1ContainerEnvFrom -> V1Container { v1ContainerEnvFrom, ..} ) <$> f v1ContainerEnvFrom -{-# INLINE v1ContainerEnvFromL #-} - --- | 'v1ContainerImage' Lens -v1ContainerImageL :: Lens_' V1Container (Maybe Text) -v1ContainerImageL f V1Container{..} = (\v1ContainerImage -> V1Container { v1ContainerImage, ..} ) <$> f v1ContainerImage -{-# INLINE v1ContainerImageL #-} - --- | 'v1ContainerImagePullPolicy' Lens -v1ContainerImagePullPolicyL :: Lens_' V1Container (Maybe Text) -v1ContainerImagePullPolicyL f V1Container{..} = (\v1ContainerImagePullPolicy -> V1Container { v1ContainerImagePullPolicy, ..} ) <$> f v1ContainerImagePullPolicy -{-# INLINE v1ContainerImagePullPolicyL #-} - --- | 'v1ContainerLifecycle' Lens -v1ContainerLifecycleL :: Lens_' V1Container (Maybe V1Lifecycle) -v1ContainerLifecycleL f V1Container{..} = (\v1ContainerLifecycle -> V1Container { v1ContainerLifecycle, ..} ) <$> f v1ContainerLifecycle -{-# INLINE v1ContainerLifecycleL #-} - --- | 'v1ContainerLivenessProbe' Lens -v1ContainerLivenessProbeL :: Lens_' V1Container (Maybe V1Probe) -v1ContainerLivenessProbeL f V1Container{..} = (\v1ContainerLivenessProbe -> V1Container { v1ContainerLivenessProbe, ..} ) <$> f v1ContainerLivenessProbe -{-# INLINE v1ContainerLivenessProbeL #-} - --- | 'v1ContainerName' Lens -v1ContainerNameL :: Lens_' V1Container (Text) -v1ContainerNameL f V1Container{..} = (\v1ContainerName -> V1Container { v1ContainerName, ..} ) <$> f v1ContainerName -{-# INLINE v1ContainerNameL #-} - --- | 'v1ContainerPorts' Lens -v1ContainerPortsL :: Lens_' V1Container (Maybe [V1ContainerPort]) -v1ContainerPortsL f V1Container{..} = (\v1ContainerPorts -> V1Container { v1ContainerPorts, ..} ) <$> f v1ContainerPorts -{-# INLINE v1ContainerPortsL #-} - --- | 'v1ContainerReadinessProbe' Lens -v1ContainerReadinessProbeL :: Lens_' V1Container (Maybe V1Probe) -v1ContainerReadinessProbeL f V1Container{..} = (\v1ContainerReadinessProbe -> V1Container { v1ContainerReadinessProbe, ..} ) <$> f v1ContainerReadinessProbe -{-# INLINE v1ContainerReadinessProbeL #-} - --- | 'v1ContainerResources' Lens -v1ContainerResourcesL :: Lens_' V1Container (Maybe V1ResourceRequirements) -v1ContainerResourcesL f V1Container{..} = (\v1ContainerResources -> V1Container { v1ContainerResources, ..} ) <$> f v1ContainerResources -{-# INLINE v1ContainerResourcesL #-} - --- | 'v1ContainerSecurityContext' Lens -v1ContainerSecurityContextL :: Lens_' V1Container (Maybe V1SecurityContext) -v1ContainerSecurityContextL f V1Container{..} = (\v1ContainerSecurityContext -> V1Container { v1ContainerSecurityContext, ..} ) <$> f v1ContainerSecurityContext -{-# INLINE v1ContainerSecurityContextL #-} - --- | 'v1ContainerStartupProbe' Lens -v1ContainerStartupProbeL :: Lens_' V1Container (Maybe V1Probe) -v1ContainerStartupProbeL f V1Container{..} = (\v1ContainerStartupProbe -> V1Container { v1ContainerStartupProbe, ..} ) <$> f v1ContainerStartupProbe -{-# INLINE v1ContainerStartupProbeL #-} - --- | 'v1ContainerStdin' Lens -v1ContainerStdinL :: Lens_' V1Container (Maybe Bool) -v1ContainerStdinL f V1Container{..} = (\v1ContainerStdin -> V1Container { v1ContainerStdin, ..} ) <$> f v1ContainerStdin -{-# INLINE v1ContainerStdinL #-} - --- | 'v1ContainerStdinOnce' Lens -v1ContainerStdinOnceL :: Lens_' V1Container (Maybe Bool) -v1ContainerStdinOnceL f V1Container{..} = (\v1ContainerStdinOnce -> V1Container { v1ContainerStdinOnce, ..} ) <$> f v1ContainerStdinOnce -{-# INLINE v1ContainerStdinOnceL #-} - --- | 'v1ContainerTerminationMessagePath' Lens -v1ContainerTerminationMessagePathL :: Lens_' V1Container (Maybe Text) -v1ContainerTerminationMessagePathL f V1Container{..} = (\v1ContainerTerminationMessagePath -> V1Container { v1ContainerTerminationMessagePath, ..} ) <$> f v1ContainerTerminationMessagePath -{-# INLINE v1ContainerTerminationMessagePathL #-} - --- | 'v1ContainerTerminationMessagePolicy' Lens -v1ContainerTerminationMessagePolicyL :: Lens_' V1Container (Maybe Text) -v1ContainerTerminationMessagePolicyL f V1Container{..} = (\v1ContainerTerminationMessagePolicy -> V1Container { v1ContainerTerminationMessagePolicy, ..} ) <$> f v1ContainerTerminationMessagePolicy -{-# INLINE v1ContainerTerminationMessagePolicyL #-} - --- | 'v1ContainerTty' Lens -v1ContainerTtyL :: Lens_' V1Container (Maybe Bool) -v1ContainerTtyL f V1Container{..} = (\v1ContainerTty -> V1Container { v1ContainerTty, ..} ) <$> f v1ContainerTty -{-# INLINE v1ContainerTtyL #-} - --- | 'v1ContainerVolumeDevices' Lens -v1ContainerVolumeDevicesL :: Lens_' V1Container (Maybe [V1VolumeDevice]) -v1ContainerVolumeDevicesL f V1Container{..} = (\v1ContainerVolumeDevices -> V1Container { v1ContainerVolumeDevices, ..} ) <$> f v1ContainerVolumeDevices -{-# INLINE v1ContainerVolumeDevicesL #-} - --- | 'v1ContainerVolumeMounts' Lens -v1ContainerVolumeMountsL :: Lens_' V1Container (Maybe [V1VolumeMount]) -v1ContainerVolumeMountsL f V1Container{..} = (\v1ContainerVolumeMounts -> V1Container { v1ContainerVolumeMounts, ..} ) <$> f v1ContainerVolumeMounts -{-# INLINE v1ContainerVolumeMountsL #-} - --- | 'v1ContainerWorkingDir' Lens -v1ContainerWorkingDirL :: Lens_' V1Container (Maybe Text) -v1ContainerWorkingDirL f V1Container{..} = (\v1ContainerWorkingDir -> V1Container { v1ContainerWorkingDir, ..} ) <$> f v1ContainerWorkingDir -{-# INLINE v1ContainerWorkingDirL #-} - - - --- * V1ContainerImage - --- | 'v1ContainerImageNames' Lens -v1ContainerImageNamesL :: Lens_' V1ContainerImage (Maybe [Text]) -v1ContainerImageNamesL f V1ContainerImage{..} = (\v1ContainerImageNames -> V1ContainerImage { v1ContainerImageNames, ..} ) <$> f v1ContainerImageNames -{-# INLINE v1ContainerImageNamesL #-} - --- | 'v1ContainerImageSizeBytes' Lens -v1ContainerImageSizeBytesL :: Lens_' V1ContainerImage (Maybe Integer) -v1ContainerImageSizeBytesL f V1ContainerImage{..} = (\v1ContainerImageSizeBytes -> V1ContainerImage { v1ContainerImageSizeBytes, ..} ) <$> f v1ContainerImageSizeBytes -{-# INLINE v1ContainerImageSizeBytesL #-} - - - --- * V1ContainerPort - --- | 'v1ContainerPortContainerPort' Lens -v1ContainerPortContainerPortL :: Lens_' V1ContainerPort (Int) -v1ContainerPortContainerPortL f V1ContainerPort{..} = (\v1ContainerPortContainerPort -> V1ContainerPort { v1ContainerPortContainerPort, ..} ) <$> f v1ContainerPortContainerPort -{-# INLINE v1ContainerPortContainerPortL #-} - --- | 'v1ContainerPortHostIp' Lens -v1ContainerPortHostIpL :: Lens_' V1ContainerPort (Maybe Text) -v1ContainerPortHostIpL f V1ContainerPort{..} = (\v1ContainerPortHostIp -> V1ContainerPort { v1ContainerPortHostIp, ..} ) <$> f v1ContainerPortHostIp -{-# INLINE v1ContainerPortHostIpL #-} - --- | 'v1ContainerPortHostPort' Lens -v1ContainerPortHostPortL :: Lens_' V1ContainerPort (Maybe Int) -v1ContainerPortHostPortL f V1ContainerPort{..} = (\v1ContainerPortHostPort -> V1ContainerPort { v1ContainerPortHostPort, ..} ) <$> f v1ContainerPortHostPort -{-# INLINE v1ContainerPortHostPortL #-} - --- | 'v1ContainerPortName' Lens -v1ContainerPortNameL :: Lens_' V1ContainerPort (Maybe Text) -v1ContainerPortNameL f V1ContainerPort{..} = (\v1ContainerPortName -> V1ContainerPort { v1ContainerPortName, ..} ) <$> f v1ContainerPortName -{-# INLINE v1ContainerPortNameL #-} - --- | 'v1ContainerPortProtocol' Lens -v1ContainerPortProtocolL :: Lens_' V1ContainerPort (Maybe Text) -v1ContainerPortProtocolL f V1ContainerPort{..} = (\v1ContainerPortProtocol -> V1ContainerPort { v1ContainerPortProtocol, ..} ) <$> f v1ContainerPortProtocol -{-# INLINE v1ContainerPortProtocolL #-} - - - --- * V1ContainerState - --- | 'v1ContainerStateRunning' Lens -v1ContainerStateRunningL :: Lens_' V1ContainerState (Maybe V1ContainerStateRunning) -v1ContainerStateRunningL f V1ContainerState{..} = (\v1ContainerStateRunning -> V1ContainerState { v1ContainerStateRunning, ..} ) <$> f v1ContainerStateRunning -{-# INLINE v1ContainerStateRunningL #-} - --- | 'v1ContainerStateTerminated' Lens -v1ContainerStateTerminatedL :: Lens_' V1ContainerState (Maybe V1ContainerStateTerminated) -v1ContainerStateTerminatedL f V1ContainerState{..} = (\v1ContainerStateTerminated -> V1ContainerState { v1ContainerStateTerminated, ..} ) <$> f v1ContainerStateTerminated -{-# INLINE v1ContainerStateTerminatedL #-} - --- | 'v1ContainerStateWaiting' Lens -v1ContainerStateWaitingL :: Lens_' V1ContainerState (Maybe V1ContainerStateWaiting) -v1ContainerStateWaitingL f V1ContainerState{..} = (\v1ContainerStateWaiting -> V1ContainerState { v1ContainerStateWaiting, ..} ) <$> f v1ContainerStateWaiting -{-# INLINE v1ContainerStateWaitingL #-} - - - --- * V1ContainerStateRunning - --- | 'v1ContainerStateRunningStartedAt' Lens -v1ContainerStateRunningStartedAtL :: Lens_' V1ContainerStateRunning (Maybe DateTime) -v1ContainerStateRunningStartedAtL f V1ContainerStateRunning{..} = (\v1ContainerStateRunningStartedAt -> V1ContainerStateRunning { v1ContainerStateRunningStartedAt, ..} ) <$> f v1ContainerStateRunningStartedAt -{-# INLINE v1ContainerStateRunningStartedAtL #-} - - - --- * V1ContainerStateTerminated - --- | 'v1ContainerStateTerminatedContainerId' Lens -v1ContainerStateTerminatedContainerIdL :: Lens_' V1ContainerStateTerminated (Maybe Text) -v1ContainerStateTerminatedContainerIdL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedContainerId -> V1ContainerStateTerminated { v1ContainerStateTerminatedContainerId, ..} ) <$> f v1ContainerStateTerminatedContainerId -{-# INLINE v1ContainerStateTerminatedContainerIdL #-} - --- | 'v1ContainerStateTerminatedExitCode' Lens -v1ContainerStateTerminatedExitCodeL :: Lens_' V1ContainerStateTerminated (Int) -v1ContainerStateTerminatedExitCodeL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedExitCode -> V1ContainerStateTerminated { v1ContainerStateTerminatedExitCode, ..} ) <$> f v1ContainerStateTerminatedExitCode -{-# INLINE v1ContainerStateTerminatedExitCodeL #-} - --- | 'v1ContainerStateTerminatedFinishedAt' Lens -v1ContainerStateTerminatedFinishedAtL :: Lens_' V1ContainerStateTerminated (Maybe DateTime) -v1ContainerStateTerminatedFinishedAtL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedFinishedAt -> V1ContainerStateTerminated { v1ContainerStateTerminatedFinishedAt, ..} ) <$> f v1ContainerStateTerminatedFinishedAt -{-# INLINE v1ContainerStateTerminatedFinishedAtL #-} - --- | 'v1ContainerStateTerminatedMessage' Lens -v1ContainerStateTerminatedMessageL :: Lens_' V1ContainerStateTerminated (Maybe Text) -v1ContainerStateTerminatedMessageL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedMessage -> V1ContainerStateTerminated { v1ContainerStateTerminatedMessage, ..} ) <$> f v1ContainerStateTerminatedMessage -{-# INLINE v1ContainerStateTerminatedMessageL #-} - --- | 'v1ContainerStateTerminatedReason' Lens -v1ContainerStateTerminatedReasonL :: Lens_' V1ContainerStateTerminated (Maybe Text) -v1ContainerStateTerminatedReasonL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedReason -> V1ContainerStateTerminated { v1ContainerStateTerminatedReason, ..} ) <$> f v1ContainerStateTerminatedReason -{-# INLINE v1ContainerStateTerminatedReasonL #-} - --- | 'v1ContainerStateTerminatedSignal' Lens -v1ContainerStateTerminatedSignalL :: Lens_' V1ContainerStateTerminated (Maybe Int) -v1ContainerStateTerminatedSignalL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedSignal -> V1ContainerStateTerminated { v1ContainerStateTerminatedSignal, ..} ) <$> f v1ContainerStateTerminatedSignal -{-# INLINE v1ContainerStateTerminatedSignalL #-} - --- | 'v1ContainerStateTerminatedStartedAt' Lens -v1ContainerStateTerminatedStartedAtL :: Lens_' V1ContainerStateTerminated (Maybe DateTime) -v1ContainerStateTerminatedStartedAtL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedStartedAt -> V1ContainerStateTerminated { v1ContainerStateTerminatedStartedAt, ..} ) <$> f v1ContainerStateTerminatedStartedAt -{-# INLINE v1ContainerStateTerminatedStartedAtL #-} - - - --- * V1ContainerStateWaiting - --- | 'v1ContainerStateWaitingMessage' Lens -v1ContainerStateWaitingMessageL :: Lens_' V1ContainerStateWaiting (Maybe Text) -v1ContainerStateWaitingMessageL f V1ContainerStateWaiting{..} = (\v1ContainerStateWaitingMessage -> V1ContainerStateWaiting { v1ContainerStateWaitingMessage, ..} ) <$> f v1ContainerStateWaitingMessage -{-# INLINE v1ContainerStateWaitingMessageL #-} - --- | 'v1ContainerStateWaitingReason' Lens -v1ContainerStateWaitingReasonL :: Lens_' V1ContainerStateWaiting (Maybe Text) -v1ContainerStateWaitingReasonL f V1ContainerStateWaiting{..} = (\v1ContainerStateWaitingReason -> V1ContainerStateWaiting { v1ContainerStateWaitingReason, ..} ) <$> f v1ContainerStateWaitingReason -{-# INLINE v1ContainerStateWaitingReasonL #-} - - - --- * V1ContainerStatus - --- | 'v1ContainerStatusContainerId' Lens -v1ContainerStatusContainerIdL :: Lens_' V1ContainerStatus (Maybe Text) -v1ContainerStatusContainerIdL f V1ContainerStatus{..} = (\v1ContainerStatusContainerId -> V1ContainerStatus { v1ContainerStatusContainerId, ..} ) <$> f v1ContainerStatusContainerId -{-# INLINE v1ContainerStatusContainerIdL #-} - --- | 'v1ContainerStatusImage' Lens -v1ContainerStatusImageL :: Lens_' V1ContainerStatus (Text) -v1ContainerStatusImageL f V1ContainerStatus{..} = (\v1ContainerStatusImage -> V1ContainerStatus { v1ContainerStatusImage, ..} ) <$> f v1ContainerStatusImage -{-# INLINE v1ContainerStatusImageL #-} - --- | 'v1ContainerStatusImageId' Lens -v1ContainerStatusImageIdL :: Lens_' V1ContainerStatus (Text) -v1ContainerStatusImageIdL f V1ContainerStatus{..} = (\v1ContainerStatusImageId -> V1ContainerStatus { v1ContainerStatusImageId, ..} ) <$> f v1ContainerStatusImageId -{-# INLINE v1ContainerStatusImageIdL #-} - --- | 'v1ContainerStatusLastState' Lens -v1ContainerStatusLastStateL :: Lens_' V1ContainerStatus (Maybe V1ContainerState) -v1ContainerStatusLastStateL f V1ContainerStatus{..} = (\v1ContainerStatusLastState -> V1ContainerStatus { v1ContainerStatusLastState, ..} ) <$> f v1ContainerStatusLastState -{-# INLINE v1ContainerStatusLastStateL #-} - --- | 'v1ContainerStatusName' Lens -v1ContainerStatusNameL :: Lens_' V1ContainerStatus (Text) -v1ContainerStatusNameL f V1ContainerStatus{..} = (\v1ContainerStatusName -> V1ContainerStatus { v1ContainerStatusName, ..} ) <$> f v1ContainerStatusName -{-# INLINE v1ContainerStatusNameL #-} - --- | 'v1ContainerStatusReady' Lens -v1ContainerStatusReadyL :: Lens_' V1ContainerStatus (Bool) -v1ContainerStatusReadyL f V1ContainerStatus{..} = (\v1ContainerStatusReady -> V1ContainerStatus { v1ContainerStatusReady, ..} ) <$> f v1ContainerStatusReady -{-# INLINE v1ContainerStatusReadyL #-} - --- | 'v1ContainerStatusRestartCount' Lens -v1ContainerStatusRestartCountL :: Lens_' V1ContainerStatus (Int) -v1ContainerStatusRestartCountL f V1ContainerStatus{..} = (\v1ContainerStatusRestartCount -> V1ContainerStatus { v1ContainerStatusRestartCount, ..} ) <$> f v1ContainerStatusRestartCount -{-# INLINE v1ContainerStatusRestartCountL #-} - --- | 'v1ContainerStatusStarted' Lens -v1ContainerStatusStartedL :: Lens_' V1ContainerStatus (Maybe Bool) -v1ContainerStatusStartedL f V1ContainerStatus{..} = (\v1ContainerStatusStarted -> V1ContainerStatus { v1ContainerStatusStarted, ..} ) <$> f v1ContainerStatusStarted -{-# INLINE v1ContainerStatusStartedL #-} - --- | 'v1ContainerStatusState' Lens -v1ContainerStatusStateL :: Lens_' V1ContainerStatus (Maybe V1ContainerState) -v1ContainerStatusStateL f V1ContainerStatus{..} = (\v1ContainerStatusState -> V1ContainerStatus { v1ContainerStatusState, ..} ) <$> f v1ContainerStatusState -{-# INLINE v1ContainerStatusStateL #-} - - - --- * V1ControllerRevision - --- | 'v1ControllerRevisionApiVersion' Lens -v1ControllerRevisionApiVersionL :: Lens_' V1ControllerRevision (Maybe Text) -v1ControllerRevisionApiVersionL f V1ControllerRevision{..} = (\v1ControllerRevisionApiVersion -> V1ControllerRevision { v1ControllerRevisionApiVersion, ..} ) <$> f v1ControllerRevisionApiVersion -{-# INLINE v1ControllerRevisionApiVersionL #-} - --- | 'v1ControllerRevisionData' Lens -v1ControllerRevisionDataL :: Lens_' V1ControllerRevision (Maybe A.Value) -v1ControllerRevisionDataL f V1ControllerRevision{..} = (\v1ControllerRevisionData -> V1ControllerRevision { v1ControllerRevisionData, ..} ) <$> f v1ControllerRevisionData -{-# INLINE v1ControllerRevisionDataL #-} - --- | 'v1ControllerRevisionKind' Lens -v1ControllerRevisionKindL :: Lens_' V1ControllerRevision (Maybe Text) -v1ControllerRevisionKindL f V1ControllerRevision{..} = (\v1ControllerRevisionKind -> V1ControllerRevision { v1ControllerRevisionKind, ..} ) <$> f v1ControllerRevisionKind -{-# INLINE v1ControllerRevisionKindL #-} - --- | 'v1ControllerRevisionMetadata' Lens -v1ControllerRevisionMetadataL :: Lens_' V1ControllerRevision (Maybe V1ObjectMeta) -v1ControllerRevisionMetadataL f V1ControllerRevision{..} = (\v1ControllerRevisionMetadata -> V1ControllerRevision { v1ControllerRevisionMetadata, ..} ) <$> f v1ControllerRevisionMetadata -{-# INLINE v1ControllerRevisionMetadataL #-} - --- | 'v1ControllerRevisionRevision' Lens -v1ControllerRevisionRevisionL :: Lens_' V1ControllerRevision (Integer) -v1ControllerRevisionRevisionL f V1ControllerRevision{..} = (\v1ControllerRevisionRevision -> V1ControllerRevision { v1ControllerRevisionRevision, ..} ) <$> f v1ControllerRevisionRevision -{-# INLINE v1ControllerRevisionRevisionL #-} - - - --- * V1ControllerRevisionList - --- | 'v1ControllerRevisionListApiVersion' Lens -v1ControllerRevisionListApiVersionL :: Lens_' V1ControllerRevisionList (Maybe Text) -v1ControllerRevisionListApiVersionL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListApiVersion -> V1ControllerRevisionList { v1ControllerRevisionListApiVersion, ..} ) <$> f v1ControllerRevisionListApiVersion -{-# INLINE v1ControllerRevisionListApiVersionL #-} - --- | 'v1ControllerRevisionListItems' Lens -v1ControllerRevisionListItemsL :: Lens_' V1ControllerRevisionList ([V1ControllerRevision]) -v1ControllerRevisionListItemsL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListItems -> V1ControllerRevisionList { v1ControllerRevisionListItems, ..} ) <$> f v1ControllerRevisionListItems -{-# INLINE v1ControllerRevisionListItemsL #-} - --- | 'v1ControllerRevisionListKind' Lens -v1ControllerRevisionListKindL :: Lens_' V1ControllerRevisionList (Maybe Text) -v1ControllerRevisionListKindL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListKind -> V1ControllerRevisionList { v1ControllerRevisionListKind, ..} ) <$> f v1ControllerRevisionListKind -{-# INLINE v1ControllerRevisionListKindL #-} - --- | 'v1ControllerRevisionListMetadata' Lens -v1ControllerRevisionListMetadataL :: Lens_' V1ControllerRevisionList (Maybe V1ListMeta) -v1ControllerRevisionListMetadataL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListMetadata -> V1ControllerRevisionList { v1ControllerRevisionListMetadata, ..} ) <$> f v1ControllerRevisionListMetadata -{-# INLINE v1ControllerRevisionListMetadataL #-} - - - --- * V1CronJob - --- | 'v1CronJobApiVersion' Lens -v1CronJobApiVersionL :: Lens_' V1CronJob (Maybe Text) -v1CronJobApiVersionL f V1CronJob{..} = (\v1CronJobApiVersion -> V1CronJob { v1CronJobApiVersion, ..} ) <$> f v1CronJobApiVersion -{-# INLINE v1CronJobApiVersionL #-} - --- | 'v1CronJobKind' Lens -v1CronJobKindL :: Lens_' V1CronJob (Maybe Text) -v1CronJobKindL f V1CronJob{..} = (\v1CronJobKind -> V1CronJob { v1CronJobKind, ..} ) <$> f v1CronJobKind -{-# INLINE v1CronJobKindL #-} - --- | 'v1CronJobMetadata' Lens -v1CronJobMetadataL :: Lens_' V1CronJob (Maybe V1ObjectMeta) -v1CronJobMetadataL f V1CronJob{..} = (\v1CronJobMetadata -> V1CronJob { v1CronJobMetadata, ..} ) <$> f v1CronJobMetadata -{-# INLINE v1CronJobMetadataL #-} - --- | 'v1CronJobSpec' Lens -v1CronJobSpecL :: Lens_' V1CronJob (Maybe V1CronJobSpec) -v1CronJobSpecL f V1CronJob{..} = (\v1CronJobSpec -> V1CronJob { v1CronJobSpec, ..} ) <$> f v1CronJobSpec -{-# INLINE v1CronJobSpecL #-} - --- | 'v1CronJobStatus' Lens -v1CronJobStatusL :: Lens_' V1CronJob (Maybe V1CronJobStatus) -v1CronJobStatusL f V1CronJob{..} = (\v1CronJobStatus -> V1CronJob { v1CronJobStatus, ..} ) <$> f v1CronJobStatus -{-# INLINE v1CronJobStatusL #-} - - - --- * V1CronJobList - --- | 'v1CronJobListApiVersion' Lens -v1CronJobListApiVersionL :: Lens_' V1CronJobList (Maybe Text) -v1CronJobListApiVersionL f V1CronJobList{..} = (\v1CronJobListApiVersion -> V1CronJobList { v1CronJobListApiVersion, ..} ) <$> f v1CronJobListApiVersion -{-# INLINE v1CronJobListApiVersionL #-} - --- | 'v1CronJobListItems' Lens -v1CronJobListItemsL :: Lens_' V1CronJobList ([V1CronJob]) -v1CronJobListItemsL f V1CronJobList{..} = (\v1CronJobListItems -> V1CronJobList { v1CronJobListItems, ..} ) <$> f v1CronJobListItems -{-# INLINE v1CronJobListItemsL #-} - --- | 'v1CronJobListKind' Lens -v1CronJobListKindL :: Lens_' V1CronJobList (Maybe Text) -v1CronJobListKindL f V1CronJobList{..} = (\v1CronJobListKind -> V1CronJobList { v1CronJobListKind, ..} ) <$> f v1CronJobListKind -{-# INLINE v1CronJobListKindL #-} - --- | 'v1CronJobListMetadata' Lens -v1CronJobListMetadataL :: Lens_' V1CronJobList (Maybe V1ListMeta) -v1CronJobListMetadataL f V1CronJobList{..} = (\v1CronJobListMetadata -> V1CronJobList { v1CronJobListMetadata, ..} ) <$> f v1CronJobListMetadata -{-# INLINE v1CronJobListMetadataL #-} - - - --- * V1CronJobSpec - --- | 'v1CronJobSpecConcurrencyPolicy' Lens -v1CronJobSpecConcurrencyPolicyL :: Lens_' V1CronJobSpec (Maybe Text) -v1CronJobSpecConcurrencyPolicyL f V1CronJobSpec{..} = (\v1CronJobSpecConcurrencyPolicy -> V1CronJobSpec { v1CronJobSpecConcurrencyPolicy, ..} ) <$> f v1CronJobSpecConcurrencyPolicy -{-# INLINE v1CronJobSpecConcurrencyPolicyL #-} - --- | 'v1CronJobSpecFailedJobsHistoryLimit' Lens -v1CronJobSpecFailedJobsHistoryLimitL :: Lens_' V1CronJobSpec (Maybe Int) -v1CronJobSpecFailedJobsHistoryLimitL f V1CronJobSpec{..} = (\v1CronJobSpecFailedJobsHistoryLimit -> V1CronJobSpec { v1CronJobSpecFailedJobsHistoryLimit, ..} ) <$> f v1CronJobSpecFailedJobsHistoryLimit -{-# INLINE v1CronJobSpecFailedJobsHistoryLimitL #-} - --- | 'v1CronJobSpecJobTemplate' Lens -v1CronJobSpecJobTemplateL :: Lens_' V1CronJobSpec (V1JobTemplateSpec) -v1CronJobSpecJobTemplateL f V1CronJobSpec{..} = (\v1CronJobSpecJobTemplate -> V1CronJobSpec { v1CronJobSpecJobTemplate, ..} ) <$> f v1CronJobSpecJobTemplate -{-# INLINE v1CronJobSpecJobTemplateL #-} - --- | 'v1CronJobSpecSchedule' Lens -v1CronJobSpecScheduleL :: Lens_' V1CronJobSpec (Text) -v1CronJobSpecScheduleL f V1CronJobSpec{..} = (\v1CronJobSpecSchedule -> V1CronJobSpec { v1CronJobSpecSchedule, ..} ) <$> f v1CronJobSpecSchedule -{-# INLINE v1CronJobSpecScheduleL #-} - --- | 'v1CronJobSpecStartingDeadlineSeconds' Lens -v1CronJobSpecStartingDeadlineSecondsL :: Lens_' V1CronJobSpec (Maybe Integer) -v1CronJobSpecStartingDeadlineSecondsL f V1CronJobSpec{..} = (\v1CronJobSpecStartingDeadlineSeconds -> V1CronJobSpec { v1CronJobSpecStartingDeadlineSeconds, ..} ) <$> f v1CronJobSpecStartingDeadlineSeconds -{-# INLINE v1CronJobSpecStartingDeadlineSecondsL #-} - --- | 'v1CronJobSpecSuccessfulJobsHistoryLimit' Lens -v1CronJobSpecSuccessfulJobsHistoryLimitL :: Lens_' V1CronJobSpec (Maybe Int) -v1CronJobSpecSuccessfulJobsHistoryLimitL f V1CronJobSpec{..} = (\v1CronJobSpecSuccessfulJobsHistoryLimit -> V1CronJobSpec { v1CronJobSpecSuccessfulJobsHistoryLimit, ..} ) <$> f v1CronJobSpecSuccessfulJobsHistoryLimit -{-# INLINE v1CronJobSpecSuccessfulJobsHistoryLimitL #-} - --- | 'v1CronJobSpecSuspend' Lens -v1CronJobSpecSuspendL :: Lens_' V1CronJobSpec (Maybe Bool) -v1CronJobSpecSuspendL f V1CronJobSpec{..} = (\v1CronJobSpecSuspend -> V1CronJobSpec { v1CronJobSpecSuspend, ..} ) <$> f v1CronJobSpecSuspend -{-# INLINE v1CronJobSpecSuspendL #-} - --- | 'v1CronJobSpecTimeZone' Lens -v1CronJobSpecTimeZoneL :: Lens_' V1CronJobSpec (Maybe Text) -v1CronJobSpecTimeZoneL f V1CronJobSpec{..} = (\v1CronJobSpecTimeZone -> V1CronJobSpec { v1CronJobSpecTimeZone, ..} ) <$> f v1CronJobSpecTimeZone -{-# INLINE v1CronJobSpecTimeZoneL #-} - - - --- * V1CronJobStatus - --- | 'v1CronJobStatusActive' Lens -v1CronJobStatusActiveL :: Lens_' V1CronJobStatus (Maybe [V1ObjectReference]) -v1CronJobStatusActiveL f V1CronJobStatus{..} = (\v1CronJobStatusActive -> V1CronJobStatus { v1CronJobStatusActive, ..} ) <$> f v1CronJobStatusActive -{-# INLINE v1CronJobStatusActiveL #-} - --- | 'v1CronJobStatusLastScheduleTime' Lens -v1CronJobStatusLastScheduleTimeL :: Lens_' V1CronJobStatus (Maybe DateTime) -v1CronJobStatusLastScheduleTimeL f V1CronJobStatus{..} = (\v1CronJobStatusLastScheduleTime -> V1CronJobStatus { v1CronJobStatusLastScheduleTime, ..} ) <$> f v1CronJobStatusLastScheduleTime -{-# INLINE v1CronJobStatusLastScheduleTimeL #-} - --- | 'v1CronJobStatusLastSuccessfulTime' Lens -v1CronJobStatusLastSuccessfulTimeL :: Lens_' V1CronJobStatus (Maybe DateTime) -v1CronJobStatusLastSuccessfulTimeL f V1CronJobStatus{..} = (\v1CronJobStatusLastSuccessfulTime -> V1CronJobStatus { v1CronJobStatusLastSuccessfulTime, ..} ) <$> f v1CronJobStatusLastSuccessfulTime -{-# INLINE v1CronJobStatusLastSuccessfulTimeL #-} - - - --- * V1CrossVersionObjectReference - --- | 'v1CrossVersionObjectReferenceApiVersion' Lens -v1CrossVersionObjectReferenceApiVersionL :: Lens_' V1CrossVersionObjectReference (Maybe Text) -v1CrossVersionObjectReferenceApiVersionL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceApiVersion -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceApiVersion, ..} ) <$> f v1CrossVersionObjectReferenceApiVersion -{-# INLINE v1CrossVersionObjectReferenceApiVersionL #-} - --- | 'v1CrossVersionObjectReferenceKind' Lens -v1CrossVersionObjectReferenceKindL :: Lens_' V1CrossVersionObjectReference (Text) -v1CrossVersionObjectReferenceKindL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceKind -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceKind, ..} ) <$> f v1CrossVersionObjectReferenceKind -{-# INLINE v1CrossVersionObjectReferenceKindL #-} - --- | 'v1CrossVersionObjectReferenceName' Lens -v1CrossVersionObjectReferenceNameL :: Lens_' V1CrossVersionObjectReference (Text) -v1CrossVersionObjectReferenceNameL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceName -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceName, ..} ) <$> f v1CrossVersionObjectReferenceName -{-# INLINE v1CrossVersionObjectReferenceNameL #-} - - - --- * V1CustomResourceColumnDefinition - --- | 'v1CustomResourceColumnDefinitionDescription' Lens -v1CustomResourceColumnDefinitionDescriptionL :: Lens_' V1CustomResourceColumnDefinition (Maybe Text) -v1CustomResourceColumnDefinitionDescriptionL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionDescription -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionDescription, ..} ) <$> f v1CustomResourceColumnDefinitionDescription -{-# INLINE v1CustomResourceColumnDefinitionDescriptionL #-} - --- | 'v1CustomResourceColumnDefinitionFormat' Lens -v1CustomResourceColumnDefinitionFormatL :: Lens_' V1CustomResourceColumnDefinition (Maybe Text) -v1CustomResourceColumnDefinitionFormatL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionFormat -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionFormat, ..} ) <$> f v1CustomResourceColumnDefinitionFormat -{-# INLINE v1CustomResourceColumnDefinitionFormatL #-} - --- | 'v1CustomResourceColumnDefinitionJsonPath' Lens -v1CustomResourceColumnDefinitionJsonPathL :: Lens_' V1CustomResourceColumnDefinition (Text) -v1CustomResourceColumnDefinitionJsonPathL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionJsonPath -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionJsonPath, ..} ) <$> f v1CustomResourceColumnDefinitionJsonPath -{-# INLINE v1CustomResourceColumnDefinitionJsonPathL #-} - --- | 'v1CustomResourceColumnDefinitionName' Lens -v1CustomResourceColumnDefinitionNameL :: Lens_' V1CustomResourceColumnDefinition (Text) -v1CustomResourceColumnDefinitionNameL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionName -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionName, ..} ) <$> f v1CustomResourceColumnDefinitionName -{-# INLINE v1CustomResourceColumnDefinitionNameL #-} - --- | 'v1CustomResourceColumnDefinitionPriority' Lens -v1CustomResourceColumnDefinitionPriorityL :: Lens_' V1CustomResourceColumnDefinition (Maybe Int) -v1CustomResourceColumnDefinitionPriorityL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionPriority -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionPriority, ..} ) <$> f v1CustomResourceColumnDefinitionPriority -{-# INLINE v1CustomResourceColumnDefinitionPriorityL #-} - --- | 'v1CustomResourceColumnDefinitionType' Lens -v1CustomResourceColumnDefinitionTypeL :: Lens_' V1CustomResourceColumnDefinition (Text) -v1CustomResourceColumnDefinitionTypeL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionType -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionType, ..} ) <$> f v1CustomResourceColumnDefinitionType -{-# INLINE v1CustomResourceColumnDefinitionTypeL #-} - - - --- * V1CustomResourceConversion - --- | 'v1CustomResourceConversionStrategy' Lens -v1CustomResourceConversionStrategyL :: Lens_' V1CustomResourceConversion (Text) -v1CustomResourceConversionStrategyL f V1CustomResourceConversion{..} = (\v1CustomResourceConversionStrategy -> V1CustomResourceConversion { v1CustomResourceConversionStrategy, ..} ) <$> f v1CustomResourceConversionStrategy -{-# INLINE v1CustomResourceConversionStrategyL #-} - --- | 'v1CustomResourceConversionWebhook' Lens -v1CustomResourceConversionWebhookL :: Lens_' V1CustomResourceConversion (Maybe V1WebhookConversion) -v1CustomResourceConversionWebhookL f V1CustomResourceConversion{..} = (\v1CustomResourceConversionWebhook -> V1CustomResourceConversion { v1CustomResourceConversionWebhook, ..} ) <$> f v1CustomResourceConversionWebhook -{-# INLINE v1CustomResourceConversionWebhookL #-} - - - --- * V1CustomResourceDefinition - --- | 'v1CustomResourceDefinitionApiVersion' Lens -v1CustomResourceDefinitionApiVersionL :: Lens_' V1CustomResourceDefinition (Maybe Text) -v1CustomResourceDefinitionApiVersionL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionApiVersion -> V1CustomResourceDefinition { v1CustomResourceDefinitionApiVersion, ..} ) <$> f v1CustomResourceDefinitionApiVersion -{-# INLINE v1CustomResourceDefinitionApiVersionL #-} - --- | 'v1CustomResourceDefinitionKind' Lens -v1CustomResourceDefinitionKindL :: Lens_' V1CustomResourceDefinition (Maybe Text) -v1CustomResourceDefinitionKindL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionKind -> V1CustomResourceDefinition { v1CustomResourceDefinitionKind, ..} ) <$> f v1CustomResourceDefinitionKind -{-# INLINE v1CustomResourceDefinitionKindL #-} - --- | 'v1CustomResourceDefinitionMetadata' Lens -v1CustomResourceDefinitionMetadataL :: Lens_' V1CustomResourceDefinition (Maybe V1ObjectMeta) -v1CustomResourceDefinitionMetadataL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionMetadata -> V1CustomResourceDefinition { v1CustomResourceDefinitionMetadata, ..} ) <$> f v1CustomResourceDefinitionMetadata -{-# INLINE v1CustomResourceDefinitionMetadataL #-} - --- | 'v1CustomResourceDefinitionSpec' Lens -v1CustomResourceDefinitionSpecL :: Lens_' V1CustomResourceDefinition (V1CustomResourceDefinitionSpec) -v1CustomResourceDefinitionSpecL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionSpec -> V1CustomResourceDefinition { v1CustomResourceDefinitionSpec, ..} ) <$> f v1CustomResourceDefinitionSpec -{-# INLINE v1CustomResourceDefinitionSpecL #-} - --- | 'v1CustomResourceDefinitionStatus' Lens -v1CustomResourceDefinitionStatusL :: Lens_' V1CustomResourceDefinition (Maybe V1CustomResourceDefinitionStatus) -v1CustomResourceDefinitionStatusL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionStatus -> V1CustomResourceDefinition { v1CustomResourceDefinitionStatus, ..} ) <$> f v1CustomResourceDefinitionStatus -{-# INLINE v1CustomResourceDefinitionStatusL #-} - - - --- * V1CustomResourceDefinitionCondition - --- | 'v1CustomResourceDefinitionConditionLastTransitionTime' Lens -v1CustomResourceDefinitionConditionLastTransitionTimeL :: Lens_' V1CustomResourceDefinitionCondition (Maybe DateTime) -v1CustomResourceDefinitionConditionLastTransitionTimeL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionLastTransitionTime -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionLastTransitionTime, ..} ) <$> f v1CustomResourceDefinitionConditionLastTransitionTime -{-# INLINE v1CustomResourceDefinitionConditionLastTransitionTimeL #-} - --- | 'v1CustomResourceDefinitionConditionMessage' Lens -v1CustomResourceDefinitionConditionMessageL :: Lens_' V1CustomResourceDefinitionCondition (Maybe Text) -v1CustomResourceDefinitionConditionMessageL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionMessage -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionMessage, ..} ) <$> f v1CustomResourceDefinitionConditionMessage -{-# INLINE v1CustomResourceDefinitionConditionMessageL #-} - --- | 'v1CustomResourceDefinitionConditionReason' Lens -v1CustomResourceDefinitionConditionReasonL :: Lens_' V1CustomResourceDefinitionCondition (Maybe Text) -v1CustomResourceDefinitionConditionReasonL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionReason -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionReason, ..} ) <$> f v1CustomResourceDefinitionConditionReason -{-# INLINE v1CustomResourceDefinitionConditionReasonL #-} - --- | 'v1CustomResourceDefinitionConditionStatus' Lens -v1CustomResourceDefinitionConditionStatusL :: Lens_' V1CustomResourceDefinitionCondition (Text) -v1CustomResourceDefinitionConditionStatusL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionStatus -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionStatus, ..} ) <$> f v1CustomResourceDefinitionConditionStatus -{-# INLINE v1CustomResourceDefinitionConditionStatusL #-} - --- | 'v1CustomResourceDefinitionConditionType' Lens -v1CustomResourceDefinitionConditionTypeL :: Lens_' V1CustomResourceDefinitionCondition (Text) -v1CustomResourceDefinitionConditionTypeL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionType -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionType, ..} ) <$> f v1CustomResourceDefinitionConditionType -{-# INLINE v1CustomResourceDefinitionConditionTypeL #-} - - - --- * V1CustomResourceDefinitionList - --- | 'v1CustomResourceDefinitionListApiVersion' Lens -v1CustomResourceDefinitionListApiVersionL :: Lens_' V1CustomResourceDefinitionList (Maybe Text) -v1CustomResourceDefinitionListApiVersionL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListApiVersion -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListApiVersion, ..} ) <$> f v1CustomResourceDefinitionListApiVersion -{-# INLINE v1CustomResourceDefinitionListApiVersionL #-} - --- | 'v1CustomResourceDefinitionListItems' Lens -v1CustomResourceDefinitionListItemsL :: Lens_' V1CustomResourceDefinitionList ([V1CustomResourceDefinition]) -v1CustomResourceDefinitionListItemsL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListItems -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListItems, ..} ) <$> f v1CustomResourceDefinitionListItems -{-# INLINE v1CustomResourceDefinitionListItemsL #-} - --- | 'v1CustomResourceDefinitionListKind' Lens -v1CustomResourceDefinitionListKindL :: Lens_' V1CustomResourceDefinitionList (Maybe Text) -v1CustomResourceDefinitionListKindL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListKind -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListKind, ..} ) <$> f v1CustomResourceDefinitionListKind -{-# INLINE v1CustomResourceDefinitionListKindL #-} - --- | 'v1CustomResourceDefinitionListMetadata' Lens -v1CustomResourceDefinitionListMetadataL :: Lens_' V1CustomResourceDefinitionList (Maybe V1ListMeta) -v1CustomResourceDefinitionListMetadataL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListMetadata -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListMetadata, ..} ) <$> f v1CustomResourceDefinitionListMetadata -{-# INLINE v1CustomResourceDefinitionListMetadataL #-} - - - --- * V1CustomResourceDefinitionNames - --- | 'v1CustomResourceDefinitionNamesCategories' Lens -v1CustomResourceDefinitionNamesCategoriesL :: Lens_' V1CustomResourceDefinitionNames (Maybe [Text]) -v1CustomResourceDefinitionNamesCategoriesL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesCategories -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesCategories, ..} ) <$> f v1CustomResourceDefinitionNamesCategories -{-# INLINE v1CustomResourceDefinitionNamesCategoriesL #-} - --- | 'v1CustomResourceDefinitionNamesKind' Lens -v1CustomResourceDefinitionNamesKindL :: Lens_' V1CustomResourceDefinitionNames (Text) -v1CustomResourceDefinitionNamesKindL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesKind -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesKind, ..} ) <$> f v1CustomResourceDefinitionNamesKind -{-# INLINE v1CustomResourceDefinitionNamesKindL #-} - --- | 'v1CustomResourceDefinitionNamesListKind' Lens -v1CustomResourceDefinitionNamesListKindL :: Lens_' V1CustomResourceDefinitionNames (Maybe Text) -v1CustomResourceDefinitionNamesListKindL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesListKind -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesListKind, ..} ) <$> f v1CustomResourceDefinitionNamesListKind -{-# INLINE v1CustomResourceDefinitionNamesListKindL #-} - --- | 'v1CustomResourceDefinitionNamesPlural' Lens -v1CustomResourceDefinitionNamesPluralL :: Lens_' V1CustomResourceDefinitionNames (Text) -v1CustomResourceDefinitionNamesPluralL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesPlural -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesPlural, ..} ) <$> f v1CustomResourceDefinitionNamesPlural -{-# INLINE v1CustomResourceDefinitionNamesPluralL #-} - --- | 'v1CustomResourceDefinitionNamesShortNames' Lens -v1CustomResourceDefinitionNamesShortNamesL :: Lens_' V1CustomResourceDefinitionNames (Maybe [Text]) -v1CustomResourceDefinitionNamesShortNamesL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesShortNames -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesShortNames, ..} ) <$> f v1CustomResourceDefinitionNamesShortNames -{-# INLINE v1CustomResourceDefinitionNamesShortNamesL #-} - --- | 'v1CustomResourceDefinitionNamesSingular' Lens -v1CustomResourceDefinitionNamesSingularL :: Lens_' V1CustomResourceDefinitionNames (Maybe Text) -v1CustomResourceDefinitionNamesSingularL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesSingular -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesSingular, ..} ) <$> f v1CustomResourceDefinitionNamesSingular -{-# INLINE v1CustomResourceDefinitionNamesSingularL #-} - - - --- * V1CustomResourceDefinitionSpec - --- | 'v1CustomResourceDefinitionSpecConversion' Lens -v1CustomResourceDefinitionSpecConversionL :: Lens_' V1CustomResourceDefinitionSpec (Maybe V1CustomResourceConversion) -v1CustomResourceDefinitionSpecConversionL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecConversion -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecConversion, ..} ) <$> f v1CustomResourceDefinitionSpecConversion -{-# INLINE v1CustomResourceDefinitionSpecConversionL #-} - --- | 'v1CustomResourceDefinitionSpecGroup' Lens -v1CustomResourceDefinitionSpecGroupL :: Lens_' V1CustomResourceDefinitionSpec (Text) -v1CustomResourceDefinitionSpecGroupL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecGroup -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecGroup, ..} ) <$> f v1CustomResourceDefinitionSpecGroup -{-# INLINE v1CustomResourceDefinitionSpecGroupL #-} - --- | 'v1CustomResourceDefinitionSpecNames' Lens -v1CustomResourceDefinitionSpecNamesL :: Lens_' V1CustomResourceDefinitionSpec (V1CustomResourceDefinitionNames) -v1CustomResourceDefinitionSpecNamesL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecNames -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecNames, ..} ) <$> f v1CustomResourceDefinitionSpecNames -{-# INLINE v1CustomResourceDefinitionSpecNamesL #-} - --- | 'v1CustomResourceDefinitionSpecPreserveUnknownFields' Lens -v1CustomResourceDefinitionSpecPreserveUnknownFieldsL :: Lens_' V1CustomResourceDefinitionSpec (Maybe Bool) -v1CustomResourceDefinitionSpecPreserveUnknownFieldsL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecPreserveUnknownFields -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecPreserveUnknownFields, ..} ) <$> f v1CustomResourceDefinitionSpecPreserveUnknownFields -{-# INLINE v1CustomResourceDefinitionSpecPreserveUnknownFieldsL #-} - --- | 'v1CustomResourceDefinitionSpecScope' Lens -v1CustomResourceDefinitionSpecScopeL :: Lens_' V1CustomResourceDefinitionSpec (Text) -v1CustomResourceDefinitionSpecScopeL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecScope -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecScope, ..} ) <$> f v1CustomResourceDefinitionSpecScope -{-# INLINE v1CustomResourceDefinitionSpecScopeL #-} - --- | 'v1CustomResourceDefinitionSpecVersions' Lens -v1CustomResourceDefinitionSpecVersionsL :: Lens_' V1CustomResourceDefinitionSpec ([V1CustomResourceDefinitionVersion]) -v1CustomResourceDefinitionSpecVersionsL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecVersions -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecVersions, ..} ) <$> f v1CustomResourceDefinitionSpecVersions -{-# INLINE v1CustomResourceDefinitionSpecVersionsL #-} - - - --- * V1CustomResourceDefinitionStatus - --- | 'v1CustomResourceDefinitionStatusAcceptedNames' Lens -v1CustomResourceDefinitionStatusAcceptedNamesL :: Lens_' V1CustomResourceDefinitionStatus (Maybe V1CustomResourceDefinitionNames) -v1CustomResourceDefinitionStatusAcceptedNamesL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusAcceptedNames -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusAcceptedNames, ..} ) <$> f v1CustomResourceDefinitionStatusAcceptedNames -{-# INLINE v1CustomResourceDefinitionStatusAcceptedNamesL #-} - --- | 'v1CustomResourceDefinitionStatusConditions' Lens -v1CustomResourceDefinitionStatusConditionsL :: Lens_' V1CustomResourceDefinitionStatus (Maybe [V1CustomResourceDefinitionCondition]) -v1CustomResourceDefinitionStatusConditionsL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusConditions -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusConditions, ..} ) <$> f v1CustomResourceDefinitionStatusConditions -{-# INLINE v1CustomResourceDefinitionStatusConditionsL #-} - --- | 'v1CustomResourceDefinitionStatusStoredVersions' Lens -v1CustomResourceDefinitionStatusStoredVersionsL :: Lens_' V1CustomResourceDefinitionStatus (Maybe [Text]) -v1CustomResourceDefinitionStatusStoredVersionsL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusStoredVersions -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusStoredVersions, ..} ) <$> f v1CustomResourceDefinitionStatusStoredVersions -{-# INLINE v1CustomResourceDefinitionStatusStoredVersionsL #-} - - - --- * V1CustomResourceDefinitionVersion - --- | 'v1CustomResourceDefinitionVersionAdditionalPrinterColumns' Lens -v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL :: Lens_' V1CustomResourceDefinitionVersion (Maybe [V1CustomResourceColumnDefinition]) -v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionAdditionalPrinterColumns -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionAdditionalPrinterColumns, ..} ) <$> f v1CustomResourceDefinitionVersionAdditionalPrinterColumns -{-# INLINE v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL #-} - --- | 'v1CustomResourceDefinitionVersionDeprecated' Lens -v1CustomResourceDefinitionVersionDeprecatedL :: Lens_' V1CustomResourceDefinitionVersion (Maybe Bool) -v1CustomResourceDefinitionVersionDeprecatedL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionDeprecated -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionDeprecated, ..} ) <$> f v1CustomResourceDefinitionVersionDeprecated -{-# INLINE v1CustomResourceDefinitionVersionDeprecatedL #-} - --- | 'v1CustomResourceDefinitionVersionDeprecationWarning' Lens -v1CustomResourceDefinitionVersionDeprecationWarningL :: Lens_' V1CustomResourceDefinitionVersion (Maybe Text) -v1CustomResourceDefinitionVersionDeprecationWarningL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionDeprecationWarning -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionDeprecationWarning, ..} ) <$> f v1CustomResourceDefinitionVersionDeprecationWarning -{-# INLINE v1CustomResourceDefinitionVersionDeprecationWarningL #-} - --- | 'v1CustomResourceDefinitionVersionName' Lens -v1CustomResourceDefinitionVersionNameL :: Lens_' V1CustomResourceDefinitionVersion (Text) -v1CustomResourceDefinitionVersionNameL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionName -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionName, ..} ) <$> f v1CustomResourceDefinitionVersionName -{-# INLINE v1CustomResourceDefinitionVersionNameL #-} - --- | 'v1CustomResourceDefinitionVersionSchema' Lens -v1CustomResourceDefinitionVersionSchemaL :: Lens_' V1CustomResourceDefinitionVersion (Maybe V1CustomResourceValidation) -v1CustomResourceDefinitionVersionSchemaL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionSchema -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionSchema, ..} ) <$> f v1CustomResourceDefinitionVersionSchema -{-# INLINE v1CustomResourceDefinitionVersionSchemaL #-} - --- | 'v1CustomResourceDefinitionVersionServed' Lens -v1CustomResourceDefinitionVersionServedL :: Lens_' V1CustomResourceDefinitionVersion (Bool) -v1CustomResourceDefinitionVersionServedL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionServed -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionServed, ..} ) <$> f v1CustomResourceDefinitionVersionServed -{-# INLINE v1CustomResourceDefinitionVersionServedL #-} - --- | 'v1CustomResourceDefinitionVersionStorage' Lens -v1CustomResourceDefinitionVersionStorageL :: Lens_' V1CustomResourceDefinitionVersion (Bool) -v1CustomResourceDefinitionVersionStorageL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionStorage -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionStorage, ..} ) <$> f v1CustomResourceDefinitionVersionStorage -{-# INLINE v1CustomResourceDefinitionVersionStorageL #-} - --- | 'v1CustomResourceDefinitionVersionSubresources' Lens -v1CustomResourceDefinitionVersionSubresourcesL :: Lens_' V1CustomResourceDefinitionVersion (Maybe V1CustomResourceSubresources) -v1CustomResourceDefinitionVersionSubresourcesL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionSubresources -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionSubresources, ..} ) <$> f v1CustomResourceDefinitionVersionSubresources -{-# INLINE v1CustomResourceDefinitionVersionSubresourcesL #-} - - - --- * V1CustomResourceSubresourceScale - --- | 'v1CustomResourceSubresourceScaleLabelSelectorPath' Lens -v1CustomResourceSubresourceScaleLabelSelectorPathL :: Lens_' V1CustomResourceSubresourceScale (Maybe Text) -v1CustomResourceSubresourceScaleLabelSelectorPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleLabelSelectorPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleLabelSelectorPath, ..} ) <$> f v1CustomResourceSubresourceScaleLabelSelectorPath -{-# INLINE v1CustomResourceSubresourceScaleLabelSelectorPathL #-} - --- | 'v1CustomResourceSubresourceScaleSpecReplicasPath' Lens -v1CustomResourceSubresourceScaleSpecReplicasPathL :: Lens_' V1CustomResourceSubresourceScale (Text) -v1CustomResourceSubresourceScaleSpecReplicasPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleSpecReplicasPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleSpecReplicasPath, ..} ) <$> f v1CustomResourceSubresourceScaleSpecReplicasPath -{-# INLINE v1CustomResourceSubresourceScaleSpecReplicasPathL #-} - --- | 'v1CustomResourceSubresourceScaleStatusReplicasPath' Lens -v1CustomResourceSubresourceScaleStatusReplicasPathL :: Lens_' V1CustomResourceSubresourceScale (Text) -v1CustomResourceSubresourceScaleStatusReplicasPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleStatusReplicasPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleStatusReplicasPath, ..} ) <$> f v1CustomResourceSubresourceScaleStatusReplicasPath -{-# INLINE v1CustomResourceSubresourceScaleStatusReplicasPathL #-} - - - --- * V1CustomResourceSubresources - --- | 'v1CustomResourceSubresourcesScale' Lens -v1CustomResourceSubresourcesScaleL :: Lens_' V1CustomResourceSubresources (Maybe V1CustomResourceSubresourceScale) -v1CustomResourceSubresourcesScaleL f V1CustomResourceSubresources{..} = (\v1CustomResourceSubresourcesScale -> V1CustomResourceSubresources { v1CustomResourceSubresourcesScale, ..} ) <$> f v1CustomResourceSubresourcesScale -{-# INLINE v1CustomResourceSubresourcesScaleL #-} - --- | 'v1CustomResourceSubresourcesStatus' Lens -v1CustomResourceSubresourcesStatusL :: Lens_' V1CustomResourceSubresources (Maybe A.Value) -v1CustomResourceSubresourcesStatusL f V1CustomResourceSubresources{..} = (\v1CustomResourceSubresourcesStatus -> V1CustomResourceSubresources { v1CustomResourceSubresourcesStatus, ..} ) <$> f v1CustomResourceSubresourcesStatus -{-# INLINE v1CustomResourceSubresourcesStatusL #-} - - - --- * V1CustomResourceValidation - --- | 'v1CustomResourceValidationOpenApiv3Schema' Lens -v1CustomResourceValidationOpenApiv3SchemaL :: Lens_' V1CustomResourceValidation (Maybe V1JSONSchemaProps) -v1CustomResourceValidationOpenApiv3SchemaL f V1CustomResourceValidation{..} = (\v1CustomResourceValidationOpenApiv3Schema -> V1CustomResourceValidation { v1CustomResourceValidationOpenApiv3Schema, ..} ) <$> f v1CustomResourceValidationOpenApiv3Schema -{-# INLINE v1CustomResourceValidationOpenApiv3SchemaL #-} - - - --- * V1DaemonEndpoint - --- | 'v1DaemonEndpointPort' Lens -v1DaemonEndpointPortL :: Lens_' V1DaemonEndpoint (Int) -v1DaemonEndpointPortL f V1DaemonEndpoint{..} = (\v1DaemonEndpointPort -> V1DaemonEndpoint { v1DaemonEndpointPort, ..} ) <$> f v1DaemonEndpointPort -{-# INLINE v1DaemonEndpointPortL #-} - - - --- * V1DaemonSet - --- | 'v1DaemonSetApiVersion' Lens -v1DaemonSetApiVersionL :: Lens_' V1DaemonSet (Maybe Text) -v1DaemonSetApiVersionL f V1DaemonSet{..} = (\v1DaemonSetApiVersion -> V1DaemonSet { v1DaemonSetApiVersion, ..} ) <$> f v1DaemonSetApiVersion -{-# INLINE v1DaemonSetApiVersionL #-} - --- | 'v1DaemonSetKind' Lens -v1DaemonSetKindL :: Lens_' V1DaemonSet (Maybe Text) -v1DaemonSetKindL f V1DaemonSet{..} = (\v1DaemonSetKind -> V1DaemonSet { v1DaemonSetKind, ..} ) <$> f v1DaemonSetKind -{-# INLINE v1DaemonSetKindL #-} - --- | 'v1DaemonSetMetadata' Lens -v1DaemonSetMetadataL :: Lens_' V1DaemonSet (Maybe V1ObjectMeta) -v1DaemonSetMetadataL f V1DaemonSet{..} = (\v1DaemonSetMetadata -> V1DaemonSet { v1DaemonSetMetadata, ..} ) <$> f v1DaemonSetMetadata -{-# INLINE v1DaemonSetMetadataL #-} - --- | 'v1DaemonSetSpec' Lens -v1DaemonSetSpecL :: Lens_' V1DaemonSet (Maybe V1DaemonSetSpec) -v1DaemonSetSpecL f V1DaemonSet{..} = (\v1DaemonSetSpec -> V1DaemonSet { v1DaemonSetSpec, ..} ) <$> f v1DaemonSetSpec -{-# INLINE v1DaemonSetSpecL #-} - --- | 'v1DaemonSetStatus' Lens -v1DaemonSetStatusL :: Lens_' V1DaemonSet (Maybe V1DaemonSetStatus) -v1DaemonSetStatusL f V1DaemonSet{..} = (\v1DaemonSetStatus -> V1DaemonSet { v1DaemonSetStatus, ..} ) <$> f v1DaemonSetStatus -{-# INLINE v1DaemonSetStatusL #-} - - - --- * V1DaemonSetCondition - --- | 'v1DaemonSetConditionLastTransitionTime' Lens -v1DaemonSetConditionLastTransitionTimeL :: Lens_' V1DaemonSetCondition (Maybe DateTime) -v1DaemonSetConditionLastTransitionTimeL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionLastTransitionTime -> V1DaemonSetCondition { v1DaemonSetConditionLastTransitionTime, ..} ) <$> f v1DaemonSetConditionLastTransitionTime -{-# INLINE v1DaemonSetConditionLastTransitionTimeL #-} - --- | 'v1DaemonSetConditionMessage' Lens -v1DaemonSetConditionMessageL :: Lens_' V1DaemonSetCondition (Maybe Text) -v1DaemonSetConditionMessageL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionMessage -> V1DaemonSetCondition { v1DaemonSetConditionMessage, ..} ) <$> f v1DaemonSetConditionMessage -{-# INLINE v1DaemonSetConditionMessageL #-} - --- | 'v1DaemonSetConditionReason' Lens -v1DaemonSetConditionReasonL :: Lens_' V1DaemonSetCondition (Maybe Text) -v1DaemonSetConditionReasonL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionReason -> V1DaemonSetCondition { v1DaemonSetConditionReason, ..} ) <$> f v1DaemonSetConditionReason -{-# INLINE v1DaemonSetConditionReasonL #-} - --- | 'v1DaemonSetConditionStatus' Lens -v1DaemonSetConditionStatusL :: Lens_' V1DaemonSetCondition (Text) -v1DaemonSetConditionStatusL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionStatus -> V1DaemonSetCondition { v1DaemonSetConditionStatus, ..} ) <$> f v1DaemonSetConditionStatus -{-# INLINE v1DaemonSetConditionStatusL #-} - --- | 'v1DaemonSetConditionType' Lens -v1DaemonSetConditionTypeL :: Lens_' V1DaemonSetCondition (Text) -v1DaemonSetConditionTypeL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionType -> V1DaemonSetCondition { v1DaemonSetConditionType, ..} ) <$> f v1DaemonSetConditionType -{-# INLINE v1DaemonSetConditionTypeL #-} - - - --- * V1DaemonSetList - --- | 'v1DaemonSetListApiVersion' Lens -v1DaemonSetListApiVersionL :: Lens_' V1DaemonSetList (Maybe Text) -v1DaemonSetListApiVersionL f V1DaemonSetList{..} = (\v1DaemonSetListApiVersion -> V1DaemonSetList { v1DaemonSetListApiVersion, ..} ) <$> f v1DaemonSetListApiVersion -{-# INLINE v1DaemonSetListApiVersionL #-} - --- | 'v1DaemonSetListItems' Lens -v1DaemonSetListItemsL :: Lens_' V1DaemonSetList ([V1DaemonSet]) -v1DaemonSetListItemsL f V1DaemonSetList{..} = (\v1DaemonSetListItems -> V1DaemonSetList { v1DaemonSetListItems, ..} ) <$> f v1DaemonSetListItems -{-# INLINE v1DaemonSetListItemsL #-} - --- | 'v1DaemonSetListKind' Lens -v1DaemonSetListKindL :: Lens_' V1DaemonSetList (Maybe Text) -v1DaemonSetListKindL f V1DaemonSetList{..} = (\v1DaemonSetListKind -> V1DaemonSetList { v1DaemonSetListKind, ..} ) <$> f v1DaemonSetListKind -{-# INLINE v1DaemonSetListKindL #-} - --- | 'v1DaemonSetListMetadata' Lens -v1DaemonSetListMetadataL :: Lens_' V1DaemonSetList (Maybe V1ListMeta) -v1DaemonSetListMetadataL f V1DaemonSetList{..} = (\v1DaemonSetListMetadata -> V1DaemonSetList { v1DaemonSetListMetadata, ..} ) <$> f v1DaemonSetListMetadata -{-# INLINE v1DaemonSetListMetadataL #-} - - - --- * V1DaemonSetSpec - --- | 'v1DaemonSetSpecMinReadySeconds' Lens -v1DaemonSetSpecMinReadySecondsL :: Lens_' V1DaemonSetSpec (Maybe Int) -v1DaemonSetSpecMinReadySecondsL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecMinReadySeconds -> V1DaemonSetSpec { v1DaemonSetSpecMinReadySeconds, ..} ) <$> f v1DaemonSetSpecMinReadySeconds -{-# INLINE v1DaemonSetSpecMinReadySecondsL #-} - --- | 'v1DaemonSetSpecRevisionHistoryLimit' Lens -v1DaemonSetSpecRevisionHistoryLimitL :: Lens_' V1DaemonSetSpec (Maybe Int) -v1DaemonSetSpecRevisionHistoryLimitL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecRevisionHistoryLimit -> V1DaemonSetSpec { v1DaemonSetSpecRevisionHistoryLimit, ..} ) <$> f v1DaemonSetSpecRevisionHistoryLimit -{-# INLINE v1DaemonSetSpecRevisionHistoryLimitL #-} - --- | 'v1DaemonSetSpecSelector' Lens -v1DaemonSetSpecSelectorL :: Lens_' V1DaemonSetSpec (V1LabelSelector) -v1DaemonSetSpecSelectorL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecSelector -> V1DaemonSetSpec { v1DaemonSetSpecSelector, ..} ) <$> f v1DaemonSetSpecSelector -{-# INLINE v1DaemonSetSpecSelectorL #-} - --- | 'v1DaemonSetSpecTemplate' Lens -v1DaemonSetSpecTemplateL :: Lens_' V1DaemonSetSpec (V1PodTemplateSpec) -v1DaemonSetSpecTemplateL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecTemplate -> V1DaemonSetSpec { v1DaemonSetSpecTemplate, ..} ) <$> f v1DaemonSetSpecTemplate -{-# INLINE v1DaemonSetSpecTemplateL #-} - --- | 'v1DaemonSetSpecUpdateStrategy' Lens -v1DaemonSetSpecUpdateStrategyL :: Lens_' V1DaemonSetSpec (Maybe V1DaemonSetUpdateStrategy) -v1DaemonSetSpecUpdateStrategyL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecUpdateStrategy -> V1DaemonSetSpec { v1DaemonSetSpecUpdateStrategy, ..} ) <$> f v1DaemonSetSpecUpdateStrategy -{-# INLINE v1DaemonSetSpecUpdateStrategyL #-} - - - --- * V1DaemonSetStatus - --- | 'v1DaemonSetStatusCollisionCount' Lens -v1DaemonSetStatusCollisionCountL :: Lens_' V1DaemonSetStatus (Maybe Int) -v1DaemonSetStatusCollisionCountL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusCollisionCount -> V1DaemonSetStatus { v1DaemonSetStatusCollisionCount, ..} ) <$> f v1DaemonSetStatusCollisionCount -{-# INLINE v1DaemonSetStatusCollisionCountL #-} - --- | 'v1DaemonSetStatusConditions' Lens -v1DaemonSetStatusConditionsL :: Lens_' V1DaemonSetStatus (Maybe [V1DaemonSetCondition]) -v1DaemonSetStatusConditionsL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusConditions -> V1DaemonSetStatus { v1DaemonSetStatusConditions, ..} ) <$> f v1DaemonSetStatusConditions -{-# INLINE v1DaemonSetStatusConditionsL #-} - --- | 'v1DaemonSetStatusCurrentNumberScheduled' Lens -v1DaemonSetStatusCurrentNumberScheduledL :: Lens_' V1DaemonSetStatus (Int) -v1DaemonSetStatusCurrentNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusCurrentNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusCurrentNumberScheduled, ..} ) <$> f v1DaemonSetStatusCurrentNumberScheduled -{-# INLINE v1DaemonSetStatusCurrentNumberScheduledL #-} - --- | 'v1DaemonSetStatusDesiredNumberScheduled' Lens -v1DaemonSetStatusDesiredNumberScheduledL :: Lens_' V1DaemonSetStatus (Int) -v1DaemonSetStatusDesiredNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusDesiredNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusDesiredNumberScheduled, ..} ) <$> f v1DaemonSetStatusDesiredNumberScheduled -{-# INLINE v1DaemonSetStatusDesiredNumberScheduledL #-} - --- | 'v1DaemonSetStatusNumberAvailable' Lens -v1DaemonSetStatusNumberAvailableL :: Lens_' V1DaemonSetStatus (Maybe Int) -v1DaemonSetStatusNumberAvailableL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberAvailable -> V1DaemonSetStatus { v1DaemonSetStatusNumberAvailable, ..} ) <$> f v1DaemonSetStatusNumberAvailable -{-# INLINE v1DaemonSetStatusNumberAvailableL #-} - --- | 'v1DaemonSetStatusNumberMisscheduled' Lens -v1DaemonSetStatusNumberMisscheduledL :: Lens_' V1DaemonSetStatus (Int) -v1DaemonSetStatusNumberMisscheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberMisscheduled -> V1DaemonSetStatus { v1DaemonSetStatusNumberMisscheduled, ..} ) <$> f v1DaemonSetStatusNumberMisscheduled -{-# INLINE v1DaemonSetStatusNumberMisscheduledL #-} - --- | 'v1DaemonSetStatusNumberReady' Lens -v1DaemonSetStatusNumberReadyL :: Lens_' V1DaemonSetStatus (Int) -v1DaemonSetStatusNumberReadyL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberReady -> V1DaemonSetStatus { v1DaemonSetStatusNumberReady, ..} ) <$> f v1DaemonSetStatusNumberReady -{-# INLINE v1DaemonSetStatusNumberReadyL #-} - --- | 'v1DaemonSetStatusNumberUnavailable' Lens -v1DaemonSetStatusNumberUnavailableL :: Lens_' V1DaemonSetStatus (Maybe Int) -v1DaemonSetStatusNumberUnavailableL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberUnavailable -> V1DaemonSetStatus { v1DaemonSetStatusNumberUnavailable, ..} ) <$> f v1DaemonSetStatusNumberUnavailable -{-# INLINE v1DaemonSetStatusNumberUnavailableL #-} - --- | 'v1DaemonSetStatusObservedGeneration' Lens -v1DaemonSetStatusObservedGenerationL :: Lens_' V1DaemonSetStatus (Maybe Integer) -v1DaemonSetStatusObservedGenerationL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusObservedGeneration -> V1DaemonSetStatus { v1DaemonSetStatusObservedGeneration, ..} ) <$> f v1DaemonSetStatusObservedGeneration -{-# INLINE v1DaemonSetStatusObservedGenerationL #-} - --- | 'v1DaemonSetStatusUpdatedNumberScheduled' Lens -v1DaemonSetStatusUpdatedNumberScheduledL :: Lens_' V1DaemonSetStatus (Maybe Int) -v1DaemonSetStatusUpdatedNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusUpdatedNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusUpdatedNumberScheduled, ..} ) <$> f v1DaemonSetStatusUpdatedNumberScheduled -{-# INLINE v1DaemonSetStatusUpdatedNumberScheduledL #-} - - - --- * V1DaemonSetUpdateStrategy - --- | 'v1DaemonSetUpdateStrategyRollingUpdate' Lens -v1DaemonSetUpdateStrategyRollingUpdateL :: Lens_' V1DaemonSetUpdateStrategy (Maybe V1RollingUpdateDaemonSet) -v1DaemonSetUpdateStrategyRollingUpdateL f V1DaemonSetUpdateStrategy{..} = (\v1DaemonSetUpdateStrategyRollingUpdate -> V1DaemonSetUpdateStrategy { v1DaemonSetUpdateStrategyRollingUpdate, ..} ) <$> f v1DaemonSetUpdateStrategyRollingUpdate -{-# INLINE v1DaemonSetUpdateStrategyRollingUpdateL #-} - --- | 'v1DaemonSetUpdateStrategyType' Lens -v1DaemonSetUpdateStrategyTypeL :: Lens_' V1DaemonSetUpdateStrategy (Maybe Text) -v1DaemonSetUpdateStrategyTypeL f V1DaemonSetUpdateStrategy{..} = (\v1DaemonSetUpdateStrategyType -> V1DaemonSetUpdateStrategy { v1DaemonSetUpdateStrategyType, ..} ) <$> f v1DaemonSetUpdateStrategyType -{-# INLINE v1DaemonSetUpdateStrategyTypeL #-} - - - --- * V1DeleteOptions - --- | 'v1DeleteOptionsApiVersion' Lens -v1DeleteOptionsApiVersionL :: Lens_' V1DeleteOptions (Maybe Text) -v1DeleteOptionsApiVersionL f V1DeleteOptions{..} = (\v1DeleteOptionsApiVersion -> V1DeleteOptions { v1DeleteOptionsApiVersion, ..} ) <$> f v1DeleteOptionsApiVersion -{-# INLINE v1DeleteOptionsApiVersionL #-} - --- | 'v1DeleteOptionsDryRun' Lens -v1DeleteOptionsDryRunL :: Lens_' V1DeleteOptions (Maybe [Text]) -v1DeleteOptionsDryRunL f V1DeleteOptions{..} = (\v1DeleteOptionsDryRun -> V1DeleteOptions { v1DeleteOptionsDryRun, ..} ) <$> f v1DeleteOptionsDryRun -{-# INLINE v1DeleteOptionsDryRunL #-} - --- | 'v1DeleteOptionsGracePeriodSeconds' Lens -v1DeleteOptionsGracePeriodSecondsL :: Lens_' V1DeleteOptions (Maybe Integer) -v1DeleteOptionsGracePeriodSecondsL f V1DeleteOptions{..} = (\v1DeleteOptionsGracePeriodSeconds -> V1DeleteOptions { v1DeleteOptionsGracePeriodSeconds, ..} ) <$> f v1DeleteOptionsGracePeriodSeconds -{-# INLINE v1DeleteOptionsGracePeriodSecondsL #-} - --- | 'v1DeleteOptionsKind' Lens -v1DeleteOptionsKindL :: Lens_' V1DeleteOptions (Maybe Text) -v1DeleteOptionsKindL f V1DeleteOptions{..} = (\v1DeleteOptionsKind -> V1DeleteOptions { v1DeleteOptionsKind, ..} ) <$> f v1DeleteOptionsKind -{-# INLINE v1DeleteOptionsKindL #-} - --- | 'v1DeleteOptionsOrphanDependents' Lens -v1DeleteOptionsOrphanDependentsL :: Lens_' V1DeleteOptions (Maybe Bool) -v1DeleteOptionsOrphanDependentsL f V1DeleteOptions{..} = (\v1DeleteOptionsOrphanDependents -> V1DeleteOptions { v1DeleteOptionsOrphanDependents, ..} ) <$> f v1DeleteOptionsOrphanDependents -{-# INLINE v1DeleteOptionsOrphanDependentsL #-} - --- | 'v1DeleteOptionsPreconditions' Lens -v1DeleteOptionsPreconditionsL :: Lens_' V1DeleteOptions (Maybe V1Preconditions) -v1DeleteOptionsPreconditionsL f V1DeleteOptions{..} = (\v1DeleteOptionsPreconditions -> V1DeleteOptions { v1DeleteOptionsPreconditions, ..} ) <$> f v1DeleteOptionsPreconditions -{-# INLINE v1DeleteOptionsPreconditionsL #-} - --- | 'v1DeleteOptionsPropagationPolicy' Lens -v1DeleteOptionsPropagationPolicyL :: Lens_' V1DeleteOptions (Maybe Text) -v1DeleteOptionsPropagationPolicyL f V1DeleteOptions{..} = (\v1DeleteOptionsPropagationPolicy -> V1DeleteOptions { v1DeleteOptionsPropagationPolicy, ..} ) <$> f v1DeleteOptionsPropagationPolicy -{-# INLINE v1DeleteOptionsPropagationPolicyL #-} - - - --- * V1Deployment - --- | 'v1DeploymentApiVersion' Lens -v1DeploymentApiVersionL :: Lens_' V1Deployment (Maybe Text) -v1DeploymentApiVersionL f V1Deployment{..} = (\v1DeploymentApiVersion -> V1Deployment { v1DeploymentApiVersion, ..} ) <$> f v1DeploymentApiVersion -{-# INLINE v1DeploymentApiVersionL #-} - --- | 'v1DeploymentKind' Lens -v1DeploymentKindL :: Lens_' V1Deployment (Maybe Text) -v1DeploymentKindL f V1Deployment{..} = (\v1DeploymentKind -> V1Deployment { v1DeploymentKind, ..} ) <$> f v1DeploymentKind -{-# INLINE v1DeploymentKindL #-} - --- | 'v1DeploymentMetadata' Lens -v1DeploymentMetadataL :: Lens_' V1Deployment (Maybe V1ObjectMeta) -v1DeploymentMetadataL f V1Deployment{..} = (\v1DeploymentMetadata -> V1Deployment { v1DeploymentMetadata, ..} ) <$> f v1DeploymentMetadata -{-# INLINE v1DeploymentMetadataL #-} - --- | 'v1DeploymentSpec' Lens -v1DeploymentSpecL :: Lens_' V1Deployment (Maybe V1DeploymentSpec) -v1DeploymentSpecL f V1Deployment{..} = (\v1DeploymentSpec -> V1Deployment { v1DeploymentSpec, ..} ) <$> f v1DeploymentSpec -{-# INLINE v1DeploymentSpecL #-} - --- | 'v1DeploymentStatus' Lens -v1DeploymentStatusL :: Lens_' V1Deployment (Maybe V1DeploymentStatus) -v1DeploymentStatusL f V1Deployment{..} = (\v1DeploymentStatus -> V1Deployment { v1DeploymentStatus, ..} ) <$> f v1DeploymentStatus -{-# INLINE v1DeploymentStatusL #-} - - - --- * V1DeploymentCondition - --- | 'v1DeploymentConditionLastTransitionTime' Lens -v1DeploymentConditionLastTransitionTimeL :: Lens_' V1DeploymentCondition (Maybe DateTime) -v1DeploymentConditionLastTransitionTimeL f V1DeploymentCondition{..} = (\v1DeploymentConditionLastTransitionTime -> V1DeploymentCondition { v1DeploymentConditionLastTransitionTime, ..} ) <$> f v1DeploymentConditionLastTransitionTime -{-# INLINE v1DeploymentConditionLastTransitionTimeL #-} - --- | 'v1DeploymentConditionLastUpdateTime' Lens -v1DeploymentConditionLastUpdateTimeL :: Lens_' V1DeploymentCondition (Maybe DateTime) -v1DeploymentConditionLastUpdateTimeL f V1DeploymentCondition{..} = (\v1DeploymentConditionLastUpdateTime -> V1DeploymentCondition { v1DeploymentConditionLastUpdateTime, ..} ) <$> f v1DeploymentConditionLastUpdateTime -{-# INLINE v1DeploymentConditionLastUpdateTimeL #-} - --- | 'v1DeploymentConditionMessage' Lens -v1DeploymentConditionMessageL :: Lens_' V1DeploymentCondition (Maybe Text) -v1DeploymentConditionMessageL f V1DeploymentCondition{..} = (\v1DeploymentConditionMessage -> V1DeploymentCondition { v1DeploymentConditionMessage, ..} ) <$> f v1DeploymentConditionMessage -{-# INLINE v1DeploymentConditionMessageL #-} - --- | 'v1DeploymentConditionReason' Lens -v1DeploymentConditionReasonL :: Lens_' V1DeploymentCondition (Maybe Text) -v1DeploymentConditionReasonL f V1DeploymentCondition{..} = (\v1DeploymentConditionReason -> V1DeploymentCondition { v1DeploymentConditionReason, ..} ) <$> f v1DeploymentConditionReason -{-# INLINE v1DeploymentConditionReasonL #-} - --- | 'v1DeploymentConditionStatus' Lens -v1DeploymentConditionStatusL :: Lens_' V1DeploymentCondition (Text) -v1DeploymentConditionStatusL f V1DeploymentCondition{..} = (\v1DeploymentConditionStatus -> V1DeploymentCondition { v1DeploymentConditionStatus, ..} ) <$> f v1DeploymentConditionStatus -{-# INLINE v1DeploymentConditionStatusL #-} - --- | 'v1DeploymentConditionType' Lens -v1DeploymentConditionTypeL :: Lens_' V1DeploymentCondition (Text) -v1DeploymentConditionTypeL f V1DeploymentCondition{..} = (\v1DeploymentConditionType -> V1DeploymentCondition { v1DeploymentConditionType, ..} ) <$> f v1DeploymentConditionType -{-# INLINE v1DeploymentConditionTypeL #-} - - - --- * V1DeploymentList - --- | 'v1DeploymentListApiVersion' Lens -v1DeploymentListApiVersionL :: Lens_' V1DeploymentList (Maybe Text) -v1DeploymentListApiVersionL f V1DeploymentList{..} = (\v1DeploymentListApiVersion -> V1DeploymentList { v1DeploymentListApiVersion, ..} ) <$> f v1DeploymentListApiVersion -{-# INLINE v1DeploymentListApiVersionL #-} - --- | 'v1DeploymentListItems' Lens -v1DeploymentListItemsL :: Lens_' V1DeploymentList ([V1Deployment]) -v1DeploymentListItemsL f V1DeploymentList{..} = (\v1DeploymentListItems -> V1DeploymentList { v1DeploymentListItems, ..} ) <$> f v1DeploymentListItems -{-# INLINE v1DeploymentListItemsL #-} - --- | 'v1DeploymentListKind' Lens -v1DeploymentListKindL :: Lens_' V1DeploymentList (Maybe Text) -v1DeploymentListKindL f V1DeploymentList{..} = (\v1DeploymentListKind -> V1DeploymentList { v1DeploymentListKind, ..} ) <$> f v1DeploymentListKind -{-# INLINE v1DeploymentListKindL #-} - --- | 'v1DeploymentListMetadata' Lens -v1DeploymentListMetadataL :: Lens_' V1DeploymentList (Maybe V1ListMeta) -v1DeploymentListMetadataL f V1DeploymentList{..} = (\v1DeploymentListMetadata -> V1DeploymentList { v1DeploymentListMetadata, ..} ) <$> f v1DeploymentListMetadata -{-# INLINE v1DeploymentListMetadataL #-} - - - --- * V1DeploymentSpec - --- | 'v1DeploymentSpecMinReadySeconds' Lens -v1DeploymentSpecMinReadySecondsL :: Lens_' V1DeploymentSpec (Maybe Int) -v1DeploymentSpecMinReadySecondsL f V1DeploymentSpec{..} = (\v1DeploymentSpecMinReadySeconds -> V1DeploymentSpec { v1DeploymentSpecMinReadySeconds, ..} ) <$> f v1DeploymentSpecMinReadySeconds -{-# INLINE v1DeploymentSpecMinReadySecondsL #-} - --- | 'v1DeploymentSpecPaused' Lens -v1DeploymentSpecPausedL :: Lens_' V1DeploymentSpec (Maybe Bool) -v1DeploymentSpecPausedL f V1DeploymentSpec{..} = (\v1DeploymentSpecPaused -> V1DeploymentSpec { v1DeploymentSpecPaused, ..} ) <$> f v1DeploymentSpecPaused -{-# INLINE v1DeploymentSpecPausedL #-} - --- | 'v1DeploymentSpecProgressDeadlineSeconds' Lens -v1DeploymentSpecProgressDeadlineSecondsL :: Lens_' V1DeploymentSpec (Maybe Int) -v1DeploymentSpecProgressDeadlineSecondsL f V1DeploymentSpec{..} = (\v1DeploymentSpecProgressDeadlineSeconds -> V1DeploymentSpec { v1DeploymentSpecProgressDeadlineSeconds, ..} ) <$> f v1DeploymentSpecProgressDeadlineSeconds -{-# INLINE v1DeploymentSpecProgressDeadlineSecondsL #-} - --- | 'v1DeploymentSpecReplicas' Lens -v1DeploymentSpecReplicasL :: Lens_' V1DeploymentSpec (Maybe Int) -v1DeploymentSpecReplicasL f V1DeploymentSpec{..} = (\v1DeploymentSpecReplicas -> V1DeploymentSpec { v1DeploymentSpecReplicas, ..} ) <$> f v1DeploymentSpecReplicas -{-# INLINE v1DeploymentSpecReplicasL #-} - --- | 'v1DeploymentSpecRevisionHistoryLimit' Lens -v1DeploymentSpecRevisionHistoryLimitL :: Lens_' V1DeploymentSpec (Maybe Int) -v1DeploymentSpecRevisionHistoryLimitL f V1DeploymentSpec{..} = (\v1DeploymentSpecRevisionHistoryLimit -> V1DeploymentSpec { v1DeploymentSpecRevisionHistoryLimit, ..} ) <$> f v1DeploymentSpecRevisionHistoryLimit -{-# INLINE v1DeploymentSpecRevisionHistoryLimitL #-} - --- | 'v1DeploymentSpecSelector' Lens -v1DeploymentSpecSelectorL :: Lens_' V1DeploymentSpec (V1LabelSelector) -v1DeploymentSpecSelectorL f V1DeploymentSpec{..} = (\v1DeploymentSpecSelector -> V1DeploymentSpec { v1DeploymentSpecSelector, ..} ) <$> f v1DeploymentSpecSelector -{-# INLINE v1DeploymentSpecSelectorL #-} - --- | 'v1DeploymentSpecStrategy' Lens -v1DeploymentSpecStrategyL :: Lens_' V1DeploymentSpec (Maybe V1DeploymentStrategy) -v1DeploymentSpecStrategyL f V1DeploymentSpec{..} = (\v1DeploymentSpecStrategy -> V1DeploymentSpec { v1DeploymentSpecStrategy, ..} ) <$> f v1DeploymentSpecStrategy -{-# INLINE v1DeploymentSpecStrategyL #-} - --- | 'v1DeploymentSpecTemplate' Lens -v1DeploymentSpecTemplateL :: Lens_' V1DeploymentSpec (V1PodTemplateSpec) -v1DeploymentSpecTemplateL f V1DeploymentSpec{..} = (\v1DeploymentSpecTemplate -> V1DeploymentSpec { v1DeploymentSpecTemplate, ..} ) <$> f v1DeploymentSpecTemplate -{-# INLINE v1DeploymentSpecTemplateL #-} - - - --- * V1DeploymentStatus - --- | 'v1DeploymentStatusAvailableReplicas' Lens -v1DeploymentStatusAvailableReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusAvailableReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusAvailableReplicas -> V1DeploymentStatus { v1DeploymentStatusAvailableReplicas, ..} ) <$> f v1DeploymentStatusAvailableReplicas -{-# INLINE v1DeploymentStatusAvailableReplicasL #-} - --- | 'v1DeploymentStatusCollisionCount' Lens -v1DeploymentStatusCollisionCountL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusCollisionCountL f V1DeploymentStatus{..} = (\v1DeploymentStatusCollisionCount -> V1DeploymentStatus { v1DeploymentStatusCollisionCount, ..} ) <$> f v1DeploymentStatusCollisionCount -{-# INLINE v1DeploymentStatusCollisionCountL #-} - --- | 'v1DeploymentStatusConditions' Lens -v1DeploymentStatusConditionsL :: Lens_' V1DeploymentStatus (Maybe [V1DeploymentCondition]) -v1DeploymentStatusConditionsL f V1DeploymentStatus{..} = (\v1DeploymentStatusConditions -> V1DeploymentStatus { v1DeploymentStatusConditions, ..} ) <$> f v1DeploymentStatusConditions -{-# INLINE v1DeploymentStatusConditionsL #-} - --- | 'v1DeploymentStatusObservedGeneration' Lens -v1DeploymentStatusObservedGenerationL :: Lens_' V1DeploymentStatus (Maybe Integer) -v1DeploymentStatusObservedGenerationL f V1DeploymentStatus{..} = (\v1DeploymentStatusObservedGeneration -> V1DeploymentStatus { v1DeploymentStatusObservedGeneration, ..} ) <$> f v1DeploymentStatusObservedGeneration -{-# INLINE v1DeploymentStatusObservedGenerationL #-} - --- | 'v1DeploymentStatusReadyReplicas' Lens -v1DeploymentStatusReadyReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusReadyReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusReadyReplicas -> V1DeploymentStatus { v1DeploymentStatusReadyReplicas, ..} ) <$> f v1DeploymentStatusReadyReplicas -{-# INLINE v1DeploymentStatusReadyReplicasL #-} - --- | 'v1DeploymentStatusReplicas' Lens -v1DeploymentStatusReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusReplicas -> V1DeploymentStatus { v1DeploymentStatusReplicas, ..} ) <$> f v1DeploymentStatusReplicas -{-# INLINE v1DeploymentStatusReplicasL #-} - --- | 'v1DeploymentStatusUnavailableReplicas' Lens -v1DeploymentStatusUnavailableReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusUnavailableReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusUnavailableReplicas -> V1DeploymentStatus { v1DeploymentStatusUnavailableReplicas, ..} ) <$> f v1DeploymentStatusUnavailableReplicas -{-# INLINE v1DeploymentStatusUnavailableReplicasL #-} - --- | 'v1DeploymentStatusUpdatedReplicas' Lens -v1DeploymentStatusUpdatedReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) -v1DeploymentStatusUpdatedReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusUpdatedReplicas -> V1DeploymentStatus { v1DeploymentStatusUpdatedReplicas, ..} ) <$> f v1DeploymentStatusUpdatedReplicas -{-# INLINE v1DeploymentStatusUpdatedReplicasL #-} - - - --- * V1DeploymentStrategy - --- | 'v1DeploymentStrategyRollingUpdate' Lens -v1DeploymentStrategyRollingUpdateL :: Lens_' V1DeploymentStrategy (Maybe V1RollingUpdateDeployment) -v1DeploymentStrategyRollingUpdateL f V1DeploymentStrategy{..} = (\v1DeploymentStrategyRollingUpdate -> V1DeploymentStrategy { v1DeploymentStrategyRollingUpdate, ..} ) <$> f v1DeploymentStrategyRollingUpdate -{-# INLINE v1DeploymentStrategyRollingUpdateL #-} - --- | 'v1DeploymentStrategyType' Lens -v1DeploymentStrategyTypeL :: Lens_' V1DeploymentStrategy (Maybe Text) -v1DeploymentStrategyTypeL f V1DeploymentStrategy{..} = (\v1DeploymentStrategyType -> V1DeploymentStrategy { v1DeploymentStrategyType, ..} ) <$> f v1DeploymentStrategyType -{-# INLINE v1DeploymentStrategyTypeL #-} - - - --- * V1DownwardAPIProjection - --- | 'v1DownwardAPIProjectionItems' Lens -v1DownwardAPIProjectionItemsL :: Lens_' V1DownwardAPIProjection (Maybe [V1DownwardAPIVolumeFile]) -v1DownwardAPIProjectionItemsL f V1DownwardAPIProjection{..} = (\v1DownwardAPIProjectionItems -> V1DownwardAPIProjection { v1DownwardAPIProjectionItems, ..} ) <$> f v1DownwardAPIProjectionItems -{-# INLINE v1DownwardAPIProjectionItemsL #-} - - - --- * V1DownwardAPIVolumeFile - --- | 'v1DownwardAPIVolumeFileFieldRef' Lens -v1DownwardAPIVolumeFileFieldRefL :: Lens_' V1DownwardAPIVolumeFile (Maybe V1ObjectFieldSelector) -v1DownwardAPIVolumeFileFieldRefL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileFieldRef -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileFieldRef, ..} ) <$> f v1DownwardAPIVolumeFileFieldRef -{-# INLINE v1DownwardAPIVolumeFileFieldRefL #-} - --- | 'v1DownwardAPIVolumeFileMode' Lens -v1DownwardAPIVolumeFileModeL :: Lens_' V1DownwardAPIVolumeFile (Maybe Int) -v1DownwardAPIVolumeFileModeL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileMode -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileMode, ..} ) <$> f v1DownwardAPIVolumeFileMode -{-# INLINE v1DownwardAPIVolumeFileModeL #-} - --- | 'v1DownwardAPIVolumeFilePath' Lens -v1DownwardAPIVolumeFilePathL :: Lens_' V1DownwardAPIVolumeFile (Text) -v1DownwardAPIVolumeFilePathL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFilePath -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFilePath, ..} ) <$> f v1DownwardAPIVolumeFilePath -{-# INLINE v1DownwardAPIVolumeFilePathL #-} - --- | 'v1DownwardAPIVolumeFileResourceFieldRef' Lens -v1DownwardAPIVolumeFileResourceFieldRefL :: Lens_' V1DownwardAPIVolumeFile (Maybe V1ResourceFieldSelector) -v1DownwardAPIVolumeFileResourceFieldRefL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileResourceFieldRef -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileResourceFieldRef, ..} ) <$> f v1DownwardAPIVolumeFileResourceFieldRef -{-# INLINE v1DownwardAPIVolumeFileResourceFieldRefL #-} - - - --- * V1DownwardAPIVolumeSource - --- | 'v1DownwardAPIVolumeSourceDefaultMode' Lens -v1DownwardAPIVolumeSourceDefaultModeL :: Lens_' V1DownwardAPIVolumeSource (Maybe Int) -v1DownwardAPIVolumeSourceDefaultModeL f V1DownwardAPIVolumeSource{..} = (\v1DownwardAPIVolumeSourceDefaultMode -> V1DownwardAPIVolumeSource { v1DownwardAPIVolumeSourceDefaultMode, ..} ) <$> f v1DownwardAPIVolumeSourceDefaultMode -{-# INLINE v1DownwardAPIVolumeSourceDefaultModeL #-} - --- | 'v1DownwardAPIVolumeSourceItems' Lens -v1DownwardAPIVolumeSourceItemsL :: Lens_' V1DownwardAPIVolumeSource (Maybe [V1DownwardAPIVolumeFile]) -v1DownwardAPIVolumeSourceItemsL f V1DownwardAPIVolumeSource{..} = (\v1DownwardAPIVolumeSourceItems -> V1DownwardAPIVolumeSource { v1DownwardAPIVolumeSourceItems, ..} ) <$> f v1DownwardAPIVolumeSourceItems -{-# INLINE v1DownwardAPIVolumeSourceItemsL #-} - - - --- * V1EmptyDirVolumeSource - --- | 'v1EmptyDirVolumeSourceMedium' Lens -v1EmptyDirVolumeSourceMediumL :: Lens_' V1EmptyDirVolumeSource (Maybe Text) -v1EmptyDirVolumeSourceMediumL f V1EmptyDirVolumeSource{..} = (\v1EmptyDirVolumeSourceMedium -> V1EmptyDirVolumeSource { v1EmptyDirVolumeSourceMedium, ..} ) <$> f v1EmptyDirVolumeSourceMedium -{-# INLINE v1EmptyDirVolumeSourceMediumL #-} - --- | 'v1EmptyDirVolumeSourceSizeLimit' Lens -v1EmptyDirVolumeSourceSizeLimitL :: Lens_' V1EmptyDirVolumeSource (Maybe Quantity) -v1EmptyDirVolumeSourceSizeLimitL f V1EmptyDirVolumeSource{..} = (\v1EmptyDirVolumeSourceSizeLimit -> V1EmptyDirVolumeSource { v1EmptyDirVolumeSourceSizeLimit, ..} ) <$> f v1EmptyDirVolumeSourceSizeLimit -{-# INLINE v1EmptyDirVolumeSourceSizeLimitL #-} - - - --- * V1Endpoint - --- | 'v1EndpointAddresses' Lens -v1EndpointAddressesL :: Lens_' V1Endpoint ([Text]) -v1EndpointAddressesL f V1Endpoint{..} = (\v1EndpointAddresses -> V1Endpoint { v1EndpointAddresses, ..} ) <$> f v1EndpointAddresses -{-# INLINE v1EndpointAddressesL #-} - --- | 'v1EndpointConditions' Lens -v1EndpointConditionsL :: Lens_' V1Endpoint (Maybe V1EndpointConditions) -v1EndpointConditionsL f V1Endpoint{..} = (\v1EndpointConditions -> V1Endpoint { v1EndpointConditions, ..} ) <$> f v1EndpointConditions -{-# INLINE v1EndpointConditionsL #-} - --- | 'v1EndpointDeprecatedTopology' Lens -v1EndpointDeprecatedTopologyL :: Lens_' V1Endpoint (Maybe (Map.Map String Text)) -v1EndpointDeprecatedTopologyL f V1Endpoint{..} = (\v1EndpointDeprecatedTopology -> V1Endpoint { v1EndpointDeprecatedTopology, ..} ) <$> f v1EndpointDeprecatedTopology -{-# INLINE v1EndpointDeprecatedTopologyL #-} - --- | 'v1EndpointHints' Lens -v1EndpointHintsL :: Lens_' V1Endpoint (Maybe V1EndpointHints) -v1EndpointHintsL f V1Endpoint{..} = (\v1EndpointHints -> V1Endpoint { v1EndpointHints, ..} ) <$> f v1EndpointHints -{-# INLINE v1EndpointHintsL #-} - --- | 'v1EndpointHostname' Lens -v1EndpointHostnameL :: Lens_' V1Endpoint (Maybe Text) -v1EndpointHostnameL f V1Endpoint{..} = (\v1EndpointHostname -> V1Endpoint { v1EndpointHostname, ..} ) <$> f v1EndpointHostname -{-# INLINE v1EndpointHostnameL #-} - --- | 'v1EndpointNodeName' Lens -v1EndpointNodeNameL :: Lens_' V1Endpoint (Maybe Text) -v1EndpointNodeNameL f V1Endpoint{..} = (\v1EndpointNodeName -> V1Endpoint { v1EndpointNodeName, ..} ) <$> f v1EndpointNodeName -{-# INLINE v1EndpointNodeNameL #-} - --- | 'v1EndpointTargetRef' Lens -v1EndpointTargetRefL :: Lens_' V1Endpoint (Maybe V1ObjectReference) -v1EndpointTargetRefL f V1Endpoint{..} = (\v1EndpointTargetRef -> V1Endpoint { v1EndpointTargetRef, ..} ) <$> f v1EndpointTargetRef -{-# INLINE v1EndpointTargetRefL #-} - --- | 'v1EndpointZone' Lens -v1EndpointZoneL :: Lens_' V1Endpoint (Maybe Text) -v1EndpointZoneL f V1Endpoint{..} = (\v1EndpointZone -> V1Endpoint { v1EndpointZone, ..} ) <$> f v1EndpointZone -{-# INLINE v1EndpointZoneL #-} - - - --- * V1EndpointAddress - --- | 'v1EndpointAddressHostname' Lens -v1EndpointAddressHostnameL :: Lens_' V1EndpointAddress (Maybe Text) -v1EndpointAddressHostnameL f V1EndpointAddress{..} = (\v1EndpointAddressHostname -> V1EndpointAddress { v1EndpointAddressHostname, ..} ) <$> f v1EndpointAddressHostname -{-# INLINE v1EndpointAddressHostnameL #-} - --- | 'v1EndpointAddressIp' Lens -v1EndpointAddressIpL :: Lens_' V1EndpointAddress (Text) -v1EndpointAddressIpL f V1EndpointAddress{..} = (\v1EndpointAddressIp -> V1EndpointAddress { v1EndpointAddressIp, ..} ) <$> f v1EndpointAddressIp -{-# INLINE v1EndpointAddressIpL #-} - --- | 'v1EndpointAddressNodeName' Lens -v1EndpointAddressNodeNameL :: Lens_' V1EndpointAddress (Maybe Text) -v1EndpointAddressNodeNameL f V1EndpointAddress{..} = (\v1EndpointAddressNodeName -> V1EndpointAddress { v1EndpointAddressNodeName, ..} ) <$> f v1EndpointAddressNodeName -{-# INLINE v1EndpointAddressNodeNameL #-} - --- | 'v1EndpointAddressTargetRef' Lens -v1EndpointAddressTargetRefL :: Lens_' V1EndpointAddress (Maybe V1ObjectReference) -v1EndpointAddressTargetRefL f V1EndpointAddress{..} = (\v1EndpointAddressTargetRef -> V1EndpointAddress { v1EndpointAddressTargetRef, ..} ) <$> f v1EndpointAddressTargetRef -{-# INLINE v1EndpointAddressTargetRefL #-} - - - --- * V1EndpointConditions - --- | 'v1EndpointConditionsReady' Lens -v1EndpointConditionsReadyL :: Lens_' V1EndpointConditions (Maybe Bool) -v1EndpointConditionsReadyL f V1EndpointConditions{..} = (\v1EndpointConditionsReady -> V1EndpointConditions { v1EndpointConditionsReady, ..} ) <$> f v1EndpointConditionsReady -{-# INLINE v1EndpointConditionsReadyL #-} - --- | 'v1EndpointConditionsServing' Lens -v1EndpointConditionsServingL :: Lens_' V1EndpointConditions (Maybe Bool) -v1EndpointConditionsServingL f V1EndpointConditions{..} = (\v1EndpointConditionsServing -> V1EndpointConditions { v1EndpointConditionsServing, ..} ) <$> f v1EndpointConditionsServing -{-# INLINE v1EndpointConditionsServingL #-} - --- | 'v1EndpointConditionsTerminating' Lens -v1EndpointConditionsTerminatingL :: Lens_' V1EndpointConditions (Maybe Bool) -v1EndpointConditionsTerminatingL f V1EndpointConditions{..} = (\v1EndpointConditionsTerminating -> V1EndpointConditions { v1EndpointConditionsTerminating, ..} ) <$> f v1EndpointConditionsTerminating -{-# INLINE v1EndpointConditionsTerminatingL #-} - - - --- * V1EndpointHints - --- | 'v1EndpointHintsForZones' Lens -v1EndpointHintsForZonesL :: Lens_' V1EndpointHints (Maybe [V1ForZone]) -v1EndpointHintsForZonesL f V1EndpointHints{..} = (\v1EndpointHintsForZones -> V1EndpointHints { v1EndpointHintsForZones, ..} ) <$> f v1EndpointHintsForZones -{-# INLINE v1EndpointHintsForZonesL #-} - - - --- * V1EndpointSlice - --- | 'v1EndpointSliceAddressType' Lens -v1EndpointSliceAddressTypeL :: Lens_' V1EndpointSlice (Text) -v1EndpointSliceAddressTypeL f V1EndpointSlice{..} = (\v1EndpointSliceAddressType -> V1EndpointSlice { v1EndpointSliceAddressType, ..} ) <$> f v1EndpointSliceAddressType -{-# INLINE v1EndpointSliceAddressTypeL #-} - --- | 'v1EndpointSliceApiVersion' Lens -v1EndpointSliceApiVersionL :: Lens_' V1EndpointSlice (Maybe Text) -v1EndpointSliceApiVersionL f V1EndpointSlice{..} = (\v1EndpointSliceApiVersion -> V1EndpointSlice { v1EndpointSliceApiVersion, ..} ) <$> f v1EndpointSliceApiVersion -{-# INLINE v1EndpointSliceApiVersionL #-} - --- | 'v1EndpointSliceEndpoints' Lens -v1EndpointSliceEndpointsL :: Lens_' V1EndpointSlice ([V1Endpoint]) -v1EndpointSliceEndpointsL f V1EndpointSlice{..} = (\v1EndpointSliceEndpoints -> V1EndpointSlice { v1EndpointSliceEndpoints, ..} ) <$> f v1EndpointSliceEndpoints -{-# INLINE v1EndpointSliceEndpointsL #-} - --- | 'v1EndpointSliceKind' Lens -v1EndpointSliceKindL :: Lens_' V1EndpointSlice (Maybe Text) -v1EndpointSliceKindL f V1EndpointSlice{..} = (\v1EndpointSliceKind -> V1EndpointSlice { v1EndpointSliceKind, ..} ) <$> f v1EndpointSliceKind -{-# INLINE v1EndpointSliceKindL #-} - --- | 'v1EndpointSliceMetadata' Lens -v1EndpointSliceMetadataL :: Lens_' V1EndpointSlice (Maybe V1ObjectMeta) -v1EndpointSliceMetadataL f V1EndpointSlice{..} = (\v1EndpointSliceMetadata -> V1EndpointSlice { v1EndpointSliceMetadata, ..} ) <$> f v1EndpointSliceMetadata -{-# INLINE v1EndpointSliceMetadataL #-} - --- | 'v1EndpointSlicePorts' Lens -v1EndpointSlicePortsL :: Lens_' V1EndpointSlice (Maybe [DiscoveryV1EndpointPort]) -v1EndpointSlicePortsL f V1EndpointSlice{..} = (\v1EndpointSlicePorts -> V1EndpointSlice { v1EndpointSlicePorts, ..} ) <$> f v1EndpointSlicePorts -{-# INLINE v1EndpointSlicePortsL #-} - - - --- * V1EndpointSliceList - --- | 'v1EndpointSliceListApiVersion' Lens -v1EndpointSliceListApiVersionL :: Lens_' V1EndpointSliceList (Maybe Text) -v1EndpointSliceListApiVersionL f V1EndpointSliceList{..} = (\v1EndpointSliceListApiVersion -> V1EndpointSliceList { v1EndpointSliceListApiVersion, ..} ) <$> f v1EndpointSliceListApiVersion -{-# INLINE v1EndpointSliceListApiVersionL #-} - --- | 'v1EndpointSliceListItems' Lens -v1EndpointSliceListItemsL :: Lens_' V1EndpointSliceList ([V1EndpointSlice]) -v1EndpointSliceListItemsL f V1EndpointSliceList{..} = (\v1EndpointSliceListItems -> V1EndpointSliceList { v1EndpointSliceListItems, ..} ) <$> f v1EndpointSliceListItems -{-# INLINE v1EndpointSliceListItemsL #-} - --- | 'v1EndpointSliceListKind' Lens -v1EndpointSliceListKindL :: Lens_' V1EndpointSliceList (Maybe Text) -v1EndpointSliceListKindL f V1EndpointSliceList{..} = (\v1EndpointSliceListKind -> V1EndpointSliceList { v1EndpointSliceListKind, ..} ) <$> f v1EndpointSliceListKind -{-# INLINE v1EndpointSliceListKindL #-} - --- | 'v1EndpointSliceListMetadata' Lens -v1EndpointSliceListMetadataL :: Lens_' V1EndpointSliceList (Maybe V1ListMeta) -v1EndpointSliceListMetadataL f V1EndpointSliceList{..} = (\v1EndpointSliceListMetadata -> V1EndpointSliceList { v1EndpointSliceListMetadata, ..} ) <$> f v1EndpointSliceListMetadata -{-# INLINE v1EndpointSliceListMetadataL #-} - - - --- * V1EndpointSubset - --- | 'v1EndpointSubsetAddresses' Lens -v1EndpointSubsetAddressesL :: Lens_' V1EndpointSubset (Maybe [V1EndpointAddress]) -v1EndpointSubsetAddressesL f V1EndpointSubset{..} = (\v1EndpointSubsetAddresses -> V1EndpointSubset { v1EndpointSubsetAddresses, ..} ) <$> f v1EndpointSubsetAddresses -{-# INLINE v1EndpointSubsetAddressesL #-} - --- | 'v1EndpointSubsetNotReadyAddresses' Lens -v1EndpointSubsetNotReadyAddressesL :: Lens_' V1EndpointSubset (Maybe [V1EndpointAddress]) -v1EndpointSubsetNotReadyAddressesL f V1EndpointSubset{..} = (\v1EndpointSubsetNotReadyAddresses -> V1EndpointSubset { v1EndpointSubsetNotReadyAddresses, ..} ) <$> f v1EndpointSubsetNotReadyAddresses -{-# INLINE v1EndpointSubsetNotReadyAddressesL #-} - --- | 'v1EndpointSubsetPorts' Lens -v1EndpointSubsetPortsL :: Lens_' V1EndpointSubset (Maybe [CoreV1EndpointPort]) -v1EndpointSubsetPortsL f V1EndpointSubset{..} = (\v1EndpointSubsetPorts -> V1EndpointSubset { v1EndpointSubsetPorts, ..} ) <$> f v1EndpointSubsetPorts -{-# INLINE v1EndpointSubsetPortsL #-} - - - --- * V1Endpoints - --- | 'v1EndpointsApiVersion' Lens -v1EndpointsApiVersionL :: Lens_' V1Endpoints (Maybe Text) -v1EndpointsApiVersionL f V1Endpoints{..} = (\v1EndpointsApiVersion -> V1Endpoints { v1EndpointsApiVersion, ..} ) <$> f v1EndpointsApiVersion -{-# INLINE v1EndpointsApiVersionL #-} - --- | 'v1EndpointsKind' Lens -v1EndpointsKindL :: Lens_' V1Endpoints (Maybe Text) -v1EndpointsKindL f V1Endpoints{..} = (\v1EndpointsKind -> V1Endpoints { v1EndpointsKind, ..} ) <$> f v1EndpointsKind -{-# INLINE v1EndpointsKindL #-} - --- | 'v1EndpointsMetadata' Lens -v1EndpointsMetadataL :: Lens_' V1Endpoints (Maybe V1ObjectMeta) -v1EndpointsMetadataL f V1Endpoints{..} = (\v1EndpointsMetadata -> V1Endpoints { v1EndpointsMetadata, ..} ) <$> f v1EndpointsMetadata -{-# INLINE v1EndpointsMetadataL #-} - --- | 'v1EndpointsSubsets' Lens -v1EndpointsSubsetsL :: Lens_' V1Endpoints (Maybe [V1EndpointSubset]) -v1EndpointsSubsetsL f V1Endpoints{..} = (\v1EndpointsSubsets -> V1Endpoints { v1EndpointsSubsets, ..} ) <$> f v1EndpointsSubsets -{-# INLINE v1EndpointsSubsetsL #-} - - - --- * V1EndpointsList - --- | 'v1EndpointsListApiVersion' Lens -v1EndpointsListApiVersionL :: Lens_' V1EndpointsList (Maybe Text) -v1EndpointsListApiVersionL f V1EndpointsList{..} = (\v1EndpointsListApiVersion -> V1EndpointsList { v1EndpointsListApiVersion, ..} ) <$> f v1EndpointsListApiVersion -{-# INLINE v1EndpointsListApiVersionL #-} - --- | 'v1EndpointsListItems' Lens -v1EndpointsListItemsL :: Lens_' V1EndpointsList ([V1Endpoints]) -v1EndpointsListItemsL f V1EndpointsList{..} = (\v1EndpointsListItems -> V1EndpointsList { v1EndpointsListItems, ..} ) <$> f v1EndpointsListItems -{-# INLINE v1EndpointsListItemsL #-} - --- | 'v1EndpointsListKind' Lens -v1EndpointsListKindL :: Lens_' V1EndpointsList (Maybe Text) -v1EndpointsListKindL f V1EndpointsList{..} = (\v1EndpointsListKind -> V1EndpointsList { v1EndpointsListKind, ..} ) <$> f v1EndpointsListKind -{-# INLINE v1EndpointsListKindL #-} - --- | 'v1EndpointsListMetadata' Lens -v1EndpointsListMetadataL :: Lens_' V1EndpointsList (Maybe V1ListMeta) -v1EndpointsListMetadataL f V1EndpointsList{..} = (\v1EndpointsListMetadata -> V1EndpointsList { v1EndpointsListMetadata, ..} ) <$> f v1EndpointsListMetadata -{-# INLINE v1EndpointsListMetadataL #-} - - - --- * V1EnvFromSource - --- | 'v1EnvFromSourceConfigMapRef' Lens -v1EnvFromSourceConfigMapRefL :: Lens_' V1EnvFromSource (Maybe V1ConfigMapEnvSource) -v1EnvFromSourceConfigMapRefL f V1EnvFromSource{..} = (\v1EnvFromSourceConfigMapRef -> V1EnvFromSource { v1EnvFromSourceConfigMapRef, ..} ) <$> f v1EnvFromSourceConfigMapRef -{-# INLINE v1EnvFromSourceConfigMapRefL #-} - --- | 'v1EnvFromSourcePrefix' Lens -v1EnvFromSourcePrefixL :: Lens_' V1EnvFromSource (Maybe Text) -v1EnvFromSourcePrefixL f V1EnvFromSource{..} = (\v1EnvFromSourcePrefix -> V1EnvFromSource { v1EnvFromSourcePrefix, ..} ) <$> f v1EnvFromSourcePrefix -{-# INLINE v1EnvFromSourcePrefixL #-} - --- | 'v1EnvFromSourceSecretRef' Lens -v1EnvFromSourceSecretRefL :: Lens_' V1EnvFromSource (Maybe V1SecretEnvSource) -v1EnvFromSourceSecretRefL f V1EnvFromSource{..} = (\v1EnvFromSourceSecretRef -> V1EnvFromSource { v1EnvFromSourceSecretRef, ..} ) <$> f v1EnvFromSourceSecretRef -{-# INLINE v1EnvFromSourceSecretRefL #-} - - - --- * V1EnvVar - --- | 'v1EnvVarName' Lens -v1EnvVarNameL :: Lens_' V1EnvVar (Text) -v1EnvVarNameL f V1EnvVar{..} = (\v1EnvVarName -> V1EnvVar { v1EnvVarName, ..} ) <$> f v1EnvVarName -{-# INLINE v1EnvVarNameL #-} - --- | 'v1EnvVarValue' Lens -v1EnvVarValueL :: Lens_' V1EnvVar (Maybe Text) -v1EnvVarValueL f V1EnvVar{..} = (\v1EnvVarValue -> V1EnvVar { v1EnvVarValue, ..} ) <$> f v1EnvVarValue -{-# INLINE v1EnvVarValueL #-} - --- | 'v1EnvVarValueFrom' Lens -v1EnvVarValueFromL :: Lens_' V1EnvVar (Maybe V1EnvVarSource) -v1EnvVarValueFromL f V1EnvVar{..} = (\v1EnvVarValueFrom -> V1EnvVar { v1EnvVarValueFrom, ..} ) <$> f v1EnvVarValueFrom -{-# INLINE v1EnvVarValueFromL #-} - - - --- * V1EnvVarSource - --- | 'v1EnvVarSourceConfigMapKeyRef' Lens -v1EnvVarSourceConfigMapKeyRefL :: Lens_' V1EnvVarSource (Maybe V1ConfigMapKeySelector) -v1EnvVarSourceConfigMapKeyRefL f V1EnvVarSource{..} = (\v1EnvVarSourceConfigMapKeyRef -> V1EnvVarSource { v1EnvVarSourceConfigMapKeyRef, ..} ) <$> f v1EnvVarSourceConfigMapKeyRef -{-# INLINE v1EnvVarSourceConfigMapKeyRefL #-} - --- | 'v1EnvVarSourceFieldRef' Lens -v1EnvVarSourceFieldRefL :: Lens_' V1EnvVarSource (Maybe V1ObjectFieldSelector) -v1EnvVarSourceFieldRefL f V1EnvVarSource{..} = (\v1EnvVarSourceFieldRef -> V1EnvVarSource { v1EnvVarSourceFieldRef, ..} ) <$> f v1EnvVarSourceFieldRef -{-# INLINE v1EnvVarSourceFieldRefL #-} - --- | 'v1EnvVarSourceResourceFieldRef' Lens -v1EnvVarSourceResourceFieldRefL :: Lens_' V1EnvVarSource (Maybe V1ResourceFieldSelector) -v1EnvVarSourceResourceFieldRefL f V1EnvVarSource{..} = (\v1EnvVarSourceResourceFieldRef -> V1EnvVarSource { v1EnvVarSourceResourceFieldRef, ..} ) <$> f v1EnvVarSourceResourceFieldRef -{-# INLINE v1EnvVarSourceResourceFieldRefL #-} - --- | 'v1EnvVarSourceSecretKeyRef' Lens -v1EnvVarSourceSecretKeyRefL :: Lens_' V1EnvVarSource (Maybe V1SecretKeySelector) -v1EnvVarSourceSecretKeyRefL f V1EnvVarSource{..} = (\v1EnvVarSourceSecretKeyRef -> V1EnvVarSource { v1EnvVarSourceSecretKeyRef, ..} ) <$> f v1EnvVarSourceSecretKeyRef -{-# INLINE v1EnvVarSourceSecretKeyRefL #-} - - - --- * V1EphemeralContainer - --- | 'v1EphemeralContainerArgs' Lens -v1EphemeralContainerArgsL :: Lens_' V1EphemeralContainer (Maybe [Text]) -v1EphemeralContainerArgsL f V1EphemeralContainer{..} = (\v1EphemeralContainerArgs -> V1EphemeralContainer { v1EphemeralContainerArgs, ..} ) <$> f v1EphemeralContainerArgs -{-# INLINE v1EphemeralContainerArgsL #-} - --- | 'v1EphemeralContainerCommand' Lens -v1EphemeralContainerCommandL :: Lens_' V1EphemeralContainer (Maybe [Text]) -v1EphemeralContainerCommandL f V1EphemeralContainer{..} = (\v1EphemeralContainerCommand -> V1EphemeralContainer { v1EphemeralContainerCommand, ..} ) <$> f v1EphemeralContainerCommand -{-# INLINE v1EphemeralContainerCommandL #-} - --- | 'v1EphemeralContainerEnv' Lens -v1EphemeralContainerEnvL :: Lens_' V1EphemeralContainer (Maybe [V1EnvVar]) -v1EphemeralContainerEnvL f V1EphemeralContainer{..} = (\v1EphemeralContainerEnv -> V1EphemeralContainer { v1EphemeralContainerEnv, ..} ) <$> f v1EphemeralContainerEnv -{-# INLINE v1EphemeralContainerEnvL #-} - --- | 'v1EphemeralContainerEnvFrom' Lens -v1EphemeralContainerEnvFromL :: Lens_' V1EphemeralContainer (Maybe [V1EnvFromSource]) -v1EphemeralContainerEnvFromL f V1EphemeralContainer{..} = (\v1EphemeralContainerEnvFrom -> V1EphemeralContainer { v1EphemeralContainerEnvFrom, ..} ) <$> f v1EphemeralContainerEnvFrom -{-# INLINE v1EphemeralContainerEnvFromL #-} - --- | 'v1EphemeralContainerImage' Lens -v1EphemeralContainerImageL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerImageL f V1EphemeralContainer{..} = (\v1EphemeralContainerImage -> V1EphemeralContainer { v1EphemeralContainerImage, ..} ) <$> f v1EphemeralContainerImage -{-# INLINE v1EphemeralContainerImageL #-} - --- | 'v1EphemeralContainerImagePullPolicy' Lens -v1EphemeralContainerImagePullPolicyL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerImagePullPolicyL f V1EphemeralContainer{..} = (\v1EphemeralContainerImagePullPolicy -> V1EphemeralContainer { v1EphemeralContainerImagePullPolicy, ..} ) <$> f v1EphemeralContainerImagePullPolicy -{-# INLINE v1EphemeralContainerImagePullPolicyL #-} - --- | 'v1EphemeralContainerLifecycle' Lens -v1EphemeralContainerLifecycleL :: Lens_' V1EphemeralContainer (Maybe V1Lifecycle) -v1EphemeralContainerLifecycleL f V1EphemeralContainer{..} = (\v1EphemeralContainerLifecycle -> V1EphemeralContainer { v1EphemeralContainerLifecycle, ..} ) <$> f v1EphemeralContainerLifecycle -{-# INLINE v1EphemeralContainerLifecycleL #-} - --- | 'v1EphemeralContainerLivenessProbe' Lens -v1EphemeralContainerLivenessProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) -v1EphemeralContainerLivenessProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerLivenessProbe -> V1EphemeralContainer { v1EphemeralContainerLivenessProbe, ..} ) <$> f v1EphemeralContainerLivenessProbe -{-# INLINE v1EphemeralContainerLivenessProbeL #-} - --- | 'v1EphemeralContainerName' Lens -v1EphemeralContainerNameL :: Lens_' V1EphemeralContainer (Text) -v1EphemeralContainerNameL f V1EphemeralContainer{..} = (\v1EphemeralContainerName -> V1EphemeralContainer { v1EphemeralContainerName, ..} ) <$> f v1EphemeralContainerName -{-# INLINE v1EphemeralContainerNameL #-} - --- | 'v1EphemeralContainerPorts' Lens -v1EphemeralContainerPortsL :: Lens_' V1EphemeralContainer (Maybe [V1ContainerPort]) -v1EphemeralContainerPortsL f V1EphemeralContainer{..} = (\v1EphemeralContainerPorts -> V1EphemeralContainer { v1EphemeralContainerPorts, ..} ) <$> f v1EphemeralContainerPorts -{-# INLINE v1EphemeralContainerPortsL #-} - --- | 'v1EphemeralContainerReadinessProbe' Lens -v1EphemeralContainerReadinessProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) -v1EphemeralContainerReadinessProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerReadinessProbe -> V1EphemeralContainer { v1EphemeralContainerReadinessProbe, ..} ) <$> f v1EphemeralContainerReadinessProbe -{-# INLINE v1EphemeralContainerReadinessProbeL #-} - --- | 'v1EphemeralContainerResources' Lens -v1EphemeralContainerResourcesL :: Lens_' V1EphemeralContainer (Maybe V1ResourceRequirements) -v1EphemeralContainerResourcesL f V1EphemeralContainer{..} = (\v1EphemeralContainerResources -> V1EphemeralContainer { v1EphemeralContainerResources, ..} ) <$> f v1EphemeralContainerResources -{-# INLINE v1EphemeralContainerResourcesL #-} - --- | 'v1EphemeralContainerSecurityContext' Lens -v1EphemeralContainerSecurityContextL :: Lens_' V1EphemeralContainer (Maybe V1SecurityContext) -v1EphemeralContainerSecurityContextL f V1EphemeralContainer{..} = (\v1EphemeralContainerSecurityContext -> V1EphemeralContainer { v1EphemeralContainerSecurityContext, ..} ) <$> f v1EphemeralContainerSecurityContext -{-# INLINE v1EphemeralContainerSecurityContextL #-} - --- | 'v1EphemeralContainerStartupProbe' Lens -v1EphemeralContainerStartupProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) -v1EphemeralContainerStartupProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerStartupProbe -> V1EphemeralContainer { v1EphemeralContainerStartupProbe, ..} ) <$> f v1EphemeralContainerStartupProbe -{-# INLINE v1EphemeralContainerStartupProbeL #-} - --- | 'v1EphemeralContainerStdin' Lens -v1EphemeralContainerStdinL :: Lens_' V1EphemeralContainer (Maybe Bool) -v1EphemeralContainerStdinL f V1EphemeralContainer{..} = (\v1EphemeralContainerStdin -> V1EphemeralContainer { v1EphemeralContainerStdin, ..} ) <$> f v1EphemeralContainerStdin -{-# INLINE v1EphemeralContainerStdinL #-} - --- | 'v1EphemeralContainerStdinOnce' Lens -v1EphemeralContainerStdinOnceL :: Lens_' V1EphemeralContainer (Maybe Bool) -v1EphemeralContainerStdinOnceL f V1EphemeralContainer{..} = (\v1EphemeralContainerStdinOnce -> V1EphemeralContainer { v1EphemeralContainerStdinOnce, ..} ) <$> f v1EphemeralContainerStdinOnce -{-# INLINE v1EphemeralContainerStdinOnceL #-} - --- | 'v1EphemeralContainerTargetContainerName' Lens -v1EphemeralContainerTargetContainerNameL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerTargetContainerNameL f V1EphemeralContainer{..} = (\v1EphemeralContainerTargetContainerName -> V1EphemeralContainer { v1EphemeralContainerTargetContainerName, ..} ) <$> f v1EphemeralContainerTargetContainerName -{-# INLINE v1EphemeralContainerTargetContainerNameL #-} - --- | 'v1EphemeralContainerTerminationMessagePath' Lens -v1EphemeralContainerTerminationMessagePathL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerTerminationMessagePathL f V1EphemeralContainer{..} = (\v1EphemeralContainerTerminationMessagePath -> V1EphemeralContainer { v1EphemeralContainerTerminationMessagePath, ..} ) <$> f v1EphemeralContainerTerminationMessagePath -{-# INLINE v1EphemeralContainerTerminationMessagePathL #-} - --- | 'v1EphemeralContainerTerminationMessagePolicy' Lens -v1EphemeralContainerTerminationMessagePolicyL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerTerminationMessagePolicyL f V1EphemeralContainer{..} = (\v1EphemeralContainerTerminationMessagePolicy -> V1EphemeralContainer { v1EphemeralContainerTerminationMessagePolicy, ..} ) <$> f v1EphemeralContainerTerminationMessagePolicy -{-# INLINE v1EphemeralContainerTerminationMessagePolicyL #-} - --- | 'v1EphemeralContainerTty' Lens -v1EphemeralContainerTtyL :: Lens_' V1EphemeralContainer (Maybe Bool) -v1EphemeralContainerTtyL f V1EphemeralContainer{..} = (\v1EphemeralContainerTty -> V1EphemeralContainer { v1EphemeralContainerTty, ..} ) <$> f v1EphemeralContainerTty -{-# INLINE v1EphemeralContainerTtyL #-} - --- | 'v1EphemeralContainerVolumeDevices' Lens -v1EphemeralContainerVolumeDevicesL :: Lens_' V1EphemeralContainer (Maybe [V1VolumeDevice]) -v1EphemeralContainerVolumeDevicesL f V1EphemeralContainer{..} = (\v1EphemeralContainerVolumeDevices -> V1EphemeralContainer { v1EphemeralContainerVolumeDevices, ..} ) <$> f v1EphemeralContainerVolumeDevices -{-# INLINE v1EphemeralContainerVolumeDevicesL #-} - --- | 'v1EphemeralContainerVolumeMounts' Lens -v1EphemeralContainerVolumeMountsL :: Lens_' V1EphemeralContainer (Maybe [V1VolumeMount]) -v1EphemeralContainerVolumeMountsL f V1EphemeralContainer{..} = (\v1EphemeralContainerVolumeMounts -> V1EphemeralContainer { v1EphemeralContainerVolumeMounts, ..} ) <$> f v1EphemeralContainerVolumeMounts -{-# INLINE v1EphemeralContainerVolumeMountsL #-} - --- | 'v1EphemeralContainerWorkingDir' Lens -v1EphemeralContainerWorkingDirL :: Lens_' V1EphemeralContainer (Maybe Text) -v1EphemeralContainerWorkingDirL f V1EphemeralContainer{..} = (\v1EphemeralContainerWorkingDir -> V1EphemeralContainer { v1EphemeralContainerWorkingDir, ..} ) <$> f v1EphemeralContainerWorkingDir -{-# INLINE v1EphemeralContainerWorkingDirL #-} - - - --- * V1EphemeralVolumeSource - --- | 'v1EphemeralVolumeSourceVolumeClaimTemplate' Lens -v1EphemeralVolumeSourceVolumeClaimTemplateL :: Lens_' V1EphemeralVolumeSource (Maybe V1PersistentVolumeClaimTemplate) -v1EphemeralVolumeSourceVolumeClaimTemplateL f V1EphemeralVolumeSource{..} = (\v1EphemeralVolumeSourceVolumeClaimTemplate -> V1EphemeralVolumeSource { v1EphemeralVolumeSourceVolumeClaimTemplate, ..} ) <$> f v1EphemeralVolumeSourceVolumeClaimTemplate -{-# INLINE v1EphemeralVolumeSourceVolumeClaimTemplateL #-} - - - --- * V1EventSource - --- | 'v1EventSourceComponent' Lens -v1EventSourceComponentL :: Lens_' V1EventSource (Maybe Text) -v1EventSourceComponentL f V1EventSource{..} = (\v1EventSourceComponent -> V1EventSource { v1EventSourceComponent, ..} ) <$> f v1EventSourceComponent -{-# INLINE v1EventSourceComponentL #-} - --- | 'v1EventSourceHost' Lens -v1EventSourceHostL :: Lens_' V1EventSource (Maybe Text) -v1EventSourceHostL f V1EventSource{..} = (\v1EventSourceHost -> V1EventSource { v1EventSourceHost, ..} ) <$> f v1EventSourceHost -{-# INLINE v1EventSourceHostL #-} - - - --- * V1Eviction - --- | 'v1EvictionApiVersion' Lens -v1EvictionApiVersionL :: Lens_' V1Eviction (Maybe Text) -v1EvictionApiVersionL f V1Eviction{..} = (\v1EvictionApiVersion -> V1Eviction { v1EvictionApiVersion, ..} ) <$> f v1EvictionApiVersion -{-# INLINE v1EvictionApiVersionL #-} - --- | 'v1EvictionDeleteOptions' Lens -v1EvictionDeleteOptionsL :: Lens_' V1Eviction (Maybe V1DeleteOptions) -v1EvictionDeleteOptionsL f V1Eviction{..} = (\v1EvictionDeleteOptions -> V1Eviction { v1EvictionDeleteOptions, ..} ) <$> f v1EvictionDeleteOptions -{-# INLINE v1EvictionDeleteOptionsL #-} - --- | 'v1EvictionKind' Lens -v1EvictionKindL :: Lens_' V1Eviction (Maybe Text) -v1EvictionKindL f V1Eviction{..} = (\v1EvictionKind -> V1Eviction { v1EvictionKind, ..} ) <$> f v1EvictionKind -{-# INLINE v1EvictionKindL #-} - --- | 'v1EvictionMetadata' Lens -v1EvictionMetadataL :: Lens_' V1Eviction (Maybe V1ObjectMeta) -v1EvictionMetadataL f V1Eviction{..} = (\v1EvictionMetadata -> V1Eviction { v1EvictionMetadata, ..} ) <$> f v1EvictionMetadata -{-# INLINE v1EvictionMetadataL #-} - - - --- * V1ExecAction - --- | 'v1ExecActionCommand' Lens -v1ExecActionCommandL :: Lens_' V1ExecAction (Maybe [Text]) -v1ExecActionCommandL f V1ExecAction{..} = (\v1ExecActionCommand -> V1ExecAction { v1ExecActionCommand, ..} ) <$> f v1ExecActionCommand -{-# INLINE v1ExecActionCommandL #-} - - - --- * V1ExternalDocumentation - --- | 'v1ExternalDocumentationDescription' Lens -v1ExternalDocumentationDescriptionL :: Lens_' V1ExternalDocumentation (Maybe Text) -v1ExternalDocumentationDescriptionL f V1ExternalDocumentation{..} = (\v1ExternalDocumentationDescription -> V1ExternalDocumentation { v1ExternalDocumentationDescription, ..} ) <$> f v1ExternalDocumentationDescription -{-# INLINE v1ExternalDocumentationDescriptionL #-} - --- | 'v1ExternalDocumentationUrl' Lens -v1ExternalDocumentationUrlL :: Lens_' V1ExternalDocumentation (Maybe Text) -v1ExternalDocumentationUrlL f V1ExternalDocumentation{..} = (\v1ExternalDocumentationUrl -> V1ExternalDocumentation { v1ExternalDocumentationUrl, ..} ) <$> f v1ExternalDocumentationUrl -{-# INLINE v1ExternalDocumentationUrlL #-} - - - --- * V1FCVolumeSource - --- | 'v1FCVolumeSourceFsType' Lens -v1FCVolumeSourceFsTypeL :: Lens_' V1FCVolumeSource (Maybe Text) -v1FCVolumeSourceFsTypeL f V1FCVolumeSource{..} = (\v1FCVolumeSourceFsType -> V1FCVolumeSource { v1FCVolumeSourceFsType, ..} ) <$> f v1FCVolumeSourceFsType -{-# INLINE v1FCVolumeSourceFsTypeL #-} - --- | 'v1FCVolumeSourceLun' Lens -v1FCVolumeSourceLunL :: Lens_' V1FCVolumeSource (Maybe Int) -v1FCVolumeSourceLunL f V1FCVolumeSource{..} = (\v1FCVolumeSourceLun -> V1FCVolumeSource { v1FCVolumeSourceLun, ..} ) <$> f v1FCVolumeSourceLun -{-# INLINE v1FCVolumeSourceLunL #-} - --- | 'v1FCVolumeSourceReadOnly' Lens -v1FCVolumeSourceReadOnlyL :: Lens_' V1FCVolumeSource (Maybe Bool) -v1FCVolumeSourceReadOnlyL f V1FCVolumeSource{..} = (\v1FCVolumeSourceReadOnly -> V1FCVolumeSource { v1FCVolumeSourceReadOnly, ..} ) <$> f v1FCVolumeSourceReadOnly -{-# INLINE v1FCVolumeSourceReadOnlyL #-} - --- | 'v1FCVolumeSourceTargetWwns' Lens -v1FCVolumeSourceTargetWwnsL :: Lens_' V1FCVolumeSource (Maybe [Text]) -v1FCVolumeSourceTargetWwnsL f V1FCVolumeSource{..} = (\v1FCVolumeSourceTargetWwns -> V1FCVolumeSource { v1FCVolumeSourceTargetWwns, ..} ) <$> f v1FCVolumeSourceTargetWwns -{-# INLINE v1FCVolumeSourceTargetWwnsL #-} - --- | 'v1FCVolumeSourceWwids' Lens -v1FCVolumeSourceWwidsL :: Lens_' V1FCVolumeSource (Maybe [Text]) -v1FCVolumeSourceWwidsL f V1FCVolumeSource{..} = (\v1FCVolumeSourceWwids -> V1FCVolumeSource { v1FCVolumeSourceWwids, ..} ) <$> f v1FCVolumeSourceWwids -{-# INLINE v1FCVolumeSourceWwidsL #-} - - - --- * V1FlexPersistentVolumeSource - --- | 'v1FlexPersistentVolumeSourceDriver' Lens -v1FlexPersistentVolumeSourceDriverL :: Lens_' V1FlexPersistentVolumeSource (Text) -v1FlexPersistentVolumeSourceDriverL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceDriver -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceDriver, ..} ) <$> f v1FlexPersistentVolumeSourceDriver -{-# INLINE v1FlexPersistentVolumeSourceDriverL #-} - --- | 'v1FlexPersistentVolumeSourceFsType' Lens -v1FlexPersistentVolumeSourceFsTypeL :: Lens_' V1FlexPersistentVolumeSource (Maybe Text) -v1FlexPersistentVolumeSourceFsTypeL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceFsType -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceFsType, ..} ) <$> f v1FlexPersistentVolumeSourceFsType -{-# INLINE v1FlexPersistentVolumeSourceFsTypeL #-} - --- | 'v1FlexPersistentVolumeSourceOptions' Lens -v1FlexPersistentVolumeSourceOptionsL :: Lens_' V1FlexPersistentVolumeSource (Maybe (Map.Map String Text)) -v1FlexPersistentVolumeSourceOptionsL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceOptions -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceOptions, ..} ) <$> f v1FlexPersistentVolumeSourceOptions -{-# INLINE v1FlexPersistentVolumeSourceOptionsL #-} - --- | 'v1FlexPersistentVolumeSourceReadOnly' Lens -v1FlexPersistentVolumeSourceReadOnlyL :: Lens_' V1FlexPersistentVolumeSource (Maybe Bool) -v1FlexPersistentVolumeSourceReadOnlyL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceReadOnly -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceReadOnly, ..} ) <$> f v1FlexPersistentVolumeSourceReadOnly -{-# INLINE v1FlexPersistentVolumeSourceReadOnlyL #-} - --- | 'v1FlexPersistentVolumeSourceSecretRef' Lens -v1FlexPersistentVolumeSourceSecretRefL :: Lens_' V1FlexPersistentVolumeSource (Maybe V1SecretReference) -v1FlexPersistentVolumeSourceSecretRefL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceSecretRef -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceSecretRef, ..} ) <$> f v1FlexPersistentVolumeSourceSecretRef -{-# INLINE v1FlexPersistentVolumeSourceSecretRefL #-} - - - --- * V1FlexVolumeSource - --- | 'v1FlexVolumeSourceDriver' Lens -v1FlexVolumeSourceDriverL :: Lens_' V1FlexVolumeSource (Text) -v1FlexVolumeSourceDriverL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceDriver -> V1FlexVolumeSource { v1FlexVolumeSourceDriver, ..} ) <$> f v1FlexVolumeSourceDriver -{-# INLINE v1FlexVolumeSourceDriverL #-} - --- | 'v1FlexVolumeSourceFsType' Lens -v1FlexVolumeSourceFsTypeL :: Lens_' V1FlexVolumeSource (Maybe Text) -v1FlexVolumeSourceFsTypeL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceFsType -> V1FlexVolumeSource { v1FlexVolumeSourceFsType, ..} ) <$> f v1FlexVolumeSourceFsType -{-# INLINE v1FlexVolumeSourceFsTypeL #-} - --- | 'v1FlexVolumeSourceOptions' Lens -v1FlexVolumeSourceOptionsL :: Lens_' V1FlexVolumeSource (Maybe (Map.Map String Text)) -v1FlexVolumeSourceOptionsL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceOptions -> V1FlexVolumeSource { v1FlexVolumeSourceOptions, ..} ) <$> f v1FlexVolumeSourceOptions -{-# INLINE v1FlexVolumeSourceOptionsL #-} - --- | 'v1FlexVolumeSourceReadOnly' Lens -v1FlexVolumeSourceReadOnlyL :: Lens_' V1FlexVolumeSource (Maybe Bool) -v1FlexVolumeSourceReadOnlyL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceReadOnly -> V1FlexVolumeSource { v1FlexVolumeSourceReadOnly, ..} ) <$> f v1FlexVolumeSourceReadOnly -{-# INLINE v1FlexVolumeSourceReadOnlyL #-} - --- | 'v1FlexVolumeSourceSecretRef' Lens -v1FlexVolumeSourceSecretRefL :: Lens_' V1FlexVolumeSource (Maybe V1LocalObjectReference) -v1FlexVolumeSourceSecretRefL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceSecretRef -> V1FlexVolumeSource { v1FlexVolumeSourceSecretRef, ..} ) <$> f v1FlexVolumeSourceSecretRef -{-# INLINE v1FlexVolumeSourceSecretRefL #-} - - - --- * V1FlockerVolumeSource - --- | 'v1FlockerVolumeSourceDatasetName' Lens -v1FlockerVolumeSourceDatasetNameL :: Lens_' V1FlockerVolumeSource (Maybe Text) -v1FlockerVolumeSourceDatasetNameL f V1FlockerVolumeSource{..} = (\v1FlockerVolumeSourceDatasetName -> V1FlockerVolumeSource { v1FlockerVolumeSourceDatasetName, ..} ) <$> f v1FlockerVolumeSourceDatasetName -{-# INLINE v1FlockerVolumeSourceDatasetNameL #-} - --- | 'v1FlockerVolumeSourceDatasetUuid' Lens -v1FlockerVolumeSourceDatasetUuidL :: Lens_' V1FlockerVolumeSource (Maybe Text) -v1FlockerVolumeSourceDatasetUuidL f V1FlockerVolumeSource{..} = (\v1FlockerVolumeSourceDatasetUuid -> V1FlockerVolumeSource { v1FlockerVolumeSourceDatasetUuid, ..} ) <$> f v1FlockerVolumeSourceDatasetUuid -{-# INLINE v1FlockerVolumeSourceDatasetUuidL #-} - - - --- * V1ForZone - --- | 'v1ForZoneName' Lens -v1ForZoneNameL :: Lens_' V1ForZone (Text) -v1ForZoneNameL f V1ForZone{..} = (\v1ForZoneName -> V1ForZone { v1ForZoneName, ..} ) <$> f v1ForZoneName -{-# INLINE v1ForZoneNameL #-} - - - --- * V1GCEPersistentDiskVolumeSource - --- | 'v1GCEPersistentDiskVolumeSourceFsType' Lens -v1GCEPersistentDiskVolumeSourceFsTypeL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Text) -v1GCEPersistentDiskVolumeSourceFsTypeL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourceFsType -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourceFsType, ..} ) <$> f v1GCEPersistentDiskVolumeSourceFsType -{-# INLINE v1GCEPersistentDiskVolumeSourceFsTypeL #-} - --- | 'v1GCEPersistentDiskVolumeSourcePartition' Lens -v1GCEPersistentDiskVolumeSourcePartitionL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Int) -v1GCEPersistentDiskVolumeSourcePartitionL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourcePartition -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourcePartition, ..} ) <$> f v1GCEPersistentDiskVolumeSourcePartition -{-# INLINE v1GCEPersistentDiskVolumeSourcePartitionL #-} - --- | 'v1GCEPersistentDiskVolumeSourcePdName' Lens -v1GCEPersistentDiskVolumeSourcePdNameL :: Lens_' V1GCEPersistentDiskVolumeSource (Text) -v1GCEPersistentDiskVolumeSourcePdNameL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourcePdName -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourcePdName, ..} ) <$> f v1GCEPersistentDiskVolumeSourcePdName -{-# INLINE v1GCEPersistentDiskVolumeSourcePdNameL #-} - --- | 'v1GCEPersistentDiskVolumeSourceReadOnly' Lens -v1GCEPersistentDiskVolumeSourceReadOnlyL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Bool) -v1GCEPersistentDiskVolumeSourceReadOnlyL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourceReadOnly -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourceReadOnly, ..} ) <$> f v1GCEPersistentDiskVolumeSourceReadOnly -{-# INLINE v1GCEPersistentDiskVolumeSourceReadOnlyL #-} - - - --- * V1GRPCAction - --- | 'v1GRPCActionPort' Lens -v1GRPCActionPortL :: Lens_' V1GRPCAction (Int) -v1GRPCActionPortL f V1GRPCAction{..} = (\v1GRPCActionPort -> V1GRPCAction { v1GRPCActionPort, ..} ) <$> f v1GRPCActionPort -{-# INLINE v1GRPCActionPortL #-} - --- | 'v1GRPCActionService' Lens -v1GRPCActionServiceL :: Lens_' V1GRPCAction (Maybe Text) -v1GRPCActionServiceL f V1GRPCAction{..} = (\v1GRPCActionService -> V1GRPCAction { v1GRPCActionService, ..} ) <$> f v1GRPCActionService -{-# INLINE v1GRPCActionServiceL #-} - - - --- * V1GitRepoVolumeSource - --- | 'v1GitRepoVolumeSourceDirectory' Lens -v1GitRepoVolumeSourceDirectoryL :: Lens_' V1GitRepoVolumeSource (Maybe Text) -v1GitRepoVolumeSourceDirectoryL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceDirectory -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceDirectory, ..} ) <$> f v1GitRepoVolumeSourceDirectory -{-# INLINE v1GitRepoVolumeSourceDirectoryL #-} - --- | 'v1GitRepoVolumeSourceRepository' Lens -v1GitRepoVolumeSourceRepositoryL :: Lens_' V1GitRepoVolumeSource (Text) -v1GitRepoVolumeSourceRepositoryL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceRepository -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceRepository, ..} ) <$> f v1GitRepoVolumeSourceRepository -{-# INLINE v1GitRepoVolumeSourceRepositoryL #-} - --- | 'v1GitRepoVolumeSourceRevision' Lens -v1GitRepoVolumeSourceRevisionL :: Lens_' V1GitRepoVolumeSource (Maybe Text) -v1GitRepoVolumeSourceRevisionL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceRevision -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceRevision, ..} ) <$> f v1GitRepoVolumeSourceRevision -{-# INLINE v1GitRepoVolumeSourceRevisionL #-} - - - --- * V1GlusterfsPersistentVolumeSource - --- | 'v1GlusterfsPersistentVolumeSourceEndpoints' Lens -v1GlusterfsPersistentVolumeSourceEndpointsL :: Lens_' V1GlusterfsPersistentVolumeSource (Text) -v1GlusterfsPersistentVolumeSourceEndpointsL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceEndpoints -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceEndpoints, ..} ) <$> f v1GlusterfsPersistentVolumeSourceEndpoints -{-# INLINE v1GlusterfsPersistentVolumeSourceEndpointsL #-} - --- | 'v1GlusterfsPersistentVolumeSourceEndpointsNamespace' Lens -v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL :: Lens_' V1GlusterfsPersistentVolumeSource (Maybe Text) -v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceEndpointsNamespace -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceEndpointsNamespace, ..} ) <$> f v1GlusterfsPersistentVolumeSourceEndpointsNamespace -{-# INLINE v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL #-} - --- | 'v1GlusterfsPersistentVolumeSourcePath' Lens -v1GlusterfsPersistentVolumeSourcePathL :: Lens_' V1GlusterfsPersistentVolumeSource (Text) -v1GlusterfsPersistentVolumeSourcePathL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourcePath -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourcePath, ..} ) <$> f v1GlusterfsPersistentVolumeSourcePath -{-# INLINE v1GlusterfsPersistentVolumeSourcePathL #-} - --- | 'v1GlusterfsPersistentVolumeSourceReadOnly' Lens -v1GlusterfsPersistentVolumeSourceReadOnlyL :: Lens_' V1GlusterfsPersistentVolumeSource (Maybe Bool) -v1GlusterfsPersistentVolumeSourceReadOnlyL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceReadOnly -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceReadOnly, ..} ) <$> f v1GlusterfsPersistentVolumeSourceReadOnly -{-# INLINE v1GlusterfsPersistentVolumeSourceReadOnlyL #-} - - - --- * V1GlusterfsVolumeSource - --- | 'v1GlusterfsVolumeSourceEndpoints' Lens -v1GlusterfsVolumeSourceEndpointsL :: Lens_' V1GlusterfsVolumeSource (Text) -v1GlusterfsVolumeSourceEndpointsL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourceEndpoints -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourceEndpoints, ..} ) <$> f v1GlusterfsVolumeSourceEndpoints -{-# INLINE v1GlusterfsVolumeSourceEndpointsL #-} - --- | 'v1GlusterfsVolumeSourcePath' Lens -v1GlusterfsVolumeSourcePathL :: Lens_' V1GlusterfsVolumeSource (Text) -v1GlusterfsVolumeSourcePathL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourcePath -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourcePath, ..} ) <$> f v1GlusterfsVolumeSourcePath -{-# INLINE v1GlusterfsVolumeSourcePathL #-} - --- | 'v1GlusterfsVolumeSourceReadOnly' Lens -v1GlusterfsVolumeSourceReadOnlyL :: Lens_' V1GlusterfsVolumeSource (Maybe Bool) -v1GlusterfsVolumeSourceReadOnlyL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourceReadOnly -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourceReadOnly, ..} ) <$> f v1GlusterfsVolumeSourceReadOnly -{-# INLINE v1GlusterfsVolumeSourceReadOnlyL #-} - - - --- * V1GroupVersionForDiscovery - --- | 'v1GroupVersionForDiscoveryGroupVersion' Lens -v1GroupVersionForDiscoveryGroupVersionL :: Lens_' V1GroupVersionForDiscovery (Text) -v1GroupVersionForDiscoveryGroupVersionL f V1GroupVersionForDiscovery{..} = (\v1GroupVersionForDiscoveryGroupVersion -> V1GroupVersionForDiscovery { v1GroupVersionForDiscoveryGroupVersion, ..} ) <$> f v1GroupVersionForDiscoveryGroupVersion -{-# INLINE v1GroupVersionForDiscoveryGroupVersionL #-} - --- | 'v1GroupVersionForDiscoveryVersion' Lens -v1GroupVersionForDiscoveryVersionL :: Lens_' V1GroupVersionForDiscovery (Text) -v1GroupVersionForDiscoveryVersionL f V1GroupVersionForDiscovery{..} = (\v1GroupVersionForDiscoveryVersion -> V1GroupVersionForDiscovery { v1GroupVersionForDiscoveryVersion, ..} ) <$> f v1GroupVersionForDiscoveryVersion -{-# INLINE v1GroupVersionForDiscoveryVersionL #-} - - - --- * V1HTTPGetAction - --- | 'v1HTTPGetActionHost' Lens -v1HTTPGetActionHostL :: Lens_' V1HTTPGetAction (Maybe Text) -v1HTTPGetActionHostL f V1HTTPGetAction{..} = (\v1HTTPGetActionHost -> V1HTTPGetAction { v1HTTPGetActionHost, ..} ) <$> f v1HTTPGetActionHost -{-# INLINE v1HTTPGetActionHostL #-} - --- | 'v1HTTPGetActionHttpHeaders' Lens -v1HTTPGetActionHttpHeadersL :: Lens_' V1HTTPGetAction (Maybe [V1HTTPHeader]) -v1HTTPGetActionHttpHeadersL f V1HTTPGetAction{..} = (\v1HTTPGetActionHttpHeaders -> V1HTTPGetAction { v1HTTPGetActionHttpHeaders, ..} ) <$> f v1HTTPGetActionHttpHeaders -{-# INLINE v1HTTPGetActionHttpHeadersL #-} - --- | 'v1HTTPGetActionPath' Lens -v1HTTPGetActionPathL :: Lens_' V1HTTPGetAction (Maybe Text) -v1HTTPGetActionPathL f V1HTTPGetAction{..} = (\v1HTTPGetActionPath -> V1HTTPGetAction { v1HTTPGetActionPath, ..} ) <$> f v1HTTPGetActionPath -{-# INLINE v1HTTPGetActionPathL #-} - --- | 'v1HTTPGetActionPort' Lens -v1HTTPGetActionPortL :: Lens_' V1HTTPGetAction (IntOrString) -v1HTTPGetActionPortL f V1HTTPGetAction{..} = (\v1HTTPGetActionPort -> V1HTTPGetAction { v1HTTPGetActionPort, ..} ) <$> f v1HTTPGetActionPort -{-# INLINE v1HTTPGetActionPortL #-} - --- | 'v1HTTPGetActionScheme' Lens -v1HTTPGetActionSchemeL :: Lens_' V1HTTPGetAction (Maybe Text) -v1HTTPGetActionSchemeL f V1HTTPGetAction{..} = (\v1HTTPGetActionScheme -> V1HTTPGetAction { v1HTTPGetActionScheme, ..} ) <$> f v1HTTPGetActionScheme -{-# INLINE v1HTTPGetActionSchemeL #-} - - - --- * V1HTTPHeader - --- | 'v1HTTPHeaderName' Lens -v1HTTPHeaderNameL :: Lens_' V1HTTPHeader (Text) -v1HTTPHeaderNameL f V1HTTPHeader{..} = (\v1HTTPHeaderName -> V1HTTPHeader { v1HTTPHeaderName, ..} ) <$> f v1HTTPHeaderName -{-# INLINE v1HTTPHeaderNameL #-} - --- | 'v1HTTPHeaderValue' Lens -v1HTTPHeaderValueL :: Lens_' V1HTTPHeader (Text) -v1HTTPHeaderValueL f V1HTTPHeader{..} = (\v1HTTPHeaderValue -> V1HTTPHeader { v1HTTPHeaderValue, ..} ) <$> f v1HTTPHeaderValue -{-# INLINE v1HTTPHeaderValueL #-} - - - --- * V1HTTPIngressPath - --- | 'v1HTTPIngressPathBackend' Lens -v1HTTPIngressPathBackendL :: Lens_' V1HTTPIngressPath (V1IngressBackend) -v1HTTPIngressPathBackendL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathBackend -> V1HTTPIngressPath { v1HTTPIngressPathBackend, ..} ) <$> f v1HTTPIngressPathBackend -{-# INLINE v1HTTPIngressPathBackendL #-} - --- | 'v1HTTPIngressPathPath' Lens -v1HTTPIngressPathPathL :: Lens_' V1HTTPIngressPath (Maybe Text) -v1HTTPIngressPathPathL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathPath -> V1HTTPIngressPath { v1HTTPIngressPathPath, ..} ) <$> f v1HTTPIngressPathPath -{-# INLINE v1HTTPIngressPathPathL #-} - --- | 'v1HTTPIngressPathPathType' Lens -v1HTTPIngressPathPathTypeL :: Lens_' V1HTTPIngressPath (Text) -v1HTTPIngressPathPathTypeL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathPathType -> V1HTTPIngressPath { v1HTTPIngressPathPathType, ..} ) <$> f v1HTTPIngressPathPathType -{-# INLINE v1HTTPIngressPathPathTypeL #-} - - - --- * V1HTTPIngressRuleValue - --- | 'v1HTTPIngressRuleValuePaths' Lens -v1HTTPIngressRuleValuePathsL :: Lens_' V1HTTPIngressRuleValue ([V1HTTPIngressPath]) -v1HTTPIngressRuleValuePathsL f V1HTTPIngressRuleValue{..} = (\v1HTTPIngressRuleValuePaths -> V1HTTPIngressRuleValue { v1HTTPIngressRuleValuePaths, ..} ) <$> f v1HTTPIngressRuleValuePaths -{-# INLINE v1HTTPIngressRuleValuePathsL #-} - - - --- * V1HorizontalPodAutoscaler - --- | 'v1HorizontalPodAutoscalerApiVersion' Lens -v1HorizontalPodAutoscalerApiVersionL :: Lens_' V1HorizontalPodAutoscaler (Maybe Text) -v1HorizontalPodAutoscalerApiVersionL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerApiVersion -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerApiVersion, ..} ) <$> f v1HorizontalPodAutoscalerApiVersion -{-# INLINE v1HorizontalPodAutoscalerApiVersionL #-} - --- | 'v1HorizontalPodAutoscalerKind' Lens -v1HorizontalPodAutoscalerKindL :: Lens_' V1HorizontalPodAutoscaler (Maybe Text) -v1HorizontalPodAutoscalerKindL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerKind -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerKind, ..} ) <$> f v1HorizontalPodAutoscalerKind -{-# INLINE v1HorizontalPodAutoscalerKindL #-} - --- | 'v1HorizontalPodAutoscalerMetadata' Lens -v1HorizontalPodAutoscalerMetadataL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1ObjectMeta) -v1HorizontalPodAutoscalerMetadataL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerMetadata -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerMetadata, ..} ) <$> f v1HorizontalPodAutoscalerMetadata -{-# INLINE v1HorizontalPodAutoscalerMetadataL #-} - --- | 'v1HorizontalPodAutoscalerSpec' Lens -v1HorizontalPodAutoscalerSpecL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1HorizontalPodAutoscalerSpec) -v1HorizontalPodAutoscalerSpecL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerSpec -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerSpec, ..} ) <$> f v1HorizontalPodAutoscalerSpec -{-# INLINE v1HorizontalPodAutoscalerSpecL #-} - --- | 'v1HorizontalPodAutoscalerStatus' Lens -v1HorizontalPodAutoscalerStatusL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1HorizontalPodAutoscalerStatus) -v1HorizontalPodAutoscalerStatusL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerStatus -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerStatus, ..} ) <$> f v1HorizontalPodAutoscalerStatus -{-# INLINE v1HorizontalPodAutoscalerStatusL #-} - - - --- * V1HorizontalPodAutoscalerList - --- | 'v1HorizontalPodAutoscalerListApiVersion' Lens -v1HorizontalPodAutoscalerListApiVersionL :: Lens_' V1HorizontalPodAutoscalerList (Maybe Text) -v1HorizontalPodAutoscalerListApiVersionL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListApiVersion -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListApiVersion, ..} ) <$> f v1HorizontalPodAutoscalerListApiVersion -{-# INLINE v1HorizontalPodAutoscalerListApiVersionL #-} - --- | 'v1HorizontalPodAutoscalerListItems' Lens -v1HorizontalPodAutoscalerListItemsL :: Lens_' V1HorizontalPodAutoscalerList ([V1HorizontalPodAutoscaler]) -v1HorizontalPodAutoscalerListItemsL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListItems -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListItems, ..} ) <$> f v1HorizontalPodAutoscalerListItems -{-# INLINE v1HorizontalPodAutoscalerListItemsL #-} - --- | 'v1HorizontalPodAutoscalerListKind' Lens -v1HorizontalPodAutoscalerListKindL :: Lens_' V1HorizontalPodAutoscalerList (Maybe Text) -v1HorizontalPodAutoscalerListKindL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListKind -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListKind, ..} ) <$> f v1HorizontalPodAutoscalerListKind -{-# INLINE v1HorizontalPodAutoscalerListKindL #-} - --- | 'v1HorizontalPodAutoscalerListMetadata' Lens -v1HorizontalPodAutoscalerListMetadataL :: Lens_' V1HorizontalPodAutoscalerList (Maybe V1ListMeta) -v1HorizontalPodAutoscalerListMetadataL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListMetadata -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListMetadata, ..} ) <$> f v1HorizontalPodAutoscalerListMetadata -{-# INLINE v1HorizontalPodAutoscalerListMetadataL #-} - - - --- * V1HorizontalPodAutoscalerSpec - --- | 'v1HorizontalPodAutoscalerSpecMaxReplicas' Lens -v1HorizontalPodAutoscalerSpecMaxReplicasL :: Lens_' V1HorizontalPodAutoscalerSpec (Int) -v1HorizontalPodAutoscalerSpecMaxReplicasL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecMaxReplicas -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecMaxReplicas, ..} ) <$> f v1HorizontalPodAutoscalerSpecMaxReplicas -{-# INLINE v1HorizontalPodAutoscalerSpecMaxReplicasL #-} - --- | 'v1HorizontalPodAutoscalerSpecMinReplicas' Lens -v1HorizontalPodAutoscalerSpecMinReplicasL :: Lens_' V1HorizontalPodAutoscalerSpec (Maybe Int) -v1HorizontalPodAutoscalerSpecMinReplicasL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecMinReplicas -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecMinReplicas, ..} ) <$> f v1HorizontalPodAutoscalerSpecMinReplicas -{-# INLINE v1HorizontalPodAutoscalerSpecMinReplicasL #-} - --- | 'v1HorizontalPodAutoscalerSpecScaleTargetRef' Lens -v1HorizontalPodAutoscalerSpecScaleTargetRefL :: Lens_' V1HorizontalPodAutoscalerSpec (V1CrossVersionObjectReference) -v1HorizontalPodAutoscalerSpecScaleTargetRefL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecScaleTargetRef -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecScaleTargetRef, ..} ) <$> f v1HorizontalPodAutoscalerSpecScaleTargetRef -{-# INLINE v1HorizontalPodAutoscalerSpecScaleTargetRefL #-} - --- | 'v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage' Lens -v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL :: Lens_' V1HorizontalPodAutoscalerSpec (Maybe Int) -v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage, ..} ) <$> f v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage -{-# INLINE v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL #-} - - - --- * V1HorizontalPodAutoscalerStatus - --- | 'v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage' Lens -v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe Int) -v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage, ..} ) <$> f v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage -{-# INLINE v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL #-} - --- | 'v1HorizontalPodAutoscalerStatusCurrentReplicas' Lens -v1HorizontalPodAutoscalerStatusCurrentReplicasL :: Lens_' V1HorizontalPodAutoscalerStatus (Int) -v1HorizontalPodAutoscalerStatusCurrentReplicasL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusCurrentReplicas -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusCurrentReplicas, ..} ) <$> f v1HorizontalPodAutoscalerStatusCurrentReplicas -{-# INLINE v1HorizontalPodAutoscalerStatusCurrentReplicasL #-} - --- | 'v1HorizontalPodAutoscalerStatusDesiredReplicas' Lens -v1HorizontalPodAutoscalerStatusDesiredReplicasL :: Lens_' V1HorizontalPodAutoscalerStatus (Int) -v1HorizontalPodAutoscalerStatusDesiredReplicasL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusDesiredReplicas -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusDesiredReplicas, ..} ) <$> f v1HorizontalPodAutoscalerStatusDesiredReplicas -{-# INLINE v1HorizontalPodAutoscalerStatusDesiredReplicasL #-} - --- | 'v1HorizontalPodAutoscalerStatusLastScaleTime' Lens -v1HorizontalPodAutoscalerStatusLastScaleTimeL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe DateTime) -v1HorizontalPodAutoscalerStatusLastScaleTimeL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusLastScaleTime -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusLastScaleTime, ..} ) <$> f v1HorizontalPodAutoscalerStatusLastScaleTime -{-# INLINE v1HorizontalPodAutoscalerStatusLastScaleTimeL #-} - --- | 'v1HorizontalPodAutoscalerStatusObservedGeneration' Lens -v1HorizontalPodAutoscalerStatusObservedGenerationL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe Integer) -v1HorizontalPodAutoscalerStatusObservedGenerationL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusObservedGeneration -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusObservedGeneration, ..} ) <$> f v1HorizontalPodAutoscalerStatusObservedGeneration -{-# INLINE v1HorizontalPodAutoscalerStatusObservedGenerationL #-} - - - --- * V1HostAlias - --- | 'v1HostAliasHostnames' Lens -v1HostAliasHostnamesL :: Lens_' V1HostAlias (Maybe [Text]) -v1HostAliasHostnamesL f V1HostAlias{..} = (\v1HostAliasHostnames -> V1HostAlias { v1HostAliasHostnames, ..} ) <$> f v1HostAliasHostnames -{-# INLINE v1HostAliasHostnamesL #-} - --- | 'v1HostAliasIp' Lens -v1HostAliasIpL :: Lens_' V1HostAlias (Maybe Text) -v1HostAliasIpL f V1HostAlias{..} = (\v1HostAliasIp -> V1HostAlias { v1HostAliasIp, ..} ) <$> f v1HostAliasIp -{-# INLINE v1HostAliasIpL #-} - - - --- * V1HostPathVolumeSource - --- | 'v1HostPathVolumeSourcePath' Lens -v1HostPathVolumeSourcePathL :: Lens_' V1HostPathVolumeSource (Text) -v1HostPathVolumeSourcePathL f V1HostPathVolumeSource{..} = (\v1HostPathVolumeSourcePath -> V1HostPathVolumeSource { v1HostPathVolumeSourcePath, ..} ) <$> f v1HostPathVolumeSourcePath -{-# INLINE v1HostPathVolumeSourcePathL #-} - --- | 'v1HostPathVolumeSourceType' Lens -v1HostPathVolumeSourceTypeL :: Lens_' V1HostPathVolumeSource (Maybe Text) -v1HostPathVolumeSourceTypeL f V1HostPathVolumeSource{..} = (\v1HostPathVolumeSourceType -> V1HostPathVolumeSource { v1HostPathVolumeSourceType, ..} ) <$> f v1HostPathVolumeSourceType -{-# INLINE v1HostPathVolumeSourceTypeL #-} - - - --- * V1IPBlock - --- | 'v1IPBlockCidr' Lens -v1IPBlockCidrL :: Lens_' V1IPBlock (Text) -v1IPBlockCidrL f V1IPBlock{..} = (\v1IPBlockCidr -> V1IPBlock { v1IPBlockCidr, ..} ) <$> f v1IPBlockCidr -{-# INLINE v1IPBlockCidrL #-} - --- | 'v1IPBlockExcept' Lens -v1IPBlockExceptL :: Lens_' V1IPBlock (Maybe [Text]) -v1IPBlockExceptL f V1IPBlock{..} = (\v1IPBlockExcept -> V1IPBlock { v1IPBlockExcept, ..} ) <$> f v1IPBlockExcept -{-# INLINE v1IPBlockExceptL #-} - - - --- * V1ISCSIPersistentVolumeSource - --- | 'v1ISCSIPersistentVolumeSourceChapAuthDiscovery' Lens -v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) -v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceChapAuthDiscovery -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceChapAuthDiscovery, ..} ) <$> f v1ISCSIPersistentVolumeSourceChapAuthDiscovery -{-# INLINE v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL #-} - --- | 'v1ISCSIPersistentVolumeSourceChapAuthSession' Lens -v1ISCSIPersistentVolumeSourceChapAuthSessionL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) -v1ISCSIPersistentVolumeSourceChapAuthSessionL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceChapAuthSession -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceChapAuthSession, ..} ) <$> f v1ISCSIPersistentVolumeSourceChapAuthSession -{-# INLINE v1ISCSIPersistentVolumeSourceChapAuthSessionL #-} - --- | 'v1ISCSIPersistentVolumeSourceFsType' Lens -v1ISCSIPersistentVolumeSourceFsTypeL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) -v1ISCSIPersistentVolumeSourceFsTypeL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceFsType -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceFsType, ..} ) <$> f v1ISCSIPersistentVolumeSourceFsType -{-# INLINE v1ISCSIPersistentVolumeSourceFsTypeL #-} - --- | 'v1ISCSIPersistentVolumeSourceInitiatorName' Lens -v1ISCSIPersistentVolumeSourceInitiatorNameL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) -v1ISCSIPersistentVolumeSourceInitiatorNameL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceInitiatorName -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceInitiatorName, ..} ) <$> f v1ISCSIPersistentVolumeSourceInitiatorName -{-# INLINE v1ISCSIPersistentVolumeSourceInitiatorNameL #-} - --- | 'v1ISCSIPersistentVolumeSourceIqn' Lens -v1ISCSIPersistentVolumeSourceIqnL :: Lens_' V1ISCSIPersistentVolumeSource (Text) -v1ISCSIPersistentVolumeSourceIqnL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceIqn -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceIqn, ..} ) <$> f v1ISCSIPersistentVolumeSourceIqn -{-# INLINE v1ISCSIPersistentVolumeSourceIqnL #-} - --- | 'v1ISCSIPersistentVolumeSourceIscsiInterface' Lens -v1ISCSIPersistentVolumeSourceIscsiInterfaceL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) -v1ISCSIPersistentVolumeSourceIscsiInterfaceL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceIscsiInterface -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceIscsiInterface, ..} ) <$> f v1ISCSIPersistentVolumeSourceIscsiInterface -{-# INLINE v1ISCSIPersistentVolumeSourceIscsiInterfaceL #-} - --- | 'v1ISCSIPersistentVolumeSourceLun' Lens -v1ISCSIPersistentVolumeSourceLunL :: Lens_' V1ISCSIPersistentVolumeSource (Int) -v1ISCSIPersistentVolumeSourceLunL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceLun -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceLun, ..} ) <$> f v1ISCSIPersistentVolumeSourceLun -{-# INLINE v1ISCSIPersistentVolumeSourceLunL #-} - --- | 'v1ISCSIPersistentVolumeSourcePortals' Lens -v1ISCSIPersistentVolumeSourcePortalsL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe [Text]) -v1ISCSIPersistentVolumeSourcePortalsL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourcePortals -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourcePortals, ..} ) <$> f v1ISCSIPersistentVolumeSourcePortals -{-# INLINE v1ISCSIPersistentVolumeSourcePortalsL #-} - --- | 'v1ISCSIPersistentVolumeSourceReadOnly' Lens -v1ISCSIPersistentVolumeSourceReadOnlyL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) -v1ISCSIPersistentVolumeSourceReadOnlyL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceReadOnly -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceReadOnly, ..} ) <$> f v1ISCSIPersistentVolumeSourceReadOnly -{-# INLINE v1ISCSIPersistentVolumeSourceReadOnlyL #-} - --- | 'v1ISCSIPersistentVolumeSourceSecretRef' Lens -v1ISCSIPersistentVolumeSourceSecretRefL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe V1SecretReference) -v1ISCSIPersistentVolumeSourceSecretRefL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceSecretRef -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceSecretRef, ..} ) <$> f v1ISCSIPersistentVolumeSourceSecretRef -{-# INLINE v1ISCSIPersistentVolumeSourceSecretRefL #-} - --- | 'v1ISCSIPersistentVolumeSourceTargetPortal' Lens -v1ISCSIPersistentVolumeSourceTargetPortalL :: Lens_' V1ISCSIPersistentVolumeSource (Text) -v1ISCSIPersistentVolumeSourceTargetPortalL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceTargetPortal -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceTargetPortal, ..} ) <$> f v1ISCSIPersistentVolumeSourceTargetPortal -{-# INLINE v1ISCSIPersistentVolumeSourceTargetPortalL #-} - - - --- * V1ISCSIVolumeSource - --- | 'v1ISCSIVolumeSourceChapAuthDiscovery' Lens -v1ISCSIVolumeSourceChapAuthDiscoveryL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) -v1ISCSIVolumeSourceChapAuthDiscoveryL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceChapAuthDiscovery -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceChapAuthDiscovery, ..} ) <$> f v1ISCSIVolumeSourceChapAuthDiscovery -{-# INLINE v1ISCSIVolumeSourceChapAuthDiscoveryL #-} - --- | 'v1ISCSIVolumeSourceChapAuthSession' Lens -v1ISCSIVolumeSourceChapAuthSessionL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) -v1ISCSIVolumeSourceChapAuthSessionL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceChapAuthSession -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceChapAuthSession, ..} ) <$> f v1ISCSIVolumeSourceChapAuthSession -{-# INLINE v1ISCSIVolumeSourceChapAuthSessionL #-} - --- | 'v1ISCSIVolumeSourceFsType' Lens -v1ISCSIVolumeSourceFsTypeL :: Lens_' V1ISCSIVolumeSource (Maybe Text) -v1ISCSIVolumeSourceFsTypeL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceFsType -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceFsType, ..} ) <$> f v1ISCSIVolumeSourceFsType -{-# INLINE v1ISCSIVolumeSourceFsTypeL #-} - --- | 'v1ISCSIVolumeSourceInitiatorName' Lens -v1ISCSIVolumeSourceInitiatorNameL :: Lens_' V1ISCSIVolumeSource (Maybe Text) -v1ISCSIVolumeSourceInitiatorNameL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceInitiatorName -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceInitiatorName, ..} ) <$> f v1ISCSIVolumeSourceInitiatorName -{-# INLINE v1ISCSIVolumeSourceInitiatorNameL #-} - --- | 'v1ISCSIVolumeSourceIqn' Lens -v1ISCSIVolumeSourceIqnL :: Lens_' V1ISCSIVolumeSource (Text) -v1ISCSIVolumeSourceIqnL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceIqn -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceIqn, ..} ) <$> f v1ISCSIVolumeSourceIqn -{-# INLINE v1ISCSIVolumeSourceIqnL #-} - --- | 'v1ISCSIVolumeSourceIscsiInterface' Lens -v1ISCSIVolumeSourceIscsiInterfaceL :: Lens_' V1ISCSIVolumeSource (Maybe Text) -v1ISCSIVolumeSourceIscsiInterfaceL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceIscsiInterface -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceIscsiInterface, ..} ) <$> f v1ISCSIVolumeSourceIscsiInterface -{-# INLINE v1ISCSIVolumeSourceIscsiInterfaceL #-} - --- | 'v1ISCSIVolumeSourceLun' Lens -v1ISCSIVolumeSourceLunL :: Lens_' V1ISCSIVolumeSource (Int) -v1ISCSIVolumeSourceLunL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceLun -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceLun, ..} ) <$> f v1ISCSIVolumeSourceLun -{-# INLINE v1ISCSIVolumeSourceLunL #-} - --- | 'v1ISCSIVolumeSourcePortals' Lens -v1ISCSIVolumeSourcePortalsL :: Lens_' V1ISCSIVolumeSource (Maybe [Text]) -v1ISCSIVolumeSourcePortalsL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourcePortals -> V1ISCSIVolumeSource { v1ISCSIVolumeSourcePortals, ..} ) <$> f v1ISCSIVolumeSourcePortals -{-# INLINE v1ISCSIVolumeSourcePortalsL #-} - --- | 'v1ISCSIVolumeSourceReadOnly' Lens -v1ISCSIVolumeSourceReadOnlyL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) -v1ISCSIVolumeSourceReadOnlyL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceReadOnly -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceReadOnly, ..} ) <$> f v1ISCSIVolumeSourceReadOnly -{-# INLINE v1ISCSIVolumeSourceReadOnlyL #-} - --- | 'v1ISCSIVolumeSourceSecretRef' Lens -v1ISCSIVolumeSourceSecretRefL :: Lens_' V1ISCSIVolumeSource (Maybe V1LocalObjectReference) -v1ISCSIVolumeSourceSecretRefL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceSecretRef -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceSecretRef, ..} ) <$> f v1ISCSIVolumeSourceSecretRef -{-# INLINE v1ISCSIVolumeSourceSecretRefL #-} - --- | 'v1ISCSIVolumeSourceTargetPortal' Lens -v1ISCSIVolumeSourceTargetPortalL :: Lens_' V1ISCSIVolumeSource (Text) -v1ISCSIVolumeSourceTargetPortalL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceTargetPortal -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceTargetPortal, ..} ) <$> f v1ISCSIVolumeSourceTargetPortal -{-# INLINE v1ISCSIVolumeSourceTargetPortalL #-} - - - --- * V1Ingress - --- | 'v1IngressApiVersion' Lens -v1IngressApiVersionL :: Lens_' V1Ingress (Maybe Text) -v1IngressApiVersionL f V1Ingress{..} = (\v1IngressApiVersion -> V1Ingress { v1IngressApiVersion, ..} ) <$> f v1IngressApiVersion -{-# INLINE v1IngressApiVersionL #-} - --- | 'v1IngressKind' Lens -v1IngressKindL :: Lens_' V1Ingress (Maybe Text) -v1IngressKindL f V1Ingress{..} = (\v1IngressKind -> V1Ingress { v1IngressKind, ..} ) <$> f v1IngressKind -{-# INLINE v1IngressKindL #-} - --- | 'v1IngressMetadata' Lens -v1IngressMetadataL :: Lens_' V1Ingress (Maybe V1ObjectMeta) -v1IngressMetadataL f V1Ingress{..} = (\v1IngressMetadata -> V1Ingress { v1IngressMetadata, ..} ) <$> f v1IngressMetadata -{-# INLINE v1IngressMetadataL #-} - --- | 'v1IngressSpec' Lens -v1IngressSpecL :: Lens_' V1Ingress (Maybe V1IngressSpec) -v1IngressSpecL f V1Ingress{..} = (\v1IngressSpec -> V1Ingress { v1IngressSpec, ..} ) <$> f v1IngressSpec -{-# INLINE v1IngressSpecL #-} - --- | 'v1IngressStatus' Lens -v1IngressStatusL :: Lens_' V1Ingress (Maybe V1IngressStatus) -v1IngressStatusL f V1Ingress{..} = (\v1IngressStatus -> V1Ingress { v1IngressStatus, ..} ) <$> f v1IngressStatus -{-# INLINE v1IngressStatusL #-} - - - --- * V1IngressBackend - --- | 'v1IngressBackendResource' Lens -v1IngressBackendResourceL :: Lens_' V1IngressBackend (Maybe V1TypedLocalObjectReference) -v1IngressBackendResourceL f V1IngressBackend{..} = (\v1IngressBackendResource -> V1IngressBackend { v1IngressBackendResource, ..} ) <$> f v1IngressBackendResource -{-# INLINE v1IngressBackendResourceL #-} - --- | 'v1IngressBackendService' Lens -v1IngressBackendServiceL :: Lens_' V1IngressBackend (Maybe V1IngressServiceBackend) -v1IngressBackendServiceL f V1IngressBackend{..} = (\v1IngressBackendService -> V1IngressBackend { v1IngressBackendService, ..} ) <$> f v1IngressBackendService -{-# INLINE v1IngressBackendServiceL #-} - - - --- * V1IngressClass - --- | 'v1IngressClassApiVersion' Lens -v1IngressClassApiVersionL :: Lens_' V1IngressClass (Maybe Text) -v1IngressClassApiVersionL f V1IngressClass{..} = (\v1IngressClassApiVersion -> V1IngressClass { v1IngressClassApiVersion, ..} ) <$> f v1IngressClassApiVersion -{-# INLINE v1IngressClassApiVersionL #-} - --- | 'v1IngressClassKind' Lens -v1IngressClassKindL :: Lens_' V1IngressClass (Maybe Text) -v1IngressClassKindL f V1IngressClass{..} = (\v1IngressClassKind -> V1IngressClass { v1IngressClassKind, ..} ) <$> f v1IngressClassKind -{-# INLINE v1IngressClassKindL #-} - --- | 'v1IngressClassMetadata' Lens -v1IngressClassMetadataL :: Lens_' V1IngressClass (Maybe V1ObjectMeta) -v1IngressClassMetadataL f V1IngressClass{..} = (\v1IngressClassMetadata -> V1IngressClass { v1IngressClassMetadata, ..} ) <$> f v1IngressClassMetadata -{-# INLINE v1IngressClassMetadataL #-} - --- | 'v1IngressClassSpec' Lens -v1IngressClassSpecL :: Lens_' V1IngressClass (Maybe V1IngressClassSpec) -v1IngressClassSpecL f V1IngressClass{..} = (\v1IngressClassSpec -> V1IngressClass { v1IngressClassSpec, ..} ) <$> f v1IngressClassSpec -{-# INLINE v1IngressClassSpecL #-} - - - --- * V1IngressClassList - --- | 'v1IngressClassListApiVersion' Lens -v1IngressClassListApiVersionL :: Lens_' V1IngressClassList (Maybe Text) -v1IngressClassListApiVersionL f V1IngressClassList{..} = (\v1IngressClassListApiVersion -> V1IngressClassList { v1IngressClassListApiVersion, ..} ) <$> f v1IngressClassListApiVersion -{-# INLINE v1IngressClassListApiVersionL #-} - --- | 'v1IngressClassListItems' Lens -v1IngressClassListItemsL :: Lens_' V1IngressClassList ([V1IngressClass]) -v1IngressClassListItemsL f V1IngressClassList{..} = (\v1IngressClassListItems -> V1IngressClassList { v1IngressClassListItems, ..} ) <$> f v1IngressClassListItems -{-# INLINE v1IngressClassListItemsL #-} - --- | 'v1IngressClassListKind' Lens -v1IngressClassListKindL :: Lens_' V1IngressClassList (Maybe Text) -v1IngressClassListKindL f V1IngressClassList{..} = (\v1IngressClassListKind -> V1IngressClassList { v1IngressClassListKind, ..} ) <$> f v1IngressClassListKind -{-# INLINE v1IngressClassListKindL #-} - --- | 'v1IngressClassListMetadata' Lens -v1IngressClassListMetadataL :: Lens_' V1IngressClassList (Maybe V1ListMeta) -v1IngressClassListMetadataL f V1IngressClassList{..} = (\v1IngressClassListMetadata -> V1IngressClassList { v1IngressClassListMetadata, ..} ) <$> f v1IngressClassListMetadata -{-# INLINE v1IngressClassListMetadataL #-} - - - --- * V1IngressClassParametersReference - --- | 'v1IngressClassParametersReferenceApiGroup' Lens -v1IngressClassParametersReferenceApiGroupL :: Lens_' V1IngressClassParametersReference (Maybe Text) -v1IngressClassParametersReferenceApiGroupL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceApiGroup -> V1IngressClassParametersReference { v1IngressClassParametersReferenceApiGroup, ..} ) <$> f v1IngressClassParametersReferenceApiGroup -{-# INLINE v1IngressClassParametersReferenceApiGroupL #-} - --- | 'v1IngressClassParametersReferenceKind' Lens -v1IngressClassParametersReferenceKindL :: Lens_' V1IngressClassParametersReference (Text) -v1IngressClassParametersReferenceKindL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceKind -> V1IngressClassParametersReference { v1IngressClassParametersReferenceKind, ..} ) <$> f v1IngressClassParametersReferenceKind -{-# INLINE v1IngressClassParametersReferenceKindL #-} - --- | 'v1IngressClassParametersReferenceName' Lens -v1IngressClassParametersReferenceNameL :: Lens_' V1IngressClassParametersReference (Text) -v1IngressClassParametersReferenceNameL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceName -> V1IngressClassParametersReference { v1IngressClassParametersReferenceName, ..} ) <$> f v1IngressClassParametersReferenceName -{-# INLINE v1IngressClassParametersReferenceNameL #-} - --- | 'v1IngressClassParametersReferenceNamespace' Lens -v1IngressClassParametersReferenceNamespaceL :: Lens_' V1IngressClassParametersReference (Maybe Text) -v1IngressClassParametersReferenceNamespaceL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceNamespace -> V1IngressClassParametersReference { v1IngressClassParametersReferenceNamespace, ..} ) <$> f v1IngressClassParametersReferenceNamespace -{-# INLINE v1IngressClassParametersReferenceNamespaceL #-} - --- | 'v1IngressClassParametersReferenceScope' Lens -v1IngressClassParametersReferenceScopeL :: Lens_' V1IngressClassParametersReference (Maybe Text) -v1IngressClassParametersReferenceScopeL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceScope -> V1IngressClassParametersReference { v1IngressClassParametersReferenceScope, ..} ) <$> f v1IngressClassParametersReferenceScope -{-# INLINE v1IngressClassParametersReferenceScopeL #-} - - - --- * V1IngressClassSpec - --- | 'v1IngressClassSpecController' Lens -v1IngressClassSpecControllerL :: Lens_' V1IngressClassSpec (Maybe Text) -v1IngressClassSpecControllerL f V1IngressClassSpec{..} = (\v1IngressClassSpecController -> V1IngressClassSpec { v1IngressClassSpecController, ..} ) <$> f v1IngressClassSpecController -{-# INLINE v1IngressClassSpecControllerL #-} - --- | 'v1IngressClassSpecParameters' Lens -v1IngressClassSpecParametersL :: Lens_' V1IngressClassSpec (Maybe V1IngressClassParametersReference) -v1IngressClassSpecParametersL f V1IngressClassSpec{..} = (\v1IngressClassSpecParameters -> V1IngressClassSpec { v1IngressClassSpecParameters, ..} ) <$> f v1IngressClassSpecParameters -{-# INLINE v1IngressClassSpecParametersL #-} - - - --- * V1IngressList - --- | 'v1IngressListApiVersion' Lens -v1IngressListApiVersionL :: Lens_' V1IngressList (Maybe Text) -v1IngressListApiVersionL f V1IngressList{..} = (\v1IngressListApiVersion -> V1IngressList { v1IngressListApiVersion, ..} ) <$> f v1IngressListApiVersion -{-# INLINE v1IngressListApiVersionL #-} - --- | 'v1IngressListItems' Lens -v1IngressListItemsL :: Lens_' V1IngressList ([V1Ingress]) -v1IngressListItemsL f V1IngressList{..} = (\v1IngressListItems -> V1IngressList { v1IngressListItems, ..} ) <$> f v1IngressListItems -{-# INLINE v1IngressListItemsL #-} - --- | 'v1IngressListKind' Lens -v1IngressListKindL :: Lens_' V1IngressList (Maybe Text) -v1IngressListKindL f V1IngressList{..} = (\v1IngressListKind -> V1IngressList { v1IngressListKind, ..} ) <$> f v1IngressListKind -{-# INLINE v1IngressListKindL #-} - --- | 'v1IngressListMetadata' Lens -v1IngressListMetadataL :: Lens_' V1IngressList (Maybe V1ListMeta) -v1IngressListMetadataL f V1IngressList{..} = (\v1IngressListMetadata -> V1IngressList { v1IngressListMetadata, ..} ) <$> f v1IngressListMetadata -{-# INLINE v1IngressListMetadataL #-} - - - --- * V1IngressLoadBalancerIngress - --- | 'v1IngressLoadBalancerIngressHostname' Lens -v1IngressLoadBalancerIngressHostnameL :: Lens_' V1IngressLoadBalancerIngress (Maybe Text) -v1IngressLoadBalancerIngressHostnameL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressHostname -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressHostname, ..} ) <$> f v1IngressLoadBalancerIngressHostname -{-# INLINE v1IngressLoadBalancerIngressHostnameL #-} - --- | 'v1IngressLoadBalancerIngressIp' Lens -v1IngressLoadBalancerIngressIpL :: Lens_' V1IngressLoadBalancerIngress (Maybe Text) -v1IngressLoadBalancerIngressIpL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressIp -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressIp, ..} ) <$> f v1IngressLoadBalancerIngressIp -{-# INLINE v1IngressLoadBalancerIngressIpL #-} - --- | 'v1IngressLoadBalancerIngressPorts' Lens -v1IngressLoadBalancerIngressPortsL :: Lens_' V1IngressLoadBalancerIngress (Maybe [V1IngressPortStatus]) -v1IngressLoadBalancerIngressPortsL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressPorts -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressPorts, ..} ) <$> f v1IngressLoadBalancerIngressPorts -{-# INLINE v1IngressLoadBalancerIngressPortsL #-} - - - --- * V1IngressLoadBalancerStatus - --- | 'v1IngressLoadBalancerStatusIngress' Lens -v1IngressLoadBalancerStatusIngressL :: Lens_' V1IngressLoadBalancerStatus (Maybe [V1IngressLoadBalancerIngress]) -v1IngressLoadBalancerStatusIngressL f V1IngressLoadBalancerStatus{..} = (\v1IngressLoadBalancerStatusIngress -> V1IngressLoadBalancerStatus { v1IngressLoadBalancerStatusIngress, ..} ) <$> f v1IngressLoadBalancerStatusIngress -{-# INLINE v1IngressLoadBalancerStatusIngressL #-} - - - --- * V1IngressPortStatus - --- | 'v1IngressPortStatusError' Lens -v1IngressPortStatusErrorL :: Lens_' V1IngressPortStatus (Maybe Text) -v1IngressPortStatusErrorL f V1IngressPortStatus{..} = (\v1IngressPortStatusError -> V1IngressPortStatus { v1IngressPortStatusError, ..} ) <$> f v1IngressPortStatusError -{-# INLINE v1IngressPortStatusErrorL #-} - --- | 'v1IngressPortStatusPort' Lens -v1IngressPortStatusPortL :: Lens_' V1IngressPortStatus (Int) -v1IngressPortStatusPortL f V1IngressPortStatus{..} = (\v1IngressPortStatusPort -> V1IngressPortStatus { v1IngressPortStatusPort, ..} ) <$> f v1IngressPortStatusPort -{-# INLINE v1IngressPortStatusPortL #-} - --- | 'v1IngressPortStatusProtocol' Lens -v1IngressPortStatusProtocolL :: Lens_' V1IngressPortStatus (Text) -v1IngressPortStatusProtocolL f V1IngressPortStatus{..} = (\v1IngressPortStatusProtocol -> V1IngressPortStatus { v1IngressPortStatusProtocol, ..} ) <$> f v1IngressPortStatusProtocol -{-# INLINE v1IngressPortStatusProtocolL #-} - - - --- * V1IngressRule - --- | 'v1IngressRuleHost' Lens -v1IngressRuleHostL :: Lens_' V1IngressRule (Maybe Text) -v1IngressRuleHostL f V1IngressRule{..} = (\v1IngressRuleHost -> V1IngressRule { v1IngressRuleHost, ..} ) <$> f v1IngressRuleHost -{-# INLINE v1IngressRuleHostL #-} - --- | 'v1IngressRuleHttp' Lens -v1IngressRuleHttpL :: Lens_' V1IngressRule (Maybe V1HTTPIngressRuleValue) -v1IngressRuleHttpL f V1IngressRule{..} = (\v1IngressRuleHttp -> V1IngressRule { v1IngressRuleHttp, ..} ) <$> f v1IngressRuleHttp -{-# INLINE v1IngressRuleHttpL #-} - - - --- * V1IngressServiceBackend - --- | 'v1IngressServiceBackendName' Lens -v1IngressServiceBackendNameL :: Lens_' V1IngressServiceBackend (Text) -v1IngressServiceBackendNameL f V1IngressServiceBackend{..} = (\v1IngressServiceBackendName -> V1IngressServiceBackend { v1IngressServiceBackendName, ..} ) <$> f v1IngressServiceBackendName -{-# INLINE v1IngressServiceBackendNameL #-} - --- | 'v1IngressServiceBackendPort' Lens -v1IngressServiceBackendPortL :: Lens_' V1IngressServiceBackend (Maybe V1ServiceBackendPort) -v1IngressServiceBackendPortL f V1IngressServiceBackend{..} = (\v1IngressServiceBackendPort -> V1IngressServiceBackend { v1IngressServiceBackendPort, ..} ) <$> f v1IngressServiceBackendPort -{-# INLINE v1IngressServiceBackendPortL #-} - - - --- * V1IngressSpec - --- | 'v1IngressSpecDefaultBackend' Lens -v1IngressSpecDefaultBackendL :: Lens_' V1IngressSpec (Maybe V1IngressBackend) -v1IngressSpecDefaultBackendL f V1IngressSpec{..} = (\v1IngressSpecDefaultBackend -> V1IngressSpec { v1IngressSpecDefaultBackend, ..} ) <$> f v1IngressSpecDefaultBackend -{-# INLINE v1IngressSpecDefaultBackendL #-} - --- | 'v1IngressSpecIngressClassName' Lens -v1IngressSpecIngressClassNameL :: Lens_' V1IngressSpec (Maybe Text) -v1IngressSpecIngressClassNameL f V1IngressSpec{..} = (\v1IngressSpecIngressClassName -> V1IngressSpec { v1IngressSpecIngressClassName, ..} ) <$> f v1IngressSpecIngressClassName -{-# INLINE v1IngressSpecIngressClassNameL #-} - --- | 'v1IngressSpecRules' Lens -v1IngressSpecRulesL :: Lens_' V1IngressSpec (Maybe [V1IngressRule]) -v1IngressSpecRulesL f V1IngressSpec{..} = (\v1IngressSpecRules -> V1IngressSpec { v1IngressSpecRules, ..} ) <$> f v1IngressSpecRules -{-# INLINE v1IngressSpecRulesL #-} - --- | 'v1IngressSpecTls' Lens -v1IngressSpecTlsL :: Lens_' V1IngressSpec (Maybe [V1IngressTLS]) -v1IngressSpecTlsL f V1IngressSpec{..} = (\v1IngressSpecTls -> V1IngressSpec { v1IngressSpecTls, ..} ) <$> f v1IngressSpecTls -{-# INLINE v1IngressSpecTlsL #-} - - - --- * V1IngressStatus - --- | 'v1IngressStatusLoadBalancer' Lens -v1IngressStatusLoadBalancerL :: Lens_' V1IngressStatus (Maybe V1IngressLoadBalancerStatus) -v1IngressStatusLoadBalancerL f V1IngressStatus{..} = (\v1IngressStatusLoadBalancer -> V1IngressStatus { v1IngressStatusLoadBalancer, ..} ) <$> f v1IngressStatusLoadBalancer -{-# INLINE v1IngressStatusLoadBalancerL #-} - - - --- * V1IngressTLS - --- | 'v1IngressTLSHosts' Lens -v1IngressTLSHostsL :: Lens_' V1IngressTLS (Maybe [Text]) -v1IngressTLSHostsL f V1IngressTLS{..} = (\v1IngressTLSHosts -> V1IngressTLS { v1IngressTLSHosts, ..} ) <$> f v1IngressTLSHosts -{-# INLINE v1IngressTLSHostsL #-} - --- | 'v1IngressTLSSecretName' Lens -v1IngressTLSSecretNameL :: Lens_' V1IngressTLS (Maybe Text) -v1IngressTLSSecretNameL f V1IngressTLS{..} = (\v1IngressTLSSecretName -> V1IngressTLS { v1IngressTLSSecretName, ..} ) <$> f v1IngressTLSSecretName -{-# INLINE v1IngressTLSSecretNameL #-} - - - --- * V1JSONSchemaProps - --- | 'v1JSONSchemaPropsRef' Lens -v1JSONSchemaPropsRefL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsRefL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsRef -> V1JSONSchemaProps { v1JSONSchemaPropsRef, ..} ) <$> f v1JSONSchemaPropsRef -{-# INLINE v1JSONSchemaPropsRefL #-} - --- | 'v1JSONSchemaPropsSchema' Lens -v1JSONSchemaPropsSchemaL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsSchemaL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsSchema -> V1JSONSchemaProps { v1JSONSchemaPropsSchema, ..} ) <$> f v1JSONSchemaPropsSchema -{-# INLINE v1JSONSchemaPropsSchemaL #-} - --- | 'v1JSONSchemaPropsAdditionalItems' Lens -v1JSONSchemaPropsAdditionalItemsL :: Lens_' V1JSONSchemaProps (Maybe A.Value) -v1JSONSchemaPropsAdditionalItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAdditionalItems -> V1JSONSchemaProps { v1JSONSchemaPropsAdditionalItems, ..} ) <$> f v1JSONSchemaPropsAdditionalItems -{-# INLINE v1JSONSchemaPropsAdditionalItemsL #-} - --- | 'v1JSONSchemaPropsAdditionalProperties' Lens -v1JSONSchemaPropsAdditionalPropertiesL :: Lens_' V1JSONSchemaProps (Maybe A.Value) -v1JSONSchemaPropsAdditionalPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAdditionalProperties -> V1JSONSchemaProps { v1JSONSchemaPropsAdditionalProperties, ..} ) <$> f v1JSONSchemaPropsAdditionalProperties -{-# INLINE v1JSONSchemaPropsAdditionalPropertiesL #-} - --- | 'v1JSONSchemaPropsAllOf' Lens -v1JSONSchemaPropsAllOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) -v1JSONSchemaPropsAllOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAllOf -> V1JSONSchemaProps { v1JSONSchemaPropsAllOf, ..} ) <$> f v1JSONSchemaPropsAllOf -{-# INLINE v1JSONSchemaPropsAllOfL #-} - --- | 'v1JSONSchemaPropsAnyOf' Lens -v1JSONSchemaPropsAnyOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) -v1JSONSchemaPropsAnyOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAnyOf -> V1JSONSchemaProps { v1JSONSchemaPropsAnyOf, ..} ) <$> f v1JSONSchemaPropsAnyOf -{-# INLINE v1JSONSchemaPropsAnyOfL #-} - --- | 'v1JSONSchemaPropsDefault' Lens -v1JSONSchemaPropsDefaultL :: Lens_' V1JSONSchemaProps (Maybe A.Value) -v1JSONSchemaPropsDefaultL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDefault -> V1JSONSchemaProps { v1JSONSchemaPropsDefault, ..} ) <$> f v1JSONSchemaPropsDefault -{-# INLINE v1JSONSchemaPropsDefaultL #-} - --- | 'v1JSONSchemaPropsDefinitions' Lens -v1JSONSchemaPropsDefinitionsL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) -v1JSONSchemaPropsDefinitionsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDefinitions -> V1JSONSchemaProps { v1JSONSchemaPropsDefinitions, ..} ) <$> f v1JSONSchemaPropsDefinitions -{-# INLINE v1JSONSchemaPropsDefinitionsL #-} - --- | 'v1JSONSchemaPropsDependencies' Lens -v1JSONSchemaPropsDependenciesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String A.Value)) -v1JSONSchemaPropsDependenciesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDependencies -> V1JSONSchemaProps { v1JSONSchemaPropsDependencies, ..} ) <$> f v1JSONSchemaPropsDependencies -{-# INLINE v1JSONSchemaPropsDependenciesL #-} - --- | 'v1JSONSchemaPropsDescription' Lens -v1JSONSchemaPropsDescriptionL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsDescriptionL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDescription -> V1JSONSchemaProps { v1JSONSchemaPropsDescription, ..} ) <$> f v1JSONSchemaPropsDescription -{-# INLINE v1JSONSchemaPropsDescriptionL #-} - --- | 'v1JSONSchemaPropsEnum' Lens -v1JSONSchemaPropsEnumL :: Lens_' V1JSONSchemaProps (Maybe [A.Value]) -v1JSONSchemaPropsEnumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsEnum -> V1JSONSchemaProps { v1JSONSchemaPropsEnum, ..} ) <$> f v1JSONSchemaPropsEnum -{-# INLINE v1JSONSchemaPropsEnumL #-} - --- | 'v1JSONSchemaPropsExample' Lens -v1JSONSchemaPropsExampleL :: Lens_' V1JSONSchemaProps (Maybe A.Value) -v1JSONSchemaPropsExampleL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExample -> V1JSONSchemaProps { v1JSONSchemaPropsExample, ..} ) <$> f v1JSONSchemaPropsExample -{-# INLINE v1JSONSchemaPropsExampleL #-} - --- | 'v1JSONSchemaPropsExclusiveMaximum' Lens -v1JSONSchemaPropsExclusiveMaximumL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsExclusiveMaximumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExclusiveMaximum -> V1JSONSchemaProps { v1JSONSchemaPropsExclusiveMaximum, ..} ) <$> f v1JSONSchemaPropsExclusiveMaximum -{-# INLINE v1JSONSchemaPropsExclusiveMaximumL #-} - --- | 'v1JSONSchemaPropsExclusiveMinimum' Lens -v1JSONSchemaPropsExclusiveMinimumL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsExclusiveMinimumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExclusiveMinimum -> V1JSONSchemaProps { v1JSONSchemaPropsExclusiveMinimum, ..} ) <$> f v1JSONSchemaPropsExclusiveMinimum -{-# INLINE v1JSONSchemaPropsExclusiveMinimumL #-} - --- | 'v1JSONSchemaPropsExternalDocs' Lens -v1JSONSchemaPropsExternalDocsL :: Lens_' V1JSONSchemaProps (Maybe V1ExternalDocumentation) -v1JSONSchemaPropsExternalDocsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExternalDocs -> V1JSONSchemaProps { v1JSONSchemaPropsExternalDocs, ..} ) <$> f v1JSONSchemaPropsExternalDocs -{-# INLINE v1JSONSchemaPropsExternalDocsL #-} - --- | 'v1JSONSchemaPropsFormat' Lens -v1JSONSchemaPropsFormatL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsFormatL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsFormat -> V1JSONSchemaProps { v1JSONSchemaPropsFormat, ..} ) <$> f v1JSONSchemaPropsFormat -{-# INLINE v1JSONSchemaPropsFormatL #-} - --- | 'v1JSONSchemaPropsId' Lens -v1JSONSchemaPropsIdL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsIdL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsId -> V1JSONSchemaProps { v1JSONSchemaPropsId, ..} ) <$> f v1JSONSchemaPropsId -{-# INLINE v1JSONSchemaPropsIdL #-} - --- | 'v1JSONSchemaPropsItems' Lens -v1JSONSchemaPropsItemsL :: Lens_' V1JSONSchemaProps (Maybe A.Value) -v1JSONSchemaPropsItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsItems -> V1JSONSchemaProps { v1JSONSchemaPropsItems, ..} ) <$> f v1JSONSchemaPropsItems -{-# INLINE v1JSONSchemaPropsItemsL #-} - --- | 'v1JSONSchemaPropsMaxItems' Lens -v1JSONSchemaPropsMaxItemsL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMaxItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxItems -> V1JSONSchemaProps { v1JSONSchemaPropsMaxItems, ..} ) <$> f v1JSONSchemaPropsMaxItems -{-# INLINE v1JSONSchemaPropsMaxItemsL #-} - --- | 'v1JSONSchemaPropsMaxLength' Lens -v1JSONSchemaPropsMaxLengthL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMaxLengthL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxLength -> V1JSONSchemaProps { v1JSONSchemaPropsMaxLength, ..} ) <$> f v1JSONSchemaPropsMaxLength -{-# INLINE v1JSONSchemaPropsMaxLengthL #-} - --- | 'v1JSONSchemaPropsMaxProperties' Lens -v1JSONSchemaPropsMaxPropertiesL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMaxPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxProperties -> V1JSONSchemaProps { v1JSONSchemaPropsMaxProperties, ..} ) <$> f v1JSONSchemaPropsMaxProperties -{-# INLINE v1JSONSchemaPropsMaxPropertiesL #-} - --- | 'v1JSONSchemaPropsMaximum' Lens -v1JSONSchemaPropsMaximumL :: Lens_' V1JSONSchemaProps (Maybe Double) -v1JSONSchemaPropsMaximumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaximum -> V1JSONSchemaProps { v1JSONSchemaPropsMaximum, ..} ) <$> f v1JSONSchemaPropsMaximum -{-# INLINE v1JSONSchemaPropsMaximumL #-} - --- | 'v1JSONSchemaPropsMinItems' Lens -v1JSONSchemaPropsMinItemsL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMinItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinItems -> V1JSONSchemaProps { v1JSONSchemaPropsMinItems, ..} ) <$> f v1JSONSchemaPropsMinItems -{-# INLINE v1JSONSchemaPropsMinItemsL #-} - --- | 'v1JSONSchemaPropsMinLength' Lens -v1JSONSchemaPropsMinLengthL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMinLengthL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinLength -> V1JSONSchemaProps { v1JSONSchemaPropsMinLength, ..} ) <$> f v1JSONSchemaPropsMinLength -{-# INLINE v1JSONSchemaPropsMinLengthL #-} - --- | 'v1JSONSchemaPropsMinProperties' Lens -v1JSONSchemaPropsMinPropertiesL :: Lens_' V1JSONSchemaProps (Maybe Integer) -v1JSONSchemaPropsMinPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinProperties -> V1JSONSchemaProps { v1JSONSchemaPropsMinProperties, ..} ) <$> f v1JSONSchemaPropsMinProperties -{-# INLINE v1JSONSchemaPropsMinPropertiesL #-} - --- | 'v1JSONSchemaPropsMinimum' Lens -v1JSONSchemaPropsMinimumL :: Lens_' V1JSONSchemaProps (Maybe Double) -v1JSONSchemaPropsMinimumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinimum -> V1JSONSchemaProps { v1JSONSchemaPropsMinimum, ..} ) <$> f v1JSONSchemaPropsMinimum -{-# INLINE v1JSONSchemaPropsMinimumL #-} - --- | 'v1JSONSchemaPropsMultipleOf' Lens -v1JSONSchemaPropsMultipleOfL :: Lens_' V1JSONSchemaProps (Maybe Double) -v1JSONSchemaPropsMultipleOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMultipleOf -> V1JSONSchemaProps { v1JSONSchemaPropsMultipleOf, ..} ) <$> f v1JSONSchemaPropsMultipleOf -{-# INLINE v1JSONSchemaPropsMultipleOfL #-} - --- | 'v1JSONSchemaPropsNot' Lens -v1JSONSchemaPropsNotL :: Lens_' V1JSONSchemaProps (Maybe V1JSONSchemaProps) -v1JSONSchemaPropsNotL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsNot -> V1JSONSchemaProps { v1JSONSchemaPropsNot, ..} ) <$> f v1JSONSchemaPropsNot -{-# INLINE v1JSONSchemaPropsNotL #-} - --- | 'v1JSONSchemaPropsNullable' Lens -v1JSONSchemaPropsNullableL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsNullableL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsNullable -> V1JSONSchemaProps { v1JSONSchemaPropsNullable, ..} ) <$> f v1JSONSchemaPropsNullable -{-# INLINE v1JSONSchemaPropsNullableL #-} - --- | 'v1JSONSchemaPropsOneOf' Lens -v1JSONSchemaPropsOneOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) -v1JSONSchemaPropsOneOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsOneOf -> V1JSONSchemaProps { v1JSONSchemaPropsOneOf, ..} ) <$> f v1JSONSchemaPropsOneOf -{-# INLINE v1JSONSchemaPropsOneOfL #-} - --- | 'v1JSONSchemaPropsPattern' Lens -v1JSONSchemaPropsPatternL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsPatternL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsPattern -> V1JSONSchemaProps { v1JSONSchemaPropsPattern, ..} ) <$> f v1JSONSchemaPropsPattern -{-# INLINE v1JSONSchemaPropsPatternL #-} - --- | 'v1JSONSchemaPropsPatternProperties' Lens -v1JSONSchemaPropsPatternPropertiesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) -v1JSONSchemaPropsPatternPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsPatternProperties -> V1JSONSchemaProps { v1JSONSchemaPropsPatternProperties, ..} ) <$> f v1JSONSchemaPropsPatternProperties -{-# INLINE v1JSONSchemaPropsPatternPropertiesL #-} - --- | 'v1JSONSchemaPropsProperties' Lens -v1JSONSchemaPropsPropertiesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) -v1JSONSchemaPropsPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsProperties -> V1JSONSchemaProps { v1JSONSchemaPropsProperties, ..} ) <$> f v1JSONSchemaPropsProperties -{-# INLINE v1JSONSchemaPropsPropertiesL #-} - --- | 'v1JSONSchemaPropsRequired' Lens -v1JSONSchemaPropsRequiredL :: Lens_' V1JSONSchemaProps (Maybe [Text]) -v1JSONSchemaPropsRequiredL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsRequired -> V1JSONSchemaProps { v1JSONSchemaPropsRequired, ..} ) <$> f v1JSONSchemaPropsRequired -{-# INLINE v1JSONSchemaPropsRequiredL #-} - --- | 'v1JSONSchemaPropsTitle' Lens -v1JSONSchemaPropsTitleL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsTitleL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsTitle -> V1JSONSchemaProps { v1JSONSchemaPropsTitle, ..} ) <$> f v1JSONSchemaPropsTitle -{-# INLINE v1JSONSchemaPropsTitleL #-} - --- | 'v1JSONSchemaPropsType' Lens -v1JSONSchemaPropsTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsType -> V1JSONSchemaProps { v1JSONSchemaPropsType, ..} ) <$> f v1JSONSchemaPropsType -{-# INLINE v1JSONSchemaPropsTypeL #-} - --- | 'v1JSONSchemaPropsUniqueItems' Lens -v1JSONSchemaPropsUniqueItemsL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsUniqueItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsUniqueItems -> V1JSONSchemaProps { v1JSONSchemaPropsUniqueItems, ..} ) <$> f v1JSONSchemaPropsUniqueItems -{-# INLINE v1JSONSchemaPropsUniqueItemsL #-} - --- | 'v1JSONSchemaPropsXKubernetesEmbeddedResource' Lens -v1JSONSchemaPropsXKubernetesEmbeddedResourceL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsXKubernetesEmbeddedResourceL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesEmbeddedResource -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesEmbeddedResource, ..} ) <$> f v1JSONSchemaPropsXKubernetesEmbeddedResource -{-# INLINE v1JSONSchemaPropsXKubernetesEmbeddedResourceL #-} - --- | 'v1JSONSchemaPropsXKubernetesIntOrString' Lens -v1JSONSchemaPropsXKubernetesIntOrStringL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsXKubernetesIntOrStringL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesIntOrString -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesIntOrString, ..} ) <$> f v1JSONSchemaPropsXKubernetesIntOrString -{-# INLINE v1JSONSchemaPropsXKubernetesIntOrStringL #-} - --- | 'v1JSONSchemaPropsXKubernetesListMapKeys' Lens -v1JSONSchemaPropsXKubernetesListMapKeysL :: Lens_' V1JSONSchemaProps (Maybe [Text]) -v1JSONSchemaPropsXKubernetesListMapKeysL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesListMapKeys -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesListMapKeys, ..} ) <$> f v1JSONSchemaPropsXKubernetesListMapKeys -{-# INLINE v1JSONSchemaPropsXKubernetesListMapKeysL #-} - --- | 'v1JSONSchemaPropsXKubernetesListType' Lens -v1JSONSchemaPropsXKubernetesListTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsXKubernetesListTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesListType -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesListType, ..} ) <$> f v1JSONSchemaPropsXKubernetesListType -{-# INLINE v1JSONSchemaPropsXKubernetesListTypeL #-} - --- | 'v1JSONSchemaPropsXKubernetesMapType' Lens -v1JSONSchemaPropsXKubernetesMapTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) -v1JSONSchemaPropsXKubernetesMapTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesMapType -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesMapType, ..} ) <$> f v1JSONSchemaPropsXKubernetesMapType -{-# INLINE v1JSONSchemaPropsXKubernetesMapTypeL #-} - --- | 'v1JSONSchemaPropsXKubernetesPreserveUnknownFields' Lens -v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL :: Lens_' V1JSONSchemaProps (Maybe Bool) -v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesPreserveUnknownFields -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesPreserveUnknownFields, ..} ) <$> f v1JSONSchemaPropsXKubernetesPreserveUnknownFields -{-# INLINE v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL #-} - --- | 'v1JSONSchemaPropsXKubernetesValidations' Lens -v1JSONSchemaPropsXKubernetesValidationsL :: Lens_' V1JSONSchemaProps (Maybe [V1ValidationRule]) -v1JSONSchemaPropsXKubernetesValidationsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesValidations -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesValidations, ..} ) <$> f v1JSONSchemaPropsXKubernetesValidations -{-# INLINE v1JSONSchemaPropsXKubernetesValidationsL #-} - - - --- * V1Job - --- | 'v1JobApiVersion' Lens -v1JobApiVersionL :: Lens_' V1Job (Maybe Text) -v1JobApiVersionL f V1Job{..} = (\v1JobApiVersion -> V1Job { v1JobApiVersion, ..} ) <$> f v1JobApiVersion -{-# INLINE v1JobApiVersionL #-} - --- | 'v1JobKind' Lens -v1JobKindL :: Lens_' V1Job (Maybe Text) -v1JobKindL f V1Job{..} = (\v1JobKind -> V1Job { v1JobKind, ..} ) <$> f v1JobKind -{-# INLINE v1JobKindL #-} - --- | 'v1JobMetadata' Lens -v1JobMetadataL :: Lens_' V1Job (Maybe V1ObjectMeta) -v1JobMetadataL f V1Job{..} = (\v1JobMetadata -> V1Job { v1JobMetadata, ..} ) <$> f v1JobMetadata -{-# INLINE v1JobMetadataL #-} - --- | 'v1JobSpec' Lens -v1JobSpecL :: Lens_' V1Job (Maybe V1JobSpec) -v1JobSpecL f V1Job{..} = (\v1JobSpec -> V1Job { v1JobSpec, ..} ) <$> f v1JobSpec -{-# INLINE v1JobSpecL #-} - --- | 'v1JobStatus' Lens -v1JobStatusL :: Lens_' V1Job (Maybe V1JobStatus) -v1JobStatusL f V1Job{..} = (\v1JobStatus -> V1Job { v1JobStatus, ..} ) <$> f v1JobStatus -{-# INLINE v1JobStatusL #-} - - - --- * V1JobCondition - --- | 'v1JobConditionLastProbeTime' Lens -v1JobConditionLastProbeTimeL :: Lens_' V1JobCondition (Maybe DateTime) -v1JobConditionLastProbeTimeL f V1JobCondition{..} = (\v1JobConditionLastProbeTime -> V1JobCondition { v1JobConditionLastProbeTime, ..} ) <$> f v1JobConditionLastProbeTime -{-# INLINE v1JobConditionLastProbeTimeL #-} - --- | 'v1JobConditionLastTransitionTime' Lens -v1JobConditionLastTransitionTimeL :: Lens_' V1JobCondition (Maybe DateTime) -v1JobConditionLastTransitionTimeL f V1JobCondition{..} = (\v1JobConditionLastTransitionTime -> V1JobCondition { v1JobConditionLastTransitionTime, ..} ) <$> f v1JobConditionLastTransitionTime -{-# INLINE v1JobConditionLastTransitionTimeL #-} - --- | 'v1JobConditionMessage' Lens -v1JobConditionMessageL :: Lens_' V1JobCondition (Maybe Text) -v1JobConditionMessageL f V1JobCondition{..} = (\v1JobConditionMessage -> V1JobCondition { v1JobConditionMessage, ..} ) <$> f v1JobConditionMessage -{-# INLINE v1JobConditionMessageL #-} - --- | 'v1JobConditionReason' Lens -v1JobConditionReasonL :: Lens_' V1JobCondition (Maybe Text) -v1JobConditionReasonL f V1JobCondition{..} = (\v1JobConditionReason -> V1JobCondition { v1JobConditionReason, ..} ) <$> f v1JobConditionReason -{-# INLINE v1JobConditionReasonL #-} - --- | 'v1JobConditionStatus' Lens -v1JobConditionStatusL :: Lens_' V1JobCondition (Text) -v1JobConditionStatusL f V1JobCondition{..} = (\v1JobConditionStatus -> V1JobCondition { v1JobConditionStatus, ..} ) <$> f v1JobConditionStatus -{-# INLINE v1JobConditionStatusL #-} - --- | 'v1JobConditionType' Lens -v1JobConditionTypeL :: Lens_' V1JobCondition (Text) -v1JobConditionTypeL f V1JobCondition{..} = (\v1JobConditionType -> V1JobCondition { v1JobConditionType, ..} ) <$> f v1JobConditionType -{-# INLINE v1JobConditionTypeL #-} - - - --- * V1JobList - --- | 'v1JobListApiVersion' Lens -v1JobListApiVersionL :: Lens_' V1JobList (Maybe Text) -v1JobListApiVersionL f V1JobList{..} = (\v1JobListApiVersion -> V1JobList { v1JobListApiVersion, ..} ) <$> f v1JobListApiVersion -{-# INLINE v1JobListApiVersionL #-} - --- | 'v1JobListItems' Lens -v1JobListItemsL :: Lens_' V1JobList ([V1Job]) -v1JobListItemsL f V1JobList{..} = (\v1JobListItems -> V1JobList { v1JobListItems, ..} ) <$> f v1JobListItems -{-# INLINE v1JobListItemsL #-} - --- | 'v1JobListKind' Lens -v1JobListKindL :: Lens_' V1JobList (Maybe Text) -v1JobListKindL f V1JobList{..} = (\v1JobListKind -> V1JobList { v1JobListKind, ..} ) <$> f v1JobListKind -{-# INLINE v1JobListKindL #-} - --- | 'v1JobListMetadata' Lens -v1JobListMetadataL :: Lens_' V1JobList (Maybe V1ListMeta) -v1JobListMetadataL f V1JobList{..} = (\v1JobListMetadata -> V1JobList { v1JobListMetadata, ..} ) <$> f v1JobListMetadata -{-# INLINE v1JobListMetadataL #-} - - - --- * V1JobSpec - --- | 'v1JobSpecActiveDeadlineSeconds' Lens -v1JobSpecActiveDeadlineSecondsL :: Lens_' V1JobSpec (Maybe Integer) -v1JobSpecActiveDeadlineSecondsL f V1JobSpec{..} = (\v1JobSpecActiveDeadlineSeconds -> V1JobSpec { v1JobSpecActiveDeadlineSeconds, ..} ) <$> f v1JobSpecActiveDeadlineSeconds -{-# INLINE v1JobSpecActiveDeadlineSecondsL #-} - --- | 'v1JobSpecBackoffLimit' Lens -v1JobSpecBackoffLimitL :: Lens_' V1JobSpec (Maybe Int) -v1JobSpecBackoffLimitL f V1JobSpec{..} = (\v1JobSpecBackoffLimit -> V1JobSpec { v1JobSpecBackoffLimit, ..} ) <$> f v1JobSpecBackoffLimit -{-# INLINE v1JobSpecBackoffLimitL #-} - --- | 'v1JobSpecCompletionMode' Lens -v1JobSpecCompletionModeL :: Lens_' V1JobSpec (Maybe Text) -v1JobSpecCompletionModeL f V1JobSpec{..} = (\v1JobSpecCompletionMode -> V1JobSpec { v1JobSpecCompletionMode, ..} ) <$> f v1JobSpecCompletionMode -{-# INLINE v1JobSpecCompletionModeL #-} - --- | 'v1JobSpecCompletions' Lens -v1JobSpecCompletionsL :: Lens_' V1JobSpec (Maybe Int) -v1JobSpecCompletionsL f V1JobSpec{..} = (\v1JobSpecCompletions -> V1JobSpec { v1JobSpecCompletions, ..} ) <$> f v1JobSpecCompletions -{-# INLINE v1JobSpecCompletionsL #-} - --- | 'v1JobSpecManualSelector' Lens -v1JobSpecManualSelectorL :: Lens_' V1JobSpec (Maybe Bool) -v1JobSpecManualSelectorL f V1JobSpec{..} = (\v1JobSpecManualSelector -> V1JobSpec { v1JobSpecManualSelector, ..} ) <$> f v1JobSpecManualSelector -{-# INLINE v1JobSpecManualSelectorL #-} - --- | 'v1JobSpecParallelism' Lens -v1JobSpecParallelismL :: Lens_' V1JobSpec (Maybe Int) -v1JobSpecParallelismL f V1JobSpec{..} = (\v1JobSpecParallelism -> V1JobSpec { v1JobSpecParallelism, ..} ) <$> f v1JobSpecParallelism -{-# INLINE v1JobSpecParallelismL #-} - --- | 'v1JobSpecPodFailurePolicy' Lens -v1JobSpecPodFailurePolicyL :: Lens_' V1JobSpec (Maybe V1PodFailurePolicy) -v1JobSpecPodFailurePolicyL f V1JobSpec{..} = (\v1JobSpecPodFailurePolicy -> V1JobSpec { v1JobSpecPodFailurePolicy, ..} ) <$> f v1JobSpecPodFailurePolicy -{-# INLINE v1JobSpecPodFailurePolicyL #-} - --- | 'v1JobSpecSelector' Lens -v1JobSpecSelectorL :: Lens_' V1JobSpec (Maybe V1LabelSelector) -v1JobSpecSelectorL f V1JobSpec{..} = (\v1JobSpecSelector -> V1JobSpec { v1JobSpecSelector, ..} ) <$> f v1JobSpecSelector -{-# INLINE v1JobSpecSelectorL #-} - --- | 'v1JobSpecSuspend' Lens -v1JobSpecSuspendL :: Lens_' V1JobSpec (Maybe Bool) -v1JobSpecSuspendL f V1JobSpec{..} = (\v1JobSpecSuspend -> V1JobSpec { v1JobSpecSuspend, ..} ) <$> f v1JobSpecSuspend -{-# INLINE v1JobSpecSuspendL #-} - --- | 'v1JobSpecTemplate' Lens -v1JobSpecTemplateL :: Lens_' V1JobSpec (V1PodTemplateSpec) -v1JobSpecTemplateL f V1JobSpec{..} = (\v1JobSpecTemplate -> V1JobSpec { v1JobSpecTemplate, ..} ) <$> f v1JobSpecTemplate -{-# INLINE v1JobSpecTemplateL #-} - --- | 'v1JobSpecTtlSecondsAfterFinished' Lens -v1JobSpecTtlSecondsAfterFinishedL :: Lens_' V1JobSpec (Maybe Int) -v1JobSpecTtlSecondsAfterFinishedL f V1JobSpec{..} = (\v1JobSpecTtlSecondsAfterFinished -> V1JobSpec { v1JobSpecTtlSecondsAfterFinished, ..} ) <$> f v1JobSpecTtlSecondsAfterFinished -{-# INLINE v1JobSpecTtlSecondsAfterFinishedL #-} - - - --- * V1JobStatus - --- | 'v1JobStatusActive' Lens -v1JobStatusActiveL :: Lens_' V1JobStatus (Maybe Int) -v1JobStatusActiveL f V1JobStatus{..} = (\v1JobStatusActive -> V1JobStatus { v1JobStatusActive, ..} ) <$> f v1JobStatusActive -{-# INLINE v1JobStatusActiveL #-} - --- | 'v1JobStatusCompletedIndexes' Lens -v1JobStatusCompletedIndexesL :: Lens_' V1JobStatus (Maybe Text) -v1JobStatusCompletedIndexesL f V1JobStatus{..} = (\v1JobStatusCompletedIndexes -> V1JobStatus { v1JobStatusCompletedIndexes, ..} ) <$> f v1JobStatusCompletedIndexes -{-# INLINE v1JobStatusCompletedIndexesL #-} - --- | 'v1JobStatusCompletionTime' Lens -v1JobStatusCompletionTimeL :: Lens_' V1JobStatus (Maybe DateTime) -v1JobStatusCompletionTimeL f V1JobStatus{..} = (\v1JobStatusCompletionTime -> V1JobStatus { v1JobStatusCompletionTime, ..} ) <$> f v1JobStatusCompletionTime -{-# INLINE v1JobStatusCompletionTimeL #-} - --- | 'v1JobStatusConditions' Lens -v1JobStatusConditionsL :: Lens_' V1JobStatus (Maybe [V1JobCondition]) -v1JobStatusConditionsL f V1JobStatus{..} = (\v1JobStatusConditions -> V1JobStatus { v1JobStatusConditions, ..} ) <$> f v1JobStatusConditions -{-# INLINE v1JobStatusConditionsL #-} - --- | 'v1JobStatusFailed' Lens -v1JobStatusFailedL :: Lens_' V1JobStatus (Maybe Int) -v1JobStatusFailedL f V1JobStatus{..} = (\v1JobStatusFailed -> V1JobStatus { v1JobStatusFailed, ..} ) <$> f v1JobStatusFailed -{-# INLINE v1JobStatusFailedL #-} - --- | 'v1JobStatusReady' Lens -v1JobStatusReadyL :: Lens_' V1JobStatus (Maybe Int) -v1JobStatusReadyL f V1JobStatus{..} = (\v1JobStatusReady -> V1JobStatus { v1JobStatusReady, ..} ) <$> f v1JobStatusReady -{-# INLINE v1JobStatusReadyL #-} - --- | 'v1JobStatusStartTime' Lens -v1JobStatusStartTimeL :: Lens_' V1JobStatus (Maybe DateTime) -v1JobStatusStartTimeL f V1JobStatus{..} = (\v1JobStatusStartTime -> V1JobStatus { v1JobStatusStartTime, ..} ) <$> f v1JobStatusStartTime -{-# INLINE v1JobStatusStartTimeL #-} - --- | 'v1JobStatusSucceeded' Lens -v1JobStatusSucceededL :: Lens_' V1JobStatus (Maybe Int) -v1JobStatusSucceededL f V1JobStatus{..} = (\v1JobStatusSucceeded -> V1JobStatus { v1JobStatusSucceeded, ..} ) <$> f v1JobStatusSucceeded -{-# INLINE v1JobStatusSucceededL #-} - --- | 'v1JobStatusUncountedTerminatedPods' Lens -v1JobStatusUncountedTerminatedPodsL :: Lens_' V1JobStatus (Maybe V1UncountedTerminatedPods) -v1JobStatusUncountedTerminatedPodsL f V1JobStatus{..} = (\v1JobStatusUncountedTerminatedPods -> V1JobStatus { v1JobStatusUncountedTerminatedPods, ..} ) <$> f v1JobStatusUncountedTerminatedPods -{-# INLINE v1JobStatusUncountedTerminatedPodsL #-} - - - --- * V1JobTemplateSpec - --- | 'v1JobTemplateSpecMetadata' Lens -v1JobTemplateSpecMetadataL :: Lens_' V1JobTemplateSpec (Maybe V1ObjectMeta) -v1JobTemplateSpecMetadataL f V1JobTemplateSpec{..} = (\v1JobTemplateSpecMetadata -> V1JobTemplateSpec { v1JobTemplateSpecMetadata, ..} ) <$> f v1JobTemplateSpecMetadata -{-# INLINE v1JobTemplateSpecMetadataL #-} - --- | 'v1JobTemplateSpecSpec' Lens -v1JobTemplateSpecSpecL :: Lens_' V1JobTemplateSpec (Maybe V1JobSpec) -v1JobTemplateSpecSpecL f V1JobTemplateSpec{..} = (\v1JobTemplateSpecSpec -> V1JobTemplateSpec { v1JobTemplateSpecSpec, ..} ) <$> f v1JobTemplateSpecSpec -{-# INLINE v1JobTemplateSpecSpecL #-} - - - --- * V1KeyToPath - --- | 'v1KeyToPathKey' Lens -v1KeyToPathKeyL :: Lens_' V1KeyToPath (Text) -v1KeyToPathKeyL f V1KeyToPath{..} = (\v1KeyToPathKey -> V1KeyToPath { v1KeyToPathKey, ..} ) <$> f v1KeyToPathKey -{-# INLINE v1KeyToPathKeyL #-} - --- | 'v1KeyToPathMode' Lens -v1KeyToPathModeL :: Lens_' V1KeyToPath (Maybe Int) -v1KeyToPathModeL f V1KeyToPath{..} = (\v1KeyToPathMode -> V1KeyToPath { v1KeyToPathMode, ..} ) <$> f v1KeyToPathMode -{-# INLINE v1KeyToPathModeL #-} - --- | 'v1KeyToPathPath' Lens -v1KeyToPathPathL :: Lens_' V1KeyToPath (Text) -v1KeyToPathPathL f V1KeyToPath{..} = (\v1KeyToPathPath -> V1KeyToPath { v1KeyToPathPath, ..} ) <$> f v1KeyToPathPath -{-# INLINE v1KeyToPathPathL #-} - - - --- * V1LabelSelector - --- | 'v1LabelSelectorMatchExpressions' Lens -v1LabelSelectorMatchExpressionsL :: Lens_' V1LabelSelector (Maybe [V1LabelSelectorRequirement]) -v1LabelSelectorMatchExpressionsL f V1LabelSelector{..} = (\v1LabelSelectorMatchExpressions -> V1LabelSelector { v1LabelSelectorMatchExpressions, ..} ) <$> f v1LabelSelectorMatchExpressions -{-# INLINE v1LabelSelectorMatchExpressionsL #-} - --- | 'v1LabelSelectorMatchLabels' Lens -v1LabelSelectorMatchLabelsL :: Lens_' V1LabelSelector (Maybe (Map.Map String Text)) -v1LabelSelectorMatchLabelsL f V1LabelSelector{..} = (\v1LabelSelectorMatchLabels -> V1LabelSelector { v1LabelSelectorMatchLabels, ..} ) <$> f v1LabelSelectorMatchLabels -{-# INLINE v1LabelSelectorMatchLabelsL #-} - - - --- * V1LabelSelectorRequirement - --- | 'v1LabelSelectorRequirementKey' Lens -v1LabelSelectorRequirementKeyL :: Lens_' V1LabelSelectorRequirement (Text) -v1LabelSelectorRequirementKeyL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementKey -> V1LabelSelectorRequirement { v1LabelSelectorRequirementKey, ..} ) <$> f v1LabelSelectorRequirementKey -{-# INLINE v1LabelSelectorRequirementKeyL #-} - --- | 'v1LabelSelectorRequirementOperator' Lens -v1LabelSelectorRequirementOperatorL :: Lens_' V1LabelSelectorRequirement (Text) -v1LabelSelectorRequirementOperatorL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementOperator -> V1LabelSelectorRequirement { v1LabelSelectorRequirementOperator, ..} ) <$> f v1LabelSelectorRequirementOperator -{-# INLINE v1LabelSelectorRequirementOperatorL #-} - --- | 'v1LabelSelectorRequirementValues' Lens -v1LabelSelectorRequirementValuesL :: Lens_' V1LabelSelectorRequirement (Maybe [Text]) -v1LabelSelectorRequirementValuesL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementValues -> V1LabelSelectorRequirement { v1LabelSelectorRequirementValues, ..} ) <$> f v1LabelSelectorRequirementValues -{-# INLINE v1LabelSelectorRequirementValuesL #-} - - - --- * V1Lease - --- | 'v1LeaseApiVersion' Lens -v1LeaseApiVersionL :: Lens_' V1Lease (Maybe Text) -v1LeaseApiVersionL f V1Lease{..} = (\v1LeaseApiVersion -> V1Lease { v1LeaseApiVersion, ..} ) <$> f v1LeaseApiVersion -{-# INLINE v1LeaseApiVersionL #-} - --- | 'v1LeaseKind' Lens -v1LeaseKindL :: Lens_' V1Lease (Maybe Text) -v1LeaseKindL f V1Lease{..} = (\v1LeaseKind -> V1Lease { v1LeaseKind, ..} ) <$> f v1LeaseKind -{-# INLINE v1LeaseKindL #-} - --- | 'v1LeaseMetadata' Lens -v1LeaseMetadataL :: Lens_' V1Lease (Maybe V1ObjectMeta) -v1LeaseMetadataL f V1Lease{..} = (\v1LeaseMetadata -> V1Lease { v1LeaseMetadata, ..} ) <$> f v1LeaseMetadata -{-# INLINE v1LeaseMetadataL #-} - --- | 'v1LeaseSpec' Lens -v1LeaseSpecL :: Lens_' V1Lease (Maybe V1LeaseSpec) -v1LeaseSpecL f V1Lease{..} = (\v1LeaseSpec -> V1Lease { v1LeaseSpec, ..} ) <$> f v1LeaseSpec -{-# INLINE v1LeaseSpecL #-} - - - --- * V1LeaseList - --- | 'v1LeaseListApiVersion' Lens -v1LeaseListApiVersionL :: Lens_' V1LeaseList (Maybe Text) -v1LeaseListApiVersionL f V1LeaseList{..} = (\v1LeaseListApiVersion -> V1LeaseList { v1LeaseListApiVersion, ..} ) <$> f v1LeaseListApiVersion -{-# INLINE v1LeaseListApiVersionL #-} - --- | 'v1LeaseListItems' Lens -v1LeaseListItemsL :: Lens_' V1LeaseList ([V1Lease]) -v1LeaseListItemsL f V1LeaseList{..} = (\v1LeaseListItems -> V1LeaseList { v1LeaseListItems, ..} ) <$> f v1LeaseListItems -{-# INLINE v1LeaseListItemsL #-} - --- | 'v1LeaseListKind' Lens -v1LeaseListKindL :: Lens_' V1LeaseList (Maybe Text) -v1LeaseListKindL f V1LeaseList{..} = (\v1LeaseListKind -> V1LeaseList { v1LeaseListKind, ..} ) <$> f v1LeaseListKind -{-# INLINE v1LeaseListKindL #-} - --- | 'v1LeaseListMetadata' Lens -v1LeaseListMetadataL :: Lens_' V1LeaseList (Maybe V1ListMeta) -v1LeaseListMetadataL f V1LeaseList{..} = (\v1LeaseListMetadata -> V1LeaseList { v1LeaseListMetadata, ..} ) <$> f v1LeaseListMetadata -{-# INLINE v1LeaseListMetadataL #-} - - - --- * V1LeaseSpec - --- | 'v1LeaseSpecAcquireTime' Lens -v1LeaseSpecAcquireTimeL :: Lens_' V1LeaseSpec (Maybe DateTime) -v1LeaseSpecAcquireTimeL f V1LeaseSpec{..} = (\v1LeaseSpecAcquireTime -> V1LeaseSpec { v1LeaseSpecAcquireTime, ..} ) <$> f v1LeaseSpecAcquireTime -{-# INLINE v1LeaseSpecAcquireTimeL #-} - --- | 'v1LeaseSpecHolderIdentity' Lens -v1LeaseSpecHolderIdentityL :: Lens_' V1LeaseSpec (Maybe Text) -v1LeaseSpecHolderIdentityL f V1LeaseSpec{..} = (\v1LeaseSpecHolderIdentity -> V1LeaseSpec { v1LeaseSpecHolderIdentity, ..} ) <$> f v1LeaseSpecHolderIdentity -{-# INLINE v1LeaseSpecHolderIdentityL #-} - --- | 'v1LeaseSpecLeaseDurationSeconds' Lens -v1LeaseSpecLeaseDurationSecondsL :: Lens_' V1LeaseSpec (Maybe Int) -v1LeaseSpecLeaseDurationSecondsL f V1LeaseSpec{..} = (\v1LeaseSpecLeaseDurationSeconds -> V1LeaseSpec { v1LeaseSpecLeaseDurationSeconds, ..} ) <$> f v1LeaseSpecLeaseDurationSeconds -{-# INLINE v1LeaseSpecLeaseDurationSecondsL #-} - --- | 'v1LeaseSpecLeaseTransitions' Lens -v1LeaseSpecLeaseTransitionsL :: Lens_' V1LeaseSpec (Maybe Int) -v1LeaseSpecLeaseTransitionsL f V1LeaseSpec{..} = (\v1LeaseSpecLeaseTransitions -> V1LeaseSpec { v1LeaseSpecLeaseTransitions, ..} ) <$> f v1LeaseSpecLeaseTransitions -{-# INLINE v1LeaseSpecLeaseTransitionsL #-} - --- | 'v1LeaseSpecRenewTime' Lens -v1LeaseSpecRenewTimeL :: Lens_' V1LeaseSpec (Maybe DateTime) -v1LeaseSpecRenewTimeL f V1LeaseSpec{..} = (\v1LeaseSpecRenewTime -> V1LeaseSpec { v1LeaseSpecRenewTime, ..} ) <$> f v1LeaseSpecRenewTime -{-# INLINE v1LeaseSpecRenewTimeL #-} - - - --- * V1Lifecycle - --- | 'v1LifecyclePostStart' Lens -v1LifecyclePostStartL :: Lens_' V1Lifecycle (Maybe V1LifecycleHandler) -v1LifecyclePostStartL f V1Lifecycle{..} = (\v1LifecyclePostStart -> V1Lifecycle { v1LifecyclePostStart, ..} ) <$> f v1LifecyclePostStart -{-# INLINE v1LifecyclePostStartL #-} - --- | 'v1LifecyclePreStop' Lens -v1LifecyclePreStopL :: Lens_' V1Lifecycle (Maybe V1LifecycleHandler) -v1LifecyclePreStopL f V1Lifecycle{..} = (\v1LifecyclePreStop -> V1Lifecycle { v1LifecyclePreStop, ..} ) <$> f v1LifecyclePreStop -{-# INLINE v1LifecyclePreStopL #-} - - - --- * V1LifecycleHandler - --- | 'v1LifecycleHandlerExec' Lens -v1LifecycleHandlerExecL :: Lens_' V1LifecycleHandler (Maybe V1ExecAction) -v1LifecycleHandlerExecL f V1LifecycleHandler{..} = (\v1LifecycleHandlerExec -> V1LifecycleHandler { v1LifecycleHandlerExec, ..} ) <$> f v1LifecycleHandlerExec -{-# INLINE v1LifecycleHandlerExecL #-} - --- | 'v1LifecycleHandlerHttpGet' Lens -v1LifecycleHandlerHttpGetL :: Lens_' V1LifecycleHandler (Maybe V1HTTPGetAction) -v1LifecycleHandlerHttpGetL f V1LifecycleHandler{..} = (\v1LifecycleHandlerHttpGet -> V1LifecycleHandler { v1LifecycleHandlerHttpGet, ..} ) <$> f v1LifecycleHandlerHttpGet -{-# INLINE v1LifecycleHandlerHttpGetL #-} - --- | 'v1LifecycleHandlerTcpSocket' Lens -v1LifecycleHandlerTcpSocketL :: Lens_' V1LifecycleHandler (Maybe V1TCPSocketAction) -v1LifecycleHandlerTcpSocketL f V1LifecycleHandler{..} = (\v1LifecycleHandlerTcpSocket -> V1LifecycleHandler { v1LifecycleHandlerTcpSocket, ..} ) <$> f v1LifecycleHandlerTcpSocket -{-# INLINE v1LifecycleHandlerTcpSocketL #-} - - - --- * V1LimitRange - --- | 'v1LimitRangeApiVersion' Lens -v1LimitRangeApiVersionL :: Lens_' V1LimitRange (Maybe Text) -v1LimitRangeApiVersionL f V1LimitRange{..} = (\v1LimitRangeApiVersion -> V1LimitRange { v1LimitRangeApiVersion, ..} ) <$> f v1LimitRangeApiVersion -{-# INLINE v1LimitRangeApiVersionL #-} - --- | 'v1LimitRangeKind' Lens -v1LimitRangeKindL :: Lens_' V1LimitRange (Maybe Text) -v1LimitRangeKindL f V1LimitRange{..} = (\v1LimitRangeKind -> V1LimitRange { v1LimitRangeKind, ..} ) <$> f v1LimitRangeKind -{-# INLINE v1LimitRangeKindL #-} - --- | 'v1LimitRangeMetadata' Lens -v1LimitRangeMetadataL :: Lens_' V1LimitRange (Maybe V1ObjectMeta) -v1LimitRangeMetadataL f V1LimitRange{..} = (\v1LimitRangeMetadata -> V1LimitRange { v1LimitRangeMetadata, ..} ) <$> f v1LimitRangeMetadata -{-# INLINE v1LimitRangeMetadataL #-} - --- | 'v1LimitRangeSpec' Lens -v1LimitRangeSpecL :: Lens_' V1LimitRange (Maybe V1LimitRangeSpec) -v1LimitRangeSpecL f V1LimitRange{..} = (\v1LimitRangeSpec -> V1LimitRange { v1LimitRangeSpec, ..} ) <$> f v1LimitRangeSpec -{-# INLINE v1LimitRangeSpecL #-} - - - --- * V1LimitRangeItem - --- | 'v1LimitRangeItemDefault' Lens -v1LimitRangeItemDefaultL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) -v1LimitRangeItemDefaultL f V1LimitRangeItem{..} = (\v1LimitRangeItemDefault -> V1LimitRangeItem { v1LimitRangeItemDefault, ..} ) <$> f v1LimitRangeItemDefault -{-# INLINE v1LimitRangeItemDefaultL #-} - --- | 'v1LimitRangeItemDefaultRequest' Lens -v1LimitRangeItemDefaultRequestL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) -v1LimitRangeItemDefaultRequestL f V1LimitRangeItem{..} = (\v1LimitRangeItemDefaultRequest -> V1LimitRangeItem { v1LimitRangeItemDefaultRequest, ..} ) <$> f v1LimitRangeItemDefaultRequest -{-# INLINE v1LimitRangeItemDefaultRequestL #-} - --- | 'v1LimitRangeItemMax' Lens -v1LimitRangeItemMaxL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) -v1LimitRangeItemMaxL f V1LimitRangeItem{..} = (\v1LimitRangeItemMax -> V1LimitRangeItem { v1LimitRangeItemMax, ..} ) <$> f v1LimitRangeItemMax -{-# INLINE v1LimitRangeItemMaxL #-} - --- | 'v1LimitRangeItemMaxLimitRequestRatio' Lens -v1LimitRangeItemMaxLimitRequestRatioL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) -v1LimitRangeItemMaxLimitRequestRatioL f V1LimitRangeItem{..} = (\v1LimitRangeItemMaxLimitRequestRatio -> V1LimitRangeItem { v1LimitRangeItemMaxLimitRequestRatio, ..} ) <$> f v1LimitRangeItemMaxLimitRequestRatio -{-# INLINE v1LimitRangeItemMaxLimitRequestRatioL #-} - --- | 'v1LimitRangeItemMin' Lens -v1LimitRangeItemMinL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) -v1LimitRangeItemMinL f V1LimitRangeItem{..} = (\v1LimitRangeItemMin -> V1LimitRangeItem { v1LimitRangeItemMin, ..} ) <$> f v1LimitRangeItemMin -{-# INLINE v1LimitRangeItemMinL #-} - --- | 'v1LimitRangeItemType' Lens -v1LimitRangeItemTypeL :: Lens_' V1LimitRangeItem (Text) -v1LimitRangeItemTypeL f V1LimitRangeItem{..} = (\v1LimitRangeItemType -> V1LimitRangeItem { v1LimitRangeItemType, ..} ) <$> f v1LimitRangeItemType -{-# INLINE v1LimitRangeItemTypeL #-} - - - --- * V1LimitRangeList - --- | 'v1LimitRangeListApiVersion' Lens -v1LimitRangeListApiVersionL :: Lens_' V1LimitRangeList (Maybe Text) -v1LimitRangeListApiVersionL f V1LimitRangeList{..} = (\v1LimitRangeListApiVersion -> V1LimitRangeList { v1LimitRangeListApiVersion, ..} ) <$> f v1LimitRangeListApiVersion -{-# INLINE v1LimitRangeListApiVersionL #-} - --- | 'v1LimitRangeListItems' Lens -v1LimitRangeListItemsL :: Lens_' V1LimitRangeList ([V1LimitRange]) -v1LimitRangeListItemsL f V1LimitRangeList{..} = (\v1LimitRangeListItems -> V1LimitRangeList { v1LimitRangeListItems, ..} ) <$> f v1LimitRangeListItems -{-# INLINE v1LimitRangeListItemsL #-} - --- | 'v1LimitRangeListKind' Lens -v1LimitRangeListKindL :: Lens_' V1LimitRangeList (Maybe Text) -v1LimitRangeListKindL f V1LimitRangeList{..} = (\v1LimitRangeListKind -> V1LimitRangeList { v1LimitRangeListKind, ..} ) <$> f v1LimitRangeListKind -{-# INLINE v1LimitRangeListKindL #-} - --- | 'v1LimitRangeListMetadata' Lens -v1LimitRangeListMetadataL :: Lens_' V1LimitRangeList (Maybe V1ListMeta) -v1LimitRangeListMetadataL f V1LimitRangeList{..} = (\v1LimitRangeListMetadata -> V1LimitRangeList { v1LimitRangeListMetadata, ..} ) <$> f v1LimitRangeListMetadata -{-# INLINE v1LimitRangeListMetadataL #-} - - - --- * V1LimitRangeSpec - --- | 'v1LimitRangeSpecLimits' Lens -v1LimitRangeSpecLimitsL :: Lens_' V1LimitRangeSpec ([V1LimitRangeItem]) -v1LimitRangeSpecLimitsL f V1LimitRangeSpec{..} = (\v1LimitRangeSpecLimits -> V1LimitRangeSpec { v1LimitRangeSpecLimits, ..} ) <$> f v1LimitRangeSpecLimits -{-# INLINE v1LimitRangeSpecLimitsL #-} - - - --- * V1ListMeta - --- | 'v1ListMetaContinue' Lens -v1ListMetaContinueL :: Lens_' V1ListMeta (Maybe Text) -v1ListMetaContinueL f V1ListMeta{..} = (\v1ListMetaContinue -> V1ListMeta { v1ListMetaContinue, ..} ) <$> f v1ListMetaContinue -{-# INLINE v1ListMetaContinueL #-} - --- | 'v1ListMetaRemainingItemCount' Lens -v1ListMetaRemainingItemCountL :: Lens_' V1ListMeta (Maybe Integer) -v1ListMetaRemainingItemCountL f V1ListMeta{..} = (\v1ListMetaRemainingItemCount -> V1ListMeta { v1ListMetaRemainingItemCount, ..} ) <$> f v1ListMetaRemainingItemCount -{-# INLINE v1ListMetaRemainingItemCountL #-} - --- | 'v1ListMetaResourceVersion' Lens -v1ListMetaResourceVersionL :: Lens_' V1ListMeta (Maybe Text) -v1ListMetaResourceVersionL f V1ListMeta{..} = (\v1ListMetaResourceVersion -> V1ListMeta { v1ListMetaResourceVersion, ..} ) <$> f v1ListMetaResourceVersion -{-# INLINE v1ListMetaResourceVersionL #-} - --- | 'v1ListMetaSelfLink' Lens -v1ListMetaSelfLinkL :: Lens_' V1ListMeta (Maybe Text) -v1ListMetaSelfLinkL f V1ListMeta{..} = (\v1ListMetaSelfLink -> V1ListMeta { v1ListMetaSelfLink, ..} ) <$> f v1ListMetaSelfLink -{-# INLINE v1ListMetaSelfLinkL #-} - - - --- * V1LoadBalancerIngress - --- | 'v1LoadBalancerIngressHostname' Lens -v1LoadBalancerIngressHostnameL :: Lens_' V1LoadBalancerIngress (Maybe Text) -v1LoadBalancerIngressHostnameL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressHostname -> V1LoadBalancerIngress { v1LoadBalancerIngressHostname, ..} ) <$> f v1LoadBalancerIngressHostname -{-# INLINE v1LoadBalancerIngressHostnameL #-} - --- | 'v1LoadBalancerIngressIp' Lens -v1LoadBalancerIngressIpL :: Lens_' V1LoadBalancerIngress (Maybe Text) -v1LoadBalancerIngressIpL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressIp -> V1LoadBalancerIngress { v1LoadBalancerIngressIp, ..} ) <$> f v1LoadBalancerIngressIp -{-# INLINE v1LoadBalancerIngressIpL #-} - --- | 'v1LoadBalancerIngressPorts' Lens -v1LoadBalancerIngressPortsL :: Lens_' V1LoadBalancerIngress (Maybe [V1PortStatus]) -v1LoadBalancerIngressPortsL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressPorts -> V1LoadBalancerIngress { v1LoadBalancerIngressPorts, ..} ) <$> f v1LoadBalancerIngressPorts -{-# INLINE v1LoadBalancerIngressPortsL #-} - - - --- * V1LoadBalancerStatus - --- | 'v1LoadBalancerStatusIngress' Lens -v1LoadBalancerStatusIngressL :: Lens_' V1LoadBalancerStatus (Maybe [V1LoadBalancerIngress]) -v1LoadBalancerStatusIngressL f V1LoadBalancerStatus{..} = (\v1LoadBalancerStatusIngress -> V1LoadBalancerStatus { v1LoadBalancerStatusIngress, ..} ) <$> f v1LoadBalancerStatusIngress -{-# INLINE v1LoadBalancerStatusIngressL #-} - - - --- * V1LocalObjectReference - --- | 'v1LocalObjectReferenceName' Lens -v1LocalObjectReferenceNameL :: Lens_' V1LocalObjectReference (Maybe Text) -v1LocalObjectReferenceNameL f V1LocalObjectReference{..} = (\v1LocalObjectReferenceName -> V1LocalObjectReference { v1LocalObjectReferenceName, ..} ) <$> f v1LocalObjectReferenceName -{-# INLINE v1LocalObjectReferenceNameL #-} - - - --- * V1LocalSubjectAccessReview - --- | 'v1LocalSubjectAccessReviewApiVersion' Lens -v1LocalSubjectAccessReviewApiVersionL :: Lens_' V1LocalSubjectAccessReview (Maybe Text) -v1LocalSubjectAccessReviewApiVersionL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewApiVersion -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewApiVersion, ..} ) <$> f v1LocalSubjectAccessReviewApiVersion -{-# INLINE v1LocalSubjectAccessReviewApiVersionL #-} - --- | 'v1LocalSubjectAccessReviewKind' Lens -v1LocalSubjectAccessReviewKindL :: Lens_' V1LocalSubjectAccessReview (Maybe Text) -v1LocalSubjectAccessReviewKindL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewKind -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewKind, ..} ) <$> f v1LocalSubjectAccessReviewKind -{-# INLINE v1LocalSubjectAccessReviewKindL #-} - --- | 'v1LocalSubjectAccessReviewMetadata' Lens -v1LocalSubjectAccessReviewMetadataL :: Lens_' V1LocalSubjectAccessReview (Maybe V1ObjectMeta) -v1LocalSubjectAccessReviewMetadataL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewMetadata -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewMetadata, ..} ) <$> f v1LocalSubjectAccessReviewMetadata -{-# INLINE v1LocalSubjectAccessReviewMetadataL #-} - --- | 'v1LocalSubjectAccessReviewSpec' Lens -v1LocalSubjectAccessReviewSpecL :: Lens_' V1LocalSubjectAccessReview (V1SubjectAccessReviewSpec) -v1LocalSubjectAccessReviewSpecL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewSpec -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewSpec, ..} ) <$> f v1LocalSubjectAccessReviewSpec -{-# INLINE v1LocalSubjectAccessReviewSpecL #-} - --- | 'v1LocalSubjectAccessReviewStatus' Lens -v1LocalSubjectAccessReviewStatusL :: Lens_' V1LocalSubjectAccessReview (Maybe V1SubjectAccessReviewStatus) -v1LocalSubjectAccessReviewStatusL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewStatus -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewStatus, ..} ) <$> f v1LocalSubjectAccessReviewStatus -{-# INLINE v1LocalSubjectAccessReviewStatusL #-} - - - --- * V1LocalVolumeSource - --- | 'v1LocalVolumeSourceFsType' Lens -v1LocalVolumeSourceFsTypeL :: Lens_' V1LocalVolumeSource (Maybe Text) -v1LocalVolumeSourceFsTypeL f V1LocalVolumeSource{..} = (\v1LocalVolumeSourceFsType -> V1LocalVolumeSource { v1LocalVolumeSourceFsType, ..} ) <$> f v1LocalVolumeSourceFsType -{-# INLINE v1LocalVolumeSourceFsTypeL #-} - --- | 'v1LocalVolumeSourcePath' Lens -v1LocalVolumeSourcePathL :: Lens_' V1LocalVolumeSource (Text) -v1LocalVolumeSourcePathL f V1LocalVolumeSource{..} = (\v1LocalVolumeSourcePath -> V1LocalVolumeSource { v1LocalVolumeSourcePath, ..} ) <$> f v1LocalVolumeSourcePath -{-# INLINE v1LocalVolumeSourcePathL #-} - - - --- * V1ManagedFieldsEntry - --- | 'v1ManagedFieldsEntryApiVersion' Lens -v1ManagedFieldsEntryApiVersionL :: Lens_' V1ManagedFieldsEntry (Maybe Text) -v1ManagedFieldsEntryApiVersionL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryApiVersion -> V1ManagedFieldsEntry { v1ManagedFieldsEntryApiVersion, ..} ) <$> f v1ManagedFieldsEntryApiVersion -{-# INLINE v1ManagedFieldsEntryApiVersionL #-} - --- | 'v1ManagedFieldsEntryFieldsType' Lens -v1ManagedFieldsEntryFieldsTypeL :: Lens_' V1ManagedFieldsEntry (Maybe Text) -v1ManagedFieldsEntryFieldsTypeL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryFieldsType -> V1ManagedFieldsEntry { v1ManagedFieldsEntryFieldsType, ..} ) <$> f v1ManagedFieldsEntryFieldsType -{-# INLINE v1ManagedFieldsEntryFieldsTypeL #-} - --- | 'v1ManagedFieldsEntryFieldsV1' Lens -v1ManagedFieldsEntryFieldsV1L :: Lens_' V1ManagedFieldsEntry (Maybe A.Value) -v1ManagedFieldsEntryFieldsV1L f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryFieldsV1 -> V1ManagedFieldsEntry { v1ManagedFieldsEntryFieldsV1, ..} ) <$> f v1ManagedFieldsEntryFieldsV1 -{-# INLINE v1ManagedFieldsEntryFieldsV1L #-} - --- | 'v1ManagedFieldsEntryManager' Lens -v1ManagedFieldsEntryManagerL :: Lens_' V1ManagedFieldsEntry (Maybe Text) -v1ManagedFieldsEntryManagerL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryManager -> V1ManagedFieldsEntry { v1ManagedFieldsEntryManager, ..} ) <$> f v1ManagedFieldsEntryManager -{-# INLINE v1ManagedFieldsEntryManagerL #-} - --- | 'v1ManagedFieldsEntryOperation' Lens -v1ManagedFieldsEntryOperationL :: Lens_' V1ManagedFieldsEntry (Maybe Text) -v1ManagedFieldsEntryOperationL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryOperation -> V1ManagedFieldsEntry { v1ManagedFieldsEntryOperation, ..} ) <$> f v1ManagedFieldsEntryOperation -{-# INLINE v1ManagedFieldsEntryOperationL #-} - --- | 'v1ManagedFieldsEntrySubresource' Lens -v1ManagedFieldsEntrySubresourceL :: Lens_' V1ManagedFieldsEntry (Maybe Text) -v1ManagedFieldsEntrySubresourceL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntrySubresource -> V1ManagedFieldsEntry { v1ManagedFieldsEntrySubresource, ..} ) <$> f v1ManagedFieldsEntrySubresource -{-# INLINE v1ManagedFieldsEntrySubresourceL #-} - --- | 'v1ManagedFieldsEntryTime' Lens -v1ManagedFieldsEntryTimeL :: Lens_' V1ManagedFieldsEntry (Maybe DateTime) -v1ManagedFieldsEntryTimeL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryTime -> V1ManagedFieldsEntry { v1ManagedFieldsEntryTime, ..} ) <$> f v1ManagedFieldsEntryTime -{-# INLINE v1ManagedFieldsEntryTimeL #-} - - - --- * V1MutatingWebhook - --- | 'v1MutatingWebhookAdmissionReviewVersions' Lens -v1MutatingWebhookAdmissionReviewVersionsL :: Lens_' V1MutatingWebhook ([Text]) -v1MutatingWebhookAdmissionReviewVersionsL f V1MutatingWebhook{..} = (\v1MutatingWebhookAdmissionReviewVersions -> V1MutatingWebhook { v1MutatingWebhookAdmissionReviewVersions, ..} ) <$> f v1MutatingWebhookAdmissionReviewVersions -{-# INLINE v1MutatingWebhookAdmissionReviewVersionsL #-} - --- | 'v1MutatingWebhookClientConfig' Lens -v1MutatingWebhookClientConfigL :: Lens_' V1MutatingWebhook (AdmissionregistrationV1WebhookClientConfig) -v1MutatingWebhookClientConfigL f V1MutatingWebhook{..} = (\v1MutatingWebhookClientConfig -> V1MutatingWebhook { v1MutatingWebhookClientConfig, ..} ) <$> f v1MutatingWebhookClientConfig -{-# INLINE v1MutatingWebhookClientConfigL #-} - --- | 'v1MutatingWebhookFailurePolicy' Lens -v1MutatingWebhookFailurePolicyL :: Lens_' V1MutatingWebhook (Maybe Text) -v1MutatingWebhookFailurePolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookFailurePolicy -> V1MutatingWebhook { v1MutatingWebhookFailurePolicy, ..} ) <$> f v1MutatingWebhookFailurePolicy -{-# INLINE v1MutatingWebhookFailurePolicyL #-} - --- | 'v1MutatingWebhookMatchPolicy' Lens -v1MutatingWebhookMatchPolicyL :: Lens_' V1MutatingWebhook (Maybe Text) -v1MutatingWebhookMatchPolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookMatchPolicy -> V1MutatingWebhook { v1MutatingWebhookMatchPolicy, ..} ) <$> f v1MutatingWebhookMatchPolicy -{-# INLINE v1MutatingWebhookMatchPolicyL #-} - --- | 'v1MutatingWebhookName' Lens -v1MutatingWebhookNameL :: Lens_' V1MutatingWebhook (Text) -v1MutatingWebhookNameL f V1MutatingWebhook{..} = (\v1MutatingWebhookName -> V1MutatingWebhook { v1MutatingWebhookName, ..} ) <$> f v1MutatingWebhookName -{-# INLINE v1MutatingWebhookNameL #-} - --- | 'v1MutatingWebhookNamespaceSelector' Lens -v1MutatingWebhookNamespaceSelectorL :: Lens_' V1MutatingWebhook (Maybe V1LabelSelector) -v1MutatingWebhookNamespaceSelectorL f V1MutatingWebhook{..} = (\v1MutatingWebhookNamespaceSelector -> V1MutatingWebhook { v1MutatingWebhookNamespaceSelector, ..} ) <$> f v1MutatingWebhookNamespaceSelector -{-# INLINE v1MutatingWebhookNamespaceSelectorL #-} - --- | 'v1MutatingWebhookObjectSelector' Lens -v1MutatingWebhookObjectSelectorL :: Lens_' V1MutatingWebhook (Maybe V1LabelSelector) -v1MutatingWebhookObjectSelectorL f V1MutatingWebhook{..} = (\v1MutatingWebhookObjectSelector -> V1MutatingWebhook { v1MutatingWebhookObjectSelector, ..} ) <$> f v1MutatingWebhookObjectSelector -{-# INLINE v1MutatingWebhookObjectSelectorL #-} - --- | 'v1MutatingWebhookReinvocationPolicy' Lens -v1MutatingWebhookReinvocationPolicyL :: Lens_' V1MutatingWebhook (Maybe Text) -v1MutatingWebhookReinvocationPolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookReinvocationPolicy -> V1MutatingWebhook { v1MutatingWebhookReinvocationPolicy, ..} ) <$> f v1MutatingWebhookReinvocationPolicy -{-# INLINE v1MutatingWebhookReinvocationPolicyL #-} - --- | 'v1MutatingWebhookRules' Lens -v1MutatingWebhookRulesL :: Lens_' V1MutatingWebhook (Maybe [V1RuleWithOperations]) -v1MutatingWebhookRulesL f V1MutatingWebhook{..} = (\v1MutatingWebhookRules -> V1MutatingWebhook { v1MutatingWebhookRules, ..} ) <$> f v1MutatingWebhookRules -{-# INLINE v1MutatingWebhookRulesL #-} - --- | 'v1MutatingWebhookSideEffects' Lens -v1MutatingWebhookSideEffectsL :: Lens_' V1MutatingWebhook (Text) -v1MutatingWebhookSideEffectsL f V1MutatingWebhook{..} = (\v1MutatingWebhookSideEffects -> V1MutatingWebhook { v1MutatingWebhookSideEffects, ..} ) <$> f v1MutatingWebhookSideEffects -{-# INLINE v1MutatingWebhookSideEffectsL #-} - --- | 'v1MutatingWebhookTimeoutSeconds' Lens -v1MutatingWebhookTimeoutSecondsL :: Lens_' V1MutatingWebhook (Maybe Int) -v1MutatingWebhookTimeoutSecondsL f V1MutatingWebhook{..} = (\v1MutatingWebhookTimeoutSeconds -> V1MutatingWebhook { v1MutatingWebhookTimeoutSeconds, ..} ) <$> f v1MutatingWebhookTimeoutSeconds -{-# INLINE v1MutatingWebhookTimeoutSecondsL #-} - - - --- * V1MutatingWebhookConfiguration - --- | 'v1MutatingWebhookConfigurationApiVersion' Lens -v1MutatingWebhookConfigurationApiVersionL :: Lens_' V1MutatingWebhookConfiguration (Maybe Text) -v1MutatingWebhookConfigurationApiVersionL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationApiVersion -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationApiVersion, ..} ) <$> f v1MutatingWebhookConfigurationApiVersion -{-# INLINE v1MutatingWebhookConfigurationApiVersionL #-} - --- | 'v1MutatingWebhookConfigurationKind' Lens -v1MutatingWebhookConfigurationKindL :: Lens_' V1MutatingWebhookConfiguration (Maybe Text) -v1MutatingWebhookConfigurationKindL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationKind -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationKind, ..} ) <$> f v1MutatingWebhookConfigurationKind -{-# INLINE v1MutatingWebhookConfigurationKindL #-} - --- | 'v1MutatingWebhookConfigurationMetadata' Lens -v1MutatingWebhookConfigurationMetadataL :: Lens_' V1MutatingWebhookConfiguration (Maybe V1ObjectMeta) -v1MutatingWebhookConfigurationMetadataL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationMetadata -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationMetadata, ..} ) <$> f v1MutatingWebhookConfigurationMetadata -{-# INLINE v1MutatingWebhookConfigurationMetadataL #-} - --- | 'v1MutatingWebhookConfigurationWebhooks' Lens -v1MutatingWebhookConfigurationWebhooksL :: Lens_' V1MutatingWebhookConfiguration (Maybe [V1MutatingWebhook]) -v1MutatingWebhookConfigurationWebhooksL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationWebhooks -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationWebhooks, ..} ) <$> f v1MutatingWebhookConfigurationWebhooks -{-# INLINE v1MutatingWebhookConfigurationWebhooksL #-} - - - --- * V1MutatingWebhookConfigurationList - --- | 'v1MutatingWebhookConfigurationListApiVersion' Lens -v1MutatingWebhookConfigurationListApiVersionL :: Lens_' V1MutatingWebhookConfigurationList (Maybe Text) -v1MutatingWebhookConfigurationListApiVersionL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListApiVersion -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListApiVersion, ..} ) <$> f v1MutatingWebhookConfigurationListApiVersion -{-# INLINE v1MutatingWebhookConfigurationListApiVersionL #-} - --- | 'v1MutatingWebhookConfigurationListItems' Lens -v1MutatingWebhookConfigurationListItemsL :: Lens_' V1MutatingWebhookConfigurationList ([V1MutatingWebhookConfiguration]) -v1MutatingWebhookConfigurationListItemsL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListItems -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListItems, ..} ) <$> f v1MutatingWebhookConfigurationListItems -{-# INLINE v1MutatingWebhookConfigurationListItemsL #-} - --- | 'v1MutatingWebhookConfigurationListKind' Lens -v1MutatingWebhookConfigurationListKindL :: Lens_' V1MutatingWebhookConfigurationList (Maybe Text) -v1MutatingWebhookConfigurationListKindL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListKind -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListKind, ..} ) <$> f v1MutatingWebhookConfigurationListKind -{-# INLINE v1MutatingWebhookConfigurationListKindL #-} - --- | 'v1MutatingWebhookConfigurationListMetadata' Lens -v1MutatingWebhookConfigurationListMetadataL :: Lens_' V1MutatingWebhookConfigurationList (Maybe V1ListMeta) -v1MutatingWebhookConfigurationListMetadataL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListMetadata -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListMetadata, ..} ) <$> f v1MutatingWebhookConfigurationListMetadata -{-# INLINE v1MutatingWebhookConfigurationListMetadataL #-} - - - --- * V1NFSVolumeSource - --- | 'v1NFSVolumeSourcePath' Lens -v1NFSVolumeSourcePathL :: Lens_' V1NFSVolumeSource (Text) -v1NFSVolumeSourcePathL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourcePath -> V1NFSVolumeSource { v1NFSVolumeSourcePath, ..} ) <$> f v1NFSVolumeSourcePath -{-# INLINE v1NFSVolumeSourcePathL #-} - --- | 'v1NFSVolumeSourceReadOnly' Lens -v1NFSVolumeSourceReadOnlyL :: Lens_' V1NFSVolumeSource (Maybe Bool) -v1NFSVolumeSourceReadOnlyL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourceReadOnly -> V1NFSVolumeSource { v1NFSVolumeSourceReadOnly, ..} ) <$> f v1NFSVolumeSourceReadOnly -{-# INLINE v1NFSVolumeSourceReadOnlyL #-} - --- | 'v1NFSVolumeSourceServer' Lens -v1NFSVolumeSourceServerL :: Lens_' V1NFSVolumeSource (Text) -v1NFSVolumeSourceServerL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourceServer -> V1NFSVolumeSource { v1NFSVolumeSourceServer, ..} ) <$> f v1NFSVolumeSourceServer -{-# INLINE v1NFSVolumeSourceServerL #-} - - - --- * V1Namespace - --- | 'v1NamespaceApiVersion' Lens -v1NamespaceApiVersionL :: Lens_' V1Namespace (Maybe Text) -v1NamespaceApiVersionL f V1Namespace{..} = (\v1NamespaceApiVersion -> V1Namespace { v1NamespaceApiVersion, ..} ) <$> f v1NamespaceApiVersion -{-# INLINE v1NamespaceApiVersionL #-} - --- | 'v1NamespaceKind' Lens -v1NamespaceKindL :: Lens_' V1Namespace (Maybe Text) -v1NamespaceKindL f V1Namespace{..} = (\v1NamespaceKind -> V1Namespace { v1NamespaceKind, ..} ) <$> f v1NamespaceKind -{-# INLINE v1NamespaceKindL #-} - --- | 'v1NamespaceMetadata' Lens -v1NamespaceMetadataL :: Lens_' V1Namespace (Maybe V1ObjectMeta) -v1NamespaceMetadataL f V1Namespace{..} = (\v1NamespaceMetadata -> V1Namespace { v1NamespaceMetadata, ..} ) <$> f v1NamespaceMetadata -{-# INLINE v1NamespaceMetadataL #-} - --- | 'v1NamespaceSpec' Lens -v1NamespaceSpecL :: Lens_' V1Namespace (Maybe V1NamespaceSpec) -v1NamespaceSpecL f V1Namespace{..} = (\v1NamespaceSpec -> V1Namespace { v1NamespaceSpec, ..} ) <$> f v1NamespaceSpec -{-# INLINE v1NamespaceSpecL #-} - --- | 'v1NamespaceStatus' Lens -v1NamespaceStatusL :: Lens_' V1Namespace (Maybe V1NamespaceStatus) -v1NamespaceStatusL f V1Namespace{..} = (\v1NamespaceStatus -> V1Namespace { v1NamespaceStatus, ..} ) <$> f v1NamespaceStatus -{-# INLINE v1NamespaceStatusL #-} - - - --- * V1NamespaceCondition - --- | 'v1NamespaceConditionLastTransitionTime' Lens -v1NamespaceConditionLastTransitionTimeL :: Lens_' V1NamespaceCondition (Maybe DateTime) -v1NamespaceConditionLastTransitionTimeL f V1NamespaceCondition{..} = (\v1NamespaceConditionLastTransitionTime -> V1NamespaceCondition { v1NamespaceConditionLastTransitionTime, ..} ) <$> f v1NamespaceConditionLastTransitionTime -{-# INLINE v1NamespaceConditionLastTransitionTimeL #-} - --- | 'v1NamespaceConditionMessage' Lens -v1NamespaceConditionMessageL :: Lens_' V1NamespaceCondition (Maybe Text) -v1NamespaceConditionMessageL f V1NamespaceCondition{..} = (\v1NamespaceConditionMessage -> V1NamespaceCondition { v1NamespaceConditionMessage, ..} ) <$> f v1NamespaceConditionMessage -{-# INLINE v1NamespaceConditionMessageL #-} - --- | 'v1NamespaceConditionReason' Lens -v1NamespaceConditionReasonL :: Lens_' V1NamespaceCondition (Maybe Text) -v1NamespaceConditionReasonL f V1NamespaceCondition{..} = (\v1NamespaceConditionReason -> V1NamespaceCondition { v1NamespaceConditionReason, ..} ) <$> f v1NamespaceConditionReason -{-# INLINE v1NamespaceConditionReasonL #-} - --- | 'v1NamespaceConditionStatus' Lens -v1NamespaceConditionStatusL :: Lens_' V1NamespaceCondition (Text) -v1NamespaceConditionStatusL f V1NamespaceCondition{..} = (\v1NamespaceConditionStatus -> V1NamespaceCondition { v1NamespaceConditionStatus, ..} ) <$> f v1NamespaceConditionStatus -{-# INLINE v1NamespaceConditionStatusL #-} - --- | 'v1NamespaceConditionType' Lens -v1NamespaceConditionTypeL :: Lens_' V1NamespaceCondition (Text) -v1NamespaceConditionTypeL f V1NamespaceCondition{..} = (\v1NamespaceConditionType -> V1NamespaceCondition { v1NamespaceConditionType, ..} ) <$> f v1NamespaceConditionType -{-# INLINE v1NamespaceConditionTypeL #-} - - - --- * V1NamespaceList - --- | 'v1NamespaceListApiVersion' Lens -v1NamespaceListApiVersionL :: Lens_' V1NamespaceList (Maybe Text) -v1NamespaceListApiVersionL f V1NamespaceList{..} = (\v1NamespaceListApiVersion -> V1NamespaceList { v1NamespaceListApiVersion, ..} ) <$> f v1NamespaceListApiVersion -{-# INLINE v1NamespaceListApiVersionL #-} - --- | 'v1NamespaceListItems' Lens -v1NamespaceListItemsL :: Lens_' V1NamespaceList ([V1Namespace]) -v1NamespaceListItemsL f V1NamespaceList{..} = (\v1NamespaceListItems -> V1NamespaceList { v1NamespaceListItems, ..} ) <$> f v1NamespaceListItems -{-# INLINE v1NamespaceListItemsL #-} - --- | 'v1NamespaceListKind' Lens -v1NamespaceListKindL :: Lens_' V1NamespaceList (Maybe Text) -v1NamespaceListKindL f V1NamespaceList{..} = (\v1NamespaceListKind -> V1NamespaceList { v1NamespaceListKind, ..} ) <$> f v1NamespaceListKind -{-# INLINE v1NamespaceListKindL #-} - --- | 'v1NamespaceListMetadata' Lens -v1NamespaceListMetadataL :: Lens_' V1NamespaceList (Maybe V1ListMeta) -v1NamespaceListMetadataL f V1NamespaceList{..} = (\v1NamespaceListMetadata -> V1NamespaceList { v1NamespaceListMetadata, ..} ) <$> f v1NamespaceListMetadata -{-# INLINE v1NamespaceListMetadataL #-} - - - --- * V1NamespaceSpec - --- | 'v1NamespaceSpecFinalizers' Lens -v1NamespaceSpecFinalizersL :: Lens_' V1NamespaceSpec (Maybe [Text]) -v1NamespaceSpecFinalizersL f V1NamespaceSpec{..} = (\v1NamespaceSpecFinalizers -> V1NamespaceSpec { v1NamespaceSpecFinalizers, ..} ) <$> f v1NamespaceSpecFinalizers -{-# INLINE v1NamespaceSpecFinalizersL #-} - - - --- * V1NamespaceStatus - --- | 'v1NamespaceStatusConditions' Lens -v1NamespaceStatusConditionsL :: Lens_' V1NamespaceStatus (Maybe [V1NamespaceCondition]) -v1NamespaceStatusConditionsL f V1NamespaceStatus{..} = (\v1NamespaceStatusConditions -> V1NamespaceStatus { v1NamespaceStatusConditions, ..} ) <$> f v1NamespaceStatusConditions -{-# INLINE v1NamespaceStatusConditionsL #-} - --- | 'v1NamespaceStatusPhase' Lens -v1NamespaceStatusPhaseL :: Lens_' V1NamespaceStatus (Maybe Text) -v1NamespaceStatusPhaseL f V1NamespaceStatus{..} = (\v1NamespaceStatusPhase -> V1NamespaceStatus { v1NamespaceStatusPhase, ..} ) <$> f v1NamespaceStatusPhase -{-# INLINE v1NamespaceStatusPhaseL #-} - - - --- * V1NetworkPolicy - --- | 'v1NetworkPolicyApiVersion' Lens -v1NetworkPolicyApiVersionL :: Lens_' V1NetworkPolicy (Maybe Text) -v1NetworkPolicyApiVersionL f V1NetworkPolicy{..} = (\v1NetworkPolicyApiVersion -> V1NetworkPolicy { v1NetworkPolicyApiVersion, ..} ) <$> f v1NetworkPolicyApiVersion -{-# INLINE v1NetworkPolicyApiVersionL #-} - --- | 'v1NetworkPolicyKind' Lens -v1NetworkPolicyKindL :: Lens_' V1NetworkPolicy (Maybe Text) -v1NetworkPolicyKindL f V1NetworkPolicy{..} = (\v1NetworkPolicyKind -> V1NetworkPolicy { v1NetworkPolicyKind, ..} ) <$> f v1NetworkPolicyKind -{-# INLINE v1NetworkPolicyKindL #-} - --- | 'v1NetworkPolicyMetadata' Lens -v1NetworkPolicyMetadataL :: Lens_' V1NetworkPolicy (Maybe V1ObjectMeta) -v1NetworkPolicyMetadataL f V1NetworkPolicy{..} = (\v1NetworkPolicyMetadata -> V1NetworkPolicy { v1NetworkPolicyMetadata, ..} ) <$> f v1NetworkPolicyMetadata -{-# INLINE v1NetworkPolicyMetadataL #-} - --- | 'v1NetworkPolicySpec' Lens -v1NetworkPolicySpecL :: Lens_' V1NetworkPolicy (Maybe V1NetworkPolicySpec) -v1NetworkPolicySpecL f V1NetworkPolicy{..} = (\v1NetworkPolicySpec -> V1NetworkPolicy { v1NetworkPolicySpec, ..} ) <$> f v1NetworkPolicySpec -{-# INLINE v1NetworkPolicySpecL #-} - --- | 'v1NetworkPolicyStatus' Lens -v1NetworkPolicyStatusL :: Lens_' V1NetworkPolicy (Maybe V1NetworkPolicyStatus) -v1NetworkPolicyStatusL f V1NetworkPolicy{..} = (\v1NetworkPolicyStatus -> V1NetworkPolicy { v1NetworkPolicyStatus, ..} ) <$> f v1NetworkPolicyStatus -{-# INLINE v1NetworkPolicyStatusL #-} - - - --- * V1NetworkPolicyEgressRule - --- | 'v1NetworkPolicyEgressRulePorts' Lens -v1NetworkPolicyEgressRulePortsL :: Lens_' V1NetworkPolicyEgressRule (Maybe [V1NetworkPolicyPort]) -v1NetworkPolicyEgressRulePortsL f V1NetworkPolicyEgressRule{..} = (\v1NetworkPolicyEgressRulePorts -> V1NetworkPolicyEgressRule { v1NetworkPolicyEgressRulePorts, ..} ) <$> f v1NetworkPolicyEgressRulePorts -{-# INLINE v1NetworkPolicyEgressRulePortsL #-} - --- | 'v1NetworkPolicyEgressRuleTo' Lens -v1NetworkPolicyEgressRuleToL :: Lens_' V1NetworkPolicyEgressRule (Maybe [V1NetworkPolicyPeer]) -v1NetworkPolicyEgressRuleToL f V1NetworkPolicyEgressRule{..} = (\v1NetworkPolicyEgressRuleTo -> V1NetworkPolicyEgressRule { v1NetworkPolicyEgressRuleTo, ..} ) <$> f v1NetworkPolicyEgressRuleTo -{-# INLINE v1NetworkPolicyEgressRuleToL #-} - - - --- * V1NetworkPolicyIngressRule - --- | 'v1NetworkPolicyIngressRuleFrom' Lens -v1NetworkPolicyIngressRuleFromL :: Lens_' V1NetworkPolicyIngressRule (Maybe [V1NetworkPolicyPeer]) -v1NetworkPolicyIngressRuleFromL f V1NetworkPolicyIngressRule{..} = (\v1NetworkPolicyIngressRuleFrom -> V1NetworkPolicyIngressRule { v1NetworkPolicyIngressRuleFrom, ..} ) <$> f v1NetworkPolicyIngressRuleFrom -{-# INLINE v1NetworkPolicyIngressRuleFromL #-} - --- | 'v1NetworkPolicyIngressRulePorts' Lens -v1NetworkPolicyIngressRulePortsL :: Lens_' V1NetworkPolicyIngressRule (Maybe [V1NetworkPolicyPort]) -v1NetworkPolicyIngressRulePortsL f V1NetworkPolicyIngressRule{..} = (\v1NetworkPolicyIngressRulePorts -> V1NetworkPolicyIngressRule { v1NetworkPolicyIngressRulePorts, ..} ) <$> f v1NetworkPolicyIngressRulePorts -{-# INLINE v1NetworkPolicyIngressRulePortsL #-} - - - --- * V1NetworkPolicyList - --- | 'v1NetworkPolicyListApiVersion' Lens -v1NetworkPolicyListApiVersionL :: Lens_' V1NetworkPolicyList (Maybe Text) -v1NetworkPolicyListApiVersionL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListApiVersion -> V1NetworkPolicyList { v1NetworkPolicyListApiVersion, ..} ) <$> f v1NetworkPolicyListApiVersion -{-# INLINE v1NetworkPolicyListApiVersionL #-} - --- | 'v1NetworkPolicyListItems' Lens -v1NetworkPolicyListItemsL :: Lens_' V1NetworkPolicyList ([V1NetworkPolicy]) -v1NetworkPolicyListItemsL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListItems -> V1NetworkPolicyList { v1NetworkPolicyListItems, ..} ) <$> f v1NetworkPolicyListItems -{-# INLINE v1NetworkPolicyListItemsL #-} - --- | 'v1NetworkPolicyListKind' Lens -v1NetworkPolicyListKindL :: Lens_' V1NetworkPolicyList (Maybe Text) -v1NetworkPolicyListKindL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListKind -> V1NetworkPolicyList { v1NetworkPolicyListKind, ..} ) <$> f v1NetworkPolicyListKind -{-# INLINE v1NetworkPolicyListKindL #-} - --- | 'v1NetworkPolicyListMetadata' Lens -v1NetworkPolicyListMetadataL :: Lens_' V1NetworkPolicyList (Maybe V1ListMeta) -v1NetworkPolicyListMetadataL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListMetadata -> V1NetworkPolicyList { v1NetworkPolicyListMetadata, ..} ) <$> f v1NetworkPolicyListMetadata -{-# INLINE v1NetworkPolicyListMetadataL #-} - - - --- * V1NetworkPolicyPeer - --- | 'v1NetworkPolicyPeerIpBlock' Lens -v1NetworkPolicyPeerIpBlockL :: Lens_' V1NetworkPolicyPeer (Maybe V1IPBlock) -v1NetworkPolicyPeerIpBlockL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerIpBlock -> V1NetworkPolicyPeer { v1NetworkPolicyPeerIpBlock, ..} ) <$> f v1NetworkPolicyPeerIpBlock -{-# INLINE v1NetworkPolicyPeerIpBlockL #-} - --- | 'v1NetworkPolicyPeerNamespaceSelector' Lens -v1NetworkPolicyPeerNamespaceSelectorL :: Lens_' V1NetworkPolicyPeer (Maybe V1LabelSelector) -v1NetworkPolicyPeerNamespaceSelectorL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerNamespaceSelector -> V1NetworkPolicyPeer { v1NetworkPolicyPeerNamespaceSelector, ..} ) <$> f v1NetworkPolicyPeerNamespaceSelector -{-# INLINE v1NetworkPolicyPeerNamespaceSelectorL #-} - --- | 'v1NetworkPolicyPeerPodSelector' Lens -v1NetworkPolicyPeerPodSelectorL :: Lens_' V1NetworkPolicyPeer (Maybe V1LabelSelector) -v1NetworkPolicyPeerPodSelectorL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerPodSelector -> V1NetworkPolicyPeer { v1NetworkPolicyPeerPodSelector, ..} ) <$> f v1NetworkPolicyPeerPodSelector -{-# INLINE v1NetworkPolicyPeerPodSelectorL #-} - - - --- * V1NetworkPolicyPort - --- | 'v1NetworkPolicyPortEndPort' Lens -v1NetworkPolicyPortEndPortL :: Lens_' V1NetworkPolicyPort (Maybe Int) -v1NetworkPolicyPortEndPortL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortEndPort -> V1NetworkPolicyPort { v1NetworkPolicyPortEndPort, ..} ) <$> f v1NetworkPolicyPortEndPort -{-# INLINE v1NetworkPolicyPortEndPortL #-} - --- | 'v1NetworkPolicyPortPort' Lens -v1NetworkPolicyPortPortL :: Lens_' V1NetworkPolicyPort (Maybe IntOrString) -v1NetworkPolicyPortPortL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortPort -> V1NetworkPolicyPort { v1NetworkPolicyPortPort, ..} ) <$> f v1NetworkPolicyPortPort -{-# INLINE v1NetworkPolicyPortPortL #-} - --- | 'v1NetworkPolicyPortProtocol' Lens -v1NetworkPolicyPortProtocolL :: Lens_' V1NetworkPolicyPort (Maybe Text) -v1NetworkPolicyPortProtocolL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortProtocol -> V1NetworkPolicyPort { v1NetworkPolicyPortProtocol, ..} ) <$> f v1NetworkPolicyPortProtocol -{-# INLINE v1NetworkPolicyPortProtocolL #-} - - - --- * V1NetworkPolicySpec - --- | 'v1NetworkPolicySpecEgress' Lens -v1NetworkPolicySpecEgressL :: Lens_' V1NetworkPolicySpec (Maybe [V1NetworkPolicyEgressRule]) -v1NetworkPolicySpecEgressL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecEgress -> V1NetworkPolicySpec { v1NetworkPolicySpecEgress, ..} ) <$> f v1NetworkPolicySpecEgress -{-# INLINE v1NetworkPolicySpecEgressL #-} - --- | 'v1NetworkPolicySpecIngress' Lens -v1NetworkPolicySpecIngressL :: Lens_' V1NetworkPolicySpec (Maybe [V1NetworkPolicyIngressRule]) -v1NetworkPolicySpecIngressL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecIngress -> V1NetworkPolicySpec { v1NetworkPolicySpecIngress, ..} ) <$> f v1NetworkPolicySpecIngress -{-# INLINE v1NetworkPolicySpecIngressL #-} - --- | 'v1NetworkPolicySpecPodSelector' Lens -v1NetworkPolicySpecPodSelectorL :: Lens_' V1NetworkPolicySpec (V1LabelSelector) -v1NetworkPolicySpecPodSelectorL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecPodSelector -> V1NetworkPolicySpec { v1NetworkPolicySpecPodSelector, ..} ) <$> f v1NetworkPolicySpecPodSelector -{-# INLINE v1NetworkPolicySpecPodSelectorL #-} - --- | 'v1NetworkPolicySpecPolicyTypes' Lens -v1NetworkPolicySpecPolicyTypesL :: Lens_' V1NetworkPolicySpec (Maybe [Text]) -v1NetworkPolicySpecPolicyTypesL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecPolicyTypes -> V1NetworkPolicySpec { v1NetworkPolicySpecPolicyTypes, ..} ) <$> f v1NetworkPolicySpecPolicyTypes -{-# INLINE v1NetworkPolicySpecPolicyTypesL #-} - - - --- * V1NetworkPolicyStatus - --- | 'v1NetworkPolicyStatusConditions' Lens -v1NetworkPolicyStatusConditionsL :: Lens_' V1NetworkPolicyStatus (Maybe [V1Condition]) -v1NetworkPolicyStatusConditionsL f V1NetworkPolicyStatus{..} = (\v1NetworkPolicyStatusConditions -> V1NetworkPolicyStatus { v1NetworkPolicyStatusConditions, ..} ) <$> f v1NetworkPolicyStatusConditions -{-# INLINE v1NetworkPolicyStatusConditionsL #-} - - - --- * V1Node - --- | 'v1NodeApiVersion' Lens -v1NodeApiVersionL :: Lens_' V1Node (Maybe Text) -v1NodeApiVersionL f V1Node{..} = (\v1NodeApiVersion -> V1Node { v1NodeApiVersion, ..} ) <$> f v1NodeApiVersion -{-# INLINE v1NodeApiVersionL #-} - --- | 'v1NodeKind' Lens -v1NodeKindL :: Lens_' V1Node (Maybe Text) -v1NodeKindL f V1Node{..} = (\v1NodeKind -> V1Node { v1NodeKind, ..} ) <$> f v1NodeKind -{-# INLINE v1NodeKindL #-} - --- | 'v1NodeMetadata' Lens -v1NodeMetadataL :: Lens_' V1Node (Maybe V1ObjectMeta) -v1NodeMetadataL f V1Node{..} = (\v1NodeMetadata -> V1Node { v1NodeMetadata, ..} ) <$> f v1NodeMetadata -{-# INLINE v1NodeMetadataL #-} - --- | 'v1NodeSpec' Lens -v1NodeSpecL :: Lens_' V1Node (Maybe V1NodeSpec) -v1NodeSpecL f V1Node{..} = (\v1NodeSpec -> V1Node { v1NodeSpec, ..} ) <$> f v1NodeSpec -{-# INLINE v1NodeSpecL #-} - --- | 'v1NodeStatus' Lens -v1NodeStatusL :: Lens_' V1Node (Maybe V1NodeStatus) -v1NodeStatusL f V1Node{..} = (\v1NodeStatus -> V1Node { v1NodeStatus, ..} ) <$> f v1NodeStatus -{-# INLINE v1NodeStatusL #-} - - - --- * V1NodeAddress - --- | 'v1NodeAddressAddress' Lens -v1NodeAddressAddressL :: Lens_' V1NodeAddress (Text) -v1NodeAddressAddressL f V1NodeAddress{..} = (\v1NodeAddressAddress -> V1NodeAddress { v1NodeAddressAddress, ..} ) <$> f v1NodeAddressAddress -{-# INLINE v1NodeAddressAddressL #-} - --- | 'v1NodeAddressType' Lens -v1NodeAddressTypeL :: Lens_' V1NodeAddress (Text) -v1NodeAddressTypeL f V1NodeAddress{..} = (\v1NodeAddressType -> V1NodeAddress { v1NodeAddressType, ..} ) <$> f v1NodeAddressType -{-# INLINE v1NodeAddressTypeL #-} - - - --- * V1NodeAffinity - --- | 'v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens -v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1NodeAffinity (Maybe [V1PreferredSchedulingTerm]) -v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1NodeAffinity{..} = (\v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1NodeAffinity { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} - --- | 'v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens -v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1NodeAffinity (Maybe V1NodeSelector) -v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1NodeAffinity{..} = (\v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1NodeAffinity { v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} - - - --- * V1NodeCondition - --- | 'v1NodeConditionLastHeartbeatTime' Lens -v1NodeConditionLastHeartbeatTimeL :: Lens_' V1NodeCondition (Maybe DateTime) -v1NodeConditionLastHeartbeatTimeL f V1NodeCondition{..} = (\v1NodeConditionLastHeartbeatTime -> V1NodeCondition { v1NodeConditionLastHeartbeatTime, ..} ) <$> f v1NodeConditionLastHeartbeatTime -{-# INLINE v1NodeConditionLastHeartbeatTimeL #-} - --- | 'v1NodeConditionLastTransitionTime' Lens -v1NodeConditionLastTransitionTimeL :: Lens_' V1NodeCondition (Maybe DateTime) -v1NodeConditionLastTransitionTimeL f V1NodeCondition{..} = (\v1NodeConditionLastTransitionTime -> V1NodeCondition { v1NodeConditionLastTransitionTime, ..} ) <$> f v1NodeConditionLastTransitionTime -{-# INLINE v1NodeConditionLastTransitionTimeL #-} - --- | 'v1NodeConditionMessage' Lens -v1NodeConditionMessageL :: Lens_' V1NodeCondition (Maybe Text) -v1NodeConditionMessageL f V1NodeCondition{..} = (\v1NodeConditionMessage -> V1NodeCondition { v1NodeConditionMessage, ..} ) <$> f v1NodeConditionMessage -{-# INLINE v1NodeConditionMessageL #-} - --- | 'v1NodeConditionReason' Lens -v1NodeConditionReasonL :: Lens_' V1NodeCondition (Maybe Text) -v1NodeConditionReasonL f V1NodeCondition{..} = (\v1NodeConditionReason -> V1NodeCondition { v1NodeConditionReason, ..} ) <$> f v1NodeConditionReason -{-# INLINE v1NodeConditionReasonL #-} - --- | 'v1NodeConditionStatus' Lens -v1NodeConditionStatusL :: Lens_' V1NodeCondition (Text) -v1NodeConditionStatusL f V1NodeCondition{..} = (\v1NodeConditionStatus -> V1NodeCondition { v1NodeConditionStatus, ..} ) <$> f v1NodeConditionStatus -{-# INLINE v1NodeConditionStatusL #-} - --- | 'v1NodeConditionType' Lens -v1NodeConditionTypeL :: Lens_' V1NodeCondition (Text) -v1NodeConditionTypeL f V1NodeCondition{..} = (\v1NodeConditionType -> V1NodeCondition { v1NodeConditionType, ..} ) <$> f v1NodeConditionType -{-# INLINE v1NodeConditionTypeL #-} - - - --- * V1NodeConfigSource - --- | 'v1NodeConfigSourceConfigMap' Lens -v1NodeConfigSourceConfigMapL :: Lens_' V1NodeConfigSource (Maybe V1ConfigMapNodeConfigSource) -v1NodeConfigSourceConfigMapL f V1NodeConfigSource{..} = (\v1NodeConfigSourceConfigMap -> V1NodeConfigSource { v1NodeConfigSourceConfigMap, ..} ) <$> f v1NodeConfigSourceConfigMap -{-# INLINE v1NodeConfigSourceConfigMapL #-} - - - --- * V1NodeConfigStatus - --- | 'v1NodeConfigStatusActive' Lens -v1NodeConfigStatusActiveL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) -v1NodeConfigStatusActiveL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusActive -> V1NodeConfigStatus { v1NodeConfigStatusActive, ..} ) <$> f v1NodeConfigStatusActive -{-# INLINE v1NodeConfigStatusActiveL #-} - --- | 'v1NodeConfigStatusAssigned' Lens -v1NodeConfigStatusAssignedL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) -v1NodeConfigStatusAssignedL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusAssigned -> V1NodeConfigStatus { v1NodeConfigStatusAssigned, ..} ) <$> f v1NodeConfigStatusAssigned -{-# INLINE v1NodeConfigStatusAssignedL #-} - --- | 'v1NodeConfigStatusError' Lens -v1NodeConfigStatusErrorL :: Lens_' V1NodeConfigStatus (Maybe Text) -v1NodeConfigStatusErrorL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusError -> V1NodeConfigStatus { v1NodeConfigStatusError, ..} ) <$> f v1NodeConfigStatusError -{-# INLINE v1NodeConfigStatusErrorL #-} - --- | 'v1NodeConfigStatusLastKnownGood' Lens -v1NodeConfigStatusLastKnownGoodL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) -v1NodeConfigStatusLastKnownGoodL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusLastKnownGood -> V1NodeConfigStatus { v1NodeConfigStatusLastKnownGood, ..} ) <$> f v1NodeConfigStatusLastKnownGood -{-# INLINE v1NodeConfigStatusLastKnownGoodL #-} - - - --- * V1NodeDaemonEndpoints - --- | 'v1NodeDaemonEndpointsKubeletEndpoint' Lens -v1NodeDaemonEndpointsKubeletEndpointL :: Lens_' V1NodeDaemonEndpoints (Maybe V1DaemonEndpoint) -v1NodeDaemonEndpointsKubeletEndpointL f V1NodeDaemonEndpoints{..} = (\v1NodeDaemonEndpointsKubeletEndpoint -> V1NodeDaemonEndpoints { v1NodeDaemonEndpointsKubeletEndpoint, ..} ) <$> f v1NodeDaemonEndpointsKubeletEndpoint -{-# INLINE v1NodeDaemonEndpointsKubeletEndpointL #-} - - - --- * V1NodeList - --- | 'v1NodeListApiVersion' Lens -v1NodeListApiVersionL :: Lens_' V1NodeList (Maybe Text) -v1NodeListApiVersionL f V1NodeList{..} = (\v1NodeListApiVersion -> V1NodeList { v1NodeListApiVersion, ..} ) <$> f v1NodeListApiVersion -{-# INLINE v1NodeListApiVersionL #-} - --- | 'v1NodeListItems' Lens -v1NodeListItemsL :: Lens_' V1NodeList ([V1Node]) -v1NodeListItemsL f V1NodeList{..} = (\v1NodeListItems -> V1NodeList { v1NodeListItems, ..} ) <$> f v1NodeListItems -{-# INLINE v1NodeListItemsL #-} - --- | 'v1NodeListKind' Lens -v1NodeListKindL :: Lens_' V1NodeList (Maybe Text) -v1NodeListKindL f V1NodeList{..} = (\v1NodeListKind -> V1NodeList { v1NodeListKind, ..} ) <$> f v1NodeListKind -{-# INLINE v1NodeListKindL #-} - --- | 'v1NodeListMetadata' Lens -v1NodeListMetadataL :: Lens_' V1NodeList (Maybe V1ListMeta) -v1NodeListMetadataL f V1NodeList{..} = (\v1NodeListMetadata -> V1NodeList { v1NodeListMetadata, ..} ) <$> f v1NodeListMetadata -{-# INLINE v1NodeListMetadataL #-} - - - --- * V1NodeSelector - --- | 'v1NodeSelectorNodeSelectorTerms' Lens -v1NodeSelectorNodeSelectorTermsL :: Lens_' V1NodeSelector ([V1NodeSelectorTerm]) -v1NodeSelectorNodeSelectorTermsL f V1NodeSelector{..} = (\v1NodeSelectorNodeSelectorTerms -> V1NodeSelector { v1NodeSelectorNodeSelectorTerms, ..} ) <$> f v1NodeSelectorNodeSelectorTerms -{-# INLINE v1NodeSelectorNodeSelectorTermsL #-} - - - --- * V1NodeSelectorRequirement - --- | 'v1NodeSelectorRequirementKey' Lens -v1NodeSelectorRequirementKeyL :: Lens_' V1NodeSelectorRequirement (Text) -v1NodeSelectorRequirementKeyL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementKey -> V1NodeSelectorRequirement { v1NodeSelectorRequirementKey, ..} ) <$> f v1NodeSelectorRequirementKey -{-# INLINE v1NodeSelectorRequirementKeyL #-} - --- | 'v1NodeSelectorRequirementOperator' Lens -v1NodeSelectorRequirementOperatorL :: Lens_' V1NodeSelectorRequirement (Text) -v1NodeSelectorRequirementOperatorL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementOperator -> V1NodeSelectorRequirement { v1NodeSelectorRequirementOperator, ..} ) <$> f v1NodeSelectorRequirementOperator -{-# INLINE v1NodeSelectorRequirementOperatorL #-} - --- | 'v1NodeSelectorRequirementValues' Lens -v1NodeSelectorRequirementValuesL :: Lens_' V1NodeSelectorRequirement (Maybe [Text]) -v1NodeSelectorRequirementValuesL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementValues -> V1NodeSelectorRequirement { v1NodeSelectorRequirementValues, ..} ) <$> f v1NodeSelectorRequirementValues -{-# INLINE v1NodeSelectorRequirementValuesL #-} - - - --- * V1NodeSelectorTerm - --- | 'v1NodeSelectorTermMatchExpressions' Lens -v1NodeSelectorTermMatchExpressionsL :: Lens_' V1NodeSelectorTerm (Maybe [V1NodeSelectorRequirement]) -v1NodeSelectorTermMatchExpressionsL f V1NodeSelectorTerm{..} = (\v1NodeSelectorTermMatchExpressions -> V1NodeSelectorTerm { v1NodeSelectorTermMatchExpressions, ..} ) <$> f v1NodeSelectorTermMatchExpressions -{-# INLINE v1NodeSelectorTermMatchExpressionsL #-} - --- | 'v1NodeSelectorTermMatchFields' Lens -v1NodeSelectorTermMatchFieldsL :: Lens_' V1NodeSelectorTerm (Maybe [V1NodeSelectorRequirement]) -v1NodeSelectorTermMatchFieldsL f V1NodeSelectorTerm{..} = (\v1NodeSelectorTermMatchFields -> V1NodeSelectorTerm { v1NodeSelectorTermMatchFields, ..} ) <$> f v1NodeSelectorTermMatchFields -{-# INLINE v1NodeSelectorTermMatchFieldsL #-} - - - --- * V1NodeSpec - --- | 'v1NodeSpecConfigSource' Lens -v1NodeSpecConfigSourceL :: Lens_' V1NodeSpec (Maybe V1NodeConfigSource) -v1NodeSpecConfigSourceL f V1NodeSpec{..} = (\v1NodeSpecConfigSource -> V1NodeSpec { v1NodeSpecConfigSource, ..} ) <$> f v1NodeSpecConfigSource -{-# INLINE v1NodeSpecConfigSourceL #-} - --- | 'v1NodeSpecExternalId' Lens -v1NodeSpecExternalIdL :: Lens_' V1NodeSpec (Maybe Text) -v1NodeSpecExternalIdL f V1NodeSpec{..} = (\v1NodeSpecExternalId -> V1NodeSpec { v1NodeSpecExternalId, ..} ) <$> f v1NodeSpecExternalId -{-# INLINE v1NodeSpecExternalIdL #-} - --- | 'v1NodeSpecPodCidr' Lens -v1NodeSpecPodCidrL :: Lens_' V1NodeSpec (Maybe Text) -v1NodeSpecPodCidrL f V1NodeSpec{..} = (\v1NodeSpecPodCidr -> V1NodeSpec { v1NodeSpecPodCidr, ..} ) <$> f v1NodeSpecPodCidr -{-# INLINE v1NodeSpecPodCidrL #-} - --- | 'v1NodeSpecPodCidrs' Lens -v1NodeSpecPodCidrsL :: Lens_' V1NodeSpec (Maybe [Text]) -v1NodeSpecPodCidrsL f V1NodeSpec{..} = (\v1NodeSpecPodCidrs -> V1NodeSpec { v1NodeSpecPodCidrs, ..} ) <$> f v1NodeSpecPodCidrs -{-# INLINE v1NodeSpecPodCidrsL #-} - --- | 'v1NodeSpecProviderId' Lens -v1NodeSpecProviderIdL :: Lens_' V1NodeSpec (Maybe Text) -v1NodeSpecProviderIdL f V1NodeSpec{..} = (\v1NodeSpecProviderId -> V1NodeSpec { v1NodeSpecProviderId, ..} ) <$> f v1NodeSpecProviderId -{-# INLINE v1NodeSpecProviderIdL #-} - --- | 'v1NodeSpecTaints' Lens -v1NodeSpecTaintsL :: Lens_' V1NodeSpec (Maybe [V1Taint]) -v1NodeSpecTaintsL f V1NodeSpec{..} = (\v1NodeSpecTaints -> V1NodeSpec { v1NodeSpecTaints, ..} ) <$> f v1NodeSpecTaints -{-# INLINE v1NodeSpecTaintsL #-} - --- | 'v1NodeSpecUnschedulable' Lens -v1NodeSpecUnschedulableL :: Lens_' V1NodeSpec (Maybe Bool) -v1NodeSpecUnschedulableL f V1NodeSpec{..} = (\v1NodeSpecUnschedulable -> V1NodeSpec { v1NodeSpecUnschedulable, ..} ) <$> f v1NodeSpecUnschedulable -{-# INLINE v1NodeSpecUnschedulableL #-} - - - --- * V1NodeStatus - --- | 'v1NodeStatusAddresses' Lens -v1NodeStatusAddressesL :: Lens_' V1NodeStatus (Maybe [V1NodeAddress]) -v1NodeStatusAddressesL f V1NodeStatus{..} = (\v1NodeStatusAddresses -> V1NodeStatus { v1NodeStatusAddresses, ..} ) <$> f v1NodeStatusAddresses -{-# INLINE v1NodeStatusAddressesL #-} - --- | 'v1NodeStatusAllocatable' Lens -v1NodeStatusAllocatableL :: Lens_' V1NodeStatus (Maybe (Map.Map String Quantity)) -v1NodeStatusAllocatableL f V1NodeStatus{..} = (\v1NodeStatusAllocatable -> V1NodeStatus { v1NodeStatusAllocatable, ..} ) <$> f v1NodeStatusAllocatable -{-# INLINE v1NodeStatusAllocatableL #-} - --- | 'v1NodeStatusCapacity' Lens -v1NodeStatusCapacityL :: Lens_' V1NodeStatus (Maybe (Map.Map String Quantity)) -v1NodeStatusCapacityL f V1NodeStatus{..} = (\v1NodeStatusCapacity -> V1NodeStatus { v1NodeStatusCapacity, ..} ) <$> f v1NodeStatusCapacity -{-# INLINE v1NodeStatusCapacityL #-} - --- | 'v1NodeStatusConditions' Lens -v1NodeStatusConditionsL :: Lens_' V1NodeStatus (Maybe [V1NodeCondition]) -v1NodeStatusConditionsL f V1NodeStatus{..} = (\v1NodeStatusConditions -> V1NodeStatus { v1NodeStatusConditions, ..} ) <$> f v1NodeStatusConditions -{-# INLINE v1NodeStatusConditionsL #-} - --- | 'v1NodeStatusConfig' Lens -v1NodeStatusConfigL :: Lens_' V1NodeStatus (Maybe V1NodeConfigStatus) -v1NodeStatusConfigL f V1NodeStatus{..} = (\v1NodeStatusConfig -> V1NodeStatus { v1NodeStatusConfig, ..} ) <$> f v1NodeStatusConfig -{-# INLINE v1NodeStatusConfigL #-} - --- | 'v1NodeStatusDaemonEndpoints' Lens -v1NodeStatusDaemonEndpointsL :: Lens_' V1NodeStatus (Maybe V1NodeDaemonEndpoints) -v1NodeStatusDaemonEndpointsL f V1NodeStatus{..} = (\v1NodeStatusDaemonEndpoints -> V1NodeStatus { v1NodeStatusDaemonEndpoints, ..} ) <$> f v1NodeStatusDaemonEndpoints -{-# INLINE v1NodeStatusDaemonEndpointsL #-} - --- | 'v1NodeStatusImages' Lens -v1NodeStatusImagesL :: Lens_' V1NodeStatus (Maybe [V1ContainerImage]) -v1NodeStatusImagesL f V1NodeStatus{..} = (\v1NodeStatusImages -> V1NodeStatus { v1NodeStatusImages, ..} ) <$> f v1NodeStatusImages -{-# INLINE v1NodeStatusImagesL #-} - --- | 'v1NodeStatusNodeInfo' Lens -v1NodeStatusNodeInfoL :: Lens_' V1NodeStatus (Maybe V1NodeSystemInfo) -v1NodeStatusNodeInfoL f V1NodeStatus{..} = (\v1NodeStatusNodeInfo -> V1NodeStatus { v1NodeStatusNodeInfo, ..} ) <$> f v1NodeStatusNodeInfo -{-# INLINE v1NodeStatusNodeInfoL #-} - --- | 'v1NodeStatusPhase' Lens -v1NodeStatusPhaseL :: Lens_' V1NodeStatus (Maybe Text) -v1NodeStatusPhaseL f V1NodeStatus{..} = (\v1NodeStatusPhase -> V1NodeStatus { v1NodeStatusPhase, ..} ) <$> f v1NodeStatusPhase -{-# INLINE v1NodeStatusPhaseL #-} - --- | 'v1NodeStatusVolumesAttached' Lens -v1NodeStatusVolumesAttachedL :: Lens_' V1NodeStatus (Maybe [V1AttachedVolume]) -v1NodeStatusVolumesAttachedL f V1NodeStatus{..} = (\v1NodeStatusVolumesAttached -> V1NodeStatus { v1NodeStatusVolumesAttached, ..} ) <$> f v1NodeStatusVolumesAttached -{-# INLINE v1NodeStatusVolumesAttachedL #-} - --- | 'v1NodeStatusVolumesInUse' Lens -v1NodeStatusVolumesInUseL :: Lens_' V1NodeStatus (Maybe [Text]) -v1NodeStatusVolumesInUseL f V1NodeStatus{..} = (\v1NodeStatusVolumesInUse -> V1NodeStatus { v1NodeStatusVolumesInUse, ..} ) <$> f v1NodeStatusVolumesInUse -{-# INLINE v1NodeStatusVolumesInUseL #-} - - - --- * V1NodeSystemInfo - --- | 'v1NodeSystemInfoArchitecture' Lens -v1NodeSystemInfoArchitectureL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoArchitectureL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoArchitecture -> V1NodeSystemInfo { v1NodeSystemInfoArchitecture, ..} ) <$> f v1NodeSystemInfoArchitecture -{-# INLINE v1NodeSystemInfoArchitectureL #-} - --- | 'v1NodeSystemInfoBootId' Lens -v1NodeSystemInfoBootIdL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoBootIdL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoBootId -> V1NodeSystemInfo { v1NodeSystemInfoBootId, ..} ) <$> f v1NodeSystemInfoBootId -{-# INLINE v1NodeSystemInfoBootIdL #-} - --- | 'v1NodeSystemInfoContainerRuntimeVersion' Lens -v1NodeSystemInfoContainerRuntimeVersionL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoContainerRuntimeVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoContainerRuntimeVersion -> V1NodeSystemInfo { v1NodeSystemInfoContainerRuntimeVersion, ..} ) <$> f v1NodeSystemInfoContainerRuntimeVersion -{-# INLINE v1NodeSystemInfoContainerRuntimeVersionL #-} - --- | 'v1NodeSystemInfoKernelVersion' Lens -v1NodeSystemInfoKernelVersionL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoKernelVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKernelVersion -> V1NodeSystemInfo { v1NodeSystemInfoKernelVersion, ..} ) <$> f v1NodeSystemInfoKernelVersion -{-# INLINE v1NodeSystemInfoKernelVersionL #-} - --- | 'v1NodeSystemInfoKubeProxyVersion' Lens -v1NodeSystemInfoKubeProxyVersionL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoKubeProxyVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKubeProxyVersion -> V1NodeSystemInfo { v1NodeSystemInfoKubeProxyVersion, ..} ) <$> f v1NodeSystemInfoKubeProxyVersion -{-# INLINE v1NodeSystemInfoKubeProxyVersionL #-} - --- | 'v1NodeSystemInfoKubeletVersion' Lens -v1NodeSystemInfoKubeletVersionL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoKubeletVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKubeletVersion -> V1NodeSystemInfo { v1NodeSystemInfoKubeletVersion, ..} ) <$> f v1NodeSystemInfoKubeletVersion -{-# INLINE v1NodeSystemInfoKubeletVersionL #-} - --- | 'v1NodeSystemInfoMachineId' Lens -v1NodeSystemInfoMachineIdL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoMachineIdL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoMachineId -> V1NodeSystemInfo { v1NodeSystemInfoMachineId, ..} ) <$> f v1NodeSystemInfoMachineId -{-# INLINE v1NodeSystemInfoMachineIdL #-} - --- | 'v1NodeSystemInfoOperatingSystem' Lens -v1NodeSystemInfoOperatingSystemL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoOperatingSystemL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoOperatingSystem -> V1NodeSystemInfo { v1NodeSystemInfoOperatingSystem, ..} ) <$> f v1NodeSystemInfoOperatingSystem -{-# INLINE v1NodeSystemInfoOperatingSystemL #-} - --- | 'v1NodeSystemInfoOsImage' Lens -v1NodeSystemInfoOsImageL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoOsImageL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoOsImage -> V1NodeSystemInfo { v1NodeSystemInfoOsImage, ..} ) <$> f v1NodeSystemInfoOsImage -{-# INLINE v1NodeSystemInfoOsImageL #-} - --- | 'v1NodeSystemInfoSystemUuid' Lens -v1NodeSystemInfoSystemUuidL :: Lens_' V1NodeSystemInfo (Text) -v1NodeSystemInfoSystemUuidL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoSystemUuid -> V1NodeSystemInfo { v1NodeSystemInfoSystemUuid, ..} ) <$> f v1NodeSystemInfoSystemUuid -{-# INLINE v1NodeSystemInfoSystemUuidL #-} - - - --- * V1NonResourceAttributes - --- | 'v1NonResourceAttributesPath' Lens -v1NonResourceAttributesPathL :: Lens_' V1NonResourceAttributes (Maybe Text) -v1NonResourceAttributesPathL f V1NonResourceAttributes{..} = (\v1NonResourceAttributesPath -> V1NonResourceAttributes { v1NonResourceAttributesPath, ..} ) <$> f v1NonResourceAttributesPath -{-# INLINE v1NonResourceAttributesPathL #-} - --- | 'v1NonResourceAttributesVerb' Lens -v1NonResourceAttributesVerbL :: Lens_' V1NonResourceAttributes (Maybe Text) -v1NonResourceAttributesVerbL f V1NonResourceAttributes{..} = (\v1NonResourceAttributesVerb -> V1NonResourceAttributes { v1NonResourceAttributesVerb, ..} ) <$> f v1NonResourceAttributesVerb -{-# INLINE v1NonResourceAttributesVerbL #-} - - - --- * V1NonResourceRule - --- | 'v1NonResourceRuleNonResourceUrls' Lens -v1NonResourceRuleNonResourceUrlsL :: Lens_' V1NonResourceRule (Maybe [Text]) -v1NonResourceRuleNonResourceUrlsL f V1NonResourceRule{..} = (\v1NonResourceRuleNonResourceUrls -> V1NonResourceRule { v1NonResourceRuleNonResourceUrls, ..} ) <$> f v1NonResourceRuleNonResourceUrls -{-# INLINE v1NonResourceRuleNonResourceUrlsL #-} - --- | 'v1NonResourceRuleVerbs' Lens -v1NonResourceRuleVerbsL :: Lens_' V1NonResourceRule ([Text]) -v1NonResourceRuleVerbsL f V1NonResourceRule{..} = (\v1NonResourceRuleVerbs -> V1NonResourceRule { v1NonResourceRuleVerbs, ..} ) <$> f v1NonResourceRuleVerbs -{-# INLINE v1NonResourceRuleVerbsL #-} - - - --- * V1ObjectFieldSelector - --- | 'v1ObjectFieldSelectorApiVersion' Lens -v1ObjectFieldSelectorApiVersionL :: Lens_' V1ObjectFieldSelector (Maybe Text) -v1ObjectFieldSelectorApiVersionL f V1ObjectFieldSelector{..} = (\v1ObjectFieldSelectorApiVersion -> V1ObjectFieldSelector { v1ObjectFieldSelectorApiVersion, ..} ) <$> f v1ObjectFieldSelectorApiVersion -{-# INLINE v1ObjectFieldSelectorApiVersionL #-} - --- | 'v1ObjectFieldSelectorFieldPath' Lens -v1ObjectFieldSelectorFieldPathL :: Lens_' V1ObjectFieldSelector (Text) -v1ObjectFieldSelectorFieldPathL f V1ObjectFieldSelector{..} = (\v1ObjectFieldSelectorFieldPath -> V1ObjectFieldSelector { v1ObjectFieldSelectorFieldPath, ..} ) <$> f v1ObjectFieldSelectorFieldPath -{-# INLINE v1ObjectFieldSelectorFieldPathL #-} - - - --- * V1ObjectMeta - --- | 'v1ObjectMetaAnnotations' Lens -v1ObjectMetaAnnotationsL :: Lens_' V1ObjectMeta (Maybe (Map.Map String Text)) -v1ObjectMetaAnnotationsL f V1ObjectMeta{..} = (\v1ObjectMetaAnnotations -> V1ObjectMeta { v1ObjectMetaAnnotations, ..} ) <$> f v1ObjectMetaAnnotations -{-# INLINE v1ObjectMetaAnnotationsL #-} - --- | 'v1ObjectMetaCreationTimestamp' Lens -v1ObjectMetaCreationTimestampL :: Lens_' V1ObjectMeta (Maybe DateTime) -v1ObjectMetaCreationTimestampL f V1ObjectMeta{..} = (\v1ObjectMetaCreationTimestamp -> V1ObjectMeta { v1ObjectMetaCreationTimestamp, ..} ) <$> f v1ObjectMetaCreationTimestamp -{-# INLINE v1ObjectMetaCreationTimestampL #-} - --- | 'v1ObjectMetaDeletionGracePeriodSeconds' Lens -v1ObjectMetaDeletionGracePeriodSecondsL :: Lens_' V1ObjectMeta (Maybe Integer) -v1ObjectMetaDeletionGracePeriodSecondsL f V1ObjectMeta{..} = (\v1ObjectMetaDeletionGracePeriodSeconds -> V1ObjectMeta { v1ObjectMetaDeletionGracePeriodSeconds, ..} ) <$> f v1ObjectMetaDeletionGracePeriodSeconds -{-# INLINE v1ObjectMetaDeletionGracePeriodSecondsL #-} - --- | 'v1ObjectMetaDeletionTimestamp' Lens -v1ObjectMetaDeletionTimestampL :: Lens_' V1ObjectMeta (Maybe DateTime) -v1ObjectMetaDeletionTimestampL f V1ObjectMeta{..} = (\v1ObjectMetaDeletionTimestamp -> V1ObjectMeta { v1ObjectMetaDeletionTimestamp, ..} ) <$> f v1ObjectMetaDeletionTimestamp -{-# INLINE v1ObjectMetaDeletionTimestampL #-} - --- | 'v1ObjectMetaFinalizers' Lens -v1ObjectMetaFinalizersL :: Lens_' V1ObjectMeta (Maybe [Text]) -v1ObjectMetaFinalizersL f V1ObjectMeta{..} = (\v1ObjectMetaFinalizers -> V1ObjectMeta { v1ObjectMetaFinalizers, ..} ) <$> f v1ObjectMetaFinalizers -{-# INLINE v1ObjectMetaFinalizersL #-} - --- | 'v1ObjectMetaGenerateName' Lens -v1ObjectMetaGenerateNameL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaGenerateNameL f V1ObjectMeta{..} = (\v1ObjectMetaGenerateName -> V1ObjectMeta { v1ObjectMetaGenerateName, ..} ) <$> f v1ObjectMetaGenerateName -{-# INLINE v1ObjectMetaGenerateNameL #-} - --- | 'v1ObjectMetaGeneration' Lens -v1ObjectMetaGenerationL :: Lens_' V1ObjectMeta (Maybe Integer) -v1ObjectMetaGenerationL f V1ObjectMeta{..} = (\v1ObjectMetaGeneration -> V1ObjectMeta { v1ObjectMetaGeneration, ..} ) <$> f v1ObjectMetaGeneration -{-# INLINE v1ObjectMetaGenerationL #-} - --- | 'v1ObjectMetaLabels' Lens -v1ObjectMetaLabelsL :: Lens_' V1ObjectMeta (Maybe (Map.Map String Text)) -v1ObjectMetaLabelsL f V1ObjectMeta{..} = (\v1ObjectMetaLabels -> V1ObjectMeta { v1ObjectMetaLabels, ..} ) <$> f v1ObjectMetaLabels -{-# INLINE v1ObjectMetaLabelsL #-} - --- | 'v1ObjectMetaManagedFields' Lens -v1ObjectMetaManagedFieldsL :: Lens_' V1ObjectMeta (Maybe [V1ManagedFieldsEntry]) -v1ObjectMetaManagedFieldsL f V1ObjectMeta{..} = (\v1ObjectMetaManagedFields -> V1ObjectMeta { v1ObjectMetaManagedFields, ..} ) <$> f v1ObjectMetaManagedFields -{-# INLINE v1ObjectMetaManagedFieldsL #-} - --- | 'v1ObjectMetaName' Lens -v1ObjectMetaNameL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaNameL f V1ObjectMeta{..} = (\v1ObjectMetaName -> V1ObjectMeta { v1ObjectMetaName, ..} ) <$> f v1ObjectMetaName -{-# INLINE v1ObjectMetaNameL #-} - --- | 'v1ObjectMetaNamespace' Lens -v1ObjectMetaNamespaceL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaNamespaceL f V1ObjectMeta{..} = (\v1ObjectMetaNamespace -> V1ObjectMeta { v1ObjectMetaNamespace, ..} ) <$> f v1ObjectMetaNamespace -{-# INLINE v1ObjectMetaNamespaceL #-} - --- | 'v1ObjectMetaOwnerReferences' Lens -v1ObjectMetaOwnerReferencesL :: Lens_' V1ObjectMeta (Maybe [V1OwnerReference]) -v1ObjectMetaOwnerReferencesL f V1ObjectMeta{..} = (\v1ObjectMetaOwnerReferences -> V1ObjectMeta { v1ObjectMetaOwnerReferences, ..} ) <$> f v1ObjectMetaOwnerReferences -{-# INLINE v1ObjectMetaOwnerReferencesL #-} - --- | 'v1ObjectMetaResourceVersion' Lens -v1ObjectMetaResourceVersionL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaResourceVersionL f V1ObjectMeta{..} = (\v1ObjectMetaResourceVersion -> V1ObjectMeta { v1ObjectMetaResourceVersion, ..} ) <$> f v1ObjectMetaResourceVersion -{-# INLINE v1ObjectMetaResourceVersionL #-} - --- | 'v1ObjectMetaSelfLink' Lens -v1ObjectMetaSelfLinkL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaSelfLinkL f V1ObjectMeta{..} = (\v1ObjectMetaSelfLink -> V1ObjectMeta { v1ObjectMetaSelfLink, ..} ) <$> f v1ObjectMetaSelfLink -{-# INLINE v1ObjectMetaSelfLinkL #-} - --- | 'v1ObjectMetaUid' Lens -v1ObjectMetaUidL :: Lens_' V1ObjectMeta (Maybe Text) -v1ObjectMetaUidL f V1ObjectMeta{..} = (\v1ObjectMetaUid -> V1ObjectMeta { v1ObjectMetaUid, ..} ) <$> f v1ObjectMetaUid -{-# INLINE v1ObjectMetaUidL #-} - - - --- * V1ObjectReference - --- | 'v1ObjectReferenceApiVersion' Lens -v1ObjectReferenceApiVersionL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceApiVersionL f V1ObjectReference{..} = (\v1ObjectReferenceApiVersion -> V1ObjectReference { v1ObjectReferenceApiVersion, ..} ) <$> f v1ObjectReferenceApiVersion -{-# INLINE v1ObjectReferenceApiVersionL #-} - --- | 'v1ObjectReferenceFieldPath' Lens -v1ObjectReferenceFieldPathL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceFieldPathL f V1ObjectReference{..} = (\v1ObjectReferenceFieldPath -> V1ObjectReference { v1ObjectReferenceFieldPath, ..} ) <$> f v1ObjectReferenceFieldPath -{-# INLINE v1ObjectReferenceFieldPathL #-} - --- | 'v1ObjectReferenceKind' Lens -v1ObjectReferenceKindL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceKindL f V1ObjectReference{..} = (\v1ObjectReferenceKind -> V1ObjectReference { v1ObjectReferenceKind, ..} ) <$> f v1ObjectReferenceKind -{-# INLINE v1ObjectReferenceKindL #-} - --- | 'v1ObjectReferenceName' Lens -v1ObjectReferenceNameL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceNameL f V1ObjectReference{..} = (\v1ObjectReferenceName -> V1ObjectReference { v1ObjectReferenceName, ..} ) <$> f v1ObjectReferenceName -{-# INLINE v1ObjectReferenceNameL #-} - --- | 'v1ObjectReferenceNamespace' Lens -v1ObjectReferenceNamespaceL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceNamespaceL f V1ObjectReference{..} = (\v1ObjectReferenceNamespace -> V1ObjectReference { v1ObjectReferenceNamespace, ..} ) <$> f v1ObjectReferenceNamespace -{-# INLINE v1ObjectReferenceNamespaceL #-} - --- | 'v1ObjectReferenceResourceVersion' Lens -v1ObjectReferenceResourceVersionL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceResourceVersionL f V1ObjectReference{..} = (\v1ObjectReferenceResourceVersion -> V1ObjectReference { v1ObjectReferenceResourceVersion, ..} ) <$> f v1ObjectReferenceResourceVersion -{-# INLINE v1ObjectReferenceResourceVersionL #-} - --- | 'v1ObjectReferenceUid' Lens -v1ObjectReferenceUidL :: Lens_' V1ObjectReference (Maybe Text) -v1ObjectReferenceUidL f V1ObjectReference{..} = (\v1ObjectReferenceUid -> V1ObjectReference { v1ObjectReferenceUid, ..} ) <$> f v1ObjectReferenceUid -{-# INLINE v1ObjectReferenceUidL #-} - - - --- * V1Overhead - --- | 'v1OverheadPodFixed' Lens -v1OverheadPodFixedL :: Lens_' V1Overhead (Maybe (Map.Map String Quantity)) -v1OverheadPodFixedL f V1Overhead{..} = (\v1OverheadPodFixed -> V1Overhead { v1OverheadPodFixed, ..} ) <$> f v1OverheadPodFixed -{-# INLINE v1OverheadPodFixedL #-} - - - --- * V1OwnerReference - --- | 'v1OwnerReferenceApiVersion' Lens -v1OwnerReferenceApiVersionL :: Lens_' V1OwnerReference (Text) -v1OwnerReferenceApiVersionL f V1OwnerReference{..} = (\v1OwnerReferenceApiVersion -> V1OwnerReference { v1OwnerReferenceApiVersion, ..} ) <$> f v1OwnerReferenceApiVersion -{-# INLINE v1OwnerReferenceApiVersionL #-} - --- | 'v1OwnerReferenceBlockOwnerDeletion' Lens -v1OwnerReferenceBlockOwnerDeletionL :: Lens_' V1OwnerReference (Maybe Bool) -v1OwnerReferenceBlockOwnerDeletionL f V1OwnerReference{..} = (\v1OwnerReferenceBlockOwnerDeletion -> V1OwnerReference { v1OwnerReferenceBlockOwnerDeletion, ..} ) <$> f v1OwnerReferenceBlockOwnerDeletion -{-# INLINE v1OwnerReferenceBlockOwnerDeletionL #-} - --- | 'v1OwnerReferenceController' Lens -v1OwnerReferenceControllerL :: Lens_' V1OwnerReference (Maybe Bool) -v1OwnerReferenceControllerL f V1OwnerReference{..} = (\v1OwnerReferenceController -> V1OwnerReference { v1OwnerReferenceController, ..} ) <$> f v1OwnerReferenceController -{-# INLINE v1OwnerReferenceControllerL #-} - --- | 'v1OwnerReferenceKind' Lens -v1OwnerReferenceKindL :: Lens_' V1OwnerReference (Text) -v1OwnerReferenceKindL f V1OwnerReference{..} = (\v1OwnerReferenceKind -> V1OwnerReference { v1OwnerReferenceKind, ..} ) <$> f v1OwnerReferenceKind -{-# INLINE v1OwnerReferenceKindL #-} - --- | 'v1OwnerReferenceName' Lens -v1OwnerReferenceNameL :: Lens_' V1OwnerReference (Text) -v1OwnerReferenceNameL f V1OwnerReference{..} = (\v1OwnerReferenceName -> V1OwnerReference { v1OwnerReferenceName, ..} ) <$> f v1OwnerReferenceName -{-# INLINE v1OwnerReferenceNameL #-} - --- | 'v1OwnerReferenceUid' Lens -v1OwnerReferenceUidL :: Lens_' V1OwnerReference (Text) -v1OwnerReferenceUidL f V1OwnerReference{..} = (\v1OwnerReferenceUid -> V1OwnerReference { v1OwnerReferenceUid, ..} ) <$> f v1OwnerReferenceUid -{-# INLINE v1OwnerReferenceUidL #-} - - - --- * V1PersistentVolume - --- | 'v1PersistentVolumeApiVersion' Lens -v1PersistentVolumeApiVersionL :: Lens_' V1PersistentVolume (Maybe Text) -v1PersistentVolumeApiVersionL f V1PersistentVolume{..} = (\v1PersistentVolumeApiVersion -> V1PersistentVolume { v1PersistentVolumeApiVersion, ..} ) <$> f v1PersistentVolumeApiVersion -{-# INLINE v1PersistentVolumeApiVersionL #-} - --- | 'v1PersistentVolumeKind' Lens -v1PersistentVolumeKindL :: Lens_' V1PersistentVolume (Maybe Text) -v1PersistentVolumeKindL f V1PersistentVolume{..} = (\v1PersistentVolumeKind -> V1PersistentVolume { v1PersistentVolumeKind, ..} ) <$> f v1PersistentVolumeKind -{-# INLINE v1PersistentVolumeKindL #-} - --- | 'v1PersistentVolumeMetadata' Lens -v1PersistentVolumeMetadataL :: Lens_' V1PersistentVolume (Maybe V1ObjectMeta) -v1PersistentVolumeMetadataL f V1PersistentVolume{..} = (\v1PersistentVolumeMetadata -> V1PersistentVolume { v1PersistentVolumeMetadata, ..} ) <$> f v1PersistentVolumeMetadata -{-# INLINE v1PersistentVolumeMetadataL #-} - --- | 'v1PersistentVolumeSpec' Lens -v1PersistentVolumeSpecL :: Lens_' V1PersistentVolume (Maybe V1PersistentVolumeSpec) -v1PersistentVolumeSpecL f V1PersistentVolume{..} = (\v1PersistentVolumeSpec -> V1PersistentVolume { v1PersistentVolumeSpec, ..} ) <$> f v1PersistentVolumeSpec -{-# INLINE v1PersistentVolumeSpecL #-} - --- | 'v1PersistentVolumeStatus' Lens -v1PersistentVolumeStatusL :: Lens_' V1PersistentVolume (Maybe V1PersistentVolumeStatus) -v1PersistentVolumeStatusL f V1PersistentVolume{..} = (\v1PersistentVolumeStatus -> V1PersistentVolume { v1PersistentVolumeStatus, ..} ) <$> f v1PersistentVolumeStatus -{-# INLINE v1PersistentVolumeStatusL #-} - - - --- * V1PersistentVolumeClaim - --- | 'v1PersistentVolumeClaimApiVersion' Lens -v1PersistentVolumeClaimApiVersionL :: Lens_' V1PersistentVolumeClaim (Maybe Text) -v1PersistentVolumeClaimApiVersionL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimApiVersion -> V1PersistentVolumeClaim { v1PersistentVolumeClaimApiVersion, ..} ) <$> f v1PersistentVolumeClaimApiVersion -{-# INLINE v1PersistentVolumeClaimApiVersionL #-} - --- | 'v1PersistentVolumeClaimKind' Lens -v1PersistentVolumeClaimKindL :: Lens_' V1PersistentVolumeClaim (Maybe Text) -v1PersistentVolumeClaimKindL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimKind -> V1PersistentVolumeClaim { v1PersistentVolumeClaimKind, ..} ) <$> f v1PersistentVolumeClaimKind -{-# INLINE v1PersistentVolumeClaimKindL #-} - --- | 'v1PersistentVolumeClaimMetadata' Lens -v1PersistentVolumeClaimMetadataL :: Lens_' V1PersistentVolumeClaim (Maybe V1ObjectMeta) -v1PersistentVolumeClaimMetadataL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimMetadata -> V1PersistentVolumeClaim { v1PersistentVolumeClaimMetadata, ..} ) <$> f v1PersistentVolumeClaimMetadata -{-# INLINE v1PersistentVolumeClaimMetadataL #-} - --- | 'v1PersistentVolumeClaimSpec' Lens -v1PersistentVolumeClaimSpecL :: Lens_' V1PersistentVolumeClaim (Maybe V1PersistentVolumeClaimSpec) -v1PersistentVolumeClaimSpecL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimSpec -> V1PersistentVolumeClaim { v1PersistentVolumeClaimSpec, ..} ) <$> f v1PersistentVolumeClaimSpec -{-# INLINE v1PersistentVolumeClaimSpecL #-} - --- | 'v1PersistentVolumeClaimStatus' Lens -v1PersistentVolumeClaimStatusL :: Lens_' V1PersistentVolumeClaim (Maybe V1PersistentVolumeClaimStatus) -v1PersistentVolumeClaimStatusL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimStatus -> V1PersistentVolumeClaim { v1PersistentVolumeClaimStatus, ..} ) <$> f v1PersistentVolumeClaimStatus -{-# INLINE v1PersistentVolumeClaimStatusL #-} - - - --- * V1PersistentVolumeClaimCondition - --- | 'v1PersistentVolumeClaimConditionLastProbeTime' Lens -v1PersistentVolumeClaimConditionLastProbeTimeL :: Lens_' V1PersistentVolumeClaimCondition (Maybe DateTime) -v1PersistentVolumeClaimConditionLastProbeTimeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionLastProbeTime -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionLastProbeTime, ..} ) <$> f v1PersistentVolumeClaimConditionLastProbeTime -{-# INLINE v1PersistentVolumeClaimConditionLastProbeTimeL #-} - --- | 'v1PersistentVolumeClaimConditionLastTransitionTime' Lens -v1PersistentVolumeClaimConditionLastTransitionTimeL :: Lens_' V1PersistentVolumeClaimCondition (Maybe DateTime) -v1PersistentVolumeClaimConditionLastTransitionTimeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionLastTransitionTime -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionLastTransitionTime, ..} ) <$> f v1PersistentVolumeClaimConditionLastTransitionTime -{-# INLINE v1PersistentVolumeClaimConditionLastTransitionTimeL #-} - --- | 'v1PersistentVolumeClaimConditionMessage' Lens -v1PersistentVolumeClaimConditionMessageL :: Lens_' V1PersistentVolumeClaimCondition (Maybe Text) -v1PersistentVolumeClaimConditionMessageL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionMessage -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionMessage, ..} ) <$> f v1PersistentVolumeClaimConditionMessage -{-# INLINE v1PersistentVolumeClaimConditionMessageL #-} - --- | 'v1PersistentVolumeClaimConditionReason' Lens -v1PersistentVolumeClaimConditionReasonL :: Lens_' V1PersistentVolumeClaimCondition (Maybe Text) -v1PersistentVolumeClaimConditionReasonL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionReason -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionReason, ..} ) <$> f v1PersistentVolumeClaimConditionReason -{-# INLINE v1PersistentVolumeClaimConditionReasonL #-} - --- | 'v1PersistentVolumeClaimConditionStatus' Lens -v1PersistentVolumeClaimConditionStatusL :: Lens_' V1PersistentVolumeClaimCondition (Text) -v1PersistentVolumeClaimConditionStatusL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionStatus -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionStatus, ..} ) <$> f v1PersistentVolumeClaimConditionStatus -{-# INLINE v1PersistentVolumeClaimConditionStatusL #-} - --- | 'v1PersistentVolumeClaimConditionType' Lens -v1PersistentVolumeClaimConditionTypeL :: Lens_' V1PersistentVolumeClaimCondition (Text) -v1PersistentVolumeClaimConditionTypeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionType -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionType, ..} ) <$> f v1PersistentVolumeClaimConditionType -{-# INLINE v1PersistentVolumeClaimConditionTypeL #-} - - - --- * V1PersistentVolumeClaimList - --- | 'v1PersistentVolumeClaimListApiVersion' Lens -v1PersistentVolumeClaimListApiVersionL :: Lens_' V1PersistentVolumeClaimList (Maybe Text) -v1PersistentVolumeClaimListApiVersionL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListApiVersion -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListApiVersion, ..} ) <$> f v1PersistentVolumeClaimListApiVersion -{-# INLINE v1PersistentVolumeClaimListApiVersionL #-} - --- | 'v1PersistentVolumeClaimListItems' Lens -v1PersistentVolumeClaimListItemsL :: Lens_' V1PersistentVolumeClaimList ([V1PersistentVolumeClaim]) -v1PersistentVolumeClaimListItemsL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListItems -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListItems, ..} ) <$> f v1PersistentVolumeClaimListItems -{-# INLINE v1PersistentVolumeClaimListItemsL #-} - --- | 'v1PersistentVolumeClaimListKind' Lens -v1PersistentVolumeClaimListKindL :: Lens_' V1PersistentVolumeClaimList (Maybe Text) -v1PersistentVolumeClaimListKindL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListKind -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListKind, ..} ) <$> f v1PersistentVolumeClaimListKind -{-# INLINE v1PersistentVolumeClaimListKindL #-} - --- | 'v1PersistentVolumeClaimListMetadata' Lens -v1PersistentVolumeClaimListMetadataL :: Lens_' V1PersistentVolumeClaimList (Maybe V1ListMeta) -v1PersistentVolumeClaimListMetadataL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListMetadata -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListMetadata, ..} ) <$> f v1PersistentVolumeClaimListMetadata -{-# INLINE v1PersistentVolumeClaimListMetadataL #-} - - - --- * V1PersistentVolumeClaimSpec - --- | 'v1PersistentVolumeClaimSpecAccessModes' Lens -v1PersistentVolumeClaimSpecAccessModesL :: Lens_' V1PersistentVolumeClaimSpec (Maybe [Text]) -v1PersistentVolumeClaimSpecAccessModesL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecAccessModes -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecAccessModes, ..} ) <$> f v1PersistentVolumeClaimSpecAccessModes -{-# INLINE v1PersistentVolumeClaimSpecAccessModesL #-} - --- | 'v1PersistentVolumeClaimSpecDataSource' Lens -v1PersistentVolumeClaimSpecDataSourceL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1TypedLocalObjectReference) -v1PersistentVolumeClaimSpecDataSourceL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecDataSource -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecDataSource, ..} ) <$> f v1PersistentVolumeClaimSpecDataSource -{-# INLINE v1PersistentVolumeClaimSpecDataSourceL #-} - --- | 'v1PersistentVolumeClaimSpecDataSourceRef' Lens -v1PersistentVolumeClaimSpecDataSourceRefL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1TypedObjectReference) -v1PersistentVolumeClaimSpecDataSourceRefL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecDataSourceRef -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecDataSourceRef, ..} ) <$> f v1PersistentVolumeClaimSpecDataSourceRef -{-# INLINE v1PersistentVolumeClaimSpecDataSourceRefL #-} - --- | 'v1PersistentVolumeClaimSpecResources' Lens -v1PersistentVolumeClaimSpecResourcesL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1ResourceRequirements) -v1PersistentVolumeClaimSpecResourcesL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecResources -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecResources, ..} ) <$> f v1PersistentVolumeClaimSpecResources -{-# INLINE v1PersistentVolumeClaimSpecResourcesL #-} - --- | 'v1PersistentVolumeClaimSpecSelector' Lens -v1PersistentVolumeClaimSpecSelectorL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1LabelSelector) -v1PersistentVolumeClaimSpecSelectorL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecSelector -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecSelector, ..} ) <$> f v1PersistentVolumeClaimSpecSelector -{-# INLINE v1PersistentVolumeClaimSpecSelectorL #-} - --- | 'v1PersistentVolumeClaimSpecStorageClassName' Lens -v1PersistentVolumeClaimSpecStorageClassNameL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) -v1PersistentVolumeClaimSpecStorageClassNameL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecStorageClassName -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecStorageClassName, ..} ) <$> f v1PersistentVolumeClaimSpecStorageClassName -{-# INLINE v1PersistentVolumeClaimSpecStorageClassNameL #-} - --- | 'v1PersistentVolumeClaimSpecVolumeMode' Lens -v1PersistentVolumeClaimSpecVolumeModeL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) -v1PersistentVolumeClaimSpecVolumeModeL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecVolumeMode -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecVolumeMode, ..} ) <$> f v1PersistentVolumeClaimSpecVolumeMode -{-# INLINE v1PersistentVolumeClaimSpecVolumeModeL #-} - --- | 'v1PersistentVolumeClaimSpecVolumeName' Lens -v1PersistentVolumeClaimSpecVolumeNameL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) -v1PersistentVolumeClaimSpecVolumeNameL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecVolumeName -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecVolumeName, ..} ) <$> f v1PersistentVolumeClaimSpecVolumeName -{-# INLINE v1PersistentVolumeClaimSpecVolumeNameL #-} - - - --- * V1PersistentVolumeClaimStatus - --- | 'v1PersistentVolumeClaimStatusAccessModes' Lens -v1PersistentVolumeClaimStatusAccessModesL :: Lens_' V1PersistentVolumeClaimStatus (Maybe [Text]) -v1PersistentVolumeClaimStatusAccessModesL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusAccessModes -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusAccessModes, ..} ) <$> f v1PersistentVolumeClaimStatusAccessModes -{-# INLINE v1PersistentVolumeClaimStatusAccessModesL #-} - --- | 'v1PersistentVolumeClaimStatusAllocatedResources' Lens -v1PersistentVolumeClaimStatusAllocatedResourcesL :: Lens_' V1PersistentVolumeClaimStatus (Maybe (Map.Map String Quantity)) -v1PersistentVolumeClaimStatusAllocatedResourcesL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusAllocatedResources -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusAllocatedResources, ..} ) <$> f v1PersistentVolumeClaimStatusAllocatedResources -{-# INLINE v1PersistentVolumeClaimStatusAllocatedResourcesL #-} - --- | 'v1PersistentVolumeClaimStatusCapacity' Lens -v1PersistentVolumeClaimStatusCapacityL :: Lens_' V1PersistentVolumeClaimStatus (Maybe (Map.Map String Quantity)) -v1PersistentVolumeClaimStatusCapacityL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusCapacity -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusCapacity, ..} ) <$> f v1PersistentVolumeClaimStatusCapacity -{-# INLINE v1PersistentVolumeClaimStatusCapacityL #-} - --- | 'v1PersistentVolumeClaimStatusConditions' Lens -v1PersistentVolumeClaimStatusConditionsL :: Lens_' V1PersistentVolumeClaimStatus (Maybe [V1PersistentVolumeClaimCondition]) -v1PersistentVolumeClaimStatusConditionsL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusConditions -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusConditions, ..} ) <$> f v1PersistentVolumeClaimStatusConditions -{-# INLINE v1PersistentVolumeClaimStatusConditionsL #-} - --- | 'v1PersistentVolumeClaimStatusPhase' Lens -v1PersistentVolumeClaimStatusPhaseL :: Lens_' V1PersistentVolumeClaimStatus (Maybe Text) -v1PersistentVolumeClaimStatusPhaseL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusPhase -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusPhase, ..} ) <$> f v1PersistentVolumeClaimStatusPhase -{-# INLINE v1PersistentVolumeClaimStatusPhaseL #-} - --- | 'v1PersistentVolumeClaimStatusResizeStatus' Lens -v1PersistentVolumeClaimStatusResizeStatusL :: Lens_' V1PersistentVolumeClaimStatus (Maybe Text) -v1PersistentVolumeClaimStatusResizeStatusL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusResizeStatus -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusResizeStatus, ..} ) <$> f v1PersistentVolumeClaimStatusResizeStatus -{-# INLINE v1PersistentVolumeClaimStatusResizeStatusL #-} - - - --- * V1PersistentVolumeClaimTemplate - --- | 'v1PersistentVolumeClaimTemplateMetadata' Lens -v1PersistentVolumeClaimTemplateMetadataL :: Lens_' V1PersistentVolumeClaimTemplate (Maybe V1ObjectMeta) -v1PersistentVolumeClaimTemplateMetadataL f V1PersistentVolumeClaimTemplate{..} = (\v1PersistentVolumeClaimTemplateMetadata -> V1PersistentVolumeClaimTemplate { v1PersistentVolumeClaimTemplateMetadata, ..} ) <$> f v1PersistentVolumeClaimTemplateMetadata -{-# INLINE v1PersistentVolumeClaimTemplateMetadataL #-} - --- | 'v1PersistentVolumeClaimTemplateSpec' Lens -v1PersistentVolumeClaimTemplateSpecL :: Lens_' V1PersistentVolumeClaimTemplate (V1PersistentVolumeClaimSpec) -v1PersistentVolumeClaimTemplateSpecL f V1PersistentVolumeClaimTemplate{..} = (\v1PersistentVolumeClaimTemplateSpec -> V1PersistentVolumeClaimTemplate { v1PersistentVolumeClaimTemplateSpec, ..} ) <$> f v1PersistentVolumeClaimTemplateSpec -{-# INLINE v1PersistentVolumeClaimTemplateSpecL #-} - - - --- * V1PersistentVolumeClaimVolumeSource - --- | 'v1PersistentVolumeClaimVolumeSourceClaimName' Lens -v1PersistentVolumeClaimVolumeSourceClaimNameL :: Lens_' V1PersistentVolumeClaimVolumeSource (Text) -v1PersistentVolumeClaimVolumeSourceClaimNameL f V1PersistentVolumeClaimVolumeSource{..} = (\v1PersistentVolumeClaimVolumeSourceClaimName -> V1PersistentVolumeClaimVolumeSource { v1PersistentVolumeClaimVolumeSourceClaimName, ..} ) <$> f v1PersistentVolumeClaimVolumeSourceClaimName -{-# INLINE v1PersistentVolumeClaimVolumeSourceClaimNameL #-} - --- | 'v1PersistentVolumeClaimVolumeSourceReadOnly' Lens -v1PersistentVolumeClaimVolumeSourceReadOnlyL :: Lens_' V1PersistentVolumeClaimVolumeSource (Maybe Bool) -v1PersistentVolumeClaimVolumeSourceReadOnlyL f V1PersistentVolumeClaimVolumeSource{..} = (\v1PersistentVolumeClaimVolumeSourceReadOnly -> V1PersistentVolumeClaimVolumeSource { v1PersistentVolumeClaimVolumeSourceReadOnly, ..} ) <$> f v1PersistentVolumeClaimVolumeSourceReadOnly -{-# INLINE v1PersistentVolumeClaimVolumeSourceReadOnlyL #-} - - - --- * V1PersistentVolumeList - --- | 'v1PersistentVolumeListApiVersion' Lens -v1PersistentVolumeListApiVersionL :: Lens_' V1PersistentVolumeList (Maybe Text) -v1PersistentVolumeListApiVersionL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListApiVersion -> V1PersistentVolumeList { v1PersistentVolumeListApiVersion, ..} ) <$> f v1PersistentVolumeListApiVersion -{-# INLINE v1PersistentVolumeListApiVersionL #-} - --- | 'v1PersistentVolumeListItems' Lens -v1PersistentVolumeListItemsL :: Lens_' V1PersistentVolumeList ([V1PersistentVolume]) -v1PersistentVolumeListItemsL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListItems -> V1PersistentVolumeList { v1PersistentVolumeListItems, ..} ) <$> f v1PersistentVolumeListItems -{-# INLINE v1PersistentVolumeListItemsL #-} - --- | 'v1PersistentVolumeListKind' Lens -v1PersistentVolumeListKindL :: Lens_' V1PersistentVolumeList (Maybe Text) -v1PersistentVolumeListKindL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListKind -> V1PersistentVolumeList { v1PersistentVolumeListKind, ..} ) <$> f v1PersistentVolumeListKind -{-# INLINE v1PersistentVolumeListKindL #-} - --- | 'v1PersistentVolumeListMetadata' Lens -v1PersistentVolumeListMetadataL :: Lens_' V1PersistentVolumeList (Maybe V1ListMeta) -v1PersistentVolumeListMetadataL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListMetadata -> V1PersistentVolumeList { v1PersistentVolumeListMetadata, ..} ) <$> f v1PersistentVolumeListMetadata -{-# INLINE v1PersistentVolumeListMetadataL #-} - - - --- * V1PersistentVolumeSpec - --- | 'v1PersistentVolumeSpecAccessModes' Lens -v1PersistentVolumeSpecAccessModesL :: Lens_' V1PersistentVolumeSpec (Maybe [Text]) -v1PersistentVolumeSpecAccessModesL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAccessModes -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAccessModes, ..} ) <$> f v1PersistentVolumeSpecAccessModes -{-# INLINE v1PersistentVolumeSpecAccessModesL #-} - --- | 'v1PersistentVolumeSpecAwsElasticBlockStore' Lens -v1PersistentVolumeSpecAwsElasticBlockStoreL :: Lens_' V1PersistentVolumeSpec (Maybe V1AWSElasticBlockStoreVolumeSource) -v1PersistentVolumeSpecAwsElasticBlockStoreL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAwsElasticBlockStore -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAwsElasticBlockStore, ..} ) <$> f v1PersistentVolumeSpecAwsElasticBlockStore -{-# INLINE v1PersistentVolumeSpecAwsElasticBlockStoreL #-} - --- | 'v1PersistentVolumeSpecAzureDisk' Lens -v1PersistentVolumeSpecAzureDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1AzureDiskVolumeSource) -v1PersistentVolumeSpecAzureDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAzureDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAzureDisk, ..} ) <$> f v1PersistentVolumeSpecAzureDisk -{-# INLINE v1PersistentVolumeSpecAzureDiskL #-} - --- | 'v1PersistentVolumeSpecAzureFile' Lens -v1PersistentVolumeSpecAzureFileL :: Lens_' V1PersistentVolumeSpec (Maybe V1AzureFilePersistentVolumeSource) -v1PersistentVolumeSpecAzureFileL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAzureFile -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAzureFile, ..} ) <$> f v1PersistentVolumeSpecAzureFile -{-# INLINE v1PersistentVolumeSpecAzureFileL #-} - --- | 'v1PersistentVolumeSpecCapacity' Lens -v1PersistentVolumeSpecCapacityL :: Lens_' V1PersistentVolumeSpec (Maybe (Map.Map String Quantity)) -v1PersistentVolumeSpecCapacityL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCapacity -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCapacity, ..} ) <$> f v1PersistentVolumeSpecCapacity -{-# INLINE v1PersistentVolumeSpecCapacityL #-} - --- | 'v1PersistentVolumeSpecCephfs' Lens -v1PersistentVolumeSpecCephfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1CephFSPersistentVolumeSource) -v1PersistentVolumeSpecCephfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCephfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCephfs, ..} ) <$> f v1PersistentVolumeSpecCephfs -{-# INLINE v1PersistentVolumeSpecCephfsL #-} - --- | 'v1PersistentVolumeSpecCinder' Lens -v1PersistentVolumeSpecCinderL :: Lens_' V1PersistentVolumeSpec (Maybe V1CinderPersistentVolumeSource) -v1PersistentVolumeSpecCinderL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCinder -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCinder, ..} ) <$> f v1PersistentVolumeSpecCinder -{-# INLINE v1PersistentVolumeSpecCinderL #-} - --- | 'v1PersistentVolumeSpecClaimRef' Lens -v1PersistentVolumeSpecClaimRefL :: Lens_' V1PersistentVolumeSpec (Maybe V1ObjectReference) -v1PersistentVolumeSpecClaimRefL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecClaimRef -> V1PersistentVolumeSpec { v1PersistentVolumeSpecClaimRef, ..} ) <$> f v1PersistentVolumeSpecClaimRef -{-# INLINE v1PersistentVolumeSpecClaimRefL #-} - --- | 'v1PersistentVolumeSpecCsi' Lens -v1PersistentVolumeSpecCsiL :: Lens_' V1PersistentVolumeSpec (Maybe V1CSIPersistentVolumeSource) -v1PersistentVolumeSpecCsiL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCsi -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCsi, ..} ) <$> f v1PersistentVolumeSpecCsi -{-# INLINE v1PersistentVolumeSpecCsiL #-} - --- | 'v1PersistentVolumeSpecFc' Lens -v1PersistentVolumeSpecFcL :: Lens_' V1PersistentVolumeSpec (Maybe V1FCVolumeSource) -v1PersistentVolumeSpecFcL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFc -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFc, ..} ) <$> f v1PersistentVolumeSpecFc -{-# INLINE v1PersistentVolumeSpecFcL #-} - --- | 'v1PersistentVolumeSpecFlexVolume' Lens -v1PersistentVolumeSpecFlexVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1FlexPersistentVolumeSource) -v1PersistentVolumeSpecFlexVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFlexVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFlexVolume, ..} ) <$> f v1PersistentVolumeSpecFlexVolume -{-# INLINE v1PersistentVolumeSpecFlexVolumeL #-} - --- | 'v1PersistentVolumeSpecFlocker' Lens -v1PersistentVolumeSpecFlockerL :: Lens_' V1PersistentVolumeSpec (Maybe V1FlockerVolumeSource) -v1PersistentVolumeSpecFlockerL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFlocker -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFlocker, ..} ) <$> f v1PersistentVolumeSpecFlocker -{-# INLINE v1PersistentVolumeSpecFlockerL #-} - --- | 'v1PersistentVolumeSpecGcePersistentDisk' Lens -v1PersistentVolumeSpecGcePersistentDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1GCEPersistentDiskVolumeSource) -v1PersistentVolumeSpecGcePersistentDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecGcePersistentDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecGcePersistentDisk, ..} ) <$> f v1PersistentVolumeSpecGcePersistentDisk -{-# INLINE v1PersistentVolumeSpecGcePersistentDiskL #-} - --- | 'v1PersistentVolumeSpecGlusterfs' Lens -v1PersistentVolumeSpecGlusterfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1GlusterfsPersistentVolumeSource) -v1PersistentVolumeSpecGlusterfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecGlusterfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecGlusterfs, ..} ) <$> f v1PersistentVolumeSpecGlusterfs -{-# INLINE v1PersistentVolumeSpecGlusterfsL #-} - --- | 'v1PersistentVolumeSpecHostPath' Lens -v1PersistentVolumeSpecHostPathL :: Lens_' V1PersistentVolumeSpec (Maybe V1HostPathVolumeSource) -v1PersistentVolumeSpecHostPathL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecHostPath -> V1PersistentVolumeSpec { v1PersistentVolumeSpecHostPath, ..} ) <$> f v1PersistentVolumeSpecHostPath -{-# INLINE v1PersistentVolumeSpecHostPathL #-} - --- | 'v1PersistentVolumeSpecIscsi' Lens -v1PersistentVolumeSpecIscsiL :: Lens_' V1PersistentVolumeSpec (Maybe V1ISCSIPersistentVolumeSource) -v1PersistentVolumeSpecIscsiL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecIscsi -> V1PersistentVolumeSpec { v1PersistentVolumeSpecIscsi, ..} ) <$> f v1PersistentVolumeSpecIscsi -{-# INLINE v1PersistentVolumeSpecIscsiL #-} - --- | 'v1PersistentVolumeSpecLocal' Lens -v1PersistentVolumeSpecLocalL :: Lens_' V1PersistentVolumeSpec (Maybe V1LocalVolumeSource) -v1PersistentVolumeSpecLocalL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecLocal -> V1PersistentVolumeSpec { v1PersistentVolumeSpecLocal, ..} ) <$> f v1PersistentVolumeSpecLocal -{-# INLINE v1PersistentVolumeSpecLocalL #-} - --- | 'v1PersistentVolumeSpecMountOptions' Lens -v1PersistentVolumeSpecMountOptionsL :: Lens_' V1PersistentVolumeSpec (Maybe [Text]) -v1PersistentVolumeSpecMountOptionsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecMountOptions -> V1PersistentVolumeSpec { v1PersistentVolumeSpecMountOptions, ..} ) <$> f v1PersistentVolumeSpecMountOptions -{-# INLINE v1PersistentVolumeSpecMountOptionsL #-} - --- | 'v1PersistentVolumeSpecNfs' Lens -v1PersistentVolumeSpecNfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1NFSVolumeSource) -v1PersistentVolumeSpecNfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecNfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecNfs, ..} ) <$> f v1PersistentVolumeSpecNfs -{-# INLINE v1PersistentVolumeSpecNfsL #-} - --- | 'v1PersistentVolumeSpecNodeAffinity' Lens -v1PersistentVolumeSpecNodeAffinityL :: Lens_' V1PersistentVolumeSpec (Maybe V1VolumeNodeAffinity) -v1PersistentVolumeSpecNodeAffinityL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecNodeAffinity -> V1PersistentVolumeSpec { v1PersistentVolumeSpecNodeAffinity, ..} ) <$> f v1PersistentVolumeSpecNodeAffinity -{-# INLINE v1PersistentVolumeSpecNodeAffinityL #-} - --- | 'v1PersistentVolumeSpecPersistentVolumeReclaimPolicy' Lens -v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL :: Lens_' V1PersistentVolumeSpec (Maybe Text) -v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPersistentVolumeReclaimPolicy -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPersistentVolumeReclaimPolicy, ..} ) <$> f v1PersistentVolumeSpecPersistentVolumeReclaimPolicy -{-# INLINE v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL #-} - --- | 'v1PersistentVolumeSpecPhotonPersistentDisk' Lens -v1PersistentVolumeSpecPhotonPersistentDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1PhotonPersistentDiskVolumeSource) -v1PersistentVolumeSpecPhotonPersistentDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPhotonPersistentDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPhotonPersistentDisk, ..} ) <$> f v1PersistentVolumeSpecPhotonPersistentDisk -{-# INLINE v1PersistentVolumeSpecPhotonPersistentDiskL #-} - --- | 'v1PersistentVolumeSpecPortworxVolume' Lens -v1PersistentVolumeSpecPortworxVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1PortworxVolumeSource) -v1PersistentVolumeSpecPortworxVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPortworxVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPortworxVolume, ..} ) <$> f v1PersistentVolumeSpecPortworxVolume -{-# INLINE v1PersistentVolumeSpecPortworxVolumeL #-} - --- | 'v1PersistentVolumeSpecQuobyte' Lens -v1PersistentVolumeSpecQuobyteL :: Lens_' V1PersistentVolumeSpec (Maybe V1QuobyteVolumeSource) -v1PersistentVolumeSpecQuobyteL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecQuobyte -> V1PersistentVolumeSpec { v1PersistentVolumeSpecQuobyte, ..} ) <$> f v1PersistentVolumeSpecQuobyte -{-# INLINE v1PersistentVolumeSpecQuobyteL #-} - --- | 'v1PersistentVolumeSpecRbd' Lens -v1PersistentVolumeSpecRbdL :: Lens_' V1PersistentVolumeSpec (Maybe V1RBDPersistentVolumeSource) -v1PersistentVolumeSpecRbdL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecRbd -> V1PersistentVolumeSpec { v1PersistentVolumeSpecRbd, ..} ) <$> f v1PersistentVolumeSpecRbd -{-# INLINE v1PersistentVolumeSpecRbdL #-} - --- | 'v1PersistentVolumeSpecScaleIo' Lens -v1PersistentVolumeSpecScaleIoL :: Lens_' V1PersistentVolumeSpec (Maybe V1ScaleIOPersistentVolumeSource) -v1PersistentVolumeSpecScaleIoL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecScaleIo -> V1PersistentVolumeSpec { v1PersistentVolumeSpecScaleIo, ..} ) <$> f v1PersistentVolumeSpecScaleIo -{-# INLINE v1PersistentVolumeSpecScaleIoL #-} - --- | 'v1PersistentVolumeSpecStorageClassName' Lens -v1PersistentVolumeSpecStorageClassNameL :: Lens_' V1PersistentVolumeSpec (Maybe Text) -v1PersistentVolumeSpecStorageClassNameL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecStorageClassName -> V1PersistentVolumeSpec { v1PersistentVolumeSpecStorageClassName, ..} ) <$> f v1PersistentVolumeSpecStorageClassName -{-# INLINE v1PersistentVolumeSpecStorageClassNameL #-} - --- | 'v1PersistentVolumeSpecStorageos' Lens -v1PersistentVolumeSpecStorageosL :: Lens_' V1PersistentVolumeSpec (Maybe V1StorageOSPersistentVolumeSource) -v1PersistentVolumeSpecStorageosL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecStorageos -> V1PersistentVolumeSpec { v1PersistentVolumeSpecStorageos, ..} ) <$> f v1PersistentVolumeSpecStorageos -{-# INLINE v1PersistentVolumeSpecStorageosL #-} - --- | 'v1PersistentVolumeSpecVolumeMode' Lens -v1PersistentVolumeSpecVolumeModeL :: Lens_' V1PersistentVolumeSpec (Maybe Text) -v1PersistentVolumeSpecVolumeModeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecVolumeMode -> V1PersistentVolumeSpec { v1PersistentVolumeSpecVolumeMode, ..} ) <$> f v1PersistentVolumeSpecVolumeMode -{-# INLINE v1PersistentVolumeSpecVolumeModeL #-} - --- | 'v1PersistentVolumeSpecVsphereVolume' Lens -v1PersistentVolumeSpecVsphereVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1VsphereVirtualDiskVolumeSource) -v1PersistentVolumeSpecVsphereVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecVsphereVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecVsphereVolume, ..} ) <$> f v1PersistentVolumeSpecVsphereVolume -{-# INLINE v1PersistentVolumeSpecVsphereVolumeL #-} - - - --- * V1PersistentVolumeStatus - --- | 'v1PersistentVolumeStatusMessage' Lens -v1PersistentVolumeStatusMessageL :: Lens_' V1PersistentVolumeStatus (Maybe Text) -v1PersistentVolumeStatusMessageL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusMessage -> V1PersistentVolumeStatus { v1PersistentVolumeStatusMessage, ..} ) <$> f v1PersistentVolumeStatusMessage -{-# INLINE v1PersistentVolumeStatusMessageL #-} - --- | 'v1PersistentVolumeStatusPhase' Lens -v1PersistentVolumeStatusPhaseL :: Lens_' V1PersistentVolumeStatus (Maybe Text) -v1PersistentVolumeStatusPhaseL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusPhase -> V1PersistentVolumeStatus { v1PersistentVolumeStatusPhase, ..} ) <$> f v1PersistentVolumeStatusPhase -{-# INLINE v1PersistentVolumeStatusPhaseL #-} - --- | 'v1PersistentVolumeStatusReason' Lens -v1PersistentVolumeStatusReasonL :: Lens_' V1PersistentVolumeStatus (Maybe Text) -v1PersistentVolumeStatusReasonL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusReason -> V1PersistentVolumeStatus { v1PersistentVolumeStatusReason, ..} ) <$> f v1PersistentVolumeStatusReason -{-# INLINE v1PersistentVolumeStatusReasonL #-} - - - --- * V1PhotonPersistentDiskVolumeSource - --- | 'v1PhotonPersistentDiskVolumeSourceFsType' Lens -v1PhotonPersistentDiskVolumeSourceFsTypeL :: Lens_' V1PhotonPersistentDiskVolumeSource (Maybe Text) -v1PhotonPersistentDiskVolumeSourceFsTypeL f V1PhotonPersistentDiskVolumeSource{..} = (\v1PhotonPersistentDiskVolumeSourceFsType -> V1PhotonPersistentDiskVolumeSource { v1PhotonPersistentDiskVolumeSourceFsType, ..} ) <$> f v1PhotonPersistentDiskVolumeSourceFsType -{-# INLINE v1PhotonPersistentDiskVolumeSourceFsTypeL #-} - --- | 'v1PhotonPersistentDiskVolumeSourcePdId' Lens -v1PhotonPersistentDiskVolumeSourcePdIdL :: Lens_' V1PhotonPersistentDiskVolumeSource (Text) -v1PhotonPersistentDiskVolumeSourcePdIdL f V1PhotonPersistentDiskVolumeSource{..} = (\v1PhotonPersistentDiskVolumeSourcePdId -> V1PhotonPersistentDiskVolumeSource { v1PhotonPersistentDiskVolumeSourcePdId, ..} ) <$> f v1PhotonPersistentDiskVolumeSourcePdId -{-# INLINE v1PhotonPersistentDiskVolumeSourcePdIdL #-} - - - --- * V1Pod - --- | 'v1PodApiVersion' Lens -v1PodApiVersionL :: Lens_' V1Pod (Maybe Text) -v1PodApiVersionL f V1Pod{..} = (\v1PodApiVersion -> V1Pod { v1PodApiVersion, ..} ) <$> f v1PodApiVersion -{-# INLINE v1PodApiVersionL #-} - --- | 'v1PodKind' Lens -v1PodKindL :: Lens_' V1Pod (Maybe Text) -v1PodKindL f V1Pod{..} = (\v1PodKind -> V1Pod { v1PodKind, ..} ) <$> f v1PodKind -{-# INLINE v1PodKindL #-} - --- | 'v1PodMetadata' Lens -v1PodMetadataL :: Lens_' V1Pod (Maybe V1ObjectMeta) -v1PodMetadataL f V1Pod{..} = (\v1PodMetadata -> V1Pod { v1PodMetadata, ..} ) <$> f v1PodMetadata -{-# INLINE v1PodMetadataL #-} - --- | 'v1PodSpec' Lens -v1PodSpecL :: Lens_' V1Pod (Maybe V1PodSpec) -v1PodSpecL f V1Pod{..} = (\v1PodSpec -> V1Pod { v1PodSpec, ..} ) <$> f v1PodSpec -{-# INLINE v1PodSpecL #-} - --- | 'v1PodStatus' Lens -v1PodStatusL :: Lens_' V1Pod (Maybe V1PodStatus) -v1PodStatusL f V1Pod{..} = (\v1PodStatus -> V1Pod { v1PodStatus, ..} ) <$> f v1PodStatus -{-# INLINE v1PodStatusL #-} - - - --- * V1PodAffinity - --- | 'v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens -v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAffinity (Maybe [V1WeightedPodAffinityTerm]) -v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1PodAffinity{..} = (\v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1PodAffinity { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} - --- | 'v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens -v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAffinity (Maybe [V1PodAffinityTerm]) -v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1PodAffinity{..} = (\v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1PodAffinity { v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} - - - --- * V1PodAffinityTerm - --- | 'v1PodAffinityTermLabelSelector' Lens -v1PodAffinityTermLabelSelectorL :: Lens_' V1PodAffinityTerm (Maybe V1LabelSelector) -v1PodAffinityTermLabelSelectorL f V1PodAffinityTerm{..} = (\v1PodAffinityTermLabelSelector -> V1PodAffinityTerm { v1PodAffinityTermLabelSelector, ..} ) <$> f v1PodAffinityTermLabelSelector -{-# INLINE v1PodAffinityTermLabelSelectorL #-} - --- | 'v1PodAffinityTermNamespaceSelector' Lens -v1PodAffinityTermNamespaceSelectorL :: Lens_' V1PodAffinityTerm (Maybe V1LabelSelector) -v1PodAffinityTermNamespaceSelectorL f V1PodAffinityTerm{..} = (\v1PodAffinityTermNamespaceSelector -> V1PodAffinityTerm { v1PodAffinityTermNamespaceSelector, ..} ) <$> f v1PodAffinityTermNamespaceSelector -{-# INLINE v1PodAffinityTermNamespaceSelectorL #-} - --- | 'v1PodAffinityTermNamespaces' Lens -v1PodAffinityTermNamespacesL :: Lens_' V1PodAffinityTerm (Maybe [Text]) -v1PodAffinityTermNamespacesL f V1PodAffinityTerm{..} = (\v1PodAffinityTermNamespaces -> V1PodAffinityTerm { v1PodAffinityTermNamespaces, ..} ) <$> f v1PodAffinityTermNamespaces -{-# INLINE v1PodAffinityTermNamespacesL #-} - --- | 'v1PodAffinityTermTopologyKey' Lens -v1PodAffinityTermTopologyKeyL :: Lens_' V1PodAffinityTerm (Text) -v1PodAffinityTermTopologyKeyL f V1PodAffinityTerm{..} = (\v1PodAffinityTermTopologyKey -> V1PodAffinityTerm { v1PodAffinityTermTopologyKey, ..} ) <$> f v1PodAffinityTermTopologyKey -{-# INLINE v1PodAffinityTermTopologyKeyL #-} - - - --- * V1PodAntiAffinity - --- | 'v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens -v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAntiAffinity (Maybe [V1WeightedPodAffinityTerm]) -v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1PodAntiAffinity{..} = (\v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1PodAntiAffinity { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} - --- | 'v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens -v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAntiAffinity (Maybe [V1PodAffinityTerm]) -v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1PodAntiAffinity{..} = (\v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1PodAntiAffinity { v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution -{-# INLINE v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} - - - --- * V1PodCondition - --- | 'v1PodConditionLastProbeTime' Lens -v1PodConditionLastProbeTimeL :: Lens_' V1PodCondition (Maybe DateTime) -v1PodConditionLastProbeTimeL f V1PodCondition{..} = (\v1PodConditionLastProbeTime -> V1PodCondition { v1PodConditionLastProbeTime, ..} ) <$> f v1PodConditionLastProbeTime -{-# INLINE v1PodConditionLastProbeTimeL #-} - --- | 'v1PodConditionLastTransitionTime' Lens -v1PodConditionLastTransitionTimeL :: Lens_' V1PodCondition (Maybe DateTime) -v1PodConditionLastTransitionTimeL f V1PodCondition{..} = (\v1PodConditionLastTransitionTime -> V1PodCondition { v1PodConditionLastTransitionTime, ..} ) <$> f v1PodConditionLastTransitionTime -{-# INLINE v1PodConditionLastTransitionTimeL #-} - --- | 'v1PodConditionMessage' Lens -v1PodConditionMessageL :: Lens_' V1PodCondition (Maybe Text) -v1PodConditionMessageL f V1PodCondition{..} = (\v1PodConditionMessage -> V1PodCondition { v1PodConditionMessage, ..} ) <$> f v1PodConditionMessage -{-# INLINE v1PodConditionMessageL #-} - --- | 'v1PodConditionReason' Lens -v1PodConditionReasonL :: Lens_' V1PodCondition (Maybe Text) -v1PodConditionReasonL f V1PodCondition{..} = (\v1PodConditionReason -> V1PodCondition { v1PodConditionReason, ..} ) <$> f v1PodConditionReason -{-# INLINE v1PodConditionReasonL #-} - --- | 'v1PodConditionStatus' Lens -v1PodConditionStatusL :: Lens_' V1PodCondition (Text) -v1PodConditionStatusL f V1PodCondition{..} = (\v1PodConditionStatus -> V1PodCondition { v1PodConditionStatus, ..} ) <$> f v1PodConditionStatus -{-# INLINE v1PodConditionStatusL #-} - --- | 'v1PodConditionType' Lens -v1PodConditionTypeL :: Lens_' V1PodCondition (Text) -v1PodConditionTypeL f V1PodCondition{..} = (\v1PodConditionType -> V1PodCondition { v1PodConditionType, ..} ) <$> f v1PodConditionType -{-# INLINE v1PodConditionTypeL #-} - - - --- * V1PodDNSConfig - --- | 'v1PodDNSConfigNameservers' Lens -v1PodDNSConfigNameserversL :: Lens_' V1PodDNSConfig (Maybe [Text]) -v1PodDNSConfigNameserversL f V1PodDNSConfig{..} = (\v1PodDNSConfigNameservers -> V1PodDNSConfig { v1PodDNSConfigNameservers, ..} ) <$> f v1PodDNSConfigNameservers -{-# INLINE v1PodDNSConfigNameserversL #-} - --- | 'v1PodDNSConfigOptions' Lens -v1PodDNSConfigOptionsL :: Lens_' V1PodDNSConfig (Maybe [V1PodDNSConfigOption]) -v1PodDNSConfigOptionsL f V1PodDNSConfig{..} = (\v1PodDNSConfigOptions -> V1PodDNSConfig { v1PodDNSConfigOptions, ..} ) <$> f v1PodDNSConfigOptions -{-# INLINE v1PodDNSConfigOptionsL #-} - --- | 'v1PodDNSConfigSearches' Lens -v1PodDNSConfigSearchesL :: Lens_' V1PodDNSConfig (Maybe [Text]) -v1PodDNSConfigSearchesL f V1PodDNSConfig{..} = (\v1PodDNSConfigSearches -> V1PodDNSConfig { v1PodDNSConfigSearches, ..} ) <$> f v1PodDNSConfigSearches -{-# INLINE v1PodDNSConfigSearchesL #-} - - - --- * V1PodDNSConfigOption - --- | 'v1PodDNSConfigOptionName' Lens -v1PodDNSConfigOptionNameL :: Lens_' V1PodDNSConfigOption (Maybe Text) -v1PodDNSConfigOptionNameL f V1PodDNSConfigOption{..} = (\v1PodDNSConfigOptionName -> V1PodDNSConfigOption { v1PodDNSConfigOptionName, ..} ) <$> f v1PodDNSConfigOptionName -{-# INLINE v1PodDNSConfigOptionNameL #-} - --- | 'v1PodDNSConfigOptionValue' Lens -v1PodDNSConfigOptionValueL :: Lens_' V1PodDNSConfigOption (Maybe Text) -v1PodDNSConfigOptionValueL f V1PodDNSConfigOption{..} = (\v1PodDNSConfigOptionValue -> V1PodDNSConfigOption { v1PodDNSConfigOptionValue, ..} ) <$> f v1PodDNSConfigOptionValue -{-# INLINE v1PodDNSConfigOptionValueL #-} - - - --- * V1PodDisruptionBudget - --- | 'v1PodDisruptionBudgetApiVersion' Lens -v1PodDisruptionBudgetApiVersionL :: Lens_' V1PodDisruptionBudget (Maybe Text) -v1PodDisruptionBudgetApiVersionL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetApiVersion -> V1PodDisruptionBudget { v1PodDisruptionBudgetApiVersion, ..} ) <$> f v1PodDisruptionBudgetApiVersion -{-# INLINE v1PodDisruptionBudgetApiVersionL #-} - --- | 'v1PodDisruptionBudgetKind' Lens -v1PodDisruptionBudgetKindL :: Lens_' V1PodDisruptionBudget (Maybe Text) -v1PodDisruptionBudgetKindL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetKind -> V1PodDisruptionBudget { v1PodDisruptionBudgetKind, ..} ) <$> f v1PodDisruptionBudgetKind -{-# INLINE v1PodDisruptionBudgetKindL #-} - --- | 'v1PodDisruptionBudgetMetadata' Lens -v1PodDisruptionBudgetMetadataL :: Lens_' V1PodDisruptionBudget (Maybe V1ObjectMeta) -v1PodDisruptionBudgetMetadataL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetMetadata -> V1PodDisruptionBudget { v1PodDisruptionBudgetMetadata, ..} ) <$> f v1PodDisruptionBudgetMetadata -{-# INLINE v1PodDisruptionBudgetMetadataL #-} - --- | 'v1PodDisruptionBudgetSpec' Lens -v1PodDisruptionBudgetSpecL :: Lens_' V1PodDisruptionBudget (Maybe V1PodDisruptionBudgetSpec) -v1PodDisruptionBudgetSpecL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetSpec -> V1PodDisruptionBudget { v1PodDisruptionBudgetSpec, ..} ) <$> f v1PodDisruptionBudgetSpec -{-# INLINE v1PodDisruptionBudgetSpecL #-} - --- | 'v1PodDisruptionBudgetStatus' Lens -v1PodDisruptionBudgetStatusL :: Lens_' V1PodDisruptionBudget (Maybe V1PodDisruptionBudgetStatus) -v1PodDisruptionBudgetStatusL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetStatus -> V1PodDisruptionBudget { v1PodDisruptionBudgetStatus, ..} ) <$> f v1PodDisruptionBudgetStatus -{-# INLINE v1PodDisruptionBudgetStatusL #-} - - - --- * V1PodDisruptionBudgetList - --- | 'v1PodDisruptionBudgetListApiVersion' Lens -v1PodDisruptionBudgetListApiVersionL :: Lens_' V1PodDisruptionBudgetList (Maybe Text) -v1PodDisruptionBudgetListApiVersionL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListApiVersion -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListApiVersion, ..} ) <$> f v1PodDisruptionBudgetListApiVersion -{-# INLINE v1PodDisruptionBudgetListApiVersionL #-} - --- | 'v1PodDisruptionBudgetListItems' Lens -v1PodDisruptionBudgetListItemsL :: Lens_' V1PodDisruptionBudgetList ([V1PodDisruptionBudget]) -v1PodDisruptionBudgetListItemsL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListItems -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListItems, ..} ) <$> f v1PodDisruptionBudgetListItems -{-# INLINE v1PodDisruptionBudgetListItemsL #-} - --- | 'v1PodDisruptionBudgetListKind' Lens -v1PodDisruptionBudgetListKindL :: Lens_' V1PodDisruptionBudgetList (Maybe Text) -v1PodDisruptionBudgetListKindL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListKind -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListKind, ..} ) <$> f v1PodDisruptionBudgetListKind -{-# INLINE v1PodDisruptionBudgetListKindL #-} - --- | 'v1PodDisruptionBudgetListMetadata' Lens -v1PodDisruptionBudgetListMetadataL :: Lens_' V1PodDisruptionBudgetList (Maybe V1ListMeta) -v1PodDisruptionBudgetListMetadataL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListMetadata -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListMetadata, ..} ) <$> f v1PodDisruptionBudgetListMetadata -{-# INLINE v1PodDisruptionBudgetListMetadataL #-} - - - --- * V1PodDisruptionBudgetSpec - --- | 'v1PodDisruptionBudgetSpecMaxUnavailable' Lens -v1PodDisruptionBudgetSpecMaxUnavailableL :: Lens_' V1PodDisruptionBudgetSpec (Maybe IntOrString) -v1PodDisruptionBudgetSpecMaxUnavailableL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecMaxUnavailable -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecMaxUnavailable, ..} ) <$> f v1PodDisruptionBudgetSpecMaxUnavailable -{-# INLINE v1PodDisruptionBudgetSpecMaxUnavailableL #-} - --- | 'v1PodDisruptionBudgetSpecMinAvailable' Lens -v1PodDisruptionBudgetSpecMinAvailableL :: Lens_' V1PodDisruptionBudgetSpec (Maybe IntOrString) -v1PodDisruptionBudgetSpecMinAvailableL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecMinAvailable -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecMinAvailable, ..} ) <$> f v1PodDisruptionBudgetSpecMinAvailable -{-# INLINE v1PodDisruptionBudgetSpecMinAvailableL #-} - --- | 'v1PodDisruptionBudgetSpecSelector' Lens -v1PodDisruptionBudgetSpecSelectorL :: Lens_' V1PodDisruptionBudgetSpec (Maybe V1LabelSelector) -v1PodDisruptionBudgetSpecSelectorL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecSelector -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecSelector, ..} ) <$> f v1PodDisruptionBudgetSpecSelector -{-# INLINE v1PodDisruptionBudgetSpecSelectorL #-} - --- | 'v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy' Lens -v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL :: Lens_' V1PodDisruptionBudgetSpec (Maybe Text) -v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy, ..} ) <$> f v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy -{-# INLINE v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL #-} - - - --- * V1PodDisruptionBudgetStatus - --- | 'v1PodDisruptionBudgetStatusConditions' Lens -v1PodDisruptionBudgetStatusConditionsL :: Lens_' V1PodDisruptionBudgetStatus (Maybe [V1Condition]) -v1PodDisruptionBudgetStatusConditionsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusConditions -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusConditions, ..} ) <$> f v1PodDisruptionBudgetStatusConditions -{-# INLINE v1PodDisruptionBudgetStatusConditionsL #-} - --- | 'v1PodDisruptionBudgetStatusCurrentHealthy' Lens -v1PodDisruptionBudgetStatusCurrentHealthyL :: Lens_' V1PodDisruptionBudgetStatus (Int) -v1PodDisruptionBudgetStatusCurrentHealthyL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusCurrentHealthy -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusCurrentHealthy, ..} ) <$> f v1PodDisruptionBudgetStatusCurrentHealthy -{-# INLINE v1PodDisruptionBudgetStatusCurrentHealthyL #-} - --- | 'v1PodDisruptionBudgetStatusDesiredHealthy' Lens -v1PodDisruptionBudgetStatusDesiredHealthyL :: Lens_' V1PodDisruptionBudgetStatus (Int) -v1PodDisruptionBudgetStatusDesiredHealthyL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDesiredHealthy -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDesiredHealthy, ..} ) <$> f v1PodDisruptionBudgetStatusDesiredHealthy -{-# INLINE v1PodDisruptionBudgetStatusDesiredHealthyL #-} - --- | 'v1PodDisruptionBudgetStatusDisruptedPods' Lens -v1PodDisruptionBudgetStatusDisruptedPodsL :: Lens_' V1PodDisruptionBudgetStatus (Maybe (Map.Map String DateTime)) -v1PodDisruptionBudgetStatusDisruptedPodsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDisruptedPods -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDisruptedPods, ..} ) <$> f v1PodDisruptionBudgetStatusDisruptedPods -{-# INLINE v1PodDisruptionBudgetStatusDisruptedPodsL #-} - --- | 'v1PodDisruptionBudgetStatusDisruptionsAllowed' Lens -v1PodDisruptionBudgetStatusDisruptionsAllowedL :: Lens_' V1PodDisruptionBudgetStatus (Int) -v1PodDisruptionBudgetStatusDisruptionsAllowedL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDisruptionsAllowed -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDisruptionsAllowed, ..} ) <$> f v1PodDisruptionBudgetStatusDisruptionsAllowed -{-# INLINE v1PodDisruptionBudgetStatusDisruptionsAllowedL #-} - --- | 'v1PodDisruptionBudgetStatusExpectedPods' Lens -v1PodDisruptionBudgetStatusExpectedPodsL :: Lens_' V1PodDisruptionBudgetStatus (Int) -v1PodDisruptionBudgetStatusExpectedPodsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusExpectedPods -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusExpectedPods, ..} ) <$> f v1PodDisruptionBudgetStatusExpectedPods -{-# INLINE v1PodDisruptionBudgetStatusExpectedPodsL #-} - --- | 'v1PodDisruptionBudgetStatusObservedGeneration' Lens -v1PodDisruptionBudgetStatusObservedGenerationL :: Lens_' V1PodDisruptionBudgetStatus (Maybe Integer) -v1PodDisruptionBudgetStatusObservedGenerationL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusObservedGeneration -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusObservedGeneration, ..} ) <$> f v1PodDisruptionBudgetStatusObservedGeneration -{-# INLINE v1PodDisruptionBudgetStatusObservedGenerationL #-} - - - --- * V1PodFailurePolicy - --- | 'v1PodFailurePolicyRules' Lens -v1PodFailurePolicyRulesL :: Lens_' V1PodFailurePolicy ([V1PodFailurePolicyRule]) -v1PodFailurePolicyRulesL f V1PodFailurePolicy{..} = (\v1PodFailurePolicyRules -> V1PodFailurePolicy { v1PodFailurePolicyRules, ..} ) <$> f v1PodFailurePolicyRules -{-# INLINE v1PodFailurePolicyRulesL #-} - - - --- * V1PodFailurePolicyOnExitCodesRequirement - --- | 'v1PodFailurePolicyOnExitCodesRequirementContainerName' Lens -v1PodFailurePolicyOnExitCodesRequirementContainerNameL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement (Maybe Text) -v1PodFailurePolicyOnExitCodesRequirementContainerNameL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementContainerName -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementContainerName, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementContainerName -{-# INLINE v1PodFailurePolicyOnExitCodesRequirementContainerNameL #-} - --- | 'v1PodFailurePolicyOnExitCodesRequirementOperator' Lens -v1PodFailurePolicyOnExitCodesRequirementOperatorL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement (Text) -v1PodFailurePolicyOnExitCodesRequirementOperatorL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementOperator -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementOperator, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementOperator -{-# INLINE v1PodFailurePolicyOnExitCodesRequirementOperatorL #-} - --- | 'v1PodFailurePolicyOnExitCodesRequirementValues' Lens -v1PodFailurePolicyOnExitCodesRequirementValuesL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement ([Int]) -v1PodFailurePolicyOnExitCodesRequirementValuesL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementValues -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementValues, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementValues -{-# INLINE v1PodFailurePolicyOnExitCodesRequirementValuesL #-} - - - --- * V1PodFailurePolicyOnPodConditionsPattern - --- | 'v1PodFailurePolicyOnPodConditionsPatternStatus' Lens -v1PodFailurePolicyOnPodConditionsPatternStatusL :: Lens_' V1PodFailurePolicyOnPodConditionsPattern (Text) -v1PodFailurePolicyOnPodConditionsPatternStatusL f V1PodFailurePolicyOnPodConditionsPattern{..} = (\v1PodFailurePolicyOnPodConditionsPatternStatus -> V1PodFailurePolicyOnPodConditionsPattern { v1PodFailurePolicyOnPodConditionsPatternStatus, ..} ) <$> f v1PodFailurePolicyOnPodConditionsPatternStatus -{-# INLINE v1PodFailurePolicyOnPodConditionsPatternStatusL #-} - --- | 'v1PodFailurePolicyOnPodConditionsPatternType' Lens -v1PodFailurePolicyOnPodConditionsPatternTypeL :: Lens_' V1PodFailurePolicyOnPodConditionsPattern (Text) -v1PodFailurePolicyOnPodConditionsPatternTypeL f V1PodFailurePolicyOnPodConditionsPattern{..} = (\v1PodFailurePolicyOnPodConditionsPatternType -> V1PodFailurePolicyOnPodConditionsPattern { v1PodFailurePolicyOnPodConditionsPatternType, ..} ) <$> f v1PodFailurePolicyOnPodConditionsPatternType -{-# INLINE v1PodFailurePolicyOnPodConditionsPatternTypeL #-} - - - --- * V1PodFailurePolicyRule - --- | 'v1PodFailurePolicyRuleAction' Lens -v1PodFailurePolicyRuleActionL :: Lens_' V1PodFailurePolicyRule (Text) -v1PodFailurePolicyRuleActionL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleAction -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleAction, ..} ) <$> f v1PodFailurePolicyRuleAction -{-# INLINE v1PodFailurePolicyRuleActionL #-} - --- | 'v1PodFailurePolicyRuleOnExitCodes' Lens -v1PodFailurePolicyRuleOnExitCodesL :: Lens_' V1PodFailurePolicyRule (Maybe V1PodFailurePolicyOnExitCodesRequirement) -v1PodFailurePolicyRuleOnExitCodesL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleOnExitCodes -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleOnExitCodes, ..} ) <$> f v1PodFailurePolicyRuleOnExitCodes -{-# INLINE v1PodFailurePolicyRuleOnExitCodesL #-} - --- | 'v1PodFailurePolicyRuleOnPodConditions' Lens -v1PodFailurePolicyRuleOnPodConditionsL :: Lens_' V1PodFailurePolicyRule (Maybe [V1PodFailurePolicyOnPodConditionsPattern]) -v1PodFailurePolicyRuleOnPodConditionsL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleOnPodConditions -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleOnPodConditions, ..} ) <$> f v1PodFailurePolicyRuleOnPodConditions -{-# INLINE v1PodFailurePolicyRuleOnPodConditionsL #-} - - - --- * V1PodIP - --- | 'v1PodIPIp' Lens -v1PodIPIpL :: Lens_' V1PodIP (Maybe Text) -v1PodIPIpL f V1PodIP{..} = (\v1PodIPIp -> V1PodIP { v1PodIPIp, ..} ) <$> f v1PodIPIp -{-# INLINE v1PodIPIpL #-} - - - --- * V1PodList - --- | 'v1PodListApiVersion' Lens -v1PodListApiVersionL :: Lens_' V1PodList (Maybe Text) -v1PodListApiVersionL f V1PodList{..} = (\v1PodListApiVersion -> V1PodList { v1PodListApiVersion, ..} ) <$> f v1PodListApiVersion -{-# INLINE v1PodListApiVersionL #-} - --- | 'v1PodListItems' Lens -v1PodListItemsL :: Lens_' V1PodList ([V1Pod]) -v1PodListItemsL f V1PodList{..} = (\v1PodListItems -> V1PodList { v1PodListItems, ..} ) <$> f v1PodListItems -{-# INLINE v1PodListItemsL #-} - --- | 'v1PodListKind' Lens -v1PodListKindL :: Lens_' V1PodList (Maybe Text) -v1PodListKindL f V1PodList{..} = (\v1PodListKind -> V1PodList { v1PodListKind, ..} ) <$> f v1PodListKind -{-# INLINE v1PodListKindL #-} - --- | 'v1PodListMetadata' Lens -v1PodListMetadataL :: Lens_' V1PodList (Maybe V1ListMeta) -v1PodListMetadataL f V1PodList{..} = (\v1PodListMetadata -> V1PodList { v1PodListMetadata, ..} ) <$> f v1PodListMetadata -{-# INLINE v1PodListMetadataL #-} - - - --- * V1PodOS - --- | 'v1PodOSName' Lens -v1PodOSNameL :: Lens_' V1PodOS (Text) -v1PodOSNameL f V1PodOS{..} = (\v1PodOSName -> V1PodOS { v1PodOSName, ..} ) <$> f v1PodOSName -{-# INLINE v1PodOSNameL #-} - - - --- * V1PodReadinessGate - --- | 'v1PodReadinessGateConditionType' Lens -v1PodReadinessGateConditionTypeL :: Lens_' V1PodReadinessGate (Text) -v1PodReadinessGateConditionTypeL f V1PodReadinessGate{..} = (\v1PodReadinessGateConditionType -> V1PodReadinessGate { v1PodReadinessGateConditionType, ..} ) <$> f v1PodReadinessGateConditionType -{-# INLINE v1PodReadinessGateConditionTypeL #-} - - - --- * V1PodResourceClaim - --- | 'v1PodResourceClaimName' Lens -v1PodResourceClaimNameL :: Lens_' V1PodResourceClaim (Text) -v1PodResourceClaimNameL f V1PodResourceClaim{..} = (\v1PodResourceClaimName -> V1PodResourceClaim { v1PodResourceClaimName, ..} ) <$> f v1PodResourceClaimName -{-# INLINE v1PodResourceClaimNameL #-} - --- | 'v1PodResourceClaimSource' Lens -v1PodResourceClaimSourceL :: Lens_' V1PodResourceClaim (Maybe V1ClaimSource) -v1PodResourceClaimSourceL f V1PodResourceClaim{..} = (\v1PodResourceClaimSource -> V1PodResourceClaim { v1PodResourceClaimSource, ..} ) <$> f v1PodResourceClaimSource -{-# INLINE v1PodResourceClaimSourceL #-} - - - --- * V1PodSchedulingGate - --- | 'v1PodSchedulingGateName' Lens -v1PodSchedulingGateNameL :: Lens_' V1PodSchedulingGate (Text) -v1PodSchedulingGateNameL f V1PodSchedulingGate{..} = (\v1PodSchedulingGateName -> V1PodSchedulingGate { v1PodSchedulingGateName, ..} ) <$> f v1PodSchedulingGateName -{-# INLINE v1PodSchedulingGateNameL #-} - - - --- * V1PodSecurityContext - --- | 'v1PodSecurityContextFsGroup' Lens -v1PodSecurityContextFsGroupL :: Lens_' V1PodSecurityContext (Maybe Integer) -v1PodSecurityContextFsGroupL f V1PodSecurityContext{..} = (\v1PodSecurityContextFsGroup -> V1PodSecurityContext { v1PodSecurityContextFsGroup, ..} ) <$> f v1PodSecurityContextFsGroup -{-# INLINE v1PodSecurityContextFsGroupL #-} - --- | 'v1PodSecurityContextFsGroupChangePolicy' Lens -v1PodSecurityContextFsGroupChangePolicyL :: Lens_' V1PodSecurityContext (Maybe Text) -v1PodSecurityContextFsGroupChangePolicyL f V1PodSecurityContext{..} = (\v1PodSecurityContextFsGroupChangePolicy -> V1PodSecurityContext { v1PodSecurityContextFsGroupChangePolicy, ..} ) <$> f v1PodSecurityContextFsGroupChangePolicy -{-# INLINE v1PodSecurityContextFsGroupChangePolicyL #-} - --- | 'v1PodSecurityContextRunAsGroup' Lens -v1PodSecurityContextRunAsGroupL :: Lens_' V1PodSecurityContext (Maybe Integer) -v1PodSecurityContextRunAsGroupL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsGroup -> V1PodSecurityContext { v1PodSecurityContextRunAsGroup, ..} ) <$> f v1PodSecurityContextRunAsGroup -{-# INLINE v1PodSecurityContextRunAsGroupL #-} - --- | 'v1PodSecurityContextRunAsNonRoot' Lens -v1PodSecurityContextRunAsNonRootL :: Lens_' V1PodSecurityContext (Maybe Bool) -v1PodSecurityContextRunAsNonRootL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsNonRoot -> V1PodSecurityContext { v1PodSecurityContextRunAsNonRoot, ..} ) <$> f v1PodSecurityContextRunAsNonRoot -{-# INLINE v1PodSecurityContextRunAsNonRootL #-} - --- | 'v1PodSecurityContextRunAsUser' Lens -v1PodSecurityContextRunAsUserL :: Lens_' V1PodSecurityContext (Maybe Integer) -v1PodSecurityContextRunAsUserL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsUser -> V1PodSecurityContext { v1PodSecurityContextRunAsUser, ..} ) <$> f v1PodSecurityContextRunAsUser -{-# INLINE v1PodSecurityContextRunAsUserL #-} - --- | 'v1PodSecurityContextSeLinuxOptions' Lens -v1PodSecurityContextSeLinuxOptionsL :: Lens_' V1PodSecurityContext (Maybe V1SELinuxOptions) -v1PodSecurityContextSeLinuxOptionsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSeLinuxOptions -> V1PodSecurityContext { v1PodSecurityContextSeLinuxOptions, ..} ) <$> f v1PodSecurityContextSeLinuxOptions -{-# INLINE v1PodSecurityContextSeLinuxOptionsL #-} - --- | 'v1PodSecurityContextSeccompProfile' Lens -v1PodSecurityContextSeccompProfileL :: Lens_' V1PodSecurityContext (Maybe V1SeccompProfile) -v1PodSecurityContextSeccompProfileL f V1PodSecurityContext{..} = (\v1PodSecurityContextSeccompProfile -> V1PodSecurityContext { v1PodSecurityContextSeccompProfile, ..} ) <$> f v1PodSecurityContextSeccompProfile -{-# INLINE v1PodSecurityContextSeccompProfileL #-} - --- | 'v1PodSecurityContextSupplementalGroups' Lens -v1PodSecurityContextSupplementalGroupsL :: Lens_' V1PodSecurityContext (Maybe [Integer]) -v1PodSecurityContextSupplementalGroupsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSupplementalGroups -> V1PodSecurityContext { v1PodSecurityContextSupplementalGroups, ..} ) <$> f v1PodSecurityContextSupplementalGroups -{-# INLINE v1PodSecurityContextSupplementalGroupsL #-} - --- | 'v1PodSecurityContextSysctls' Lens -v1PodSecurityContextSysctlsL :: Lens_' V1PodSecurityContext (Maybe [V1Sysctl]) -v1PodSecurityContextSysctlsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSysctls -> V1PodSecurityContext { v1PodSecurityContextSysctls, ..} ) <$> f v1PodSecurityContextSysctls -{-# INLINE v1PodSecurityContextSysctlsL #-} - --- | 'v1PodSecurityContextWindowsOptions' Lens -v1PodSecurityContextWindowsOptionsL :: Lens_' V1PodSecurityContext (Maybe V1WindowsSecurityContextOptions) -v1PodSecurityContextWindowsOptionsL f V1PodSecurityContext{..} = (\v1PodSecurityContextWindowsOptions -> V1PodSecurityContext { v1PodSecurityContextWindowsOptions, ..} ) <$> f v1PodSecurityContextWindowsOptions -{-# INLINE v1PodSecurityContextWindowsOptionsL #-} - - - --- * V1PodSpec - --- | 'v1PodSpecActiveDeadlineSeconds' Lens -v1PodSpecActiveDeadlineSecondsL :: Lens_' V1PodSpec (Maybe Integer) -v1PodSpecActiveDeadlineSecondsL f V1PodSpec{..} = (\v1PodSpecActiveDeadlineSeconds -> V1PodSpec { v1PodSpecActiveDeadlineSeconds, ..} ) <$> f v1PodSpecActiveDeadlineSeconds -{-# INLINE v1PodSpecActiveDeadlineSecondsL #-} - --- | 'v1PodSpecAffinity' Lens -v1PodSpecAffinityL :: Lens_' V1PodSpec (Maybe V1Affinity) -v1PodSpecAffinityL f V1PodSpec{..} = (\v1PodSpecAffinity -> V1PodSpec { v1PodSpecAffinity, ..} ) <$> f v1PodSpecAffinity -{-# INLINE v1PodSpecAffinityL #-} - --- | 'v1PodSpecAutomountServiceAccountToken' Lens -v1PodSpecAutomountServiceAccountTokenL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecAutomountServiceAccountTokenL f V1PodSpec{..} = (\v1PodSpecAutomountServiceAccountToken -> V1PodSpec { v1PodSpecAutomountServiceAccountToken, ..} ) <$> f v1PodSpecAutomountServiceAccountToken -{-# INLINE v1PodSpecAutomountServiceAccountTokenL #-} - --- | 'v1PodSpecContainers' Lens -v1PodSpecContainersL :: Lens_' V1PodSpec ([V1Container]) -v1PodSpecContainersL f V1PodSpec{..} = (\v1PodSpecContainers -> V1PodSpec { v1PodSpecContainers, ..} ) <$> f v1PodSpecContainers -{-# INLINE v1PodSpecContainersL #-} - --- | 'v1PodSpecDnsConfig' Lens -v1PodSpecDnsConfigL :: Lens_' V1PodSpec (Maybe V1PodDNSConfig) -v1PodSpecDnsConfigL f V1PodSpec{..} = (\v1PodSpecDnsConfig -> V1PodSpec { v1PodSpecDnsConfig, ..} ) <$> f v1PodSpecDnsConfig -{-# INLINE v1PodSpecDnsConfigL #-} - --- | 'v1PodSpecDnsPolicy' Lens -v1PodSpecDnsPolicyL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecDnsPolicyL f V1PodSpec{..} = (\v1PodSpecDnsPolicy -> V1PodSpec { v1PodSpecDnsPolicy, ..} ) <$> f v1PodSpecDnsPolicy -{-# INLINE v1PodSpecDnsPolicyL #-} - --- | 'v1PodSpecEnableServiceLinks' Lens -v1PodSpecEnableServiceLinksL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecEnableServiceLinksL f V1PodSpec{..} = (\v1PodSpecEnableServiceLinks -> V1PodSpec { v1PodSpecEnableServiceLinks, ..} ) <$> f v1PodSpecEnableServiceLinks -{-# INLINE v1PodSpecEnableServiceLinksL #-} - --- | 'v1PodSpecEphemeralContainers' Lens -v1PodSpecEphemeralContainersL :: Lens_' V1PodSpec (Maybe [V1EphemeralContainer]) -v1PodSpecEphemeralContainersL f V1PodSpec{..} = (\v1PodSpecEphemeralContainers -> V1PodSpec { v1PodSpecEphemeralContainers, ..} ) <$> f v1PodSpecEphemeralContainers -{-# INLINE v1PodSpecEphemeralContainersL #-} - --- | 'v1PodSpecHostAliases' Lens -v1PodSpecHostAliasesL :: Lens_' V1PodSpec (Maybe [V1HostAlias]) -v1PodSpecHostAliasesL f V1PodSpec{..} = (\v1PodSpecHostAliases -> V1PodSpec { v1PodSpecHostAliases, ..} ) <$> f v1PodSpecHostAliases -{-# INLINE v1PodSpecHostAliasesL #-} - --- | 'v1PodSpecHostIpc' Lens -v1PodSpecHostIpcL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecHostIpcL f V1PodSpec{..} = (\v1PodSpecHostIpc -> V1PodSpec { v1PodSpecHostIpc, ..} ) <$> f v1PodSpecHostIpc -{-# INLINE v1PodSpecHostIpcL #-} - --- | 'v1PodSpecHostNetwork' Lens -v1PodSpecHostNetworkL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecHostNetworkL f V1PodSpec{..} = (\v1PodSpecHostNetwork -> V1PodSpec { v1PodSpecHostNetwork, ..} ) <$> f v1PodSpecHostNetwork -{-# INLINE v1PodSpecHostNetworkL #-} - --- | 'v1PodSpecHostPid' Lens -v1PodSpecHostPidL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecHostPidL f V1PodSpec{..} = (\v1PodSpecHostPid -> V1PodSpec { v1PodSpecHostPid, ..} ) <$> f v1PodSpecHostPid -{-# INLINE v1PodSpecHostPidL #-} - --- | 'v1PodSpecHostUsers' Lens -v1PodSpecHostUsersL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecHostUsersL f V1PodSpec{..} = (\v1PodSpecHostUsers -> V1PodSpec { v1PodSpecHostUsers, ..} ) <$> f v1PodSpecHostUsers -{-# INLINE v1PodSpecHostUsersL #-} - --- | 'v1PodSpecHostname' Lens -v1PodSpecHostnameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecHostnameL f V1PodSpec{..} = (\v1PodSpecHostname -> V1PodSpec { v1PodSpecHostname, ..} ) <$> f v1PodSpecHostname -{-# INLINE v1PodSpecHostnameL #-} - --- | 'v1PodSpecImagePullSecrets' Lens -v1PodSpecImagePullSecretsL :: Lens_' V1PodSpec (Maybe [V1LocalObjectReference]) -v1PodSpecImagePullSecretsL f V1PodSpec{..} = (\v1PodSpecImagePullSecrets -> V1PodSpec { v1PodSpecImagePullSecrets, ..} ) <$> f v1PodSpecImagePullSecrets -{-# INLINE v1PodSpecImagePullSecretsL #-} - --- | 'v1PodSpecInitContainers' Lens -v1PodSpecInitContainersL :: Lens_' V1PodSpec (Maybe [V1Container]) -v1PodSpecInitContainersL f V1PodSpec{..} = (\v1PodSpecInitContainers -> V1PodSpec { v1PodSpecInitContainers, ..} ) <$> f v1PodSpecInitContainers -{-# INLINE v1PodSpecInitContainersL #-} - --- | 'v1PodSpecNodeName' Lens -v1PodSpecNodeNameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecNodeNameL f V1PodSpec{..} = (\v1PodSpecNodeName -> V1PodSpec { v1PodSpecNodeName, ..} ) <$> f v1PodSpecNodeName -{-# INLINE v1PodSpecNodeNameL #-} - --- | 'v1PodSpecNodeSelector' Lens -v1PodSpecNodeSelectorL :: Lens_' V1PodSpec (Maybe (Map.Map String Text)) -v1PodSpecNodeSelectorL f V1PodSpec{..} = (\v1PodSpecNodeSelector -> V1PodSpec { v1PodSpecNodeSelector, ..} ) <$> f v1PodSpecNodeSelector -{-# INLINE v1PodSpecNodeSelectorL #-} - --- | 'v1PodSpecOs' Lens -v1PodSpecOsL :: Lens_' V1PodSpec (Maybe V1PodOS) -v1PodSpecOsL f V1PodSpec{..} = (\v1PodSpecOs -> V1PodSpec { v1PodSpecOs, ..} ) <$> f v1PodSpecOs -{-# INLINE v1PodSpecOsL #-} - --- | 'v1PodSpecOverhead' Lens -v1PodSpecOverheadL :: Lens_' V1PodSpec (Maybe (Map.Map String Quantity)) -v1PodSpecOverheadL f V1PodSpec{..} = (\v1PodSpecOverhead -> V1PodSpec { v1PodSpecOverhead, ..} ) <$> f v1PodSpecOverhead -{-# INLINE v1PodSpecOverheadL #-} - --- | 'v1PodSpecPreemptionPolicy' Lens -v1PodSpecPreemptionPolicyL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecPreemptionPolicyL f V1PodSpec{..} = (\v1PodSpecPreemptionPolicy -> V1PodSpec { v1PodSpecPreemptionPolicy, ..} ) <$> f v1PodSpecPreemptionPolicy -{-# INLINE v1PodSpecPreemptionPolicyL #-} - --- | 'v1PodSpecPriority' Lens -v1PodSpecPriorityL :: Lens_' V1PodSpec (Maybe Int) -v1PodSpecPriorityL f V1PodSpec{..} = (\v1PodSpecPriority -> V1PodSpec { v1PodSpecPriority, ..} ) <$> f v1PodSpecPriority -{-# INLINE v1PodSpecPriorityL #-} - --- | 'v1PodSpecPriorityClassName' Lens -v1PodSpecPriorityClassNameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecPriorityClassNameL f V1PodSpec{..} = (\v1PodSpecPriorityClassName -> V1PodSpec { v1PodSpecPriorityClassName, ..} ) <$> f v1PodSpecPriorityClassName -{-# INLINE v1PodSpecPriorityClassNameL #-} - --- | 'v1PodSpecReadinessGates' Lens -v1PodSpecReadinessGatesL :: Lens_' V1PodSpec (Maybe [V1PodReadinessGate]) -v1PodSpecReadinessGatesL f V1PodSpec{..} = (\v1PodSpecReadinessGates -> V1PodSpec { v1PodSpecReadinessGates, ..} ) <$> f v1PodSpecReadinessGates -{-# INLINE v1PodSpecReadinessGatesL #-} - --- | 'v1PodSpecResourceClaims' Lens -v1PodSpecResourceClaimsL :: Lens_' V1PodSpec (Maybe [V1PodResourceClaim]) -v1PodSpecResourceClaimsL f V1PodSpec{..} = (\v1PodSpecResourceClaims -> V1PodSpec { v1PodSpecResourceClaims, ..} ) <$> f v1PodSpecResourceClaims -{-# INLINE v1PodSpecResourceClaimsL #-} - --- | 'v1PodSpecRestartPolicy' Lens -v1PodSpecRestartPolicyL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecRestartPolicyL f V1PodSpec{..} = (\v1PodSpecRestartPolicy -> V1PodSpec { v1PodSpecRestartPolicy, ..} ) <$> f v1PodSpecRestartPolicy -{-# INLINE v1PodSpecRestartPolicyL #-} - --- | 'v1PodSpecRuntimeClassName' Lens -v1PodSpecRuntimeClassNameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecRuntimeClassNameL f V1PodSpec{..} = (\v1PodSpecRuntimeClassName -> V1PodSpec { v1PodSpecRuntimeClassName, ..} ) <$> f v1PodSpecRuntimeClassName -{-# INLINE v1PodSpecRuntimeClassNameL #-} - --- | 'v1PodSpecSchedulerName' Lens -v1PodSpecSchedulerNameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecSchedulerNameL f V1PodSpec{..} = (\v1PodSpecSchedulerName -> V1PodSpec { v1PodSpecSchedulerName, ..} ) <$> f v1PodSpecSchedulerName -{-# INLINE v1PodSpecSchedulerNameL #-} - --- | 'v1PodSpecSchedulingGates' Lens -v1PodSpecSchedulingGatesL :: Lens_' V1PodSpec (Maybe [V1PodSchedulingGate]) -v1PodSpecSchedulingGatesL f V1PodSpec{..} = (\v1PodSpecSchedulingGates -> V1PodSpec { v1PodSpecSchedulingGates, ..} ) <$> f v1PodSpecSchedulingGates -{-# INLINE v1PodSpecSchedulingGatesL #-} - --- | 'v1PodSpecSecurityContext' Lens -v1PodSpecSecurityContextL :: Lens_' V1PodSpec (Maybe V1PodSecurityContext) -v1PodSpecSecurityContextL f V1PodSpec{..} = (\v1PodSpecSecurityContext -> V1PodSpec { v1PodSpecSecurityContext, ..} ) <$> f v1PodSpecSecurityContext -{-# INLINE v1PodSpecSecurityContextL #-} - --- | 'v1PodSpecServiceAccount' Lens -v1PodSpecServiceAccountL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecServiceAccountL f V1PodSpec{..} = (\v1PodSpecServiceAccount -> V1PodSpec { v1PodSpecServiceAccount, ..} ) <$> f v1PodSpecServiceAccount -{-# INLINE v1PodSpecServiceAccountL #-} - --- | 'v1PodSpecServiceAccountName' Lens -v1PodSpecServiceAccountNameL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecServiceAccountNameL f V1PodSpec{..} = (\v1PodSpecServiceAccountName -> V1PodSpec { v1PodSpecServiceAccountName, ..} ) <$> f v1PodSpecServiceAccountName -{-# INLINE v1PodSpecServiceAccountNameL #-} - --- | 'v1PodSpecSetHostnameAsFqdn' Lens -v1PodSpecSetHostnameAsFqdnL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecSetHostnameAsFqdnL f V1PodSpec{..} = (\v1PodSpecSetHostnameAsFqdn -> V1PodSpec { v1PodSpecSetHostnameAsFqdn, ..} ) <$> f v1PodSpecSetHostnameAsFqdn -{-# INLINE v1PodSpecSetHostnameAsFqdnL #-} - --- | 'v1PodSpecShareProcessNamespace' Lens -v1PodSpecShareProcessNamespaceL :: Lens_' V1PodSpec (Maybe Bool) -v1PodSpecShareProcessNamespaceL f V1PodSpec{..} = (\v1PodSpecShareProcessNamespace -> V1PodSpec { v1PodSpecShareProcessNamespace, ..} ) <$> f v1PodSpecShareProcessNamespace -{-# INLINE v1PodSpecShareProcessNamespaceL #-} - --- | 'v1PodSpecSubdomain' Lens -v1PodSpecSubdomainL :: Lens_' V1PodSpec (Maybe Text) -v1PodSpecSubdomainL f V1PodSpec{..} = (\v1PodSpecSubdomain -> V1PodSpec { v1PodSpecSubdomain, ..} ) <$> f v1PodSpecSubdomain -{-# INLINE v1PodSpecSubdomainL #-} - --- | 'v1PodSpecTerminationGracePeriodSeconds' Lens -v1PodSpecTerminationGracePeriodSecondsL :: Lens_' V1PodSpec (Maybe Integer) -v1PodSpecTerminationGracePeriodSecondsL f V1PodSpec{..} = (\v1PodSpecTerminationGracePeriodSeconds -> V1PodSpec { v1PodSpecTerminationGracePeriodSeconds, ..} ) <$> f v1PodSpecTerminationGracePeriodSeconds -{-# INLINE v1PodSpecTerminationGracePeriodSecondsL #-} - --- | 'v1PodSpecTolerations' Lens -v1PodSpecTolerationsL :: Lens_' V1PodSpec (Maybe [V1Toleration]) -v1PodSpecTolerationsL f V1PodSpec{..} = (\v1PodSpecTolerations -> V1PodSpec { v1PodSpecTolerations, ..} ) <$> f v1PodSpecTolerations -{-# INLINE v1PodSpecTolerationsL #-} - --- | 'v1PodSpecTopologySpreadConstraints' Lens -v1PodSpecTopologySpreadConstraintsL :: Lens_' V1PodSpec (Maybe [V1TopologySpreadConstraint]) -v1PodSpecTopologySpreadConstraintsL f V1PodSpec{..} = (\v1PodSpecTopologySpreadConstraints -> V1PodSpec { v1PodSpecTopologySpreadConstraints, ..} ) <$> f v1PodSpecTopologySpreadConstraints -{-# INLINE v1PodSpecTopologySpreadConstraintsL #-} - --- | 'v1PodSpecVolumes' Lens -v1PodSpecVolumesL :: Lens_' V1PodSpec (Maybe [V1Volume]) -v1PodSpecVolumesL f V1PodSpec{..} = (\v1PodSpecVolumes -> V1PodSpec { v1PodSpecVolumes, ..} ) <$> f v1PodSpecVolumes -{-# INLINE v1PodSpecVolumesL #-} - - - --- * V1PodStatus - --- | 'v1PodStatusConditions' Lens -v1PodStatusConditionsL :: Lens_' V1PodStatus (Maybe [V1PodCondition]) -v1PodStatusConditionsL f V1PodStatus{..} = (\v1PodStatusConditions -> V1PodStatus { v1PodStatusConditions, ..} ) <$> f v1PodStatusConditions -{-# INLINE v1PodStatusConditionsL #-} - --- | 'v1PodStatusContainerStatuses' Lens -v1PodStatusContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) -v1PodStatusContainerStatusesL f V1PodStatus{..} = (\v1PodStatusContainerStatuses -> V1PodStatus { v1PodStatusContainerStatuses, ..} ) <$> f v1PodStatusContainerStatuses -{-# INLINE v1PodStatusContainerStatusesL #-} - --- | 'v1PodStatusEphemeralContainerStatuses' Lens -v1PodStatusEphemeralContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) -v1PodStatusEphemeralContainerStatusesL f V1PodStatus{..} = (\v1PodStatusEphemeralContainerStatuses -> V1PodStatus { v1PodStatusEphemeralContainerStatuses, ..} ) <$> f v1PodStatusEphemeralContainerStatuses -{-# INLINE v1PodStatusEphemeralContainerStatusesL #-} - --- | 'v1PodStatusHostIp' Lens -v1PodStatusHostIpL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusHostIpL f V1PodStatus{..} = (\v1PodStatusHostIp -> V1PodStatus { v1PodStatusHostIp, ..} ) <$> f v1PodStatusHostIp -{-# INLINE v1PodStatusHostIpL #-} - --- | 'v1PodStatusInitContainerStatuses' Lens -v1PodStatusInitContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) -v1PodStatusInitContainerStatusesL f V1PodStatus{..} = (\v1PodStatusInitContainerStatuses -> V1PodStatus { v1PodStatusInitContainerStatuses, ..} ) <$> f v1PodStatusInitContainerStatuses -{-# INLINE v1PodStatusInitContainerStatusesL #-} - --- | 'v1PodStatusMessage' Lens -v1PodStatusMessageL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusMessageL f V1PodStatus{..} = (\v1PodStatusMessage -> V1PodStatus { v1PodStatusMessage, ..} ) <$> f v1PodStatusMessage -{-# INLINE v1PodStatusMessageL #-} - --- | 'v1PodStatusNominatedNodeName' Lens -v1PodStatusNominatedNodeNameL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusNominatedNodeNameL f V1PodStatus{..} = (\v1PodStatusNominatedNodeName -> V1PodStatus { v1PodStatusNominatedNodeName, ..} ) <$> f v1PodStatusNominatedNodeName -{-# INLINE v1PodStatusNominatedNodeNameL #-} - --- | 'v1PodStatusPhase' Lens -v1PodStatusPhaseL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusPhaseL f V1PodStatus{..} = (\v1PodStatusPhase -> V1PodStatus { v1PodStatusPhase, ..} ) <$> f v1PodStatusPhase -{-# INLINE v1PodStatusPhaseL #-} - --- | 'v1PodStatusPodIp' Lens -v1PodStatusPodIpL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusPodIpL f V1PodStatus{..} = (\v1PodStatusPodIp -> V1PodStatus { v1PodStatusPodIp, ..} ) <$> f v1PodStatusPodIp -{-# INLINE v1PodStatusPodIpL #-} - --- | 'v1PodStatusPodIps' Lens -v1PodStatusPodIpsL :: Lens_' V1PodStatus (Maybe [V1PodIP]) -v1PodStatusPodIpsL f V1PodStatus{..} = (\v1PodStatusPodIps -> V1PodStatus { v1PodStatusPodIps, ..} ) <$> f v1PodStatusPodIps -{-# INLINE v1PodStatusPodIpsL #-} - --- | 'v1PodStatusQosClass' Lens -v1PodStatusQosClassL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusQosClassL f V1PodStatus{..} = (\v1PodStatusQosClass -> V1PodStatus { v1PodStatusQosClass, ..} ) <$> f v1PodStatusQosClass -{-# INLINE v1PodStatusQosClassL #-} - --- | 'v1PodStatusReason' Lens -v1PodStatusReasonL :: Lens_' V1PodStatus (Maybe Text) -v1PodStatusReasonL f V1PodStatus{..} = (\v1PodStatusReason -> V1PodStatus { v1PodStatusReason, ..} ) <$> f v1PodStatusReason -{-# INLINE v1PodStatusReasonL #-} - --- | 'v1PodStatusStartTime' Lens -v1PodStatusStartTimeL :: Lens_' V1PodStatus (Maybe DateTime) -v1PodStatusStartTimeL f V1PodStatus{..} = (\v1PodStatusStartTime -> V1PodStatus { v1PodStatusStartTime, ..} ) <$> f v1PodStatusStartTime -{-# INLINE v1PodStatusStartTimeL #-} - - - --- * V1PodTemplate - --- | 'v1PodTemplateApiVersion' Lens -v1PodTemplateApiVersionL :: Lens_' V1PodTemplate (Maybe Text) -v1PodTemplateApiVersionL f V1PodTemplate{..} = (\v1PodTemplateApiVersion -> V1PodTemplate { v1PodTemplateApiVersion, ..} ) <$> f v1PodTemplateApiVersion -{-# INLINE v1PodTemplateApiVersionL #-} - --- | 'v1PodTemplateKind' Lens -v1PodTemplateKindL :: Lens_' V1PodTemplate (Maybe Text) -v1PodTemplateKindL f V1PodTemplate{..} = (\v1PodTemplateKind -> V1PodTemplate { v1PodTemplateKind, ..} ) <$> f v1PodTemplateKind -{-# INLINE v1PodTemplateKindL #-} - --- | 'v1PodTemplateMetadata' Lens -v1PodTemplateMetadataL :: Lens_' V1PodTemplate (Maybe V1ObjectMeta) -v1PodTemplateMetadataL f V1PodTemplate{..} = (\v1PodTemplateMetadata -> V1PodTemplate { v1PodTemplateMetadata, ..} ) <$> f v1PodTemplateMetadata -{-# INLINE v1PodTemplateMetadataL #-} - --- | 'v1PodTemplateTemplate' Lens -v1PodTemplateTemplateL :: Lens_' V1PodTemplate (Maybe V1PodTemplateSpec) -v1PodTemplateTemplateL f V1PodTemplate{..} = (\v1PodTemplateTemplate -> V1PodTemplate { v1PodTemplateTemplate, ..} ) <$> f v1PodTemplateTemplate -{-# INLINE v1PodTemplateTemplateL #-} - - - --- * V1PodTemplateList - --- | 'v1PodTemplateListApiVersion' Lens -v1PodTemplateListApiVersionL :: Lens_' V1PodTemplateList (Maybe Text) -v1PodTemplateListApiVersionL f V1PodTemplateList{..} = (\v1PodTemplateListApiVersion -> V1PodTemplateList { v1PodTemplateListApiVersion, ..} ) <$> f v1PodTemplateListApiVersion -{-# INLINE v1PodTemplateListApiVersionL #-} - --- | 'v1PodTemplateListItems' Lens -v1PodTemplateListItemsL :: Lens_' V1PodTemplateList ([V1PodTemplate]) -v1PodTemplateListItemsL f V1PodTemplateList{..} = (\v1PodTemplateListItems -> V1PodTemplateList { v1PodTemplateListItems, ..} ) <$> f v1PodTemplateListItems -{-# INLINE v1PodTemplateListItemsL #-} - --- | 'v1PodTemplateListKind' Lens -v1PodTemplateListKindL :: Lens_' V1PodTemplateList (Maybe Text) -v1PodTemplateListKindL f V1PodTemplateList{..} = (\v1PodTemplateListKind -> V1PodTemplateList { v1PodTemplateListKind, ..} ) <$> f v1PodTemplateListKind -{-# INLINE v1PodTemplateListKindL #-} - --- | 'v1PodTemplateListMetadata' Lens -v1PodTemplateListMetadataL :: Lens_' V1PodTemplateList (Maybe V1ListMeta) -v1PodTemplateListMetadataL f V1PodTemplateList{..} = (\v1PodTemplateListMetadata -> V1PodTemplateList { v1PodTemplateListMetadata, ..} ) <$> f v1PodTemplateListMetadata -{-# INLINE v1PodTemplateListMetadataL #-} - - - --- * V1PodTemplateSpec - --- | 'v1PodTemplateSpecMetadata' Lens -v1PodTemplateSpecMetadataL :: Lens_' V1PodTemplateSpec (Maybe V1ObjectMeta) -v1PodTemplateSpecMetadataL f V1PodTemplateSpec{..} = (\v1PodTemplateSpecMetadata -> V1PodTemplateSpec { v1PodTemplateSpecMetadata, ..} ) <$> f v1PodTemplateSpecMetadata -{-# INLINE v1PodTemplateSpecMetadataL #-} - --- | 'v1PodTemplateSpecSpec' Lens -v1PodTemplateSpecSpecL :: Lens_' V1PodTemplateSpec (Maybe V1PodSpec) -v1PodTemplateSpecSpecL f V1PodTemplateSpec{..} = (\v1PodTemplateSpecSpec -> V1PodTemplateSpec { v1PodTemplateSpecSpec, ..} ) <$> f v1PodTemplateSpecSpec -{-# INLINE v1PodTemplateSpecSpecL #-} - - - --- * V1PolicyRule - --- | 'v1PolicyRuleApiGroups' Lens -v1PolicyRuleApiGroupsL :: Lens_' V1PolicyRule (Maybe [Text]) -v1PolicyRuleApiGroupsL f V1PolicyRule{..} = (\v1PolicyRuleApiGroups -> V1PolicyRule { v1PolicyRuleApiGroups, ..} ) <$> f v1PolicyRuleApiGroups -{-# INLINE v1PolicyRuleApiGroupsL #-} - --- | 'v1PolicyRuleNonResourceUrls' Lens -v1PolicyRuleNonResourceUrlsL :: Lens_' V1PolicyRule (Maybe [Text]) -v1PolicyRuleNonResourceUrlsL f V1PolicyRule{..} = (\v1PolicyRuleNonResourceUrls -> V1PolicyRule { v1PolicyRuleNonResourceUrls, ..} ) <$> f v1PolicyRuleNonResourceUrls -{-# INLINE v1PolicyRuleNonResourceUrlsL #-} - --- | 'v1PolicyRuleResourceNames' Lens -v1PolicyRuleResourceNamesL :: Lens_' V1PolicyRule (Maybe [Text]) -v1PolicyRuleResourceNamesL f V1PolicyRule{..} = (\v1PolicyRuleResourceNames -> V1PolicyRule { v1PolicyRuleResourceNames, ..} ) <$> f v1PolicyRuleResourceNames -{-# INLINE v1PolicyRuleResourceNamesL #-} - --- | 'v1PolicyRuleResources' Lens -v1PolicyRuleResourcesL :: Lens_' V1PolicyRule (Maybe [Text]) -v1PolicyRuleResourcesL f V1PolicyRule{..} = (\v1PolicyRuleResources -> V1PolicyRule { v1PolicyRuleResources, ..} ) <$> f v1PolicyRuleResources -{-# INLINE v1PolicyRuleResourcesL #-} - --- | 'v1PolicyRuleVerbs' Lens -v1PolicyRuleVerbsL :: Lens_' V1PolicyRule ([Text]) -v1PolicyRuleVerbsL f V1PolicyRule{..} = (\v1PolicyRuleVerbs -> V1PolicyRule { v1PolicyRuleVerbs, ..} ) <$> f v1PolicyRuleVerbs -{-# INLINE v1PolicyRuleVerbsL #-} - - - --- * V1PortStatus - --- | 'v1PortStatusError' Lens -v1PortStatusErrorL :: Lens_' V1PortStatus (Maybe Text) -v1PortStatusErrorL f V1PortStatus{..} = (\v1PortStatusError -> V1PortStatus { v1PortStatusError, ..} ) <$> f v1PortStatusError -{-# INLINE v1PortStatusErrorL #-} - --- | 'v1PortStatusPort' Lens -v1PortStatusPortL :: Lens_' V1PortStatus (Int) -v1PortStatusPortL f V1PortStatus{..} = (\v1PortStatusPort -> V1PortStatus { v1PortStatusPort, ..} ) <$> f v1PortStatusPort -{-# INLINE v1PortStatusPortL #-} - --- | 'v1PortStatusProtocol' Lens -v1PortStatusProtocolL :: Lens_' V1PortStatus (Text) -v1PortStatusProtocolL f V1PortStatus{..} = (\v1PortStatusProtocol -> V1PortStatus { v1PortStatusProtocol, ..} ) <$> f v1PortStatusProtocol -{-# INLINE v1PortStatusProtocolL #-} - - - --- * V1PortworxVolumeSource - --- | 'v1PortworxVolumeSourceFsType' Lens -v1PortworxVolumeSourceFsTypeL :: Lens_' V1PortworxVolumeSource (Maybe Text) -v1PortworxVolumeSourceFsTypeL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceFsType -> V1PortworxVolumeSource { v1PortworxVolumeSourceFsType, ..} ) <$> f v1PortworxVolumeSourceFsType -{-# INLINE v1PortworxVolumeSourceFsTypeL #-} - --- | 'v1PortworxVolumeSourceReadOnly' Lens -v1PortworxVolumeSourceReadOnlyL :: Lens_' V1PortworxVolumeSource (Maybe Bool) -v1PortworxVolumeSourceReadOnlyL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceReadOnly -> V1PortworxVolumeSource { v1PortworxVolumeSourceReadOnly, ..} ) <$> f v1PortworxVolumeSourceReadOnly -{-# INLINE v1PortworxVolumeSourceReadOnlyL #-} - --- | 'v1PortworxVolumeSourceVolumeId' Lens -v1PortworxVolumeSourceVolumeIdL :: Lens_' V1PortworxVolumeSource (Text) -v1PortworxVolumeSourceVolumeIdL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceVolumeId -> V1PortworxVolumeSource { v1PortworxVolumeSourceVolumeId, ..} ) <$> f v1PortworxVolumeSourceVolumeId -{-# INLINE v1PortworxVolumeSourceVolumeIdL #-} - - - --- * V1Preconditions - --- | 'v1PreconditionsResourceVersion' Lens -v1PreconditionsResourceVersionL :: Lens_' V1Preconditions (Maybe Text) -v1PreconditionsResourceVersionL f V1Preconditions{..} = (\v1PreconditionsResourceVersion -> V1Preconditions { v1PreconditionsResourceVersion, ..} ) <$> f v1PreconditionsResourceVersion -{-# INLINE v1PreconditionsResourceVersionL #-} - --- | 'v1PreconditionsUid' Lens -v1PreconditionsUidL :: Lens_' V1Preconditions (Maybe Text) -v1PreconditionsUidL f V1Preconditions{..} = (\v1PreconditionsUid -> V1Preconditions { v1PreconditionsUid, ..} ) <$> f v1PreconditionsUid -{-# INLINE v1PreconditionsUidL #-} - - - --- * V1PreferredSchedulingTerm - --- | 'v1PreferredSchedulingTermPreference' Lens -v1PreferredSchedulingTermPreferenceL :: Lens_' V1PreferredSchedulingTerm (V1NodeSelectorTerm) -v1PreferredSchedulingTermPreferenceL f V1PreferredSchedulingTerm{..} = (\v1PreferredSchedulingTermPreference -> V1PreferredSchedulingTerm { v1PreferredSchedulingTermPreference, ..} ) <$> f v1PreferredSchedulingTermPreference -{-# INLINE v1PreferredSchedulingTermPreferenceL #-} - --- | 'v1PreferredSchedulingTermWeight' Lens -v1PreferredSchedulingTermWeightL :: Lens_' V1PreferredSchedulingTerm (Int) -v1PreferredSchedulingTermWeightL f V1PreferredSchedulingTerm{..} = (\v1PreferredSchedulingTermWeight -> V1PreferredSchedulingTerm { v1PreferredSchedulingTermWeight, ..} ) <$> f v1PreferredSchedulingTermWeight -{-# INLINE v1PreferredSchedulingTermWeightL #-} - - - --- * V1PriorityClass - --- | 'v1PriorityClassApiVersion' Lens -v1PriorityClassApiVersionL :: Lens_' V1PriorityClass (Maybe Text) -v1PriorityClassApiVersionL f V1PriorityClass{..} = (\v1PriorityClassApiVersion -> V1PriorityClass { v1PriorityClassApiVersion, ..} ) <$> f v1PriorityClassApiVersion -{-# INLINE v1PriorityClassApiVersionL #-} - --- | 'v1PriorityClassDescription' Lens -v1PriorityClassDescriptionL :: Lens_' V1PriorityClass (Maybe Text) -v1PriorityClassDescriptionL f V1PriorityClass{..} = (\v1PriorityClassDescription -> V1PriorityClass { v1PriorityClassDescription, ..} ) <$> f v1PriorityClassDescription -{-# INLINE v1PriorityClassDescriptionL #-} - --- | 'v1PriorityClassGlobalDefault' Lens -v1PriorityClassGlobalDefaultL :: Lens_' V1PriorityClass (Maybe Bool) -v1PriorityClassGlobalDefaultL f V1PriorityClass{..} = (\v1PriorityClassGlobalDefault -> V1PriorityClass { v1PriorityClassGlobalDefault, ..} ) <$> f v1PriorityClassGlobalDefault -{-# INLINE v1PriorityClassGlobalDefaultL #-} - --- | 'v1PriorityClassKind' Lens -v1PriorityClassKindL :: Lens_' V1PriorityClass (Maybe Text) -v1PriorityClassKindL f V1PriorityClass{..} = (\v1PriorityClassKind -> V1PriorityClass { v1PriorityClassKind, ..} ) <$> f v1PriorityClassKind -{-# INLINE v1PriorityClassKindL #-} - --- | 'v1PriorityClassMetadata' Lens -v1PriorityClassMetadataL :: Lens_' V1PriorityClass (Maybe V1ObjectMeta) -v1PriorityClassMetadataL f V1PriorityClass{..} = (\v1PriorityClassMetadata -> V1PriorityClass { v1PriorityClassMetadata, ..} ) <$> f v1PriorityClassMetadata -{-# INLINE v1PriorityClassMetadataL #-} - --- | 'v1PriorityClassPreemptionPolicy' Lens -v1PriorityClassPreemptionPolicyL :: Lens_' V1PriorityClass (Maybe Text) -v1PriorityClassPreemptionPolicyL f V1PriorityClass{..} = (\v1PriorityClassPreemptionPolicy -> V1PriorityClass { v1PriorityClassPreemptionPolicy, ..} ) <$> f v1PriorityClassPreemptionPolicy -{-# INLINE v1PriorityClassPreemptionPolicyL #-} - --- | 'v1PriorityClassValue' Lens -v1PriorityClassValueL :: Lens_' V1PriorityClass (Int) -v1PriorityClassValueL f V1PriorityClass{..} = (\v1PriorityClassValue -> V1PriorityClass { v1PriorityClassValue, ..} ) <$> f v1PriorityClassValue -{-# INLINE v1PriorityClassValueL #-} - - - --- * V1PriorityClassList - --- | 'v1PriorityClassListApiVersion' Lens -v1PriorityClassListApiVersionL :: Lens_' V1PriorityClassList (Maybe Text) -v1PriorityClassListApiVersionL f V1PriorityClassList{..} = (\v1PriorityClassListApiVersion -> V1PriorityClassList { v1PriorityClassListApiVersion, ..} ) <$> f v1PriorityClassListApiVersion -{-# INLINE v1PriorityClassListApiVersionL #-} - --- | 'v1PriorityClassListItems' Lens -v1PriorityClassListItemsL :: Lens_' V1PriorityClassList ([V1PriorityClass]) -v1PriorityClassListItemsL f V1PriorityClassList{..} = (\v1PriorityClassListItems -> V1PriorityClassList { v1PriorityClassListItems, ..} ) <$> f v1PriorityClassListItems -{-# INLINE v1PriorityClassListItemsL #-} - --- | 'v1PriorityClassListKind' Lens -v1PriorityClassListKindL :: Lens_' V1PriorityClassList (Maybe Text) -v1PriorityClassListKindL f V1PriorityClassList{..} = (\v1PriorityClassListKind -> V1PriorityClassList { v1PriorityClassListKind, ..} ) <$> f v1PriorityClassListKind -{-# INLINE v1PriorityClassListKindL #-} - --- | 'v1PriorityClassListMetadata' Lens -v1PriorityClassListMetadataL :: Lens_' V1PriorityClassList (Maybe V1ListMeta) -v1PriorityClassListMetadataL f V1PriorityClassList{..} = (\v1PriorityClassListMetadata -> V1PriorityClassList { v1PriorityClassListMetadata, ..} ) <$> f v1PriorityClassListMetadata -{-# INLINE v1PriorityClassListMetadataL #-} - - - --- * V1Probe - --- | 'v1ProbeExec' Lens -v1ProbeExecL :: Lens_' V1Probe (Maybe V1ExecAction) -v1ProbeExecL f V1Probe{..} = (\v1ProbeExec -> V1Probe { v1ProbeExec, ..} ) <$> f v1ProbeExec -{-# INLINE v1ProbeExecL #-} - --- | 'v1ProbeFailureThreshold' Lens -v1ProbeFailureThresholdL :: Lens_' V1Probe (Maybe Int) -v1ProbeFailureThresholdL f V1Probe{..} = (\v1ProbeFailureThreshold -> V1Probe { v1ProbeFailureThreshold, ..} ) <$> f v1ProbeFailureThreshold -{-# INLINE v1ProbeFailureThresholdL #-} - --- | 'v1ProbeGrpc' Lens -v1ProbeGrpcL :: Lens_' V1Probe (Maybe V1GRPCAction) -v1ProbeGrpcL f V1Probe{..} = (\v1ProbeGrpc -> V1Probe { v1ProbeGrpc, ..} ) <$> f v1ProbeGrpc -{-# INLINE v1ProbeGrpcL #-} - --- | 'v1ProbeHttpGet' Lens -v1ProbeHttpGetL :: Lens_' V1Probe (Maybe V1HTTPGetAction) -v1ProbeHttpGetL f V1Probe{..} = (\v1ProbeHttpGet -> V1Probe { v1ProbeHttpGet, ..} ) <$> f v1ProbeHttpGet -{-# INLINE v1ProbeHttpGetL #-} - --- | 'v1ProbeInitialDelaySeconds' Lens -v1ProbeInitialDelaySecondsL :: Lens_' V1Probe (Maybe Int) -v1ProbeInitialDelaySecondsL f V1Probe{..} = (\v1ProbeInitialDelaySeconds -> V1Probe { v1ProbeInitialDelaySeconds, ..} ) <$> f v1ProbeInitialDelaySeconds -{-# INLINE v1ProbeInitialDelaySecondsL #-} - --- | 'v1ProbePeriodSeconds' Lens -v1ProbePeriodSecondsL :: Lens_' V1Probe (Maybe Int) -v1ProbePeriodSecondsL f V1Probe{..} = (\v1ProbePeriodSeconds -> V1Probe { v1ProbePeriodSeconds, ..} ) <$> f v1ProbePeriodSeconds -{-# INLINE v1ProbePeriodSecondsL #-} - --- | 'v1ProbeSuccessThreshold' Lens -v1ProbeSuccessThresholdL :: Lens_' V1Probe (Maybe Int) -v1ProbeSuccessThresholdL f V1Probe{..} = (\v1ProbeSuccessThreshold -> V1Probe { v1ProbeSuccessThreshold, ..} ) <$> f v1ProbeSuccessThreshold -{-# INLINE v1ProbeSuccessThresholdL #-} - --- | 'v1ProbeTcpSocket' Lens -v1ProbeTcpSocketL :: Lens_' V1Probe (Maybe V1TCPSocketAction) -v1ProbeTcpSocketL f V1Probe{..} = (\v1ProbeTcpSocket -> V1Probe { v1ProbeTcpSocket, ..} ) <$> f v1ProbeTcpSocket -{-# INLINE v1ProbeTcpSocketL #-} - --- | 'v1ProbeTerminationGracePeriodSeconds' Lens -v1ProbeTerminationGracePeriodSecondsL :: Lens_' V1Probe (Maybe Integer) -v1ProbeTerminationGracePeriodSecondsL f V1Probe{..} = (\v1ProbeTerminationGracePeriodSeconds -> V1Probe { v1ProbeTerminationGracePeriodSeconds, ..} ) <$> f v1ProbeTerminationGracePeriodSeconds -{-# INLINE v1ProbeTerminationGracePeriodSecondsL #-} - --- | 'v1ProbeTimeoutSeconds' Lens -v1ProbeTimeoutSecondsL :: Lens_' V1Probe (Maybe Int) -v1ProbeTimeoutSecondsL f V1Probe{..} = (\v1ProbeTimeoutSeconds -> V1Probe { v1ProbeTimeoutSeconds, ..} ) <$> f v1ProbeTimeoutSeconds -{-# INLINE v1ProbeTimeoutSecondsL #-} - - - --- * V1ProjectedVolumeSource - --- | 'v1ProjectedVolumeSourceDefaultMode' Lens -v1ProjectedVolumeSourceDefaultModeL :: Lens_' V1ProjectedVolumeSource (Maybe Int) -v1ProjectedVolumeSourceDefaultModeL f V1ProjectedVolumeSource{..} = (\v1ProjectedVolumeSourceDefaultMode -> V1ProjectedVolumeSource { v1ProjectedVolumeSourceDefaultMode, ..} ) <$> f v1ProjectedVolumeSourceDefaultMode -{-# INLINE v1ProjectedVolumeSourceDefaultModeL #-} - --- | 'v1ProjectedVolumeSourceSources' Lens -v1ProjectedVolumeSourceSourcesL :: Lens_' V1ProjectedVolumeSource (Maybe [V1VolumeProjection]) -v1ProjectedVolumeSourceSourcesL f V1ProjectedVolumeSource{..} = (\v1ProjectedVolumeSourceSources -> V1ProjectedVolumeSource { v1ProjectedVolumeSourceSources, ..} ) <$> f v1ProjectedVolumeSourceSources -{-# INLINE v1ProjectedVolumeSourceSourcesL #-} - - - --- * V1QuobyteVolumeSource - --- | 'v1QuobyteVolumeSourceGroup' Lens -v1QuobyteVolumeSourceGroupL :: Lens_' V1QuobyteVolumeSource (Maybe Text) -v1QuobyteVolumeSourceGroupL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceGroup -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceGroup, ..} ) <$> f v1QuobyteVolumeSourceGroup -{-# INLINE v1QuobyteVolumeSourceGroupL #-} - --- | 'v1QuobyteVolumeSourceReadOnly' Lens -v1QuobyteVolumeSourceReadOnlyL :: Lens_' V1QuobyteVolumeSource (Maybe Bool) -v1QuobyteVolumeSourceReadOnlyL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceReadOnly -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceReadOnly, ..} ) <$> f v1QuobyteVolumeSourceReadOnly -{-# INLINE v1QuobyteVolumeSourceReadOnlyL #-} - --- | 'v1QuobyteVolumeSourceRegistry' Lens -v1QuobyteVolumeSourceRegistryL :: Lens_' V1QuobyteVolumeSource (Text) -v1QuobyteVolumeSourceRegistryL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceRegistry -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceRegistry, ..} ) <$> f v1QuobyteVolumeSourceRegistry -{-# INLINE v1QuobyteVolumeSourceRegistryL #-} - --- | 'v1QuobyteVolumeSourceTenant' Lens -v1QuobyteVolumeSourceTenantL :: Lens_' V1QuobyteVolumeSource (Maybe Text) -v1QuobyteVolumeSourceTenantL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceTenant -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceTenant, ..} ) <$> f v1QuobyteVolumeSourceTenant -{-# INLINE v1QuobyteVolumeSourceTenantL #-} - --- | 'v1QuobyteVolumeSourceUser' Lens -v1QuobyteVolumeSourceUserL :: Lens_' V1QuobyteVolumeSource (Maybe Text) -v1QuobyteVolumeSourceUserL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceUser -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceUser, ..} ) <$> f v1QuobyteVolumeSourceUser -{-# INLINE v1QuobyteVolumeSourceUserL #-} - --- | 'v1QuobyteVolumeSourceVolume' Lens -v1QuobyteVolumeSourceVolumeL :: Lens_' V1QuobyteVolumeSource (Text) -v1QuobyteVolumeSourceVolumeL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceVolume -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceVolume, ..} ) <$> f v1QuobyteVolumeSourceVolume -{-# INLINE v1QuobyteVolumeSourceVolumeL #-} - - - --- * V1RBDPersistentVolumeSource - --- | 'v1RBDPersistentVolumeSourceFsType' Lens -v1RBDPersistentVolumeSourceFsTypeL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) -v1RBDPersistentVolumeSourceFsTypeL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceFsType -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceFsType, ..} ) <$> f v1RBDPersistentVolumeSourceFsType -{-# INLINE v1RBDPersistentVolumeSourceFsTypeL #-} - --- | 'v1RBDPersistentVolumeSourceImage' Lens -v1RBDPersistentVolumeSourceImageL :: Lens_' V1RBDPersistentVolumeSource (Text) -v1RBDPersistentVolumeSourceImageL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceImage -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceImage, ..} ) <$> f v1RBDPersistentVolumeSourceImage -{-# INLINE v1RBDPersistentVolumeSourceImageL #-} - --- | 'v1RBDPersistentVolumeSourceKeyring' Lens -v1RBDPersistentVolumeSourceKeyringL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) -v1RBDPersistentVolumeSourceKeyringL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceKeyring -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceKeyring, ..} ) <$> f v1RBDPersistentVolumeSourceKeyring -{-# INLINE v1RBDPersistentVolumeSourceKeyringL #-} - --- | 'v1RBDPersistentVolumeSourceMonitors' Lens -v1RBDPersistentVolumeSourceMonitorsL :: Lens_' V1RBDPersistentVolumeSource ([Text]) -v1RBDPersistentVolumeSourceMonitorsL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceMonitors -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceMonitors, ..} ) <$> f v1RBDPersistentVolumeSourceMonitors -{-# INLINE v1RBDPersistentVolumeSourceMonitorsL #-} - --- | 'v1RBDPersistentVolumeSourcePool' Lens -v1RBDPersistentVolumeSourcePoolL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) -v1RBDPersistentVolumeSourcePoolL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourcePool -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourcePool, ..} ) <$> f v1RBDPersistentVolumeSourcePool -{-# INLINE v1RBDPersistentVolumeSourcePoolL #-} - --- | 'v1RBDPersistentVolumeSourceReadOnly' Lens -v1RBDPersistentVolumeSourceReadOnlyL :: Lens_' V1RBDPersistentVolumeSource (Maybe Bool) -v1RBDPersistentVolumeSourceReadOnlyL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceReadOnly -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceReadOnly, ..} ) <$> f v1RBDPersistentVolumeSourceReadOnly -{-# INLINE v1RBDPersistentVolumeSourceReadOnlyL #-} - --- | 'v1RBDPersistentVolumeSourceSecretRef' Lens -v1RBDPersistentVolumeSourceSecretRefL :: Lens_' V1RBDPersistentVolumeSource (Maybe V1SecretReference) -v1RBDPersistentVolumeSourceSecretRefL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceSecretRef -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceSecretRef, ..} ) <$> f v1RBDPersistentVolumeSourceSecretRef -{-# INLINE v1RBDPersistentVolumeSourceSecretRefL #-} - --- | 'v1RBDPersistentVolumeSourceUser' Lens -v1RBDPersistentVolumeSourceUserL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) -v1RBDPersistentVolumeSourceUserL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceUser -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceUser, ..} ) <$> f v1RBDPersistentVolumeSourceUser -{-# INLINE v1RBDPersistentVolumeSourceUserL #-} - - - --- * V1RBDVolumeSource - --- | 'v1RBDVolumeSourceFsType' Lens -v1RBDVolumeSourceFsTypeL :: Lens_' V1RBDVolumeSource (Maybe Text) -v1RBDVolumeSourceFsTypeL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceFsType -> V1RBDVolumeSource { v1RBDVolumeSourceFsType, ..} ) <$> f v1RBDVolumeSourceFsType -{-# INLINE v1RBDVolumeSourceFsTypeL #-} - --- | 'v1RBDVolumeSourceImage' Lens -v1RBDVolumeSourceImageL :: Lens_' V1RBDVolumeSource (Text) -v1RBDVolumeSourceImageL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceImage -> V1RBDVolumeSource { v1RBDVolumeSourceImage, ..} ) <$> f v1RBDVolumeSourceImage -{-# INLINE v1RBDVolumeSourceImageL #-} - --- | 'v1RBDVolumeSourceKeyring' Lens -v1RBDVolumeSourceKeyringL :: Lens_' V1RBDVolumeSource (Maybe Text) -v1RBDVolumeSourceKeyringL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceKeyring -> V1RBDVolumeSource { v1RBDVolumeSourceKeyring, ..} ) <$> f v1RBDVolumeSourceKeyring -{-# INLINE v1RBDVolumeSourceKeyringL #-} - --- | 'v1RBDVolumeSourceMonitors' Lens -v1RBDVolumeSourceMonitorsL :: Lens_' V1RBDVolumeSource ([Text]) -v1RBDVolumeSourceMonitorsL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceMonitors -> V1RBDVolumeSource { v1RBDVolumeSourceMonitors, ..} ) <$> f v1RBDVolumeSourceMonitors -{-# INLINE v1RBDVolumeSourceMonitorsL #-} - --- | 'v1RBDVolumeSourcePool' Lens -v1RBDVolumeSourcePoolL :: Lens_' V1RBDVolumeSource (Maybe Text) -v1RBDVolumeSourcePoolL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourcePool -> V1RBDVolumeSource { v1RBDVolumeSourcePool, ..} ) <$> f v1RBDVolumeSourcePool -{-# INLINE v1RBDVolumeSourcePoolL #-} - --- | 'v1RBDVolumeSourceReadOnly' Lens -v1RBDVolumeSourceReadOnlyL :: Lens_' V1RBDVolumeSource (Maybe Bool) -v1RBDVolumeSourceReadOnlyL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceReadOnly -> V1RBDVolumeSource { v1RBDVolumeSourceReadOnly, ..} ) <$> f v1RBDVolumeSourceReadOnly -{-# INLINE v1RBDVolumeSourceReadOnlyL #-} - --- | 'v1RBDVolumeSourceSecretRef' Lens -v1RBDVolumeSourceSecretRefL :: Lens_' V1RBDVolumeSource (Maybe V1LocalObjectReference) -v1RBDVolumeSourceSecretRefL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceSecretRef -> V1RBDVolumeSource { v1RBDVolumeSourceSecretRef, ..} ) <$> f v1RBDVolumeSourceSecretRef -{-# INLINE v1RBDVolumeSourceSecretRefL #-} - --- | 'v1RBDVolumeSourceUser' Lens -v1RBDVolumeSourceUserL :: Lens_' V1RBDVolumeSource (Maybe Text) -v1RBDVolumeSourceUserL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceUser -> V1RBDVolumeSource { v1RBDVolumeSourceUser, ..} ) <$> f v1RBDVolumeSourceUser -{-# INLINE v1RBDVolumeSourceUserL #-} - - - --- * V1ReplicaSet - --- | 'v1ReplicaSetApiVersion' Lens -v1ReplicaSetApiVersionL :: Lens_' V1ReplicaSet (Maybe Text) -v1ReplicaSetApiVersionL f V1ReplicaSet{..} = (\v1ReplicaSetApiVersion -> V1ReplicaSet { v1ReplicaSetApiVersion, ..} ) <$> f v1ReplicaSetApiVersion -{-# INLINE v1ReplicaSetApiVersionL #-} - --- | 'v1ReplicaSetKind' Lens -v1ReplicaSetKindL :: Lens_' V1ReplicaSet (Maybe Text) -v1ReplicaSetKindL f V1ReplicaSet{..} = (\v1ReplicaSetKind -> V1ReplicaSet { v1ReplicaSetKind, ..} ) <$> f v1ReplicaSetKind -{-# INLINE v1ReplicaSetKindL #-} - --- | 'v1ReplicaSetMetadata' Lens -v1ReplicaSetMetadataL :: Lens_' V1ReplicaSet (Maybe V1ObjectMeta) -v1ReplicaSetMetadataL f V1ReplicaSet{..} = (\v1ReplicaSetMetadata -> V1ReplicaSet { v1ReplicaSetMetadata, ..} ) <$> f v1ReplicaSetMetadata -{-# INLINE v1ReplicaSetMetadataL #-} - --- | 'v1ReplicaSetSpec' Lens -v1ReplicaSetSpecL :: Lens_' V1ReplicaSet (Maybe V1ReplicaSetSpec) -v1ReplicaSetSpecL f V1ReplicaSet{..} = (\v1ReplicaSetSpec -> V1ReplicaSet { v1ReplicaSetSpec, ..} ) <$> f v1ReplicaSetSpec -{-# INLINE v1ReplicaSetSpecL #-} - --- | 'v1ReplicaSetStatus' Lens -v1ReplicaSetStatusL :: Lens_' V1ReplicaSet (Maybe V1ReplicaSetStatus) -v1ReplicaSetStatusL f V1ReplicaSet{..} = (\v1ReplicaSetStatus -> V1ReplicaSet { v1ReplicaSetStatus, ..} ) <$> f v1ReplicaSetStatus -{-# INLINE v1ReplicaSetStatusL #-} - - - --- * V1ReplicaSetCondition - --- | 'v1ReplicaSetConditionLastTransitionTime' Lens -v1ReplicaSetConditionLastTransitionTimeL :: Lens_' V1ReplicaSetCondition (Maybe DateTime) -v1ReplicaSetConditionLastTransitionTimeL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionLastTransitionTime -> V1ReplicaSetCondition { v1ReplicaSetConditionLastTransitionTime, ..} ) <$> f v1ReplicaSetConditionLastTransitionTime -{-# INLINE v1ReplicaSetConditionLastTransitionTimeL #-} - --- | 'v1ReplicaSetConditionMessage' Lens -v1ReplicaSetConditionMessageL :: Lens_' V1ReplicaSetCondition (Maybe Text) -v1ReplicaSetConditionMessageL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionMessage -> V1ReplicaSetCondition { v1ReplicaSetConditionMessage, ..} ) <$> f v1ReplicaSetConditionMessage -{-# INLINE v1ReplicaSetConditionMessageL #-} - --- | 'v1ReplicaSetConditionReason' Lens -v1ReplicaSetConditionReasonL :: Lens_' V1ReplicaSetCondition (Maybe Text) -v1ReplicaSetConditionReasonL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionReason -> V1ReplicaSetCondition { v1ReplicaSetConditionReason, ..} ) <$> f v1ReplicaSetConditionReason -{-# INLINE v1ReplicaSetConditionReasonL #-} - --- | 'v1ReplicaSetConditionStatus' Lens -v1ReplicaSetConditionStatusL :: Lens_' V1ReplicaSetCondition (Text) -v1ReplicaSetConditionStatusL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionStatus -> V1ReplicaSetCondition { v1ReplicaSetConditionStatus, ..} ) <$> f v1ReplicaSetConditionStatus -{-# INLINE v1ReplicaSetConditionStatusL #-} - --- | 'v1ReplicaSetConditionType' Lens -v1ReplicaSetConditionTypeL :: Lens_' V1ReplicaSetCondition (Text) -v1ReplicaSetConditionTypeL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionType -> V1ReplicaSetCondition { v1ReplicaSetConditionType, ..} ) <$> f v1ReplicaSetConditionType -{-# INLINE v1ReplicaSetConditionTypeL #-} - - - --- * V1ReplicaSetList - --- | 'v1ReplicaSetListApiVersion' Lens -v1ReplicaSetListApiVersionL :: Lens_' V1ReplicaSetList (Maybe Text) -v1ReplicaSetListApiVersionL f V1ReplicaSetList{..} = (\v1ReplicaSetListApiVersion -> V1ReplicaSetList { v1ReplicaSetListApiVersion, ..} ) <$> f v1ReplicaSetListApiVersion -{-# INLINE v1ReplicaSetListApiVersionL #-} - --- | 'v1ReplicaSetListItems' Lens -v1ReplicaSetListItemsL :: Lens_' V1ReplicaSetList ([V1ReplicaSet]) -v1ReplicaSetListItemsL f V1ReplicaSetList{..} = (\v1ReplicaSetListItems -> V1ReplicaSetList { v1ReplicaSetListItems, ..} ) <$> f v1ReplicaSetListItems -{-# INLINE v1ReplicaSetListItemsL #-} - --- | 'v1ReplicaSetListKind' Lens -v1ReplicaSetListKindL :: Lens_' V1ReplicaSetList (Maybe Text) -v1ReplicaSetListKindL f V1ReplicaSetList{..} = (\v1ReplicaSetListKind -> V1ReplicaSetList { v1ReplicaSetListKind, ..} ) <$> f v1ReplicaSetListKind -{-# INLINE v1ReplicaSetListKindL #-} - --- | 'v1ReplicaSetListMetadata' Lens -v1ReplicaSetListMetadataL :: Lens_' V1ReplicaSetList (Maybe V1ListMeta) -v1ReplicaSetListMetadataL f V1ReplicaSetList{..} = (\v1ReplicaSetListMetadata -> V1ReplicaSetList { v1ReplicaSetListMetadata, ..} ) <$> f v1ReplicaSetListMetadata -{-# INLINE v1ReplicaSetListMetadataL #-} - - - --- * V1ReplicaSetSpec - --- | 'v1ReplicaSetSpecMinReadySeconds' Lens -v1ReplicaSetSpecMinReadySecondsL :: Lens_' V1ReplicaSetSpec (Maybe Int) -v1ReplicaSetSpecMinReadySecondsL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecMinReadySeconds -> V1ReplicaSetSpec { v1ReplicaSetSpecMinReadySeconds, ..} ) <$> f v1ReplicaSetSpecMinReadySeconds -{-# INLINE v1ReplicaSetSpecMinReadySecondsL #-} - --- | 'v1ReplicaSetSpecReplicas' Lens -v1ReplicaSetSpecReplicasL :: Lens_' V1ReplicaSetSpec (Maybe Int) -v1ReplicaSetSpecReplicasL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecReplicas -> V1ReplicaSetSpec { v1ReplicaSetSpecReplicas, ..} ) <$> f v1ReplicaSetSpecReplicas -{-# INLINE v1ReplicaSetSpecReplicasL #-} - --- | 'v1ReplicaSetSpecSelector' Lens -v1ReplicaSetSpecSelectorL :: Lens_' V1ReplicaSetSpec (V1LabelSelector) -v1ReplicaSetSpecSelectorL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecSelector -> V1ReplicaSetSpec { v1ReplicaSetSpecSelector, ..} ) <$> f v1ReplicaSetSpecSelector -{-# INLINE v1ReplicaSetSpecSelectorL #-} - --- | 'v1ReplicaSetSpecTemplate' Lens -v1ReplicaSetSpecTemplateL :: Lens_' V1ReplicaSetSpec (Maybe V1PodTemplateSpec) -v1ReplicaSetSpecTemplateL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecTemplate -> V1ReplicaSetSpec { v1ReplicaSetSpecTemplate, ..} ) <$> f v1ReplicaSetSpecTemplate -{-# INLINE v1ReplicaSetSpecTemplateL #-} - - - --- * V1ReplicaSetStatus - --- | 'v1ReplicaSetStatusAvailableReplicas' Lens -v1ReplicaSetStatusAvailableReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) -v1ReplicaSetStatusAvailableReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusAvailableReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusAvailableReplicas, ..} ) <$> f v1ReplicaSetStatusAvailableReplicas -{-# INLINE v1ReplicaSetStatusAvailableReplicasL #-} - --- | 'v1ReplicaSetStatusConditions' Lens -v1ReplicaSetStatusConditionsL :: Lens_' V1ReplicaSetStatus (Maybe [V1ReplicaSetCondition]) -v1ReplicaSetStatusConditionsL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusConditions -> V1ReplicaSetStatus { v1ReplicaSetStatusConditions, ..} ) <$> f v1ReplicaSetStatusConditions -{-# INLINE v1ReplicaSetStatusConditionsL #-} - --- | 'v1ReplicaSetStatusFullyLabeledReplicas' Lens -v1ReplicaSetStatusFullyLabeledReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) -v1ReplicaSetStatusFullyLabeledReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusFullyLabeledReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusFullyLabeledReplicas, ..} ) <$> f v1ReplicaSetStatusFullyLabeledReplicas -{-# INLINE v1ReplicaSetStatusFullyLabeledReplicasL #-} - --- | 'v1ReplicaSetStatusObservedGeneration' Lens -v1ReplicaSetStatusObservedGenerationL :: Lens_' V1ReplicaSetStatus (Maybe Integer) -v1ReplicaSetStatusObservedGenerationL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusObservedGeneration -> V1ReplicaSetStatus { v1ReplicaSetStatusObservedGeneration, ..} ) <$> f v1ReplicaSetStatusObservedGeneration -{-# INLINE v1ReplicaSetStatusObservedGenerationL #-} - --- | 'v1ReplicaSetStatusReadyReplicas' Lens -v1ReplicaSetStatusReadyReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) -v1ReplicaSetStatusReadyReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusReadyReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusReadyReplicas, ..} ) <$> f v1ReplicaSetStatusReadyReplicas -{-# INLINE v1ReplicaSetStatusReadyReplicasL #-} - --- | 'v1ReplicaSetStatusReplicas' Lens -v1ReplicaSetStatusReplicasL :: Lens_' V1ReplicaSetStatus (Int) -v1ReplicaSetStatusReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusReplicas, ..} ) <$> f v1ReplicaSetStatusReplicas -{-# INLINE v1ReplicaSetStatusReplicasL #-} - - - --- * V1ReplicationController - --- | 'v1ReplicationControllerApiVersion' Lens -v1ReplicationControllerApiVersionL :: Lens_' V1ReplicationController (Maybe Text) -v1ReplicationControllerApiVersionL f V1ReplicationController{..} = (\v1ReplicationControllerApiVersion -> V1ReplicationController { v1ReplicationControllerApiVersion, ..} ) <$> f v1ReplicationControllerApiVersion -{-# INLINE v1ReplicationControllerApiVersionL #-} - --- | 'v1ReplicationControllerKind' Lens -v1ReplicationControllerKindL :: Lens_' V1ReplicationController (Maybe Text) -v1ReplicationControllerKindL f V1ReplicationController{..} = (\v1ReplicationControllerKind -> V1ReplicationController { v1ReplicationControllerKind, ..} ) <$> f v1ReplicationControllerKind -{-# INLINE v1ReplicationControllerKindL #-} - --- | 'v1ReplicationControllerMetadata' Lens -v1ReplicationControllerMetadataL :: Lens_' V1ReplicationController (Maybe V1ObjectMeta) -v1ReplicationControllerMetadataL f V1ReplicationController{..} = (\v1ReplicationControllerMetadata -> V1ReplicationController { v1ReplicationControllerMetadata, ..} ) <$> f v1ReplicationControllerMetadata -{-# INLINE v1ReplicationControllerMetadataL #-} - --- | 'v1ReplicationControllerSpec' Lens -v1ReplicationControllerSpecL :: Lens_' V1ReplicationController (Maybe V1ReplicationControllerSpec) -v1ReplicationControllerSpecL f V1ReplicationController{..} = (\v1ReplicationControllerSpec -> V1ReplicationController { v1ReplicationControllerSpec, ..} ) <$> f v1ReplicationControllerSpec -{-# INLINE v1ReplicationControllerSpecL #-} - --- | 'v1ReplicationControllerStatus' Lens -v1ReplicationControllerStatusL :: Lens_' V1ReplicationController (Maybe V1ReplicationControllerStatus) -v1ReplicationControllerStatusL f V1ReplicationController{..} = (\v1ReplicationControllerStatus -> V1ReplicationController { v1ReplicationControllerStatus, ..} ) <$> f v1ReplicationControllerStatus -{-# INLINE v1ReplicationControllerStatusL #-} - - - --- * V1ReplicationControllerCondition - --- | 'v1ReplicationControllerConditionLastTransitionTime' Lens -v1ReplicationControllerConditionLastTransitionTimeL :: Lens_' V1ReplicationControllerCondition (Maybe DateTime) -v1ReplicationControllerConditionLastTransitionTimeL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionLastTransitionTime -> V1ReplicationControllerCondition { v1ReplicationControllerConditionLastTransitionTime, ..} ) <$> f v1ReplicationControllerConditionLastTransitionTime -{-# INLINE v1ReplicationControllerConditionLastTransitionTimeL #-} - --- | 'v1ReplicationControllerConditionMessage' Lens -v1ReplicationControllerConditionMessageL :: Lens_' V1ReplicationControllerCondition (Maybe Text) -v1ReplicationControllerConditionMessageL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionMessage -> V1ReplicationControllerCondition { v1ReplicationControllerConditionMessage, ..} ) <$> f v1ReplicationControllerConditionMessage -{-# INLINE v1ReplicationControllerConditionMessageL #-} - --- | 'v1ReplicationControllerConditionReason' Lens -v1ReplicationControllerConditionReasonL :: Lens_' V1ReplicationControllerCondition (Maybe Text) -v1ReplicationControllerConditionReasonL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionReason -> V1ReplicationControllerCondition { v1ReplicationControllerConditionReason, ..} ) <$> f v1ReplicationControllerConditionReason -{-# INLINE v1ReplicationControllerConditionReasonL #-} - --- | 'v1ReplicationControllerConditionStatus' Lens -v1ReplicationControllerConditionStatusL :: Lens_' V1ReplicationControllerCondition (Text) -v1ReplicationControllerConditionStatusL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionStatus -> V1ReplicationControllerCondition { v1ReplicationControllerConditionStatus, ..} ) <$> f v1ReplicationControllerConditionStatus -{-# INLINE v1ReplicationControllerConditionStatusL #-} - --- | 'v1ReplicationControllerConditionType' Lens -v1ReplicationControllerConditionTypeL :: Lens_' V1ReplicationControllerCondition (Text) -v1ReplicationControllerConditionTypeL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionType -> V1ReplicationControllerCondition { v1ReplicationControllerConditionType, ..} ) <$> f v1ReplicationControllerConditionType -{-# INLINE v1ReplicationControllerConditionTypeL #-} - - - --- * V1ReplicationControllerList - --- | 'v1ReplicationControllerListApiVersion' Lens -v1ReplicationControllerListApiVersionL :: Lens_' V1ReplicationControllerList (Maybe Text) -v1ReplicationControllerListApiVersionL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListApiVersion -> V1ReplicationControllerList { v1ReplicationControllerListApiVersion, ..} ) <$> f v1ReplicationControllerListApiVersion -{-# INLINE v1ReplicationControllerListApiVersionL #-} - --- | 'v1ReplicationControllerListItems' Lens -v1ReplicationControllerListItemsL :: Lens_' V1ReplicationControllerList ([V1ReplicationController]) -v1ReplicationControllerListItemsL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListItems -> V1ReplicationControllerList { v1ReplicationControllerListItems, ..} ) <$> f v1ReplicationControllerListItems -{-# INLINE v1ReplicationControllerListItemsL #-} - --- | 'v1ReplicationControllerListKind' Lens -v1ReplicationControllerListKindL :: Lens_' V1ReplicationControllerList (Maybe Text) -v1ReplicationControllerListKindL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListKind -> V1ReplicationControllerList { v1ReplicationControllerListKind, ..} ) <$> f v1ReplicationControllerListKind -{-# INLINE v1ReplicationControllerListKindL #-} - --- | 'v1ReplicationControllerListMetadata' Lens -v1ReplicationControllerListMetadataL :: Lens_' V1ReplicationControllerList (Maybe V1ListMeta) -v1ReplicationControllerListMetadataL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListMetadata -> V1ReplicationControllerList { v1ReplicationControllerListMetadata, ..} ) <$> f v1ReplicationControllerListMetadata -{-# INLINE v1ReplicationControllerListMetadataL #-} - - - --- * V1ReplicationControllerSpec - --- | 'v1ReplicationControllerSpecMinReadySeconds' Lens -v1ReplicationControllerSpecMinReadySecondsL :: Lens_' V1ReplicationControllerSpec (Maybe Int) -v1ReplicationControllerSpecMinReadySecondsL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecMinReadySeconds -> V1ReplicationControllerSpec { v1ReplicationControllerSpecMinReadySeconds, ..} ) <$> f v1ReplicationControllerSpecMinReadySeconds -{-# INLINE v1ReplicationControllerSpecMinReadySecondsL #-} - --- | 'v1ReplicationControllerSpecReplicas' Lens -v1ReplicationControllerSpecReplicasL :: Lens_' V1ReplicationControllerSpec (Maybe Int) -v1ReplicationControllerSpecReplicasL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecReplicas -> V1ReplicationControllerSpec { v1ReplicationControllerSpecReplicas, ..} ) <$> f v1ReplicationControllerSpecReplicas -{-# INLINE v1ReplicationControllerSpecReplicasL #-} - --- | 'v1ReplicationControllerSpecSelector' Lens -v1ReplicationControllerSpecSelectorL :: Lens_' V1ReplicationControllerSpec (Maybe (Map.Map String Text)) -v1ReplicationControllerSpecSelectorL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecSelector -> V1ReplicationControllerSpec { v1ReplicationControllerSpecSelector, ..} ) <$> f v1ReplicationControllerSpecSelector -{-# INLINE v1ReplicationControllerSpecSelectorL #-} - --- | 'v1ReplicationControllerSpecTemplate' Lens -v1ReplicationControllerSpecTemplateL :: Lens_' V1ReplicationControllerSpec (Maybe V1PodTemplateSpec) -v1ReplicationControllerSpecTemplateL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecTemplate -> V1ReplicationControllerSpec { v1ReplicationControllerSpecTemplate, ..} ) <$> f v1ReplicationControllerSpecTemplate -{-# INLINE v1ReplicationControllerSpecTemplateL #-} - - - --- * V1ReplicationControllerStatus - --- | 'v1ReplicationControllerStatusAvailableReplicas' Lens -v1ReplicationControllerStatusAvailableReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) -v1ReplicationControllerStatusAvailableReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusAvailableReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusAvailableReplicas, ..} ) <$> f v1ReplicationControllerStatusAvailableReplicas -{-# INLINE v1ReplicationControllerStatusAvailableReplicasL #-} - --- | 'v1ReplicationControllerStatusConditions' Lens -v1ReplicationControllerStatusConditionsL :: Lens_' V1ReplicationControllerStatus (Maybe [V1ReplicationControllerCondition]) -v1ReplicationControllerStatusConditionsL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusConditions -> V1ReplicationControllerStatus { v1ReplicationControllerStatusConditions, ..} ) <$> f v1ReplicationControllerStatusConditions -{-# INLINE v1ReplicationControllerStatusConditionsL #-} - --- | 'v1ReplicationControllerStatusFullyLabeledReplicas' Lens -v1ReplicationControllerStatusFullyLabeledReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) -v1ReplicationControllerStatusFullyLabeledReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusFullyLabeledReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusFullyLabeledReplicas, ..} ) <$> f v1ReplicationControllerStatusFullyLabeledReplicas -{-# INLINE v1ReplicationControllerStatusFullyLabeledReplicasL #-} - --- | 'v1ReplicationControllerStatusObservedGeneration' Lens -v1ReplicationControllerStatusObservedGenerationL :: Lens_' V1ReplicationControllerStatus (Maybe Integer) -v1ReplicationControllerStatusObservedGenerationL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusObservedGeneration -> V1ReplicationControllerStatus { v1ReplicationControllerStatusObservedGeneration, ..} ) <$> f v1ReplicationControllerStatusObservedGeneration -{-# INLINE v1ReplicationControllerStatusObservedGenerationL #-} - --- | 'v1ReplicationControllerStatusReadyReplicas' Lens -v1ReplicationControllerStatusReadyReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) -v1ReplicationControllerStatusReadyReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusReadyReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusReadyReplicas, ..} ) <$> f v1ReplicationControllerStatusReadyReplicas -{-# INLINE v1ReplicationControllerStatusReadyReplicasL #-} - --- | 'v1ReplicationControllerStatusReplicas' Lens -v1ReplicationControllerStatusReplicasL :: Lens_' V1ReplicationControllerStatus (Int) -v1ReplicationControllerStatusReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusReplicas, ..} ) <$> f v1ReplicationControllerStatusReplicas -{-# INLINE v1ReplicationControllerStatusReplicasL #-} - - - --- * V1ResourceAttributes - --- | 'v1ResourceAttributesGroup' Lens -v1ResourceAttributesGroupL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesGroupL f V1ResourceAttributes{..} = (\v1ResourceAttributesGroup -> V1ResourceAttributes { v1ResourceAttributesGroup, ..} ) <$> f v1ResourceAttributesGroup -{-# INLINE v1ResourceAttributesGroupL #-} - --- | 'v1ResourceAttributesName' Lens -v1ResourceAttributesNameL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesNameL f V1ResourceAttributes{..} = (\v1ResourceAttributesName -> V1ResourceAttributes { v1ResourceAttributesName, ..} ) <$> f v1ResourceAttributesName -{-# INLINE v1ResourceAttributesNameL #-} - --- | 'v1ResourceAttributesNamespace' Lens -v1ResourceAttributesNamespaceL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesNamespaceL f V1ResourceAttributes{..} = (\v1ResourceAttributesNamespace -> V1ResourceAttributes { v1ResourceAttributesNamespace, ..} ) <$> f v1ResourceAttributesNamespace -{-# INLINE v1ResourceAttributesNamespaceL #-} - --- | 'v1ResourceAttributesResource' Lens -v1ResourceAttributesResourceL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesResourceL f V1ResourceAttributes{..} = (\v1ResourceAttributesResource -> V1ResourceAttributes { v1ResourceAttributesResource, ..} ) <$> f v1ResourceAttributesResource -{-# INLINE v1ResourceAttributesResourceL #-} - --- | 'v1ResourceAttributesSubresource' Lens -v1ResourceAttributesSubresourceL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesSubresourceL f V1ResourceAttributes{..} = (\v1ResourceAttributesSubresource -> V1ResourceAttributes { v1ResourceAttributesSubresource, ..} ) <$> f v1ResourceAttributesSubresource -{-# INLINE v1ResourceAttributesSubresourceL #-} - --- | 'v1ResourceAttributesVerb' Lens -v1ResourceAttributesVerbL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesVerbL f V1ResourceAttributes{..} = (\v1ResourceAttributesVerb -> V1ResourceAttributes { v1ResourceAttributesVerb, ..} ) <$> f v1ResourceAttributesVerb -{-# INLINE v1ResourceAttributesVerbL #-} - --- | 'v1ResourceAttributesVersion' Lens -v1ResourceAttributesVersionL :: Lens_' V1ResourceAttributes (Maybe Text) -v1ResourceAttributesVersionL f V1ResourceAttributes{..} = (\v1ResourceAttributesVersion -> V1ResourceAttributes { v1ResourceAttributesVersion, ..} ) <$> f v1ResourceAttributesVersion -{-# INLINE v1ResourceAttributesVersionL #-} - - - --- * V1ResourceClaim - --- | 'v1ResourceClaimName' Lens -v1ResourceClaimNameL :: Lens_' V1ResourceClaim (Text) -v1ResourceClaimNameL f V1ResourceClaim{..} = (\v1ResourceClaimName -> V1ResourceClaim { v1ResourceClaimName, ..} ) <$> f v1ResourceClaimName -{-# INLINE v1ResourceClaimNameL #-} - - - --- * V1ResourceFieldSelector - --- | 'v1ResourceFieldSelectorContainerName' Lens -v1ResourceFieldSelectorContainerNameL :: Lens_' V1ResourceFieldSelector (Maybe Text) -v1ResourceFieldSelectorContainerNameL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorContainerName -> V1ResourceFieldSelector { v1ResourceFieldSelectorContainerName, ..} ) <$> f v1ResourceFieldSelectorContainerName -{-# INLINE v1ResourceFieldSelectorContainerNameL #-} - --- | 'v1ResourceFieldSelectorDivisor' Lens -v1ResourceFieldSelectorDivisorL :: Lens_' V1ResourceFieldSelector (Maybe Quantity) -v1ResourceFieldSelectorDivisorL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorDivisor -> V1ResourceFieldSelector { v1ResourceFieldSelectorDivisor, ..} ) <$> f v1ResourceFieldSelectorDivisor -{-# INLINE v1ResourceFieldSelectorDivisorL #-} - --- | 'v1ResourceFieldSelectorResource' Lens -v1ResourceFieldSelectorResourceL :: Lens_' V1ResourceFieldSelector (Text) -v1ResourceFieldSelectorResourceL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorResource -> V1ResourceFieldSelector { v1ResourceFieldSelectorResource, ..} ) <$> f v1ResourceFieldSelectorResource -{-# INLINE v1ResourceFieldSelectorResourceL #-} - - - --- * V1ResourceQuota - --- | 'v1ResourceQuotaApiVersion' Lens -v1ResourceQuotaApiVersionL :: Lens_' V1ResourceQuota (Maybe Text) -v1ResourceQuotaApiVersionL f V1ResourceQuota{..} = (\v1ResourceQuotaApiVersion -> V1ResourceQuota { v1ResourceQuotaApiVersion, ..} ) <$> f v1ResourceQuotaApiVersion -{-# INLINE v1ResourceQuotaApiVersionL #-} - --- | 'v1ResourceQuotaKind' Lens -v1ResourceQuotaKindL :: Lens_' V1ResourceQuota (Maybe Text) -v1ResourceQuotaKindL f V1ResourceQuota{..} = (\v1ResourceQuotaKind -> V1ResourceQuota { v1ResourceQuotaKind, ..} ) <$> f v1ResourceQuotaKind -{-# INLINE v1ResourceQuotaKindL #-} - --- | 'v1ResourceQuotaMetadata' Lens -v1ResourceQuotaMetadataL :: Lens_' V1ResourceQuota (Maybe V1ObjectMeta) -v1ResourceQuotaMetadataL f V1ResourceQuota{..} = (\v1ResourceQuotaMetadata -> V1ResourceQuota { v1ResourceQuotaMetadata, ..} ) <$> f v1ResourceQuotaMetadata -{-# INLINE v1ResourceQuotaMetadataL #-} - --- | 'v1ResourceQuotaSpec' Lens -v1ResourceQuotaSpecL :: Lens_' V1ResourceQuota (Maybe V1ResourceQuotaSpec) -v1ResourceQuotaSpecL f V1ResourceQuota{..} = (\v1ResourceQuotaSpec -> V1ResourceQuota { v1ResourceQuotaSpec, ..} ) <$> f v1ResourceQuotaSpec -{-# INLINE v1ResourceQuotaSpecL #-} - --- | 'v1ResourceQuotaStatus' Lens -v1ResourceQuotaStatusL :: Lens_' V1ResourceQuota (Maybe V1ResourceQuotaStatus) -v1ResourceQuotaStatusL f V1ResourceQuota{..} = (\v1ResourceQuotaStatus -> V1ResourceQuota { v1ResourceQuotaStatus, ..} ) <$> f v1ResourceQuotaStatus -{-# INLINE v1ResourceQuotaStatusL #-} - - - --- * V1ResourceQuotaList - --- | 'v1ResourceQuotaListApiVersion' Lens -v1ResourceQuotaListApiVersionL :: Lens_' V1ResourceQuotaList (Maybe Text) -v1ResourceQuotaListApiVersionL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListApiVersion -> V1ResourceQuotaList { v1ResourceQuotaListApiVersion, ..} ) <$> f v1ResourceQuotaListApiVersion -{-# INLINE v1ResourceQuotaListApiVersionL #-} - --- | 'v1ResourceQuotaListItems' Lens -v1ResourceQuotaListItemsL :: Lens_' V1ResourceQuotaList ([V1ResourceQuota]) -v1ResourceQuotaListItemsL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListItems -> V1ResourceQuotaList { v1ResourceQuotaListItems, ..} ) <$> f v1ResourceQuotaListItems -{-# INLINE v1ResourceQuotaListItemsL #-} - --- | 'v1ResourceQuotaListKind' Lens -v1ResourceQuotaListKindL :: Lens_' V1ResourceQuotaList (Maybe Text) -v1ResourceQuotaListKindL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListKind -> V1ResourceQuotaList { v1ResourceQuotaListKind, ..} ) <$> f v1ResourceQuotaListKind -{-# INLINE v1ResourceQuotaListKindL #-} - --- | 'v1ResourceQuotaListMetadata' Lens -v1ResourceQuotaListMetadataL :: Lens_' V1ResourceQuotaList (Maybe V1ListMeta) -v1ResourceQuotaListMetadataL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListMetadata -> V1ResourceQuotaList { v1ResourceQuotaListMetadata, ..} ) <$> f v1ResourceQuotaListMetadata -{-# INLINE v1ResourceQuotaListMetadataL #-} - - - --- * V1ResourceQuotaSpec - --- | 'v1ResourceQuotaSpecHard' Lens -v1ResourceQuotaSpecHardL :: Lens_' V1ResourceQuotaSpec (Maybe (Map.Map String Quantity)) -v1ResourceQuotaSpecHardL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecHard -> V1ResourceQuotaSpec { v1ResourceQuotaSpecHard, ..} ) <$> f v1ResourceQuotaSpecHard -{-# INLINE v1ResourceQuotaSpecHardL #-} - --- | 'v1ResourceQuotaSpecScopeSelector' Lens -v1ResourceQuotaSpecScopeSelectorL :: Lens_' V1ResourceQuotaSpec (Maybe V1ScopeSelector) -v1ResourceQuotaSpecScopeSelectorL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecScopeSelector -> V1ResourceQuotaSpec { v1ResourceQuotaSpecScopeSelector, ..} ) <$> f v1ResourceQuotaSpecScopeSelector -{-# INLINE v1ResourceQuotaSpecScopeSelectorL #-} - --- | 'v1ResourceQuotaSpecScopes' Lens -v1ResourceQuotaSpecScopesL :: Lens_' V1ResourceQuotaSpec (Maybe [Text]) -v1ResourceQuotaSpecScopesL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecScopes -> V1ResourceQuotaSpec { v1ResourceQuotaSpecScopes, ..} ) <$> f v1ResourceQuotaSpecScopes -{-# INLINE v1ResourceQuotaSpecScopesL #-} - - - --- * V1ResourceQuotaStatus - --- | 'v1ResourceQuotaStatusHard' Lens -v1ResourceQuotaStatusHardL :: Lens_' V1ResourceQuotaStatus (Maybe (Map.Map String Quantity)) -v1ResourceQuotaStatusHardL f V1ResourceQuotaStatus{..} = (\v1ResourceQuotaStatusHard -> V1ResourceQuotaStatus { v1ResourceQuotaStatusHard, ..} ) <$> f v1ResourceQuotaStatusHard -{-# INLINE v1ResourceQuotaStatusHardL #-} - --- | 'v1ResourceQuotaStatusUsed' Lens -v1ResourceQuotaStatusUsedL :: Lens_' V1ResourceQuotaStatus (Maybe (Map.Map String Quantity)) -v1ResourceQuotaStatusUsedL f V1ResourceQuotaStatus{..} = (\v1ResourceQuotaStatusUsed -> V1ResourceQuotaStatus { v1ResourceQuotaStatusUsed, ..} ) <$> f v1ResourceQuotaStatusUsed -{-# INLINE v1ResourceQuotaStatusUsedL #-} - - - --- * V1ResourceRequirements - --- | 'v1ResourceRequirementsClaims' Lens -v1ResourceRequirementsClaimsL :: Lens_' V1ResourceRequirements (Maybe [V1ResourceClaim]) -v1ResourceRequirementsClaimsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsClaims -> V1ResourceRequirements { v1ResourceRequirementsClaims, ..} ) <$> f v1ResourceRequirementsClaims -{-# INLINE v1ResourceRequirementsClaimsL #-} - --- | 'v1ResourceRequirementsLimits' Lens -v1ResourceRequirementsLimitsL :: Lens_' V1ResourceRequirements (Maybe (Map.Map String Quantity)) -v1ResourceRequirementsLimitsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsLimits -> V1ResourceRequirements { v1ResourceRequirementsLimits, ..} ) <$> f v1ResourceRequirementsLimits -{-# INLINE v1ResourceRequirementsLimitsL #-} - --- | 'v1ResourceRequirementsRequests' Lens -v1ResourceRequirementsRequestsL :: Lens_' V1ResourceRequirements (Maybe (Map.Map String Quantity)) -v1ResourceRequirementsRequestsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsRequests -> V1ResourceRequirements { v1ResourceRequirementsRequests, ..} ) <$> f v1ResourceRequirementsRequests -{-# INLINE v1ResourceRequirementsRequestsL #-} - - - --- * V1ResourceRule - --- | 'v1ResourceRuleApiGroups' Lens -v1ResourceRuleApiGroupsL :: Lens_' V1ResourceRule (Maybe [Text]) -v1ResourceRuleApiGroupsL f V1ResourceRule{..} = (\v1ResourceRuleApiGroups -> V1ResourceRule { v1ResourceRuleApiGroups, ..} ) <$> f v1ResourceRuleApiGroups -{-# INLINE v1ResourceRuleApiGroupsL #-} - --- | 'v1ResourceRuleResourceNames' Lens -v1ResourceRuleResourceNamesL :: Lens_' V1ResourceRule (Maybe [Text]) -v1ResourceRuleResourceNamesL f V1ResourceRule{..} = (\v1ResourceRuleResourceNames -> V1ResourceRule { v1ResourceRuleResourceNames, ..} ) <$> f v1ResourceRuleResourceNames -{-# INLINE v1ResourceRuleResourceNamesL #-} - --- | 'v1ResourceRuleResources' Lens -v1ResourceRuleResourcesL :: Lens_' V1ResourceRule (Maybe [Text]) -v1ResourceRuleResourcesL f V1ResourceRule{..} = (\v1ResourceRuleResources -> V1ResourceRule { v1ResourceRuleResources, ..} ) <$> f v1ResourceRuleResources -{-# INLINE v1ResourceRuleResourcesL #-} - --- | 'v1ResourceRuleVerbs' Lens -v1ResourceRuleVerbsL :: Lens_' V1ResourceRule ([Text]) -v1ResourceRuleVerbsL f V1ResourceRule{..} = (\v1ResourceRuleVerbs -> V1ResourceRule { v1ResourceRuleVerbs, ..} ) <$> f v1ResourceRuleVerbs -{-# INLINE v1ResourceRuleVerbsL #-} - - - --- * V1Role - --- | 'v1RoleApiVersion' Lens -v1RoleApiVersionL :: Lens_' V1Role (Maybe Text) -v1RoleApiVersionL f V1Role{..} = (\v1RoleApiVersion -> V1Role { v1RoleApiVersion, ..} ) <$> f v1RoleApiVersion -{-# INLINE v1RoleApiVersionL #-} - --- | 'v1RoleKind' Lens -v1RoleKindL :: Lens_' V1Role (Maybe Text) -v1RoleKindL f V1Role{..} = (\v1RoleKind -> V1Role { v1RoleKind, ..} ) <$> f v1RoleKind -{-# INLINE v1RoleKindL #-} - --- | 'v1RoleMetadata' Lens -v1RoleMetadataL :: Lens_' V1Role (Maybe V1ObjectMeta) -v1RoleMetadataL f V1Role{..} = (\v1RoleMetadata -> V1Role { v1RoleMetadata, ..} ) <$> f v1RoleMetadata -{-# INLINE v1RoleMetadataL #-} - --- | 'v1RoleRules' Lens -v1RoleRulesL :: Lens_' V1Role (Maybe [V1PolicyRule]) -v1RoleRulesL f V1Role{..} = (\v1RoleRules -> V1Role { v1RoleRules, ..} ) <$> f v1RoleRules -{-# INLINE v1RoleRulesL #-} - - - --- * V1RoleBinding - --- | 'v1RoleBindingApiVersion' Lens -v1RoleBindingApiVersionL :: Lens_' V1RoleBinding (Maybe Text) -v1RoleBindingApiVersionL f V1RoleBinding{..} = (\v1RoleBindingApiVersion -> V1RoleBinding { v1RoleBindingApiVersion, ..} ) <$> f v1RoleBindingApiVersion -{-# INLINE v1RoleBindingApiVersionL #-} - --- | 'v1RoleBindingKind' Lens -v1RoleBindingKindL :: Lens_' V1RoleBinding (Maybe Text) -v1RoleBindingKindL f V1RoleBinding{..} = (\v1RoleBindingKind -> V1RoleBinding { v1RoleBindingKind, ..} ) <$> f v1RoleBindingKind -{-# INLINE v1RoleBindingKindL #-} - --- | 'v1RoleBindingMetadata' Lens -v1RoleBindingMetadataL :: Lens_' V1RoleBinding (Maybe V1ObjectMeta) -v1RoleBindingMetadataL f V1RoleBinding{..} = (\v1RoleBindingMetadata -> V1RoleBinding { v1RoleBindingMetadata, ..} ) <$> f v1RoleBindingMetadata -{-# INLINE v1RoleBindingMetadataL #-} - --- | 'v1RoleBindingRoleRef' Lens -v1RoleBindingRoleRefL :: Lens_' V1RoleBinding (V1RoleRef) -v1RoleBindingRoleRefL f V1RoleBinding{..} = (\v1RoleBindingRoleRef -> V1RoleBinding { v1RoleBindingRoleRef, ..} ) <$> f v1RoleBindingRoleRef -{-# INLINE v1RoleBindingRoleRefL #-} - --- | 'v1RoleBindingSubjects' Lens -v1RoleBindingSubjectsL :: Lens_' V1RoleBinding (Maybe [V1Subject]) -v1RoleBindingSubjectsL f V1RoleBinding{..} = (\v1RoleBindingSubjects -> V1RoleBinding { v1RoleBindingSubjects, ..} ) <$> f v1RoleBindingSubjects -{-# INLINE v1RoleBindingSubjectsL #-} - - - --- * V1RoleBindingList - --- | 'v1RoleBindingListApiVersion' Lens -v1RoleBindingListApiVersionL :: Lens_' V1RoleBindingList (Maybe Text) -v1RoleBindingListApiVersionL f V1RoleBindingList{..} = (\v1RoleBindingListApiVersion -> V1RoleBindingList { v1RoleBindingListApiVersion, ..} ) <$> f v1RoleBindingListApiVersion -{-# INLINE v1RoleBindingListApiVersionL #-} - --- | 'v1RoleBindingListItems' Lens -v1RoleBindingListItemsL :: Lens_' V1RoleBindingList ([V1RoleBinding]) -v1RoleBindingListItemsL f V1RoleBindingList{..} = (\v1RoleBindingListItems -> V1RoleBindingList { v1RoleBindingListItems, ..} ) <$> f v1RoleBindingListItems -{-# INLINE v1RoleBindingListItemsL #-} - --- | 'v1RoleBindingListKind' Lens -v1RoleBindingListKindL :: Lens_' V1RoleBindingList (Maybe Text) -v1RoleBindingListKindL f V1RoleBindingList{..} = (\v1RoleBindingListKind -> V1RoleBindingList { v1RoleBindingListKind, ..} ) <$> f v1RoleBindingListKind -{-# INLINE v1RoleBindingListKindL #-} - --- | 'v1RoleBindingListMetadata' Lens -v1RoleBindingListMetadataL :: Lens_' V1RoleBindingList (Maybe V1ListMeta) -v1RoleBindingListMetadataL f V1RoleBindingList{..} = (\v1RoleBindingListMetadata -> V1RoleBindingList { v1RoleBindingListMetadata, ..} ) <$> f v1RoleBindingListMetadata -{-# INLINE v1RoleBindingListMetadataL #-} - - - --- * V1RoleList - --- | 'v1RoleListApiVersion' Lens -v1RoleListApiVersionL :: Lens_' V1RoleList (Maybe Text) -v1RoleListApiVersionL f V1RoleList{..} = (\v1RoleListApiVersion -> V1RoleList { v1RoleListApiVersion, ..} ) <$> f v1RoleListApiVersion -{-# INLINE v1RoleListApiVersionL #-} - --- | 'v1RoleListItems' Lens -v1RoleListItemsL :: Lens_' V1RoleList ([V1Role]) -v1RoleListItemsL f V1RoleList{..} = (\v1RoleListItems -> V1RoleList { v1RoleListItems, ..} ) <$> f v1RoleListItems -{-# INLINE v1RoleListItemsL #-} - --- | 'v1RoleListKind' Lens -v1RoleListKindL :: Lens_' V1RoleList (Maybe Text) -v1RoleListKindL f V1RoleList{..} = (\v1RoleListKind -> V1RoleList { v1RoleListKind, ..} ) <$> f v1RoleListKind -{-# INLINE v1RoleListKindL #-} - --- | 'v1RoleListMetadata' Lens -v1RoleListMetadataL :: Lens_' V1RoleList (Maybe V1ListMeta) -v1RoleListMetadataL f V1RoleList{..} = (\v1RoleListMetadata -> V1RoleList { v1RoleListMetadata, ..} ) <$> f v1RoleListMetadata -{-# INLINE v1RoleListMetadataL #-} - - - --- * V1RoleRef - --- | 'v1RoleRefApiGroup' Lens -v1RoleRefApiGroupL :: Lens_' V1RoleRef (Text) -v1RoleRefApiGroupL f V1RoleRef{..} = (\v1RoleRefApiGroup -> V1RoleRef { v1RoleRefApiGroup, ..} ) <$> f v1RoleRefApiGroup -{-# INLINE v1RoleRefApiGroupL #-} - --- | 'v1RoleRefKind' Lens -v1RoleRefKindL :: Lens_' V1RoleRef (Text) -v1RoleRefKindL f V1RoleRef{..} = (\v1RoleRefKind -> V1RoleRef { v1RoleRefKind, ..} ) <$> f v1RoleRefKind -{-# INLINE v1RoleRefKindL #-} - --- | 'v1RoleRefName' Lens -v1RoleRefNameL :: Lens_' V1RoleRef (Text) -v1RoleRefNameL f V1RoleRef{..} = (\v1RoleRefName -> V1RoleRef { v1RoleRefName, ..} ) <$> f v1RoleRefName -{-# INLINE v1RoleRefNameL #-} - - - --- * V1RollingUpdateDaemonSet - --- | 'v1RollingUpdateDaemonSetMaxSurge' Lens -v1RollingUpdateDaemonSetMaxSurgeL :: Lens_' V1RollingUpdateDaemonSet (Maybe IntOrString) -v1RollingUpdateDaemonSetMaxSurgeL f V1RollingUpdateDaemonSet{..} = (\v1RollingUpdateDaemonSetMaxSurge -> V1RollingUpdateDaemonSet { v1RollingUpdateDaemonSetMaxSurge, ..} ) <$> f v1RollingUpdateDaemonSetMaxSurge -{-# INLINE v1RollingUpdateDaemonSetMaxSurgeL #-} - --- | 'v1RollingUpdateDaemonSetMaxUnavailable' Lens -v1RollingUpdateDaemonSetMaxUnavailableL :: Lens_' V1RollingUpdateDaemonSet (Maybe IntOrString) -v1RollingUpdateDaemonSetMaxUnavailableL f V1RollingUpdateDaemonSet{..} = (\v1RollingUpdateDaemonSetMaxUnavailable -> V1RollingUpdateDaemonSet { v1RollingUpdateDaemonSetMaxUnavailable, ..} ) <$> f v1RollingUpdateDaemonSetMaxUnavailable -{-# INLINE v1RollingUpdateDaemonSetMaxUnavailableL #-} - - - --- * V1RollingUpdateDeployment - --- | 'v1RollingUpdateDeploymentMaxSurge' Lens -v1RollingUpdateDeploymentMaxSurgeL :: Lens_' V1RollingUpdateDeployment (Maybe IntOrString) -v1RollingUpdateDeploymentMaxSurgeL f V1RollingUpdateDeployment{..} = (\v1RollingUpdateDeploymentMaxSurge -> V1RollingUpdateDeployment { v1RollingUpdateDeploymentMaxSurge, ..} ) <$> f v1RollingUpdateDeploymentMaxSurge -{-# INLINE v1RollingUpdateDeploymentMaxSurgeL #-} - --- | 'v1RollingUpdateDeploymentMaxUnavailable' Lens -v1RollingUpdateDeploymentMaxUnavailableL :: Lens_' V1RollingUpdateDeployment (Maybe IntOrString) -v1RollingUpdateDeploymentMaxUnavailableL f V1RollingUpdateDeployment{..} = (\v1RollingUpdateDeploymentMaxUnavailable -> V1RollingUpdateDeployment { v1RollingUpdateDeploymentMaxUnavailable, ..} ) <$> f v1RollingUpdateDeploymentMaxUnavailable -{-# INLINE v1RollingUpdateDeploymentMaxUnavailableL #-} - - - --- * V1RollingUpdateStatefulSetStrategy - --- | 'v1RollingUpdateStatefulSetStrategyMaxUnavailable' Lens -v1RollingUpdateStatefulSetStrategyMaxUnavailableL :: Lens_' V1RollingUpdateStatefulSetStrategy (Maybe IntOrString) -v1RollingUpdateStatefulSetStrategyMaxUnavailableL f V1RollingUpdateStatefulSetStrategy{..} = (\v1RollingUpdateStatefulSetStrategyMaxUnavailable -> V1RollingUpdateStatefulSetStrategy { v1RollingUpdateStatefulSetStrategyMaxUnavailable, ..} ) <$> f v1RollingUpdateStatefulSetStrategyMaxUnavailable -{-# INLINE v1RollingUpdateStatefulSetStrategyMaxUnavailableL #-} - --- | 'v1RollingUpdateStatefulSetStrategyPartition' Lens -v1RollingUpdateStatefulSetStrategyPartitionL :: Lens_' V1RollingUpdateStatefulSetStrategy (Maybe Int) -v1RollingUpdateStatefulSetStrategyPartitionL f V1RollingUpdateStatefulSetStrategy{..} = (\v1RollingUpdateStatefulSetStrategyPartition -> V1RollingUpdateStatefulSetStrategy { v1RollingUpdateStatefulSetStrategyPartition, ..} ) <$> f v1RollingUpdateStatefulSetStrategyPartition -{-# INLINE v1RollingUpdateStatefulSetStrategyPartitionL #-} - - - --- * V1RuleWithOperations - --- | 'v1RuleWithOperationsApiGroups' Lens -v1RuleWithOperationsApiGroupsL :: Lens_' V1RuleWithOperations (Maybe [Text]) -v1RuleWithOperationsApiGroupsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsApiGroups -> V1RuleWithOperations { v1RuleWithOperationsApiGroups, ..} ) <$> f v1RuleWithOperationsApiGroups -{-# INLINE v1RuleWithOperationsApiGroupsL #-} - --- | 'v1RuleWithOperationsApiVersions' Lens -v1RuleWithOperationsApiVersionsL :: Lens_' V1RuleWithOperations (Maybe [Text]) -v1RuleWithOperationsApiVersionsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsApiVersions -> V1RuleWithOperations { v1RuleWithOperationsApiVersions, ..} ) <$> f v1RuleWithOperationsApiVersions -{-# INLINE v1RuleWithOperationsApiVersionsL #-} - --- | 'v1RuleWithOperationsOperations' Lens -v1RuleWithOperationsOperationsL :: Lens_' V1RuleWithOperations (Maybe [Text]) -v1RuleWithOperationsOperationsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsOperations -> V1RuleWithOperations { v1RuleWithOperationsOperations, ..} ) <$> f v1RuleWithOperationsOperations -{-# INLINE v1RuleWithOperationsOperationsL #-} - --- | 'v1RuleWithOperationsResources' Lens -v1RuleWithOperationsResourcesL :: Lens_' V1RuleWithOperations (Maybe [Text]) -v1RuleWithOperationsResourcesL f V1RuleWithOperations{..} = (\v1RuleWithOperationsResources -> V1RuleWithOperations { v1RuleWithOperationsResources, ..} ) <$> f v1RuleWithOperationsResources -{-# INLINE v1RuleWithOperationsResourcesL #-} - --- | 'v1RuleWithOperationsScope' Lens -v1RuleWithOperationsScopeL :: Lens_' V1RuleWithOperations (Maybe Text) -v1RuleWithOperationsScopeL f V1RuleWithOperations{..} = (\v1RuleWithOperationsScope -> V1RuleWithOperations { v1RuleWithOperationsScope, ..} ) <$> f v1RuleWithOperationsScope -{-# INLINE v1RuleWithOperationsScopeL #-} - - - --- * V1RuntimeClass - --- | 'v1RuntimeClassApiVersion' Lens -v1RuntimeClassApiVersionL :: Lens_' V1RuntimeClass (Maybe Text) -v1RuntimeClassApiVersionL f V1RuntimeClass{..} = (\v1RuntimeClassApiVersion -> V1RuntimeClass { v1RuntimeClassApiVersion, ..} ) <$> f v1RuntimeClassApiVersion -{-# INLINE v1RuntimeClassApiVersionL #-} - --- | 'v1RuntimeClassHandler' Lens -v1RuntimeClassHandlerL :: Lens_' V1RuntimeClass (Text) -v1RuntimeClassHandlerL f V1RuntimeClass{..} = (\v1RuntimeClassHandler -> V1RuntimeClass { v1RuntimeClassHandler, ..} ) <$> f v1RuntimeClassHandler -{-# INLINE v1RuntimeClassHandlerL #-} - --- | 'v1RuntimeClassKind' Lens -v1RuntimeClassKindL :: Lens_' V1RuntimeClass (Maybe Text) -v1RuntimeClassKindL f V1RuntimeClass{..} = (\v1RuntimeClassKind -> V1RuntimeClass { v1RuntimeClassKind, ..} ) <$> f v1RuntimeClassKind -{-# INLINE v1RuntimeClassKindL #-} - --- | 'v1RuntimeClassMetadata' Lens -v1RuntimeClassMetadataL :: Lens_' V1RuntimeClass (Maybe V1ObjectMeta) -v1RuntimeClassMetadataL f V1RuntimeClass{..} = (\v1RuntimeClassMetadata -> V1RuntimeClass { v1RuntimeClassMetadata, ..} ) <$> f v1RuntimeClassMetadata -{-# INLINE v1RuntimeClassMetadataL #-} - --- | 'v1RuntimeClassOverhead' Lens -v1RuntimeClassOverheadL :: Lens_' V1RuntimeClass (Maybe V1Overhead) -v1RuntimeClassOverheadL f V1RuntimeClass{..} = (\v1RuntimeClassOverhead -> V1RuntimeClass { v1RuntimeClassOverhead, ..} ) <$> f v1RuntimeClassOverhead -{-# INLINE v1RuntimeClassOverheadL #-} - --- | 'v1RuntimeClassScheduling' Lens -v1RuntimeClassSchedulingL :: Lens_' V1RuntimeClass (Maybe V1Scheduling) -v1RuntimeClassSchedulingL f V1RuntimeClass{..} = (\v1RuntimeClassScheduling -> V1RuntimeClass { v1RuntimeClassScheduling, ..} ) <$> f v1RuntimeClassScheduling -{-# INLINE v1RuntimeClassSchedulingL #-} - - - --- * V1RuntimeClassList - --- | 'v1RuntimeClassListApiVersion' Lens -v1RuntimeClassListApiVersionL :: Lens_' V1RuntimeClassList (Maybe Text) -v1RuntimeClassListApiVersionL f V1RuntimeClassList{..} = (\v1RuntimeClassListApiVersion -> V1RuntimeClassList { v1RuntimeClassListApiVersion, ..} ) <$> f v1RuntimeClassListApiVersion -{-# INLINE v1RuntimeClassListApiVersionL #-} - --- | 'v1RuntimeClassListItems' Lens -v1RuntimeClassListItemsL :: Lens_' V1RuntimeClassList ([V1RuntimeClass]) -v1RuntimeClassListItemsL f V1RuntimeClassList{..} = (\v1RuntimeClassListItems -> V1RuntimeClassList { v1RuntimeClassListItems, ..} ) <$> f v1RuntimeClassListItems -{-# INLINE v1RuntimeClassListItemsL #-} - --- | 'v1RuntimeClassListKind' Lens -v1RuntimeClassListKindL :: Lens_' V1RuntimeClassList (Maybe Text) -v1RuntimeClassListKindL f V1RuntimeClassList{..} = (\v1RuntimeClassListKind -> V1RuntimeClassList { v1RuntimeClassListKind, ..} ) <$> f v1RuntimeClassListKind -{-# INLINE v1RuntimeClassListKindL #-} - --- | 'v1RuntimeClassListMetadata' Lens -v1RuntimeClassListMetadataL :: Lens_' V1RuntimeClassList (Maybe V1ListMeta) -v1RuntimeClassListMetadataL f V1RuntimeClassList{..} = (\v1RuntimeClassListMetadata -> V1RuntimeClassList { v1RuntimeClassListMetadata, ..} ) <$> f v1RuntimeClassListMetadata -{-# INLINE v1RuntimeClassListMetadataL #-} - - - --- * V1SELinuxOptions - --- | 'v1SELinuxOptionsLevel' Lens -v1SELinuxOptionsLevelL :: Lens_' V1SELinuxOptions (Maybe Text) -v1SELinuxOptionsLevelL f V1SELinuxOptions{..} = (\v1SELinuxOptionsLevel -> V1SELinuxOptions { v1SELinuxOptionsLevel, ..} ) <$> f v1SELinuxOptionsLevel -{-# INLINE v1SELinuxOptionsLevelL #-} - --- | 'v1SELinuxOptionsRole' Lens -v1SELinuxOptionsRoleL :: Lens_' V1SELinuxOptions (Maybe Text) -v1SELinuxOptionsRoleL f V1SELinuxOptions{..} = (\v1SELinuxOptionsRole -> V1SELinuxOptions { v1SELinuxOptionsRole, ..} ) <$> f v1SELinuxOptionsRole -{-# INLINE v1SELinuxOptionsRoleL #-} - --- | 'v1SELinuxOptionsType' Lens -v1SELinuxOptionsTypeL :: Lens_' V1SELinuxOptions (Maybe Text) -v1SELinuxOptionsTypeL f V1SELinuxOptions{..} = (\v1SELinuxOptionsType -> V1SELinuxOptions { v1SELinuxOptionsType, ..} ) <$> f v1SELinuxOptionsType -{-# INLINE v1SELinuxOptionsTypeL #-} - --- | 'v1SELinuxOptionsUser' Lens -v1SELinuxOptionsUserL :: Lens_' V1SELinuxOptions (Maybe Text) -v1SELinuxOptionsUserL f V1SELinuxOptions{..} = (\v1SELinuxOptionsUser -> V1SELinuxOptions { v1SELinuxOptionsUser, ..} ) <$> f v1SELinuxOptionsUser -{-# INLINE v1SELinuxOptionsUserL #-} - - - --- * V1Scale - --- | 'v1ScaleApiVersion' Lens -v1ScaleApiVersionL :: Lens_' V1Scale (Maybe Text) -v1ScaleApiVersionL f V1Scale{..} = (\v1ScaleApiVersion -> V1Scale { v1ScaleApiVersion, ..} ) <$> f v1ScaleApiVersion -{-# INLINE v1ScaleApiVersionL #-} - --- | 'v1ScaleKind' Lens -v1ScaleKindL :: Lens_' V1Scale (Maybe Text) -v1ScaleKindL f V1Scale{..} = (\v1ScaleKind -> V1Scale { v1ScaleKind, ..} ) <$> f v1ScaleKind -{-# INLINE v1ScaleKindL #-} - --- | 'v1ScaleMetadata' Lens -v1ScaleMetadataL :: Lens_' V1Scale (Maybe V1ObjectMeta) -v1ScaleMetadataL f V1Scale{..} = (\v1ScaleMetadata -> V1Scale { v1ScaleMetadata, ..} ) <$> f v1ScaleMetadata -{-# INLINE v1ScaleMetadataL #-} - --- | 'v1ScaleSpec' Lens -v1ScaleSpecL :: Lens_' V1Scale (Maybe V1ScaleSpec) -v1ScaleSpecL f V1Scale{..} = (\v1ScaleSpec -> V1Scale { v1ScaleSpec, ..} ) <$> f v1ScaleSpec -{-# INLINE v1ScaleSpecL #-} - --- | 'v1ScaleStatus' Lens -v1ScaleStatusL :: Lens_' V1Scale (Maybe V1ScaleStatus) -v1ScaleStatusL f V1Scale{..} = (\v1ScaleStatus -> V1Scale { v1ScaleStatus, ..} ) <$> f v1ScaleStatus -{-# INLINE v1ScaleStatusL #-} - - - --- * V1ScaleIOPersistentVolumeSource - --- | 'v1ScaleIOPersistentVolumeSourceFsType' Lens -v1ScaleIOPersistentVolumeSourceFsTypeL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) -v1ScaleIOPersistentVolumeSourceFsTypeL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceFsType -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceFsType, ..} ) <$> f v1ScaleIOPersistentVolumeSourceFsType -{-# INLINE v1ScaleIOPersistentVolumeSourceFsTypeL #-} - --- | 'v1ScaleIOPersistentVolumeSourceGateway' Lens -v1ScaleIOPersistentVolumeSourceGatewayL :: Lens_' V1ScaleIOPersistentVolumeSource (Text) -v1ScaleIOPersistentVolumeSourceGatewayL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceGateway -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceGateway, ..} ) <$> f v1ScaleIOPersistentVolumeSourceGateway -{-# INLINE v1ScaleIOPersistentVolumeSourceGatewayL #-} - --- | 'v1ScaleIOPersistentVolumeSourceProtectionDomain' Lens -v1ScaleIOPersistentVolumeSourceProtectionDomainL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) -v1ScaleIOPersistentVolumeSourceProtectionDomainL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceProtectionDomain -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceProtectionDomain, ..} ) <$> f v1ScaleIOPersistentVolumeSourceProtectionDomain -{-# INLINE v1ScaleIOPersistentVolumeSourceProtectionDomainL #-} - --- | 'v1ScaleIOPersistentVolumeSourceReadOnly' Lens -v1ScaleIOPersistentVolumeSourceReadOnlyL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Bool) -v1ScaleIOPersistentVolumeSourceReadOnlyL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceReadOnly -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceReadOnly, ..} ) <$> f v1ScaleIOPersistentVolumeSourceReadOnly -{-# INLINE v1ScaleIOPersistentVolumeSourceReadOnlyL #-} - --- | 'v1ScaleIOPersistentVolumeSourceSecretRef' Lens -v1ScaleIOPersistentVolumeSourceSecretRefL :: Lens_' V1ScaleIOPersistentVolumeSource (V1SecretReference) -v1ScaleIOPersistentVolumeSourceSecretRefL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSecretRef -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSecretRef, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSecretRef -{-# INLINE v1ScaleIOPersistentVolumeSourceSecretRefL #-} - --- | 'v1ScaleIOPersistentVolumeSourceSslEnabled' Lens -v1ScaleIOPersistentVolumeSourceSslEnabledL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Bool) -v1ScaleIOPersistentVolumeSourceSslEnabledL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSslEnabled -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSslEnabled, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSslEnabled -{-# INLINE v1ScaleIOPersistentVolumeSourceSslEnabledL #-} - --- | 'v1ScaleIOPersistentVolumeSourceStorageMode' Lens -v1ScaleIOPersistentVolumeSourceStorageModeL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) -v1ScaleIOPersistentVolumeSourceStorageModeL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceStorageMode -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceStorageMode, ..} ) <$> f v1ScaleIOPersistentVolumeSourceStorageMode -{-# INLINE v1ScaleIOPersistentVolumeSourceStorageModeL #-} - --- | 'v1ScaleIOPersistentVolumeSourceStoragePool' Lens -v1ScaleIOPersistentVolumeSourceStoragePoolL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) -v1ScaleIOPersistentVolumeSourceStoragePoolL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceStoragePool -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceStoragePool, ..} ) <$> f v1ScaleIOPersistentVolumeSourceStoragePool -{-# INLINE v1ScaleIOPersistentVolumeSourceStoragePoolL #-} - --- | 'v1ScaleIOPersistentVolumeSourceSystem' Lens -v1ScaleIOPersistentVolumeSourceSystemL :: Lens_' V1ScaleIOPersistentVolumeSource (Text) -v1ScaleIOPersistentVolumeSourceSystemL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSystem -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSystem, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSystem -{-# INLINE v1ScaleIOPersistentVolumeSourceSystemL #-} - --- | 'v1ScaleIOPersistentVolumeSourceVolumeName' Lens -v1ScaleIOPersistentVolumeSourceVolumeNameL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) -v1ScaleIOPersistentVolumeSourceVolumeNameL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceVolumeName -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceVolumeName, ..} ) <$> f v1ScaleIOPersistentVolumeSourceVolumeName -{-# INLINE v1ScaleIOPersistentVolumeSourceVolumeNameL #-} - - - --- * V1ScaleIOVolumeSource - --- | 'v1ScaleIOVolumeSourceFsType' Lens -v1ScaleIOVolumeSourceFsTypeL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) -v1ScaleIOVolumeSourceFsTypeL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceFsType -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceFsType, ..} ) <$> f v1ScaleIOVolumeSourceFsType -{-# INLINE v1ScaleIOVolumeSourceFsTypeL #-} - --- | 'v1ScaleIOVolumeSourceGateway' Lens -v1ScaleIOVolumeSourceGatewayL :: Lens_' V1ScaleIOVolumeSource (Text) -v1ScaleIOVolumeSourceGatewayL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceGateway -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceGateway, ..} ) <$> f v1ScaleIOVolumeSourceGateway -{-# INLINE v1ScaleIOVolumeSourceGatewayL #-} - --- | 'v1ScaleIOVolumeSourceProtectionDomain' Lens -v1ScaleIOVolumeSourceProtectionDomainL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) -v1ScaleIOVolumeSourceProtectionDomainL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceProtectionDomain -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceProtectionDomain, ..} ) <$> f v1ScaleIOVolumeSourceProtectionDomain -{-# INLINE v1ScaleIOVolumeSourceProtectionDomainL #-} - --- | 'v1ScaleIOVolumeSourceReadOnly' Lens -v1ScaleIOVolumeSourceReadOnlyL :: Lens_' V1ScaleIOVolumeSource (Maybe Bool) -v1ScaleIOVolumeSourceReadOnlyL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceReadOnly -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceReadOnly, ..} ) <$> f v1ScaleIOVolumeSourceReadOnly -{-# INLINE v1ScaleIOVolumeSourceReadOnlyL #-} - --- | 'v1ScaleIOVolumeSourceSecretRef' Lens -v1ScaleIOVolumeSourceSecretRefL :: Lens_' V1ScaleIOVolumeSource (V1LocalObjectReference) -v1ScaleIOVolumeSourceSecretRefL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSecretRef -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSecretRef, ..} ) <$> f v1ScaleIOVolumeSourceSecretRef -{-# INLINE v1ScaleIOVolumeSourceSecretRefL #-} - --- | 'v1ScaleIOVolumeSourceSslEnabled' Lens -v1ScaleIOVolumeSourceSslEnabledL :: Lens_' V1ScaleIOVolumeSource (Maybe Bool) -v1ScaleIOVolumeSourceSslEnabledL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSslEnabled -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSslEnabled, ..} ) <$> f v1ScaleIOVolumeSourceSslEnabled -{-# INLINE v1ScaleIOVolumeSourceSslEnabledL #-} - --- | 'v1ScaleIOVolumeSourceStorageMode' Lens -v1ScaleIOVolumeSourceStorageModeL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) -v1ScaleIOVolumeSourceStorageModeL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceStorageMode -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceStorageMode, ..} ) <$> f v1ScaleIOVolumeSourceStorageMode -{-# INLINE v1ScaleIOVolumeSourceStorageModeL #-} - --- | 'v1ScaleIOVolumeSourceStoragePool' Lens -v1ScaleIOVolumeSourceStoragePoolL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) -v1ScaleIOVolumeSourceStoragePoolL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceStoragePool -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceStoragePool, ..} ) <$> f v1ScaleIOVolumeSourceStoragePool -{-# INLINE v1ScaleIOVolumeSourceStoragePoolL #-} - --- | 'v1ScaleIOVolumeSourceSystem' Lens -v1ScaleIOVolumeSourceSystemL :: Lens_' V1ScaleIOVolumeSource (Text) -v1ScaleIOVolumeSourceSystemL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSystem -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSystem, ..} ) <$> f v1ScaleIOVolumeSourceSystem -{-# INLINE v1ScaleIOVolumeSourceSystemL #-} - --- | 'v1ScaleIOVolumeSourceVolumeName' Lens -v1ScaleIOVolumeSourceVolumeNameL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) -v1ScaleIOVolumeSourceVolumeNameL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceVolumeName -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceVolumeName, ..} ) <$> f v1ScaleIOVolumeSourceVolumeName -{-# INLINE v1ScaleIOVolumeSourceVolumeNameL #-} - - - --- * V1ScaleSpec - --- | 'v1ScaleSpecReplicas' Lens -v1ScaleSpecReplicasL :: Lens_' V1ScaleSpec (Maybe Int) -v1ScaleSpecReplicasL f V1ScaleSpec{..} = (\v1ScaleSpecReplicas -> V1ScaleSpec { v1ScaleSpecReplicas, ..} ) <$> f v1ScaleSpecReplicas -{-# INLINE v1ScaleSpecReplicasL #-} - - - --- * V1ScaleStatus - --- | 'v1ScaleStatusReplicas' Lens -v1ScaleStatusReplicasL :: Lens_' V1ScaleStatus (Int) -v1ScaleStatusReplicasL f V1ScaleStatus{..} = (\v1ScaleStatusReplicas -> V1ScaleStatus { v1ScaleStatusReplicas, ..} ) <$> f v1ScaleStatusReplicas -{-# INLINE v1ScaleStatusReplicasL #-} - --- | 'v1ScaleStatusSelector' Lens -v1ScaleStatusSelectorL :: Lens_' V1ScaleStatus (Maybe Text) -v1ScaleStatusSelectorL f V1ScaleStatus{..} = (\v1ScaleStatusSelector -> V1ScaleStatus { v1ScaleStatusSelector, ..} ) <$> f v1ScaleStatusSelector -{-# INLINE v1ScaleStatusSelectorL #-} - - - --- * V1Scheduling - --- | 'v1SchedulingNodeSelector' Lens -v1SchedulingNodeSelectorL :: Lens_' V1Scheduling (Maybe (Map.Map String Text)) -v1SchedulingNodeSelectorL f V1Scheduling{..} = (\v1SchedulingNodeSelector -> V1Scheduling { v1SchedulingNodeSelector, ..} ) <$> f v1SchedulingNodeSelector -{-# INLINE v1SchedulingNodeSelectorL #-} - --- | 'v1SchedulingTolerations' Lens -v1SchedulingTolerationsL :: Lens_' V1Scheduling (Maybe [V1Toleration]) -v1SchedulingTolerationsL f V1Scheduling{..} = (\v1SchedulingTolerations -> V1Scheduling { v1SchedulingTolerations, ..} ) <$> f v1SchedulingTolerations -{-# INLINE v1SchedulingTolerationsL #-} - - - --- * V1ScopeSelector - --- | 'v1ScopeSelectorMatchExpressions' Lens -v1ScopeSelectorMatchExpressionsL :: Lens_' V1ScopeSelector (Maybe [V1ScopedResourceSelectorRequirement]) -v1ScopeSelectorMatchExpressionsL f V1ScopeSelector{..} = (\v1ScopeSelectorMatchExpressions -> V1ScopeSelector { v1ScopeSelectorMatchExpressions, ..} ) <$> f v1ScopeSelectorMatchExpressions -{-# INLINE v1ScopeSelectorMatchExpressionsL #-} - - - --- * V1ScopedResourceSelectorRequirement - --- | 'v1ScopedResourceSelectorRequirementOperator' Lens -v1ScopedResourceSelectorRequirementOperatorL :: Lens_' V1ScopedResourceSelectorRequirement (Text) -v1ScopedResourceSelectorRequirementOperatorL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementOperator -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementOperator, ..} ) <$> f v1ScopedResourceSelectorRequirementOperator -{-# INLINE v1ScopedResourceSelectorRequirementOperatorL #-} - --- | 'v1ScopedResourceSelectorRequirementScopeName' Lens -v1ScopedResourceSelectorRequirementScopeNameL :: Lens_' V1ScopedResourceSelectorRequirement (Text) -v1ScopedResourceSelectorRequirementScopeNameL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementScopeName -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementScopeName, ..} ) <$> f v1ScopedResourceSelectorRequirementScopeName -{-# INLINE v1ScopedResourceSelectorRequirementScopeNameL #-} - --- | 'v1ScopedResourceSelectorRequirementValues' Lens -v1ScopedResourceSelectorRequirementValuesL :: Lens_' V1ScopedResourceSelectorRequirement (Maybe [Text]) -v1ScopedResourceSelectorRequirementValuesL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementValues -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementValues, ..} ) <$> f v1ScopedResourceSelectorRequirementValues -{-# INLINE v1ScopedResourceSelectorRequirementValuesL #-} - - - --- * V1SeccompProfile - --- | 'v1SeccompProfileLocalhostProfile' Lens -v1SeccompProfileLocalhostProfileL :: Lens_' V1SeccompProfile (Maybe Text) -v1SeccompProfileLocalhostProfileL f V1SeccompProfile{..} = (\v1SeccompProfileLocalhostProfile -> V1SeccompProfile { v1SeccompProfileLocalhostProfile, ..} ) <$> f v1SeccompProfileLocalhostProfile -{-# INLINE v1SeccompProfileLocalhostProfileL #-} - --- | 'v1SeccompProfileType' Lens -v1SeccompProfileTypeL :: Lens_' V1SeccompProfile (Text) -v1SeccompProfileTypeL f V1SeccompProfile{..} = (\v1SeccompProfileType -> V1SeccompProfile { v1SeccompProfileType, ..} ) <$> f v1SeccompProfileType -{-# INLINE v1SeccompProfileTypeL #-} - - - --- * V1Secret - --- | 'v1SecretApiVersion' Lens -v1SecretApiVersionL :: Lens_' V1Secret (Maybe Text) -v1SecretApiVersionL f V1Secret{..} = (\v1SecretApiVersion -> V1Secret { v1SecretApiVersion, ..} ) <$> f v1SecretApiVersion -{-# INLINE v1SecretApiVersionL #-} - --- | 'v1SecretData' Lens -v1SecretDataL :: Lens_' V1Secret (Maybe (Map.Map String ByteArray)) -v1SecretDataL f V1Secret{..} = (\v1SecretData -> V1Secret { v1SecretData, ..} ) <$> f v1SecretData -{-# INLINE v1SecretDataL #-} - --- | 'v1SecretImmutable' Lens -v1SecretImmutableL :: Lens_' V1Secret (Maybe Bool) -v1SecretImmutableL f V1Secret{..} = (\v1SecretImmutable -> V1Secret { v1SecretImmutable, ..} ) <$> f v1SecretImmutable -{-# INLINE v1SecretImmutableL #-} - --- | 'v1SecretKind' Lens -v1SecretKindL :: Lens_' V1Secret (Maybe Text) -v1SecretKindL f V1Secret{..} = (\v1SecretKind -> V1Secret { v1SecretKind, ..} ) <$> f v1SecretKind -{-# INLINE v1SecretKindL #-} - --- | 'v1SecretMetadata' Lens -v1SecretMetadataL :: Lens_' V1Secret (Maybe V1ObjectMeta) -v1SecretMetadataL f V1Secret{..} = (\v1SecretMetadata -> V1Secret { v1SecretMetadata, ..} ) <$> f v1SecretMetadata -{-# INLINE v1SecretMetadataL #-} - --- | 'v1SecretStringData' Lens -v1SecretStringDataL :: Lens_' V1Secret (Maybe (Map.Map String Text)) -v1SecretStringDataL f V1Secret{..} = (\v1SecretStringData -> V1Secret { v1SecretStringData, ..} ) <$> f v1SecretStringData -{-# INLINE v1SecretStringDataL #-} - --- | 'v1SecretType' Lens -v1SecretTypeL :: Lens_' V1Secret (Maybe Text) -v1SecretTypeL f V1Secret{..} = (\v1SecretType -> V1Secret { v1SecretType, ..} ) <$> f v1SecretType -{-# INLINE v1SecretTypeL #-} - - - --- * V1SecretEnvSource - --- | 'v1SecretEnvSourceName' Lens -v1SecretEnvSourceNameL :: Lens_' V1SecretEnvSource (Maybe Text) -v1SecretEnvSourceNameL f V1SecretEnvSource{..} = (\v1SecretEnvSourceName -> V1SecretEnvSource { v1SecretEnvSourceName, ..} ) <$> f v1SecretEnvSourceName -{-# INLINE v1SecretEnvSourceNameL #-} - --- | 'v1SecretEnvSourceOptional' Lens -v1SecretEnvSourceOptionalL :: Lens_' V1SecretEnvSource (Maybe Bool) -v1SecretEnvSourceOptionalL f V1SecretEnvSource{..} = (\v1SecretEnvSourceOptional -> V1SecretEnvSource { v1SecretEnvSourceOptional, ..} ) <$> f v1SecretEnvSourceOptional -{-# INLINE v1SecretEnvSourceOptionalL #-} - - - --- * V1SecretKeySelector - --- | 'v1SecretKeySelectorKey' Lens -v1SecretKeySelectorKeyL :: Lens_' V1SecretKeySelector (Text) -v1SecretKeySelectorKeyL f V1SecretKeySelector{..} = (\v1SecretKeySelectorKey -> V1SecretKeySelector { v1SecretKeySelectorKey, ..} ) <$> f v1SecretKeySelectorKey -{-# INLINE v1SecretKeySelectorKeyL #-} - --- | 'v1SecretKeySelectorName' Lens -v1SecretKeySelectorNameL :: Lens_' V1SecretKeySelector (Maybe Text) -v1SecretKeySelectorNameL f V1SecretKeySelector{..} = (\v1SecretKeySelectorName -> V1SecretKeySelector { v1SecretKeySelectorName, ..} ) <$> f v1SecretKeySelectorName -{-# INLINE v1SecretKeySelectorNameL #-} - --- | 'v1SecretKeySelectorOptional' Lens -v1SecretKeySelectorOptionalL :: Lens_' V1SecretKeySelector (Maybe Bool) -v1SecretKeySelectorOptionalL f V1SecretKeySelector{..} = (\v1SecretKeySelectorOptional -> V1SecretKeySelector { v1SecretKeySelectorOptional, ..} ) <$> f v1SecretKeySelectorOptional -{-# INLINE v1SecretKeySelectorOptionalL #-} - - - --- * V1SecretList - --- | 'v1SecretListApiVersion' Lens -v1SecretListApiVersionL :: Lens_' V1SecretList (Maybe Text) -v1SecretListApiVersionL f V1SecretList{..} = (\v1SecretListApiVersion -> V1SecretList { v1SecretListApiVersion, ..} ) <$> f v1SecretListApiVersion -{-# INLINE v1SecretListApiVersionL #-} - --- | 'v1SecretListItems' Lens -v1SecretListItemsL :: Lens_' V1SecretList ([V1Secret]) -v1SecretListItemsL f V1SecretList{..} = (\v1SecretListItems -> V1SecretList { v1SecretListItems, ..} ) <$> f v1SecretListItems -{-# INLINE v1SecretListItemsL #-} - --- | 'v1SecretListKind' Lens -v1SecretListKindL :: Lens_' V1SecretList (Maybe Text) -v1SecretListKindL f V1SecretList{..} = (\v1SecretListKind -> V1SecretList { v1SecretListKind, ..} ) <$> f v1SecretListKind -{-# INLINE v1SecretListKindL #-} - --- | 'v1SecretListMetadata' Lens -v1SecretListMetadataL :: Lens_' V1SecretList (Maybe V1ListMeta) -v1SecretListMetadataL f V1SecretList{..} = (\v1SecretListMetadata -> V1SecretList { v1SecretListMetadata, ..} ) <$> f v1SecretListMetadata -{-# INLINE v1SecretListMetadataL #-} - - - --- * V1SecretProjection - --- | 'v1SecretProjectionItems' Lens -v1SecretProjectionItemsL :: Lens_' V1SecretProjection (Maybe [V1KeyToPath]) -v1SecretProjectionItemsL f V1SecretProjection{..} = (\v1SecretProjectionItems -> V1SecretProjection { v1SecretProjectionItems, ..} ) <$> f v1SecretProjectionItems -{-# INLINE v1SecretProjectionItemsL #-} - --- | 'v1SecretProjectionName' Lens -v1SecretProjectionNameL :: Lens_' V1SecretProjection (Maybe Text) -v1SecretProjectionNameL f V1SecretProjection{..} = (\v1SecretProjectionName -> V1SecretProjection { v1SecretProjectionName, ..} ) <$> f v1SecretProjectionName -{-# INLINE v1SecretProjectionNameL #-} - --- | 'v1SecretProjectionOptional' Lens -v1SecretProjectionOptionalL :: Lens_' V1SecretProjection (Maybe Bool) -v1SecretProjectionOptionalL f V1SecretProjection{..} = (\v1SecretProjectionOptional -> V1SecretProjection { v1SecretProjectionOptional, ..} ) <$> f v1SecretProjectionOptional -{-# INLINE v1SecretProjectionOptionalL #-} - - - --- * V1SecretReference - --- | 'v1SecretReferenceName' Lens -v1SecretReferenceNameL :: Lens_' V1SecretReference (Maybe Text) -v1SecretReferenceNameL f V1SecretReference{..} = (\v1SecretReferenceName -> V1SecretReference { v1SecretReferenceName, ..} ) <$> f v1SecretReferenceName -{-# INLINE v1SecretReferenceNameL #-} - --- | 'v1SecretReferenceNamespace' Lens -v1SecretReferenceNamespaceL :: Lens_' V1SecretReference (Maybe Text) -v1SecretReferenceNamespaceL f V1SecretReference{..} = (\v1SecretReferenceNamespace -> V1SecretReference { v1SecretReferenceNamespace, ..} ) <$> f v1SecretReferenceNamespace -{-# INLINE v1SecretReferenceNamespaceL #-} - - - --- * V1SecretVolumeSource - --- | 'v1SecretVolumeSourceDefaultMode' Lens -v1SecretVolumeSourceDefaultModeL :: Lens_' V1SecretVolumeSource (Maybe Int) -v1SecretVolumeSourceDefaultModeL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceDefaultMode -> V1SecretVolumeSource { v1SecretVolumeSourceDefaultMode, ..} ) <$> f v1SecretVolumeSourceDefaultMode -{-# INLINE v1SecretVolumeSourceDefaultModeL #-} - --- | 'v1SecretVolumeSourceItems' Lens -v1SecretVolumeSourceItemsL :: Lens_' V1SecretVolumeSource (Maybe [V1KeyToPath]) -v1SecretVolumeSourceItemsL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceItems -> V1SecretVolumeSource { v1SecretVolumeSourceItems, ..} ) <$> f v1SecretVolumeSourceItems -{-# INLINE v1SecretVolumeSourceItemsL #-} - --- | 'v1SecretVolumeSourceOptional' Lens -v1SecretVolumeSourceOptionalL :: Lens_' V1SecretVolumeSource (Maybe Bool) -v1SecretVolumeSourceOptionalL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceOptional -> V1SecretVolumeSource { v1SecretVolumeSourceOptional, ..} ) <$> f v1SecretVolumeSourceOptional -{-# INLINE v1SecretVolumeSourceOptionalL #-} - --- | 'v1SecretVolumeSourceSecretName' Lens -v1SecretVolumeSourceSecretNameL :: Lens_' V1SecretVolumeSource (Maybe Text) -v1SecretVolumeSourceSecretNameL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceSecretName -> V1SecretVolumeSource { v1SecretVolumeSourceSecretName, ..} ) <$> f v1SecretVolumeSourceSecretName -{-# INLINE v1SecretVolumeSourceSecretNameL #-} - - - --- * V1SecurityContext - --- | 'v1SecurityContextAllowPrivilegeEscalation' Lens -v1SecurityContextAllowPrivilegeEscalationL :: Lens_' V1SecurityContext (Maybe Bool) -v1SecurityContextAllowPrivilegeEscalationL f V1SecurityContext{..} = (\v1SecurityContextAllowPrivilegeEscalation -> V1SecurityContext { v1SecurityContextAllowPrivilegeEscalation, ..} ) <$> f v1SecurityContextAllowPrivilegeEscalation -{-# INLINE v1SecurityContextAllowPrivilegeEscalationL #-} - --- | 'v1SecurityContextCapabilities' Lens -v1SecurityContextCapabilitiesL :: Lens_' V1SecurityContext (Maybe V1Capabilities) -v1SecurityContextCapabilitiesL f V1SecurityContext{..} = (\v1SecurityContextCapabilities -> V1SecurityContext { v1SecurityContextCapabilities, ..} ) <$> f v1SecurityContextCapabilities -{-# INLINE v1SecurityContextCapabilitiesL #-} - --- | 'v1SecurityContextPrivileged' Lens -v1SecurityContextPrivilegedL :: Lens_' V1SecurityContext (Maybe Bool) -v1SecurityContextPrivilegedL f V1SecurityContext{..} = (\v1SecurityContextPrivileged -> V1SecurityContext { v1SecurityContextPrivileged, ..} ) <$> f v1SecurityContextPrivileged -{-# INLINE v1SecurityContextPrivilegedL #-} - --- | 'v1SecurityContextProcMount' Lens -v1SecurityContextProcMountL :: Lens_' V1SecurityContext (Maybe Text) -v1SecurityContextProcMountL f V1SecurityContext{..} = (\v1SecurityContextProcMount -> V1SecurityContext { v1SecurityContextProcMount, ..} ) <$> f v1SecurityContextProcMount -{-# INLINE v1SecurityContextProcMountL #-} - --- | 'v1SecurityContextReadOnlyRootFilesystem' Lens -v1SecurityContextReadOnlyRootFilesystemL :: Lens_' V1SecurityContext (Maybe Bool) -v1SecurityContextReadOnlyRootFilesystemL f V1SecurityContext{..} = (\v1SecurityContextReadOnlyRootFilesystem -> V1SecurityContext { v1SecurityContextReadOnlyRootFilesystem, ..} ) <$> f v1SecurityContextReadOnlyRootFilesystem -{-# INLINE v1SecurityContextReadOnlyRootFilesystemL #-} - --- | 'v1SecurityContextRunAsGroup' Lens -v1SecurityContextRunAsGroupL :: Lens_' V1SecurityContext (Maybe Integer) -v1SecurityContextRunAsGroupL f V1SecurityContext{..} = (\v1SecurityContextRunAsGroup -> V1SecurityContext { v1SecurityContextRunAsGroup, ..} ) <$> f v1SecurityContextRunAsGroup -{-# INLINE v1SecurityContextRunAsGroupL #-} - --- | 'v1SecurityContextRunAsNonRoot' Lens -v1SecurityContextRunAsNonRootL :: Lens_' V1SecurityContext (Maybe Bool) -v1SecurityContextRunAsNonRootL f V1SecurityContext{..} = (\v1SecurityContextRunAsNonRoot -> V1SecurityContext { v1SecurityContextRunAsNonRoot, ..} ) <$> f v1SecurityContextRunAsNonRoot -{-# INLINE v1SecurityContextRunAsNonRootL #-} - --- | 'v1SecurityContextRunAsUser' Lens -v1SecurityContextRunAsUserL :: Lens_' V1SecurityContext (Maybe Integer) -v1SecurityContextRunAsUserL f V1SecurityContext{..} = (\v1SecurityContextRunAsUser -> V1SecurityContext { v1SecurityContextRunAsUser, ..} ) <$> f v1SecurityContextRunAsUser -{-# INLINE v1SecurityContextRunAsUserL #-} - --- | 'v1SecurityContextSeLinuxOptions' Lens -v1SecurityContextSeLinuxOptionsL :: Lens_' V1SecurityContext (Maybe V1SELinuxOptions) -v1SecurityContextSeLinuxOptionsL f V1SecurityContext{..} = (\v1SecurityContextSeLinuxOptions -> V1SecurityContext { v1SecurityContextSeLinuxOptions, ..} ) <$> f v1SecurityContextSeLinuxOptions -{-# INLINE v1SecurityContextSeLinuxOptionsL #-} - --- | 'v1SecurityContextSeccompProfile' Lens -v1SecurityContextSeccompProfileL :: Lens_' V1SecurityContext (Maybe V1SeccompProfile) -v1SecurityContextSeccompProfileL f V1SecurityContext{..} = (\v1SecurityContextSeccompProfile -> V1SecurityContext { v1SecurityContextSeccompProfile, ..} ) <$> f v1SecurityContextSeccompProfile -{-# INLINE v1SecurityContextSeccompProfileL #-} - --- | 'v1SecurityContextWindowsOptions' Lens -v1SecurityContextWindowsOptionsL :: Lens_' V1SecurityContext (Maybe V1WindowsSecurityContextOptions) -v1SecurityContextWindowsOptionsL f V1SecurityContext{..} = (\v1SecurityContextWindowsOptions -> V1SecurityContext { v1SecurityContextWindowsOptions, ..} ) <$> f v1SecurityContextWindowsOptions -{-# INLINE v1SecurityContextWindowsOptionsL #-} - - - --- * V1SelfSubjectAccessReview - --- | 'v1SelfSubjectAccessReviewApiVersion' Lens -v1SelfSubjectAccessReviewApiVersionL :: Lens_' V1SelfSubjectAccessReview (Maybe Text) -v1SelfSubjectAccessReviewApiVersionL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewApiVersion -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewApiVersion, ..} ) <$> f v1SelfSubjectAccessReviewApiVersion -{-# INLINE v1SelfSubjectAccessReviewApiVersionL #-} - --- | 'v1SelfSubjectAccessReviewKind' Lens -v1SelfSubjectAccessReviewKindL :: Lens_' V1SelfSubjectAccessReview (Maybe Text) -v1SelfSubjectAccessReviewKindL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewKind -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewKind, ..} ) <$> f v1SelfSubjectAccessReviewKind -{-# INLINE v1SelfSubjectAccessReviewKindL #-} - --- | 'v1SelfSubjectAccessReviewMetadata' Lens -v1SelfSubjectAccessReviewMetadataL :: Lens_' V1SelfSubjectAccessReview (Maybe V1ObjectMeta) -v1SelfSubjectAccessReviewMetadataL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewMetadata -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewMetadata, ..} ) <$> f v1SelfSubjectAccessReviewMetadata -{-# INLINE v1SelfSubjectAccessReviewMetadataL #-} - --- | 'v1SelfSubjectAccessReviewSpec' Lens -v1SelfSubjectAccessReviewSpecL :: Lens_' V1SelfSubjectAccessReview (V1SelfSubjectAccessReviewSpec) -v1SelfSubjectAccessReviewSpecL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewSpec -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewSpec, ..} ) <$> f v1SelfSubjectAccessReviewSpec -{-# INLINE v1SelfSubjectAccessReviewSpecL #-} - --- | 'v1SelfSubjectAccessReviewStatus' Lens -v1SelfSubjectAccessReviewStatusL :: Lens_' V1SelfSubjectAccessReview (Maybe V1SubjectAccessReviewStatus) -v1SelfSubjectAccessReviewStatusL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewStatus -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewStatus, ..} ) <$> f v1SelfSubjectAccessReviewStatus -{-# INLINE v1SelfSubjectAccessReviewStatusL #-} - - - --- * V1SelfSubjectAccessReviewSpec - --- | 'v1SelfSubjectAccessReviewSpecNonResourceAttributes' Lens -v1SelfSubjectAccessReviewSpecNonResourceAttributesL :: Lens_' V1SelfSubjectAccessReviewSpec (Maybe V1NonResourceAttributes) -v1SelfSubjectAccessReviewSpecNonResourceAttributesL f V1SelfSubjectAccessReviewSpec{..} = (\v1SelfSubjectAccessReviewSpecNonResourceAttributes -> V1SelfSubjectAccessReviewSpec { v1SelfSubjectAccessReviewSpecNonResourceAttributes, ..} ) <$> f v1SelfSubjectAccessReviewSpecNonResourceAttributes -{-# INLINE v1SelfSubjectAccessReviewSpecNonResourceAttributesL #-} - --- | 'v1SelfSubjectAccessReviewSpecResourceAttributes' Lens -v1SelfSubjectAccessReviewSpecResourceAttributesL :: Lens_' V1SelfSubjectAccessReviewSpec (Maybe V1ResourceAttributes) -v1SelfSubjectAccessReviewSpecResourceAttributesL f V1SelfSubjectAccessReviewSpec{..} = (\v1SelfSubjectAccessReviewSpecResourceAttributes -> V1SelfSubjectAccessReviewSpec { v1SelfSubjectAccessReviewSpecResourceAttributes, ..} ) <$> f v1SelfSubjectAccessReviewSpecResourceAttributes -{-# INLINE v1SelfSubjectAccessReviewSpecResourceAttributesL #-} - - - --- * V1SelfSubjectRulesReview - --- | 'v1SelfSubjectRulesReviewApiVersion' Lens -v1SelfSubjectRulesReviewApiVersionL :: Lens_' V1SelfSubjectRulesReview (Maybe Text) -v1SelfSubjectRulesReviewApiVersionL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewApiVersion -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewApiVersion, ..} ) <$> f v1SelfSubjectRulesReviewApiVersion -{-# INLINE v1SelfSubjectRulesReviewApiVersionL #-} - --- | 'v1SelfSubjectRulesReviewKind' Lens -v1SelfSubjectRulesReviewKindL :: Lens_' V1SelfSubjectRulesReview (Maybe Text) -v1SelfSubjectRulesReviewKindL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewKind -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewKind, ..} ) <$> f v1SelfSubjectRulesReviewKind -{-# INLINE v1SelfSubjectRulesReviewKindL #-} - --- | 'v1SelfSubjectRulesReviewMetadata' Lens -v1SelfSubjectRulesReviewMetadataL :: Lens_' V1SelfSubjectRulesReview (Maybe V1ObjectMeta) -v1SelfSubjectRulesReviewMetadataL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewMetadata -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewMetadata, ..} ) <$> f v1SelfSubjectRulesReviewMetadata -{-# INLINE v1SelfSubjectRulesReviewMetadataL #-} - --- | 'v1SelfSubjectRulesReviewSpec' Lens -v1SelfSubjectRulesReviewSpecL :: Lens_' V1SelfSubjectRulesReview (V1SelfSubjectRulesReviewSpec) -v1SelfSubjectRulesReviewSpecL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewSpec -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewSpec, ..} ) <$> f v1SelfSubjectRulesReviewSpec -{-# INLINE v1SelfSubjectRulesReviewSpecL #-} - --- | 'v1SelfSubjectRulesReviewStatus' Lens -v1SelfSubjectRulesReviewStatusL :: Lens_' V1SelfSubjectRulesReview (Maybe V1SubjectRulesReviewStatus) -v1SelfSubjectRulesReviewStatusL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewStatus -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewStatus, ..} ) <$> f v1SelfSubjectRulesReviewStatus -{-# INLINE v1SelfSubjectRulesReviewStatusL #-} - - - --- * V1SelfSubjectRulesReviewSpec - --- | 'v1SelfSubjectRulesReviewSpecNamespace' Lens -v1SelfSubjectRulesReviewSpecNamespaceL :: Lens_' V1SelfSubjectRulesReviewSpec (Maybe Text) -v1SelfSubjectRulesReviewSpecNamespaceL f V1SelfSubjectRulesReviewSpec{..} = (\v1SelfSubjectRulesReviewSpecNamespace -> V1SelfSubjectRulesReviewSpec { v1SelfSubjectRulesReviewSpecNamespace, ..} ) <$> f v1SelfSubjectRulesReviewSpecNamespace -{-# INLINE v1SelfSubjectRulesReviewSpecNamespaceL #-} - - - --- * V1ServerAddressByClientCIDR - --- | 'v1ServerAddressByClientCIDRClientCidr' Lens -v1ServerAddressByClientCIDRClientCidrL :: Lens_' V1ServerAddressByClientCIDR (Text) -v1ServerAddressByClientCIDRClientCidrL f V1ServerAddressByClientCIDR{..} = (\v1ServerAddressByClientCIDRClientCidr -> V1ServerAddressByClientCIDR { v1ServerAddressByClientCIDRClientCidr, ..} ) <$> f v1ServerAddressByClientCIDRClientCidr -{-# INLINE v1ServerAddressByClientCIDRClientCidrL #-} - --- | 'v1ServerAddressByClientCIDRServerAddress' Lens -v1ServerAddressByClientCIDRServerAddressL :: Lens_' V1ServerAddressByClientCIDR (Text) -v1ServerAddressByClientCIDRServerAddressL f V1ServerAddressByClientCIDR{..} = (\v1ServerAddressByClientCIDRServerAddress -> V1ServerAddressByClientCIDR { v1ServerAddressByClientCIDRServerAddress, ..} ) <$> f v1ServerAddressByClientCIDRServerAddress -{-# INLINE v1ServerAddressByClientCIDRServerAddressL #-} - - - --- * V1Service - --- | 'v1ServiceApiVersion' Lens -v1ServiceApiVersionL :: Lens_' V1Service (Maybe Text) -v1ServiceApiVersionL f V1Service{..} = (\v1ServiceApiVersion -> V1Service { v1ServiceApiVersion, ..} ) <$> f v1ServiceApiVersion -{-# INLINE v1ServiceApiVersionL #-} - --- | 'v1ServiceKind' Lens -v1ServiceKindL :: Lens_' V1Service (Maybe Text) -v1ServiceKindL f V1Service{..} = (\v1ServiceKind -> V1Service { v1ServiceKind, ..} ) <$> f v1ServiceKind -{-# INLINE v1ServiceKindL #-} - --- | 'v1ServiceMetadata' Lens -v1ServiceMetadataL :: Lens_' V1Service (Maybe V1ObjectMeta) -v1ServiceMetadataL f V1Service{..} = (\v1ServiceMetadata -> V1Service { v1ServiceMetadata, ..} ) <$> f v1ServiceMetadata -{-# INLINE v1ServiceMetadataL #-} - --- | 'v1ServiceSpec' Lens -v1ServiceSpecL :: Lens_' V1Service (Maybe V1ServiceSpec) -v1ServiceSpecL f V1Service{..} = (\v1ServiceSpec -> V1Service { v1ServiceSpec, ..} ) <$> f v1ServiceSpec -{-# INLINE v1ServiceSpecL #-} - --- | 'v1ServiceStatus' Lens -v1ServiceStatusL :: Lens_' V1Service (Maybe V1ServiceStatus) -v1ServiceStatusL f V1Service{..} = (\v1ServiceStatus -> V1Service { v1ServiceStatus, ..} ) <$> f v1ServiceStatus -{-# INLINE v1ServiceStatusL #-} - - - --- * V1ServiceAccount - --- | 'v1ServiceAccountApiVersion' Lens -v1ServiceAccountApiVersionL :: Lens_' V1ServiceAccount (Maybe Text) -v1ServiceAccountApiVersionL f V1ServiceAccount{..} = (\v1ServiceAccountApiVersion -> V1ServiceAccount { v1ServiceAccountApiVersion, ..} ) <$> f v1ServiceAccountApiVersion -{-# INLINE v1ServiceAccountApiVersionL #-} - --- | 'v1ServiceAccountAutomountServiceAccountToken' Lens -v1ServiceAccountAutomountServiceAccountTokenL :: Lens_' V1ServiceAccount (Maybe Bool) -v1ServiceAccountAutomountServiceAccountTokenL f V1ServiceAccount{..} = (\v1ServiceAccountAutomountServiceAccountToken -> V1ServiceAccount { v1ServiceAccountAutomountServiceAccountToken, ..} ) <$> f v1ServiceAccountAutomountServiceAccountToken -{-# INLINE v1ServiceAccountAutomountServiceAccountTokenL #-} - --- | 'v1ServiceAccountImagePullSecrets' Lens -v1ServiceAccountImagePullSecretsL :: Lens_' V1ServiceAccount (Maybe [V1LocalObjectReference]) -v1ServiceAccountImagePullSecretsL f V1ServiceAccount{..} = (\v1ServiceAccountImagePullSecrets -> V1ServiceAccount { v1ServiceAccountImagePullSecrets, ..} ) <$> f v1ServiceAccountImagePullSecrets -{-# INLINE v1ServiceAccountImagePullSecretsL #-} - --- | 'v1ServiceAccountKind' Lens -v1ServiceAccountKindL :: Lens_' V1ServiceAccount (Maybe Text) -v1ServiceAccountKindL f V1ServiceAccount{..} = (\v1ServiceAccountKind -> V1ServiceAccount { v1ServiceAccountKind, ..} ) <$> f v1ServiceAccountKind -{-# INLINE v1ServiceAccountKindL #-} - --- | 'v1ServiceAccountMetadata' Lens -v1ServiceAccountMetadataL :: Lens_' V1ServiceAccount (Maybe V1ObjectMeta) -v1ServiceAccountMetadataL f V1ServiceAccount{..} = (\v1ServiceAccountMetadata -> V1ServiceAccount { v1ServiceAccountMetadata, ..} ) <$> f v1ServiceAccountMetadata -{-# INLINE v1ServiceAccountMetadataL #-} - --- | 'v1ServiceAccountSecrets' Lens -v1ServiceAccountSecretsL :: Lens_' V1ServiceAccount (Maybe [V1ObjectReference]) -v1ServiceAccountSecretsL f V1ServiceAccount{..} = (\v1ServiceAccountSecrets -> V1ServiceAccount { v1ServiceAccountSecrets, ..} ) <$> f v1ServiceAccountSecrets -{-# INLINE v1ServiceAccountSecretsL #-} - - - --- * V1ServiceAccountList - --- | 'v1ServiceAccountListApiVersion' Lens -v1ServiceAccountListApiVersionL :: Lens_' V1ServiceAccountList (Maybe Text) -v1ServiceAccountListApiVersionL f V1ServiceAccountList{..} = (\v1ServiceAccountListApiVersion -> V1ServiceAccountList { v1ServiceAccountListApiVersion, ..} ) <$> f v1ServiceAccountListApiVersion -{-# INLINE v1ServiceAccountListApiVersionL #-} - --- | 'v1ServiceAccountListItems' Lens -v1ServiceAccountListItemsL :: Lens_' V1ServiceAccountList ([V1ServiceAccount]) -v1ServiceAccountListItemsL f V1ServiceAccountList{..} = (\v1ServiceAccountListItems -> V1ServiceAccountList { v1ServiceAccountListItems, ..} ) <$> f v1ServiceAccountListItems -{-# INLINE v1ServiceAccountListItemsL #-} - --- | 'v1ServiceAccountListKind' Lens -v1ServiceAccountListKindL :: Lens_' V1ServiceAccountList (Maybe Text) -v1ServiceAccountListKindL f V1ServiceAccountList{..} = (\v1ServiceAccountListKind -> V1ServiceAccountList { v1ServiceAccountListKind, ..} ) <$> f v1ServiceAccountListKind -{-# INLINE v1ServiceAccountListKindL #-} - --- | 'v1ServiceAccountListMetadata' Lens -v1ServiceAccountListMetadataL :: Lens_' V1ServiceAccountList (Maybe V1ListMeta) -v1ServiceAccountListMetadataL f V1ServiceAccountList{..} = (\v1ServiceAccountListMetadata -> V1ServiceAccountList { v1ServiceAccountListMetadata, ..} ) <$> f v1ServiceAccountListMetadata -{-# INLINE v1ServiceAccountListMetadataL #-} - - - --- * V1ServiceAccountTokenProjection - --- | 'v1ServiceAccountTokenProjectionAudience' Lens -v1ServiceAccountTokenProjectionAudienceL :: Lens_' V1ServiceAccountTokenProjection (Maybe Text) -v1ServiceAccountTokenProjectionAudienceL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionAudience -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionAudience, ..} ) <$> f v1ServiceAccountTokenProjectionAudience -{-# INLINE v1ServiceAccountTokenProjectionAudienceL #-} - --- | 'v1ServiceAccountTokenProjectionExpirationSeconds' Lens -v1ServiceAccountTokenProjectionExpirationSecondsL :: Lens_' V1ServiceAccountTokenProjection (Maybe Integer) -v1ServiceAccountTokenProjectionExpirationSecondsL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionExpirationSeconds -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionExpirationSeconds, ..} ) <$> f v1ServiceAccountTokenProjectionExpirationSeconds -{-# INLINE v1ServiceAccountTokenProjectionExpirationSecondsL #-} - --- | 'v1ServiceAccountTokenProjectionPath' Lens -v1ServiceAccountTokenProjectionPathL :: Lens_' V1ServiceAccountTokenProjection (Text) -v1ServiceAccountTokenProjectionPathL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionPath -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionPath, ..} ) <$> f v1ServiceAccountTokenProjectionPath -{-# INLINE v1ServiceAccountTokenProjectionPathL #-} - - - --- * V1ServiceBackendPort - --- | 'v1ServiceBackendPortName' Lens -v1ServiceBackendPortNameL :: Lens_' V1ServiceBackendPort (Maybe Text) -v1ServiceBackendPortNameL f V1ServiceBackendPort{..} = (\v1ServiceBackendPortName -> V1ServiceBackendPort { v1ServiceBackendPortName, ..} ) <$> f v1ServiceBackendPortName -{-# INLINE v1ServiceBackendPortNameL #-} - --- | 'v1ServiceBackendPortNumber' Lens -v1ServiceBackendPortNumberL :: Lens_' V1ServiceBackendPort (Maybe Int) -v1ServiceBackendPortNumberL f V1ServiceBackendPort{..} = (\v1ServiceBackendPortNumber -> V1ServiceBackendPort { v1ServiceBackendPortNumber, ..} ) <$> f v1ServiceBackendPortNumber -{-# INLINE v1ServiceBackendPortNumberL #-} - - - --- * V1ServiceList - --- | 'v1ServiceListApiVersion' Lens -v1ServiceListApiVersionL :: Lens_' V1ServiceList (Maybe Text) -v1ServiceListApiVersionL f V1ServiceList{..} = (\v1ServiceListApiVersion -> V1ServiceList { v1ServiceListApiVersion, ..} ) <$> f v1ServiceListApiVersion -{-# INLINE v1ServiceListApiVersionL #-} - --- | 'v1ServiceListItems' Lens -v1ServiceListItemsL :: Lens_' V1ServiceList ([V1Service]) -v1ServiceListItemsL f V1ServiceList{..} = (\v1ServiceListItems -> V1ServiceList { v1ServiceListItems, ..} ) <$> f v1ServiceListItems -{-# INLINE v1ServiceListItemsL #-} - --- | 'v1ServiceListKind' Lens -v1ServiceListKindL :: Lens_' V1ServiceList (Maybe Text) -v1ServiceListKindL f V1ServiceList{..} = (\v1ServiceListKind -> V1ServiceList { v1ServiceListKind, ..} ) <$> f v1ServiceListKind -{-# INLINE v1ServiceListKindL #-} - --- | 'v1ServiceListMetadata' Lens -v1ServiceListMetadataL :: Lens_' V1ServiceList (Maybe V1ListMeta) -v1ServiceListMetadataL f V1ServiceList{..} = (\v1ServiceListMetadata -> V1ServiceList { v1ServiceListMetadata, ..} ) <$> f v1ServiceListMetadata -{-# INLINE v1ServiceListMetadataL #-} - - - --- * V1ServicePort - --- | 'v1ServicePortAppProtocol' Lens -v1ServicePortAppProtocolL :: Lens_' V1ServicePort (Maybe Text) -v1ServicePortAppProtocolL f V1ServicePort{..} = (\v1ServicePortAppProtocol -> V1ServicePort { v1ServicePortAppProtocol, ..} ) <$> f v1ServicePortAppProtocol -{-# INLINE v1ServicePortAppProtocolL #-} - --- | 'v1ServicePortName' Lens -v1ServicePortNameL :: Lens_' V1ServicePort (Maybe Text) -v1ServicePortNameL f V1ServicePort{..} = (\v1ServicePortName -> V1ServicePort { v1ServicePortName, ..} ) <$> f v1ServicePortName -{-# INLINE v1ServicePortNameL #-} - --- | 'v1ServicePortNodePort' Lens -v1ServicePortNodePortL :: Lens_' V1ServicePort (Maybe Int) -v1ServicePortNodePortL f V1ServicePort{..} = (\v1ServicePortNodePort -> V1ServicePort { v1ServicePortNodePort, ..} ) <$> f v1ServicePortNodePort -{-# INLINE v1ServicePortNodePortL #-} - --- | 'v1ServicePortPort' Lens -v1ServicePortPortL :: Lens_' V1ServicePort (Int) -v1ServicePortPortL f V1ServicePort{..} = (\v1ServicePortPort -> V1ServicePort { v1ServicePortPort, ..} ) <$> f v1ServicePortPort -{-# INLINE v1ServicePortPortL #-} - --- | 'v1ServicePortProtocol' Lens -v1ServicePortProtocolL :: Lens_' V1ServicePort (Maybe Text) -v1ServicePortProtocolL f V1ServicePort{..} = (\v1ServicePortProtocol -> V1ServicePort { v1ServicePortProtocol, ..} ) <$> f v1ServicePortProtocol -{-# INLINE v1ServicePortProtocolL #-} - --- | 'v1ServicePortTargetPort' Lens -v1ServicePortTargetPortL :: Lens_' V1ServicePort (Maybe IntOrString) -v1ServicePortTargetPortL f V1ServicePort{..} = (\v1ServicePortTargetPort -> V1ServicePort { v1ServicePortTargetPort, ..} ) <$> f v1ServicePortTargetPort -{-# INLINE v1ServicePortTargetPortL #-} - - - --- * V1ServiceSpec - --- | 'v1ServiceSpecAllocateLoadBalancerNodePorts' Lens -v1ServiceSpecAllocateLoadBalancerNodePortsL :: Lens_' V1ServiceSpec (Maybe Bool) -v1ServiceSpecAllocateLoadBalancerNodePortsL f V1ServiceSpec{..} = (\v1ServiceSpecAllocateLoadBalancerNodePorts -> V1ServiceSpec { v1ServiceSpecAllocateLoadBalancerNodePorts, ..} ) <$> f v1ServiceSpecAllocateLoadBalancerNodePorts -{-# INLINE v1ServiceSpecAllocateLoadBalancerNodePortsL #-} - --- | 'v1ServiceSpecClusterIp' Lens -v1ServiceSpecClusterIpL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecClusterIpL f V1ServiceSpec{..} = (\v1ServiceSpecClusterIp -> V1ServiceSpec { v1ServiceSpecClusterIp, ..} ) <$> f v1ServiceSpecClusterIp -{-# INLINE v1ServiceSpecClusterIpL #-} - --- | 'v1ServiceSpecClusterIps' Lens -v1ServiceSpecClusterIpsL :: Lens_' V1ServiceSpec (Maybe [Text]) -v1ServiceSpecClusterIpsL f V1ServiceSpec{..} = (\v1ServiceSpecClusterIps -> V1ServiceSpec { v1ServiceSpecClusterIps, ..} ) <$> f v1ServiceSpecClusterIps -{-# INLINE v1ServiceSpecClusterIpsL #-} - --- | 'v1ServiceSpecExternalIps' Lens -v1ServiceSpecExternalIpsL :: Lens_' V1ServiceSpec (Maybe [Text]) -v1ServiceSpecExternalIpsL f V1ServiceSpec{..} = (\v1ServiceSpecExternalIps -> V1ServiceSpec { v1ServiceSpecExternalIps, ..} ) <$> f v1ServiceSpecExternalIps -{-# INLINE v1ServiceSpecExternalIpsL #-} - --- | 'v1ServiceSpecExternalName' Lens -v1ServiceSpecExternalNameL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecExternalNameL f V1ServiceSpec{..} = (\v1ServiceSpecExternalName -> V1ServiceSpec { v1ServiceSpecExternalName, ..} ) <$> f v1ServiceSpecExternalName -{-# INLINE v1ServiceSpecExternalNameL #-} - --- | 'v1ServiceSpecExternalTrafficPolicy' Lens -v1ServiceSpecExternalTrafficPolicyL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecExternalTrafficPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecExternalTrafficPolicy -> V1ServiceSpec { v1ServiceSpecExternalTrafficPolicy, ..} ) <$> f v1ServiceSpecExternalTrafficPolicy -{-# INLINE v1ServiceSpecExternalTrafficPolicyL #-} - --- | 'v1ServiceSpecHealthCheckNodePort' Lens -v1ServiceSpecHealthCheckNodePortL :: Lens_' V1ServiceSpec (Maybe Int) -v1ServiceSpecHealthCheckNodePortL f V1ServiceSpec{..} = (\v1ServiceSpecHealthCheckNodePort -> V1ServiceSpec { v1ServiceSpecHealthCheckNodePort, ..} ) <$> f v1ServiceSpecHealthCheckNodePort -{-# INLINE v1ServiceSpecHealthCheckNodePortL #-} - --- | 'v1ServiceSpecInternalTrafficPolicy' Lens -v1ServiceSpecInternalTrafficPolicyL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecInternalTrafficPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecInternalTrafficPolicy -> V1ServiceSpec { v1ServiceSpecInternalTrafficPolicy, ..} ) <$> f v1ServiceSpecInternalTrafficPolicy -{-# INLINE v1ServiceSpecInternalTrafficPolicyL #-} - --- | 'v1ServiceSpecIpFamilies' Lens -v1ServiceSpecIpFamiliesL :: Lens_' V1ServiceSpec (Maybe [Text]) -v1ServiceSpecIpFamiliesL f V1ServiceSpec{..} = (\v1ServiceSpecIpFamilies -> V1ServiceSpec { v1ServiceSpecIpFamilies, ..} ) <$> f v1ServiceSpecIpFamilies -{-# INLINE v1ServiceSpecIpFamiliesL #-} - --- | 'v1ServiceSpecIpFamilyPolicy' Lens -v1ServiceSpecIpFamilyPolicyL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecIpFamilyPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecIpFamilyPolicy -> V1ServiceSpec { v1ServiceSpecIpFamilyPolicy, ..} ) <$> f v1ServiceSpecIpFamilyPolicy -{-# INLINE v1ServiceSpecIpFamilyPolicyL #-} - --- | 'v1ServiceSpecLoadBalancerClass' Lens -v1ServiceSpecLoadBalancerClassL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecLoadBalancerClassL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerClass -> V1ServiceSpec { v1ServiceSpecLoadBalancerClass, ..} ) <$> f v1ServiceSpecLoadBalancerClass -{-# INLINE v1ServiceSpecLoadBalancerClassL #-} - --- | 'v1ServiceSpecLoadBalancerIp' Lens -v1ServiceSpecLoadBalancerIpL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecLoadBalancerIpL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerIp -> V1ServiceSpec { v1ServiceSpecLoadBalancerIp, ..} ) <$> f v1ServiceSpecLoadBalancerIp -{-# INLINE v1ServiceSpecLoadBalancerIpL #-} - --- | 'v1ServiceSpecLoadBalancerSourceRanges' Lens -v1ServiceSpecLoadBalancerSourceRangesL :: Lens_' V1ServiceSpec (Maybe [Text]) -v1ServiceSpecLoadBalancerSourceRangesL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerSourceRanges -> V1ServiceSpec { v1ServiceSpecLoadBalancerSourceRanges, ..} ) <$> f v1ServiceSpecLoadBalancerSourceRanges -{-# INLINE v1ServiceSpecLoadBalancerSourceRangesL #-} - --- | 'v1ServiceSpecPorts' Lens -v1ServiceSpecPortsL :: Lens_' V1ServiceSpec (Maybe [V1ServicePort]) -v1ServiceSpecPortsL f V1ServiceSpec{..} = (\v1ServiceSpecPorts -> V1ServiceSpec { v1ServiceSpecPorts, ..} ) <$> f v1ServiceSpecPorts -{-# INLINE v1ServiceSpecPortsL #-} - --- | 'v1ServiceSpecPublishNotReadyAddresses' Lens -v1ServiceSpecPublishNotReadyAddressesL :: Lens_' V1ServiceSpec (Maybe Bool) -v1ServiceSpecPublishNotReadyAddressesL f V1ServiceSpec{..} = (\v1ServiceSpecPublishNotReadyAddresses -> V1ServiceSpec { v1ServiceSpecPublishNotReadyAddresses, ..} ) <$> f v1ServiceSpecPublishNotReadyAddresses -{-# INLINE v1ServiceSpecPublishNotReadyAddressesL #-} - --- | 'v1ServiceSpecSelector' Lens -v1ServiceSpecSelectorL :: Lens_' V1ServiceSpec (Maybe (Map.Map String Text)) -v1ServiceSpecSelectorL f V1ServiceSpec{..} = (\v1ServiceSpecSelector -> V1ServiceSpec { v1ServiceSpecSelector, ..} ) <$> f v1ServiceSpecSelector -{-# INLINE v1ServiceSpecSelectorL #-} - --- | 'v1ServiceSpecSessionAffinity' Lens -v1ServiceSpecSessionAffinityL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecSessionAffinityL f V1ServiceSpec{..} = (\v1ServiceSpecSessionAffinity -> V1ServiceSpec { v1ServiceSpecSessionAffinity, ..} ) <$> f v1ServiceSpecSessionAffinity -{-# INLINE v1ServiceSpecSessionAffinityL #-} - --- | 'v1ServiceSpecSessionAffinityConfig' Lens -v1ServiceSpecSessionAffinityConfigL :: Lens_' V1ServiceSpec (Maybe V1SessionAffinityConfig) -v1ServiceSpecSessionAffinityConfigL f V1ServiceSpec{..} = (\v1ServiceSpecSessionAffinityConfig -> V1ServiceSpec { v1ServiceSpecSessionAffinityConfig, ..} ) <$> f v1ServiceSpecSessionAffinityConfig -{-# INLINE v1ServiceSpecSessionAffinityConfigL #-} - --- | 'v1ServiceSpecType' Lens -v1ServiceSpecTypeL :: Lens_' V1ServiceSpec (Maybe Text) -v1ServiceSpecTypeL f V1ServiceSpec{..} = (\v1ServiceSpecType -> V1ServiceSpec { v1ServiceSpecType, ..} ) <$> f v1ServiceSpecType -{-# INLINE v1ServiceSpecTypeL #-} - - - --- * V1ServiceStatus - --- | 'v1ServiceStatusConditions' Lens -v1ServiceStatusConditionsL :: Lens_' V1ServiceStatus (Maybe [V1Condition]) -v1ServiceStatusConditionsL f V1ServiceStatus{..} = (\v1ServiceStatusConditions -> V1ServiceStatus { v1ServiceStatusConditions, ..} ) <$> f v1ServiceStatusConditions -{-# INLINE v1ServiceStatusConditionsL #-} - --- | 'v1ServiceStatusLoadBalancer' Lens -v1ServiceStatusLoadBalancerL :: Lens_' V1ServiceStatus (Maybe V1LoadBalancerStatus) -v1ServiceStatusLoadBalancerL f V1ServiceStatus{..} = (\v1ServiceStatusLoadBalancer -> V1ServiceStatus { v1ServiceStatusLoadBalancer, ..} ) <$> f v1ServiceStatusLoadBalancer -{-# INLINE v1ServiceStatusLoadBalancerL #-} - - - --- * V1SessionAffinityConfig - --- | 'v1SessionAffinityConfigClientIp' Lens -v1SessionAffinityConfigClientIpL :: Lens_' V1SessionAffinityConfig (Maybe V1ClientIPConfig) -v1SessionAffinityConfigClientIpL f V1SessionAffinityConfig{..} = (\v1SessionAffinityConfigClientIp -> V1SessionAffinityConfig { v1SessionAffinityConfigClientIp, ..} ) <$> f v1SessionAffinityConfigClientIp -{-# INLINE v1SessionAffinityConfigClientIpL #-} - - - --- * V1StatefulSet - --- | 'v1StatefulSetApiVersion' Lens -v1StatefulSetApiVersionL :: Lens_' V1StatefulSet (Maybe Text) -v1StatefulSetApiVersionL f V1StatefulSet{..} = (\v1StatefulSetApiVersion -> V1StatefulSet { v1StatefulSetApiVersion, ..} ) <$> f v1StatefulSetApiVersion -{-# INLINE v1StatefulSetApiVersionL #-} - --- | 'v1StatefulSetKind' Lens -v1StatefulSetKindL :: Lens_' V1StatefulSet (Maybe Text) -v1StatefulSetKindL f V1StatefulSet{..} = (\v1StatefulSetKind -> V1StatefulSet { v1StatefulSetKind, ..} ) <$> f v1StatefulSetKind -{-# INLINE v1StatefulSetKindL #-} - --- | 'v1StatefulSetMetadata' Lens -v1StatefulSetMetadataL :: Lens_' V1StatefulSet (Maybe V1ObjectMeta) -v1StatefulSetMetadataL f V1StatefulSet{..} = (\v1StatefulSetMetadata -> V1StatefulSet { v1StatefulSetMetadata, ..} ) <$> f v1StatefulSetMetadata -{-# INLINE v1StatefulSetMetadataL #-} - --- | 'v1StatefulSetSpec' Lens -v1StatefulSetSpecL :: Lens_' V1StatefulSet (Maybe V1StatefulSetSpec) -v1StatefulSetSpecL f V1StatefulSet{..} = (\v1StatefulSetSpec -> V1StatefulSet { v1StatefulSetSpec, ..} ) <$> f v1StatefulSetSpec -{-# INLINE v1StatefulSetSpecL #-} - --- | 'v1StatefulSetStatus' Lens -v1StatefulSetStatusL :: Lens_' V1StatefulSet (Maybe V1StatefulSetStatus) -v1StatefulSetStatusL f V1StatefulSet{..} = (\v1StatefulSetStatus -> V1StatefulSet { v1StatefulSetStatus, ..} ) <$> f v1StatefulSetStatus -{-# INLINE v1StatefulSetStatusL #-} - - - --- * V1StatefulSetCondition - --- | 'v1StatefulSetConditionLastTransitionTime' Lens -v1StatefulSetConditionLastTransitionTimeL :: Lens_' V1StatefulSetCondition (Maybe DateTime) -v1StatefulSetConditionLastTransitionTimeL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionLastTransitionTime -> V1StatefulSetCondition { v1StatefulSetConditionLastTransitionTime, ..} ) <$> f v1StatefulSetConditionLastTransitionTime -{-# INLINE v1StatefulSetConditionLastTransitionTimeL #-} - --- | 'v1StatefulSetConditionMessage' Lens -v1StatefulSetConditionMessageL :: Lens_' V1StatefulSetCondition (Maybe Text) -v1StatefulSetConditionMessageL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionMessage -> V1StatefulSetCondition { v1StatefulSetConditionMessage, ..} ) <$> f v1StatefulSetConditionMessage -{-# INLINE v1StatefulSetConditionMessageL #-} - --- | 'v1StatefulSetConditionReason' Lens -v1StatefulSetConditionReasonL :: Lens_' V1StatefulSetCondition (Maybe Text) -v1StatefulSetConditionReasonL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionReason -> V1StatefulSetCondition { v1StatefulSetConditionReason, ..} ) <$> f v1StatefulSetConditionReason -{-# INLINE v1StatefulSetConditionReasonL #-} - --- | 'v1StatefulSetConditionStatus' Lens -v1StatefulSetConditionStatusL :: Lens_' V1StatefulSetCondition (Text) -v1StatefulSetConditionStatusL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionStatus -> V1StatefulSetCondition { v1StatefulSetConditionStatus, ..} ) <$> f v1StatefulSetConditionStatus -{-# INLINE v1StatefulSetConditionStatusL #-} - --- | 'v1StatefulSetConditionType' Lens -v1StatefulSetConditionTypeL :: Lens_' V1StatefulSetCondition (Text) -v1StatefulSetConditionTypeL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionType -> V1StatefulSetCondition { v1StatefulSetConditionType, ..} ) <$> f v1StatefulSetConditionType -{-# INLINE v1StatefulSetConditionTypeL #-} - - - --- * V1StatefulSetList - --- | 'v1StatefulSetListApiVersion' Lens -v1StatefulSetListApiVersionL :: Lens_' V1StatefulSetList (Maybe Text) -v1StatefulSetListApiVersionL f V1StatefulSetList{..} = (\v1StatefulSetListApiVersion -> V1StatefulSetList { v1StatefulSetListApiVersion, ..} ) <$> f v1StatefulSetListApiVersion -{-# INLINE v1StatefulSetListApiVersionL #-} - --- | 'v1StatefulSetListItems' Lens -v1StatefulSetListItemsL :: Lens_' V1StatefulSetList ([V1StatefulSet]) -v1StatefulSetListItemsL f V1StatefulSetList{..} = (\v1StatefulSetListItems -> V1StatefulSetList { v1StatefulSetListItems, ..} ) <$> f v1StatefulSetListItems -{-# INLINE v1StatefulSetListItemsL #-} - --- | 'v1StatefulSetListKind' Lens -v1StatefulSetListKindL :: Lens_' V1StatefulSetList (Maybe Text) -v1StatefulSetListKindL f V1StatefulSetList{..} = (\v1StatefulSetListKind -> V1StatefulSetList { v1StatefulSetListKind, ..} ) <$> f v1StatefulSetListKind -{-# INLINE v1StatefulSetListKindL #-} - --- | 'v1StatefulSetListMetadata' Lens -v1StatefulSetListMetadataL :: Lens_' V1StatefulSetList (Maybe V1ListMeta) -v1StatefulSetListMetadataL f V1StatefulSetList{..} = (\v1StatefulSetListMetadata -> V1StatefulSetList { v1StatefulSetListMetadata, ..} ) <$> f v1StatefulSetListMetadata -{-# INLINE v1StatefulSetListMetadataL #-} - - - --- * V1StatefulSetOrdinals - --- | 'v1StatefulSetOrdinalsStart' Lens -v1StatefulSetOrdinalsStartL :: Lens_' V1StatefulSetOrdinals (Maybe Int) -v1StatefulSetOrdinalsStartL f V1StatefulSetOrdinals{..} = (\v1StatefulSetOrdinalsStart -> V1StatefulSetOrdinals { v1StatefulSetOrdinalsStart, ..} ) <$> f v1StatefulSetOrdinalsStart -{-# INLINE v1StatefulSetOrdinalsStartL #-} - - - --- * V1StatefulSetPersistentVolumeClaimRetentionPolicy - --- | 'v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted' Lens -v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL :: Lens_' V1StatefulSetPersistentVolumeClaimRetentionPolicy (Maybe Text) -v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL f V1StatefulSetPersistentVolumeClaimRetentionPolicy{..} = (\v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted -> V1StatefulSetPersistentVolumeClaimRetentionPolicy { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted, ..} ) <$> f v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted -{-# INLINE v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL #-} - --- | 'v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled' Lens -v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL :: Lens_' V1StatefulSetPersistentVolumeClaimRetentionPolicy (Maybe Text) -v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL f V1StatefulSetPersistentVolumeClaimRetentionPolicy{..} = (\v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled -> V1StatefulSetPersistentVolumeClaimRetentionPolicy { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled, ..} ) <$> f v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled -{-# INLINE v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL #-} - - - --- * V1StatefulSetSpec - --- | 'v1StatefulSetSpecMinReadySeconds' Lens -v1StatefulSetSpecMinReadySecondsL :: Lens_' V1StatefulSetSpec (Maybe Int) -v1StatefulSetSpecMinReadySecondsL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecMinReadySeconds -> V1StatefulSetSpec { v1StatefulSetSpecMinReadySeconds, ..} ) <$> f v1StatefulSetSpecMinReadySeconds -{-# INLINE v1StatefulSetSpecMinReadySecondsL #-} - --- | 'v1StatefulSetSpecOrdinals' Lens -v1StatefulSetSpecOrdinalsL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetOrdinals) -v1StatefulSetSpecOrdinalsL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecOrdinals -> V1StatefulSetSpec { v1StatefulSetSpecOrdinals, ..} ) <$> f v1StatefulSetSpecOrdinals -{-# INLINE v1StatefulSetSpecOrdinalsL #-} - --- | 'v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy' Lens -v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetPersistentVolumeClaimRetentionPolicy) -v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy -> V1StatefulSetSpec { v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy, ..} ) <$> f v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy -{-# INLINE v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL #-} - --- | 'v1StatefulSetSpecPodManagementPolicy' Lens -v1StatefulSetSpecPodManagementPolicyL :: Lens_' V1StatefulSetSpec (Maybe Text) -v1StatefulSetSpecPodManagementPolicyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecPodManagementPolicy -> V1StatefulSetSpec { v1StatefulSetSpecPodManagementPolicy, ..} ) <$> f v1StatefulSetSpecPodManagementPolicy -{-# INLINE v1StatefulSetSpecPodManagementPolicyL #-} - --- | 'v1StatefulSetSpecReplicas' Lens -v1StatefulSetSpecReplicasL :: Lens_' V1StatefulSetSpec (Maybe Int) -v1StatefulSetSpecReplicasL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecReplicas -> V1StatefulSetSpec { v1StatefulSetSpecReplicas, ..} ) <$> f v1StatefulSetSpecReplicas -{-# INLINE v1StatefulSetSpecReplicasL #-} - --- | 'v1StatefulSetSpecRevisionHistoryLimit' Lens -v1StatefulSetSpecRevisionHistoryLimitL :: Lens_' V1StatefulSetSpec (Maybe Int) -v1StatefulSetSpecRevisionHistoryLimitL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecRevisionHistoryLimit -> V1StatefulSetSpec { v1StatefulSetSpecRevisionHistoryLimit, ..} ) <$> f v1StatefulSetSpecRevisionHistoryLimit -{-# INLINE v1StatefulSetSpecRevisionHistoryLimitL #-} - --- | 'v1StatefulSetSpecSelector' Lens -v1StatefulSetSpecSelectorL :: Lens_' V1StatefulSetSpec (V1LabelSelector) -v1StatefulSetSpecSelectorL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecSelector -> V1StatefulSetSpec { v1StatefulSetSpecSelector, ..} ) <$> f v1StatefulSetSpecSelector -{-# INLINE v1StatefulSetSpecSelectorL #-} - --- | 'v1StatefulSetSpecServiceName' Lens -v1StatefulSetSpecServiceNameL :: Lens_' V1StatefulSetSpec (Text) -v1StatefulSetSpecServiceNameL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecServiceName -> V1StatefulSetSpec { v1StatefulSetSpecServiceName, ..} ) <$> f v1StatefulSetSpecServiceName -{-# INLINE v1StatefulSetSpecServiceNameL #-} - --- | 'v1StatefulSetSpecTemplate' Lens -v1StatefulSetSpecTemplateL :: Lens_' V1StatefulSetSpec (V1PodTemplateSpec) -v1StatefulSetSpecTemplateL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecTemplate -> V1StatefulSetSpec { v1StatefulSetSpecTemplate, ..} ) <$> f v1StatefulSetSpecTemplate -{-# INLINE v1StatefulSetSpecTemplateL #-} - --- | 'v1StatefulSetSpecUpdateStrategy' Lens -v1StatefulSetSpecUpdateStrategyL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetUpdateStrategy) -v1StatefulSetSpecUpdateStrategyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecUpdateStrategy -> V1StatefulSetSpec { v1StatefulSetSpecUpdateStrategy, ..} ) <$> f v1StatefulSetSpecUpdateStrategy -{-# INLINE v1StatefulSetSpecUpdateStrategyL #-} - --- | 'v1StatefulSetSpecVolumeClaimTemplates' Lens -v1StatefulSetSpecVolumeClaimTemplatesL :: Lens_' V1StatefulSetSpec (Maybe [V1PersistentVolumeClaim]) -v1StatefulSetSpecVolumeClaimTemplatesL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecVolumeClaimTemplates -> V1StatefulSetSpec { v1StatefulSetSpecVolumeClaimTemplates, ..} ) <$> f v1StatefulSetSpecVolumeClaimTemplates -{-# INLINE v1StatefulSetSpecVolumeClaimTemplatesL #-} - - - --- * V1StatefulSetStatus - --- | 'v1StatefulSetStatusAvailableReplicas' Lens -v1StatefulSetStatusAvailableReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) -v1StatefulSetStatusAvailableReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusAvailableReplicas -> V1StatefulSetStatus { v1StatefulSetStatusAvailableReplicas, ..} ) <$> f v1StatefulSetStatusAvailableReplicas -{-# INLINE v1StatefulSetStatusAvailableReplicasL #-} - --- | 'v1StatefulSetStatusCollisionCount' Lens -v1StatefulSetStatusCollisionCountL :: Lens_' V1StatefulSetStatus (Maybe Int) -v1StatefulSetStatusCollisionCountL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCollisionCount -> V1StatefulSetStatus { v1StatefulSetStatusCollisionCount, ..} ) <$> f v1StatefulSetStatusCollisionCount -{-# INLINE v1StatefulSetStatusCollisionCountL #-} - --- | 'v1StatefulSetStatusConditions' Lens -v1StatefulSetStatusConditionsL :: Lens_' V1StatefulSetStatus (Maybe [V1StatefulSetCondition]) -v1StatefulSetStatusConditionsL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusConditions -> V1StatefulSetStatus { v1StatefulSetStatusConditions, ..} ) <$> f v1StatefulSetStatusConditions -{-# INLINE v1StatefulSetStatusConditionsL #-} - --- | 'v1StatefulSetStatusCurrentReplicas' Lens -v1StatefulSetStatusCurrentReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) -v1StatefulSetStatusCurrentReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCurrentReplicas -> V1StatefulSetStatus { v1StatefulSetStatusCurrentReplicas, ..} ) <$> f v1StatefulSetStatusCurrentReplicas -{-# INLINE v1StatefulSetStatusCurrentReplicasL #-} - --- | 'v1StatefulSetStatusCurrentRevision' Lens -v1StatefulSetStatusCurrentRevisionL :: Lens_' V1StatefulSetStatus (Maybe Text) -v1StatefulSetStatusCurrentRevisionL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCurrentRevision -> V1StatefulSetStatus { v1StatefulSetStatusCurrentRevision, ..} ) <$> f v1StatefulSetStatusCurrentRevision -{-# INLINE v1StatefulSetStatusCurrentRevisionL #-} - --- | 'v1StatefulSetStatusObservedGeneration' Lens -v1StatefulSetStatusObservedGenerationL :: Lens_' V1StatefulSetStatus (Maybe Integer) -v1StatefulSetStatusObservedGenerationL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusObservedGeneration -> V1StatefulSetStatus { v1StatefulSetStatusObservedGeneration, ..} ) <$> f v1StatefulSetStatusObservedGeneration -{-# INLINE v1StatefulSetStatusObservedGenerationL #-} - --- | 'v1StatefulSetStatusReadyReplicas' Lens -v1StatefulSetStatusReadyReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) -v1StatefulSetStatusReadyReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusReadyReplicas -> V1StatefulSetStatus { v1StatefulSetStatusReadyReplicas, ..} ) <$> f v1StatefulSetStatusReadyReplicas -{-# INLINE v1StatefulSetStatusReadyReplicasL #-} - --- | 'v1StatefulSetStatusReplicas' Lens -v1StatefulSetStatusReplicasL :: Lens_' V1StatefulSetStatus (Int) -v1StatefulSetStatusReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusReplicas -> V1StatefulSetStatus { v1StatefulSetStatusReplicas, ..} ) <$> f v1StatefulSetStatusReplicas -{-# INLINE v1StatefulSetStatusReplicasL #-} - --- | 'v1StatefulSetStatusUpdateRevision' Lens -v1StatefulSetStatusUpdateRevisionL :: Lens_' V1StatefulSetStatus (Maybe Text) -v1StatefulSetStatusUpdateRevisionL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusUpdateRevision -> V1StatefulSetStatus { v1StatefulSetStatusUpdateRevision, ..} ) <$> f v1StatefulSetStatusUpdateRevision -{-# INLINE v1StatefulSetStatusUpdateRevisionL #-} - --- | 'v1StatefulSetStatusUpdatedReplicas' Lens -v1StatefulSetStatusUpdatedReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) -v1StatefulSetStatusUpdatedReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusUpdatedReplicas -> V1StatefulSetStatus { v1StatefulSetStatusUpdatedReplicas, ..} ) <$> f v1StatefulSetStatusUpdatedReplicas -{-# INLINE v1StatefulSetStatusUpdatedReplicasL #-} - - - --- * V1StatefulSetUpdateStrategy - --- | 'v1StatefulSetUpdateStrategyRollingUpdate' Lens -v1StatefulSetUpdateStrategyRollingUpdateL :: Lens_' V1StatefulSetUpdateStrategy (Maybe V1RollingUpdateStatefulSetStrategy) -v1StatefulSetUpdateStrategyRollingUpdateL f V1StatefulSetUpdateStrategy{..} = (\v1StatefulSetUpdateStrategyRollingUpdate -> V1StatefulSetUpdateStrategy { v1StatefulSetUpdateStrategyRollingUpdate, ..} ) <$> f v1StatefulSetUpdateStrategyRollingUpdate -{-# INLINE v1StatefulSetUpdateStrategyRollingUpdateL #-} - --- | 'v1StatefulSetUpdateStrategyType' Lens -v1StatefulSetUpdateStrategyTypeL :: Lens_' V1StatefulSetUpdateStrategy (Maybe Text) -v1StatefulSetUpdateStrategyTypeL f V1StatefulSetUpdateStrategy{..} = (\v1StatefulSetUpdateStrategyType -> V1StatefulSetUpdateStrategy { v1StatefulSetUpdateStrategyType, ..} ) <$> f v1StatefulSetUpdateStrategyType -{-# INLINE v1StatefulSetUpdateStrategyTypeL #-} - - - --- * V1Status - --- | 'v1StatusApiVersion' Lens -v1StatusApiVersionL :: Lens_' V1Status (Maybe Text) -v1StatusApiVersionL f V1Status{..} = (\v1StatusApiVersion -> V1Status { v1StatusApiVersion, ..} ) <$> f v1StatusApiVersion -{-# INLINE v1StatusApiVersionL #-} - --- | 'v1StatusCode' Lens -v1StatusCodeL :: Lens_' V1Status (Maybe Int) -v1StatusCodeL f V1Status{..} = (\v1StatusCode -> V1Status { v1StatusCode, ..} ) <$> f v1StatusCode -{-# INLINE v1StatusCodeL #-} - --- | 'v1StatusDetails' Lens -v1StatusDetailsL :: Lens_' V1Status (Maybe V1StatusDetails) -v1StatusDetailsL f V1Status{..} = (\v1StatusDetails -> V1Status { v1StatusDetails, ..} ) <$> f v1StatusDetails -{-# INLINE v1StatusDetailsL #-} - --- | 'v1StatusKind' Lens -v1StatusKindL :: Lens_' V1Status (Maybe Text) -v1StatusKindL f V1Status{..} = (\v1StatusKind -> V1Status { v1StatusKind, ..} ) <$> f v1StatusKind -{-# INLINE v1StatusKindL #-} - --- | 'v1StatusMessage' Lens -v1StatusMessageL :: Lens_' V1Status (Maybe Text) -v1StatusMessageL f V1Status{..} = (\v1StatusMessage -> V1Status { v1StatusMessage, ..} ) <$> f v1StatusMessage -{-# INLINE v1StatusMessageL #-} - --- | 'v1StatusMetadata' Lens -v1StatusMetadataL :: Lens_' V1Status (Maybe V1ListMeta) -v1StatusMetadataL f V1Status{..} = (\v1StatusMetadata -> V1Status { v1StatusMetadata, ..} ) <$> f v1StatusMetadata -{-# INLINE v1StatusMetadataL #-} - --- | 'v1StatusReason' Lens -v1StatusReasonL :: Lens_' V1Status (Maybe Text) -v1StatusReasonL f V1Status{..} = (\v1StatusReason -> V1Status { v1StatusReason, ..} ) <$> f v1StatusReason -{-# INLINE v1StatusReasonL #-} - --- | 'v1StatusStatus' Lens -v1StatusStatusL :: Lens_' V1Status (Maybe Text) -v1StatusStatusL f V1Status{..} = (\v1StatusStatus -> V1Status { v1StatusStatus, ..} ) <$> f v1StatusStatus -{-# INLINE v1StatusStatusL #-} - - - --- * V1StatusCause - --- | 'v1StatusCauseField' Lens -v1StatusCauseFieldL :: Lens_' V1StatusCause (Maybe Text) -v1StatusCauseFieldL f V1StatusCause{..} = (\v1StatusCauseField -> V1StatusCause { v1StatusCauseField, ..} ) <$> f v1StatusCauseField -{-# INLINE v1StatusCauseFieldL #-} - --- | 'v1StatusCauseMessage' Lens -v1StatusCauseMessageL :: Lens_' V1StatusCause (Maybe Text) -v1StatusCauseMessageL f V1StatusCause{..} = (\v1StatusCauseMessage -> V1StatusCause { v1StatusCauseMessage, ..} ) <$> f v1StatusCauseMessage -{-# INLINE v1StatusCauseMessageL #-} - --- | 'v1StatusCauseReason' Lens -v1StatusCauseReasonL :: Lens_' V1StatusCause (Maybe Text) -v1StatusCauseReasonL f V1StatusCause{..} = (\v1StatusCauseReason -> V1StatusCause { v1StatusCauseReason, ..} ) <$> f v1StatusCauseReason -{-# INLINE v1StatusCauseReasonL #-} - - - --- * V1StatusDetails - --- | 'v1StatusDetailsCauses' Lens -v1StatusDetailsCausesL :: Lens_' V1StatusDetails (Maybe [V1StatusCause]) -v1StatusDetailsCausesL f V1StatusDetails{..} = (\v1StatusDetailsCauses -> V1StatusDetails { v1StatusDetailsCauses, ..} ) <$> f v1StatusDetailsCauses -{-# INLINE v1StatusDetailsCausesL #-} - --- | 'v1StatusDetailsGroup' Lens -v1StatusDetailsGroupL :: Lens_' V1StatusDetails (Maybe Text) -v1StatusDetailsGroupL f V1StatusDetails{..} = (\v1StatusDetailsGroup -> V1StatusDetails { v1StatusDetailsGroup, ..} ) <$> f v1StatusDetailsGroup -{-# INLINE v1StatusDetailsGroupL #-} - --- | 'v1StatusDetailsKind' Lens -v1StatusDetailsKindL :: Lens_' V1StatusDetails (Maybe Text) -v1StatusDetailsKindL f V1StatusDetails{..} = (\v1StatusDetailsKind -> V1StatusDetails { v1StatusDetailsKind, ..} ) <$> f v1StatusDetailsKind -{-# INLINE v1StatusDetailsKindL #-} - --- | 'v1StatusDetailsName' Lens -v1StatusDetailsNameL :: Lens_' V1StatusDetails (Maybe Text) -v1StatusDetailsNameL f V1StatusDetails{..} = (\v1StatusDetailsName -> V1StatusDetails { v1StatusDetailsName, ..} ) <$> f v1StatusDetailsName -{-# INLINE v1StatusDetailsNameL #-} - --- | 'v1StatusDetailsRetryAfterSeconds' Lens -v1StatusDetailsRetryAfterSecondsL :: Lens_' V1StatusDetails (Maybe Int) -v1StatusDetailsRetryAfterSecondsL f V1StatusDetails{..} = (\v1StatusDetailsRetryAfterSeconds -> V1StatusDetails { v1StatusDetailsRetryAfterSeconds, ..} ) <$> f v1StatusDetailsRetryAfterSeconds -{-# INLINE v1StatusDetailsRetryAfterSecondsL #-} - --- | 'v1StatusDetailsUid' Lens -v1StatusDetailsUidL :: Lens_' V1StatusDetails (Maybe Text) -v1StatusDetailsUidL f V1StatusDetails{..} = (\v1StatusDetailsUid -> V1StatusDetails { v1StatusDetailsUid, ..} ) <$> f v1StatusDetailsUid -{-# INLINE v1StatusDetailsUidL #-} - - - --- * V1StorageClass - --- | 'v1StorageClassAllowVolumeExpansion' Lens -v1StorageClassAllowVolumeExpansionL :: Lens_' V1StorageClass (Maybe Bool) -v1StorageClassAllowVolumeExpansionL f V1StorageClass{..} = (\v1StorageClassAllowVolumeExpansion -> V1StorageClass { v1StorageClassAllowVolumeExpansion, ..} ) <$> f v1StorageClassAllowVolumeExpansion -{-# INLINE v1StorageClassAllowVolumeExpansionL #-} - --- | 'v1StorageClassAllowedTopologies' Lens -v1StorageClassAllowedTopologiesL :: Lens_' V1StorageClass (Maybe [V1TopologySelectorTerm]) -v1StorageClassAllowedTopologiesL f V1StorageClass{..} = (\v1StorageClassAllowedTopologies -> V1StorageClass { v1StorageClassAllowedTopologies, ..} ) <$> f v1StorageClassAllowedTopologies -{-# INLINE v1StorageClassAllowedTopologiesL #-} - --- | 'v1StorageClassApiVersion' Lens -v1StorageClassApiVersionL :: Lens_' V1StorageClass (Maybe Text) -v1StorageClassApiVersionL f V1StorageClass{..} = (\v1StorageClassApiVersion -> V1StorageClass { v1StorageClassApiVersion, ..} ) <$> f v1StorageClassApiVersion -{-# INLINE v1StorageClassApiVersionL #-} - --- | 'v1StorageClassKind' Lens -v1StorageClassKindL :: Lens_' V1StorageClass (Maybe Text) -v1StorageClassKindL f V1StorageClass{..} = (\v1StorageClassKind -> V1StorageClass { v1StorageClassKind, ..} ) <$> f v1StorageClassKind -{-# INLINE v1StorageClassKindL #-} - --- | 'v1StorageClassMetadata' Lens -v1StorageClassMetadataL :: Lens_' V1StorageClass (Maybe V1ObjectMeta) -v1StorageClassMetadataL f V1StorageClass{..} = (\v1StorageClassMetadata -> V1StorageClass { v1StorageClassMetadata, ..} ) <$> f v1StorageClassMetadata -{-# INLINE v1StorageClassMetadataL #-} - --- | 'v1StorageClassMountOptions' Lens -v1StorageClassMountOptionsL :: Lens_' V1StorageClass (Maybe [Text]) -v1StorageClassMountOptionsL f V1StorageClass{..} = (\v1StorageClassMountOptions -> V1StorageClass { v1StorageClassMountOptions, ..} ) <$> f v1StorageClassMountOptions -{-# INLINE v1StorageClassMountOptionsL #-} - --- | 'v1StorageClassParameters' Lens -v1StorageClassParametersL :: Lens_' V1StorageClass (Maybe (Map.Map String Text)) -v1StorageClassParametersL f V1StorageClass{..} = (\v1StorageClassParameters -> V1StorageClass { v1StorageClassParameters, ..} ) <$> f v1StorageClassParameters -{-# INLINE v1StorageClassParametersL #-} - --- | 'v1StorageClassProvisioner' Lens -v1StorageClassProvisionerL :: Lens_' V1StorageClass (Text) -v1StorageClassProvisionerL f V1StorageClass{..} = (\v1StorageClassProvisioner -> V1StorageClass { v1StorageClassProvisioner, ..} ) <$> f v1StorageClassProvisioner -{-# INLINE v1StorageClassProvisionerL #-} - --- | 'v1StorageClassReclaimPolicy' Lens -v1StorageClassReclaimPolicyL :: Lens_' V1StorageClass (Maybe Text) -v1StorageClassReclaimPolicyL f V1StorageClass{..} = (\v1StorageClassReclaimPolicy -> V1StorageClass { v1StorageClassReclaimPolicy, ..} ) <$> f v1StorageClassReclaimPolicy -{-# INLINE v1StorageClassReclaimPolicyL #-} - --- | 'v1StorageClassVolumeBindingMode' Lens -v1StorageClassVolumeBindingModeL :: Lens_' V1StorageClass (Maybe Text) -v1StorageClassVolumeBindingModeL f V1StorageClass{..} = (\v1StorageClassVolumeBindingMode -> V1StorageClass { v1StorageClassVolumeBindingMode, ..} ) <$> f v1StorageClassVolumeBindingMode -{-# INLINE v1StorageClassVolumeBindingModeL #-} - - - --- * V1StorageClassList - --- | 'v1StorageClassListApiVersion' Lens -v1StorageClassListApiVersionL :: Lens_' V1StorageClassList (Maybe Text) -v1StorageClassListApiVersionL f V1StorageClassList{..} = (\v1StorageClassListApiVersion -> V1StorageClassList { v1StorageClassListApiVersion, ..} ) <$> f v1StorageClassListApiVersion -{-# INLINE v1StorageClassListApiVersionL #-} - --- | 'v1StorageClassListItems' Lens -v1StorageClassListItemsL :: Lens_' V1StorageClassList ([V1StorageClass]) -v1StorageClassListItemsL f V1StorageClassList{..} = (\v1StorageClassListItems -> V1StorageClassList { v1StorageClassListItems, ..} ) <$> f v1StorageClassListItems -{-# INLINE v1StorageClassListItemsL #-} - --- | 'v1StorageClassListKind' Lens -v1StorageClassListKindL :: Lens_' V1StorageClassList (Maybe Text) -v1StorageClassListKindL f V1StorageClassList{..} = (\v1StorageClassListKind -> V1StorageClassList { v1StorageClassListKind, ..} ) <$> f v1StorageClassListKind -{-# INLINE v1StorageClassListKindL #-} - --- | 'v1StorageClassListMetadata' Lens -v1StorageClassListMetadataL :: Lens_' V1StorageClassList (Maybe V1ListMeta) -v1StorageClassListMetadataL f V1StorageClassList{..} = (\v1StorageClassListMetadata -> V1StorageClassList { v1StorageClassListMetadata, ..} ) <$> f v1StorageClassListMetadata -{-# INLINE v1StorageClassListMetadataL #-} - - - --- * V1StorageOSPersistentVolumeSource - --- | 'v1StorageOSPersistentVolumeSourceFsType' Lens -v1StorageOSPersistentVolumeSourceFsTypeL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) -v1StorageOSPersistentVolumeSourceFsTypeL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceFsType -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceFsType, ..} ) <$> f v1StorageOSPersistentVolumeSourceFsType -{-# INLINE v1StorageOSPersistentVolumeSourceFsTypeL #-} - --- | 'v1StorageOSPersistentVolumeSourceReadOnly' Lens -v1StorageOSPersistentVolumeSourceReadOnlyL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Bool) -v1StorageOSPersistentVolumeSourceReadOnlyL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceReadOnly -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceReadOnly, ..} ) <$> f v1StorageOSPersistentVolumeSourceReadOnly -{-# INLINE v1StorageOSPersistentVolumeSourceReadOnlyL #-} - --- | 'v1StorageOSPersistentVolumeSourceSecretRef' Lens -v1StorageOSPersistentVolumeSourceSecretRefL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe V1ObjectReference) -v1StorageOSPersistentVolumeSourceSecretRefL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceSecretRef -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceSecretRef, ..} ) <$> f v1StorageOSPersistentVolumeSourceSecretRef -{-# INLINE v1StorageOSPersistentVolumeSourceSecretRefL #-} - --- | 'v1StorageOSPersistentVolumeSourceVolumeName' Lens -v1StorageOSPersistentVolumeSourceVolumeNameL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) -v1StorageOSPersistentVolumeSourceVolumeNameL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceVolumeName -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceVolumeName, ..} ) <$> f v1StorageOSPersistentVolumeSourceVolumeName -{-# INLINE v1StorageOSPersistentVolumeSourceVolumeNameL #-} - --- | 'v1StorageOSPersistentVolumeSourceVolumeNamespace' Lens -v1StorageOSPersistentVolumeSourceVolumeNamespaceL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) -v1StorageOSPersistentVolumeSourceVolumeNamespaceL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceVolumeNamespace -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceVolumeNamespace, ..} ) <$> f v1StorageOSPersistentVolumeSourceVolumeNamespace -{-# INLINE v1StorageOSPersistentVolumeSourceVolumeNamespaceL #-} - - - --- * V1StorageOSVolumeSource - --- | 'v1StorageOSVolumeSourceFsType' Lens -v1StorageOSVolumeSourceFsTypeL :: Lens_' V1StorageOSVolumeSource (Maybe Text) -v1StorageOSVolumeSourceFsTypeL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceFsType -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceFsType, ..} ) <$> f v1StorageOSVolumeSourceFsType -{-# INLINE v1StorageOSVolumeSourceFsTypeL #-} - --- | 'v1StorageOSVolumeSourceReadOnly' Lens -v1StorageOSVolumeSourceReadOnlyL :: Lens_' V1StorageOSVolumeSource (Maybe Bool) -v1StorageOSVolumeSourceReadOnlyL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceReadOnly -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceReadOnly, ..} ) <$> f v1StorageOSVolumeSourceReadOnly -{-# INLINE v1StorageOSVolumeSourceReadOnlyL #-} - --- | 'v1StorageOSVolumeSourceSecretRef' Lens -v1StorageOSVolumeSourceSecretRefL :: Lens_' V1StorageOSVolumeSource (Maybe V1LocalObjectReference) -v1StorageOSVolumeSourceSecretRefL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceSecretRef -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceSecretRef, ..} ) <$> f v1StorageOSVolumeSourceSecretRef -{-# INLINE v1StorageOSVolumeSourceSecretRefL #-} - --- | 'v1StorageOSVolumeSourceVolumeName' Lens -v1StorageOSVolumeSourceVolumeNameL :: Lens_' V1StorageOSVolumeSource (Maybe Text) -v1StorageOSVolumeSourceVolumeNameL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceVolumeName -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceVolumeName, ..} ) <$> f v1StorageOSVolumeSourceVolumeName -{-# INLINE v1StorageOSVolumeSourceVolumeNameL #-} - --- | 'v1StorageOSVolumeSourceVolumeNamespace' Lens -v1StorageOSVolumeSourceVolumeNamespaceL :: Lens_' V1StorageOSVolumeSource (Maybe Text) -v1StorageOSVolumeSourceVolumeNamespaceL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceVolumeNamespace -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceVolumeNamespace, ..} ) <$> f v1StorageOSVolumeSourceVolumeNamespace -{-# INLINE v1StorageOSVolumeSourceVolumeNamespaceL #-} - - - --- * V1Subject - --- | 'v1SubjectApiGroup' Lens -v1SubjectApiGroupL :: Lens_' V1Subject (Maybe Text) -v1SubjectApiGroupL f V1Subject{..} = (\v1SubjectApiGroup -> V1Subject { v1SubjectApiGroup, ..} ) <$> f v1SubjectApiGroup -{-# INLINE v1SubjectApiGroupL #-} - --- | 'v1SubjectKind' Lens -v1SubjectKindL :: Lens_' V1Subject (Text) -v1SubjectKindL f V1Subject{..} = (\v1SubjectKind -> V1Subject { v1SubjectKind, ..} ) <$> f v1SubjectKind -{-# INLINE v1SubjectKindL #-} - --- | 'v1SubjectName' Lens -v1SubjectNameL :: Lens_' V1Subject (Text) -v1SubjectNameL f V1Subject{..} = (\v1SubjectName -> V1Subject { v1SubjectName, ..} ) <$> f v1SubjectName -{-# INLINE v1SubjectNameL #-} - --- | 'v1SubjectNamespace' Lens -v1SubjectNamespaceL :: Lens_' V1Subject (Maybe Text) -v1SubjectNamespaceL f V1Subject{..} = (\v1SubjectNamespace -> V1Subject { v1SubjectNamespace, ..} ) <$> f v1SubjectNamespace -{-# INLINE v1SubjectNamespaceL #-} - - - --- * V1SubjectAccessReview - --- | 'v1SubjectAccessReviewApiVersion' Lens -v1SubjectAccessReviewApiVersionL :: Lens_' V1SubjectAccessReview (Maybe Text) -v1SubjectAccessReviewApiVersionL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewApiVersion -> V1SubjectAccessReview { v1SubjectAccessReviewApiVersion, ..} ) <$> f v1SubjectAccessReviewApiVersion -{-# INLINE v1SubjectAccessReviewApiVersionL #-} - --- | 'v1SubjectAccessReviewKind' Lens -v1SubjectAccessReviewKindL :: Lens_' V1SubjectAccessReview (Maybe Text) -v1SubjectAccessReviewKindL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewKind -> V1SubjectAccessReview { v1SubjectAccessReviewKind, ..} ) <$> f v1SubjectAccessReviewKind -{-# INLINE v1SubjectAccessReviewKindL #-} - --- | 'v1SubjectAccessReviewMetadata' Lens -v1SubjectAccessReviewMetadataL :: Lens_' V1SubjectAccessReview (Maybe V1ObjectMeta) -v1SubjectAccessReviewMetadataL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewMetadata -> V1SubjectAccessReview { v1SubjectAccessReviewMetadata, ..} ) <$> f v1SubjectAccessReviewMetadata -{-# INLINE v1SubjectAccessReviewMetadataL #-} - --- | 'v1SubjectAccessReviewSpec' Lens -v1SubjectAccessReviewSpecL :: Lens_' V1SubjectAccessReview (V1SubjectAccessReviewSpec) -v1SubjectAccessReviewSpecL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewSpec -> V1SubjectAccessReview { v1SubjectAccessReviewSpec, ..} ) <$> f v1SubjectAccessReviewSpec -{-# INLINE v1SubjectAccessReviewSpecL #-} - --- | 'v1SubjectAccessReviewStatus' Lens -v1SubjectAccessReviewStatusL :: Lens_' V1SubjectAccessReview (Maybe V1SubjectAccessReviewStatus) -v1SubjectAccessReviewStatusL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewStatus -> V1SubjectAccessReview { v1SubjectAccessReviewStatus, ..} ) <$> f v1SubjectAccessReviewStatus -{-# INLINE v1SubjectAccessReviewStatusL #-} - - - --- * V1SubjectAccessReviewSpec - --- | 'v1SubjectAccessReviewSpecExtra' Lens -v1SubjectAccessReviewSpecExtraL :: Lens_' V1SubjectAccessReviewSpec (Maybe (Map.Map String [Text])) -v1SubjectAccessReviewSpecExtraL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecExtra -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecExtra, ..} ) <$> f v1SubjectAccessReviewSpecExtra -{-# INLINE v1SubjectAccessReviewSpecExtraL #-} - --- | 'v1SubjectAccessReviewSpecGroups' Lens -v1SubjectAccessReviewSpecGroupsL :: Lens_' V1SubjectAccessReviewSpec (Maybe [Text]) -v1SubjectAccessReviewSpecGroupsL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecGroups -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecGroups, ..} ) <$> f v1SubjectAccessReviewSpecGroups -{-# INLINE v1SubjectAccessReviewSpecGroupsL #-} - --- | 'v1SubjectAccessReviewSpecNonResourceAttributes' Lens -v1SubjectAccessReviewSpecNonResourceAttributesL :: Lens_' V1SubjectAccessReviewSpec (Maybe V1NonResourceAttributes) -v1SubjectAccessReviewSpecNonResourceAttributesL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecNonResourceAttributes -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecNonResourceAttributes, ..} ) <$> f v1SubjectAccessReviewSpecNonResourceAttributes -{-# INLINE v1SubjectAccessReviewSpecNonResourceAttributesL #-} - --- | 'v1SubjectAccessReviewSpecResourceAttributes' Lens -v1SubjectAccessReviewSpecResourceAttributesL :: Lens_' V1SubjectAccessReviewSpec (Maybe V1ResourceAttributes) -v1SubjectAccessReviewSpecResourceAttributesL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecResourceAttributes -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecResourceAttributes, ..} ) <$> f v1SubjectAccessReviewSpecResourceAttributes -{-# INLINE v1SubjectAccessReviewSpecResourceAttributesL #-} - --- | 'v1SubjectAccessReviewSpecUid' Lens -v1SubjectAccessReviewSpecUidL :: Lens_' V1SubjectAccessReviewSpec (Maybe Text) -v1SubjectAccessReviewSpecUidL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecUid -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecUid, ..} ) <$> f v1SubjectAccessReviewSpecUid -{-# INLINE v1SubjectAccessReviewSpecUidL #-} - --- | 'v1SubjectAccessReviewSpecUser' Lens -v1SubjectAccessReviewSpecUserL :: Lens_' V1SubjectAccessReviewSpec (Maybe Text) -v1SubjectAccessReviewSpecUserL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecUser -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecUser, ..} ) <$> f v1SubjectAccessReviewSpecUser -{-# INLINE v1SubjectAccessReviewSpecUserL #-} - - - --- * V1SubjectAccessReviewStatus - --- | 'v1SubjectAccessReviewStatusAllowed' Lens -v1SubjectAccessReviewStatusAllowedL :: Lens_' V1SubjectAccessReviewStatus (Bool) -v1SubjectAccessReviewStatusAllowedL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusAllowed -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusAllowed, ..} ) <$> f v1SubjectAccessReviewStatusAllowed -{-# INLINE v1SubjectAccessReviewStatusAllowedL #-} - --- | 'v1SubjectAccessReviewStatusDenied' Lens -v1SubjectAccessReviewStatusDeniedL :: Lens_' V1SubjectAccessReviewStatus (Maybe Bool) -v1SubjectAccessReviewStatusDeniedL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusDenied -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusDenied, ..} ) <$> f v1SubjectAccessReviewStatusDenied -{-# INLINE v1SubjectAccessReviewStatusDeniedL #-} - --- | 'v1SubjectAccessReviewStatusEvaluationError' Lens -v1SubjectAccessReviewStatusEvaluationErrorL :: Lens_' V1SubjectAccessReviewStatus (Maybe Text) -v1SubjectAccessReviewStatusEvaluationErrorL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusEvaluationError -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusEvaluationError, ..} ) <$> f v1SubjectAccessReviewStatusEvaluationError -{-# INLINE v1SubjectAccessReviewStatusEvaluationErrorL #-} - --- | 'v1SubjectAccessReviewStatusReason' Lens -v1SubjectAccessReviewStatusReasonL :: Lens_' V1SubjectAccessReviewStatus (Maybe Text) -v1SubjectAccessReviewStatusReasonL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusReason -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusReason, ..} ) <$> f v1SubjectAccessReviewStatusReason -{-# INLINE v1SubjectAccessReviewStatusReasonL #-} - - - --- * V1SubjectRulesReviewStatus - --- | 'v1SubjectRulesReviewStatusEvaluationError' Lens -v1SubjectRulesReviewStatusEvaluationErrorL :: Lens_' V1SubjectRulesReviewStatus (Maybe Text) -v1SubjectRulesReviewStatusEvaluationErrorL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusEvaluationError -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusEvaluationError, ..} ) <$> f v1SubjectRulesReviewStatusEvaluationError -{-# INLINE v1SubjectRulesReviewStatusEvaluationErrorL #-} - --- | 'v1SubjectRulesReviewStatusIncomplete' Lens -v1SubjectRulesReviewStatusIncompleteL :: Lens_' V1SubjectRulesReviewStatus (Bool) -v1SubjectRulesReviewStatusIncompleteL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusIncomplete -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusIncomplete, ..} ) <$> f v1SubjectRulesReviewStatusIncomplete -{-# INLINE v1SubjectRulesReviewStatusIncompleteL #-} - --- | 'v1SubjectRulesReviewStatusNonResourceRules' Lens -v1SubjectRulesReviewStatusNonResourceRulesL :: Lens_' V1SubjectRulesReviewStatus ([V1NonResourceRule]) -v1SubjectRulesReviewStatusNonResourceRulesL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusNonResourceRules -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusNonResourceRules, ..} ) <$> f v1SubjectRulesReviewStatusNonResourceRules -{-# INLINE v1SubjectRulesReviewStatusNonResourceRulesL #-} - --- | 'v1SubjectRulesReviewStatusResourceRules' Lens -v1SubjectRulesReviewStatusResourceRulesL :: Lens_' V1SubjectRulesReviewStatus ([V1ResourceRule]) -v1SubjectRulesReviewStatusResourceRulesL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusResourceRules -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusResourceRules, ..} ) <$> f v1SubjectRulesReviewStatusResourceRules -{-# INLINE v1SubjectRulesReviewStatusResourceRulesL #-} - - - --- * V1Sysctl - --- | 'v1SysctlName' Lens -v1SysctlNameL :: Lens_' V1Sysctl (Text) -v1SysctlNameL f V1Sysctl{..} = (\v1SysctlName -> V1Sysctl { v1SysctlName, ..} ) <$> f v1SysctlName -{-# INLINE v1SysctlNameL #-} - --- | 'v1SysctlValue' Lens -v1SysctlValueL :: Lens_' V1Sysctl (Text) -v1SysctlValueL f V1Sysctl{..} = (\v1SysctlValue -> V1Sysctl { v1SysctlValue, ..} ) <$> f v1SysctlValue -{-# INLINE v1SysctlValueL #-} - - - --- * V1TCPSocketAction - --- | 'v1TCPSocketActionHost' Lens -v1TCPSocketActionHostL :: Lens_' V1TCPSocketAction (Maybe Text) -v1TCPSocketActionHostL f V1TCPSocketAction{..} = (\v1TCPSocketActionHost -> V1TCPSocketAction { v1TCPSocketActionHost, ..} ) <$> f v1TCPSocketActionHost -{-# INLINE v1TCPSocketActionHostL #-} - --- | 'v1TCPSocketActionPort' Lens -v1TCPSocketActionPortL :: Lens_' V1TCPSocketAction (IntOrString) -v1TCPSocketActionPortL f V1TCPSocketAction{..} = (\v1TCPSocketActionPort -> V1TCPSocketAction { v1TCPSocketActionPort, ..} ) <$> f v1TCPSocketActionPort -{-# INLINE v1TCPSocketActionPortL #-} - - - --- * V1Taint - --- | 'v1TaintEffect' Lens -v1TaintEffectL :: Lens_' V1Taint (Text) -v1TaintEffectL f V1Taint{..} = (\v1TaintEffect -> V1Taint { v1TaintEffect, ..} ) <$> f v1TaintEffect -{-# INLINE v1TaintEffectL #-} - --- | 'v1TaintKey' Lens -v1TaintKeyL :: Lens_' V1Taint (Text) -v1TaintKeyL f V1Taint{..} = (\v1TaintKey -> V1Taint { v1TaintKey, ..} ) <$> f v1TaintKey -{-# INLINE v1TaintKeyL #-} - --- | 'v1TaintTimeAdded' Lens -v1TaintTimeAddedL :: Lens_' V1Taint (Maybe DateTime) -v1TaintTimeAddedL f V1Taint{..} = (\v1TaintTimeAdded -> V1Taint { v1TaintTimeAdded, ..} ) <$> f v1TaintTimeAdded -{-# INLINE v1TaintTimeAddedL #-} - --- | 'v1TaintValue' Lens -v1TaintValueL :: Lens_' V1Taint (Maybe Text) -v1TaintValueL f V1Taint{..} = (\v1TaintValue -> V1Taint { v1TaintValue, ..} ) <$> f v1TaintValue -{-# INLINE v1TaintValueL #-} - - - --- * V1TokenRequestSpec - --- | 'v1TokenRequestSpecAudiences' Lens -v1TokenRequestSpecAudiencesL :: Lens_' V1TokenRequestSpec ([Text]) -v1TokenRequestSpecAudiencesL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecAudiences -> V1TokenRequestSpec { v1TokenRequestSpecAudiences, ..} ) <$> f v1TokenRequestSpecAudiences -{-# INLINE v1TokenRequestSpecAudiencesL #-} - --- | 'v1TokenRequestSpecBoundObjectRef' Lens -v1TokenRequestSpecBoundObjectRefL :: Lens_' V1TokenRequestSpec (Maybe V1BoundObjectReference) -v1TokenRequestSpecBoundObjectRefL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecBoundObjectRef -> V1TokenRequestSpec { v1TokenRequestSpecBoundObjectRef, ..} ) <$> f v1TokenRequestSpecBoundObjectRef -{-# INLINE v1TokenRequestSpecBoundObjectRefL #-} - --- | 'v1TokenRequestSpecExpirationSeconds' Lens -v1TokenRequestSpecExpirationSecondsL :: Lens_' V1TokenRequestSpec (Maybe Integer) -v1TokenRequestSpecExpirationSecondsL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecExpirationSeconds -> V1TokenRequestSpec { v1TokenRequestSpecExpirationSeconds, ..} ) <$> f v1TokenRequestSpecExpirationSeconds -{-# INLINE v1TokenRequestSpecExpirationSecondsL #-} - - - --- * V1TokenRequestStatus - --- | 'v1TokenRequestStatusExpirationTimestamp' Lens -v1TokenRequestStatusExpirationTimestampL :: Lens_' V1TokenRequestStatus (DateTime) -v1TokenRequestStatusExpirationTimestampL f V1TokenRequestStatus{..} = (\v1TokenRequestStatusExpirationTimestamp -> V1TokenRequestStatus { v1TokenRequestStatusExpirationTimestamp, ..} ) <$> f v1TokenRequestStatusExpirationTimestamp -{-# INLINE v1TokenRequestStatusExpirationTimestampL #-} - --- | 'v1TokenRequestStatusToken' Lens -v1TokenRequestStatusTokenL :: Lens_' V1TokenRequestStatus (Text) -v1TokenRequestStatusTokenL f V1TokenRequestStatus{..} = (\v1TokenRequestStatusToken -> V1TokenRequestStatus { v1TokenRequestStatusToken, ..} ) <$> f v1TokenRequestStatusToken -{-# INLINE v1TokenRequestStatusTokenL #-} - - - --- * V1TokenReview - --- | 'v1TokenReviewApiVersion' Lens -v1TokenReviewApiVersionL :: Lens_' V1TokenReview (Maybe Text) -v1TokenReviewApiVersionL f V1TokenReview{..} = (\v1TokenReviewApiVersion -> V1TokenReview { v1TokenReviewApiVersion, ..} ) <$> f v1TokenReviewApiVersion -{-# INLINE v1TokenReviewApiVersionL #-} - --- | 'v1TokenReviewKind' Lens -v1TokenReviewKindL :: Lens_' V1TokenReview (Maybe Text) -v1TokenReviewKindL f V1TokenReview{..} = (\v1TokenReviewKind -> V1TokenReview { v1TokenReviewKind, ..} ) <$> f v1TokenReviewKind -{-# INLINE v1TokenReviewKindL #-} - --- | 'v1TokenReviewMetadata' Lens -v1TokenReviewMetadataL :: Lens_' V1TokenReview (Maybe V1ObjectMeta) -v1TokenReviewMetadataL f V1TokenReview{..} = (\v1TokenReviewMetadata -> V1TokenReview { v1TokenReviewMetadata, ..} ) <$> f v1TokenReviewMetadata -{-# INLINE v1TokenReviewMetadataL #-} - --- | 'v1TokenReviewSpec' Lens -v1TokenReviewSpecL :: Lens_' V1TokenReview (V1TokenReviewSpec) -v1TokenReviewSpecL f V1TokenReview{..} = (\v1TokenReviewSpec -> V1TokenReview { v1TokenReviewSpec, ..} ) <$> f v1TokenReviewSpec -{-# INLINE v1TokenReviewSpecL #-} - --- | 'v1TokenReviewStatus' Lens -v1TokenReviewStatusL :: Lens_' V1TokenReview (Maybe V1TokenReviewStatus) -v1TokenReviewStatusL f V1TokenReview{..} = (\v1TokenReviewStatus -> V1TokenReview { v1TokenReviewStatus, ..} ) <$> f v1TokenReviewStatus -{-# INLINE v1TokenReviewStatusL #-} - - - --- * V1TokenReviewSpec - --- | 'v1TokenReviewSpecAudiences' Lens -v1TokenReviewSpecAudiencesL :: Lens_' V1TokenReviewSpec (Maybe [Text]) -v1TokenReviewSpecAudiencesL f V1TokenReviewSpec{..} = (\v1TokenReviewSpecAudiences -> V1TokenReviewSpec { v1TokenReviewSpecAudiences, ..} ) <$> f v1TokenReviewSpecAudiences -{-# INLINE v1TokenReviewSpecAudiencesL #-} - --- | 'v1TokenReviewSpecToken' Lens -v1TokenReviewSpecTokenL :: Lens_' V1TokenReviewSpec (Maybe Text) -v1TokenReviewSpecTokenL f V1TokenReviewSpec{..} = (\v1TokenReviewSpecToken -> V1TokenReviewSpec { v1TokenReviewSpecToken, ..} ) <$> f v1TokenReviewSpecToken -{-# INLINE v1TokenReviewSpecTokenL #-} - - - --- * V1TokenReviewStatus - --- | 'v1TokenReviewStatusAudiences' Lens -v1TokenReviewStatusAudiencesL :: Lens_' V1TokenReviewStatus (Maybe [Text]) -v1TokenReviewStatusAudiencesL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusAudiences -> V1TokenReviewStatus { v1TokenReviewStatusAudiences, ..} ) <$> f v1TokenReviewStatusAudiences -{-# INLINE v1TokenReviewStatusAudiencesL #-} - --- | 'v1TokenReviewStatusAuthenticated' Lens -v1TokenReviewStatusAuthenticatedL :: Lens_' V1TokenReviewStatus (Maybe Bool) -v1TokenReviewStatusAuthenticatedL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusAuthenticated -> V1TokenReviewStatus { v1TokenReviewStatusAuthenticated, ..} ) <$> f v1TokenReviewStatusAuthenticated -{-# INLINE v1TokenReviewStatusAuthenticatedL #-} - --- | 'v1TokenReviewStatusError' Lens -v1TokenReviewStatusErrorL :: Lens_' V1TokenReviewStatus (Maybe Text) -v1TokenReviewStatusErrorL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusError -> V1TokenReviewStatus { v1TokenReviewStatusError, ..} ) <$> f v1TokenReviewStatusError -{-# INLINE v1TokenReviewStatusErrorL #-} - --- | 'v1TokenReviewStatusUser' Lens -v1TokenReviewStatusUserL :: Lens_' V1TokenReviewStatus (Maybe V1UserInfo) -v1TokenReviewStatusUserL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusUser -> V1TokenReviewStatus { v1TokenReviewStatusUser, ..} ) <$> f v1TokenReviewStatusUser -{-# INLINE v1TokenReviewStatusUserL #-} - - - --- * V1Toleration - --- | 'v1TolerationEffect' Lens -v1TolerationEffectL :: Lens_' V1Toleration (Maybe Text) -v1TolerationEffectL f V1Toleration{..} = (\v1TolerationEffect -> V1Toleration { v1TolerationEffect, ..} ) <$> f v1TolerationEffect -{-# INLINE v1TolerationEffectL #-} - --- | 'v1TolerationKey' Lens -v1TolerationKeyL :: Lens_' V1Toleration (Maybe Text) -v1TolerationKeyL f V1Toleration{..} = (\v1TolerationKey -> V1Toleration { v1TolerationKey, ..} ) <$> f v1TolerationKey -{-# INLINE v1TolerationKeyL #-} - --- | 'v1TolerationOperator' Lens -v1TolerationOperatorL :: Lens_' V1Toleration (Maybe Text) -v1TolerationOperatorL f V1Toleration{..} = (\v1TolerationOperator -> V1Toleration { v1TolerationOperator, ..} ) <$> f v1TolerationOperator -{-# INLINE v1TolerationOperatorL #-} - --- | 'v1TolerationTolerationSeconds' Lens -v1TolerationTolerationSecondsL :: Lens_' V1Toleration (Maybe Integer) -v1TolerationTolerationSecondsL f V1Toleration{..} = (\v1TolerationTolerationSeconds -> V1Toleration { v1TolerationTolerationSeconds, ..} ) <$> f v1TolerationTolerationSeconds -{-# INLINE v1TolerationTolerationSecondsL #-} - --- | 'v1TolerationValue' Lens -v1TolerationValueL :: Lens_' V1Toleration (Maybe Text) -v1TolerationValueL f V1Toleration{..} = (\v1TolerationValue -> V1Toleration { v1TolerationValue, ..} ) <$> f v1TolerationValue -{-# INLINE v1TolerationValueL #-} - - - --- * V1TopologySelectorLabelRequirement - --- | 'v1TopologySelectorLabelRequirementKey' Lens -v1TopologySelectorLabelRequirementKeyL :: Lens_' V1TopologySelectorLabelRequirement (Text) -v1TopologySelectorLabelRequirementKeyL f V1TopologySelectorLabelRequirement{..} = (\v1TopologySelectorLabelRequirementKey -> V1TopologySelectorLabelRequirement { v1TopologySelectorLabelRequirementKey, ..} ) <$> f v1TopologySelectorLabelRequirementKey -{-# INLINE v1TopologySelectorLabelRequirementKeyL #-} - --- | 'v1TopologySelectorLabelRequirementValues' Lens -v1TopologySelectorLabelRequirementValuesL :: Lens_' V1TopologySelectorLabelRequirement ([Text]) -v1TopologySelectorLabelRequirementValuesL f V1TopologySelectorLabelRequirement{..} = (\v1TopologySelectorLabelRequirementValues -> V1TopologySelectorLabelRequirement { v1TopologySelectorLabelRequirementValues, ..} ) <$> f v1TopologySelectorLabelRequirementValues -{-# INLINE v1TopologySelectorLabelRequirementValuesL #-} - - - --- * V1TopologySelectorTerm - --- | 'v1TopologySelectorTermMatchLabelExpressions' Lens -v1TopologySelectorTermMatchLabelExpressionsL :: Lens_' V1TopologySelectorTerm (Maybe [V1TopologySelectorLabelRequirement]) -v1TopologySelectorTermMatchLabelExpressionsL f V1TopologySelectorTerm{..} = (\v1TopologySelectorTermMatchLabelExpressions -> V1TopologySelectorTerm { v1TopologySelectorTermMatchLabelExpressions, ..} ) <$> f v1TopologySelectorTermMatchLabelExpressions -{-# INLINE v1TopologySelectorTermMatchLabelExpressionsL #-} - - - --- * V1TopologySpreadConstraint - --- | 'v1TopologySpreadConstraintLabelSelector' Lens -v1TopologySpreadConstraintLabelSelectorL :: Lens_' V1TopologySpreadConstraint (Maybe V1LabelSelector) -v1TopologySpreadConstraintLabelSelectorL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintLabelSelector -> V1TopologySpreadConstraint { v1TopologySpreadConstraintLabelSelector, ..} ) <$> f v1TopologySpreadConstraintLabelSelector -{-# INLINE v1TopologySpreadConstraintLabelSelectorL #-} - --- | 'v1TopologySpreadConstraintMatchLabelKeys' Lens -v1TopologySpreadConstraintMatchLabelKeysL :: Lens_' V1TopologySpreadConstraint (Maybe [Text]) -v1TopologySpreadConstraintMatchLabelKeysL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMatchLabelKeys -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMatchLabelKeys, ..} ) <$> f v1TopologySpreadConstraintMatchLabelKeys -{-# INLINE v1TopologySpreadConstraintMatchLabelKeysL #-} - --- | 'v1TopologySpreadConstraintMaxSkew' Lens -v1TopologySpreadConstraintMaxSkewL :: Lens_' V1TopologySpreadConstraint (Int) -v1TopologySpreadConstraintMaxSkewL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMaxSkew -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMaxSkew, ..} ) <$> f v1TopologySpreadConstraintMaxSkew -{-# INLINE v1TopologySpreadConstraintMaxSkewL #-} - --- | 'v1TopologySpreadConstraintMinDomains' Lens -v1TopologySpreadConstraintMinDomainsL :: Lens_' V1TopologySpreadConstraint (Maybe Int) -v1TopologySpreadConstraintMinDomainsL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMinDomains -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMinDomains, ..} ) <$> f v1TopologySpreadConstraintMinDomains -{-# INLINE v1TopologySpreadConstraintMinDomainsL #-} - --- | 'v1TopologySpreadConstraintNodeAffinityPolicy' Lens -v1TopologySpreadConstraintNodeAffinityPolicyL :: Lens_' V1TopologySpreadConstraint (Maybe Text) -v1TopologySpreadConstraintNodeAffinityPolicyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintNodeAffinityPolicy -> V1TopologySpreadConstraint { v1TopologySpreadConstraintNodeAffinityPolicy, ..} ) <$> f v1TopologySpreadConstraintNodeAffinityPolicy -{-# INLINE v1TopologySpreadConstraintNodeAffinityPolicyL #-} - --- | 'v1TopologySpreadConstraintNodeTaintsPolicy' Lens -v1TopologySpreadConstraintNodeTaintsPolicyL :: Lens_' V1TopologySpreadConstraint (Maybe Text) -v1TopologySpreadConstraintNodeTaintsPolicyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintNodeTaintsPolicy -> V1TopologySpreadConstraint { v1TopologySpreadConstraintNodeTaintsPolicy, ..} ) <$> f v1TopologySpreadConstraintNodeTaintsPolicy -{-# INLINE v1TopologySpreadConstraintNodeTaintsPolicyL #-} - --- | 'v1TopologySpreadConstraintTopologyKey' Lens -v1TopologySpreadConstraintTopologyKeyL :: Lens_' V1TopologySpreadConstraint (Text) -v1TopologySpreadConstraintTopologyKeyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintTopologyKey -> V1TopologySpreadConstraint { v1TopologySpreadConstraintTopologyKey, ..} ) <$> f v1TopologySpreadConstraintTopologyKey -{-# INLINE v1TopologySpreadConstraintTopologyKeyL #-} - --- | 'v1TopologySpreadConstraintWhenUnsatisfiable' Lens -v1TopologySpreadConstraintWhenUnsatisfiableL :: Lens_' V1TopologySpreadConstraint (Text) -v1TopologySpreadConstraintWhenUnsatisfiableL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintWhenUnsatisfiable -> V1TopologySpreadConstraint { v1TopologySpreadConstraintWhenUnsatisfiable, ..} ) <$> f v1TopologySpreadConstraintWhenUnsatisfiable -{-# INLINE v1TopologySpreadConstraintWhenUnsatisfiableL #-} - - - --- * V1TypedLocalObjectReference - --- | 'v1TypedLocalObjectReferenceApiGroup' Lens -v1TypedLocalObjectReferenceApiGroupL :: Lens_' V1TypedLocalObjectReference (Maybe Text) -v1TypedLocalObjectReferenceApiGroupL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceApiGroup -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceApiGroup, ..} ) <$> f v1TypedLocalObjectReferenceApiGroup -{-# INLINE v1TypedLocalObjectReferenceApiGroupL #-} - --- | 'v1TypedLocalObjectReferenceKind' Lens -v1TypedLocalObjectReferenceKindL :: Lens_' V1TypedLocalObjectReference (Text) -v1TypedLocalObjectReferenceKindL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceKind -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceKind, ..} ) <$> f v1TypedLocalObjectReferenceKind -{-# INLINE v1TypedLocalObjectReferenceKindL #-} - --- | 'v1TypedLocalObjectReferenceName' Lens -v1TypedLocalObjectReferenceNameL :: Lens_' V1TypedLocalObjectReference (Text) -v1TypedLocalObjectReferenceNameL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceName -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceName, ..} ) <$> f v1TypedLocalObjectReferenceName -{-# INLINE v1TypedLocalObjectReferenceNameL #-} - - - --- * V1TypedObjectReference - --- | 'v1TypedObjectReferenceApiGroup' Lens -v1TypedObjectReferenceApiGroupL :: Lens_' V1TypedObjectReference (Maybe Text) -v1TypedObjectReferenceApiGroupL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceApiGroup -> V1TypedObjectReference { v1TypedObjectReferenceApiGroup, ..} ) <$> f v1TypedObjectReferenceApiGroup -{-# INLINE v1TypedObjectReferenceApiGroupL #-} - --- | 'v1TypedObjectReferenceKind' Lens -v1TypedObjectReferenceKindL :: Lens_' V1TypedObjectReference (Text) -v1TypedObjectReferenceKindL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceKind -> V1TypedObjectReference { v1TypedObjectReferenceKind, ..} ) <$> f v1TypedObjectReferenceKind -{-# INLINE v1TypedObjectReferenceKindL #-} - --- | 'v1TypedObjectReferenceName' Lens -v1TypedObjectReferenceNameL :: Lens_' V1TypedObjectReference (Text) -v1TypedObjectReferenceNameL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceName -> V1TypedObjectReference { v1TypedObjectReferenceName, ..} ) <$> f v1TypedObjectReferenceName -{-# INLINE v1TypedObjectReferenceNameL #-} - --- | 'v1TypedObjectReferenceNamespace' Lens -v1TypedObjectReferenceNamespaceL :: Lens_' V1TypedObjectReference (Maybe Text) -v1TypedObjectReferenceNamespaceL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceNamespace -> V1TypedObjectReference { v1TypedObjectReferenceNamespace, ..} ) <$> f v1TypedObjectReferenceNamespace -{-# INLINE v1TypedObjectReferenceNamespaceL #-} - - - --- * V1UncountedTerminatedPods - --- | 'v1UncountedTerminatedPodsFailed' Lens -v1UncountedTerminatedPodsFailedL :: Lens_' V1UncountedTerminatedPods (Maybe [Text]) -v1UncountedTerminatedPodsFailedL f V1UncountedTerminatedPods{..} = (\v1UncountedTerminatedPodsFailed -> V1UncountedTerminatedPods { v1UncountedTerminatedPodsFailed, ..} ) <$> f v1UncountedTerminatedPodsFailed -{-# INLINE v1UncountedTerminatedPodsFailedL #-} - --- | 'v1UncountedTerminatedPodsSucceeded' Lens -v1UncountedTerminatedPodsSucceededL :: Lens_' V1UncountedTerminatedPods (Maybe [Text]) -v1UncountedTerminatedPodsSucceededL f V1UncountedTerminatedPods{..} = (\v1UncountedTerminatedPodsSucceeded -> V1UncountedTerminatedPods { v1UncountedTerminatedPodsSucceeded, ..} ) <$> f v1UncountedTerminatedPodsSucceeded -{-# INLINE v1UncountedTerminatedPodsSucceededL #-} - - - --- * V1UserInfo - --- | 'v1UserInfoExtra' Lens -v1UserInfoExtraL :: Lens_' V1UserInfo (Maybe (Map.Map String [Text])) -v1UserInfoExtraL f V1UserInfo{..} = (\v1UserInfoExtra -> V1UserInfo { v1UserInfoExtra, ..} ) <$> f v1UserInfoExtra -{-# INLINE v1UserInfoExtraL #-} - --- | 'v1UserInfoGroups' Lens -v1UserInfoGroupsL :: Lens_' V1UserInfo (Maybe [Text]) -v1UserInfoGroupsL f V1UserInfo{..} = (\v1UserInfoGroups -> V1UserInfo { v1UserInfoGroups, ..} ) <$> f v1UserInfoGroups -{-# INLINE v1UserInfoGroupsL #-} - --- | 'v1UserInfoUid' Lens -v1UserInfoUidL :: Lens_' V1UserInfo (Maybe Text) -v1UserInfoUidL f V1UserInfo{..} = (\v1UserInfoUid -> V1UserInfo { v1UserInfoUid, ..} ) <$> f v1UserInfoUid -{-# INLINE v1UserInfoUidL #-} - --- | 'v1UserInfoUsername' Lens -v1UserInfoUsernameL :: Lens_' V1UserInfo (Maybe Text) -v1UserInfoUsernameL f V1UserInfo{..} = (\v1UserInfoUsername -> V1UserInfo { v1UserInfoUsername, ..} ) <$> f v1UserInfoUsername -{-# INLINE v1UserInfoUsernameL #-} - - - --- * V1ValidatingWebhook - --- | 'v1ValidatingWebhookAdmissionReviewVersions' Lens -v1ValidatingWebhookAdmissionReviewVersionsL :: Lens_' V1ValidatingWebhook ([Text]) -v1ValidatingWebhookAdmissionReviewVersionsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookAdmissionReviewVersions -> V1ValidatingWebhook { v1ValidatingWebhookAdmissionReviewVersions, ..} ) <$> f v1ValidatingWebhookAdmissionReviewVersions -{-# INLINE v1ValidatingWebhookAdmissionReviewVersionsL #-} - --- | 'v1ValidatingWebhookClientConfig' Lens -v1ValidatingWebhookClientConfigL :: Lens_' V1ValidatingWebhook (AdmissionregistrationV1WebhookClientConfig) -v1ValidatingWebhookClientConfigL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookClientConfig -> V1ValidatingWebhook { v1ValidatingWebhookClientConfig, ..} ) <$> f v1ValidatingWebhookClientConfig -{-# INLINE v1ValidatingWebhookClientConfigL #-} - --- | 'v1ValidatingWebhookFailurePolicy' Lens -v1ValidatingWebhookFailurePolicyL :: Lens_' V1ValidatingWebhook (Maybe Text) -v1ValidatingWebhookFailurePolicyL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookFailurePolicy -> V1ValidatingWebhook { v1ValidatingWebhookFailurePolicy, ..} ) <$> f v1ValidatingWebhookFailurePolicy -{-# INLINE v1ValidatingWebhookFailurePolicyL #-} - --- | 'v1ValidatingWebhookMatchPolicy' Lens -v1ValidatingWebhookMatchPolicyL :: Lens_' V1ValidatingWebhook (Maybe Text) -v1ValidatingWebhookMatchPolicyL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookMatchPolicy -> V1ValidatingWebhook { v1ValidatingWebhookMatchPolicy, ..} ) <$> f v1ValidatingWebhookMatchPolicy -{-# INLINE v1ValidatingWebhookMatchPolicyL #-} - --- | 'v1ValidatingWebhookName' Lens -v1ValidatingWebhookNameL :: Lens_' V1ValidatingWebhook (Text) -v1ValidatingWebhookNameL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookName -> V1ValidatingWebhook { v1ValidatingWebhookName, ..} ) <$> f v1ValidatingWebhookName -{-# INLINE v1ValidatingWebhookNameL #-} - --- | 'v1ValidatingWebhookNamespaceSelector' Lens -v1ValidatingWebhookNamespaceSelectorL :: Lens_' V1ValidatingWebhook (Maybe V1LabelSelector) -v1ValidatingWebhookNamespaceSelectorL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookNamespaceSelector -> V1ValidatingWebhook { v1ValidatingWebhookNamespaceSelector, ..} ) <$> f v1ValidatingWebhookNamespaceSelector -{-# INLINE v1ValidatingWebhookNamespaceSelectorL #-} - --- | 'v1ValidatingWebhookObjectSelector' Lens -v1ValidatingWebhookObjectSelectorL :: Lens_' V1ValidatingWebhook (Maybe V1LabelSelector) -v1ValidatingWebhookObjectSelectorL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookObjectSelector -> V1ValidatingWebhook { v1ValidatingWebhookObjectSelector, ..} ) <$> f v1ValidatingWebhookObjectSelector -{-# INLINE v1ValidatingWebhookObjectSelectorL #-} - --- | 'v1ValidatingWebhookRules' Lens -v1ValidatingWebhookRulesL :: Lens_' V1ValidatingWebhook (Maybe [V1RuleWithOperations]) -v1ValidatingWebhookRulesL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookRules -> V1ValidatingWebhook { v1ValidatingWebhookRules, ..} ) <$> f v1ValidatingWebhookRules -{-# INLINE v1ValidatingWebhookRulesL #-} - --- | 'v1ValidatingWebhookSideEffects' Lens -v1ValidatingWebhookSideEffectsL :: Lens_' V1ValidatingWebhook (Text) -v1ValidatingWebhookSideEffectsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookSideEffects -> V1ValidatingWebhook { v1ValidatingWebhookSideEffects, ..} ) <$> f v1ValidatingWebhookSideEffects -{-# INLINE v1ValidatingWebhookSideEffectsL #-} - --- | 'v1ValidatingWebhookTimeoutSeconds' Lens -v1ValidatingWebhookTimeoutSecondsL :: Lens_' V1ValidatingWebhook (Maybe Int) -v1ValidatingWebhookTimeoutSecondsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookTimeoutSeconds -> V1ValidatingWebhook { v1ValidatingWebhookTimeoutSeconds, ..} ) <$> f v1ValidatingWebhookTimeoutSeconds -{-# INLINE v1ValidatingWebhookTimeoutSecondsL #-} - - - --- * V1ValidatingWebhookConfiguration - --- | 'v1ValidatingWebhookConfigurationApiVersion' Lens -v1ValidatingWebhookConfigurationApiVersionL :: Lens_' V1ValidatingWebhookConfiguration (Maybe Text) -v1ValidatingWebhookConfigurationApiVersionL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationApiVersion -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationApiVersion, ..} ) <$> f v1ValidatingWebhookConfigurationApiVersion -{-# INLINE v1ValidatingWebhookConfigurationApiVersionL #-} - --- | 'v1ValidatingWebhookConfigurationKind' Lens -v1ValidatingWebhookConfigurationKindL :: Lens_' V1ValidatingWebhookConfiguration (Maybe Text) -v1ValidatingWebhookConfigurationKindL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationKind -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationKind, ..} ) <$> f v1ValidatingWebhookConfigurationKind -{-# INLINE v1ValidatingWebhookConfigurationKindL #-} - --- | 'v1ValidatingWebhookConfigurationMetadata' Lens -v1ValidatingWebhookConfigurationMetadataL :: Lens_' V1ValidatingWebhookConfiguration (Maybe V1ObjectMeta) -v1ValidatingWebhookConfigurationMetadataL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationMetadata -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationMetadata, ..} ) <$> f v1ValidatingWebhookConfigurationMetadata -{-# INLINE v1ValidatingWebhookConfigurationMetadataL #-} - --- | 'v1ValidatingWebhookConfigurationWebhooks' Lens -v1ValidatingWebhookConfigurationWebhooksL :: Lens_' V1ValidatingWebhookConfiguration (Maybe [V1ValidatingWebhook]) -v1ValidatingWebhookConfigurationWebhooksL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationWebhooks -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationWebhooks, ..} ) <$> f v1ValidatingWebhookConfigurationWebhooks -{-# INLINE v1ValidatingWebhookConfigurationWebhooksL #-} - - - --- * V1ValidatingWebhookConfigurationList - --- | 'v1ValidatingWebhookConfigurationListApiVersion' Lens -v1ValidatingWebhookConfigurationListApiVersionL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe Text) -v1ValidatingWebhookConfigurationListApiVersionL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListApiVersion -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListApiVersion, ..} ) <$> f v1ValidatingWebhookConfigurationListApiVersion -{-# INLINE v1ValidatingWebhookConfigurationListApiVersionL #-} - --- | 'v1ValidatingWebhookConfigurationListItems' Lens -v1ValidatingWebhookConfigurationListItemsL :: Lens_' V1ValidatingWebhookConfigurationList ([V1ValidatingWebhookConfiguration]) -v1ValidatingWebhookConfigurationListItemsL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListItems -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListItems, ..} ) <$> f v1ValidatingWebhookConfigurationListItems -{-# INLINE v1ValidatingWebhookConfigurationListItemsL #-} - --- | 'v1ValidatingWebhookConfigurationListKind' Lens -v1ValidatingWebhookConfigurationListKindL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe Text) -v1ValidatingWebhookConfigurationListKindL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListKind -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListKind, ..} ) <$> f v1ValidatingWebhookConfigurationListKind -{-# INLINE v1ValidatingWebhookConfigurationListKindL #-} - --- | 'v1ValidatingWebhookConfigurationListMetadata' Lens -v1ValidatingWebhookConfigurationListMetadataL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe V1ListMeta) -v1ValidatingWebhookConfigurationListMetadataL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListMetadata -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListMetadata, ..} ) <$> f v1ValidatingWebhookConfigurationListMetadata -{-# INLINE v1ValidatingWebhookConfigurationListMetadataL #-} - - - --- * V1ValidationRule - --- | 'v1ValidationRuleMessage' Lens -v1ValidationRuleMessageL :: Lens_' V1ValidationRule (Maybe Text) -v1ValidationRuleMessageL f V1ValidationRule{..} = (\v1ValidationRuleMessage -> V1ValidationRule { v1ValidationRuleMessage, ..} ) <$> f v1ValidationRuleMessage -{-# INLINE v1ValidationRuleMessageL #-} - --- | 'v1ValidationRuleRule' Lens -v1ValidationRuleRuleL :: Lens_' V1ValidationRule (Text) -v1ValidationRuleRuleL f V1ValidationRule{..} = (\v1ValidationRuleRule -> V1ValidationRule { v1ValidationRuleRule, ..} ) <$> f v1ValidationRuleRule -{-# INLINE v1ValidationRuleRuleL #-} - - - --- * V1Volume - --- | 'v1VolumeAwsElasticBlockStore' Lens -v1VolumeAwsElasticBlockStoreL :: Lens_' V1Volume (Maybe V1AWSElasticBlockStoreVolumeSource) -v1VolumeAwsElasticBlockStoreL f V1Volume{..} = (\v1VolumeAwsElasticBlockStore -> V1Volume { v1VolumeAwsElasticBlockStore, ..} ) <$> f v1VolumeAwsElasticBlockStore -{-# INLINE v1VolumeAwsElasticBlockStoreL #-} - --- | 'v1VolumeAzureDisk' Lens -v1VolumeAzureDiskL :: Lens_' V1Volume (Maybe V1AzureDiskVolumeSource) -v1VolumeAzureDiskL f V1Volume{..} = (\v1VolumeAzureDisk -> V1Volume { v1VolumeAzureDisk, ..} ) <$> f v1VolumeAzureDisk -{-# INLINE v1VolumeAzureDiskL #-} - --- | 'v1VolumeAzureFile' Lens -v1VolumeAzureFileL :: Lens_' V1Volume (Maybe V1AzureFileVolumeSource) -v1VolumeAzureFileL f V1Volume{..} = (\v1VolumeAzureFile -> V1Volume { v1VolumeAzureFile, ..} ) <$> f v1VolumeAzureFile -{-# INLINE v1VolumeAzureFileL #-} - --- | 'v1VolumeCephfs' Lens -v1VolumeCephfsL :: Lens_' V1Volume (Maybe V1CephFSVolumeSource) -v1VolumeCephfsL f V1Volume{..} = (\v1VolumeCephfs -> V1Volume { v1VolumeCephfs, ..} ) <$> f v1VolumeCephfs -{-# INLINE v1VolumeCephfsL #-} - --- | 'v1VolumeCinder' Lens -v1VolumeCinderL :: Lens_' V1Volume (Maybe V1CinderVolumeSource) -v1VolumeCinderL f V1Volume{..} = (\v1VolumeCinder -> V1Volume { v1VolumeCinder, ..} ) <$> f v1VolumeCinder -{-# INLINE v1VolumeCinderL #-} - --- | 'v1VolumeConfigMap' Lens -v1VolumeConfigMapL :: Lens_' V1Volume (Maybe V1ConfigMapVolumeSource) -v1VolumeConfigMapL f V1Volume{..} = (\v1VolumeConfigMap -> V1Volume { v1VolumeConfigMap, ..} ) <$> f v1VolumeConfigMap -{-# INLINE v1VolumeConfigMapL #-} - --- | 'v1VolumeCsi' Lens -v1VolumeCsiL :: Lens_' V1Volume (Maybe V1CSIVolumeSource) -v1VolumeCsiL f V1Volume{..} = (\v1VolumeCsi -> V1Volume { v1VolumeCsi, ..} ) <$> f v1VolumeCsi -{-# INLINE v1VolumeCsiL #-} - --- | 'v1VolumeDownwardApi' Lens -v1VolumeDownwardApiL :: Lens_' V1Volume (Maybe V1DownwardAPIVolumeSource) -v1VolumeDownwardApiL f V1Volume{..} = (\v1VolumeDownwardApi -> V1Volume { v1VolumeDownwardApi, ..} ) <$> f v1VolumeDownwardApi -{-# INLINE v1VolumeDownwardApiL #-} - --- | 'v1VolumeEmptyDir' Lens -v1VolumeEmptyDirL :: Lens_' V1Volume (Maybe V1EmptyDirVolumeSource) -v1VolumeEmptyDirL f V1Volume{..} = (\v1VolumeEmptyDir -> V1Volume { v1VolumeEmptyDir, ..} ) <$> f v1VolumeEmptyDir -{-# INLINE v1VolumeEmptyDirL #-} - --- | 'v1VolumeEphemeral' Lens -v1VolumeEphemeralL :: Lens_' V1Volume (Maybe V1EphemeralVolumeSource) -v1VolumeEphemeralL f V1Volume{..} = (\v1VolumeEphemeral -> V1Volume { v1VolumeEphemeral, ..} ) <$> f v1VolumeEphemeral -{-# INLINE v1VolumeEphemeralL #-} - --- | 'v1VolumeFc' Lens -v1VolumeFcL :: Lens_' V1Volume (Maybe V1FCVolumeSource) -v1VolumeFcL f V1Volume{..} = (\v1VolumeFc -> V1Volume { v1VolumeFc, ..} ) <$> f v1VolumeFc -{-# INLINE v1VolumeFcL #-} - --- | 'v1VolumeFlexVolume' Lens -v1VolumeFlexVolumeL :: Lens_' V1Volume (Maybe V1FlexVolumeSource) -v1VolumeFlexVolumeL f V1Volume{..} = (\v1VolumeFlexVolume -> V1Volume { v1VolumeFlexVolume, ..} ) <$> f v1VolumeFlexVolume -{-# INLINE v1VolumeFlexVolumeL #-} - --- | 'v1VolumeFlocker' Lens -v1VolumeFlockerL :: Lens_' V1Volume (Maybe V1FlockerVolumeSource) -v1VolumeFlockerL f V1Volume{..} = (\v1VolumeFlocker -> V1Volume { v1VolumeFlocker, ..} ) <$> f v1VolumeFlocker -{-# INLINE v1VolumeFlockerL #-} - --- | 'v1VolumeGcePersistentDisk' Lens -v1VolumeGcePersistentDiskL :: Lens_' V1Volume (Maybe V1GCEPersistentDiskVolumeSource) -v1VolumeGcePersistentDiskL f V1Volume{..} = (\v1VolumeGcePersistentDisk -> V1Volume { v1VolumeGcePersistentDisk, ..} ) <$> f v1VolumeGcePersistentDisk -{-# INLINE v1VolumeGcePersistentDiskL #-} - --- | 'v1VolumeGitRepo' Lens -v1VolumeGitRepoL :: Lens_' V1Volume (Maybe V1GitRepoVolumeSource) -v1VolumeGitRepoL f V1Volume{..} = (\v1VolumeGitRepo -> V1Volume { v1VolumeGitRepo, ..} ) <$> f v1VolumeGitRepo -{-# INLINE v1VolumeGitRepoL #-} - --- | 'v1VolumeGlusterfs' Lens -v1VolumeGlusterfsL :: Lens_' V1Volume (Maybe V1GlusterfsVolumeSource) -v1VolumeGlusterfsL f V1Volume{..} = (\v1VolumeGlusterfs -> V1Volume { v1VolumeGlusterfs, ..} ) <$> f v1VolumeGlusterfs -{-# INLINE v1VolumeGlusterfsL #-} - --- | 'v1VolumeHostPath' Lens -v1VolumeHostPathL :: Lens_' V1Volume (Maybe V1HostPathVolumeSource) -v1VolumeHostPathL f V1Volume{..} = (\v1VolumeHostPath -> V1Volume { v1VolumeHostPath, ..} ) <$> f v1VolumeHostPath -{-# INLINE v1VolumeHostPathL #-} - --- | 'v1VolumeIscsi' Lens -v1VolumeIscsiL :: Lens_' V1Volume (Maybe V1ISCSIVolumeSource) -v1VolumeIscsiL f V1Volume{..} = (\v1VolumeIscsi -> V1Volume { v1VolumeIscsi, ..} ) <$> f v1VolumeIscsi -{-# INLINE v1VolumeIscsiL #-} - --- | 'v1VolumeName' Lens -v1VolumeNameL :: Lens_' V1Volume (Text) -v1VolumeNameL f V1Volume{..} = (\v1VolumeName -> V1Volume { v1VolumeName, ..} ) <$> f v1VolumeName -{-# INLINE v1VolumeNameL #-} - --- | 'v1VolumeNfs' Lens -v1VolumeNfsL :: Lens_' V1Volume (Maybe V1NFSVolumeSource) -v1VolumeNfsL f V1Volume{..} = (\v1VolumeNfs -> V1Volume { v1VolumeNfs, ..} ) <$> f v1VolumeNfs -{-# INLINE v1VolumeNfsL #-} - --- | 'v1VolumePersistentVolumeClaim' Lens -v1VolumePersistentVolumeClaimL :: Lens_' V1Volume (Maybe V1PersistentVolumeClaimVolumeSource) -v1VolumePersistentVolumeClaimL f V1Volume{..} = (\v1VolumePersistentVolumeClaim -> V1Volume { v1VolumePersistentVolumeClaim, ..} ) <$> f v1VolumePersistentVolumeClaim -{-# INLINE v1VolumePersistentVolumeClaimL #-} - --- | 'v1VolumePhotonPersistentDisk' Lens -v1VolumePhotonPersistentDiskL :: Lens_' V1Volume (Maybe V1PhotonPersistentDiskVolumeSource) -v1VolumePhotonPersistentDiskL f V1Volume{..} = (\v1VolumePhotonPersistentDisk -> V1Volume { v1VolumePhotonPersistentDisk, ..} ) <$> f v1VolumePhotonPersistentDisk -{-# INLINE v1VolumePhotonPersistentDiskL #-} - --- | 'v1VolumePortworxVolume' Lens -v1VolumePortworxVolumeL :: Lens_' V1Volume (Maybe V1PortworxVolumeSource) -v1VolumePortworxVolumeL f V1Volume{..} = (\v1VolumePortworxVolume -> V1Volume { v1VolumePortworxVolume, ..} ) <$> f v1VolumePortworxVolume -{-# INLINE v1VolumePortworxVolumeL #-} - --- | 'v1VolumeProjected' Lens -v1VolumeProjectedL :: Lens_' V1Volume (Maybe V1ProjectedVolumeSource) -v1VolumeProjectedL f V1Volume{..} = (\v1VolumeProjected -> V1Volume { v1VolumeProjected, ..} ) <$> f v1VolumeProjected -{-# INLINE v1VolumeProjectedL #-} - --- | 'v1VolumeQuobyte' Lens -v1VolumeQuobyteL :: Lens_' V1Volume (Maybe V1QuobyteVolumeSource) -v1VolumeQuobyteL f V1Volume{..} = (\v1VolumeQuobyte -> V1Volume { v1VolumeQuobyte, ..} ) <$> f v1VolumeQuobyte -{-# INLINE v1VolumeQuobyteL #-} - --- | 'v1VolumeRbd' Lens -v1VolumeRbdL :: Lens_' V1Volume (Maybe V1RBDVolumeSource) -v1VolumeRbdL f V1Volume{..} = (\v1VolumeRbd -> V1Volume { v1VolumeRbd, ..} ) <$> f v1VolumeRbd -{-# INLINE v1VolumeRbdL #-} - --- | 'v1VolumeScaleIo' Lens -v1VolumeScaleIoL :: Lens_' V1Volume (Maybe V1ScaleIOVolumeSource) -v1VolumeScaleIoL f V1Volume{..} = (\v1VolumeScaleIo -> V1Volume { v1VolumeScaleIo, ..} ) <$> f v1VolumeScaleIo -{-# INLINE v1VolumeScaleIoL #-} - --- | 'v1VolumeSecret' Lens -v1VolumeSecretL :: Lens_' V1Volume (Maybe V1SecretVolumeSource) -v1VolumeSecretL f V1Volume{..} = (\v1VolumeSecret -> V1Volume { v1VolumeSecret, ..} ) <$> f v1VolumeSecret -{-# INLINE v1VolumeSecretL #-} - --- | 'v1VolumeStorageos' Lens -v1VolumeStorageosL :: Lens_' V1Volume (Maybe V1StorageOSVolumeSource) -v1VolumeStorageosL f V1Volume{..} = (\v1VolumeStorageos -> V1Volume { v1VolumeStorageos, ..} ) <$> f v1VolumeStorageos -{-# INLINE v1VolumeStorageosL #-} - --- | 'v1VolumeVsphereVolume' Lens -v1VolumeVsphereVolumeL :: Lens_' V1Volume (Maybe V1VsphereVirtualDiskVolumeSource) -v1VolumeVsphereVolumeL f V1Volume{..} = (\v1VolumeVsphereVolume -> V1Volume { v1VolumeVsphereVolume, ..} ) <$> f v1VolumeVsphereVolume -{-# INLINE v1VolumeVsphereVolumeL #-} - - - --- * V1VolumeAttachment - --- | 'v1VolumeAttachmentApiVersion' Lens -v1VolumeAttachmentApiVersionL :: Lens_' V1VolumeAttachment (Maybe Text) -v1VolumeAttachmentApiVersionL f V1VolumeAttachment{..} = (\v1VolumeAttachmentApiVersion -> V1VolumeAttachment { v1VolumeAttachmentApiVersion, ..} ) <$> f v1VolumeAttachmentApiVersion -{-# INLINE v1VolumeAttachmentApiVersionL #-} - --- | 'v1VolumeAttachmentKind' Lens -v1VolumeAttachmentKindL :: Lens_' V1VolumeAttachment (Maybe Text) -v1VolumeAttachmentKindL f V1VolumeAttachment{..} = (\v1VolumeAttachmentKind -> V1VolumeAttachment { v1VolumeAttachmentKind, ..} ) <$> f v1VolumeAttachmentKind -{-# INLINE v1VolumeAttachmentKindL #-} - --- | 'v1VolumeAttachmentMetadata' Lens -v1VolumeAttachmentMetadataL :: Lens_' V1VolumeAttachment (Maybe V1ObjectMeta) -v1VolumeAttachmentMetadataL f V1VolumeAttachment{..} = (\v1VolumeAttachmentMetadata -> V1VolumeAttachment { v1VolumeAttachmentMetadata, ..} ) <$> f v1VolumeAttachmentMetadata -{-# INLINE v1VolumeAttachmentMetadataL #-} - --- | 'v1VolumeAttachmentSpec' Lens -v1VolumeAttachmentSpecL :: Lens_' V1VolumeAttachment (V1VolumeAttachmentSpec) -v1VolumeAttachmentSpecL f V1VolumeAttachment{..} = (\v1VolumeAttachmentSpec -> V1VolumeAttachment { v1VolumeAttachmentSpec, ..} ) <$> f v1VolumeAttachmentSpec -{-# INLINE v1VolumeAttachmentSpecL #-} - --- | 'v1VolumeAttachmentStatus' Lens -v1VolumeAttachmentStatusL :: Lens_' V1VolumeAttachment (Maybe V1VolumeAttachmentStatus) -v1VolumeAttachmentStatusL f V1VolumeAttachment{..} = (\v1VolumeAttachmentStatus -> V1VolumeAttachment { v1VolumeAttachmentStatus, ..} ) <$> f v1VolumeAttachmentStatus -{-# INLINE v1VolumeAttachmentStatusL #-} - - - --- * V1VolumeAttachmentList - --- | 'v1VolumeAttachmentListApiVersion' Lens -v1VolumeAttachmentListApiVersionL :: Lens_' V1VolumeAttachmentList (Maybe Text) -v1VolumeAttachmentListApiVersionL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListApiVersion -> V1VolumeAttachmentList { v1VolumeAttachmentListApiVersion, ..} ) <$> f v1VolumeAttachmentListApiVersion -{-# INLINE v1VolumeAttachmentListApiVersionL #-} - --- | 'v1VolumeAttachmentListItems' Lens -v1VolumeAttachmentListItemsL :: Lens_' V1VolumeAttachmentList ([V1VolumeAttachment]) -v1VolumeAttachmentListItemsL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListItems -> V1VolumeAttachmentList { v1VolumeAttachmentListItems, ..} ) <$> f v1VolumeAttachmentListItems -{-# INLINE v1VolumeAttachmentListItemsL #-} - --- | 'v1VolumeAttachmentListKind' Lens -v1VolumeAttachmentListKindL :: Lens_' V1VolumeAttachmentList (Maybe Text) -v1VolumeAttachmentListKindL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListKind -> V1VolumeAttachmentList { v1VolumeAttachmentListKind, ..} ) <$> f v1VolumeAttachmentListKind -{-# INLINE v1VolumeAttachmentListKindL #-} - --- | 'v1VolumeAttachmentListMetadata' Lens -v1VolumeAttachmentListMetadataL :: Lens_' V1VolumeAttachmentList (Maybe V1ListMeta) -v1VolumeAttachmentListMetadataL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListMetadata -> V1VolumeAttachmentList { v1VolumeAttachmentListMetadata, ..} ) <$> f v1VolumeAttachmentListMetadata -{-# INLINE v1VolumeAttachmentListMetadataL #-} - - - --- * V1VolumeAttachmentSource - --- | 'v1VolumeAttachmentSourceInlineVolumeSpec' Lens -v1VolumeAttachmentSourceInlineVolumeSpecL :: Lens_' V1VolumeAttachmentSource (Maybe V1PersistentVolumeSpec) -v1VolumeAttachmentSourceInlineVolumeSpecL f V1VolumeAttachmentSource{..} = (\v1VolumeAttachmentSourceInlineVolumeSpec -> V1VolumeAttachmentSource { v1VolumeAttachmentSourceInlineVolumeSpec, ..} ) <$> f v1VolumeAttachmentSourceInlineVolumeSpec -{-# INLINE v1VolumeAttachmentSourceInlineVolumeSpecL #-} - --- | 'v1VolumeAttachmentSourcePersistentVolumeName' Lens -v1VolumeAttachmentSourcePersistentVolumeNameL :: Lens_' V1VolumeAttachmentSource (Maybe Text) -v1VolumeAttachmentSourcePersistentVolumeNameL f V1VolumeAttachmentSource{..} = (\v1VolumeAttachmentSourcePersistentVolumeName -> V1VolumeAttachmentSource { v1VolumeAttachmentSourcePersistentVolumeName, ..} ) <$> f v1VolumeAttachmentSourcePersistentVolumeName -{-# INLINE v1VolumeAttachmentSourcePersistentVolumeNameL #-} - - - --- * V1VolumeAttachmentSpec - --- | 'v1VolumeAttachmentSpecAttacher' Lens -v1VolumeAttachmentSpecAttacherL :: Lens_' V1VolumeAttachmentSpec (Text) -v1VolumeAttachmentSpecAttacherL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecAttacher -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecAttacher, ..} ) <$> f v1VolumeAttachmentSpecAttacher -{-# INLINE v1VolumeAttachmentSpecAttacherL #-} - --- | 'v1VolumeAttachmentSpecNodeName' Lens -v1VolumeAttachmentSpecNodeNameL :: Lens_' V1VolumeAttachmentSpec (Text) -v1VolumeAttachmentSpecNodeNameL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecNodeName -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecNodeName, ..} ) <$> f v1VolumeAttachmentSpecNodeName -{-# INLINE v1VolumeAttachmentSpecNodeNameL #-} - --- | 'v1VolumeAttachmentSpecSource' Lens -v1VolumeAttachmentSpecSourceL :: Lens_' V1VolumeAttachmentSpec (V1VolumeAttachmentSource) -v1VolumeAttachmentSpecSourceL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecSource -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecSource, ..} ) <$> f v1VolumeAttachmentSpecSource -{-# INLINE v1VolumeAttachmentSpecSourceL #-} - - - --- * V1VolumeAttachmentStatus - --- | 'v1VolumeAttachmentStatusAttachError' Lens -v1VolumeAttachmentStatusAttachErrorL :: Lens_' V1VolumeAttachmentStatus (Maybe V1VolumeError) -v1VolumeAttachmentStatusAttachErrorL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttachError -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttachError, ..} ) <$> f v1VolumeAttachmentStatusAttachError -{-# INLINE v1VolumeAttachmentStatusAttachErrorL #-} - --- | 'v1VolumeAttachmentStatusAttached' Lens -v1VolumeAttachmentStatusAttachedL :: Lens_' V1VolumeAttachmentStatus (Bool) -v1VolumeAttachmentStatusAttachedL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttached -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttached, ..} ) <$> f v1VolumeAttachmentStatusAttached -{-# INLINE v1VolumeAttachmentStatusAttachedL #-} - --- | 'v1VolumeAttachmentStatusAttachmentMetadata' Lens -v1VolumeAttachmentStatusAttachmentMetadataL :: Lens_' V1VolumeAttachmentStatus (Maybe (Map.Map String Text)) -v1VolumeAttachmentStatusAttachmentMetadataL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttachmentMetadata -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttachmentMetadata, ..} ) <$> f v1VolumeAttachmentStatusAttachmentMetadata -{-# INLINE v1VolumeAttachmentStatusAttachmentMetadataL #-} - --- | 'v1VolumeAttachmentStatusDetachError' Lens -v1VolumeAttachmentStatusDetachErrorL :: Lens_' V1VolumeAttachmentStatus (Maybe V1VolumeError) -v1VolumeAttachmentStatusDetachErrorL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusDetachError -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusDetachError, ..} ) <$> f v1VolumeAttachmentStatusDetachError -{-# INLINE v1VolumeAttachmentStatusDetachErrorL #-} - - - --- * V1VolumeDevice - --- | 'v1VolumeDeviceDevicePath' Lens -v1VolumeDeviceDevicePathL :: Lens_' V1VolumeDevice (Text) -v1VolumeDeviceDevicePathL f V1VolumeDevice{..} = (\v1VolumeDeviceDevicePath -> V1VolumeDevice { v1VolumeDeviceDevicePath, ..} ) <$> f v1VolumeDeviceDevicePath -{-# INLINE v1VolumeDeviceDevicePathL #-} - --- | 'v1VolumeDeviceName' Lens -v1VolumeDeviceNameL :: Lens_' V1VolumeDevice (Text) -v1VolumeDeviceNameL f V1VolumeDevice{..} = (\v1VolumeDeviceName -> V1VolumeDevice { v1VolumeDeviceName, ..} ) <$> f v1VolumeDeviceName -{-# INLINE v1VolumeDeviceNameL #-} - - - --- * V1VolumeError - --- | 'v1VolumeErrorMessage' Lens -v1VolumeErrorMessageL :: Lens_' V1VolumeError (Maybe Text) -v1VolumeErrorMessageL f V1VolumeError{..} = (\v1VolumeErrorMessage -> V1VolumeError { v1VolumeErrorMessage, ..} ) <$> f v1VolumeErrorMessage -{-# INLINE v1VolumeErrorMessageL #-} - --- | 'v1VolumeErrorTime' Lens -v1VolumeErrorTimeL :: Lens_' V1VolumeError (Maybe DateTime) -v1VolumeErrorTimeL f V1VolumeError{..} = (\v1VolumeErrorTime -> V1VolumeError { v1VolumeErrorTime, ..} ) <$> f v1VolumeErrorTime -{-# INLINE v1VolumeErrorTimeL #-} - - - --- * V1VolumeMount - --- | 'v1VolumeMountMountPath' Lens -v1VolumeMountMountPathL :: Lens_' V1VolumeMount (Text) -v1VolumeMountMountPathL f V1VolumeMount{..} = (\v1VolumeMountMountPath -> V1VolumeMount { v1VolumeMountMountPath, ..} ) <$> f v1VolumeMountMountPath -{-# INLINE v1VolumeMountMountPathL #-} - --- | 'v1VolumeMountMountPropagation' Lens -v1VolumeMountMountPropagationL :: Lens_' V1VolumeMount (Maybe Text) -v1VolumeMountMountPropagationL f V1VolumeMount{..} = (\v1VolumeMountMountPropagation -> V1VolumeMount { v1VolumeMountMountPropagation, ..} ) <$> f v1VolumeMountMountPropagation -{-# INLINE v1VolumeMountMountPropagationL #-} - --- | 'v1VolumeMountName' Lens -v1VolumeMountNameL :: Lens_' V1VolumeMount (Text) -v1VolumeMountNameL f V1VolumeMount{..} = (\v1VolumeMountName -> V1VolumeMount { v1VolumeMountName, ..} ) <$> f v1VolumeMountName -{-# INLINE v1VolumeMountNameL #-} - --- | 'v1VolumeMountReadOnly' Lens -v1VolumeMountReadOnlyL :: Lens_' V1VolumeMount (Maybe Bool) -v1VolumeMountReadOnlyL f V1VolumeMount{..} = (\v1VolumeMountReadOnly -> V1VolumeMount { v1VolumeMountReadOnly, ..} ) <$> f v1VolumeMountReadOnly -{-# INLINE v1VolumeMountReadOnlyL #-} - --- | 'v1VolumeMountSubPath' Lens -v1VolumeMountSubPathL :: Lens_' V1VolumeMount (Maybe Text) -v1VolumeMountSubPathL f V1VolumeMount{..} = (\v1VolumeMountSubPath -> V1VolumeMount { v1VolumeMountSubPath, ..} ) <$> f v1VolumeMountSubPath -{-# INLINE v1VolumeMountSubPathL #-} - --- | 'v1VolumeMountSubPathExpr' Lens -v1VolumeMountSubPathExprL :: Lens_' V1VolumeMount (Maybe Text) -v1VolumeMountSubPathExprL f V1VolumeMount{..} = (\v1VolumeMountSubPathExpr -> V1VolumeMount { v1VolumeMountSubPathExpr, ..} ) <$> f v1VolumeMountSubPathExpr -{-# INLINE v1VolumeMountSubPathExprL #-} - - - --- * V1VolumeNodeAffinity - --- | 'v1VolumeNodeAffinityRequired' Lens -v1VolumeNodeAffinityRequiredL :: Lens_' V1VolumeNodeAffinity (Maybe V1NodeSelector) -v1VolumeNodeAffinityRequiredL f V1VolumeNodeAffinity{..} = (\v1VolumeNodeAffinityRequired -> V1VolumeNodeAffinity { v1VolumeNodeAffinityRequired, ..} ) <$> f v1VolumeNodeAffinityRequired -{-# INLINE v1VolumeNodeAffinityRequiredL #-} - - - --- * V1VolumeNodeResources - --- | 'v1VolumeNodeResourcesCount' Lens -v1VolumeNodeResourcesCountL :: Lens_' V1VolumeNodeResources (Maybe Int) -v1VolumeNodeResourcesCountL f V1VolumeNodeResources{..} = (\v1VolumeNodeResourcesCount -> V1VolumeNodeResources { v1VolumeNodeResourcesCount, ..} ) <$> f v1VolumeNodeResourcesCount -{-# INLINE v1VolumeNodeResourcesCountL #-} - - - --- * V1VolumeProjection - --- | 'v1VolumeProjectionConfigMap' Lens -v1VolumeProjectionConfigMapL :: Lens_' V1VolumeProjection (Maybe V1ConfigMapProjection) -v1VolumeProjectionConfigMapL f V1VolumeProjection{..} = (\v1VolumeProjectionConfigMap -> V1VolumeProjection { v1VolumeProjectionConfigMap, ..} ) <$> f v1VolumeProjectionConfigMap -{-# INLINE v1VolumeProjectionConfigMapL #-} - --- | 'v1VolumeProjectionDownwardApi' Lens -v1VolumeProjectionDownwardApiL :: Lens_' V1VolumeProjection (Maybe V1DownwardAPIProjection) -v1VolumeProjectionDownwardApiL f V1VolumeProjection{..} = (\v1VolumeProjectionDownwardApi -> V1VolumeProjection { v1VolumeProjectionDownwardApi, ..} ) <$> f v1VolumeProjectionDownwardApi -{-# INLINE v1VolumeProjectionDownwardApiL #-} - --- | 'v1VolumeProjectionSecret' Lens -v1VolumeProjectionSecretL :: Lens_' V1VolumeProjection (Maybe V1SecretProjection) -v1VolumeProjectionSecretL f V1VolumeProjection{..} = (\v1VolumeProjectionSecret -> V1VolumeProjection { v1VolumeProjectionSecret, ..} ) <$> f v1VolumeProjectionSecret -{-# INLINE v1VolumeProjectionSecretL #-} - --- | 'v1VolumeProjectionServiceAccountToken' Lens -v1VolumeProjectionServiceAccountTokenL :: Lens_' V1VolumeProjection (Maybe V1ServiceAccountTokenProjection) -v1VolumeProjectionServiceAccountTokenL f V1VolumeProjection{..} = (\v1VolumeProjectionServiceAccountToken -> V1VolumeProjection { v1VolumeProjectionServiceAccountToken, ..} ) <$> f v1VolumeProjectionServiceAccountToken -{-# INLINE v1VolumeProjectionServiceAccountTokenL #-} - - - --- * V1VsphereVirtualDiskVolumeSource - --- | 'v1VsphereVirtualDiskVolumeSourceFsType' Lens -v1VsphereVirtualDiskVolumeSourceFsTypeL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) -v1VsphereVirtualDiskVolumeSourceFsTypeL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceFsType -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceFsType, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceFsType -{-# INLINE v1VsphereVirtualDiskVolumeSourceFsTypeL #-} - --- | 'v1VsphereVirtualDiskVolumeSourceStoragePolicyId' Lens -v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) -v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceStoragePolicyId -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceStoragePolicyId, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceStoragePolicyId -{-# INLINE v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL #-} - --- | 'v1VsphereVirtualDiskVolumeSourceStoragePolicyName' Lens -v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) -v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceStoragePolicyName -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceStoragePolicyName, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceStoragePolicyName -{-# INLINE v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL #-} - --- | 'v1VsphereVirtualDiskVolumeSourceVolumePath' Lens -v1VsphereVirtualDiskVolumeSourceVolumePathL :: Lens_' V1VsphereVirtualDiskVolumeSource (Text) -v1VsphereVirtualDiskVolumeSourceVolumePathL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceVolumePath -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceVolumePath, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceVolumePath -{-# INLINE v1VsphereVirtualDiskVolumeSourceVolumePathL #-} - - - --- * V1WatchEvent - --- | 'v1WatchEventObject' Lens -v1WatchEventObjectL :: Lens_' V1WatchEvent (A.Value) -v1WatchEventObjectL f V1WatchEvent{..} = (\v1WatchEventObject -> V1WatchEvent { v1WatchEventObject, ..} ) <$> f v1WatchEventObject -{-# INLINE v1WatchEventObjectL #-} - --- | 'v1WatchEventType' Lens -v1WatchEventTypeL :: Lens_' V1WatchEvent (Text) -v1WatchEventTypeL f V1WatchEvent{..} = (\v1WatchEventType -> V1WatchEvent { v1WatchEventType, ..} ) <$> f v1WatchEventType -{-# INLINE v1WatchEventTypeL #-} - - - --- * V1WebhookConversion - --- | 'v1WebhookConversionClientConfig' Lens -v1WebhookConversionClientConfigL :: Lens_' V1WebhookConversion (Maybe ApiextensionsV1WebhookClientConfig) -v1WebhookConversionClientConfigL f V1WebhookConversion{..} = (\v1WebhookConversionClientConfig -> V1WebhookConversion { v1WebhookConversionClientConfig, ..} ) <$> f v1WebhookConversionClientConfig -{-# INLINE v1WebhookConversionClientConfigL #-} - --- | 'v1WebhookConversionConversionReviewVersions' Lens -v1WebhookConversionConversionReviewVersionsL :: Lens_' V1WebhookConversion ([Text]) -v1WebhookConversionConversionReviewVersionsL f V1WebhookConversion{..} = (\v1WebhookConversionConversionReviewVersions -> V1WebhookConversion { v1WebhookConversionConversionReviewVersions, ..} ) <$> f v1WebhookConversionConversionReviewVersions -{-# INLINE v1WebhookConversionConversionReviewVersionsL #-} - - - --- * V1WeightedPodAffinityTerm - --- | 'v1WeightedPodAffinityTermPodAffinityTerm' Lens -v1WeightedPodAffinityTermPodAffinityTermL :: Lens_' V1WeightedPodAffinityTerm (V1PodAffinityTerm) -v1WeightedPodAffinityTermPodAffinityTermL f V1WeightedPodAffinityTerm{..} = (\v1WeightedPodAffinityTermPodAffinityTerm -> V1WeightedPodAffinityTerm { v1WeightedPodAffinityTermPodAffinityTerm, ..} ) <$> f v1WeightedPodAffinityTermPodAffinityTerm -{-# INLINE v1WeightedPodAffinityTermPodAffinityTermL #-} - --- | 'v1WeightedPodAffinityTermWeight' Lens -v1WeightedPodAffinityTermWeightL :: Lens_' V1WeightedPodAffinityTerm (Int) -v1WeightedPodAffinityTermWeightL f V1WeightedPodAffinityTerm{..} = (\v1WeightedPodAffinityTermWeight -> V1WeightedPodAffinityTerm { v1WeightedPodAffinityTermWeight, ..} ) <$> f v1WeightedPodAffinityTermWeight -{-# INLINE v1WeightedPodAffinityTermWeightL #-} - - - --- * V1WindowsSecurityContextOptions - --- | 'v1WindowsSecurityContextOptionsGmsaCredentialSpec' Lens -v1WindowsSecurityContextOptionsGmsaCredentialSpecL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) -v1WindowsSecurityContextOptionsGmsaCredentialSpecL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsGmsaCredentialSpec -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsGmsaCredentialSpec, ..} ) <$> f v1WindowsSecurityContextOptionsGmsaCredentialSpec -{-# INLINE v1WindowsSecurityContextOptionsGmsaCredentialSpecL #-} - --- | 'v1WindowsSecurityContextOptionsGmsaCredentialSpecName' Lens -v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) -v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsGmsaCredentialSpecName -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsGmsaCredentialSpecName, ..} ) <$> f v1WindowsSecurityContextOptionsGmsaCredentialSpecName -{-# INLINE v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL #-} - --- | 'v1WindowsSecurityContextOptionsHostProcess' Lens -v1WindowsSecurityContextOptionsHostProcessL :: Lens_' V1WindowsSecurityContextOptions (Maybe Bool) -v1WindowsSecurityContextOptionsHostProcessL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsHostProcess -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsHostProcess, ..} ) <$> f v1WindowsSecurityContextOptionsHostProcess -{-# INLINE v1WindowsSecurityContextOptionsHostProcessL #-} - --- | 'v1WindowsSecurityContextOptionsRunAsUserName' Lens -v1WindowsSecurityContextOptionsRunAsUserNameL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) -v1WindowsSecurityContextOptionsRunAsUserNameL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsRunAsUserName -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsRunAsUserName, ..} ) <$> f v1WindowsSecurityContextOptionsRunAsUserName -{-# INLINE v1WindowsSecurityContextOptionsRunAsUserNameL #-} - - - --- * V1alpha1AllocationResult - --- | 'v1alpha1AllocationResultAvailableOnNodes' Lens -v1alpha1AllocationResultAvailableOnNodesL :: Lens_' V1alpha1AllocationResult (Maybe V1NodeSelector) -v1alpha1AllocationResultAvailableOnNodesL f V1alpha1AllocationResult{..} = (\v1alpha1AllocationResultAvailableOnNodes -> V1alpha1AllocationResult { v1alpha1AllocationResultAvailableOnNodes, ..} ) <$> f v1alpha1AllocationResultAvailableOnNodes -{-# INLINE v1alpha1AllocationResultAvailableOnNodesL #-} - --- | 'v1alpha1AllocationResultResourceHandle' Lens -v1alpha1AllocationResultResourceHandleL :: Lens_' V1alpha1AllocationResult (Maybe Text) -v1alpha1AllocationResultResourceHandleL f V1alpha1AllocationResult{..} = (\v1alpha1AllocationResultResourceHandle -> V1alpha1AllocationResult { v1alpha1AllocationResultResourceHandle, ..} ) <$> f v1alpha1AllocationResultResourceHandle -{-# INLINE v1alpha1AllocationResultResourceHandleL #-} - --- | 'v1alpha1AllocationResultShareable' Lens -v1alpha1AllocationResultShareableL :: Lens_' V1alpha1AllocationResult (Maybe Bool) -v1alpha1AllocationResultShareableL f V1alpha1AllocationResult{..} = (\v1alpha1AllocationResultShareable -> V1alpha1AllocationResult { v1alpha1AllocationResultShareable, ..} ) <$> f v1alpha1AllocationResultShareable -{-# INLINE v1alpha1AllocationResultShareableL #-} - - - --- * V1alpha1ClusterCIDR - --- | 'v1alpha1ClusterCIDRApiVersion' Lens -v1alpha1ClusterCIDRApiVersionL :: Lens_' V1alpha1ClusterCIDR (Maybe Text) -v1alpha1ClusterCIDRApiVersionL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRApiVersion -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRApiVersion, ..} ) <$> f v1alpha1ClusterCIDRApiVersion -{-# INLINE v1alpha1ClusterCIDRApiVersionL #-} - --- | 'v1alpha1ClusterCIDRKind' Lens -v1alpha1ClusterCIDRKindL :: Lens_' V1alpha1ClusterCIDR (Maybe Text) -v1alpha1ClusterCIDRKindL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRKind -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRKind, ..} ) <$> f v1alpha1ClusterCIDRKind -{-# INLINE v1alpha1ClusterCIDRKindL #-} - --- | 'v1alpha1ClusterCIDRMetadata' Lens -v1alpha1ClusterCIDRMetadataL :: Lens_' V1alpha1ClusterCIDR (Maybe V1ObjectMeta) -v1alpha1ClusterCIDRMetadataL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRMetadata -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRMetadata, ..} ) <$> f v1alpha1ClusterCIDRMetadata -{-# INLINE v1alpha1ClusterCIDRMetadataL #-} - --- | 'v1alpha1ClusterCIDRSpec' Lens -v1alpha1ClusterCIDRSpecL :: Lens_' V1alpha1ClusterCIDR (Maybe V1alpha1ClusterCIDRSpec) -v1alpha1ClusterCIDRSpecL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRSpec -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRSpec, ..} ) <$> f v1alpha1ClusterCIDRSpec -{-# INLINE v1alpha1ClusterCIDRSpecL #-} - - - --- * V1alpha1ClusterCIDRList - --- | 'v1alpha1ClusterCIDRListApiVersion' Lens -v1alpha1ClusterCIDRListApiVersionL :: Lens_' V1alpha1ClusterCIDRList (Maybe Text) -v1alpha1ClusterCIDRListApiVersionL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListApiVersion -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListApiVersion, ..} ) <$> f v1alpha1ClusterCIDRListApiVersion -{-# INLINE v1alpha1ClusterCIDRListApiVersionL #-} - --- | 'v1alpha1ClusterCIDRListItems' Lens -v1alpha1ClusterCIDRListItemsL :: Lens_' V1alpha1ClusterCIDRList ([V1alpha1ClusterCIDR]) -v1alpha1ClusterCIDRListItemsL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListItems -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListItems, ..} ) <$> f v1alpha1ClusterCIDRListItems -{-# INLINE v1alpha1ClusterCIDRListItemsL #-} - --- | 'v1alpha1ClusterCIDRListKind' Lens -v1alpha1ClusterCIDRListKindL :: Lens_' V1alpha1ClusterCIDRList (Maybe Text) -v1alpha1ClusterCIDRListKindL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListKind -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListKind, ..} ) <$> f v1alpha1ClusterCIDRListKind -{-# INLINE v1alpha1ClusterCIDRListKindL #-} - --- | 'v1alpha1ClusterCIDRListMetadata' Lens -v1alpha1ClusterCIDRListMetadataL :: Lens_' V1alpha1ClusterCIDRList (Maybe V1ListMeta) -v1alpha1ClusterCIDRListMetadataL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListMetadata -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListMetadata, ..} ) <$> f v1alpha1ClusterCIDRListMetadata -{-# INLINE v1alpha1ClusterCIDRListMetadataL #-} - - - --- * V1alpha1ClusterCIDRSpec - --- | 'v1alpha1ClusterCIDRSpecIpv4' Lens -v1alpha1ClusterCIDRSpecIpv4L :: Lens_' V1alpha1ClusterCIDRSpec (Maybe Text) -v1alpha1ClusterCIDRSpecIpv4L f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecIpv4 -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecIpv4, ..} ) <$> f v1alpha1ClusterCIDRSpecIpv4 -{-# INLINE v1alpha1ClusterCIDRSpecIpv4L #-} - --- | 'v1alpha1ClusterCIDRSpecIpv6' Lens -v1alpha1ClusterCIDRSpecIpv6L :: Lens_' V1alpha1ClusterCIDRSpec (Maybe Text) -v1alpha1ClusterCIDRSpecIpv6L f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecIpv6 -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecIpv6, ..} ) <$> f v1alpha1ClusterCIDRSpecIpv6 -{-# INLINE v1alpha1ClusterCIDRSpecIpv6L #-} - --- | 'v1alpha1ClusterCIDRSpecNodeSelector' Lens -v1alpha1ClusterCIDRSpecNodeSelectorL :: Lens_' V1alpha1ClusterCIDRSpec (Maybe V1NodeSelector) -v1alpha1ClusterCIDRSpecNodeSelectorL f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecNodeSelector -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecNodeSelector, ..} ) <$> f v1alpha1ClusterCIDRSpecNodeSelector -{-# INLINE v1alpha1ClusterCIDRSpecNodeSelectorL #-} - --- | 'v1alpha1ClusterCIDRSpecPerNodeHostBits' Lens -v1alpha1ClusterCIDRSpecPerNodeHostBitsL :: Lens_' V1alpha1ClusterCIDRSpec (Int) -v1alpha1ClusterCIDRSpecPerNodeHostBitsL f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecPerNodeHostBits -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecPerNodeHostBits, ..} ) <$> f v1alpha1ClusterCIDRSpecPerNodeHostBits -{-# INLINE v1alpha1ClusterCIDRSpecPerNodeHostBitsL #-} - - - --- * V1alpha1MatchResources - --- | 'v1alpha1MatchResourcesExcludeResourceRules' Lens -v1alpha1MatchResourcesExcludeResourceRulesL :: Lens_' V1alpha1MatchResources (Maybe [V1alpha1NamedRuleWithOperations]) -v1alpha1MatchResourcesExcludeResourceRulesL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesExcludeResourceRules -> V1alpha1MatchResources { v1alpha1MatchResourcesExcludeResourceRules, ..} ) <$> f v1alpha1MatchResourcesExcludeResourceRules -{-# INLINE v1alpha1MatchResourcesExcludeResourceRulesL #-} - --- | 'v1alpha1MatchResourcesMatchPolicy' Lens -v1alpha1MatchResourcesMatchPolicyL :: Lens_' V1alpha1MatchResources (Maybe Text) -v1alpha1MatchResourcesMatchPolicyL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesMatchPolicy -> V1alpha1MatchResources { v1alpha1MatchResourcesMatchPolicy, ..} ) <$> f v1alpha1MatchResourcesMatchPolicy -{-# INLINE v1alpha1MatchResourcesMatchPolicyL #-} - --- | 'v1alpha1MatchResourcesNamespaceSelector' Lens -v1alpha1MatchResourcesNamespaceSelectorL :: Lens_' V1alpha1MatchResources (Maybe V1LabelSelector) -v1alpha1MatchResourcesNamespaceSelectorL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesNamespaceSelector -> V1alpha1MatchResources { v1alpha1MatchResourcesNamespaceSelector, ..} ) <$> f v1alpha1MatchResourcesNamespaceSelector -{-# INLINE v1alpha1MatchResourcesNamespaceSelectorL #-} - --- | 'v1alpha1MatchResourcesObjectSelector' Lens -v1alpha1MatchResourcesObjectSelectorL :: Lens_' V1alpha1MatchResources (Maybe V1LabelSelector) -v1alpha1MatchResourcesObjectSelectorL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesObjectSelector -> V1alpha1MatchResources { v1alpha1MatchResourcesObjectSelector, ..} ) <$> f v1alpha1MatchResourcesObjectSelector -{-# INLINE v1alpha1MatchResourcesObjectSelectorL #-} - --- | 'v1alpha1MatchResourcesResourceRules' Lens -v1alpha1MatchResourcesResourceRulesL :: Lens_' V1alpha1MatchResources (Maybe [V1alpha1NamedRuleWithOperations]) -v1alpha1MatchResourcesResourceRulesL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesResourceRules -> V1alpha1MatchResources { v1alpha1MatchResourcesResourceRules, ..} ) <$> f v1alpha1MatchResourcesResourceRules -{-# INLINE v1alpha1MatchResourcesResourceRulesL #-} - - - --- * V1alpha1NamedRuleWithOperations - --- | 'v1alpha1NamedRuleWithOperationsApiGroups' Lens -v1alpha1NamedRuleWithOperationsApiGroupsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) -v1alpha1NamedRuleWithOperationsApiGroupsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsApiGroups -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsApiGroups, ..} ) <$> f v1alpha1NamedRuleWithOperationsApiGroups -{-# INLINE v1alpha1NamedRuleWithOperationsApiGroupsL #-} - --- | 'v1alpha1NamedRuleWithOperationsApiVersions' Lens -v1alpha1NamedRuleWithOperationsApiVersionsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) -v1alpha1NamedRuleWithOperationsApiVersionsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsApiVersions -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsApiVersions, ..} ) <$> f v1alpha1NamedRuleWithOperationsApiVersions -{-# INLINE v1alpha1NamedRuleWithOperationsApiVersionsL #-} - --- | 'v1alpha1NamedRuleWithOperationsOperations' Lens -v1alpha1NamedRuleWithOperationsOperationsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) -v1alpha1NamedRuleWithOperationsOperationsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsOperations -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsOperations, ..} ) <$> f v1alpha1NamedRuleWithOperationsOperations -{-# INLINE v1alpha1NamedRuleWithOperationsOperationsL #-} - --- | 'v1alpha1NamedRuleWithOperationsResourceNames' Lens -v1alpha1NamedRuleWithOperationsResourceNamesL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) -v1alpha1NamedRuleWithOperationsResourceNamesL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsResourceNames -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsResourceNames, ..} ) <$> f v1alpha1NamedRuleWithOperationsResourceNames -{-# INLINE v1alpha1NamedRuleWithOperationsResourceNamesL #-} - --- | 'v1alpha1NamedRuleWithOperationsResources' Lens -v1alpha1NamedRuleWithOperationsResourcesL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) -v1alpha1NamedRuleWithOperationsResourcesL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsResources -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsResources, ..} ) <$> f v1alpha1NamedRuleWithOperationsResources -{-# INLINE v1alpha1NamedRuleWithOperationsResourcesL #-} - --- | 'v1alpha1NamedRuleWithOperationsScope' Lens -v1alpha1NamedRuleWithOperationsScopeL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe Text) -v1alpha1NamedRuleWithOperationsScopeL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsScope -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsScope, ..} ) <$> f v1alpha1NamedRuleWithOperationsScope -{-# INLINE v1alpha1NamedRuleWithOperationsScopeL #-} - - - --- * V1alpha1ParamKind - --- | 'v1alpha1ParamKindApiVersion' Lens -v1alpha1ParamKindApiVersionL :: Lens_' V1alpha1ParamKind (Maybe Text) -v1alpha1ParamKindApiVersionL f V1alpha1ParamKind{..} = (\v1alpha1ParamKindApiVersion -> V1alpha1ParamKind { v1alpha1ParamKindApiVersion, ..} ) <$> f v1alpha1ParamKindApiVersion -{-# INLINE v1alpha1ParamKindApiVersionL #-} - --- | 'v1alpha1ParamKindKind' Lens -v1alpha1ParamKindKindL :: Lens_' V1alpha1ParamKind (Maybe Text) -v1alpha1ParamKindKindL f V1alpha1ParamKind{..} = (\v1alpha1ParamKindKind -> V1alpha1ParamKind { v1alpha1ParamKindKind, ..} ) <$> f v1alpha1ParamKindKind -{-# INLINE v1alpha1ParamKindKindL #-} - - - --- * V1alpha1ParamRef - --- | 'v1alpha1ParamRefName' Lens -v1alpha1ParamRefNameL :: Lens_' V1alpha1ParamRef (Maybe Text) -v1alpha1ParamRefNameL f V1alpha1ParamRef{..} = (\v1alpha1ParamRefName -> V1alpha1ParamRef { v1alpha1ParamRefName, ..} ) <$> f v1alpha1ParamRefName -{-# INLINE v1alpha1ParamRefNameL #-} - --- | 'v1alpha1ParamRefNamespace' Lens -v1alpha1ParamRefNamespaceL :: Lens_' V1alpha1ParamRef (Maybe Text) -v1alpha1ParamRefNamespaceL f V1alpha1ParamRef{..} = (\v1alpha1ParamRefNamespace -> V1alpha1ParamRef { v1alpha1ParamRefNamespace, ..} ) <$> f v1alpha1ParamRefNamespace -{-# INLINE v1alpha1ParamRefNamespaceL #-} - - - --- * V1alpha1PodScheduling - --- | 'v1alpha1PodSchedulingApiVersion' Lens -v1alpha1PodSchedulingApiVersionL :: Lens_' V1alpha1PodScheduling (Maybe Text) -v1alpha1PodSchedulingApiVersionL f V1alpha1PodScheduling{..} = (\v1alpha1PodSchedulingApiVersion -> V1alpha1PodScheduling { v1alpha1PodSchedulingApiVersion, ..} ) <$> f v1alpha1PodSchedulingApiVersion -{-# INLINE v1alpha1PodSchedulingApiVersionL #-} - --- | 'v1alpha1PodSchedulingKind' Lens -v1alpha1PodSchedulingKindL :: Lens_' V1alpha1PodScheduling (Maybe Text) -v1alpha1PodSchedulingKindL f V1alpha1PodScheduling{..} = (\v1alpha1PodSchedulingKind -> V1alpha1PodScheduling { v1alpha1PodSchedulingKind, ..} ) <$> f v1alpha1PodSchedulingKind -{-# INLINE v1alpha1PodSchedulingKindL #-} - --- | 'v1alpha1PodSchedulingMetadata' Lens -v1alpha1PodSchedulingMetadataL :: Lens_' V1alpha1PodScheduling (Maybe V1ObjectMeta) -v1alpha1PodSchedulingMetadataL f V1alpha1PodScheduling{..} = (\v1alpha1PodSchedulingMetadata -> V1alpha1PodScheduling { v1alpha1PodSchedulingMetadata, ..} ) <$> f v1alpha1PodSchedulingMetadata -{-# INLINE v1alpha1PodSchedulingMetadataL #-} - --- | 'v1alpha1PodSchedulingSpec' Lens -v1alpha1PodSchedulingSpecL :: Lens_' V1alpha1PodScheduling (V1alpha1PodSchedulingSpec) -v1alpha1PodSchedulingSpecL f V1alpha1PodScheduling{..} = (\v1alpha1PodSchedulingSpec -> V1alpha1PodScheduling { v1alpha1PodSchedulingSpec, ..} ) <$> f v1alpha1PodSchedulingSpec -{-# INLINE v1alpha1PodSchedulingSpecL #-} - --- | 'v1alpha1PodSchedulingStatus' Lens -v1alpha1PodSchedulingStatusL :: Lens_' V1alpha1PodScheduling (Maybe V1alpha1PodSchedulingStatus) -v1alpha1PodSchedulingStatusL f V1alpha1PodScheduling{..} = (\v1alpha1PodSchedulingStatus -> V1alpha1PodScheduling { v1alpha1PodSchedulingStatus, ..} ) <$> f v1alpha1PodSchedulingStatus -{-# INLINE v1alpha1PodSchedulingStatusL #-} - - - --- * V1alpha1PodSchedulingList - --- | 'v1alpha1PodSchedulingListApiVersion' Lens -v1alpha1PodSchedulingListApiVersionL :: Lens_' V1alpha1PodSchedulingList (Maybe Text) -v1alpha1PodSchedulingListApiVersionL f V1alpha1PodSchedulingList{..} = (\v1alpha1PodSchedulingListApiVersion -> V1alpha1PodSchedulingList { v1alpha1PodSchedulingListApiVersion, ..} ) <$> f v1alpha1PodSchedulingListApiVersion -{-# INLINE v1alpha1PodSchedulingListApiVersionL #-} - --- | 'v1alpha1PodSchedulingListItems' Lens -v1alpha1PodSchedulingListItemsL :: Lens_' V1alpha1PodSchedulingList ([V1alpha1PodScheduling]) -v1alpha1PodSchedulingListItemsL f V1alpha1PodSchedulingList{..} = (\v1alpha1PodSchedulingListItems -> V1alpha1PodSchedulingList { v1alpha1PodSchedulingListItems, ..} ) <$> f v1alpha1PodSchedulingListItems -{-# INLINE v1alpha1PodSchedulingListItemsL #-} - --- | 'v1alpha1PodSchedulingListKind' Lens -v1alpha1PodSchedulingListKindL :: Lens_' V1alpha1PodSchedulingList (Maybe Text) -v1alpha1PodSchedulingListKindL f V1alpha1PodSchedulingList{..} = (\v1alpha1PodSchedulingListKind -> V1alpha1PodSchedulingList { v1alpha1PodSchedulingListKind, ..} ) <$> f v1alpha1PodSchedulingListKind -{-# INLINE v1alpha1PodSchedulingListKindL #-} - --- | 'v1alpha1PodSchedulingListMetadata' Lens -v1alpha1PodSchedulingListMetadataL :: Lens_' V1alpha1PodSchedulingList (Maybe V1ListMeta) -v1alpha1PodSchedulingListMetadataL f V1alpha1PodSchedulingList{..} = (\v1alpha1PodSchedulingListMetadata -> V1alpha1PodSchedulingList { v1alpha1PodSchedulingListMetadata, ..} ) <$> f v1alpha1PodSchedulingListMetadata -{-# INLINE v1alpha1PodSchedulingListMetadataL #-} - - - --- * V1alpha1PodSchedulingSpec - --- | 'v1alpha1PodSchedulingSpecPotentialNodes' Lens -v1alpha1PodSchedulingSpecPotentialNodesL :: Lens_' V1alpha1PodSchedulingSpec (Maybe [Text]) -v1alpha1PodSchedulingSpecPotentialNodesL f V1alpha1PodSchedulingSpec{..} = (\v1alpha1PodSchedulingSpecPotentialNodes -> V1alpha1PodSchedulingSpec { v1alpha1PodSchedulingSpecPotentialNodes, ..} ) <$> f v1alpha1PodSchedulingSpecPotentialNodes -{-# INLINE v1alpha1PodSchedulingSpecPotentialNodesL #-} - --- | 'v1alpha1PodSchedulingSpecSelectedNode' Lens -v1alpha1PodSchedulingSpecSelectedNodeL :: Lens_' V1alpha1PodSchedulingSpec (Maybe Text) -v1alpha1PodSchedulingSpecSelectedNodeL f V1alpha1PodSchedulingSpec{..} = (\v1alpha1PodSchedulingSpecSelectedNode -> V1alpha1PodSchedulingSpec { v1alpha1PodSchedulingSpecSelectedNode, ..} ) <$> f v1alpha1PodSchedulingSpecSelectedNode -{-# INLINE v1alpha1PodSchedulingSpecSelectedNodeL #-} - - - --- * V1alpha1PodSchedulingStatus - --- | 'v1alpha1PodSchedulingStatusResourceClaims' Lens -v1alpha1PodSchedulingStatusResourceClaimsL :: Lens_' V1alpha1PodSchedulingStatus (Maybe [V1alpha1ResourceClaimSchedulingStatus]) -v1alpha1PodSchedulingStatusResourceClaimsL f V1alpha1PodSchedulingStatus{..} = (\v1alpha1PodSchedulingStatusResourceClaims -> V1alpha1PodSchedulingStatus { v1alpha1PodSchedulingStatusResourceClaims, ..} ) <$> f v1alpha1PodSchedulingStatusResourceClaims -{-# INLINE v1alpha1PodSchedulingStatusResourceClaimsL #-} - - - --- * V1alpha1ResourceClaim - --- | 'v1alpha1ResourceClaimApiVersion' Lens -v1alpha1ResourceClaimApiVersionL :: Lens_' V1alpha1ResourceClaim (Maybe Text) -v1alpha1ResourceClaimApiVersionL f V1alpha1ResourceClaim{..} = (\v1alpha1ResourceClaimApiVersion -> V1alpha1ResourceClaim { v1alpha1ResourceClaimApiVersion, ..} ) <$> f v1alpha1ResourceClaimApiVersion -{-# INLINE v1alpha1ResourceClaimApiVersionL #-} - --- | 'v1alpha1ResourceClaimKind' Lens -v1alpha1ResourceClaimKindL :: Lens_' V1alpha1ResourceClaim (Maybe Text) -v1alpha1ResourceClaimKindL f V1alpha1ResourceClaim{..} = (\v1alpha1ResourceClaimKind -> V1alpha1ResourceClaim { v1alpha1ResourceClaimKind, ..} ) <$> f v1alpha1ResourceClaimKind -{-# INLINE v1alpha1ResourceClaimKindL #-} - --- | 'v1alpha1ResourceClaimMetadata' Lens -v1alpha1ResourceClaimMetadataL :: Lens_' V1alpha1ResourceClaim (Maybe V1ObjectMeta) -v1alpha1ResourceClaimMetadataL f V1alpha1ResourceClaim{..} = (\v1alpha1ResourceClaimMetadata -> V1alpha1ResourceClaim { v1alpha1ResourceClaimMetadata, ..} ) <$> f v1alpha1ResourceClaimMetadata -{-# INLINE v1alpha1ResourceClaimMetadataL #-} - --- | 'v1alpha1ResourceClaimSpec' Lens -v1alpha1ResourceClaimSpecL :: Lens_' V1alpha1ResourceClaim (V1alpha1ResourceClaimSpec) -v1alpha1ResourceClaimSpecL f V1alpha1ResourceClaim{..} = (\v1alpha1ResourceClaimSpec -> V1alpha1ResourceClaim { v1alpha1ResourceClaimSpec, ..} ) <$> f v1alpha1ResourceClaimSpec -{-# INLINE v1alpha1ResourceClaimSpecL #-} - --- | 'v1alpha1ResourceClaimStatus' Lens -v1alpha1ResourceClaimStatusL :: Lens_' V1alpha1ResourceClaim (Maybe V1alpha1ResourceClaimStatus) -v1alpha1ResourceClaimStatusL f V1alpha1ResourceClaim{..} = (\v1alpha1ResourceClaimStatus -> V1alpha1ResourceClaim { v1alpha1ResourceClaimStatus, ..} ) <$> f v1alpha1ResourceClaimStatus -{-# INLINE v1alpha1ResourceClaimStatusL #-} - - - --- * V1alpha1ResourceClaimConsumerReference - --- | 'v1alpha1ResourceClaimConsumerReferenceApiGroup' Lens -v1alpha1ResourceClaimConsumerReferenceApiGroupL :: Lens_' V1alpha1ResourceClaimConsumerReference (Maybe Text) -v1alpha1ResourceClaimConsumerReferenceApiGroupL f V1alpha1ResourceClaimConsumerReference{..} = (\v1alpha1ResourceClaimConsumerReferenceApiGroup -> V1alpha1ResourceClaimConsumerReference { v1alpha1ResourceClaimConsumerReferenceApiGroup, ..} ) <$> f v1alpha1ResourceClaimConsumerReferenceApiGroup -{-# INLINE v1alpha1ResourceClaimConsumerReferenceApiGroupL #-} - --- | 'v1alpha1ResourceClaimConsumerReferenceName' Lens -v1alpha1ResourceClaimConsumerReferenceNameL :: Lens_' V1alpha1ResourceClaimConsumerReference (Text) -v1alpha1ResourceClaimConsumerReferenceNameL f V1alpha1ResourceClaimConsumerReference{..} = (\v1alpha1ResourceClaimConsumerReferenceName -> V1alpha1ResourceClaimConsumerReference { v1alpha1ResourceClaimConsumerReferenceName, ..} ) <$> f v1alpha1ResourceClaimConsumerReferenceName -{-# INLINE v1alpha1ResourceClaimConsumerReferenceNameL #-} - --- | 'v1alpha1ResourceClaimConsumerReferenceResource' Lens -v1alpha1ResourceClaimConsumerReferenceResourceL :: Lens_' V1alpha1ResourceClaimConsumerReference (Text) -v1alpha1ResourceClaimConsumerReferenceResourceL f V1alpha1ResourceClaimConsumerReference{..} = (\v1alpha1ResourceClaimConsumerReferenceResource -> V1alpha1ResourceClaimConsumerReference { v1alpha1ResourceClaimConsumerReferenceResource, ..} ) <$> f v1alpha1ResourceClaimConsumerReferenceResource -{-# INLINE v1alpha1ResourceClaimConsumerReferenceResourceL #-} - --- | 'v1alpha1ResourceClaimConsumerReferenceUid' Lens -v1alpha1ResourceClaimConsumerReferenceUidL :: Lens_' V1alpha1ResourceClaimConsumerReference (Text) -v1alpha1ResourceClaimConsumerReferenceUidL f V1alpha1ResourceClaimConsumerReference{..} = (\v1alpha1ResourceClaimConsumerReferenceUid -> V1alpha1ResourceClaimConsumerReference { v1alpha1ResourceClaimConsumerReferenceUid, ..} ) <$> f v1alpha1ResourceClaimConsumerReferenceUid -{-# INLINE v1alpha1ResourceClaimConsumerReferenceUidL #-} - - - --- * V1alpha1ResourceClaimList - --- | 'v1alpha1ResourceClaimListApiVersion' Lens -v1alpha1ResourceClaimListApiVersionL :: Lens_' V1alpha1ResourceClaimList (Maybe Text) -v1alpha1ResourceClaimListApiVersionL f V1alpha1ResourceClaimList{..} = (\v1alpha1ResourceClaimListApiVersion -> V1alpha1ResourceClaimList { v1alpha1ResourceClaimListApiVersion, ..} ) <$> f v1alpha1ResourceClaimListApiVersion -{-# INLINE v1alpha1ResourceClaimListApiVersionL #-} - --- | 'v1alpha1ResourceClaimListItems' Lens -v1alpha1ResourceClaimListItemsL :: Lens_' V1alpha1ResourceClaimList ([V1alpha1ResourceClaim]) -v1alpha1ResourceClaimListItemsL f V1alpha1ResourceClaimList{..} = (\v1alpha1ResourceClaimListItems -> V1alpha1ResourceClaimList { v1alpha1ResourceClaimListItems, ..} ) <$> f v1alpha1ResourceClaimListItems -{-# INLINE v1alpha1ResourceClaimListItemsL #-} - --- | 'v1alpha1ResourceClaimListKind' Lens -v1alpha1ResourceClaimListKindL :: Lens_' V1alpha1ResourceClaimList (Maybe Text) -v1alpha1ResourceClaimListKindL f V1alpha1ResourceClaimList{..} = (\v1alpha1ResourceClaimListKind -> V1alpha1ResourceClaimList { v1alpha1ResourceClaimListKind, ..} ) <$> f v1alpha1ResourceClaimListKind -{-# INLINE v1alpha1ResourceClaimListKindL #-} - --- | 'v1alpha1ResourceClaimListMetadata' Lens -v1alpha1ResourceClaimListMetadataL :: Lens_' V1alpha1ResourceClaimList (Maybe V1ListMeta) -v1alpha1ResourceClaimListMetadataL f V1alpha1ResourceClaimList{..} = (\v1alpha1ResourceClaimListMetadata -> V1alpha1ResourceClaimList { v1alpha1ResourceClaimListMetadata, ..} ) <$> f v1alpha1ResourceClaimListMetadata -{-# INLINE v1alpha1ResourceClaimListMetadataL #-} - - - --- * V1alpha1ResourceClaimParametersReference - --- | 'v1alpha1ResourceClaimParametersReferenceApiGroup' Lens -v1alpha1ResourceClaimParametersReferenceApiGroupL :: Lens_' V1alpha1ResourceClaimParametersReference (Maybe Text) -v1alpha1ResourceClaimParametersReferenceApiGroupL f V1alpha1ResourceClaimParametersReference{..} = (\v1alpha1ResourceClaimParametersReferenceApiGroup -> V1alpha1ResourceClaimParametersReference { v1alpha1ResourceClaimParametersReferenceApiGroup, ..} ) <$> f v1alpha1ResourceClaimParametersReferenceApiGroup -{-# INLINE v1alpha1ResourceClaimParametersReferenceApiGroupL #-} - --- | 'v1alpha1ResourceClaimParametersReferenceKind' Lens -v1alpha1ResourceClaimParametersReferenceKindL :: Lens_' V1alpha1ResourceClaimParametersReference (Text) -v1alpha1ResourceClaimParametersReferenceKindL f V1alpha1ResourceClaimParametersReference{..} = (\v1alpha1ResourceClaimParametersReferenceKind -> V1alpha1ResourceClaimParametersReference { v1alpha1ResourceClaimParametersReferenceKind, ..} ) <$> f v1alpha1ResourceClaimParametersReferenceKind -{-# INLINE v1alpha1ResourceClaimParametersReferenceKindL #-} - --- | 'v1alpha1ResourceClaimParametersReferenceName' Lens -v1alpha1ResourceClaimParametersReferenceNameL :: Lens_' V1alpha1ResourceClaimParametersReference (Text) -v1alpha1ResourceClaimParametersReferenceNameL f V1alpha1ResourceClaimParametersReference{..} = (\v1alpha1ResourceClaimParametersReferenceName -> V1alpha1ResourceClaimParametersReference { v1alpha1ResourceClaimParametersReferenceName, ..} ) <$> f v1alpha1ResourceClaimParametersReferenceName -{-# INLINE v1alpha1ResourceClaimParametersReferenceNameL #-} - - - --- * V1alpha1ResourceClaimSchedulingStatus - --- | 'v1alpha1ResourceClaimSchedulingStatusName' Lens -v1alpha1ResourceClaimSchedulingStatusNameL :: Lens_' V1alpha1ResourceClaimSchedulingStatus (Maybe Text) -v1alpha1ResourceClaimSchedulingStatusNameL f V1alpha1ResourceClaimSchedulingStatus{..} = (\v1alpha1ResourceClaimSchedulingStatusName -> V1alpha1ResourceClaimSchedulingStatus { v1alpha1ResourceClaimSchedulingStatusName, ..} ) <$> f v1alpha1ResourceClaimSchedulingStatusName -{-# INLINE v1alpha1ResourceClaimSchedulingStatusNameL #-} - --- | 'v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes' Lens -v1alpha1ResourceClaimSchedulingStatusUnsuitableNodesL :: Lens_' V1alpha1ResourceClaimSchedulingStatus (Maybe [Text]) -v1alpha1ResourceClaimSchedulingStatusUnsuitableNodesL f V1alpha1ResourceClaimSchedulingStatus{..} = (\v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes -> V1alpha1ResourceClaimSchedulingStatus { v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes, ..} ) <$> f v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes -{-# INLINE v1alpha1ResourceClaimSchedulingStatusUnsuitableNodesL #-} - - - --- * V1alpha1ResourceClaimSpec - --- | 'v1alpha1ResourceClaimSpecAllocationMode' Lens -v1alpha1ResourceClaimSpecAllocationModeL :: Lens_' V1alpha1ResourceClaimSpec (Maybe Text) -v1alpha1ResourceClaimSpecAllocationModeL f V1alpha1ResourceClaimSpec{..} = (\v1alpha1ResourceClaimSpecAllocationMode -> V1alpha1ResourceClaimSpec { v1alpha1ResourceClaimSpecAllocationMode, ..} ) <$> f v1alpha1ResourceClaimSpecAllocationMode -{-# INLINE v1alpha1ResourceClaimSpecAllocationModeL #-} - --- | 'v1alpha1ResourceClaimSpecParametersRef' Lens -v1alpha1ResourceClaimSpecParametersRefL :: Lens_' V1alpha1ResourceClaimSpec (Maybe V1alpha1ResourceClaimParametersReference) -v1alpha1ResourceClaimSpecParametersRefL f V1alpha1ResourceClaimSpec{..} = (\v1alpha1ResourceClaimSpecParametersRef -> V1alpha1ResourceClaimSpec { v1alpha1ResourceClaimSpecParametersRef, ..} ) <$> f v1alpha1ResourceClaimSpecParametersRef -{-# INLINE v1alpha1ResourceClaimSpecParametersRefL #-} - --- | 'v1alpha1ResourceClaimSpecResourceClassName' Lens -v1alpha1ResourceClaimSpecResourceClassNameL :: Lens_' V1alpha1ResourceClaimSpec (Text) -v1alpha1ResourceClaimSpecResourceClassNameL f V1alpha1ResourceClaimSpec{..} = (\v1alpha1ResourceClaimSpecResourceClassName -> V1alpha1ResourceClaimSpec { v1alpha1ResourceClaimSpecResourceClassName, ..} ) <$> f v1alpha1ResourceClaimSpecResourceClassName -{-# INLINE v1alpha1ResourceClaimSpecResourceClassNameL #-} - - - --- * V1alpha1ResourceClaimStatus - --- | 'v1alpha1ResourceClaimStatusAllocation' Lens -v1alpha1ResourceClaimStatusAllocationL :: Lens_' V1alpha1ResourceClaimStatus (Maybe V1alpha1AllocationResult) -v1alpha1ResourceClaimStatusAllocationL f V1alpha1ResourceClaimStatus{..} = (\v1alpha1ResourceClaimStatusAllocation -> V1alpha1ResourceClaimStatus { v1alpha1ResourceClaimStatusAllocation, ..} ) <$> f v1alpha1ResourceClaimStatusAllocation -{-# INLINE v1alpha1ResourceClaimStatusAllocationL #-} - --- | 'v1alpha1ResourceClaimStatusDeallocationRequested' Lens -v1alpha1ResourceClaimStatusDeallocationRequestedL :: Lens_' V1alpha1ResourceClaimStatus (Maybe Bool) -v1alpha1ResourceClaimStatusDeallocationRequestedL f V1alpha1ResourceClaimStatus{..} = (\v1alpha1ResourceClaimStatusDeallocationRequested -> V1alpha1ResourceClaimStatus { v1alpha1ResourceClaimStatusDeallocationRequested, ..} ) <$> f v1alpha1ResourceClaimStatusDeallocationRequested -{-# INLINE v1alpha1ResourceClaimStatusDeallocationRequestedL #-} - --- | 'v1alpha1ResourceClaimStatusDriverName' Lens -v1alpha1ResourceClaimStatusDriverNameL :: Lens_' V1alpha1ResourceClaimStatus (Maybe Text) -v1alpha1ResourceClaimStatusDriverNameL f V1alpha1ResourceClaimStatus{..} = (\v1alpha1ResourceClaimStatusDriverName -> V1alpha1ResourceClaimStatus { v1alpha1ResourceClaimStatusDriverName, ..} ) <$> f v1alpha1ResourceClaimStatusDriverName -{-# INLINE v1alpha1ResourceClaimStatusDriverNameL #-} - --- | 'v1alpha1ResourceClaimStatusReservedFor' Lens -v1alpha1ResourceClaimStatusReservedForL :: Lens_' V1alpha1ResourceClaimStatus (Maybe [V1alpha1ResourceClaimConsumerReference]) -v1alpha1ResourceClaimStatusReservedForL f V1alpha1ResourceClaimStatus{..} = (\v1alpha1ResourceClaimStatusReservedFor -> V1alpha1ResourceClaimStatus { v1alpha1ResourceClaimStatusReservedFor, ..} ) <$> f v1alpha1ResourceClaimStatusReservedFor -{-# INLINE v1alpha1ResourceClaimStatusReservedForL #-} - - - --- * V1alpha1ResourceClaimTemplate - --- | 'v1alpha1ResourceClaimTemplateApiVersion' Lens -v1alpha1ResourceClaimTemplateApiVersionL :: Lens_' V1alpha1ResourceClaimTemplate (Maybe Text) -v1alpha1ResourceClaimTemplateApiVersionL f V1alpha1ResourceClaimTemplate{..} = (\v1alpha1ResourceClaimTemplateApiVersion -> V1alpha1ResourceClaimTemplate { v1alpha1ResourceClaimTemplateApiVersion, ..} ) <$> f v1alpha1ResourceClaimTemplateApiVersion -{-# INLINE v1alpha1ResourceClaimTemplateApiVersionL #-} - --- | 'v1alpha1ResourceClaimTemplateKind' Lens -v1alpha1ResourceClaimTemplateKindL :: Lens_' V1alpha1ResourceClaimTemplate (Maybe Text) -v1alpha1ResourceClaimTemplateKindL f V1alpha1ResourceClaimTemplate{..} = (\v1alpha1ResourceClaimTemplateKind -> V1alpha1ResourceClaimTemplate { v1alpha1ResourceClaimTemplateKind, ..} ) <$> f v1alpha1ResourceClaimTemplateKind -{-# INLINE v1alpha1ResourceClaimTemplateKindL #-} - --- | 'v1alpha1ResourceClaimTemplateMetadata' Lens -v1alpha1ResourceClaimTemplateMetadataL :: Lens_' V1alpha1ResourceClaimTemplate (Maybe V1ObjectMeta) -v1alpha1ResourceClaimTemplateMetadataL f V1alpha1ResourceClaimTemplate{..} = (\v1alpha1ResourceClaimTemplateMetadata -> V1alpha1ResourceClaimTemplate { v1alpha1ResourceClaimTemplateMetadata, ..} ) <$> f v1alpha1ResourceClaimTemplateMetadata -{-# INLINE v1alpha1ResourceClaimTemplateMetadataL #-} - --- | 'v1alpha1ResourceClaimTemplateSpec' Lens -v1alpha1ResourceClaimTemplateSpecL :: Lens_' V1alpha1ResourceClaimTemplate (V1alpha1ResourceClaimTemplateSpec) -v1alpha1ResourceClaimTemplateSpecL f V1alpha1ResourceClaimTemplate{..} = (\v1alpha1ResourceClaimTemplateSpec -> V1alpha1ResourceClaimTemplate { v1alpha1ResourceClaimTemplateSpec, ..} ) <$> f v1alpha1ResourceClaimTemplateSpec -{-# INLINE v1alpha1ResourceClaimTemplateSpecL #-} - - - --- * V1alpha1ResourceClaimTemplateList - --- | 'v1alpha1ResourceClaimTemplateListApiVersion' Lens -v1alpha1ResourceClaimTemplateListApiVersionL :: Lens_' V1alpha1ResourceClaimTemplateList (Maybe Text) -v1alpha1ResourceClaimTemplateListApiVersionL f V1alpha1ResourceClaimTemplateList{..} = (\v1alpha1ResourceClaimTemplateListApiVersion -> V1alpha1ResourceClaimTemplateList { v1alpha1ResourceClaimTemplateListApiVersion, ..} ) <$> f v1alpha1ResourceClaimTemplateListApiVersion -{-# INLINE v1alpha1ResourceClaimTemplateListApiVersionL #-} - --- | 'v1alpha1ResourceClaimTemplateListItems' Lens -v1alpha1ResourceClaimTemplateListItemsL :: Lens_' V1alpha1ResourceClaimTemplateList ([V1alpha1ResourceClaimTemplate]) -v1alpha1ResourceClaimTemplateListItemsL f V1alpha1ResourceClaimTemplateList{..} = (\v1alpha1ResourceClaimTemplateListItems -> V1alpha1ResourceClaimTemplateList { v1alpha1ResourceClaimTemplateListItems, ..} ) <$> f v1alpha1ResourceClaimTemplateListItems -{-# INLINE v1alpha1ResourceClaimTemplateListItemsL #-} - --- | 'v1alpha1ResourceClaimTemplateListKind' Lens -v1alpha1ResourceClaimTemplateListKindL :: Lens_' V1alpha1ResourceClaimTemplateList (Maybe Text) -v1alpha1ResourceClaimTemplateListKindL f V1alpha1ResourceClaimTemplateList{..} = (\v1alpha1ResourceClaimTemplateListKind -> V1alpha1ResourceClaimTemplateList { v1alpha1ResourceClaimTemplateListKind, ..} ) <$> f v1alpha1ResourceClaimTemplateListKind -{-# INLINE v1alpha1ResourceClaimTemplateListKindL #-} - --- | 'v1alpha1ResourceClaimTemplateListMetadata' Lens -v1alpha1ResourceClaimTemplateListMetadataL :: Lens_' V1alpha1ResourceClaimTemplateList (Maybe V1ListMeta) -v1alpha1ResourceClaimTemplateListMetadataL f V1alpha1ResourceClaimTemplateList{..} = (\v1alpha1ResourceClaimTemplateListMetadata -> V1alpha1ResourceClaimTemplateList { v1alpha1ResourceClaimTemplateListMetadata, ..} ) <$> f v1alpha1ResourceClaimTemplateListMetadata -{-# INLINE v1alpha1ResourceClaimTemplateListMetadataL #-} - - - --- * V1alpha1ResourceClaimTemplateSpec - --- | 'v1alpha1ResourceClaimTemplateSpecMetadata' Lens -v1alpha1ResourceClaimTemplateSpecMetadataL :: Lens_' V1alpha1ResourceClaimTemplateSpec (Maybe V1ObjectMeta) -v1alpha1ResourceClaimTemplateSpecMetadataL f V1alpha1ResourceClaimTemplateSpec{..} = (\v1alpha1ResourceClaimTemplateSpecMetadata -> V1alpha1ResourceClaimTemplateSpec { v1alpha1ResourceClaimTemplateSpecMetadata, ..} ) <$> f v1alpha1ResourceClaimTemplateSpecMetadata -{-# INLINE v1alpha1ResourceClaimTemplateSpecMetadataL #-} - --- | 'v1alpha1ResourceClaimTemplateSpecSpec' Lens -v1alpha1ResourceClaimTemplateSpecSpecL :: Lens_' V1alpha1ResourceClaimTemplateSpec (V1alpha1ResourceClaimSpec) -v1alpha1ResourceClaimTemplateSpecSpecL f V1alpha1ResourceClaimTemplateSpec{..} = (\v1alpha1ResourceClaimTemplateSpecSpec -> V1alpha1ResourceClaimTemplateSpec { v1alpha1ResourceClaimTemplateSpecSpec, ..} ) <$> f v1alpha1ResourceClaimTemplateSpecSpec -{-# INLINE v1alpha1ResourceClaimTemplateSpecSpecL #-} - - - --- * V1alpha1ResourceClass - --- | 'v1alpha1ResourceClassApiVersion' Lens -v1alpha1ResourceClassApiVersionL :: Lens_' V1alpha1ResourceClass (Maybe Text) -v1alpha1ResourceClassApiVersionL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassApiVersion -> V1alpha1ResourceClass { v1alpha1ResourceClassApiVersion, ..} ) <$> f v1alpha1ResourceClassApiVersion -{-# INLINE v1alpha1ResourceClassApiVersionL #-} - --- | 'v1alpha1ResourceClassDriverName' Lens -v1alpha1ResourceClassDriverNameL :: Lens_' V1alpha1ResourceClass (Text) -v1alpha1ResourceClassDriverNameL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassDriverName -> V1alpha1ResourceClass { v1alpha1ResourceClassDriverName, ..} ) <$> f v1alpha1ResourceClassDriverName -{-# INLINE v1alpha1ResourceClassDriverNameL #-} - --- | 'v1alpha1ResourceClassKind' Lens -v1alpha1ResourceClassKindL :: Lens_' V1alpha1ResourceClass (Maybe Text) -v1alpha1ResourceClassKindL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassKind -> V1alpha1ResourceClass { v1alpha1ResourceClassKind, ..} ) <$> f v1alpha1ResourceClassKind -{-# INLINE v1alpha1ResourceClassKindL #-} - --- | 'v1alpha1ResourceClassMetadata' Lens -v1alpha1ResourceClassMetadataL :: Lens_' V1alpha1ResourceClass (Maybe V1ObjectMeta) -v1alpha1ResourceClassMetadataL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassMetadata -> V1alpha1ResourceClass { v1alpha1ResourceClassMetadata, ..} ) <$> f v1alpha1ResourceClassMetadata -{-# INLINE v1alpha1ResourceClassMetadataL #-} - --- | 'v1alpha1ResourceClassParametersRef' Lens -v1alpha1ResourceClassParametersRefL :: Lens_' V1alpha1ResourceClass (Maybe V1alpha1ResourceClassParametersReference) -v1alpha1ResourceClassParametersRefL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassParametersRef -> V1alpha1ResourceClass { v1alpha1ResourceClassParametersRef, ..} ) <$> f v1alpha1ResourceClassParametersRef -{-# INLINE v1alpha1ResourceClassParametersRefL #-} - --- | 'v1alpha1ResourceClassSuitableNodes' Lens -v1alpha1ResourceClassSuitableNodesL :: Lens_' V1alpha1ResourceClass (Maybe V1NodeSelector) -v1alpha1ResourceClassSuitableNodesL f V1alpha1ResourceClass{..} = (\v1alpha1ResourceClassSuitableNodes -> V1alpha1ResourceClass { v1alpha1ResourceClassSuitableNodes, ..} ) <$> f v1alpha1ResourceClassSuitableNodes -{-# INLINE v1alpha1ResourceClassSuitableNodesL #-} - - - --- * V1alpha1ResourceClassList - --- | 'v1alpha1ResourceClassListApiVersion' Lens -v1alpha1ResourceClassListApiVersionL :: Lens_' V1alpha1ResourceClassList (Maybe Text) -v1alpha1ResourceClassListApiVersionL f V1alpha1ResourceClassList{..} = (\v1alpha1ResourceClassListApiVersion -> V1alpha1ResourceClassList { v1alpha1ResourceClassListApiVersion, ..} ) <$> f v1alpha1ResourceClassListApiVersion -{-# INLINE v1alpha1ResourceClassListApiVersionL #-} - --- | 'v1alpha1ResourceClassListItems' Lens -v1alpha1ResourceClassListItemsL :: Lens_' V1alpha1ResourceClassList ([V1alpha1ResourceClass]) -v1alpha1ResourceClassListItemsL f V1alpha1ResourceClassList{..} = (\v1alpha1ResourceClassListItems -> V1alpha1ResourceClassList { v1alpha1ResourceClassListItems, ..} ) <$> f v1alpha1ResourceClassListItems -{-# INLINE v1alpha1ResourceClassListItemsL #-} - --- | 'v1alpha1ResourceClassListKind' Lens -v1alpha1ResourceClassListKindL :: Lens_' V1alpha1ResourceClassList (Maybe Text) -v1alpha1ResourceClassListKindL f V1alpha1ResourceClassList{..} = (\v1alpha1ResourceClassListKind -> V1alpha1ResourceClassList { v1alpha1ResourceClassListKind, ..} ) <$> f v1alpha1ResourceClassListKind -{-# INLINE v1alpha1ResourceClassListKindL #-} - --- | 'v1alpha1ResourceClassListMetadata' Lens -v1alpha1ResourceClassListMetadataL :: Lens_' V1alpha1ResourceClassList (Maybe V1ListMeta) -v1alpha1ResourceClassListMetadataL f V1alpha1ResourceClassList{..} = (\v1alpha1ResourceClassListMetadata -> V1alpha1ResourceClassList { v1alpha1ResourceClassListMetadata, ..} ) <$> f v1alpha1ResourceClassListMetadata -{-# INLINE v1alpha1ResourceClassListMetadataL #-} - - - --- * V1alpha1ResourceClassParametersReference - --- | 'v1alpha1ResourceClassParametersReferenceApiGroup' Lens -v1alpha1ResourceClassParametersReferenceApiGroupL :: Lens_' V1alpha1ResourceClassParametersReference (Maybe Text) -v1alpha1ResourceClassParametersReferenceApiGroupL f V1alpha1ResourceClassParametersReference{..} = (\v1alpha1ResourceClassParametersReferenceApiGroup -> V1alpha1ResourceClassParametersReference { v1alpha1ResourceClassParametersReferenceApiGroup, ..} ) <$> f v1alpha1ResourceClassParametersReferenceApiGroup -{-# INLINE v1alpha1ResourceClassParametersReferenceApiGroupL #-} - --- | 'v1alpha1ResourceClassParametersReferenceKind' Lens -v1alpha1ResourceClassParametersReferenceKindL :: Lens_' V1alpha1ResourceClassParametersReference (Text) -v1alpha1ResourceClassParametersReferenceKindL f V1alpha1ResourceClassParametersReference{..} = (\v1alpha1ResourceClassParametersReferenceKind -> V1alpha1ResourceClassParametersReference { v1alpha1ResourceClassParametersReferenceKind, ..} ) <$> f v1alpha1ResourceClassParametersReferenceKind -{-# INLINE v1alpha1ResourceClassParametersReferenceKindL #-} - --- | 'v1alpha1ResourceClassParametersReferenceName' Lens -v1alpha1ResourceClassParametersReferenceNameL :: Lens_' V1alpha1ResourceClassParametersReference (Text) -v1alpha1ResourceClassParametersReferenceNameL f V1alpha1ResourceClassParametersReference{..} = (\v1alpha1ResourceClassParametersReferenceName -> V1alpha1ResourceClassParametersReference { v1alpha1ResourceClassParametersReferenceName, ..} ) <$> f v1alpha1ResourceClassParametersReferenceName -{-# INLINE v1alpha1ResourceClassParametersReferenceNameL #-} - --- | 'v1alpha1ResourceClassParametersReferenceNamespace' Lens -v1alpha1ResourceClassParametersReferenceNamespaceL :: Lens_' V1alpha1ResourceClassParametersReference (Maybe Text) -v1alpha1ResourceClassParametersReferenceNamespaceL f V1alpha1ResourceClassParametersReference{..} = (\v1alpha1ResourceClassParametersReferenceNamespace -> V1alpha1ResourceClassParametersReference { v1alpha1ResourceClassParametersReferenceNamespace, ..} ) <$> f v1alpha1ResourceClassParametersReferenceNamespace -{-# INLINE v1alpha1ResourceClassParametersReferenceNamespaceL #-} - - - --- * V1alpha1SelfSubjectReview - --- | 'v1alpha1SelfSubjectReviewApiVersion' Lens -v1alpha1SelfSubjectReviewApiVersionL :: Lens_' V1alpha1SelfSubjectReview (Maybe Text) -v1alpha1SelfSubjectReviewApiVersionL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewApiVersion -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewApiVersion, ..} ) <$> f v1alpha1SelfSubjectReviewApiVersion -{-# INLINE v1alpha1SelfSubjectReviewApiVersionL #-} - --- | 'v1alpha1SelfSubjectReviewKind' Lens -v1alpha1SelfSubjectReviewKindL :: Lens_' V1alpha1SelfSubjectReview (Maybe Text) -v1alpha1SelfSubjectReviewKindL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewKind -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewKind, ..} ) <$> f v1alpha1SelfSubjectReviewKind -{-# INLINE v1alpha1SelfSubjectReviewKindL #-} - --- | 'v1alpha1SelfSubjectReviewMetadata' Lens -v1alpha1SelfSubjectReviewMetadataL :: Lens_' V1alpha1SelfSubjectReview (Maybe V1ObjectMeta) -v1alpha1SelfSubjectReviewMetadataL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewMetadata -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewMetadata, ..} ) <$> f v1alpha1SelfSubjectReviewMetadata -{-# INLINE v1alpha1SelfSubjectReviewMetadataL #-} - --- | 'v1alpha1SelfSubjectReviewStatus' Lens -v1alpha1SelfSubjectReviewStatusL :: Lens_' V1alpha1SelfSubjectReview (Maybe V1alpha1SelfSubjectReviewStatus) -v1alpha1SelfSubjectReviewStatusL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewStatus -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewStatus, ..} ) <$> f v1alpha1SelfSubjectReviewStatus -{-# INLINE v1alpha1SelfSubjectReviewStatusL #-} - - - --- * V1alpha1SelfSubjectReviewStatus - --- | 'v1alpha1SelfSubjectReviewStatusUserInfo' Lens -v1alpha1SelfSubjectReviewStatusUserInfoL :: Lens_' V1alpha1SelfSubjectReviewStatus (Maybe V1UserInfo) -v1alpha1SelfSubjectReviewStatusUserInfoL f V1alpha1SelfSubjectReviewStatus{..} = (\v1alpha1SelfSubjectReviewStatusUserInfo -> V1alpha1SelfSubjectReviewStatus { v1alpha1SelfSubjectReviewStatusUserInfo, ..} ) <$> f v1alpha1SelfSubjectReviewStatusUserInfo -{-# INLINE v1alpha1SelfSubjectReviewStatusUserInfoL #-} - - - --- * V1alpha1ServerStorageVersion - --- | 'v1alpha1ServerStorageVersionApiServerId' Lens -v1alpha1ServerStorageVersionApiServerIdL :: Lens_' V1alpha1ServerStorageVersion (Maybe Text) -v1alpha1ServerStorageVersionApiServerIdL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionApiServerId -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionApiServerId, ..} ) <$> f v1alpha1ServerStorageVersionApiServerId -{-# INLINE v1alpha1ServerStorageVersionApiServerIdL #-} - --- | 'v1alpha1ServerStorageVersionDecodableVersions' Lens -v1alpha1ServerStorageVersionDecodableVersionsL :: Lens_' V1alpha1ServerStorageVersion (Maybe [Text]) -v1alpha1ServerStorageVersionDecodableVersionsL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionDecodableVersions -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionDecodableVersions, ..} ) <$> f v1alpha1ServerStorageVersionDecodableVersions -{-# INLINE v1alpha1ServerStorageVersionDecodableVersionsL #-} - --- | 'v1alpha1ServerStorageVersionEncodingVersion' Lens -v1alpha1ServerStorageVersionEncodingVersionL :: Lens_' V1alpha1ServerStorageVersion (Maybe Text) -v1alpha1ServerStorageVersionEncodingVersionL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionEncodingVersion -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionEncodingVersion, ..} ) <$> f v1alpha1ServerStorageVersionEncodingVersion -{-# INLINE v1alpha1ServerStorageVersionEncodingVersionL #-} - - - --- * V1alpha1StorageVersion - --- | 'v1alpha1StorageVersionApiVersion' Lens -v1alpha1StorageVersionApiVersionL :: Lens_' V1alpha1StorageVersion (Maybe Text) -v1alpha1StorageVersionApiVersionL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionApiVersion -> V1alpha1StorageVersion { v1alpha1StorageVersionApiVersion, ..} ) <$> f v1alpha1StorageVersionApiVersion -{-# INLINE v1alpha1StorageVersionApiVersionL #-} - --- | 'v1alpha1StorageVersionKind' Lens -v1alpha1StorageVersionKindL :: Lens_' V1alpha1StorageVersion (Maybe Text) -v1alpha1StorageVersionKindL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionKind -> V1alpha1StorageVersion { v1alpha1StorageVersionKind, ..} ) <$> f v1alpha1StorageVersionKind -{-# INLINE v1alpha1StorageVersionKindL #-} - --- | 'v1alpha1StorageVersionMetadata' Lens -v1alpha1StorageVersionMetadataL :: Lens_' V1alpha1StorageVersion (Maybe V1ObjectMeta) -v1alpha1StorageVersionMetadataL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionMetadata -> V1alpha1StorageVersion { v1alpha1StorageVersionMetadata, ..} ) <$> f v1alpha1StorageVersionMetadata -{-# INLINE v1alpha1StorageVersionMetadataL #-} - --- | 'v1alpha1StorageVersionSpec' Lens -v1alpha1StorageVersionSpecL :: Lens_' V1alpha1StorageVersion (A.Value) -v1alpha1StorageVersionSpecL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionSpec -> V1alpha1StorageVersion { v1alpha1StorageVersionSpec, ..} ) <$> f v1alpha1StorageVersionSpec -{-# INLINE v1alpha1StorageVersionSpecL #-} - --- | 'v1alpha1StorageVersionStatus' Lens -v1alpha1StorageVersionStatusL :: Lens_' V1alpha1StorageVersion (V1alpha1StorageVersionStatus) -v1alpha1StorageVersionStatusL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionStatus -> V1alpha1StorageVersion { v1alpha1StorageVersionStatus, ..} ) <$> f v1alpha1StorageVersionStatus -{-# INLINE v1alpha1StorageVersionStatusL #-} - - - --- * V1alpha1StorageVersionCondition - --- | 'v1alpha1StorageVersionConditionLastTransitionTime' Lens -v1alpha1StorageVersionConditionLastTransitionTimeL :: Lens_' V1alpha1StorageVersionCondition (Maybe DateTime) -v1alpha1StorageVersionConditionLastTransitionTimeL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionLastTransitionTime -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionLastTransitionTime, ..} ) <$> f v1alpha1StorageVersionConditionLastTransitionTime -{-# INLINE v1alpha1StorageVersionConditionLastTransitionTimeL #-} - --- | 'v1alpha1StorageVersionConditionMessage' Lens -v1alpha1StorageVersionConditionMessageL :: Lens_' V1alpha1StorageVersionCondition (Maybe Text) -v1alpha1StorageVersionConditionMessageL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionMessage -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionMessage, ..} ) <$> f v1alpha1StorageVersionConditionMessage -{-# INLINE v1alpha1StorageVersionConditionMessageL #-} - --- | 'v1alpha1StorageVersionConditionObservedGeneration' Lens -v1alpha1StorageVersionConditionObservedGenerationL :: Lens_' V1alpha1StorageVersionCondition (Maybe Integer) -v1alpha1StorageVersionConditionObservedGenerationL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionObservedGeneration -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionObservedGeneration, ..} ) <$> f v1alpha1StorageVersionConditionObservedGeneration -{-# INLINE v1alpha1StorageVersionConditionObservedGenerationL #-} - --- | 'v1alpha1StorageVersionConditionReason' Lens -v1alpha1StorageVersionConditionReasonL :: Lens_' V1alpha1StorageVersionCondition (Text) -v1alpha1StorageVersionConditionReasonL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionReason -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionReason, ..} ) <$> f v1alpha1StorageVersionConditionReason -{-# INLINE v1alpha1StorageVersionConditionReasonL #-} - --- | 'v1alpha1StorageVersionConditionStatus' Lens -v1alpha1StorageVersionConditionStatusL :: Lens_' V1alpha1StorageVersionCondition (Text) -v1alpha1StorageVersionConditionStatusL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionStatus -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionStatus, ..} ) <$> f v1alpha1StorageVersionConditionStatus -{-# INLINE v1alpha1StorageVersionConditionStatusL #-} - --- | 'v1alpha1StorageVersionConditionType' Lens -v1alpha1StorageVersionConditionTypeL :: Lens_' V1alpha1StorageVersionCondition (Text) -v1alpha1StorageVersionConditionTypeL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionType -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionType, ..} ) <$> f v1alpha1StorageVersionConditionType -{-# INLINE v1alpha1StorageVersionConditionTypeL #-} - - - --- * V1alpha1StorageVersionList - --- | 'v1alpha1StorageVersionListApiVersion' Lens -v1alpha1StorageVersionListApiVersionL :: Lens_' V1alpha1StorageVersionList (Maybe Text) -v1alpha1StorageVersionListApiVersionL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListApiVersion -> V1alpha1StorageVersionList { v1alpha1StorageVersionListApiVersion, ..} ) <$> f v1alpha1StorageVersionListApiVersion -{-# INLINE v1alpha1StorageVersionListApiVersionL #-} - --- | 'v1alpha1StorageVersionListItems' Lens -v1alpha1StorageVersionListItemsL :: Lens_' V1alpha1StorageVersionList ([V1alpha1StorageVersion]) -v1alpha1StorageVersionListItemsL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListItems -> V1alpha1StorageVersionList { v1alpha1StorageVersionListItems, ..} ) <$> f v1alpha1StorageVersionListItems -{-# INLINE v1alpha1StorageVersionListItemsL #-} - --- | 'v1alpha1StorageVersionListKind' Lens -v1alpha1StorageVersionListKindL :: Lens_' V1alpha1StorageVersionList (Maybe Text) -v1alpha1StorageVersionListKindL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListKind -> V1alpha1StorageVersionList { v1alpha1StorageVersionListKind, ..} ) <$> f v1alpha1StorageVersionListKind -{-# INLINE v1alpha1StorageVersionListKindL #-} - --- | 'v1alpha1StorageVersionListMetadata' Lens -v1alpha1StorageVersionListMetadataL :: Lens_' V1alpha1StorageVersionList (Maybe V1ListMeta) -v1alpha1StorageVersionListMetadataL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListMetadata -> V1alpha1StorageVersionList { v1alpha1StorageVersionListMetadata, ..} ) <$> f v1alpha1StorageVersionListMetadata -{-# INLINE v1alpha1StorageVersionListMetadataL #-} - - - --- * V1alpha1StorageVersionStatus - --- | 'v1alpha1StorageVersionStatusCommonEncodingVersion' Lens -v1alpha1StorageVersionStatusCommonEncodingVersionL :: Lens_' V1alpha1StorageVersionStatus (Maybe Text) -v1alpha1StorageVersionStatusCommonEncodingVersionL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusCommonEncodingVersion -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusCommonEncodingVersion, ..} ) <$> f v1alpha1StorageVersionStatusCommonEncodingVersion -{-# INLINE v1alpha1StorageVersionStatusCommonEncodingVersionL #-} - --- | 'v1alpha1StorageVersionStatusConditions' Lens -v1alpha1StorageVersionStatusConditionsL :: Lens_' V1alpha1StorageVersionStatus (Maybe [V1alpha1StorageVersionCondition]) -v1alpha1StorageVersionStatusConditionsL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusConditions -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusConditions, ..} ) <$> f v1alpha1StorageVersionStatusConditions -{-# INLINE v1alpha1StorageVersionStatusConditionsL #-} - --- | 'v1alpha1StorageVersionStatusStorageVersions' Lens -v1alpha1StorageVersionStatusStorageVersionsL :: Lens_' V1alpha1StorageVersionStatus (Maybe [V1alpha1ServerStorageVersion]) -v1alpha1StorageVersionStatusStorageVersionsL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusStorageVersions -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusStorageVersions, ..} ) <$> f v1alpha1StorageVersionStatusStorageVersions -{-# INLINE v1alpha1StorageVersionStatusStorageVersionsL #-} - - - --- * V1alpha1ValidatingAdmissionPolicy - --- | 'v1alpha1ValidatingAdmissionPolicyApiVersion' Lens -v1alpha1ValidatingAdmissionPolicyApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe Text) -v1alpha1ValidatingAdmissionPolicyApiVersionL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyApiVersion -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyApiVersion -{-# INLINE v1alpha1ValidatingAdmissionPolicyApiVersionL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyKind' Lens -v1alpha1ValidatingAdmissionPolicyKindL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe Text) -v1alpha1ValidatingAdmissionPolicyKindL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyKind -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyKind -{-# INLINE v1alpha1ValidatingAdmissionPolicyKindL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyMetadata' Lens -v1alpha1ValidatingAdmissionPolicyMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe V1ObjectMeta) -v1alpha1ValidatingAdmissionPolicyMetadataL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyMetadata -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyMetadata -{-# INLINE v1alpha1ValidatingAdmissionPolicyMetadataL #-} - --- | 'v1alpha1ValidatingAdmissionPolicySpec' Lens -v1alpha1ValidatingAdmissionPolicySpecL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe V1alpha1ValidatingAdmissionPolicySpec) -v1alpha1ValidatingAdmissionPolicySpecL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicySpec -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicySpec, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpec -{-# INLINE v1alpha1ValidatingAdmissionPolicySpecL #-} - - - --- * V1alpha1ValidatingAdmissionPolicyBinding - --- | 'v1alpha1ValidatingAdmissionPolicyBindingApiVersion' Lens -v1alpha1ValidatingAdmissionPolicyBindingApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe Text) -v1alpha1ValidatingAdmissionPolicyBindingApiVersionL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingApiVersion -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingApiVersion -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingApiVersionL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingKind' Lens -v1alpha1ValidatingAdmissionPolicyBindingKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe Text) -v1alpha1ValidatingAdmissionPolicyBindingKindL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingKind -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingKind -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingKindL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingMetadata' Lens -v1alpha1ValidatingAdmissionPolicyBindingMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe V1ObjectMeta) -v1alpha1ValidatingAdmissionPolicyBindingMetadataL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingMetadata -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingMetadata -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingMetadataL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingSpec' Lens -v1alpha1ValidatingAdmissionPolicyBindingSpecL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe V1alpha1ValidatingAdmissionPolicyBindingSpec) -v1alpha1ValidatingAdmissionPolicyBindingSpecL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpec -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingSpec, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpec -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecL #-} - - - --- * V1alpha1ValidatingAdmissionPolicyBindingList - --- | 'v1alpha1ValidatingAdmissionPolicyBindingListApiVersion' Lens -v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe Text) -v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListApiVersion -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListApiVersion -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingListItems' Lens -v1alpha1ValidatingAdmissionPolicyBindingListItemsL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe [V1alpha1ValidatingAdmissionPolicyBinding]) -v1alpha1ValidatingAdmissionPolicyBindingListItemsL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListItems -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListItems, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListItems -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListItemsL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingListKind' Lens -v1alpha1ValidatingAdmissionPolicyBindingListKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe Text) -v1alpha1ValidatingAdmissionPolicyBindingListKindL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListKind -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListKind -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListKindL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingListMetadata' Lens -v1alpha1ValidatingAdmissionPolicyBindingListMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe V1ListMeta) -v1alpha1ValidatingAdmissionPolicyBindingListMetadataL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListMetadata -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListMetadata -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListMetadataL #-} - - - --- * V1alpha1ValidatingAdmissionPolicyBindingSpec - --- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources' Lens -v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe V1alpha1MatchResources) -v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef' Lens -v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe V1alpha1ParamRef) -v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName' Lens -v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe Text) -v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName -{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL #-} - - - --- * V1alpha1ValidatingAdmissionPolicyList - --- | 'v1alpha1ValidatingAdmissionPolicyListApiVersion' Lens -v1alpha1ValidatingAdmissionPolicyListApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe Text) -v1alpha1ValidatingAdmissionPolicyListApiVersionL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListApiVersion -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListApiVersion -{-# INLINE v1alpha1ValidatingAdmissionPolicyListApiVersionL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyListItems' Lens -v1alpha1ValidatingAdmissionPolicyListItemsL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe [V1alpha1ValidatingAdmissionPolicy]) -v1alpha1ValidatingAdmissionPolicyListItemsL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListItems -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListItems, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListItems -{-# INLINE v1alpha1ValidatingAdmissionPolicyListItemsL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyListKind' Lens -v1alpha1ValidatingAdmissionPolicyListKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe Text) -v1alpha1ValidatingAdmissionPolicyListKindL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListKind -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListKind -{-# INLINE v1alpha1ValidatingAdmissionPolicyListKindL #-} - --- | 'v1alpha1ValidatingAdmissionPolicyListMetadata' Lens -v1alpha1ValidatingAdmissionPolicyListMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe V1ListMeta) -v1alpha1ValidatingAdmissionPolicyListMetadataL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListMetadata -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListMetadata -{-# INLINE v1alpha1ValidatingAdmissionPolicyListMetadataL #-} - - - --- * V1alpha1ValidatingAdmissionPolicySpec - --- | 'v1alpha1ValidatingAdmissionPolicySpecFailurePolicy' Lens -v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe Text) -v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecFailurePolicy -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecFailurePolicy, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecFailurePolicy -{-# INLINE v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL #-} - --- | 'v1alpha1ValidatingAdmissionPolicySpecMatchConstraints' Lens -v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe V1alpha1MatchResources) -v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecMatchConstraints -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecMatchConstraints, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecMatchConstraints -{-# INLINE v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL #-} - --- | 'v1alpha1ValidatingAdmissionPolicySpecParamKind' Lens -v1alpha1ValidatingAdmissionPolicySpecParamKindL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe V1alpha1ParamKind) -v1alpha1ValidatingAdmissionPolicySpecParamKindL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecParamKind -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecParamKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecParamKind -{-# INLINE v1alpha1ValidatingAdmissionPolicySpecParamKindL #-} - --- | 'v1alpha1ValidatingAdmissionPolicySpecValidations' Lens -v1alpha1ValidatingAdmissionPolicySpecValidationsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec ([V1alpha1Validation]) -v1alpha1ValidatingAdmissionPolicySpecValidationsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecValidations -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecValidations, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecValidations -{-# INLINE v1alpha1ValidatingAdmissionPolicySpecValidationsL #-} - - - --- * V1alpha1Validation - --- | 'v1alpha1ValidationExpression' Lens -v1alpha1ValidationExpressionL :: Lens_' V1alpha1Validation (Text) -v1alpha1ValidationExpressionL f V1alpha1Validation{..} = (\v1alpha1ValidationExpression -> V1alpha1Validation { v1alpha1ValidationExpression, ..} ) <$> f v1alpha1ValidationExpression -{-# INLINE v1alpha1ValidationExpressionL #-} - --- | 'v1alpha1ValidationMessage' Lens -v1alpha1ValidationMessageL :: Lens_' V1alpha1Validation (Maybe Text) -v1alpha1ValidationMessageL f V1alpha1Validation{..} = (\v1alpha1ValidationMessage -> V1alpha1Validation { v1alpha1ValidationMessage, ..} ) <$> f v1alpha1ValidationMessage -{-# INLINE v1alpha1ValidationMessageL #-} - --- | 'v1alpha1ValidationReason' Lens -v1alpha1ValidationReasonL :: Lens_' V1alpha1Validation (Maybe Text) -v1alpha1ValidationReasonL f V1alpha1Validation{..} = (\v1alpha1ValidationReason -> V1alpha1Validation { v1alpha1ValidationReason, ..} ) <$> f v1alpha1ValidationReason -{-# INLINE v1alpha1ValidationReasonL #-} - - - --- * V1beta1CSIStorageCapacity - --- | 'v1beta1CSIStorageCapacityApiVersion' Lens -v1beta1CSIStorageCapacityApiVersionL :: Lens_' V1beta1CSIStorageCapacity (Maybe Text) -v1beta1CSIStorageCapacityApiVersionL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityApiVersion -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityApiVersion, ..} ) <$> f v1beta1CSIStorageCapacityApiVersion -{-# INLINE v1beta1CSIStorageCapacityApiVersionL #-} - --- | 'v1beta1CSIStorageCapacityCapacity' Lens -v1beta1CSIStorageCapacityCapacityL :: Lens_' V1beta1CSIStorageCapacity (Maybe Quantity) -v1beta1CSIStorageCapacityCapacityL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityCapacity -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityCapacity, ..} ) <$> f v1beta1CSIStorageCapacityCapacity -{-# INLINE v1beta1CSIStorageCapacityCapacityL #-} - --- | 'v1beta1CSIStorageCapacityKind' Lens -v1beta1CSIStorageCapacityKindL :: Lens_' V1beta1CSIStorageCapacity (Maybe Text) -v1beta1CSIStorageCapacityKindL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityKind -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityKind, ..} ) <$> f v1beta1CSIStorageCapacityKind -{-# INLINE v1beta1CSIStorageCapacityKindL #-} - --- | 'v1beta1CSIStorageCapacityMaximumVolumeSize' Lens -v1beta1CSIStorageCapacityMaximumVolumeSizeL :: Lens_' V1beta1CSIStorageCapacity (Maybe Quantity) -v1beta1CSIStorageCapacityMaximumVolumeSizeL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityMaximumVolumeSize -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityMaximumVolumeSize, ..} ) <$> f v1beta1CSIStorageCapacityMaximumVolumeSize -{-# INLINE v1beta1CSIStorageCapacityMaximumVolumeSizeL #-} - --- | 'v1beta1CSIStorageCapacityMetadata' Lens -v1beta1CSIStorageCapacityMetadataL :: Lens_' V1beta1CSIStorageCapacity (Maybe V1ObjectMeta) -v1beta1CSIStorageCapacityMetadataL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityMetadata -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityMetadata, ..} ) <$> f v1beta1CSIStorageCapacityMetadata -{-# INLINE v1beta1CSIStorageCapacityMetadataL #-} - --- | 'v1beta1CSIStorageCapacityNodeTopology' Lens -v1beta1CSIStorageCapacityNodeTopologyL :: Lens_' V1beta1CSIStorageCapacity (Maybe V1LabelSelector) -v1beta1CSIStorageCapacityNodeTopologyL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityNodeTopology -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityNodeTopology, ..} ) <$> f v1beta1CSIStorageCapacityNodeTopology -{-# INLINE v1beta1CSIStorageCapacityNodeTopologyL #-} - --- | 'v1beta1CSIStorageCapacityStorageClassName' Lens -v1beta1CSIStorageCapacityStorageClassNameL :: Lens_' V1beta1CSIStorageCapacity (Text) -v1beta1CSIStorageCapacityStorageClassNameL f V1beta1CSIStorageCapacity{..} = (\v1beta1CSIStorageCapacityStorageClassName -> V1beta1CSIStorageCapacity { v1beta1CSIStorageCapacityStorageClassName, ..} ) <$> f v1beta1CSIStorageCapacityStorageClassName -{-# INLINE v1beta1CSIStorageCapacityStorageClassNameL #-} - - - --- * V1beta1CSIStorageCapacityList - --- | 'v1beta1CSIStorageCapacityListApiVersion' Lens -v1beta1CSIStorageCapacityListApiVersionL :: Lens_' V1beta1CSIStorageCapacityList (Maybe Text) -v1beta1CSIStorageCapacityListApiVersionL f V1beta1CSIStorageCapacityList{..} = (\v1beta1CSIStorageCapacityListApiVersion -> V1beta1CSIStorageCapacityList { v1beta1CSIStorageCapacityListApiVersion, ..} ) <$> f v1beta1CSIStorageCapacityListApiVersion -{-# INLINE v1beta1CSIStorageCapacityListApiVersionL #-} - --- | 'v1beta1CSIStorageCapacityListItems' Lens -v1beta1CSIStorageCapacityListItemsL :: Lens_' V1beta1CSIStorageCapacityList ([V1beta1CSIStorageCapacity]) -v1beta1CSIStorageCapacityListItemsL f V1beta1CSIStorageCapacityList{..} = (\v1beta1CSIStorageCapacityListItems -> V1beta1CSIStorageCapacityList { v1beta1CSIStorageCapacityListItems, ..} ) <$> f v1beta1CSIStorageCapacityListItems -{-# INLINE v1beta1CSIStorageCapacityListItemsL #-} - --- | 'v1beta1CSIStorageCapacityListKind' Lens -v1beta1CSIStorageCapacityListKindL :: Lens_' V1beta1CSIStorageCapacityList (Maybe Text) -v1beta1CSIStorageCapacityListKindL f V1beta1CSIStorageCapacityList{..} = (\v1beta1CSIStorageCapacityListKind -> V1beta1CSIStorageCapacityList { v1beta1CSIStorageCapacityListKind, ..} ) <$> f v1beta1CSIStorageCapacityListKind -{-# INLINE v1beta1CSIStorageCapacityListKindL #-} - --- | 'v1beta1CSIStorageCapacityListMetadata' Lens -v1beta1CSIStorageCapacityListMetadataL :: Lens_' V1beta1CSIStorageCapacityList (Maybe V1ListMeta) -v1beta1CSIStorageCapacityListMetadataL f V1beta1CSIStorageCapacityList{..} = (\v1beta1CSIStorageCapacityListMetadata -> V1beta1CSIStorageCapacityList { v1beta1CSIStorageCapacityListMetadata, ..} ) <$> f v1beta1CSIStorageCapacityListMetadata -{-# INLINE v1beta1CSIStorageCapacityListMetadataL #-} + Kubernetes API version: release-1.27 + Generated by OpenAPI Generator (https://openapi-generator.tech) +-} + +{-| +Module : Kubernetes.OpenAPI.Lens +-} + +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE NamedFieldPuns #-} +{-# LANGUAGE RankNTypes #-} +{-# LANGUAGE RecordWildCards #-} +{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-matches -fno-warn-unused-binds -fno-warn-unused-imports #-} + +module Kubernetes.OpenAPI.ModelLens where + +import qualified Data.Aeson as A +import qualified Data.ByteString.Lazy as BL +import qualified Data.Data as P (Data, Typeable) +import qualified Data.Map as Map +import qualified Data.Set as Set +import qualified Data.Time as TI + +import Data.Text (Text) + +import Prelude (($), (.),(<$>),(<*>),(=<<),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor) +import qualified Prelude as P + +import Kubernetes.OpenAPI.Model +import Kubernetes.OpenAPI.Core + + +-- * AdmissionregistrationV1ServiceReference + +-- | 'admissionregistrationV1ServiceReferenceName' Lens +admissionregistrationV1ServiceReferenceNameL :: Lens_' AdmissionregistrationV1ServiceReference (Text) +admissionregistrationV1ServiceReferenceNameL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferenceName -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferenceName, ..} ) <$> f admissionregistrationV1ServiceReferenceName +{-# INLINE admissionregistrationV1ServiceReferenceNameL #-} + +-- | 'admissionregistrationV1ServiceReferenceNamespace' Lens +admissionregistrationV1ServiceReferenceNamespaceL :: Lens_' AdmissionregistrationV1ServiceReference (Text) +admissionregistrationV1ServiceReferenceNamespaceL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferenceNamespace -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferenceNamespace, ..} ) <$> f admissionregistrationV1ServiceReferenceNamespace +{-# INLINE admissionregistrationV1ServiceReferenceNamespaceL #-} + +-- | 'admissionregistrationV1ServiceReferencePath' Lens +admissionregistrationV1ServiceReferencePathL :: Lens_' AdmissionregistrationV1ServiceReference (Maybe Text) +admissionregistrationV1ServiceReferencePathL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferencePath -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferencePath, ..} ) <$> f admissionregistrationV1ServiceReferencePath +{-# INLINE admissionregistrationV1ServiceReferencePathL #-} + +-- | 'admissionregistrationV1ServiceReferencePort' Lens +admissionregistrationV1ServiceReferencePortL :: Lens_' AdmissionregistrationV1ServiceReference (Maybe Int) +admissionregistrationV1ServiceReferencePortL f AdmissionregistrationV1ServiceReference{..} = (\admissionregistrationV1ServiceReferencePort -> AdmissionregistrationV1ServiceReference { admissionregistrationV1ServiceReferencePort, ..} ) <$> f admissionregistrationV1ServiceReferencePort +{-# INLINE admissionregistrationV1ServiceReferencePortL #-} + + + +-- * AdmissionregistrationV1WebhookClientConfig + +-- | 'admissionregistrationV1WebhookClientConfigCaBundle' Lens +admissionregistrationV1WebhookClientConfigCaBundleL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe ByteArray) +admissionregistrationV1WebhookClientConfigCaBundleL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigCaBundle -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigCaBundle, ..} ) <$> f admissionregistrationV1WebhookClientConfigCaBundle +{-# INLINE admissionregistrationV1WebhookClientConfigCaBundleL #-} + +-- | 'admissionregistrationV1WebhookClientConfigService' Lens +admissionregistrationV1WebhookClientConfigServiceL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe AdmissionregistrationV1ServiceReference) +admissionregistrationV1WebhookClientConfigServiceL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigService -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigService, ..} ) <$> f admissionregistrationV1WebhookClientConfigService +{-# INLINE admissionregistrationV1WebhookClientConfigServiceL #-} + +-- | 'admissionregistrationV1WebhookClientConfigUrl' Lens +admissionregistrationV1WebhookClientConfigUrlL :: Lens_' AdmissionregistrationV1WebhookClientConfig (Maybe Text) +admissionregistrationV1WebhookClientConfigUrlL f AdmissionregistrationV1WebhookClientConfig{..} = (\admissionregistrationV1WebhookClientConfigUrl -> AdmissionregistrationV1WebhookClientConfig { admissionregistrationV1WebhookClientConfigUrl, ..} ) <$> f admissionregistrationV1WebhookClientConfigUrl +{-# INLINE admissionregistrationV1WebhookClientConfigUrlL #-} + + + +-- * ApiextensionsV1ServiceReference + +-- | 'apiextensionsV1ServiceReferenceName' Lens +apiextensionsV1ServiceReferenceNameL :: Lens_' ApiextensionsV1ServiceReference (Text) +apiextensionsV1ServiceReferenceNameL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferenceName -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferenceName, ..} ) <$> f apiextensionsV1ServiceReferenceName +{-# INLINE apiextensionsV1ServiceReferenceNameL #-} + +-- | 'apiextensionsV1ServiceReferenceNamespace' Lens +apiextensionsV1ServiceReferenceNamespaceL :: Lens_' ApiextensionsV1ServiceReference (Text) +apiextensionsV1ServiceReferenceNamespaceL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferenceNamespace -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferenceNamespace, ..} ) <$> f apiextensionsV1ServiceReferenceNamespace +{-# INLINE apiextensionsV1ServiceReferenceNamespaceL #-} + +-- | 'apiextensionsV1ServiceReferencePath' Lens +apiextensionsV1ServiceReferencePathL :: Lens_' ApiextensionsV1ServiceReference (Maybe Text) +apiextensionsV1ServiceReferencePathL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferencePath -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferencePath, ..} ) <$> f apiextensionsV1ServiceReferencePath +{-# INLINE apiextensionsV1ServiceReferencePathL #-} + +-- | 'apiextensionsV1ServiceReferencePort' Lens +apiextensionsV1ServiceReferencePortL :: Lens_' ApiextensionsV1ServiceReference (Maybe Int) +apiextensionsV1ServiceReferencePortL f ApiextensionsV1ServiceReference{..} = (\apiextensionsV1ServiceReferencePort -> ApiextensionsV1ServiceReference { apiextensionsV1ServiceReferencePort, ..} ) <$> f apiextensionsV1ServiceReferencePort +{-# INLINE apiextensionsV1ServiceReferencePortL #-} + + + +-- * ApiextensionsV1WebhookClientConfig + +-- | 'apiextensionsV1WebhookClientConfigCaBundle' Lens +apiextensionsV1WebhookClientConfigCaBundleL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe ByteArray) +apiextensionsV1WebhookClientConfigCaBundleL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigCaBundle -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigCaBundle, ..} ) <$> f apiextensionsV1WebhookClientConfigCaBundle +{-# INLINE apiextensionsV1WebhookClientConfigCaBundleL #-} + +-- | 'apiextensionsV1WebhookClientConfigService' Lens +apiextensionsV1WebhookClientConfigServiceL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe ApiextensionsV1ServiceReference) +apiextensionsV1WebhookClientConfigServiceL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigService -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigService, ..} ) <$> f apiextensionsV1WebhookClientConfigService +{-# INLINE apiextensionsV1WebhookClientConfigServiceL #-} + +-- | 'apiextensionsV1WebhookClientConfigUrl' Lens +apiextensionsV1WebhookClientConfigUrlL :: Lens_' ApiextensionsV1WebhookClientConfig (Maybe Text) +apiextensionsV1WebhookClientConfigUrlL f ApiextensionsV1WebhookClientConfig{..} = (\apiextensionsV1WebhookClientConfigUrl -> ApiextensionsV1WebhookClientConfig { apiextensionsV1WebhookClientConfigUrl, ..} ) <$> f apiextensionsV1WebhookClientConfigUrl +{-# INLINE apiextensionsV1WebhookClientConfigUrlL #-} + + + +-- * ApiregistrationV1ServiceReference + +-- | 'apiregistrationV1ServiceReferenceName' Lens +apiregistrationV1ServiceReferenceNameL :: Lens_' ApiregistrationV1ServiceReference (Maybe Text) +apiregistrationV1ServiceReferenceNameL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferenceName -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferenceName, ..} ) <$> f apiregistrationV1ServiceReferenceName +{-# INLINE apiregistrationV1ServiceReferenceNameL #-} + +-- | 'apiregistrationV1ServiceReferenceNamespace' Lens +apiregistrationV1ServiceReferenceNamespaceL :: Lens_' ApiregistrationV1ServiceReference (Maybe Text) +apiregistrationV1ServiceReferenceNamespaceL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferenceNamespace -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferenceNamespace, ..} ) <$> f apiregistrationV1ServiceReferenceNamespace +{-# INLINE apiregistrationV1ServiceReferenceNamespaceL #-} + +-- | 'apiregistrationV1ServiceReferencePort' Lens +apiregistrationV1ServiceReferencePortL :: Lens_' ApiregistrationV1ServiceReference (Maybe Int) +apiregistrationV1ServiceReferencePortL f ApiregistrationV1ServiceReference{..} = (\apiregistrationV1ServiceReferencePort -> ApiregistrationV1ServiceReference { apiregistrationV1ServiceReferencePort, ..} ) <$> f apiregistrationV1ServiceReferencePort +{-# INLINE apiregistrationV1ServiceReferencePortL #-} + + + +-- * AuthenticationV1TokenRequest + +-- | 'authenticationV1TokenRequestApiVersion' Lens +authenticationV1TokenRequestApiVersionL :: Lens_' AuthenticationV1TokenRequest (Maybe Text) +authenticationV1TokenRequestApiVersionL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestApiVersion -> AuthenticationV1TokenRequest { authenticationV1TokenRequestApiVersion, ..} ) <$> f authenticationV1TokenRequestApiVersion +{-# INLINE authenticationV1TokenRequestApiVersionL #-} + +-- | 'authenticationV1TokenRequestKind' Lens +authenticationV1TokenRequestKindL :: Lens_' AuthenticationV1TokenRequest (Maybe Text) +authenticationV1TokenRequestKindL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestKind -> AuthenticationV1TokenRequest { authenticationV1TokenRequestKind, ..} ) <$> f authenticationV1TokenRequestKind +{-# INLINE authenticationV1TokenRequestKindL #-} + +-- | 'authenticationV1TokenRequestMetadata' Lens +authenticationV1TokenRequestMetadataL :: Lens_' AuthenticationV1TokenRequest (Maybe V1ObjectMeta) +authenticationV1TokenRequestMetadataL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestMetadata -> AuthenticationV1TokenRequest { authenticationV1TokenRequestMetadata, ..} ) <$> f authenticationV1TokenRequestMetadata +{-# INLINE authenticationV1TokenRequestMetadataL #-} + +-- | 'authenticationV1TokenRequestSpec' Lens +authenticationV1TokenRequestSpecL :: Lens_' AuthenticationV1TokenRequest (V1TokenRequestSpec) +authenticationV1TokenRequestSpecL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestSpec -> AuthenticationV1TokenRequest { authenticationV1TokenRequestSpec, ..} ) <$> f authenticationV1TokenRequestSpec +{-# INLINE authenticationV1TokenRequestSpecL #-} + +-- | 'authenticationV1TokenRequestStatus' Lens +authenticationV1TokenRequestStatusL :: Lens_' AuthenticationV1TokenRequest (Maybe V1TokenRequestStatus) +authenticationV1TokenRequestStatusL f AuthenticationV1TokenRequest{..} = (\authenticationV1TokenRequestStatus -> AuthenticationV1TokenRequest { authenticationV1TokenRequestStatus, ..} ) <$> f authenticationV1TokenRequestStatus +{-# INLINE authenticationV1TokenRequestStatusL #-} + + + +-- * CoreV1EndpointPort + +-- | 'coreV1EndpointPortAppProtocol' Lens +coreV1EndpointPortAppProtocolL :: Lens_' CoreV1EndpointPort (Maybe Text) +coreV1EndpointPortAppProtocolL f CoreV1EndpointPort{..} = (\coreV1EndpointPortAppProtocol -> CoreV1EndpointPort { coreV1EndpointPortAppProtocol, ..} ) <$> f coreV1EndpointPortAppProtocol +{-# INLINE coreV1EndpointPortAppProtocolL #-} + +-- | 'coreV1EndpointPortName' Lens +coreV1EndpointPortNameL :: Lens_' CoreV1EndpointPort (Maybe Text) +coreV1EndpointPortNameL f CoreV1EndpointPort{..} = (\coreV1EndpointPortName -> CoreV1EndpointPort { coreV1EndpointPortName, ..} ) <$> f coreV1EndpointPortName +{-# INLINE coreV1EndpointPortNameL #-} + +-- | 'coreV1EndpointPortPort' Lens +coreV1EndpointPortPortL :: Lens_' CoreV1EndpointPort (Int) +coreV1EndpointPortPortL f CoreV1EndpointPort{..} = (\coreV1EndpointPortPort -> CoreV1EndpointPort { coreV1EndpointPortPort, ..} ) <$> f coreV1EndpointPortPort +{-# INLINE coreV1EndpointPortPortL #-} + +-- | 'coreV1EndpointPortProtocol' Lens +coreV1EndpointPortProtocolL :: Lens_' CoreV1EndpointPort (Maybe Text) +coreV1EndpointPortProtocolL f CoreV1EndpointPort{..} = (\coreV1EndpointPortProtocol -> CoreV1EndpointPort { coreV1EndpointPortProtocol, ..} ) <$> f coreV1EndpointPortProtocol +{-# INLINE coreV1EndpointPortProtocolL #-} + + + +-- * CoreV1Event + +-- | 'coreV1EventAction' Lens +coreV1EventActionL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventActionL f CoreV1Event{..} = (\coreV1EventAction -> CoreV1Event { coreV1EventAction, ..} ) <$> f coreV1EventAction +{-# INLINE coreV1EventActionL #-} + +-- | 'coreV1EventApiVersion' Lens +coreV1EventApiVersionL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventApiVersionL f CoreV1Event{..} = (\coreV1EventApiVersion -> CoreV1Event { coreV1EventApiVersion, ..} ) <$> f coreV1EventApiVersion +{-# INLINE coreV1EventApiVersionL #-} + +-- | 'coreV1EventCount' Lens +coreV1EventCountL :: Lens_' CoreV1Event (Maybe Int) +coreV1EventCountL f CoreV1Event{..} = (\coreV1EventCount -> CoreV1Event { coreV1EventCount, ..} ) <$> f coreV1EventCount +{-# INLINE coreV1EventCountL #-} + +-- | 'coreV1EventEventTime' Lens +coreV1EventEventTimeL :: Lens_' CoreV1Event (Maybe DateTime) +coreV1EventEventTimeL f CoreV1Event{..} = (\coreV1EventEventTime -> CoreV1Event { coreV1EventEventTime, ..} ) <$> f coreV1EventEventTime +{-# INLINE coreV1EventEventTimeL #-} + +-- | 'coreV1EventFirstTimestamp' Lens +coreV1EventFirstTimestampL :: Lens_' CoreV1Event (Maybe DateTime) +coreV1EventFirstTimestampL f CoreV1Event{..} = (\coreV1EventFirstTimestamp -> CoreV1Event { coreV1EventFirstTimestamp, ..} ) <$> f coreV1EventFirstTimestamp +{-# INLINE coreV1EventFirstTimestampL #-} + +-- | 'coreV1EventInvolvedObject' Lens +coreV1EventInvolvedObjectL :: Lens_' CoreV1Event (V1ObjectReference) +coreV1EventInvolvedObjectL f CoreV1Event{..} = (\coreV1EventInvolvedObject -> CoreV1Event { coreV1EventInvolvedObject, ..} ) <$> f coreV1EventInvolvedObject +{-# INLINE coreV1EventInvolvedObjectL #-} + +-- | 'coreV1EventKind' Lens +coreV1EventKindL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventKindL f CoreV1Event{..} = (\coreV1EventKind -> CoreV1Event { coreV1EventKind, ..} ) <$> f coreV1EventKind +{-# INLINE coreV1EventKindL #-} + +-- | 'coreV1EventLastTimestamp' Lens +coreV1EventLastTimestampL :: Lens_' CoreV1Event (Maybe DateTime) +coreV1EventLastTimestampL f CoreV1Event{..} = (\coreV1EventLastTimestamp -> CoreV1Event { coreV1EventLastTimestamp, ..} ) <$> f coreV1EventLastTimestamp +{-# INLINE coreV1EventLastTimestampL #-} + +-- | 'coreV1EventMessage' Lens +coreV1EventMessageL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventMessageL f CoreV1Event{..} = (\coreV1EventMessage -> CoreV1Event { coreV1EventMessage, ..} ) <$> f coreV1EventMessage +{-# INLINE coreV1EventMessageL #-} + +-- | 'coreV1EventMetadata' Lens +coreV1EventMetadataL :: Lens_' CoreV1Event (V1ObjectMeta) +coreV1EventMetadataL f CoreV1Event{..} = (\coreV1EventMetadata -> CoreV1Event { coreV1EventMetadata, ..} ) <$> f coreV1EventMetadata +{-# INLINE coreV1EventMetadataL #-} + +-- | 'coreV1EventReason' Lens +coreV1EventReasonL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventReasonL f CoreV1Event{..} = (\coreV1EventReason -> CoreV1Event { coreV1EventReason, ..} ) <$> f coreV1EventReason +{-# INLINE coreV1EventReasonL #-} + +-- | 'coreV1EventRelated' Lens +coreV1EventRelatedL :: Lens_' CoreV1Event (Maybe V1ObjectReference) +coreV1EventRelatedL f CoreV1Event{..} = (\coreV1EventRelated -> CoreV1Event { coreV1EventRelated, ..} ) <$> f coreV1EventRelated +{-# INLINE coreV1EventRelatedL #-} + +-- | 'coreV1EventReportingComponent' Lens +coreV1EventReportingComponentL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventReportingComponentL f CoreV1Event{..} = (\coreV1EventReportingComponent -> CoreV1Event { coreV1EventReportingComponent, ..} ) <$> f coreV1EventReportingComponent +{-# INLINE coreV1EventReportingComponentL #-} + +-- | 'coreV1EventReportingInstance' Lens +coreV1EventReportingInstanceL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventReportingInstanceL f CoreV1Event{..} = (\coreV1EventReportingInstance -> CoreV1Event { coreV1EventReportingInstance, ..} ) <$> f coreV1EventReportingInstance +{-# INLINE coreV1EventReportingInstanceL #-} + +-- | 'coreV1EventSeries' Lens +coreV1EventSeriesL :: Lens_' CoreV1Event (Maybe CoreV1EventSeries) +coreV1EventSeriesL f CoreV1Event{..} = (\coreV1EventSeries -> CoreV1Event { coreV1EventSeries, ..} ) <$> f coreV1EventSeries +{-# INLINE coreV1EventSeriesL #-} + +-- | 'coreV1EventSource' Lens +coreV1EventSourceL :: Lens_' CoreV1Event (Maybe V1EventSource) +coreV1EventSourceL f CoreV1Event{..} = (\coreV1EventSource -> CoreV1Event { coreV1EventSource, ..} ) <$> f coreV1EventSource +{-# INLINE coreV1EventSourceL #-} + +-- | 'coreV1EventType' Lens +coreV1EventTypeL :: Lens_' CoreV1Event (Maybe Text) +coreV1EventTypeL f CoreV1Event{..} = (\coreV1EventType -> CoreV1Event { coreV1EventType, ..} ) <$> f coreV1EventType +{-# INLINE coreV1EventTypeL #-} + + + +-- * CoreV1EventList + +-- | 'coreV1EventListApiVersion' Lens +coreV1EventListApiVersionL :: Lens_' CoreV1EventList (Maybe Text) +coreV1EventListApiVersionL f CoreV1EventList{..} = (\coreV1EventListApiVersion -> CoreV1EventList { coreV1EventListApiVersion, ..} ) <$> f coreV1EventListApiVersion +{-# INLINE coreV1EventListApiVersionL #-} + +-- | 'coreV1EventListItems' Lens +coreV1EventListItemsL :: Lens_' CoreV1EventList ([CoreV1Event]) +coreV1EventListItemsL f CoreV1EventList{..} = (\coreV1EventListItems -> CoreV1EventList { coreV1EventListItems, ..} ) <$> f coreV1EventListItems +{-# INLINE coreV1EventListItemsL #-} + +-- | 'coreV1EventListKind' Lens +coreV1EventListKindL :: Lens_' CoreV1EventList (Maybe Text) +coreV1EventListKindL f CoreV1EventList{..} = (\coreV1EventListKind -> CoreV1EventList { coreV1EventListKind, ..} ) <$> f coreV1EventListKind +{-# INLINE coreV1EventListKindL #-} + +-- | 'coreV1EventListMetadata' Lens +coreV1EventListMetadataL :: Lens_' CoreV1EventList (Maybe V1ListMeta) +coreV1EventListMetadataL f CoreV1EventList{..} = (\coreV1EventListMetadata -> CoreV1EventList { coreV1EventListMetadata, ..} ) <$> f coreV1EventListMetadata +{-# INLINE coreV1EventListMetadataL #-} + + + +-- * CoreV1EventSeries + +-- | 'coreV1EventSeriesCount' Lens +coreV1EventSeriesCountL :: Lens_' CoreV1EventSeries (Maybe Int) +coreV1EventSeriesCountL f CoreV1EventSeries{..} = (\coreV1EventSeriesCount -> CoreV1EventSeries { coreV1EventSeriesCount, ..} ) <$> f coreV1EventSeriesCount +{-# INLINE coreV1EventSeriesCountL #-} + +-- | 'coreV1EventSeriesLastObservedTime' Lens +coreV1EventSeriesLastObservedTimeL :: Lens_' CoreV1EventSeries (Maybe DateTime) +coreV1EventSeriesLastObservedTimeL f CoreV1EventSeries{..} = (\coreV1EventSeriesLastObservedTime -> CoreV1EventSeries { coreV1EventSeriesLastObservedTime, ..} ) <$> f coreV1EventSeriesLastObservedTime +{-# INLINE coreV1EventSeriesLastObservedTimeL #-} + + + +-- * DiscoveryV1EndpointPort + +-- | 'discoveryV1EndpointPortAppProtocol' Lens +discoveryV1EndpointPortAppProtocolL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) +discoveryV1EndpointPortAppProtocolL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortAppProtocol -> DiscoveryV1EndpointPort { discoveryV1EndpointPortAppProtocol, ..} ) <$> f discoveryV1EndpointPortAppProtocol +{-# INLINE discoveryV1EndpointPortAppProtocolL #-} + +-- | 'discoveryV1EndpointPortName' Lens +discoveryV1EndpointPortNameL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) +discoveryV1EndpointPortNameL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortName -> DiscoveryV1EndpointPort { discoveryV1EndpointPortName, ..} ) <$> f discoveryV1EndpointPortName +{-# INLINE discoveryV1EndpointPortNameL #-} + +-- | 'discoveryV1EndpointPortPort' Lens +discoveryV1EndpointPortPortL :: Lens_' DiscoveryV1EndpointPort (Maybe Int) +discoveryV1EndpointPortPortL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortPort -> DiscoveryV1EndpointPort { discoveryV1EndpointPortPort, ..} ) <$> f discoveryV1EndpointPortPort +{-# INLINE discoveryV1EndpointPortPortL #-} + +-- | 'discoveryV1EndpointPortProtocol' Lens +discoveryV1EndpointPortProtocolL :: Lens_' DiscoveryV1EndpointPort (Maybe Text) +discoveryV1EndpointPortProtocolL f DiscoveryV1EndpointPort{..} = (\discoveryV1EndpointPortProtocol -> DiscoveryV1EndpointPort { discoveryV1EndpointPortProtocol, ..} ) <$> f discoveryV1EndpointPortProtocol +{-# INLINE discoveryV1EndpointPortProtocolL #-} + + + +-- * EventsV1Event + +-- | 'eventsV1EventAction' Lens +eventsV1EventActionL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventActionL f EventsV1Event{..} = (\eventsV1EventAction -> EventsV1Event { eventsV1EventAction, ..} ) <$> f eventsV1EventAction +{-# INLINE eventsV1EventActionL #-} + +-- | 'eventsV1EventApiVersion' Lens +eventsV1EventApiVersionL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventApiVersionL f EventsV1Event{..} = (\eventsV1EventApiVersion -> EventsV1Event { eventsV1EventApiVersion, ..} ) <$> f eventsV1EventApiVersion +{-# INLINE eventsV1EventApiVersionL #-} + +-- | 'eventsV1EventDeprecatedCount' Lens +eventsV1EventDeprecatedCountL :: Lens_' EventsV1Event (Maybe Int) +eventsV1EventDeprecatedCountL f EventsV1Event{..} = (\eventsV1EventDeprecatedCount -> EventsV1Event { eventsV1EventDeprecatedCount, ..} ) <$> f eventsV1EventDeprecatedCount +{-# INLINE eventsV1EventDeprecatedCountL #-} + +-- | 'eventsV1EventDeprecatedFirstTimestamp' Lens +eventsV1EventDeprecatedFirstTimestampL :: Lens_' EventsV1Event (Maybe DateTime) +eventsV1EventDeprecatedFirstTimestampL f EventsV1Event{..} = (\eventsV1EventDeprecatedFirstTimestamp -> EventsV1Event { eventsV1EventDeprecatedFirstTimestamp, ..} ) <$> f eventsV1EventDeprecatedFirstTimestamp +{-# INLINE eventsV1EventDeprecatedFirstTimestampL #-} + +-- | 'eventsV1EventDeprecatedLastTimestamp' Lens +eventsV1EventDeprecatedLastTimestampL :: Lens_' EventsV1Event (Maybe DateTime) +eventsV1EventDeprecatedLastTimestampL f EventsV1Event{..} = (\eventsV1EventDeprecatedLastTimestamp -> EventsV1Event { eventsV1EventDeprecatedLastTimestamp, ..} ) <$> f eventsV1EventDeprecatedLastTimestamp +{-# INLINE eventsV1EventDeprecatedLastTimestampL #-} + +-- | 'eventsV1EventDeprecatedSource' Lens +eventsV1EventDeprecatedSourceL :: Lens_' EventsV1Event (Maybe V1EventSource) +eventsV1EventDeprecatedSourceL f EventsV1Event{..} = (\eventsV1EventDeprecatedSource -> EventsV1Event { eventsV1EventDeprecatedSource, ..} ) <$> f eventsV1EventDeprecatedSource +{-# INLINE eventsV1EventDeprecatedSourceL #-} + +-- | 'eventsV1EventEventTime' Lens +eventsV1EventEventTimeL :: Lens_' EventsV1Event (DateTime) +eventsV1EventEventTimeL f EventsV1Event{..} = (\eventsV1EventEventTime -> EventsV1Event { eventsV1EventEventTime, ..} ) <$> f eventsV1EventEventTime +{-# INLINE eventsV1EventEventTimeL #-} + +-- | 'eventsV1EventKind' Lens +eventsV1EventKindL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventKindL f EventsV1Event{..} = (\eventsV1EventKind -> EventsV1Event { eventsV1EventKind, ..} ) <$> f eventsV1EventKind +{-# INLINE eventsV1EventKindL #-} + +-- | 'eventsV1EventMetadata' Lens +eventsV1EventMetadataL :: Lens_' EventsV1Event (Maybe V1ObjectMeta) +eventsV1EventMetadataL f EventsV1Event{..} = (\eventsV1EventMetadata -> EventsV1Event { eventsV1EventMetadata, ..} ) <$> f eventsV1EventMetadata +{-# INLINE eventsV1EventMetadataL #-} + +-- | 'eventsV1EventNote' Lens +eventsV1EventNoteL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventNoteL f EventsV1Event{..} = (\eventsV1EventNote -> EventsV1Event { eventsV1EventNote, ..} ) <$> f eventsV1EventNote +{-# INLINE eventsV1EventNoteL #-} + +-- | 'eventsV1EventReason' Lens +eventsV1EventReasonL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventReasonL f EventsV1Event{..} = (\eventsV1EventReason -> EventsV1Event { eventsV1EventReason, ..} ) <$> f eventsV1EventReason +{-# INLINE eventsV1EventReasonL #-} + +-- | 'eventsV1EventRegarding' Lens +eventsV1EventRegardingL :: Lens_' EventsV1Event (Maybe V1ObjectReference) +eventsV1EventRegardingL f EventsV1Event{..} = (\eventsV1EventRegarding -> EventsV1Event { eventsV1EventRegarding, ..} ) <$> f eventsV1EventRegarding +{-# INLINE eventsV1EventRegardingL #-} + +-- | 'eventsV1EventRelated' Lens +eventsV1EventRelatedL :: Lens_' EventsV1Event (Maybe V1ObjectReference) +eventsV1EventRelatedL f EventsV1Event{..} = (\eventsV1EventRelated -> EventsV1Event { eventsV1EventRelated, ..} ) <$> f eventsV1EventRelated +{-# INLINE eventsV1EventRelatedL #-} + +-- | 'eventsV1EventReportingController' Lens +eventsV1EventReportingControllerL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventReportingControllerL f EventsV1Event{..} = (\eventsV1EventReportingController -> EventsV1Event { eventsV1EventReportingController, ..} ) <$> f eventsV1EventReportingController +{-# INLINE eventsV1EventReportingControllerL #-} + +-- | 'eventsV1EventReportingInstance' Lens +eventsV1EventReportingInstanceL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventReportingInstanceL f EventsV1Event{..} = (\eventsV1EventReportingInstance -> EventsV1Event { eventsV1EventReportingInstance, ..} ) <$> f eventsV1EventReportingInstance +{-# INLINE eventsV1EventReportingInstanceL #-} + +-- | 'eventsV1EventSeries' Lens +eventsV1EventSeriesL :: Lens_' EventsV1Event (Maybe EventsV1EventSeries) +eventsV1EventSeriesL f EventsV1Event{..} = (\eventsV1EventSeries -> EventsV1Event { eventsV1EventSeries, ..} ) <$> f eventsV1EventSeries +{-# INLINE eventsV1EventSeriesL #-} + +-- | 'eventsV1EventType' Lens +eventsV1EventTypeL :: Lens_' EventsV1Event (Maybe Text) +eventsV1EventTypeL f EventsV1Event{..} = (\eventsV1EventType -> EventsV1Event { eventsV1EventType, ..} ) <$> f eventsV1EventType +{-# INLINE eventsV1EventTypeL #-} + + + +-- * EventsV1EventList + +-- | 'eventsV1EventListApiVersion' Lens +eventsV1EventListApiVersionL :: Lens_' EventsV1EventList (Maybe Text) +eventsV1EventListApiVersionL f EventsV1EventList{..} = (\eventsV1EventListApiVersion -> EventsV1EventList { eventsV1EventListApiVersion, ..} ) <$> f eventsV1EventListApiVersion +{-# INLINE eventsV1EventListApiVersionL #-} + +-- | 'eventsV1EventListItems' Lens +eventsV1EventListItemsL :: Lens_' EventsV1EventList ([EventsV1Event]) +eventsV1EventListItemsL f EventsV1EventList{..} = (\eventsV1EventListItems -> EventsV1EventList { eventsV1EventListItems, ..} ) <$> f eventsV1EventListItems +{-# INLINE eventsV1EventListItemsL #-} + +-- | 'eventsV1EventListKind' Lens +eventsV1EventListKindL :: Lens_' EventsV1EventList (Maybe Text) +eventsV1EventListKindL f EventsV1EventList{..} = (\eventsV1EventListKind -> EventsV1EventList { eventsV1EventListKind, ..} ) <$> f eventsV1EventListKind +{-# INLINE eventsV1EventListKindL #-} + +-- | 'eventsV1EventListMetadata' Lens +eventsV1EventListMetadataL :: Lens_' EventsV1EventList (Maybe V1ListMeta) +eventsV1EventListMetadataL f EventsV1EventList{..} = (\eventsV1EventListMetadata -> EventsV1EventList { eventsV1EventListMetadata, ..} ) <$> f eventsV1EventListMetadata +{-# INLINE eventsV1EventListMetadataL #-} + + + +-- * EventsV1EventSeries + +-- | 'eventsV1EventSeriesCount' Lens +eventsV1EventSeriesCountL :: Lens_' EventsV1EventSeries (Int) +eventsV1EventSeriesCountL f EventsV1EventSeries{..} = (\eventsV1EventSeriesCount -> EventsV1EventSeries { eventsV1EventSeriesCount, ..} ) <$> f eventsV1EventSeriesCount +{-# INLINE eventsV1EventSeriesCountL #-} + +-- | 'eventsV1EventSeriesLastObservedTime' Lens +eventsV1EventSeriesLastObservedTimeL :: Lens_' EventsV1EventSeries (DateTime) +eventsV1EventSeriesLastObservedTimeL f EventsV1EventSeries{..} = (\eventsV1EventSeriesLastObservedTime -> EventsV1EventSeries { eventsV1EventSeriesLastObservedTime, ..} ) <$> f eventsV1EventSeriesLastObservedTime +{-# INLINE eventsV1EventSeriesLastObservedTimeL #-} + + + +-- * StorageV1TokenRequest + +-- | 'storageV1TokenRequestAudience' Lens +storageV1TokenRequestAudienceL :: Lens_' StorageV1TokenRequest (Text) +storageV1TokenRequestAudienceL f StorageV1TokenRequest{..} = (\storageV1TokenRequestAudience -> StorageV1TokenRequest { storageV1TokenRequestAudience, ..} ) <$> f storageV1TokenRequestAudience +{-# INLINE storageV1TokenRequestAudienceL #-} + +-- | 'storageV1TokenRequestExpirationSeconds' Lens +storageV1TokenRequestExpirationSecondsL :: Lens_' StorageV1TokenRequest (Maybe Integer) +storageV1TokenRequestExpirationSecondsL f StorageV1TokenRequest{..} = (\storageV1TokenRequestExpirationSeconds -> StorageV1TokenRequest { storageV1TokenRequestExpirationSeconds, ..} ) <$> f storageV1TokenRequestExpirationSeconds +{-# INLINE storageV1TokenRequestExpirationSecondsL #-} + + + +-- * V1APIGroup + +-- | 'v1APIGroupApiVersion' Lens +v1APIGroupApiVersionL :: Lens_' V1APIGroup (Maybe Text) +v1APIGroupApiVersionL f V1APIGroup{..} = (\v1APIGroupApiVersion -> V1APIGroup { v1APIGroupApiVersion, ..} ) <$> f v1APIGroupApiVersion +{-# INLINE v1APIGroupApiVersionL #-} + +-- | 'v1APIGroupKind' Lens +v1APIGroupKindL :: Lens_' V1APIGroup (Maybe Text) +v1APIGroupKindL f V1APIGroup{..} = (\v1APIGroupKind -> V1APIGroup { v1APIGroupKind, ..} ) <$> f v1APIGroupKind +{-# INLINE v1APIGroupKindL #-} + +-- | 'v1APIGroupName' Lens +v1APIGroupNameL :: Lens_' V1APIGroup (Text) +v1APIGroupNameL f V1APIGroup{..} = (\v1APIGroupName -> V1APIGroup { v1APIGroupName, ..} ) <$> f v1APIGroupName +{-# INLINE v1APIGroupNameL #-} + +-- | 'v1APIGroupPreferredVersion' Lens +v1APIGroupPreferredVersionL :: Lens_' V1APIGroup (Maybe V1GroupVersionForDiscovery) +v1APIGroupPreferredVersionL f V1APIGroup{..} = (\v1APIGroupPreferredVersion -> V1APIGroup { v1APIGroupPreferredVersion, ..} ) <$> f v1APIGroupPreferredVersion +{-# INLINE v1APIGroupPreferredVersionL #-} + +-- | 'v1APIGroupServerAddressByClientCidrs' Lens +v1APIGroupServerAddressByClientCidrsL :: Lens_' V1APIGroup (Maybe [V1ServerAddressByClientCIDR]) +v1APIGroupServerAddressByClientCidrsL f V1APIGroup{..} = (\v1APIGroupServerAddressByClientCidrs -> V1APIGroup { v1APIGroupServerAddressByClientCidrs, ..} ) <$> f v1APIGroupServerAddressByClientCidrs +{-# INLINE v1APIGroupServerAddressByClientCidrsL #-} + +-- | 'v1APIGroupVersions' Lens +v1APIGroupVersionsL :: Lens_' V1APIGroup ([V1GroupVersionForDiscovery]) +v1APIGroupVersionsL f V1APIGroup{..} = (\v1APIGroupVersions -> V1APIGroup { v1APIGroupVersions, ..} ) <$> f v1APIGroupVersions +{-# INLINE v1APIGroupVersionsL #-} + + + +-- * V1APIGroupList + +-- | 'v1APIGroupListApiVersion' Lens +v1APIGroupListApiVersionL :: Lens_' V1APIGroupList (Maybe Text) +v1APIGroupListApiVersionL f V1APIGroupList{..} = (\v1APIGroupListApiVersion -> V1APIGroupList { v1APIGroupListApiVersion, ..} ) <$> f v1APIGroupListApiVersion +{-# INLINE v1APIGroupListApiVersionL #-} + +-- | 'v1APIGroupListGroups' Lens +v1APIGroupListGroupsL :: Lens_' V1APIGroupList ([V1APIGroup]) +v1APIGroupListGroupsL f V1APIGroupList{..} = (\v1APIGroupListGroups -> V1APIGroupList { v1APIGroupListGroups, ..} ) <$> f v1APIGroupListGroups +{-# INLINE v1APIGroupListGroupsL #-} + +-- | 'v1APIGroupListKind' Lens +v1APIGroupListKindL :: Lens_' V1APIGroupList (Maybe Text) +v1APIGroupListKindL f V1APIGroupList{..} = (\v1APIGroupListKind -> V1APIGroupList { v1APIGroupListKind, ..} ) <$> f v1APIGroupListKind +{-# INLINE v1APIGroupListKindL #-} + + + +-- * V1APIResource + +-- | 'v1APIResourceCategories' Lens +v1APIResourceCategoriesL :: Lens_' V1APIResource (Maybe [Text]) +v1APIResourceCategoriesL f V1APIResource{..} = (\v1APIResourceCategories -> V1APIResource { v1APIResourceCategories, ..} ) <$> f v1APIResourceCategories +{-# INLINE v1APIResourceCategoriesL #-} + +-- | 'v1APIResourceGroup' Lens +v1APIResourceGroupL :: Lens_' V1APIResource (Maybe Text) +v1APIResourceGroupL f V1APIResource{..} = (\v1APIResourceGroup -> V1APIResource { v1APIResourceGroup, ..} ) <$> f v1APIResourceGroup +{-# INLINE v1APIResourceGroupL #-} + +-- | 'v1APIResourceKind' Lens +v1APIResourceKindL :: Lens_' V1APIResource (Text) +v1APIResourceKindL f V1APIResource{..} = (\v1APIResourceKind -> V1APIResource { v1APIResourceKind, ..} ) <$> f v1APIResourceKind +{-# INLINE v1APIResourceKindL #-} + +-- | 'v1APIResourceName' Lens +v1APIResourceNameL :: Lens_' V1APIResource (Text) +v1APIResourceNameL f V1APIResource{..} = (\v1APIResourceName -> V1APIResource { v1APIResourceName, ..} ) <$> f v1APIResourceName +{-# INLINE v1APIResourceNameL #-} + +-- | 'v1APIResourceNamespaced' Lens +v1APIResourceNamespacedL :: Lens_' V1APIResource (Bool) +v1APIResourceNamespacedL f V1APIResource{..} = (\v1APIResourceNamespaced -> V1APIResource { v1APIResourceNamespaced, ..} ) <$> f v1APIResourceNamespaced +{-# INLINE v1APIResourceNamespacedL #-} + +-- | 'v1APIResourceShortNames' Lens +v1APIResourceShortNamesL :: Lens_' V1APIResource (Maybe [Text]) +v1APIResourceShortNamesL f V1APIResource{..} = (\v1APIResourceShortNames -> V1APIResource { v1APIResourceShortNames, ..} ) <$> f v1APIResourceShortNames +{-# INLINE v1APIResourceShortNamesL #-} + +-- | 'v1APIResourceSingularName' Lens +v1APIResourceSingularNameL :: Lens_' V1APIResource (Text) +v1APIResourceSingularNameL f V1APIResource{..} = (\v1APIResourceSingularName -> V1APIResource { v1APIResourceSingularName, ..} ) <$> f v1APIResourceSingularName +{-# INLINE v1APIResourceSingularNameL #-} + +-- | 'v1APIResourceStorageVersionHash' Lens +v1APIResourceStorageVersionHashL :: Lens_' V1APIResource (Maybe Text) +v1APIResourceStorageVersionHashL f V1APIResource{..} = (\v1APIResourceStorageVersionHash -> V1APIResource { v1APIResourceStorageVersionHash, ..} ) <$> f v1APIResourceStorageVersionHash +{-# INLINE v1APIResourceStorageVersionHashL #-} + +-- | 'v1APIResourceVerbs' Lens +v1APIResourceVerbsL :: Lens_' V1APIResource ([Text]) +v1APIResourceVerbsL f V1APIResource{..} = (\v1APIResourceVerbs -> V1APIResource { v1APIResourceVerbs, ..} ) <$> f v1APIResourceVerbs +{-# INLINE v1APIResourceVerbsL #-} + +-- | 'v1APIResourceVersion' Lens +v1APIResourceVersionL :: Lens_' V1APIResource (Maybe Text) +v1APIResourceVersionL f V1APIResource{..} = (\v1APIResourceVersion -> V1APIResource { v1APIResourceVersion, ..} ) <$> f v1APIResourceVersion +{-# INLINE v1APIResourceVersionL #-} + + + +-- * V1APIResourceList + +-- | 'v1APIResourceListApiVersion' Lens +v1APIResourceListApiVersionL :: Lens_' V1APIResourceList (Maybe Text) +v1APIResourceListApiVersionL f V1APIResourceList{..} = (\v1APIResourceListApiVersion -> V1APIResourceList { v1APIResourceListApiVersion, ..} ) <$> f v1APIResourceListApiVersion +{-# INLINE v1APIResourceListApiVersionL #-} + +-- | 'v1APIResourceListGroupVersion' Lens +v1APIResourceListGroupVersionL :: Lens_' V1APIResourceList (Text) +v1APIResourceListGroupVersionL f V1APIResourceList{..} = (\v1APIResourceListGroupVersion -> V1APIResourceList { v1APIResourceListGroupVersion, ..} ) <$> f v1APIResourceListGroupVersion +{-# INLINE v1APIResourceListGroupVersionL #-} + +-- | 'v1APIResourceListKind' Lens +v1APIResourceListKindL :: Lens_' V1APIResourceList (Maybe Text) +v1APIResourceListKindL f V1APIResourceList{..} = (\v1APIResourceListKind -> V1APIResourceList { v1APIResourceListKind, ..} ) <$> f v1APIResourceListKind +{-# INLINE v1APIResourceListKindL #-} + +-- | 'v1APIResourceListResources' Lens +v1APIResourceListResourcesL :: Lens_' V1APIResourceList ([V1APIResource]) +v1APIResourceListResourcesL f V1APIResourceList{..} = (\v1APIResourceListResources -> V1APIResourceList { v1APIResourceListResources, ..} ) <$> f v1APIResourceListResources +{-# INLINE v1APIResourceListResourcesL #-} + + + +-- * V1APIService + +-- | 'v1APIServiceApiVersion' Lens +v1APIServiceApiVersionL :: Lens_' V1APIService (Maybe Text) +v1APIServiceApiVersionL f V1APIService{..} = (\v1APIServiceApiVersion -> V1APIService { v1APIServiceApiVersion, ..} ) <$> f v1APIServiceApiVersion +{-# INLINE v1APIServiceApiVersionL #-} + +-- | 'v1APIServiceKind' Lens +v1APIServiceKindL :: Lens_' V1APIService (Maybe Text) +v1APIServiceKindL f V1APIService{..} = (\v1APIServiceKind -> V1APIService { v1APIServiceKind, ..} ) <$> f v1APIServiceKind +{-# INLINE v1APIServiceKindL #-} + +-- | 'v1APIServiceMetadata' Lens +v1APIServiceMetadataL :: Lens_' V1APIService (Maybe V1ObjectMeta) +v1APIServiceMetadataL f V1APIService{..} = (\v1APIServiceMetadata -> V1APIService { v1APIServiceMetadata, ..} ) <$> f v1APIServiceMetadata +{-# INLINE v1APIServiceMetadataL #-} + +-- | 'v1APIServiceSpec' Lens +v1APIServiceSpecL :: Lens_' V1APIService (Maybe V1APIServiceSpec) +v1APIServiceSpecL f V1APIService{..} = (\v1APIServiceSpec -> V1APIService { v1APIServiceSpec, ..} ) <$> f v1APIServiceSpec +{-# INLINE v1APIServiceSpecL #-} + +-- | 'v1APIServiceStatus' Lens +v1APIServiceStatusL :: Lens_' V1APIService (Maybe V1APIServiceStatus) +v1APIServiceStatusL f V1APIService{..} = (\v1APIServiceStatus -> V1APIService { v1APIServiceStatus, ..} ) <$> f v1APIServiceStatus +{-# INLINE v1APIServiceStatusL #-} + + + +-- * V1APIServiceCondition + +-- | 'v1APIServiceConditionLastTransitionTime' Lens +v1APIServiceConditionLastTransitionTimeL :: Lens_' V1APIServiceCondition (Maybe DateTime) +v1APIServiceConditionLastTransitionTimeL f V1APIServiceCondition{..} = (\v1APIServiceConditionLastTransitionTime -> V1APIServiceCondition { v1APIServiceConditionLastTransitionTime, ..} ) <$> f v1APIServiceConditionLastTransitionTime +{-# INLINE v1APIServiceConditionLastTransitionTimeL #-} + +-- | 'v1APIServiceConditionMessage' Lens +v1APIServiceConditionMessageL :: Lens_' V1APIServiceCondition (Maybe Text) +v1APIServiceConditionMessageL f V1APIServiceCondition{..} = (\v1APIServiceConditionMessage -> V1APIServiceCondition { v1APIServiceConditionMessage, ..} ) <$> f v1APIServiceConditionMessage +{-# INLINE v1APIServiceConditionMessageL #-} + +-- | 'v1APIServiceConditionReason' Lens +v1APIServiceConditionReasonL :: Lens_' V1APIServiceCondition (Maybe Text) +v1APIServiceConditionReasonL f V1APIServiceCondition{..} = (\v1APIServiceConditionReason -> V1APIServiceCondition { v1APIServiceConditionReason, ..} ) <$> f v1APIServiceConditionReason +{-# INLINE v1APIServiceConditionReasonL #-} + +-- | 'v1APIServiceConditionStatus' Lens +v1APIServiceConditionStatusL :: Lens_' V1APIServiceCondition (Text) +v1APIServiceConditionStatusL f V1APIServiceCondition{..} = (\v1APIServiceConditionStatus -> V1APIServiceCondition { v1APIServiceConditionStatus, ..} ) <$> f v1APIServiceConditionStatus +{-# INLINE v1APIServiceConditionStatusL #-} + +-- | 'v1APIServiceConditionType' Lens +v1APIServiceConditionTypeL :: Lens_' V1APIServiceCondition (Text) +v1APIServiceConditionTypeL f V1APIServiceCondition{..} = (\v1APIServiceConditionType -> V1APIServiceCondition { v1APIServiceConditionType, ..} ) <$> f v1APIServiceConditionType +{-# INLINE v1APIServiceConditionTypeL #-} + + + +-- * V1APIServiceList + +-- | 'v1APIServiceListApiVersion' Lens +v1APIServiceListApiVersionL :: Lens_' V1APIServiceList (Maybe Text) +v1APIServiceListApiVersionL f V1APIServiceList{..} = (\v1APIServiceListApiVersion -> V1APIServiceList { v1APIServiceListApiVersion, ..} ) <$> f v1APIServiceListApiVersion +{-# INLINE v1APIServiceListApiVersionL #-} + +-- | 'v1APIServiceListItems' Lens +v1APIServiceListItemsL :: Lens_' V1APIServiceList ([V1APIService]) +v1APIServiceListItemsL f V1APIServiceList{..} = (\v1APIServiceListItems -> V1APIServiceList { v1APIServiceListItems, ..} ) <$> f v1APIServiceListItems +{-# INLINE v1APIServiceListItemsL #-} + +-- | 'v1APIServiceListKind' Lens +v1APIServiceListKindL :: Lens_' V1APIServiceList (Maybe Text) +v1APIServiceListKindL f V1APIServiceList{..} = (\v1APIServiceListKind -> V1APIServiceList { v1APIServiceListKind, ..} ) <$> f v1APIServiceListKind +{-# INLINE v1APIServiceListKindL #-} + +-- | 'v1APIServiceListMetadata' Lens +v1APIServiceListMetadataL :: Lens_' V1APIServiceList (Maybe V1ListMeta) +v1APIServiceListMetadataL f V1APIServiceList{..} = (\v1APIServiceListMetadata -> V1APIServiceList { v1APIServiceListMetadata, ..} ) <$> f v1APIServiceListMetadata +{-# INLINE v1APIServiceListMetadataL #-} + + + +-- * V1APIServiceSpec + +-- | 'v1APIServiceSpecCaBundle' Lens +v1APIServiceSpecCaBundleL :: Lens_' V1APIServiceSpec (Maybe ByteArray) +v1APIServiceSpecCaBundleL f V1APIServiceSpec{..} = (\v1APIServiceSpecCaBundle -> V1APIServiceSpec { v1APIServiceSpecCaBundle, ..} ) <$> f v1APIServiceSpecCaBundle +{-# INLINE v1APIServiceSpecCaBundleL #-} + +-- | 'v1APIServiceSpecGroup' Lens +v1APIServiceSpecGroupL :: Lens_' V1APIServiceSpec (Maybe Text) +v1APIServiceSpecGroupL f V1APIServiceSpec{..} = (\v1APIServiceSpecGroup -> V1APIServiceSpec { v1APIServiceSpecGroup, ..} ) <$> f v1APIServiceSpecGroup +{-# INLINE v1APIServiceSpecGroupL #-} + +-- | 'v1APIServiceSpecGroupPriorityMinimum' Lens +v1APIServiceSpecGroupPriorityMinimumL :: Lens_' V1APIServiceSpec (Int) +v1APIServiceSpecGroupPriorityMinimumL f V1APIServiceSpec{..} = (\v1APIServiceSpecGroupPriorityMinimum -> V1APIServiceSpec { v1APIServiceSpecGroupPriorityMinimum, ..} ) <$> f v1APIServiceSpecGroupPriorityMinimum +{-# INLINE v1APIServiceSpecGroupPriorityMinimumL #-} + +-- | 'v1APIServiceSpecInsecureSkipTlsVerify' Lens +v1APIServiceSpecInsecureSkipTlsVerifyL :: Lens_' V1APIServiceSpec (Maybe Bool) +v1APIServiceSpecInsecureSkipTlsVerifyL f V1APIServiceSpec{..} = (\v1APIServiceSpecInsecureSkipTlsVerify -> V1APIServiceSpec { v1APIServiceSpecInsecureSkipTlsVerify, ..} ) <$> f v1APIServiceSpecInsecureSkipTlsVerify +{-# INLINE v1APIServiceSpecInsecureSkipTlsVerifyL #-} + +-- | 'v1APIServiceSpecService' Lens +v1APIServiceSpecServiceL :: Lens_' V1APIServiceSpec (Maybe ApiregistrationV1ServiceReference) +v1APIServiceSpecServiceL f V1APIServiceSpec{..} = (\v1APIServiceSpecService -> V1APIServiceSpec { v1APIServiceSpecService, ..} ) <$> f v1APIServiceSpecService +{-# INLINE v1APIServiceSpecServiceL #-} + +-- | 'v1APIServiceSpecVersion' Lens +v1APIServiceSpecVersionL :: Lens_' V1APIServiceSpec (Maybe Text) +v1APIServiceSpecVersionL f V1APIServiceSpec{..} = (\v1APIServiceSpecVersion -> V1APIServiceSpec { v1APIServiceSpecVersion, ..} ) <$> f v1APIServiceSpecVersion +{-# INLINE v1APIServiceSpecVersionL #-} + +-- | 'v1APIServiceSpecVersionPriority' Lens +v1APIServiceSpecVersionPriorityL :: Lens_' V1APIServiceSpec (Int) +v1APIServiceSpecVersionPriorityL f V1APIServiceSpec{..} = (\v1APIServiceSpecVersionPriority -> V1APIServiceSpec { v1APIServiceSpecVersionPriority, ..} ) <$> f v1APIServiceSpecVersionPriority +{-# INLINE v1APIServiceSpecVersionPriorityL #-} + + + +-- * V1APIServiceStatus + +-- | 'v1APIServiceStatusConditions' Lens +v1APIServiceStatusConditionsL :: Lens_' V1APIServiceStatus (Maybe [V1APIServiceCondition]) +v1APIServiceStatusConditionsL f V1APIServiceStatus{..} = (\v1APIServiceStatusConditions -> V1APIServiceStatus { v1APIServiceStatusConditions, ..} ) <$> f v1APIServiceStatusConditions +{-# INLINE v1APIServiceStatusConditionsL #-} + + + +-- * V1APIVersions + +-- | 'v1APIVersionsApiVersion' Lens +v1APIVersionsApiVersionL :: Lens_' V1APIVersions (Maybe Text) +v1APIVersionsApiVersionL f V1APIVersions{..} = (\v1APIVersionsApiVersion -> V1APIVersions { v1APIVersionsApiVersion, ..} ) <$> f v1APIVersionsApiVersion +{-# INLINE v1APIVersionsApiVersionL #-} + +-- | 'v1APIVersionsKind' Lens +v1APIVersionsKindL :: Lens_' V1APIVersions (Maybe Text) +v1APIVersionsKindL f V1APIVersions{..} = (\v1APIVersionsKind -> V1APIVersions { v1APIVersionsKind, ..} ) <$> f v1APIVersionsKind +{-# INLINE v1APIVersionsKindL #-} + +-- | 'v1APIVersionsServerAddressByClientCidrs' Lens +v1APIVersionsServerAddressByClientCidrsL :: Lens_' V1APIVersions ([V1ServerAddressByClientCIDR]) +v1APIVersionsServerAddressByClientCidrsL f V1APIVersions{..} = (\v1APIVersionsServerAddressByClientCidrs -> V1APIVersions { v1APIVersionsServerAddressByClientCidrs, ..} ) <$> f v1APIVersionsServerAddressByClientCidrs +{-# INLINE v1APIVersionsServerAddressByClientCidrsL #-} + +-- | 'v1APIVersionsVersions' Lens +v1APIVersionsVersionsL :: Lens_' V1APIVersions ([Text]) +v1APIVersionsVersionsL f V1APIVersions{..} = (\v1APIVersionsVersions -> V1APIVersions { v1APIVersionsVersions, ..} ) <$> f v1APIVersionsVersions +{-# INLINE v1APIVersionsVersionsL #-} + + + +-- * V1AWSElasticBlockStoreVolumeSource + +-- | 'v1AWSElasticBlockStoreVolumeSourceFsType' Lens +v1AWSElasticBlockStoreVolumeSourceFsTypeL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Text) +v1AWSElasticBlockStoreVolumeSourceFsTypeL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceFsType -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceFsType, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceFsType +{-# INLINE v1AWSElasticBlockStoreVolumeSourceFsTypeL #-} + +-- | 'v1AWSElasticBlockStoreVolumeSourcePartition' Lens +v1AWSElasticBlockStoreVolumeSourcePartitionL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Int) +v1AWSElasticBlockStoreVolumeSourcePartitionL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourcePartition -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourcePartition, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourcePartition +{-# INLINE v1AWSElasticBlockStoreVolumeSourcePartitionL #-} + +-- | 'v1AWSElasticBlockStoreVolumeSourceReadOnly' Lens +v1AWSElasticBlockStoreVolumeSourceReadOnlyL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Maybe Bool) +v1AWSElasticBlockStoreVolumeSourceReadOnlyL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceReadOnly -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceReadOnly, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceReadOnly +{-# INLINE v1AWSElasticBlockStoreVolumeSourceReadOnlyL #-} + +-- | 'v1AWSElasticBlockStoreVolumeSourceVolumeId' Lens +v1AWSElasticBlockStoreVolumeSourceVolumeIdL :: Lens_' V1AWSElasticBlockStoreVolumeSource (Text) +v1AWSElasticBlockStoreVolumeSourceVolumeIdL f V1AWSElasticBlockStoreVolumeSource{..} = (\v1AWSElasticBlockStoreVolumeSourceVolumeId -> V1AWSElasticBlockStoreVolumeSource { v1AWSElasticBlockStoreVolumeSourceVolumeId, ..} ) <$> f v1AWSElasticBlockStoreVolumeSourceVolumeId +{-# INLINE v1AWSElasticBlockStoreVolumeSourceVolumeIdL #-} + + + +-- * V1Affinity + +-- | 'v1AffinityNodeAffinity' Lens +v1AffinityNodeAffinityL :: Lens_' V1Affinity (Maybe V1NodeAffinity) +v1AffinityNodeAffinityL f V1Affinity{..} = (\v1AffinityNodeAffinity -> V1Affinity { v1AffinityNodeAffinity, ..} ) <$> f v1AffinityNodeAffinity +{-# INLINE v1AffinityNodeAffinityL #-} + +-- | 'v1AffinityPodAffinity' Lens +v1AffinityPodAffinityL :: Lens_' V1Affinity (Maybe V1PodAffinity) +v1AffinityPodAffinityL f V1Affinity{..} = (\v1AffinityPodAffinity -> V1Affinity { v1AffinityPodAffinity, ..} ) <$> f v1AffinityPodAffinity +{-# INLINE v1AffinityPodAffinityL #-} + +-- | 'v1AffinityPodAntiAffinity' Lens +v1AffinityPodAntiAffinityL :: Lens_' V1Affinity (Maybe V1PodAntiAffinity) +v1AffinityPodAntiAffinityL f V1Affinity{..} = (\v1AffinityPodAntiAffinity -> V1Affinity { v1AffinityPodAntiAffinity, ..} ) <$> f v1AffinityPodAntiAffinity +{-# INLINE v1AffinityPodAntiAffinityL #-} + + + +-- * V1AggregationRule + +-- | 'v1AggregationRuleClusterRoleSelectors' Lens +v1AggregationRuleClusterRoleSelectorsL :: Lens_' V1AggregationRule (Maybe [V1LabelSelector]) +v1AggregationRuleClusterRoleSelectorsL f V1AggregationRule{..} = (\v1AggregationRuleClusterRoleSelectors -> V1AggregationRule { v1AggregationRuleClusterRoleSelectors, ..} ) <$> f v1AggregationRuleClusterRoleSelectors +{-# INLINE v1AggregationRuleClusterRoleSelectorsL #-} + + + +-- * V1AttachedVolume + +-- | 'v1AttachedVolumeDevicePath' Lens +v1AttachedVolumeDevicePathL :: Lens_' V1AttachedVolume (Text) +v1AttachedVolumeDevicePathL f V1AttachedVolume{..} = (\v1AttachedVolumeDevicePath -> V1AttachedVolume { v1AttachedVolumeDevicePath, ..} ) <$> f v1AttachedVolumeDevicePath +{-# INLINE v1AttachedVolumeDevicePathL #-} + +-- | 'v1AttachedVolumeName' Lens +v1AttachedVolumeNameL :: Lens_' V1AttachedVolume (Text) +v1AttachedVolumeNameL f V1AttachedVolume{..} = (\v1AttachedVolumeName -> V1AttachedVolume { v1AttachedVolumeName, ..} ) <$> f v1AttachedVolumeName +{-# INLINE v1AttachedVolumeNameL #-} + + + +-- * V1AzureDiskVolumeSource + +-- | 'v1AzureDiskVolumeSourceCachingMode' Lens +v1AzureDiskVolumeSourceCachingModeL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) +v1AzureDiskVolumeSourceCachingModeL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceCachingMode -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceCachingMode, ..} ) <$> f v1AzureDiskVolumeSourceCachingMode +{-# INLINE v1AzureDiskVolumeSourceCachingModeL #-} + +-- | 'v1AzureDiskVolumeSourceDiskName' Lens +v1AzureDiskVolumeSourceDiskNameL :: Lens_' V1AzureDiskVolumeSource (Text) +v1AzureDiskVolumeSourceDiskNameL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceDiskName -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceDiskName, ..} ) <$> f v1AzureDiskVolumeSourceDiskName +{-# INLINE v1AzureDiskVolumeSourceDiskNameL #-} + +-- | 'v1AzureDiskVolumeSourceDiskUri' Lens +v1AzureDiskVolumeSourceDiskUriL :: Lens_' V1AzureDiskVolumeSource (Text) +v1AzureDiskVolumeSourceDiskUriL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceDiskUri -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceDiskUri, ..} ) <$> f v1AzureDiskVolumeSourceDiskUri +{-# INLINE v1AzureDiskVolumeSourceDiskUriL #-} + +-- | 'v1AzureDiskVolumeSourceFsType' Lens +v1AzureDiskVolumeSourceFsTypeL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) +v1AzureDiskVolumeSourceFsTypeL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceFsType -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceFsType, ..} ) <$> f v1AzureDiskVolumeSourceFsType +{-# INLINE v1AzureDiskVolumeSourceFsTypeL #-} + +-- | 'v1AzureDiskVolumeSourceKind' Lens +v1AzureDiskVolumeSourceKindL :: Lens_' V1AzureDiskVolumeSource (Maybe Text) +v1AzureDiskVolumeSourceKindL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceKind -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceKind, ..} ) <$> f v1AzureDiskVolumeSourceKind +{-# INLINE v1AzureDiskVolumeSourceKindL #-} + +-- | 'v1AzureDiskVolumeSourceReadOnly' Lens +v1AzureDiskVolumeSourceReadOnlyL :: Lens_' V1AzureDiskVolumeSource (Maybe Bool) +v1AzureDiskVolumeSourceReadOnlyL f V1AzureDiskVolumeSource{..} = (\v1AzureDiskVolumeSourceReadOnly -> V1AzureDiskVolumeSource { v1AzureDiskVolumeSourceReadOnly, ..} ) <$> f v1AzureDiskVolumeSourceReadOnly +{-# INLINE v1AzureDiskVolumeSourceReadOnlyL #-} + + + +-- * V1AzureFilePersistentVolumeSource + +-- | 'v1AzureFilePersistentVolumeSourceReadOnly' Lens +v1AzureFilePersistentVolumeSourceReadOnlyL :: Lens_' V1AzureFilePersistentVolumeSource (Maybe Bool) +v1AzureFilePersistentVolumeSourceReadOnlyL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceReadOnly -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceReadOnly, ..} ) <$> f v1AzureFilePersistentVolumeSourceReadOnly +{-# INLINE v1AzureFilePersistentVolumeSourceReadOnlyL #-} + +-- | 'v1AzureFilePersistentVolumeSourceSecretName' Lens +v1AzureFilePersistentVolumeSourceSecretNameL :: Lens_' V1AzureFilePersistentVolumeSource (Text) +v1AzureFilePersistentVolumeSourceSecretNameL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceSecretName -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceSecretName, ..} ) <$> f v1AzureFilePersistentVolumeSourceSecretName +{-# INLINE v1AzureFilePersistentVolumeSourceSecretNameL #-} + +-- | 'v1AzureFilePersistentVolumeSourceSecretNamespace' Lens +v1AzureFilePersistentVolumeSourceSecretNamespaceL :: Lens_' V1AzureFilePersistentVolumeSource (Maybe Text) +v1AzureFilePersistentVolumeSourceSecretNamespaceL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceSecretNamespace -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceSecretNamespace, ..} ) <$> f v1AzureFilePersistentVolumeSourceSecretNamespace +{-# INLINE v1AzureFilePersistentVolumeSourceSecretNamespaceL #-} + +-- | 'v1AzureFilePersistentVolumeSourceShareName' Lens +v1AzureFilePersistentVolumeSourceShareNameL :: Lens_' V1AzureFilePersistentVolumeSource (Text) +v1AzureFilePersistentVolumeSourceShareNameL f V1AzureFilePersistentVolumeSource{..} = (\v1AzureFilePersistentVolumeSourceShareName -> V1AzureFilePersistentVolumeSource { v1AzureFilePersistentVolumeSourceShareName, ..} ) <$> f v1AzureFilePersistentVolumeSourceShareName +{-# INLINE v1AzureFilePersistentVolumeSourceShareNameL #-} + + + +-- * V1AzureFileVolumeSource + +-- | 'v1AzureFileVolumeSourceReadOnly' Lens +v1AzureFileVolumeSourceReadOnlyL :: Lens_' V1AzureFileVolumeSource (Maybe Bool) +v1AzureFileVolumeSourceReadOnlyL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceReadOnly -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceReadOnly, ..} ) <$> f v1AzureFileVolumeSourceReadOnly +{-# INLINE v1AzureFileVolumeSourceReadOnlyL #-} + +-- | 'v1AzureFileVolumeSourceSecretName' Lens +v1AzureFileVolumeSourceSecretNameL :: Lens_' V1AzureFileVolumeSource (Text) +v1AzureFileVolumeSourceSecretNameL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceSecretName -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceSecretName, ..} ) <$> f v1AzureFileVolumeSourceSecretName +{-# INLINE v1AzureFileVolumeSourceSecretNameL #-} + +-- | 'v1AzureFileVolumeSourceShareName' Lens +v1AzureFileVolumeSourceShareNameL :: Lens_' V1AzureFileVolumeSource (Text) +v1AzureFileVolumeSourceShareNameL f V1AzureFileVolumeSource{..} = (\v1AzureFileVolumeSourceShareName -> V1AzureFileVolumeSource { v1AzureFileVolumeSourceShareName, ..} ) <$> f v1AzureFileVolumeSourceShareName +{-# INLINE v1AzureFileVolumeSourceShareNameL #-} + + + +-- * V1Binding + +-- | 'v1BindingApiVersion' Lens +v1BindingApiVersionL :: Lens_' V1Binding (Maybe Text) +v1BindingApiVersionL f V1Binding{..} = (\v1BindingApiVersion -> V1Binding { v1BindingApiVersion, ..} ) <$> f v1BindingApiVersion +{-# INLINE v1BindingApiVersionL #-} + +-- | 'v1BindingKind' Lens +v1BindingKindL :: Lens_' V1Binding (Maybe Text) +v1BindingKindL f V1Binding{..} = (\v1BindingKind -> V1Binding { v1BindingKind, ..} ) <$> f v1BindingKind +{-# INLINE v1BindingKindL #-} + +-- | 'v1BindingMetadata' Lens +v1BindingMetadataL :: Lens_' V1Binding (Maybe V1ObjectMeta) +v1BindingMetadataL f V1Binding{..} = (\v1BindingMetadata -> V1Binding { v1BindingMetadata, ..} ) <$> f v1BindingMetadata +{-# INLINE v1BindingMetadataL #-} + +-- | 'v1BindingTarget' Lens +v1BindingTargetL :: Lens_' V1Binding (V1ObjectReference) +v1BindingTargetL f V1Binding{..} = (\v1BindingTarget -> V1Binding { v1BindingTarget, ..} ) <$> f v1BindingTarget +{-# INLINE v1BindingTargetL #-} + + + +-- * V1BoundObjectReference + +-- | 'v1BoundObjectReferenceApiVersion' Lens +v1BoundObjectReferenceApiVersionL :: Lens_' V1BoundObjectReference (Maybe Text) +v1BoundObjectReferenceApiVersionL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceApiVersion -> V1BoundObjectReference { v1BoundObjectReferenceApiVersion, ..} ) <$> f v1BoundObjectReferenceApiVersion +{-# INLINE v1BoundObjectReferenceApiVersionL #-} + +-- | 'v1BoundObjectReferenceKind' Lens +v1BoundObjectReferenceKindL :: Lens_' V1BoundObjectReference (Maybe Text) +v1BoundObjectReferenceKindL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceKind -> V1BoundObjectReference { v1BoundObjectReferenceKind, ..} ) <$> f v1BoundObjectReferenceKind +{-# INLINE v1BoundObjectReferenceKindL #-} + +-- | 'v1BoundObjectReferenceName' Lens +v1BoundObjectReferenceNameL :: Lens_' V1BoundObjectReference (Maybe Text) +v1BoundObjectReferenceNameL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceName -> V1BoundObjectReference { v1BoundObjectReferenceName, ..} ) <$> f v1BoundObjectReferenceName +{-# INLINE v1BoundObjectReferenceNameL #-} + +-- | 'v1BoundObjectReferenceUid' Lens +v1BoundObjectReferenceUidL :: Lens_' V1BoundObjectReference (Maybe Text) +v1BoundObjectReferenceUidL f V1BoundObjectReference{..} = (\v1BoundObjectReferenceUid -> V1BoundObjectReference { v1BoundObjectReferenceUid, ..} ) <$> f v1BoundObjectReferenceUid +{-# INLINE v1BoundObjectReferenceUidL #-} + + + +-- * V1CSIDriver + +-- | 'v1CSIDriverApiVersion' Lens +v1CSIDriverApiVersionL :: Lens_' V1CSIDriver (Maybe Text) +v1CSIDriverApiVersionL f V1CSIDriver{..} = (\v1CSIDriverApiVersion -> V1CSIDriver { v1CSIDriverApiVersion, ..} ) <$> f v1CSIDriverApiVersion +{-# INLINE v1CSIDriverApiVersionL #-} + +-- | 'v1CSIDriverKind' Lens +v1CSIDriverKindL :: Lens_' V1CSIDriver (Maybe Text) +v1CSIDriverKindL f V1CSIDriver{..} = (\v1CSIDriverKind -> V1CSIDriver { v1CSIDriverKind, ..} ) <$> f v1CSIDriverKind +{-# INLINE v1CSIDriverKindL #-} + +-- | 'v1CSIDriverMetadata' Lens +v1CSIDriverMetadataL :: Lens_' V1CSIDriver (Maybe V1ObjectMeta) +v1CSIDriverMetadataL f V1CSIDriver{..} = (\v1CSIDriverMetadata -> V1CSIDriver { v1CSIDriverMetadata, ..} ) <$> f v1CSIDriverMetadata +{-# INLINE v1CSIDriverMetadataL #-} + +-- | 'v1CSIDriverSpec' Lens +v1CSIDriverSpecL :: Lens_' V1CSIDriver (V1CSIDriverSpec) +v1CSIDriverSpecL f V1CSIDriver{..} = (\v1CSIDriverSpec -> V1CSIDriver { v1CSIDriverSpec, ..} ) <$> f v1CSIDriverSpec +{-# INLINE v1CSIDriverSpecL #-} + + + +-- * V1CSIDriverList + +-- | 'v1CSIDriverListApiVersion' Lens +v1CSIDriverListApiVersionL :: Lens_' V1CSIDriverList (Maybe Text) +v1CSIDriverListApiVersionL f V1CSIDriverList{..} = (\v1CSIDriverListApiVersion -> V1CSIDriverList { v1CSIDriverListApiVersion, ..} ) <$> f v1CSIDriverListApiVersion +{-# INLINE v1CSIDriverListApiVersionL #-} + +-- | 'v1CSIDriverListItems' Lens +v1CSIDriverListItemsL :: Lens_' V1CSIDriverList ([V1CSIDriver]) +v1CSIDriverListItemsL f V1CSIDriverList{..} = (\v1CSIDriverListItems -> V1CSIDriverList { v1CSIDriverListItems, ..} ) <$> f v1CSIDriverListItems +{-# INLINE v1CSIDriverListItemsL #-} + +-- | 'v1CSIDriverListKind' Lens +v1CSIDriverListKindL :: Lens_' V1CSIDriverList (Maybe Text) +v1CSIDriverListKindL f V1CSIDriverList{..} = (\v1CSIDriverListKind -> V1CSIDriverList { v1CSIDriverListKind, ..} ) <$> f v1CSIDriverListKind +{-# INLINE v1CSIDriverListKindL #-} + +-- | 'v1CSIDriverListMetadata' Lens +v1CSIDriverListMetadataL :: Lens_' V1CSIDriverList (Maybe V1ListMeta) +v1CSIDriverListMetadataL f V1CSIDriverList{..} = (\v1CSIDriverListMetadata -> V1CSIDriverList { v1CSIDriverListMetadata, ..} ) <$> f v1CSIDriverListMetadata +{-# INLINE v1CSIDriverListMetadataL #-} + + + +-- * V1CSIDriverSpec + +-- | 'v1CSIDriverSpecAttachRequired' Lens +v1CSIDriverSpecAttachRequiredL :: Lens_' V1CSIDriverSpec (Maybe Bool) +v1CSIDriverSpecAttachRequiredL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecAttachRequired -> V1CSIDriverSpec { v1CSIDriverSpecAttachRequired, ..} ) <$> f v1CSIDriverSpecAttachRequired +{-# INLINE v1CSIDriverSpecAttachRequiredL #-} + +-- | 'v1CSIDriverSpecFsGroupPolicy' Lens +v1CSIDriverSpecFsGroupPolicyL :: Lens_' V1CSIDriverSpec (Maybe Text) +v1CSIDriverSpecFsGroupPolicyL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecFsGroupPolicy -> V1CSIDriverSpec { v1CSIDriverSpecFsGroupPolicy, ..} ) <$> f v1CSIDriverSpecFsGroupPolicy +{-# INLINE v1CSIDriverSpecFsGroupPolicyL #-} + +-- | 'v1CSIDriverSpecPodInfoOnMount' Lens +v1CSIDriverSpecPodInfoOnMountL :: Lens_' V1CSIDriverSpec (Maybe Bool) +v1CSIDriverSpecPodInfoOnMountL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecPodInfoOnMount -> V1CSIDriverSpec { v1CSIDriverSpecPodInfoOnMount, ..} ) <$> f v1CSIDriverSpecPodInfoOnMount +{-# INLINE v1CSIDriverSpecPodInfoOnMountL #-} + +-- | 'v1CSIDriverSpecRequiresRepublish' Lens +v1CSIDriverSpecRequiresRepublishL :: Lens_' V1CSIDriverSpec (Maybe Bool) +v1CSIDriverSpecRequiresRepublishL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecRequiresRepublish -> V1CSIDriverSpec { v1CSIDriverSpecRequiresRepublish, ..} ) <$> f v1CSIDriverSpecRequiresRepublish +{-# INLINE v1CSIDriverSpecRequiresRepublishL #-} + +-- | 'v1CSIDriverSpecSeLinuxMount' Lens +v1CSIDriverSpecSeLinuxMountL :: Lens_' V1CSIDriverSpec (Maybe Bool) +v1CSIDriverSpecSeLinuxMountL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecSeLinuxMount -> V1CSIDriverSpec { v1CSIDriverSpecSeLinuxMount, ..} ) <$> f v1CSIDriverSpecSeLinuxMount +{-# INLINE v1CSIDriverSpecSeLinuxMountL #-} + +-- | 'v1CSIDriverSpecStorageCapacity' Lens +v1CSIDriverSpecStorageCapacityL :: Lens_' V1CSIDriverSpec (Maybe Bool) +v1CSIDriverSpecStorageCapacityL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecStorageCapacity -> V1CSIDriverSpec { v1CSIDriverSpecStorageCapacity, ..} ) <$> f v1CSIDriverSpecStorageCapacity +{-# INLINE v1CSIDriverSpecStorageCapacityL #-} + +-- | 'v1CSIDriverSpecTokenRequests' Lens +v1CSIDriverSpecTokenRequestsL :: Lens_' V1CSIDriverSpec (Maybe [StorageV1TokenRequest]) +v1CSIDriverSpecTokenRequestsL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecTokenRequests -> V1CSIDriverSpec { v1CSIDriverSpecTokenRequests, ..} ) <$> f v1CSIDriverSpecTokenRequests +{-# INLINE v1CSIDriverSpecTokenRequestsL #-} + +-- | 'v1CSIDriverSpecVolumeLifecycleModes' Lens +v1CSIDriverSpecVolumeLifecycleModesL :: Lens_' V1CSIDriverSpec (Maybe [Text]) +v1CSIDriverSpecVolumeLifecycleModesL f V1CSIDriverSpec{..} = (\v1CSIDriverSpecVolumeLifecycleModes -> V1CSIDriverSpec { v1CSIDriverSpecVolumeLifecycleModes, ..} ) <$> f v1CSIDriverSpecVolumeLifecycleModes +{-# INLINE v1CSIDriverSpecVolumeLifecycleModesL #-} + + + +-- * V1CSINode + +-- | 'v1CSINodeApiVersion' Lens +v1CSINodeApiVersionL :: Lens_' V1CSINode (Maybe Text) +v1CSINodeApiVersionL f V1CSINode{..} = (\v1CSINodeApiVersion -> V1CSINode { v1CSINodeApiVersion, ..} ) <$> f v1CSINodeApiVersion +{-# INLINE v1CSINodeApiVersionL #-} + +-- | 'v1CSINodeKind' Lens +v1CSINodeKindL :: Lens_' V1CSINode (Maybe Text) +v1CSINodeKindL f V1CSINode{..} = (\v1CSINodeKind -> V1CSINode { v1CSINodeKind, ..} ) <$> f v1CSINodeKind +{-# INLINE v1CSINodeKindL #-} + +-- | 'v1CSINodeMetadata' Lens +v1CSINodeMetadataL :: Lens_' V1CSINode (Maybe V1ObjectMeta) +v1CSINodeMetadataL f V1CSINode{..} = (\v1CSINodeMetadata -> V1CSINode { v1CSINodeMetadata, ..} ) <$> f v1CSINodeMetadata +{-# INLINE v1CSINodeMetadataL #-} + +-- | 'v1CSINodeSpec' Lens +v1CSINodeSpecL :: Lens_' V1CSINode (V1CSINodeSpec) +v1CSINodeSpecL f V1CSINode{..} = (\v1CSINodeSpec -> V1CSINode { v1CSINodeSpec, ..} ) <$> f v1CSINodeSpec +{-# INLINE v1CSINodeSpecL #-} + + + +-- * V1CSINodeDriver + +-- | 'v1CSINodeDriverAllocatable' Lens +v1CSINodeDriverAllocatableL :: Lens_' V1CSINodeDriver (Maybe V1VolumeNodeResources) +v1CSINodeDriverAllocatableL f V1CSINodeDriver{..} = (\v1CSINodeDriverAllocatable -> V1CSINodeDriver { v1CSINodeDriverAllocatable, ..} ) <$> f v1CSINodeDriverAllocatable +{-# INLINE v1CSINodeDriverAllocatableL #-} + +-- | 'v1CSINodeDriverName' Lens +v1CSINodeDriverNameL :: Lens_' V1CSINodeDriver (Text) +v1CSINodeDriverNameL f V1CSINodeDriver{..} = (\v1CSINodeDriverName -> V1CSINodeDriver { v1CSINodeDriverName, ..} ) <$> f v1CSINodeDriverName +{-# INLINE v1CSINodeDriverNameL #-} + +-- | 'v1CSINodeDriverNodeId' Lens +v1CSINodeDriverNodeIdL :: Lens_' V1CSINodeDriver (Text) +v1CSINodeDriverNodeIdL f V1CSINodeDriver{..} = (\v1CSINodeDriverNodeId -> V1CSINodeDriver { v1CSINodeDriverNodeId, ..} ) <$> f v1CSINodeDriverNodeId +{-# INLINE v1CSINodeDriverNodeIdL #-} + +-- | 'v1CSINodeDriverTopologyKeys' Lens +v1CSINodeDriverTopologyKeysL :: Lens_' V1CSINodeDriver (Maybe [Text]) +v1CSINodeDriverTopologyKeysL f V1CSINodeDriver{..} = (\v1CSINodeDriverTopologyKeys -> V1CSINodeDriver { v1CSINodeDriverTopologyKeys, ..} ) <$> f v1CSINodeDriverTopologyKeys +{-# INLINE v1CSINodeDriverTopologyKeysL #-} + + + +-- * V1CSINodeList + +-- | 'v1CSINodeListApiVersion' Lens +v1CSINodeListApiVersionL :: Lens_' V1CSINodeList (Maybe Text) +v1CSINodeListApiVersionL f V1CSINodeList{..} = (\v1CSINodeListApiVersion -> V1CSINodeList { v1CSINodeListApiVersion, ..} ) <$> f v1CSINodeListApiVersion +{-# INLINE v1CSINodeListApiVersionL #-} + +-- | 'v1CSINodeListItems' Lens +v1CSINodeListItemsL :: Lens_' V1CSINodeList ([V1CSINode]) +v1CSINodeListItemsL f V1CSINodeList{..} = (\v1CSINodeListItems -> V1CSINodeList { v1CSINodeListItems, ..} ) <$> f v1CSINodeListItems +{-# INLINE v1CSINodeListItemsL #-} + +-- | 'v1CSINodeListKind' Lens +v1CSINodeListKindL :: Lens_' V1CSINodeList (Maybe Text) +v1CSINodeListKindL f V1CSINodeList{..} = (\v1CSINodeListKind -> V1CSINodeList { v1CSINodeListKind, ..} ) <$> f v1CSINodeListKind +{-# INLINE v1CSINodeListKindL #-} + +-- | 'v1CSINodeListMetadata' Lens +v1CSINodeListMetadataL :: Lens_' V1CSINodeList (Maybe V1ListMeta) +v1CSINodeListMetadataL f V1CSINodeList{..} = (\v1CSINodeListMetadata -> V1CSINodeList { v1CSINodeListMetadata, ..} ) <$> f v1CSINodeListMetadata +{-# INLINE v1CSINodeListMetadataL #-} + + + +-- * V1CSINodeSpec + +-- | 'v1CSINodeSpecDrivers' Lens +v1CSINodeSpecDriversL :: Lens_' V1CSINodeSpec ([V1CSINodeDriver]) +v1CSINodeSpecDriversL f V1CSINodeSpec{..} = (\v1CSINodeSpecDrivers -> V1CSINodeSpec { v1CSINodeSpecDrivers, ..} ) <$> f v1CSINodeSpecDrivers +{-# INLINE v1CSINodeSpecDriversL #-} + + + +-- * V1CSIPersistentVolumeSource + +-- | 'v1CSIPersistentVolumeSourceControllerExpandSecretRef' Lens +v1CSIPersistentVolumeSourceControllerExpandSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) +v1CSIPersistentVolumeSourceControllerExpandSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceControllerExpandSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceControllerExpandSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceControllerExpandSecretRef +{-# INLINE v1CSIPersistentVolumeSourceControllerExpandSecretRefL #-} + +-- | 'v1CSIPersistentVolumeSourceControllerPublishSecretRef' Lens +v1CSIPersistentVolumeSourceControllerPublishSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) +v1CSIPersistentVolumeSourceControllerPublishSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceControllerPublishSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceControllerPublishSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceControllerPublishSecretRef +{-# INLINE v1CSIPersistentVolumeSourceControllerPublishSecretRefL #-} + +-- | 'v1CSIPersistentVolumeSourceDriver' Lens +v1CSIPersistentVolumeSourceDriverL :: Lens_' V1CSIPersistentVolumeSource (Text) +v1CSIPersistentVolumeSourceDriverL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceDriver -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceDriver, ..} ) <$> f v1CSIPersistentVolumeSourceDriver +{-# INLINE v1CSIPersistentVolumeSourceDriverL #-} + +-- | 'v1CSIPersistentVolumeSourceFsType' Lens +v1CSIPersistentVolumeSourceFsTypeL :: Lens_' V1CSIPersistentVolumeSource (Maybe Text) +v1CSIPersistentVolumeSourceFsTypeL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceFsType -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceFsType, ..} ) <$> f v1CSIPersistentVolumeSourceFsType +{-# INLINE v1CSIPersistentVolumeSourceFsTypeL #-} + +-- | 'v1CSIPersistentVolumeSourceNodeExpandSecretRef' Lens +v1CSIPersistentVolumeSourceNodeExpandSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) +v1CSIPersistentVolumeSourceNodeExpandSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodeExpandSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodeExpandSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodeExpandSecretRef +{-# INLINE v1CSIPersistentVolumeSourceNodeExpandSecretRefL #-} + +-- | 'v1CSIPersistentVolumeSourceNodePublishSecretRef' Lens +v1CSIPersistentVolumeSourceNodePublishSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) +v1CSIPersistentVolumeSourceNodePublishSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodePublishSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodePublishSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodePublishSecretRef +{-# INLINE v1CSIPersistentVolumeSourceNodePublishSecretRefL #-} + +-- | 'v1CSIPersistentVolumeSourceNodeStageSecretRef' Lens +v1CSIPersistentVolumeSourceNodeStageSecretRefL :: Lens_' V1CSIPersistentVolumeSource (Maybe V1SecretReference) +v1CSIPersistentVolumeSourceNodeStageSecretRefL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceNodeStageSecretRef -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceNodeStageSecretRef, ..} ) <$> f v1CSIPersistentVolumeSourceNodeStageSecretRef +{-# INLINE v1CSIPersistentVolumeSourceNodeStageSecretRefL #-} + +-- | 'v1CSIPersistentVolumeSourceReadOnly' Lens +v1CSIPersistentVolumeSourceReadOnlyL :: Lens_' V1CSIPersistentVolumeSource (Maybe Bool) +v1CSIPersistentVolumeSourceReadOnlyL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceReadOnly -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceReadOnly, ..} ) <$> f v1CSIPersistentVolumeSourceReadOnly +{-# INLINE v1CSIPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1CSIPersistentVolumeSourceVolumeAttributes' Lens +v1CSIPersistentVolumeSourceVolumeAttributesL :: Lens_' V1CSIPersistentVolumeSource (Maybe (Map.Map String Text)) +v1CSIPersistentVolumeSourceVolumeAttributesL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceVolumeAttributes -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceVolumeAttributes, ..} ) <$> f v1CSIPersistentVolumeSourceVolumeAttributes +{-# INLINE v1CSIPersistentVolumeSourceVolumeAttributesL #-} + +-- | 'v1CSIPersistentVolumeSourceVolumeHandle' Lens +v1CSIPersistentVolumeSourceVolumeHandleL :: Lens_' V1CSIPersistentVolumeSource (Text) +v1CSIPersistentVolumeSourceVolumeHandleL f V1CSIPersistentVolumeSource{..} = (\v1CSIPersistentVolumeSourceVolumeHandle -> V1CSIPersistentVolumeSource { v1CSIPersistentVolumeSourceVolumeHandle, ..} ) <$> f v1CSIPersistentVolumeSourceVolumeHandle +{-# INLINE v1CSIPersistentVolumeSourceVolumeHandleL #-} + + + +-- * V1CSIStorageCapacity + +-- | 'v1CSIStorageCapacityApiVersion' Lens +v1CSIStorageCapacityApiVersionL :: Lens_' V1CSIStorageCapacity (Maybe Text) +v1CSIStorageCapacityApiVersionL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityApiVersion -> V1CSIStorageCapacity { v1CSIStorageCapacityApiVersion, ..} ) <$> f v1CSIStorageCapacityApiVersion +{-# INLINE v1CSIStorageCapacityApiVersionL #-} + +-- | 'v1CSIStorageCapacityCapacity' Lens +v1CSIStorageCapacityCapacityL :: Lens_' V1CSIStorageCapacity (Maybe Quantity) +v1CSIStorageCapacityCapacityL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityCapacity -> V1CSIStorageCapacity { v1CSIStorageCapacityCapacity, ..} ) <$> f v1CSIStorageCapacityCapacity +{-# INLINE v1CSIStorageCapacityCapacityL #-} + +-- | 'v1CSIStorageCapacityKind' Lens +v1CSIStorageCapacityKindL :: Lens_' V1CSIStorageCapacity (Maybe Text) +v1CSIStorageCapacityKindL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityKind -> V1CSIStorageCapacity { v1CSIStorageCapacityKind, ..} ) <$> f v1CSIStorageCapacityKind +{-# INLINE v1CSIStorageCapacityKindL #-} + +-- | 'v1CSIStorageCapacityMaximumVolumeSize' Lens +v1CSIStorageCapacityMaximumVolumeSizeL :: Lens_' V1CSIStorageCapacity (Maybe Quantity) +v1CSIStorageCapacityMaximumVolumeSizeL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityMaximumVolumeSize -> V1CSIStorageCapacity { v1CSIStorageCapacityMaximumVolumeSize, ..} ) <$> f v1CSIStorageCapacityMaximumVolumeSize +{-# INLINE v1CSIStorageCapacityMaximumVolumeSizeL #-} + +-- | 'v1CSIStorageCapacityMetadata' Lens +v1CSIStorageCapacityMetadataL :: Lens_' V1CSIStorageCapacity (Maybe V1ObjectMeta) +v1CSIStorageCapacityMetadataL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityMetadata -> V1CSIStorageCapacity { v1CSIStorageCapacityMetadata, ..} ) <$> f v1CSIStorageCapacityMetadata +{-# INLINE v1CSIStorageCapacityMetadataL #-} + +-- | 'v1CSIStorageCapacityNodeTopology' Lens +v1CSIStorageCapacityNodeTopologyL :: Lens_' V1CSIStorageCapacity (Maybe V1LabelSelector) +v1CSIStorageCapacityNodeTopologyL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityNodeTopology -> V1CSIStorageCapacity { v1CSIStorageCapacityNodeTopology, ..} ) <$> f v1CSIStorageCapacityNodeTopology +{-# INLINE v1CSIStorageCapacityNodeTopologyL #-} + +-- | 'v1CSIStorageCapacityStorageClassName' Lens +v1CSIStorageCapacityStorageClassNameL :: Lens_' V1CSIStorageCapacity (Text) +v1CSIStorageCapacityStorageClassNameL f V1CSIStorageCapacity{..} = (\v1CSIStorageCapacityStorageClassName -> V1CSIStorageCapacity { v1CSIStorageCapacityStorageClassName, ..} ) <$> f v1CSIStorageCapacityStorageClassName +{-# INLINE v1CSIStorageCapacityStorageClassNameL #-} + + + +-- * V1CSIStorageCapacityList + +-- | 'v1CSIStorageCapacityListApiVersion' Lens +v1CSIStorageCapacityListApiVersionL :: Lens_' V1CSIStorageCapacityList (Maybe Text) +v1CSIStorageCapacityListApiVersionL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListApiVersion -> V1CSIStorageCapacityList { v1CSIStorageCapacityListApiVersion, ..} ) <$> f v1CSIStorageCapacityListApiVersion +{-# INLINE v1CSIStorageCapacityListApiVersionL #-} + +-- | 'v1CSIStorageCapacityListItems' Lens +v1CSIStorageCapacityListItemsL :: Lens_' V1CSIStorageCapacityList ([V1CSIStorageCapacity]) +v1CSIStorageCapacityListItemsL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListItems -> V1CSIStorageCapacityList { v1CSIStorageCapacityListItems, ..} ) <$> f v1CSIStorageCapacityListItems +{-# INLINE v1CSIStorageCapacityListItemsL #-} + +-- | 'v1CSIStorageCapacityListKind' Lens +v1CSIStorageCapacityListKindL :: Lens_' V1CSIStorageCapacityList (Maybe Text) +v1CSIStorageCapacityListKindL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListKind -> V1CSIStorageCapacityList { v1CSIStorageCapacityListKind, ..} ) <$> f v1CSIStorageCapacityListKind +{-# INLINE v1CSIStorageCapacityListKindL #-} + +-- | 'v1CSIStorageCapacityListMetadata' Lens +v1CSIStorageCapacityListMetadataL :: Lens_' V1CSIStorageCapacityList (Maybe V1ListMeta) +v1CSIStorageCapacityListMetadataL f V1CSIStorageCapacityList{..} = (\v1CSIStorageCapacityListMetadata -> V1CSIStorageCapacityList { v1CSIStorageCapacityListMetadata, ..} ) <$> f v1CSIStorageCapacityListMetadata +{-# INLINE v1CSIStorageCapacityListMetadataL #-} + + + +-- * V1CSIVolumeSource + +-- | 'v1CSIVolumeSourceDriver' Lens +v1CSIVolumeSourceDriverL :: Lens_' V1CSIVolumeSource (Text) +v1CSIVolumeSourceDriverL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceDriver -> V1CSIVolumeSource { v1CSIVolumeSourceDriver, ..} ) <$> f v1CSIVolumeSourceDriver +{-# INLINE v1CSIVolumeSourceDriverL #-} + +-- | 'v1CSIVolumeSourceFsType' Lens +v1CSIVolumeSourceFsTypeL :: Lens_' V1CSIVolumeSource (Maybe Text) +v1CSIVolumeSourceFsTypeL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceFsType -> V1CSIVolumeSource { v1CSIVolumeSourceFsType, ..} ) <$> f v1CSIVolumeSourceFsType +{-# INLINE v1CSIVolumeSourceFsTypeL #-} + +-- | 'v1CSIVolumeSourceNodePublishSecretRef' Lens +v1CSIVolumeSourceNodePublishSecretRefL :: Lens_' V1CSIVolumeSource (Maybe V1LocalObjectReference) +v1CSIVolumeSourceNodePublishSecretRefL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceNodePublishSecretRef -> V1CSIVolumeSource { v1CSIVolumeSourceNodePublishSecretRef, ..} ) <$> f v1CSIVolumeSourceNodePublishSecretRef +{-# INLINE v1CSIVolumeSourceNodePublishSecretRefL #-} + +-- | 'v1CSIVolumeSourceReadOnly' Lens +v1CSIVolumeSourceReadOnlyL :: Lens_' V1CSIVolumeSource (Maybe Bool) +v1CSIVolumeSourceReadOnlyL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceReadOnly -> V1CSIVolumeSource { v1CSIVolumeSourceReadOnly, ..} ) <$> f v1CSIVolumeSourceReadOnly +{-# INLINE v1CSIVolumeSourceReadOnlyL #-} + +-- | 'v1CSIVolumeSourceVolumeAttributes' Lens +v1CSIVolumeSourceVolumeAttributesL :: Lens_' V1CSIVolumeSource (Maybe (Map.Map String Text)) +v1CSIVolumeSourceVolumeAttributesL f V1CSIVolumeSource{..} = (\v1CSIVolumeSourceVolumeAttributes -> V1CSIVolumeSource { v1CSIVolumeSourceVolumeAttributes, ..} ) <$> f v1CSIVolumeSourceVolumeAttributes +{-# INLINE v1CSIVolumeSourceVolumeAttributesL #-} + + + +-- * V1Capabilities + +-- | 'v1CapabilitiesAdd' Lens +v1CapabilitiesAddL :: Lens_' V1Capabilities (Maybe [Text]) +v1CapabilitiesAddL f V1Capabilities{..} = (\v1CapabilitiesAdd -> V1Capabilities { v1CapabilitiesAdd, ..} ) <$> f v1CapabilitiesAdd +{-# INLINE v1CapabilitiesAddL #-} + +-- | 'v1CapabilitiesDrop' Lens +v1CapabilitiesDropL :: Lens_' V1Capabilities (Maybe [Text]) +v1CapabilitiesDropL f V1Capabilities{..} = (\v1CapabilitiesDrop -> V1Capabilities { v1CapabilitiesDrop, ..} ) <$> f v1CapabilitiesDrop +{-# INLINE v1CapabilitiesDropL #-} + + + +-- * V1CephFSPersistentVolumeSource + +-- | 'v1CephFSPersistentVolumeSourceMonitors' Lens +v1CephFSPersistentVolumeSourceMonitorsL :: Lens_' V1CephFSPersistentVolumeSource ([Text]) +v1CephFSPersistentVolumeSourceMonitorsL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceMonitors -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceMonitors, ..} ) <$> f v1CephFSPersistentVolumeSourceMonitors +{-# INLINE v1CephFSPersistentVolumeSourceMonitorsL #-} + +-- | 'v1CephFSPersistentVolumeSourcePath' Lens +v1CephFSPersistentVolumeSourcePathL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) +v1CephFSPersistentVolumeSourcePathL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourcePath -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourcePath, ..} ) <$> f v1CephFSPersistentVolumeSourcePath +{-# INLINE v1CephFSPersistentVolumeSourcePathL #-} + +-- | 'v1CephFSPersistentVolumeSourceReadOnly' Lens +v1CephFSPersistentVolumeSourceReadOnlyL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Bool) +v1CephFSPersistentVolumeSourceReadOnlyL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceReadOnly -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceReadOnly, ..} ) <$> f v1CephFSPersistentVolumeSourceReadOnly +{-# INLINE v1CephFSPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1CephFSPersistentVolumeSourceSecretFile' Lens +v1CephFSPersistentVolumeSourceSecretFileL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) +v1CephFSPersistentVolumeSourceSecretFileL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceSecretFile -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceSecretFile, ..} ) <$> f v1CephFSPersistentVolumeSourceSecretFile +{-# INLINE v1CephFSPersistentVolumeSourceSecretFileL #-} + +-- | 'v1CephFSPersistentVolumeSourceSecretRef' Lens +v1CephFSPersistentVolumeSourceSecretRefL :: Lens_' V1CephFSPersistentVolumeSource (Maybe V1SecretReference) +v1CephFSPersistentVolumeSourceSecretRefL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceSecretRef -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceSecretRef, ..} ) <$> f v1CephFSPersistentVolumeSourceSecretRef +{-# INLINE v1CephFSPersistentVolumeSourceSecretRefL #-} + +-- | 'v1CephFSPersistentVolumeSourceUser' Lens +v1CephFSPersistentVolumeSourceUserL :: Lens_' V1CephFSPersistentVolumeSource (Maybe Text) +v1CephFSPersistentVolumeSourceUserL f V1CephFSPersistentVolumeSource{..} = (\v1CephFSPersistentVolumeSourceUser -> V1CephFSPersistentVolumeSource { v1CephFSPersistentVolumeSourceUser, ..} ) <$> f v1CephFSPersistentVolumeSourceUser +{-# INLINE v1CephFSPersistentVolumeSourceUserL #-} + + + +-- * V1CephFSVolumeSource + +-- | 'v1CephFSVolumeSourceMonitors' Lens +v1CephFSVolumeSourceMonitorsL :: Lens_' V1CephFSVolumeSource ([Text]) +v1CephFSVolumeSourceMonitorsL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceMonitors -> V1CephFSVolumeSource { v1CephFSVolumeSourceMonitors, ..} ) <$> f v1CephFSVolumeSourceMonitors +{-# INLINE v1CephFSVolumeSourceMonitorsL #-} + +-- | 'v1CephFSVolumeSourcePath' Lens +v1CephFSVolumeSourcePathL :: Lens_' V1CephFSVolumeSource (Maybe Text) +v1CephFSVolumeSourcePathL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourcePath -> V1CephFSVolumeSource { v1CephFSVolumeSourcePath, ..} ) <$> f v1CephFSVolumeSourcePath +{-# INLINE v1CephFSVolumeSourcePathL #-} + +-- | 'v1CephFSVolumeSourceReadOnly' Lens +v1CephFSVolumeSourceReadOnlyL :: Lens_' V1CephFSVolumeSource (Maybe Bool) +v1CephFSVolumeSourceReadOnlyL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceReadOnly -> V1CephFSVolumeSource { v1CephFSVolumeSourceReadOnly, ..} ) <$> f v1CephFSVolumeSourceReadOnly +{-# INLINE v1CephFSVolumeSourceReadOnlyL #-} + +-- | 'v1CephFSVolumeSourceSecretFile' Lens +v1CephFSVolumeSourceSecretFileL :: Lens_' V1CephFSVolumeSource (Maybe Text) +v1CephFSVolumeSourceSecretFileL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceSecretFile -> V1CephFSVolumeSource { v1CephFSVolumeSourceSecretFile, ..} ) <$> f v1CephFSVolumeSourceSecretFile +{-# INLINE v1CephFSVolumeSourceSecretFileL #-} + +-- | 'v1CephFSVolumeSourceSecretRef' Lens +v1CephFSVolumeSourceSecretRefL :: Lens_' V1CephFSVolumeSource (Maybe V1LocalObjectReference) +v1CephFSVolumeSourceSecretRefL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceSecretRef -> V1CephFSVolumeSource { v1CephFSVolumeSourceSecretRef, ..} ) <$> f v1CephFSVolumeSourceSecretRef +{-# INLINE v1CephFSVolumeSourceSecretRefL #-} + +-- | 'v1CephFSVolumeSourceUser' Lens +v1CephFSVolumeSourceUserL :: Lens_' V1CephFSVolumeSource (Maybe Text) +v1CephFSVolumeSourceUserL f V1CephFSVolumeSource{..} = (\v1CephFSVolumeSourceUser -> V1CephFSVolumeSource { v1CephFSVolumeSourceUser, ..} ) <$> f v1CephFSVolumeSourceUser +{-# INLINE v1CephFSVolumeSourceUserL #-} + + + +-- * V1CertificateSigningRequest + +-- | 'v1CertificateSigningRequestApiVersion' Lens +v1CertificateSigningRequestApiVersionL :: Lens_' V1CertificateSigningRequest (Maybe Text) +v1CertificateSigningRequestApiVersionL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestApiVersion -> V1CertificateSigningRequest { v1CertificateSigningRequestApiVersion, ..} ) <$> f v1CertificateSigningRequestApiVersion +{-# INLINE v1CertificateSigningRequestApiVersionL #-} + +-- | 'v1CertificateSigningRequestKind' Lens +v1CertificateSigningRequestKindL :: Lens_' V1CertificateSigningRequest (Maybe Text) +v1CertificateSigningRequestKindL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestKind -> V1CertificateSigningRequest { v1CertificateSigningRequestKind, ..} ) <$> f v1CertificateSigningRequestKind +{-# INLINE v1CertificateSigningRequestKindL #-} + +-- | 'v1CertificateSigningRequestMetadata' Lens +v1CertificateSigningRequestMetadataL :: Lens_' V1CertificateSigningRequest (Maybe V1ObjectMeta) +v1CertificateSigningRequestMetadataL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestMetadata -> V1CertificateSigningRequest { v1CertificateSigningRequestMetadata, ..} ) <$> f v1CertificateSigningRequestMetadata +{-# INLINE v1CertificateSigningRequestMetadataL #-} + +-- | 'v1CertificateSigningRequestSpec' Lens +v1CertificateSigningRequestSpecL :: Lens_' V1CertificateSigningRequest (V1CertificateSigningRequestSpec) +v1CertificateSigningRequestSpecL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestSpec -> V1CertificateSigningRequest { v1CertificateSigningRequestSpec, ..} ) <$> f v1CertificateSigningRequestSpec +{-# INLINE v1CertificateSigningRequestSpecL #-} + +-- | 'v1CertificateSigningRequestStatus' Lens +v1CertificateSigningRequestStatusL :: Lens_' V1CertificateSigningRequest (Maybe V1CertificateSigningRequestStatus) +v1CertificateSigningRequestStatusL f V1CertificateSigningRequest{..} = (\v1CertificateSigningRequestStatus -> V1CertificateSigningRequest { v1CertificateSigningRequestStatus, ..} ) <$> f v1CertificateSigningRequestStatus +{-# INLINE v1CertificateSigningRequestStatusL #-} + + + +-- * V1CertificateSigningRequestCondition + +-- | 'v1CertificateSigningRequestConditionLastTransitionTime' Lens +v1CertificateSigningRequestConditionLastTransitionTimeL :: Lens_' V1CertificateSigningRequestCondition (Maybe DateTime) +v1CertificateSigningRequestConditionLastTransitionTimeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionLastTransitionTime -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionLastTransitionTime, ..} ) <$> f v1CertificateSigningRequestConditionLastTransitionTime +{-# INLINE v1CertificateSigningRequestConditionLastTransitionTimeL #-} + +-- | 'v1CertificateSigningRequestConditionLastUpdateTime' Lens +v1CertificateSigningRequestConditionLastUpdateTimeL :: Lens_' V1CertificateSigningRequestCondition (Maybe DateTime) +v1CertificateSigningRequestConditionLastUpdateTimeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionLastUpdateTime -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionLastUpdateTime, ..} ) <$> f v1CertificateSigningRequestConditionLastUpdateTime +{-# INLINE v1CertificateSigningRequestConditionLastUpdateTimeL #-} + +-- | 'v1CertificateSigningRequestConditionMessage' Lens +v1CertificateSigningRequestConditionMessageL :: Lens_' V1CertificateSigningRequestCondition (Maybe Text) +v1CertificateSigningRequestConditionMessageL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionMessage -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionMessage, ..} ) <$> f v1CertificateSigningRequestConditionMessage +{-# INLINE v1CertificateSigningRequestConditionMessageL #-} + +-- | 'v1CertificateSigningRequestConditionReason' Lens +v1CertificateSigningRequestConditionReasonL :: Lens_' V1CertificateSigningRequestCondition (Maybe Text) +v1CertificateSigningRequestConditionReasonL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionReason -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionReason, ..} ) <$> f v1CertificateSigningRequestConditionReason +{-# INLINE v1CertificateSigningRequestConditionReasonL #-} + +-- | 'v1CertificateSigningRequestConditionStatus' Lens +v1CertificateSigningRequestConditionStatusL :: Lens_' V1CertificateSigningRequestCondition (Text) +v1CertificateSigningRequestConditionStatusL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionStatus -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionStatus, ..} ) <$> f v1CertificateSigningRequestConditionStatus +{-# INLINE v1CertificateSigningRequestConditionStatusL #-} + +-- | 'v1CertificateSigningRequestConditionType' Lens +v1CertificateSigningRequestConditionTypeL :: Lens_' V1CertificateSigningRequestCondition (Text) +v1CertificateSigningRequestConditionTypeL f V1CertificateSigningRequestCondition{..} = (\v1CertificateSigningRequestConditionType -> V1CertificateSigningRequestCondition { v1CertificateSigningRequestConditionType, ..} ) <$> f v1CertificateSigningRequestConditionType +{-# INLINE v1CertificateSigningRequestConditionTypeL #-} + + + +-- * V1CertificateSigningRequestList + +-- | 'v1CertificateSigningRequestListApiVersion' Lens +v1CertificateSigningRequestListApiVersionL :: Lens_' V1CertificateSigningRequestList (Maybe Text) +v1CertificateSigningRequestListApiVersionL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListApiVersion -> V1CertificateSigningRequestList { v1CertificateSigningRequestListApiVersion, ..} ) <$> f v1CertificateSigningRequestListApiVersion +{-# INLINE v1CertificateSigningRequestListApiVersionL #-} + +-- | 'v1CertificateSigningRequestListItems' Lens +v1CertificateSigningRequestListItemsL :: Lens_' V1CertificateSigningRequestList ([V1CertificateSigningRequest]) +v1CertificateSigningRequestListItemsL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListItems -> V1CertificateSigningRequestList { v1CertificateSigningRequestListItems, ..} ) <$> f v1CertificateSigningRequestListItems +{-# INLINE v1CertificateSigningRequestListItemsL #-} + +-- | 'v1CertificateSigningRequestListKind' Lens +v1CertificateSigningRequestListKindL :: Lens_' V1CertificateSigningRequestList (Maybe Text) +v1CertificateSigningRequestListKindL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListKind -> V1CertificateSigningRequestList { v1CertificateSigningRequestListKind, ..} ) <$> f v1CertificateSigningRequestListKind +{-# INLINE v1CertificateSigningRequestListKindL #-} + +-- | 'v1CertificateSigningRequestListMetadata' Lens +v1CertificateSigningRequestListMetadataL :: Lens_' V1CertificateSigningRequestList (Maybe V1ListMeta) +v1CertificateSigningRequestListMetadataL f V1CertificateSigningRequestList{..} = (\v1CertificateSigningRequestListMetadata -> V1CertificateSigningRequestList { v1CertificateSigningRequestListMetadata, ..} ) <$> f v1CertificateSigningRequestListMetadata +{-# INLINE v1CertificateSigningRequestListMetadataL #-} + + + +-- * V1CertificateSigningRequestSpec + +-- | 'v1CertificateSigningRequestSpecExpirationSeconds' Lens +v1CertificateSigningRequestSpecExpirationSecondsL :: Lens_' V1CertificateSigningRequestSpec (Maybe Int) +v1CertificateSigningRequestSpecExpirationSecondsL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecExpirationSeconds -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecExpirationSeconds, ..} ) <$> f v1CertificateSigningRequestSpecExpirationSeconds +{-# INLINE v1CertificateSigningRequestSpecExpirationSecondsL #-} + +-- | 'v1CertificateSigningRequestSpecExtra' Lens +v1CertificateSigningRequestSpecExtraL :: Lens_' V1CertificateSigningRequestSpec (Maybe (Map.Map String [Text])) +v1CertificateSigningRequestSpecExtraL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecExtra -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecExtra, ..} ) <$> f v1CertificateSigningRequestSpecExtra +{-# INLINE v1CertificateSigningRequestSpecExtraL #-} + +-- | 'v1CertificateSigningRequestSpecGroups' Lens +v1CertificateSigningRequestSpecGroupsL :: Lens_' V1CertificateSigningRequestSpec (Maybe [Text]) +v1CertificateSigningRequestSpecGroupsL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecGroups -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecGroups, ..} ) <$> f v1CertificateSigningRequestSpecGroups +{-# INLINE v1CertificateSigningRequestSpecGroupsL #-} + +-- | 'v1CertificateSigningRequestSpecRequest' Lens +v1CertificateSigningRequestSpecRequestL :: Lens_' V1CertificateSigningRequestSpec (ByteArray) +v1CertificateSigningRequestSpecRequestL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecRequest -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecRequest, ..} ) <$> f v1CertificateSigningRequestSpecRequest +{-# INLINE v1CertificateSigningRequestSpecRequestL #-} + +-- | 'v1CertificateSigningRequestSpecSignerName' Lens +v1CertificateSigningRequestSpecSignerNameL :: Lens_' V1CertificateSigningRequestSpec (Text) +v1CertificateSigningRequestSpecSignerNameL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecSignerName -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecSignerName, ..} ) <$> f v1CertificateSigningRequestSpecSignerName +{-# INLINE v1CertificateSigningRequestSpecSignerNameL #-} + +-- | 'v1CertificateSigningRequestSpecUid' Lens +v1CertificateSigningRequestSpecUidL :: Lens_' V1CertificateSigningRequestSpec (Maybe Text) +v1CertificateSigningRequestSpecUidL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUid -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUid, ..} ) <$> f v1CertificateSigningRequestSpecUid +{-# INLINE v1CertificateSigningRequestSpecUidL #-} + +-- | 'v1CertificateSigningRequestSpecUsages' Lens +v1CertificateSigningRequestSpecUsagesL :: Lens_' V1CertificateSigningRequestSpec (Maybe [Text]) +v1CertificateSigningRequestSpecUsagesL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUsages -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUsages, ..} ) <$> f v1CertificateSigningRequestSpecUsages +{-# INLINE v1CertificateSigningRequestSpecUsagesL #-} + +-- | 'v1CertificateSigningRequestSpecUsername' Lens +v1CertificateSigningRequestSpecUsernameL :: Lens_' V1CertificateSigningRequestSpec (Maybe Text) +v1CertificateSigningRequestSpecUsernameL f V1CertificateSigningRequestSpec{..} = (\v1CertificateSigningRequestSpecUsername -> V1CertificateSigningRequestSpec { v1CertificateSigningRequestSpecUsername, ..} ) <$> f v1CertificateSigningRequestSpecUsername +{-# INLINE v1CertificateSigningRequestSpecUsernameL #-} + + + +-- * V1CertificateSigningRequestStatus + +-- | 'v1CertificateSigningRequestStatusCertificate' Lens +v1CertificateSigningRequestStatusCertificateL :: Lens_' V1CertificateSigningRequestStatus (Maybe ByteArray) +v1CertificateSigningRequestStatusCertificateL f V1CertificateSigningRequestStatus{..} = (\v1CertificateSigningRequestStatusCertificate -> V1CertificateSigningRequestStatus { v1CertificateSigningRequestStatusCertificate, ..} ) <$> f v1CertificateSigningRequestStatusCertificate +{-# INLINE v1CertificateSigningRequestStatusCertificateL #-} + +-- | 'v1CertificateSigningRequestStatusConditions' Lens +v1CertificateSigningRequestStatusConditionsL :: Lens_' V1CertificateSigningRequestStatus (Maybe [V1CertificateSigningRequestCondition]) +v1CertificateSigningRequestStatusConditionsL f V1CertificateSigningRequestStatus{..} = (\v1CertificateSigningRequestStatusConditions -> V1CertificateSigningRequestStatus { v1CertificateSigningRequestStatusConditions, ..} ) <$> f v1CertificateSigningRequestStatusConditions +{-# INLINE v1CertificateSigningRequestStatusConditionsL #-} + + + +-- * V1CinderPersistentVolumeSource + +-- | 'v1CinderPersistentVolumeSourceFsType' Lens +v1CinderPersistentVolumeSourceFsTypeL :: Lens_' V1CinderPersistentVolumeSource (Maybe Text) +v1CinderPersistentVolumeSourceFsTypeL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceFsType -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceFsType, ..} ) <$> f v1CinderPersistentVolumeSourceFsType +{-# INLINE v1CinderPersistentVolumeSourceFsTypeL #-} + +-- | 'v1CinderPersistentVolumeSourceReadOnly' Lens +v1CinderPersistentVolumeSourceReadOnlyL :: Lens_' V1CinderPersistentVolumeSource (Maybe Bool) +v1CinderPersistentVolumeSourceReadOnlyL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceReadOnly -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceReadOnly, ..} ) <$> f v1CinderPersistentVolumeSourceReadOnly +{-# INLINE v1CinderPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1CinderPersistentVolumeSourceSecretRef' Lens +v1CinderPersistentVolumeSourceSecretRefL :: Lens_' V1CinderPersistentVolumeSource (Maybe V1SecretReference) +v1CinderPersistentVolumeSourceSecretRefL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceSecretRef -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceSecretRef, ..} ) <$> f v1CinderPersistentVolumeSourceSecretRef +{-# INLINE v1CinderPersistentVolumeSourceSecretRefL #-} + +-- | 'v1CinderPersistentVolumeSourceVolumeId' Lens +v1CinderPersistentVolumeSourceVolumeIdL :: Lens_' V1CinderPersistentVolumeSource (Text) +v1CinderPersistentVolumeSourceVolumeIdL f V1CinderPersistentVolumeSource{..} = (\v1CinderPersistentVolumeSourceVolumeId -> V1CinderPersistentVolumeSource { v1CinderPersistentVolumeSourceVolumeId, ..} ) <$> f v1CinderPersistentVolumeSourceVolumeId +{-# INLINE v1CinderPersistentVolumeSourceVolumeIdL #-} + + + +-- * V1CinderVolumeSource + +-- | 'v1CinderVolumeSourceFsType' Lens +v1CinderVolumeSourceFsTypeL :: Lens_' V1CinderVolumeSource (Maybe Text) +v1CinderVolumeSourceFsTypeL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceFsType -> V1CinderVolumeSource { v1CinderVolumeSourceFsType, ..} ) <$> f v1CinderVolumeSourceFsType +{-# INLINE v1CinderVolumeSourceFsTypeL #-} + +-- | 'v1CinderVolumeSourceReadOnly' Lens +v1CinderVolumeSourceReadOnlyL :: Lens_' V1CinderVolumeSource (Maybe Bool) +v1CinderVolumeSourceReadOnlyL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceReadOnly -> V1CinderVolumeSource { v1CinderVolumeSourceReadOnly, ..} ) <$> f v1CinderVolumeSourceReadOnly +{-# INLINE v1CinderVolumeSourceReadOnlyL #-} + +-- | 'v1CinderVolumeSourceSecretRef' Lens +v1CinderVolumeSourceSecretRefL :: Lens_' V1CinderVolumeSource (Maybe V1LocalObjectReference) +v1CinderVolumeSourceSecretRefL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceSecretRef -> V1CinderVolumeSource { v1CinderVolumeSourceSecretRef, ..} ) <$> f v1CinderVolumeSourceSecretRef +{-# INLINE v1CinderVolumeSourceSecretRefL #-} + +-- | 'v1CinderVolumeSourceVolumeId' Lens +v1CinderVolumeSourceVolumeIdL :: Lens_' V1CinderVolumeSource (Text) +v1CinderVolumeSourceVolumeIdL f V1CinderVolumeSource{..} = (\v1CinderVolumeSourceVolumeId -> V1CinderVolumeSource { v1CinderVolumeSourceVolumeId, ..} ) <$> f v1CinderVolumeSourceVolumeId +{-# INLINE v1CinderVolumeSourceVolumeIdL #-} + + + +-- * V1ClaimSource + +-- | 'v1ClaimSourceResourceClaimName' Lens +v1ClaimSourceResourceClaimNameL :: Lens_' V1ClaimSource (Maybe Text) +v1ClaimSourceResourceClaimNameL f V1ClaimSource{..} = (\v1ClaimSourceResourceClaimName -> V1ClaimSource { v1ClaimSourceResourceClaimName, ..} ) <$> f v1ClaimSourceResourceClaimName +{-# INLINE v1ClaimSourceResourceClaimNameL #-} + +-- | 'v1ClaimSourceResourceClaimTemplateName' Lens +v1ClaimSourceResourceClaimTemplateNameL :: Lens_' V1ClaimSource (Maybe Text) +v1ClaimSourceResourceClaimTemplateNameL f V1ClaimSource{..} = (\v1ClaimSourceResourceClaimTemplateName -> V1ClaimSource { v1ClaimSourceResourceClaimTemplateName, ..} ) <$> f v1ClaimSourceResourceClaimTemplateName +{-# INLINE v1ClaimSourceResourceClaimTemplateNameL #-} + + + +-- * V1ClientIPConfig + +-- | 'v1ClientIPConfigTimeoutSeconds' Lens +v1ClientIPConfigTimeoutSecondsL :: Lens_' V1ClientIPConfig (Maybe Int) +v1ClientIPConfigTimeoutSecondsL f V1ClientIPConfig{..} = (\v1ClientIPConfigTimeoutSeconds -> V1ClientIPConfig { v1ClientIPConfigTimeoutSeconds, ..} ) <$> f v1ClientIPConfigTimeoutSeconds +{-# INLINE v1ClientIPConfigTimeoutSecondsL #-} + + + +-- * V1ClusterRole + +-- | 'v1ClusterRoleAggregationRule' Lens +v1ClusterRoleAggregationRuleL :: Lens_' V1ClusterRole (Maybe V1AggregationRule) +v1ClusterRoleAggregationRuleL f V1ClusterRole{..} = (\v1ClusterRoleAggregationRule -> V1ClusterRole { v1ClusterRoleAggregationRule, ..} ) <$> f v1ClusterRoleAggregationRule +{-# INLINE v1ClusterRoleAggregationRuleL #-} + +-- | 'v1ClusterRoleApiVersion' Lens +v1ClusterRoleApiVersionL :: Lens_' V1ClusterRole (Maybe Text) +v1ClusterRoleApiVersionL f V1ClusterRole{..} = (\v1ClusterRoleApiVersion -> V1ClusterRole { v1ClusterRoleApiVersion, ..} ) <$> f v1ClusterRoleApiVersion +{-# INLINE v1ClusterRoleApiVersionL #-} + +-- | 'v1ClusterRoleKind' Lens +v1ClusterRoleKindL :: Lens_' V1ClusterRole (Maybe Text) +v1ClusterRoleKindL f V1ClusterRole{..} = (\v1ClusterRoleKind -> V1ClusterRole { v1ClusterRoleKind, ..} ) <$> f v1ClusterRoleKind +{-# INLINE v1ClusterRoleKindL #-} + +-- | 'v1ClusterRoleMetadata' Lens +v1ClusterRoleMetadataL :: Lens_' V1ClusterRole (Maybe V1ObjectMeta) +v1ClusterRoleMetadataL f V1ClusterRole{..} = (\v1ClusterRoleMetadata -> V1ClusterRole { v1ClusterRoleMetadata, ..} ) <$> f v1ClusterRoleMetadata +{-# INLINE v1ClusterRoleMetadataL #-} + +-- | 'v1ClusterRoleRules' Lens +v1ClusterRoleRulesL :: Lens_' V1ClusterRole (Maybe [V1PolicyRule]) +v1ClusterRoleRulesL f V1ClusterRole{..} = (\v1ClusterRoleRules -> V1ClusterRole { v1ClusterRoleRules, ..} ) <$> f v1ClusterRoleRules +{-# INLINE v1ClusterRoleRulesL #-} + + + +-- * V1ClusterRoleBinding + +-- | 'v1ClusterRoleBindingApiVersion' Lens +v1ClusterRoleBindingApiVersionL :: Lens_' V1ClusterRoleBinding (Maybe Text) +v1ClusterRoleBindingApiVersionL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingApiVersion -> V1ClusterRoleBinding { v1ClusterRoleBindingApiVersion, ..} ) <$> f v1ClusterRoleBindingApiVersion +{-# INLINE v1ClusterRoleBindingApiVersionL #-} + +-- | 'v1ClusterRoleBindingKind' Lens +v1ClusterRoleBindingKindL :: Lens_' V1ClusterRoleBinding (Maybe Text) +v1ClusterRoleBindingKindL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingKind -> V1ClusterRoleBinding { v1ClusterRoleBindingKind, ..} ) <$> f v1ClusterRoleBindingKind +{-# INLINE v1ClusterRoleBindingKindL #-} + +-- | 'v1ClusterRoleBindingMetadata' Lens +v1ClusterRoleBindingMetadataL :: Lens_' V1ClusterRoleBinding (Maybe V1ObjectMeta) +v1ClusterRoleBindingMetadataL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingMetadata -> V1ClusterRoleBinding { v1ClusterRoleBindingMetadata, ..} ) <$> f v1ClusterRoleBindingMetadata +{-# INLINE v1ClusterRoleBindingMetadataL #-} + +-- | 'v1ClusterRoleBindingRoleRef' Lens +v1ClusterRoleBindingRoleRefL :: Lens_' V1ClusterRoleBinding (V1RoleRef) +v1ClusterRoleBindingRoleRefL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingRoleRef -> V1ClusterRoleBinding { v1ClusterRoleBindingRoleRef, ..} ) <$> f v1ClusterRoleBindingRoleRef +{-# INLINE v1ClusterRoleBindingRoleRefL #-} + +-- | 'v1ClusterRoleBindingSubjects' Lens +v1ClusterRoleBindingSubjectsL :: Lens_' V1ClusterRoleBinding (Maybe [V1Subject]) +v1ClusterRoleBindingSubjectsL f V1ClusterRoleBinding{..} = (\v1ClusterRoleBindingSubjects -> V1ClusterRoleBinding { v1ClusterRoleBindingSubjects, ..} ) <$> f v1ClusterRoleBindingSubjects +{-# INLINE v1ClusterRoleBindingSubjectsL #-} + + + +-- * V1ClusterRoleBindingList + +-- | 'v1ClusterRoleBindingListApiVersion' Lens +v1ClusterRoleBindingListApiVersionL :: Lens_' V1ClusterRoleBindingList (Maybe Text) +v1ClusterRoleBindingListApiVersionL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListApiVersion -> V1ClusterRoleBindingList { v1ClusterRoleBindingListApiVersion, ..} ) <$> f v1ClusterRoleBindingListApiVersion +{-# INLINE v1ClusterRoleBindingListApiVersionL #-} + +-- | 'v1ClusterRoleBindingListItems' Lens +v1ClusterRoleBindingListItemsL :: Lens_' V1ClusterRoleBindingList ([V1ClusterRoleBinding]) +v1ClusterRoleBindingListItemsL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListItems -> V1ClusterRoleBindingList { v1ClusterRoleBindingListItems, ..} ) <$> f v1ClusterRoleBindingListItems +{-# INLINE v1ClusterRoleBindingListItemsL #-} + +-- | 'v1ClusterRoleBindingListKind' Lens +v1ClusterRoleBindingListKindL :: Lens_' V1ClusterRoleBindingList (Maybe Text) +v1ClusterRoleBindingListKindL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListKind -> V1ClusterRoleBindingList { v1ClusterRoleBindingListKind, ..} ) <$> f v1ClusterRoleBindingListKind +{-# INLINE v1ClusterRoleBindingListKindL #-} + +-- | 'v1ClusterRoleBindingListMetadata' Lens +v1ClusterRoleBindingListMetadataL :: Lens_' V1ClusterRoleBindingList (Maybe V1ListMeta) +v1ClusterRoleBindingListMetadataL f V1ClusterRoleBindingList{..} = (\v1ClusterRoleBindingListMetadata -> V1ClusterRoleBindingList { v1ClusterRoleBindingListMetadata, ..} ) <$> f v1ClusterRoleBindingListMetadata +{-# INLINE v1ClusterRoleBindingListMetadataL #-} + + + +-- * V1ClusterRoleList + +-- | 'v1ClusterRoleListApiVersion' Lens +v1ClusterRoleListApiVersionL :: Lens_' V1ClusterRoleList (Maybe Text) +v1ClusterRoleListApiVersionL f V1ClusterRoleList{..} = (\v1ClusterRoleListApiVersion -> V1ClusterRoleList { v1ClusterRoleListApiVersion, ..} ) <$> f v1ClusterRoleListApiVersion +{-# INLINE v1ClusterRoleListApiVersionL #-} + +-- | 'v1ClusterRoleListItems' Lens +v1ClusterRoleListItemsL :: Lens_' V1ClusterRoleList ([V1ClusterRole]) +v1ClusterRoleListItemsL f V1ClusterRoleList{..} = (\v1ClusterRoleListItems -> V1ClusterRoleList { v1ClusterRoleListItems, ..} ) <$> f v1ClusterRoleListItems +{-# INLINE v1ClusterRoleListItemsL #-} + +-- | 'v1ClusterRoleListKind' Lens +v1ClusterRoleListKindL :: Lens_' V1ClusterRoleList (Maybe Text) +v1ClusterRoleListKindL f V1ClusterRoleList{..} = (\v1ClusterRoleListKind -> V1ClusterRoleList { v1ClusterRoleListKind, ..} ) <$> f v1ClusterRoleListKind +{-# INLINE v1ClusterRoleListKindL #-} + +-- | 'v1ClusterRoleListMetadata' Lens +v1ClusterRoleListMetadataL :: Lens_' V1ClusterRoleList (Maybe V1ListMeta) +v1ClusterRoleListMetadataL f V1ClusterRoleList{..} = (\v1ClusterRoleListMetadata -> V1ClusterRoleList { v1ClusterRoleListMetadata, ..} ) <$> f v1ClusterRoleListMetadata +{-# INLINE v1ClusterRoleListMetadataL #-} + + + +-- * V1ComponentCondition + +-- | 'v1ComponentConditionError' Lens +v1ComponentConditionErrorL :: Lens_' V1ComponentCondition (Maybe Text) +v1ComponentConditionErrorL f V1ComponentCondition{..} = (\v1ComponentConditionError -> V1ComponentCondition { v1ComponentConditionError, ..} ) <$> f v1ComponentConditionError +{-# INLINE v1ComponentConditionErrorL #-} + +-- | 'v1ComponentConditionMessage' Lens +v1ComponentConditionMessageL :: Lens_' V1ComponentCondition (Maybe Text) +v1ComponentConditionMessageL f V1ComponentCondition{..} = (\v1ComponentConditionMessage -> V1ComponentCondition { v1ComponentConditionMessage, ..} ) <$> f v1ComponentConditionMessage +{-# INLINE v1ComponentConditionMessageL #-} + +-- | 'v1ComponentConditionStatus' Lens +v1ComponentConditionStatusL :: Lens_' V1ComponentCondition (Text) +v1ComponentConditionStatusL f V1ComponentCondition{..} = (\v1ComponentConditionStatus -> V1ComponentCondition { v1ComponentConditionStatus, ..} ) <$> f v1ComponentConditionStatus +{-# INLINE v1ComponentConditionStatusL #-} + +-- | 'v1ComponentConditionType' Lens +v1ComponentConditionTypeL :: Lens_' V1ComponentCondition (Text) +v1ComponentConditionTypeL f V1ComponentCondition{..} = (\v1ComponentConditionType -> V1ComponentCondition { v1ComponentConditionType, ..} ) <$> f v1ComponentConditionType +{-# INLINE v1ComponentConditionTypeL #-} + + + +-- * V1ComponentStatus + +-- | 'v1ComponentStatusApiVersion' Lens +v1ComponentStatusApiVersionL :: Lens_' V1ComponentStatus (Maybe Text) +v1ComponentStatusApiVersionL f V1ComponentStatus{..} = (\v1ComponentStatusApiVersion -> V1ComponentStatus { v1ComponentStatusApiVersion, ..} ) <$> f v1ComponentStatusApiVersion +{-# INLINE v1ComponentStatusApiVersionL #-} + +-- | 'v1ComponentStatusConditions' Lens +v1ComponentStatusConditionsL :: Lens_' V1ComponentStatus (Maybe [V1ComponentCondition]) +v1ComponentStatusConditionsL f V1ComponentStatus{..} = (\v1ComponentStatusConditions -> V1ComponentStatus { v1ComponentStatusConditions, ..} ) <$> f v1ComponentStatusConditions +{-# INLINE v1ComponentStatusConditionsL #-} + +-- | 'v1ComponentStatusKind' Lens +v1ComponentStatusKindL :: Lens_' V1ComponentStatus (Maybe Text) +v1ComponentStatusKindL f V1ComponentStatus{..} = (\v1ComponentStatusKind -> V1ComponentStatus { v1ComponentStatusKind, ..} ) <$> f v1ComponentStatusKind +{-# INLINE v1ComponentStatusKindL #-} + +-- | 'v1ComponentStatusMetadata' Lens +v1ComponentStatusMetadataL :: Lens_' V1ComponentStatus (Maybe V1ObjectMeta) +v1ComponentStatusMetadataL f V1ComponentStatus{..} = (\v1ComponentStatusMetadata -> V1ComponentStatus { v1ComponentStatusMetadata, ..} ) <$> f v1ComponentStatusMetadata +{-# INLINE v1ComponentStatusMetadataL #-} + + + +-- * V1ComponentStatusList + +-- | 'v1ComponentStatusListApiVersion' Lens +v1ComponentStatusListApiVersionL :: Lens_' V1ComponentStatusList (Maybe Text) +v1ComponentStatusListApiVersionL f V1ComponentStatusList{..} = (\v1ComponentStatusListApiVersion -> V1ComponentStatusList { v1ComponentStatusListApiVersion, ..} ) <$> f v1ComponentStatusListApiVersion +{-# INLINE v1ComponentStatusListApiVersionL #-} + +-- | 'v1ComponentStatusListItems' Lens +v1ComponentStatusListItemsL :: Lens_' V1ComponentStatusList ([V1ComponentStatus]) +v1ComponentStatusListItemsL f V1ComponentStatusList{..} = (\v1ComponentStatusListItems -> V1ComponentStatusList { v1ComponentStatusListItems, ..} ) <$> f v1ComponentStatusListItems +{-# INLINE v1ComponentStatusListItemsL #-} + +-- | 'v1ComponentStatusListKind' Lens +v1ComponentStatusListKindL :: Lens_' V1ComponentStatusList (Maybe Text) +v1ComponentStatusListKindL f V1ComponentStatusList{..} = (\v1ComponentStatusListKind -> V1ComponentStatusList { v1ComponentStatusListKind, ..} ) <$> f v1ComponentStatusListKind +{-# INLINE v1ComponentStatusListKindL #-} + +-- | 'v1ComponentStatusListMetadata' Lens +v1ComponentStatusListMetadataL :: Lens_' V1ComponentStatusList (Maybe V1ListMeta) +v1ComponentStatusListMetadataL f V1ComponentStatusList{..} = (\v1ComponentStatusListMetadata -> V1ComponentStatusList { v1ComponentStatusListMetadata, ..} ) <$> f v1ComponentStatusListMetadata +{-# INLINE v1ComponentStatusListMetadataL #-} + + + +-- * V1Condition + +-- | 'v1ConditionLastTransitionTime' Lens +v1ConditionLastTransitionTimeL :: Lens_' V1Condition (DateTime) +v1ConditionLastTransitionTimeL f V1Condition{..} = (\v1ConditionLastTransitionTime -> V1Condition { v1ConditionLastTransitionTime, ..} ) <$> f v1ConditionLastTransitionTime +{-# INLINE v1ConditionLastTransitionTimeL #-} + +-- | 'v1ConditionMessage' Lens +v1ConditionMessageL :: Lens_' V1Condition (Text) +v1ConditionMessageL f V1Condition{..} = (\v1ConditionMessage -> V1Condition { v1ConditionMessage, ..} ) <$> f v1ConditionMessage +{-# INLINE v1ConditionMessageL #-} + +-- | 'v1ConditionObservedGeneration' Lens +v1ConditionObservedGenerationL :: Lens_' V1Condition (Maybe Integer) +v1ConditionObservedGenerationL f V1Condition{..} = (\v1ConditionObservedGeneration -> V1Condition { v1ConditionObservedGeneration, ..} ) <$> f v1ConditionObservedGeneration +{-# INLINE v1ConditionObservedGenerationL #-} + +-- | 'v1ConditionReason' Lens +v1ConditionReasonL :: Lens_' V1Condition (Text) +v1ConditionReasonL f V1Condition{..} = (\v1ConditionReason -> V1Condition { v1ConditionReason, ..} ) <$> f v1ConditionReason +{-# INLINE v1ConditionReasonL #-} + +-- | 'v1ConditionStatus' Lens +v1ConditionStatusL :: Lens_' V1Condition (Text) +v1ConditionStatusL f V1Condition{..} = (\v1ConditionStatus -> V1Condition { v1ConditionStatus, ..} ) <$> f v1ConditionStatus +{-# INLINE v1ConditionStatusL #-} + +-- | 'v1ConditionType' Lens +v1ConditionTypeL :: Lens_' V1Condition (Text) +v1ConditionTypeL f V1Condition{..} = (\v1ConditionType -> V1Condition { v1ConditionType, ..} ) <$> f v1ConditionType +{-# INLINE v1ConditionTypeL #-} + + + +-- * V1ConfigMap + +-- | 'v1ConfigMapApiVersion' Lens +v1ConfigMapApiVersionL :: Lens_' V1ConfigMap (Maybe Text) +v1ConfigMapApiVersionL f V1ConfigMap{..} = (\v1ConfigMapApiVersion -> V1ConfigMap { v1ConfigMapApiVersion, ..} ) <$> f v1ConfigMapApiVersion +{-# INLINE v1ConfigMapApiVersionL #-} + +-- | 'v1ConfigMapBinaryData' Lens +v1ConfigMapBinaryDataL :: Lens_' V1ConfigMap (Maybe (Map.Map String ByteArray)) +v1ConfigMapBinaryDataL f V1ConfigMap{..} = (\v1ConfigMapBinaryData -> V1ConfigMap { v1ConfigMapBinaryData, ..} ) <$> f v1ConfigMapBinaryData +{-# INLINE v1ConfigMapBinaryDataL #-} + +-- | 'v1ConfigMapData' Lens +v1ConfigMapDataL :: Lens_' V1ConfigMap (Maybe (Map.Map String Text)) +v1ConfigMapDataL f V1ConfigMap{..} = (\v1ConfigMapData -> V1ConfigMap { v1ConfigMapData, ..} ) <$> f v1ConfigMapData +{-# INLINE v1ConfigMapDataL #-} + +-- | 'v1ConfigMapImmutable' Lens +v1ConfigMapImmutableL :: Lens_' V1ConfigMap (Maybe Bool) +v1ConfigMapImmutableL f V1ConfigMap{..} = (\v1ConfigMapImmutable -> V1ConfigMap { v1ConfigMapImmutable, ..} ) <$> f v1ConfigMapImmutable +{-# INLINE v1ConfigMapImmutableL #-} + +-- | 'v1ConfigMapKind' Lens +v1ConfigMapKindL :: Lens_' V1ConfigMap (Maybe Text) +v1ConfigMapKindL f V1ConfigMap{..} = (\v1ConfigMapKind -> V1ConfigMap { v1ConfigMapKind, ..} ) <$> f v1ConfigMapKind +{-# INLINE v1ConfigMapKindL #-} + +-- | 'v1ConfigMapMetadata' Lens +v1ConfigMapMetadataL :: Lens_' V1ConfigMap (Maybe V1ObjectMeta) +v1ConfigMapMetadataL f V1ConfigMap{..} = (\v1ConfigMapMetadata -> V1ConfigMap { v1ConfigMapMetadata, ..} ) <$> f v1ConfigMapMetadata +{-# INLINE v1ConfigMapMetadataL #-} + + + +-- * V1ConfigMapEnvSource + +-- | 'v1ConfigMapEnvSourceName' Lens +v1ConfigMapEnvSourceNameL :: Lens_' V1ConfigMapEnvSource (Maybe Text) +v1ConfigMapEnvSourceNameL f V1ConfigMapEnvSource{..} = (\v1ConfigMapEnvSourceName -> V1ConfigMapEnvSource { v1ConfigMapEnvSourceName, ..} ) <$> f v1ConfigMapEnvSourceName +{-# INLINE v1ConfigMapEnvSourceNameL #-} + +-- | 'v1ConfigMapEnvSourceOptional' Lens +v1ConfigMapEnvSourceOptionalL :: Lens_' V1ConfigMapEnvSource (Maybe Bool) +v1ConfigMapEnvSourceOptionalL f V1ConfigMapEnvSource{..} = (\v1ConfigMapEnvSourceOptional -> V1ConfigMapEnvSource { v1ConfigMapEnvSourceOptional, ..} ) <$> f v1ConfigMapEnvSourceOptional +{-# INLINE v1ConfigMapEnvSourceOptionalL #-} + + + +-- * V1ConfigMapKeySelector + +-- | 'v1ConfigMapKeySelectorKey' Lens +v1ConfigMapKeySelectorKeyL :: Lens_' V1ConfigMapKeySelector (Text) +v1ConfigMapKeySelectorKeyL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorKey -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorKey, ..} ) <$> f v1ConfigMapKeySelectorKey +{-# INLINE v1ConfigMapKeySelectorKeyL #-} + +-- | 'v1ConfigMapKeySelectorName' Lens +v1ConfigMapKeySelectorNameL :: Lens_' V1ConfigMapKeySelector (Maybe Text) +v1ConfigMapKeySelectorNameL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorName -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorName, ..} ) <$> f v1ConfigMapKeySelectorName +{-# INLINE v1ConfigMapKeySelectorNameL #-} + +-- | 'v1ConfigMapKeySelectorOptional' Lens +v1ConfigMapKeySelectorOptionalL :: Lens_' V1ConfigMapKeySelector (Maybe Bool) +v1ConfigMapKeySelectorOptionalL f V1ConfigMapKeySelector{..} = (\v1ConfigMapKeySelectorOptional -> V1ConfigMapKeySelector { v1ConfigMapKeySelectorOptional, ..} ) <$> f v1ConfigMapKeySelectorOptional +{-# INLINE v1ConfigMapKeySelectorOptionalL #-} + + + +-- * V1ConfigMapList + +-- | 'v1ConfigMapListApiVersion' Lens +v1ConfigMapListApiVersionL :: Lens_' V1ConfigMapList (Maybe Text) +v1ConfigMapListApiVersionL f V1ConfigMapList{..} = (\v1ConfigMapListApiVersion -> V1ConfigMapList { v1ConfigMapListApiVersion, ..} ) <$> f v1ConfigMapListApiVersion +{-# INLINE v1ConfigMapListApiVersionL #-} + +-- | 'v1ConfigMapListItems' Lens +v1ConfigMapListItemsL :: Lens_' V1ConfigMapList ([V1ConfigMap]) +v1ConfigMapListItemsL f V1ConfigMapList{..} = (\v1ConfigMapListItems -> V1ConfigMapList { v1ConfigMapListItems, ..} ) <$> f v1ConfigMapListItems +{-# INLINE v1ConfigMapListItemsL #-} + +-- | 'v1ConfigMapListKind' Lens +v1ConfigMapListKindL :: Lens_' V1ConfigMapList (Maybe Text) +v1ConfigMapListKindL f V1ConfigMapList{..} = (\v1ConfigMapListKind -> V1ConfigMapList { v1ConfigMapListKind, ..} ) <$> f v1ConfigMapListKind +{-# INLINE v1ConfigMapListKindL #-} + +-- | 'v1ConfigMapListMetadata' Lens +v1ConfigMapListMetadataL :: Lens_' V1ConfigMapList (Maybe V1ListMeta) +v1ConfigMapListMetadataL f V1ConfigMapList{..} = (\v1ConfigMapListMetadata -> V1ConfigMapList { v1ConfigMapListMetadata, ..} ) <$> f v1ConfigMapListMetadata +{-# INLINE v1ConfigMapListMetadataL #-} + + + +-- * V1ConfigMapNodeConfigSource + +-- | 'v1ConfigMapNodeConfigSourceKubeletConfigKey' Lens +v1ConfigMapNodeConfigSourceKubeletConfigKeyL :: Lens_' V1ConfigMapNodeConfigSource (Text) +v1ConfigMapNodeConfigSourceKubeletConfigKeyL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceKubeletConfigKey -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceKubeletConfigKey, ..} ) <$> f v1ConfigMapNodeConfigSourceKubeletConfigKey +{-# INLINE v1ConfigMapNodeConfigSourceKubeletConfigKeyL #-} + +-- | 'v1ConfigMapNodeConfigSourceName' Lens +v1ConfigMapNodeConfigSourceNameL :: Lens_' V1ConfigMapNodeConfigSource (Text) +v1ConfigMapNodeConfigSourceNameL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceName -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceName, ..} ) <$> f v1ConfigMapNodeConfigSourceName +{-# INLINE v1ConfigMapNodeConfigSourceNameL #-} + +-- | 'v1ConfigMapNodeConfigSourceNamespace' Lens +v1ConfigMapNodeConfigSourceNamespaceL :: Lens_' V1ConfigMapNodeConfigSource (Text) +v1ConfigMapNodeConfigSourceNamespaceL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceNamespace -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceNamespace, ..} ) <$> f v1ConfigMapNodeConfigSourceNamespace +{-# INLINE v1ConfigMapNodeConfigSourceNamespaceL #-} + +-- | 'v1ConfigMapNodeConfigSourceResourceVersion' Lens +v1ConfigMapNodeConfigSourceResourceVersionL :: Lens_' V1ConfigMapNodeConfigSource (Maybe Text) +v1ConfigMapNodeConfigSourceResourceVersionL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceResourceVersion -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceResourceVersion, ..} ) <$> f v1ConfigMapNodeConfigSourceResourceVersion +{-# INLINE v1ConfigMapNodeConfigSourceResourceVersionL #-} + +-- | 'v1ConfigMapNodeConfigSourceUid' Lens +v1ConfigMapNodeConfigSourceUidL :: Lens_' V1ConfigMapNodeConfigSource (Maybe Text) +v1ConfigMapNodeConfigSourceUidL f V1ConfigMapNodeConfigSource{..} = (\v1ConfigMapNodeConfigSourceUid -> V1ConfigMapNodeConfigSource { v1ConfigMapNodeConfigSourceUid, ..} ) <$> f v1ConfigMapNodeConfigSourceUid +{-# INLINE v1ConfigMapNodeConfigSourceUidL #-} + + + +-- * V1ConfigMapProjection + +-- | 'v1ConfigMapProjectionItems' Lens +v1ConfigMapProjectionItemsL :: Lens_' V1ConfigMapProjection (Maybe [V1KeyToPath]) +v1ConfigMapProjectionItemsL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionItems -> V1ConfigMapProjection { v1ConfigMapProjectionItems, ..} ) <$> f v1ConfigMapProjectionItems +{-# INLINE v1ConfigMapProjectionItemsL #-} + +-- | 'v1ConfigMapProjectionName' Lens +v1ConfigMapProjectionNameL :: Lens_' V1ConfigMapProjection (Maybe Text) +v1ConfigMapProjectionNameL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionName -> V1ConfigMapProjection { v1ConfigMapProjectionName, ..} ) <$> f v1ConfigMapProjectionName +{-# INLINE v1ConfigMapProjectionNameL #-} + +-- | 'v1ConfigMapProjectionOptional' Lens +v1ConfigMapProjectionOptionalL :: Lens_' V1ConfigMapProjection (Maybe Bool) +v1ConfigMapProjectionOptionalL f V1ConfigMapProjection{..} = (\v1ConfigMapProjectionOptional -> V1ConfigMapProjection { v1ConfigMapProjectionOptional, ..} ) <$> f v1ConfigMapProjectionOptional +{-# INLINE v1ConfigMapProjectionOptionalL #-} + + + +-- * V1ConfigMapVolumeSource + +-- | 'v1ConfigMapVolumeSourceDefaultMode' Lens +v1ConfigMapVolumeSourceDefaultModeL :: Lens_' V1ConfigMapVolumeSource (Maybe Int) +v1ConfigMapVolumeSourceDefaultModeL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceDefaultMode -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceDefaultMode, ..} ) <$> f v1ConfigMapVolumeSourceDefaultMode +{-# INLINE v1ConfigMapVolumeSourceDefaultModeL #-} + +-- | 'v1ConfigMapVolumeSourceItems' Lens +v1ConfigMapVolumeSourceItemsL :: Lens_' V1ConfigMapVolumeSource (Maybe [V1KeyToPath]) +v1ConfigMapVolumeSourceItemsL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceItems -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceItems, ..} ) <$> f v1ConfigMapVolumeSourceItems +{-# INLINE v1ConfigMapVolumeSourceItemsL #-} + +-- | 'v1ConfigMapVolumeSourceName' Lens +v1ConfigMapVolumeSourceNameL :: Lens_' V1ConfigMapVolumeSource (Maybe Text) +v1ConfigMapVolumeSourceNameL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceName -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceName, ..} ) <$> f v1ConfigMapVolumeSourceName +{-# INLINE v1ConfigMapVolumeSourceNameL #-} + +-- | 'v1ConfigMapVolumeSourceOptional' Lens +v1ConfigMapVolumeSourceOptionalL :: Lens_' V1ConfigMapVolumeSource (Maybe Bool) +v1ConfigMapVolumeSourceOptionalL f V1ConfigMapVolumeSource{..} = (\v1ConfigMapVolumeSourceOptional -> V1ConfigMapVolumeSource { v1ConfigMapVolumeSourceOptional, ..} ) <$> f v1ConfigMapVolumeSourceOptional +{-# INLINE v1ConfigMapVolumeSourceOptionalL #-} + + + +-- * V1Container + +-- | 'v1ContainerArgs' Lens +v1ContainerArgsL :: Lens_' V1Container (Maybe [Text]) +v1ContainerArgsL f V1Container{..} = (\v1ContainerArgs -> V1Container { v1ContainerArgs, ..} ) <$> f v1ContainerArgs +{-# INLINE v1ContainerArgsL #-} + +-- | 'v1ContainerCommand' Lens +v1ContainerCommandL :: Lens_' V1Container (Maybe [Text]) +v1ContainerCommandL f V1Container{..} = (\v1ContainerCommand -> V1Container { v1ContainerCommand, ..} ) <$> f v1ContainerCommand +{-# INLINE v1ContainerCommandL #-} + +-- | 'v1ContainerEnv' Lens +v1ContainerEnvL :: Lens_' V1Container (Maybe [V1EnvVar]) +v1ContainerEnvL f V1Container{..} = (\v1ContainerEnv -> V1Container { v1ContainerEnv, ..} ) <$> f v1ContainerEnv +{-# INLINE v1ContainerEnvL #-} + +-- | 'v1ContainerEnvFrom' Lens +v1ContainerEnvFromL :: Lens_' V1Container (Maybe [V1EnvFromSource]) +v1ContainerEnvFromL f V1Container{..} = (\v1ContainerEnvFrom -> V1Container { v1ContainerEnvFrom, ..} ) <$> f v1ContainerEnvFrom +{-# INLINE v1ContainerEnvFromL #-} + +-- | 'v1ContainerImage' Lens +v1ContainerImageL :: Lens_' V1Container (Maybe Text) +v1ContainerImageL f V1Container{..} = (\v1ContainerImage -> V1Container { v1ContainerImage, ..} ) <$> f v1ContainerImage +{-# INLINE v1ContainerImageL #-} + +-- | 'v1ContainerImagePullPolicy' Lens +v1ContainerImagePullPolicyL :: Lens_' V1Container (Maybe Text) +v1ContainerImagePullPolicyL f V1Container{..} = (\v1ContainerImagePullPolicy -> V1Container { v1ContainerImagePullPolicy, ..} ) <$> f v1ContainerImagePullPolicy +{-# INLINE v1ContainerImagePullPolicyL #-} + +-- | 'v1ContainerLifecycle' Lens +v1ContainerLifecycleL :: Lens_' V1Container (Maybe V1Lifecycle) +v1ContainerLifecycleL f V1Container{..} = (\v1ContainerLifecycle -> V1Container { v1ContainerLifecycle, ..} ) <$> f v1ContainerLifecycle +{-# INLINE v1ContainerLifecycleL #-} + +-- | 'v1ContainerLivenessProbe' Lens +v1ContainerLivenessProbeL :: Lens_' V1Container (Maybe V1Probe) +v1ContainerLivenessProbeL f V1Container{..} = (\v1ContainerLivenessProbe -> V1Container { v1ContainerLivenessProbe, ..} ) <$> f v1ContainerLivenessProbe +{-# INLINE v1ContainerLivenessProbeL #-} + +-- | 'v1ContainerName' Lens +v1ContainerNameL :: Lens_' V1Container (Text) +v1ContainerNameL f V1Container{..} = (\v1ContainerName -> V1Container { v1ContainerName, ..} ) <$> f v1ContainerName +{-# INLINE v1ContainerNameL #-} + +-- | 'v1ContainerPorts' Lens +v1ContainerPortsL :: Lens_' V1Container (Maybe [V1ContainerPort]) +v1ContainerPortsL f V1Container{..} = (\v1ContainerPorts -> V1Container { v1ContainerPorts, ..} ) <$> f v1ContainerPorts +{-# INLINE v1ContainerPortsL #-} + +-- | 'v1ContainerReadinessProbe' Lens +v1ContainerReadinessProbeL :: Lens_' V1Container (Maybe V1Probe) +v1ContainerReadinessProbeL f V1Container{..} = (\v1ContainerReadinessProbe -> V1Container { v1ContainerReadinessProbe, ..} ) <$> f v1ContainerReadinessProbe +{-# INLINE v1ContainerReadinessProbeL #-} + +-- | 'v1ContainerResizePolicy' Lens +v1ContainerResizePolicyL :: Lens_' V1Container (Maybe [V1ContainerResizePolicy]) +v1ContainerResizePolicyL f V1Container{..} = (\v1ContainerResizePolicy -> V1Container { v1ContainerResizePolicy, ..} ) <$> f v1ContainerResizePolicy +{-# INLINE v1ContainerResizePolicyL #-} + +-- | 'v1ContainerResources' Lens +v1ContainerResourcesL :: Lens_' V1Container (Maybe V1ResourceRequirements) +v1ContainerResourcesL f V1Container{..} = (\v1ContainerResources -> V1Container { v1ContainerResources, ..} ) <$> f v1ContainerResources +{-# INLINE v1ContainerResourcesL #-} + +-- | 'v1ContainerSecurityContext' Lens +v1ContainerSecurityContextL :: Lens_' V1Container (Maybe V1SecurityContext) +v1ContainerSecurityContextL f V1Container{..} = (\v1ContainerSecurityContext -> V1Container { v1ContainerSecurityContext, ..} ) <$> f v1ContainerSecurityContext +{-# INLINE v1ContainerSecurityContextL #-} + +-- | 'v1ContainerStartupProbe' Lens +v1ContainerStartupProbeL :: Lens_' V1Container (Maybe V1Probe) +v1ContainerStartupProbeL f V1Container{..} = (\v1ContainerStartupProbe -> V1Container { v1ContainerStartupProbe, ..} ) <$> f v1ContainerStartupProbe +{-# INLINE v1ContainerStartupProbeL #-} + +-- | 'v1ContainerStdin' Lens +v1ContainerStdinL :: Lens_' V1Container (Maybe Bool) +v1ContainerStdinL f V1Container{..} = (\v1ContainerStdin -> V1Container { v1ContainerStdin, ..} ) <$> f v1ContainerStdin +{-# INLINE v1ContainerStdinL #-} + +-- | 'v1ContainerStdinOnce' Lens +v1ContainerStdinOnceL :: Lens_' V1Container (Maybe Bool) +v1ContainerStdinOnceL f V1Container{..} = (\v1ContainerStdinOnce -> V1Container { v1ContainerStdinOnce, ..} ) <$> f v1ContainerStdinOnce +{-# INLINE v1ContainerStdinOnceL #-} + +-- | 'v1ContainerTerminationMessagePath' Lens +v1ContainerTerminationMessagePathL :: Lens_' V1Container (Maybe Text) +v1ContainerTerminationMessagePathL f V1Container{..} = (\v1ContainerTerminationMessagePath -> V1Container { v1ContainerTerminationMessagePath, ..} ) <$> f v1ContainerTerminationMessagePath +{-# INLINE v1ContainerTerminationMessagePathL #-} + +-- | 'v1ContainerTerminationMessagePolicy' Lens +v1ContainerTerminationMessagePolicyL :: Lens_' V1Container (Maybe Text) +v1ContainerTerminationMessagePolicyL f V1Container{..} = (\v1ContainerTerminationMessagePolicy -> V1Container { v1ContainerTerminationMessagePolicy, ..} ) <$> f v1ContainerTerminationMessagePolicy +{-# INLINE v1ContainerTerminationMessagePolicyL #-} + +-- | 'v1ContainerTty' Lens +v1ContainerTtyL :: Lens_' V1Container (Maybe Bool) +v1ContainerTtyL f V1Container{..} = (\v1ContainerTty -> V1Container { v1ContainerTty, ..} ) <$> f v1ContainerTty +{-# INLINE v1ContainerTtyL #-} + +-- | 'v1ContainerVolumeDevices' Lens +v1ContainerVolumeDevicesL :: Lens_' V1Container (Maybe [V1VolumeDevice]) +v1ContainerVolumeDevicesL f V1Container{..} = (\v1ContainerVolumeDevices -> V1Container { v1ContainerVolumeDevices, ..} ) <$> f v1ContainerVolumeDevices +{-# INLINE v1ContainerVolumeDevicesL #-} + +-- | 'v1ContainerVolumeMounts' Lens +v1ContainerVolumeMountsL :: Lens_' V1Container (Maybe [V1VolumeMount]) +v1ContainerVolumeMountsL f V1Container{..} = (\v1ContainerVolumeMounts -> V1Container { v1ContainerVolumeMounts, ..} ) <$> f v1ContainerVolumeMounts +{-# INLINE v1ContainerVolumeMountsL #-} + +-- | 'v1ContainerWorkingDir' Lens +v1ContainerWorkingDirL :: Lens_' V1Container (Maybe Text) +v1ContainerWorkingDirL f V1Container{..} = (\v1ContainerWorkingDir -> V1Container { v1ContainerWorkingDir, ..} ) <$> f v1ContainerWorkingDir +{-# INLINE v1ContainerWorkingDirL #-} + + + +-- * V1ContainerImage + +-- | 'v1ContainerImageNames' Lens +v1ContainerImageNamesL :: Lens_' V1ContainerImage (Maybe [Text]) +v1ContainerImageNamesL f V1ContainerImage{..} = (\v1ContainerImageNames -> V1ContainerImage { v1ContainerImageNames, ..} ) <$> f v1ContainerImageNames +{-# INLINE v1ContainerImageNamesL #-} + +-- | 'v1ContainerImageSizeBytes' Lens +v1ContainerImageSizeBytesL :: Lens_' V1ContainerImage (Maybe Integer) +v1ContainerImageSizeBytesL f V1ContainerImage{..} = (\v1ContainerImageSizeBytes -> V1ContainerImage { v1ContainerImageSizeBytes, ..} ) <$> f v1ContainerImageSizeBytes +{-# INLINE v1ContainerImageSizeBytesL #-} + + + +-- * V1ContainerPort + +-- | 'v1ContainerPortContainerPort' Lens +v1ContainerPortContainerPortL :: Lens_' V1ContainerPort (Int) +v1ContainerPortContainerPortL f V1ContainerPort{..} = (\v1ContainerPortContainerPort -> V1ContainerPort { v1ContainerPortContainerPort, ..} ) <$> f v1ContainerPortContainerPort +{-# INLINE v1ContainerPortContainerPortL #-} + +-- | 'v1ContainerPortHostIp' Lens +v1ContainerPortHostIpL :: Lens_' V1ContainerPort (Maybe Text) +v1ContainerPortHostIpL f V1ContainerPort{..} = (\v1ContainerPortHostIp -> V1ContainerPort { v1ContainerPortHostIp, ..} ) <$> f v1ContainerPortHostIp +{-# INLINE v1ContainerPortHostIpL #-} + +-- | 'v1ContainerPortHostPort' Lens +v1ContainerPortHostPortL :: Lens_' V1ContainerPort (Maybe Int) +v1ContainerPortHostPortL f V1ContainerPort{..} = (\v1ContainerPortHostPort -> V1ContainerPort { v1ContainerPortHostPort, ..} ) <$> f v1ContainerPortHostPort +{-# INLINE v1ContainerPortHostPortL #-} + +-- | 'v1ContainerPortName' Lens +v1ContainerPortNameL :: Lens_' V1ContainerPort (Maybe Text) +v1ContainerPortNameL f V1ContainerPort{..} = (\v1ContainerPortName -> V1ContainerPort { v1ContainerPortName, ..} ) <$> f v1ContainerPortName +{-# INLINE v1ContainerPortNameL #-} + +-- | 'v1ContainerPortProtocol' Lens +v1ContainerPortProtocolL :: Lens_' V1ContainerPort (Maybe Text) +v1ContainerPortProtocolL f V1ContainerPort{..} = (\v1ContainerPortProtocol -> V1ContainerPort { v1ContainerPortProtocol, ..} ) <$> f v1ContainerPortProtocol +{-# INLINE v1ContainerPortProtocolL #-} + + + +-- * V1ContainerResizePolicy + +-- | 'v1ContainerResizePolicyResourceName' Lens +v1ContainerResizePolicyResourceNameL :: Lens_' V1ContainerResizePolicy (Text) +v1ContainerResizePolicyResourceNameL f V1ContainerResizePolicy{..} = (\v1ContainerResizePolicyResourceName -> V1ContainerResizePolicy { v1ContainerResizePolicyResourceName, ..} ) <$> f v1ContainerResizePolicyResourceName +{-# INLINE v1ContainerResizePolicyResourceNameL #-} + +-- | 'v1ContainerResizePolicyRestartPolicy' Lens +v1ContainerResizePolicyRestartPolicyL :: Lens_' V1ContainerResizePolicy (Text) +v1ContainerResizePolicyRestartPolicyL f V1ContainerResizePolicy{..} = (\v1ContainerResizePolicyRestartPolicy -> V1ContainerResizePolicy { v1ContainerResizePolicyRestartPolicy, ..} ) <$> f v1ContainerResizePolicyRestartPolicy +{-# INLINE v1ContainerResizePolicyRestartPolicyL #-} + + + +-- * V1ContainerState + +-- | 'v1ContainerStateRunning' Lens +v1ContainerStateRunningL :: Lens_' V1ContainerState (Maybe V1ContainerStateRunning) +v1ContainerStateRunningL f V1ContainerState{..} = (\v1ContainerStateRunning -> V1ContainerState { v1ContainerStateRunning, ..} ) <$> f v1ContainerStateRunning +{-# INLINE v1ContainerStateRunningL #-} + +-- | 'v1ContainerStateTerminated' Lens +v1ContainerStateTerminatedL :: Lens_' V1ContainerState (Maybe V1ContainerStateTerminated) +v1ContainerStateTerminatedL f V1ContainerState{..} = (\v1ContainerStateTerminated -> V1ContainerState { v1ContainerStateTerminated, ..} ) <$> f v1ContainerStateTerminated +{-# INLINE v1ContainerStateTerminatedL #-} + +-- | 'v1ContainerStateWaiting' Lens +v1ContainerStateWaitingL :: Lens_' V1ContainerState (Maybe V1ContainerStateWaiting) +v1ContainerStateWaitingL f V1ContainerState{..} = (\v1ContainerStateWaiting -> V1ContainerState { v1ContainerStateWaiting, ..} ) <$> f v1ContainerStateWaiting +{-# INLINE v1ContainerStateWaitingL #-} + + + +-- * V1ContainerStateRunning + +-- | 'v1ContainerStateRunningStartedAt' Lens +v1ContainerStateRunningStartedAtL :: Lens_' V1ContainerStateRunning (Maybe DateTime) +v1ContainerStateRunningStartedAtL f V1ContainerStateRunning{..} = (\v1ContainerStateRunningStartedAt -> V1ContainerStateRunning { v1ContainerStateRunningStartedAt, ..} ) <$> f v1ContainerStateRunningStartedAt +{-# INLINE v1ContainerStateRunningStartedAtL #-} + + + +-- * V1ContainerStateTerminated + +-- | 'v1ContainerStateTerminatedContainerId' Lens +v1ContainerStateTerminatedContainerIdL :: Lens_' V1ContainerStateTerminated (Maybe Text) +v1ContainerStateTerminatedContainerIdL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedContainerId -> V1ContainerStateTerminated { v1ContainerStateTerminatedContainerId, ..} ) <$> f v1ContainerStateTerminatedContainerId +{-# INLINE v1ContainerStateTerminatedContainerIdL #-} + +-- | 'v1ContainerStateTerminatedExitCode' Lens +v1ContainerStateTerminatedExitCodeL :: Lens_' V1ContainerStateTerminated (Int) +v1ContainerStateTerminatedExitCodeL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedExitCode -> V1ContainerStateTerminated { v1ContainerStateTerminatedExitCode, ..} ) <$> f v1ContainerStateTerminatedExitCode +{-# INLINE v1ContainerStateTerminatedExitCodeL #-} + +-- | 'v1ContainerStateTerminatedFinishedAt' Lens +v1ContainerStateTerminatedFinishedAtL :: Lens_' V1ContainerStateTerminated (Maybe DateTime) +v1ContainerStateTerminatedFinishedAtL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedFinishedAt -> V1ContainerStateTerminated { v1ContainerStateTerminatedFinishedAt, ..} ) <$> f v1ContainerStateTerminatedFinishedAt +{-# INLINE v1ContainerStateTerminatedFinishedAtL #-} + +-- | 'v1ContainerStateTerminatedMessage' Lens +v1ContainerStateTerminatedMessageL :: Lens_' V1ContainerStateTerminated (Maybe Text) +v1ContainerStateTerminatedMessageL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedMessage -> V1ContainerStateTerminated { v1ContainerStateTerminatedMessage, ..} ) <$> f v1ContainerStateTerminatedMessage +{-# INLINE v1ContainerStateTerminatedMessageL #-} + +-- | 'v1ContainerStateTerminatedReason' Lens +v1ContainerStateTerminatedReasonL :: Lens_' V1ContainerStateTerminated (Maybe Text) +v1ContainerStateTerminatedReasonL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedReason -> V1ContainerStateTerminated { v1ContainerStateTerminatedReason, ..} ) <$> f v1ContainerStateTerminatedReason +{-# INLINE v1ContainerStateTerminatedReasonL #-} + +-- | 'v1ContainerStateTerminatedSignal' Lens +v1ContainerStateTerminatedSignalL :: Lens_' V1ContainerStateTerminated (Maybe Int) +v1ContainerStateTerminatedSignalL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedSignal -> V1ContainerStateTerminated { v1ContainerStateTerminatedSignal, ..} ) <$> f v1ContainerStateTerminatedSignal +{-# INLINE v1ContainerStateTerminatedSignalL #-} + +-- | 'v1ContainerStateTerminatedStartedAt' Lens +v1ContainerStateTerminatedStartedAtL :: Lens_' V1ContainerStateTerminated (Maybe DateTime) +v1ContainerStateTerminatedStartedAtL f V1ContainerStateTerminated{..} = (\v1ContainerStateTerminatedStartedAt -> V1ContainerStateTerminated { v1ContainerStateTerminatedStartedAt, ..} ) <$> f v1ContainerStateTerminatedStartedAt +{-# INLINE v1ContainerStateTerminatedStartedAtL #-} + + + +-- * V1ContainerStateWaiting + +-- | 'v1ContainerStateWaitingMessage' Lens +v1ContainerStateWaitingMessageL :: Lens_' V1ContainerStateWaiting (Maybe Text) +v1ContainerStateWaitingMessageL f V1ContainerStateWaiting{..} = (\v1ContainerStateWaitingMessage -> V1ContainerStateWaiting { v1ContainerStateWaitingMessage, ..} ) <$> f v1ContainerStateWaitingMessage +{-# INLINE v1ContainerStateWaitingMessageL #-} + +-- | 'v1ContainerStateWaitingReason' Lens +v1ContainerStateWaitingReasonL :: Lens_' V1ContainerStateWaiting (Maybe Text) +v1ContainerStateWaitingReasonL f V1ContainerStateWaiting{..} = (\v1ContainerStateWaitingReason -> V1ContainerStateWaiting { v1ContainerStateWaitingReason, ..} ) <$> f v1ContainerStateWaitingReason +{-# INLINE v1ContainerStateWaitingReasonL #-} + + + +-- * V1ContainerStatus + +-- | 'v1ContainerStatusAllocatedResources' Lens +v1ContainerStatusAllocatedResourcesL :: Lens_' V1ContainerStatus (Maybe (Map.Map String Quantity)) +v1ContainerStatusAllocatedResourcesL f V1ContainerStatus{..} = (\v1ContainerStatusAllocatedResources -> V1ContainerStatus { v1ContainerStatusAllocatedResources, ..} ) <$> f v1ContainerStatusAllocatedResources +{-# INLINE v1ContainerStatusAllocatedResourcesL #-} + +-- | 'v1ContainerStatusContainerId' Lens +v1ContainerStatusContainerIdL :: Lens_' V1ContainerStatus (Maybe Text) +v1ContainerStatusContainerIdL f V1ContainerStatus{..} = (\v1ContainerStatusContainerId -> V1ContainerStatus { v1ContainerStatusContainerId, ..} ) <$> f v1ContainerStatusContainerId +{-# INLINE v1ContainerStatusContainerIdL #-} + +-- | 'v1ContainerStatusImage' Lens +v1ContainerStatusImageL :: Lens_' V1ContainerStatus (Text) +v1ContainerStatusImageL f V1ContainerStatus{..} = (\v1ContainerStatusImage -> V1ContainerStatus { v1ContainerStatusImage, ..} ) <$> f v1ContainerStatusImage +{-# INLINE v1ContainerStatusImageL #-} + +-- | 'v1ContainerStatusImageId' Lens +v1ContainerStatusImageIdL :: Lens_' V1ContainerStatus (Text) +v1ContainerStatusImageIdL f V1ContainerStatus{..} = (\v1ContainerStatusImageId -> V1ContainerStatus { v1ContainerStatusImageId, ..} ) <$> f v1ContainerStatusImageId +{-# INLINE v1ContainerStatusImageIdL #-} + +-- | 'v1ContainerStatusLastState' Lens +v1ContainerStatusLastStateL :: Lens_' V1ContainerStatus (Maybe V1ContainerState) +v1ContainerStatusLastStateL f V1ContainerStatus{..} = (\v1ContainerStatusLastState -> V1ContainerStatus { v1ContainerStatusLastState, ..} ) <$> f v1ContainerStatusLastState +{-# INLINE v1ContainerStatusLastStateL #-} + +-- | 'v1ContainerStatusName' Lens +v1ContainerStatusNameL :: Lens_' V1ContainerStatus (Text) +v1ContainerStatusNameL f V1ContainerStatus{..} = (\v1ContainerStatusName -> V1ContainerStatus { v1ContainerStatusName, ..} ) <$> f v1ContainerStatusName +{-# INLINE v1ContainerStatusNameL #-} + +-- | 'v1ContainerStatusReady' Lens +v1ContainerStatusReadyL :: Lens_' V1ContainerStatus (Bool) +v1ContainerStatusReadyL f V1ContainerStatus{..} = (\v1ContainerStatusReady -> V1ContainerStatus { v1ContainerStatusReady, ..} ) <$> f v1ContainerStatusReady +{-# INLINE v1ContainerStatusReadyL #-} + +-- | 'v1ContainerStatusResources' Lens +v1ContainerStatusResourcesL :: Lens_' V1ContainerStatus (Maybe V1ResourceRequirements) +v1ContainerStatusResourcesL f V1ContainerStatus{..} = (\v1ContainerStatusResources -> V1ContainerStatus { v1ContainerStatusResources, ..} ) <$> f v1ContainerStatusResources +{-# INLINE v1ContainerStatusResourcesL #-} + +-- | 'v1ContainerStatusRestartCount' Lens +v1ContainerStatusRestartCountL :: Lens_' V1ContainerStatus (Int) +v1ContainerStatusRestartCountL f V1ContainerStatus{..} = (\v1ContainerStatusRestartCount -> V1ContainerStatus { v1ContainerStatusRestartCount, ..} ) <$> f v1ContainerStatusRestartCount +{-# INLINE v1ContainerStatusRestartCountL #-} + +-- | 'v1ContainerStatusStarted' Lens +v1ContainerStatusStartedL :: Lens_' V1ContainerStatus (Maybe Bool) +v1ContainerStatusStartedL f V1ContainerStatus{..} = (\v1ContainerStatusStarted -> V1ContainerStatus { v1ContainerStatusStarted, ..} ) <$> f v1ContainerStatusStarted +{-# INLINE v1ContainerStatusStartedL #-} + +-- | 'v1ContainerStatusState' Lens +v1ContainerStatusStateL :: Lens_' V1ContainerStatus (Maybe V1ContainerState) +v1ContainerStatusStateL f V1ContainerStatus{..} = (\v1ContainerStatusState -> V1ContainerStatus { v1ContainerStatusState, ..} ) <$> f v1ContainerStatusState +{-# INLINE v1ContainerStatusStateL #-} + + + +-- * V1ControllerRevision + +-- | 'v1ControllerRevisionApiVersion' Lens +v1ControllerRevisionApiVersionL :: Lens_' V1ControllerRevision (Maybe Text) +v1ControllerRevisionApiVersionL f V1ControllerRevision{..} = (\v1ControllerRevisionApiVersion -> V1ControllerRevision { v1ControllerRevisionApiVersion, ..} ) <$> f v1ControllerRevisionApiVersion +{-# INLINE v1ControllerRevisionApiVersionL #-} + +-- | 'v1ControllerRevisionData' Lens +v1ControllerRevisionDataL :: Lens_' V1ControllerRevision (Maybe A.Value) +v1ControllerRevisionDataL f V1ControllerRevision{..} = (\v1ControllerRevisionData -> V1ControllerRevision { v1ControllerRevisionData, ..} ) <$> f v1ControllerRevisionData +{-# INLINE v1ControllerRevisionDataL #-} + +-- | 'v1ControllerRevisionKind' Lens +v1ControllerRevisionKindL :: Lens_' V1ControllerRevision (Maybe Text) +v1ControllerRevisionKindL f V1ControllerRevision{..} = (\v1ControllerRevisionKind -> V1ControllerRevision { v1ControllerRevisionKind, ..} ) <$> f v1ControllerRevisionKind +{-# INLINE v1ControllerRevisionKindL #-} + +-- | 'v1ControllerRevisionMetadata' Lens +v1ControllerRevisionMetadataL :: Lens_' V1ControllerRevision (Maybe V1ObjectMeta) +v1ControllerRevisionMetadataL f V1ControllerRevision{..} = (\v1ControllerRevisionMetadata -> V1ControllerRevision { v1ControllerRevisionMetadata, ..} ) <$> f v1ControllerRevisionMetadata +{-# INLINE v1ControllerRevisionMetadataL #-} + +-- | 'v1ControllerRevisionRevision' Lens +v1ControllerRevisionRevisionL :: Lens_' V1ControllerRevision (Integer) +v1ControllerRevisionRevisionL f V1ControllerRevision{..} = (\v1ControllerRevisionRevision -> V1ControllerRevision { v1ControllerRevisionRevision, ..} ) <$> f v1ControllerRevisionRevision +{-# INLINE v1ControllerRevisionRevisionL #-} + + + +-- * V1ControllerRevisionList + +-- | 'v1ControllerRevisionListApiVersion' Lens +v1ControllerRevisionListApiVersionL :: Lens_' V1ControllerRevisionList (Maybe Text) +v1ControllerRevisionListApiVersionL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListApiVersion -> V1ControllerRevisionList { v1ControllerRevisionListApiVersion, ..} ) <$> f v1ControllerRevisionListApiVersion +{-# INLINE v1ControllerRevisionListApiVersionL #-} + +-- | 'v1ControllerRevisionListItems' Lens +v1ControllerRevisionListItemsL :: Lens_' V1ControllerRevisionList ([V1ControllerRevision]) +v1ControllerRevisionListItemsL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListItems -> V1ControllerRevisionList { v1ControllerRevisionListItems, ..} ) <$> f v1ControllerRevisionListItems +{-# INLINE v1ControllerRevisionListItemsL #-} + +-- | 'v1ControllerRevisionListKind' Lens +v1ControllerRevisionListKindL :: Lens_' V1ControllerRevisionList (Maybe Text) +v1ControllerRevisionListKindL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListKind -> V1ControllerRevisionList { v1ControllerRevisionListKind, ..} ) <$> f v1ControllerRevisionListKind +{-# INLINE v1ControllerRevisionListKindL #-} + +-- | 'v1ControllerRevisionListMetadata' Lens +v1ControllerRevisionListMetadataL :: Lens_' V1ControllerRevisionList (Maybe V1ListMeta) +v1ControllerRevisionListMetadataL f V1ControllerRevisionList{..} = (\v1ControllerRevisionListMetadata -> V1ControllerRevisionList { v1ControllerRevisionListMetadata, ..} ) <$> f v1ControllerRevisionListMetadata +{-# INLINE v1ControllerRevisionListMetadataL #-} + + + +-- * V1CronJob + +-- | 'v1CronJobApiVersion' Lens +v1CronJobApiVersionL :: Lens_' V1CronJob (Maybe Text) +v1CronJobApiVersionL f V1CronJob{..} = (\v1CronJobApiVersion -> V1CronJob { v1CronJobApiVersion, ..} ) <$> f v1CronJobApiVersion +{-# INLINE v1CronJobApiVersionL #-} + +-- | 'v1CronJobKind' Lens +v1CronJobKindL :: Lens_' V1CronJob (Maybe Text) +v1CronJobKindL f V1CronJob{..} = (\v1CronJobKind -> V1CronJob { v1CronJobKind, ..} ) <$> f v1CronJobKind +{-# INLINE v1CronJobKindL #-} + +-- | 'v1CronJobMetadata' Lens +v1CronJobMetadataL :: Lens_' V1CronJob (Maybe V1ObjectMeta) +v1CronJobMetadataL f V1CronJob{..} = (\v1CronJobMetadata -> V1CronJob { v1CronJobMetadata, ..} ) <$> f v1CronJobMetadata +{-# INLINE v1CronJobMetadataL #-} + +-- | 'v1CronJobSpec' Lens +v1CronJobSpecL :: Lens_' V1CronJob (Maybe V1CronJobSpec) +v1CronJobSpecL f V1CronJob{..} = (\v1CronJobSpec -> V1CronJob { v1CronJobSpec, ..} ) <$> f v1CronJobSpec +{-# INLINE v1CronJobSpecL #-} + +-- | 'v1CronJobStatus' Lens +v1CronJobStatusL :: Lens_' V1CronJob (Maybe V1CronJobStatus) +v1CronJobStatusL f V1CronJob{..} = (\v1CronJobStatus -> V1CronJob { v1CronJobStatus, ..} ) <$> f v1CronJobStatus +{-# INLINE v1CronJobStatusL #-} + + + +-- * V1CronJobList + +-- | 'v1CronJobListApiVersion' Lens +v1CronJobListApiVersionL :: Lens_' V1CronJobList (Maybe Text) +v1CronJobListApiVersionL f V1CronJobList{..} = (\v1CronJobListApiVersion -> V1CronJobList { v1CronJobListApiVersion, ..} ) <$> f v1CronJobListApiVersion +{-# INLINE v1CronJobListApiVersionL #-} + +-- | 'v1CronJobListItems' Lens +v1CronJobListItemsL :: Lens_' V1CronJobList ([V1CronJob]) +v1CronJobListItemsL f V1CronJobList{..} = (\v1CronJobListItems -> V1CronJobList { v1CronJobListItems, ..} ) <$> f v1CronJobListItems +{-# INLINE v1CronJobListItemsL #-} + +-- | 'v1CronJobListKind' Lens +v1CronJobListKindL :: Lens_' V1CronJobList (Maybe Text) +v1CronJobListKindL f V1CronJobList{..} = (\v1CronJobListKind -> V1CronJobList { v1CronJobListKind, ..} ) <$> f v1CronJobListKind +{-# INLINE v1CronJobListKindL #-} + +-- | 'v1CronJobListMetadata' Lens +v1CronJobListMetadataL :: Lens_' V1CronJobList (Maybe V1ListMeta) +v1CronJobListMetadataL f V1CronJobList{..} = (\v1CronJobListMetadata -> V1CronJobList { v1CronJobListMetadata, ..} ) <$> f v1CronJobListMetadata +{-# INLINE v1CronJobListMetadataL #-} + + + +-- * V1CronJobSpec + +-- | 'v1CronJobSpecConcurrencyPolicy' Lens +v1CronJobSpecConcurrencyPolicyL :: Lens_' V1CronJobSpec (Maybe Text) +v1CronJobSpecConcurrencyPolicyL f V1CronJobSpec{..} = (\v1CronJobSpecConcurrencyPolicy -> V1CronJobSpec { v1CronJobSpecConcurrencyPolicy, ..} ) <$> f v1CronJobSpecConcurrencyPolicy +{-# INLINE v1CronJobSpecConcurrencyPolicyL #-} + +-- | 'v1CronJobSpecFailedJobsHistoryLimit' Lens +v1CronJobSpecFailedJobsHistoryLimitL :: Lens_' V1CronJobSpec (Maybe Int) +v1CronJobSpecFailedJobsHistoryLimitL f V1CronJobSpec{..} = (\v1CronJobSpecFailedJobsHistoryLimit -> V1CronJobSpec { v1CronJobSpecFailedJobsHistoryLimit, ..} ) <$> f v1CronJobSpecFailedJobsHistoryLimit +{-# INLINE v1CronJobSpecFailedJobsHistoryLimitL #-} + +-- | 'v1CronJobSpecJobTemplate' Lens +v1CronJobSpecJobTemplateL :: Lens_' V1CronJobSpec (V1JobTemplateSpec) +v1CronJobSpecJobTemplateL f V1CronJobSpec{..} = (\v1CronJobSpecJobTemplate -> V1CronJobSpec { v1CronJobSpecJobTemplate, ..} ) <$> f v1CronJobSpecJobTemplate +{-# INLINE v1CronJobSpecJobTemplateL #-} + +-- | 'v1CronJobSpecSchedule' Lens +v1CronJobSpecScheduleL :: Lens_' V1CronJobSpec (Text) +v1CronJobSpecScheduleL f V1CronJobSpec{..} = (\v1CronJobSpecSchedule -> V1CronJobSpec { v1CronJobSpecSchedule, ..} ) <$> f v1CronJobSpecSchedule +{-# INLINE v1CronJobSpecScheduleL #-} + +-- | 'v1CronJobSpecStartingDeadlineSeconds' Lens +v1CronJobSpecStartingDeadlineSecondsL :: Lens_' V1CronJobSpec (Maybe Integer) +v1CronJobSpecStartingDeadlineSecondsL f V1CronJobSpec{..} = (\v1CronJobSpecStartingDeadlineSeconds -> V1CronJobSpec { v1CronJobSpecStartingDeadlineSeconds, ..} ) <$> f v1CronJobSpecStartingDeadlineSeconds +{-# INLINE v1CronJobSpecStartingDeadlineSecondsL #-} + +-- | 'v1CronJobSpecSuccessfulJobsHistoryLimit' Lens +v1CronJobSpecSuccessfulJobsHistoryLimitL :: Lens_' V1CronJobSpec (Maybe Int) +v1CronJobSpecSuccessfulJobsHistoryLimitL f V1CronJobSpec{..} = (\v1CronJobSpecSuccessfulJobsHistoryLimit -> V1CronJobSpec { v1CronJobSpecSuccessfulJobsHistoryLimit, ..} ) <$> f v1CronJobSpecSuccessfulJobsHistoryLimit +{-# INLINE v1CronJobSpecSuccessfulJobsHistoryLimitL #-} + +-- | 'v1CronJobSpecSuspend' Lens +v1CronJobSpecSuspendL :: Lens_' V1CronJobSpec (Maybe Bool) +v1CronJobSpecSuspendL f V1CronJobSpec{..} = (\v1CronJobSpecSuspend -> V1CronJobSpec { v1CronJobSpecSuspend, ..} ) <$> f v1CronJobSpecSuspend +{-# INLINE v1CronJobSpecSuspendL #-} + +-- | 'v1CronJobSpecTimeZone' Lens +v1CronJobSpecTimeZoneL :: Lens_' V1CronJobSpec (Maybe Text) +v1CronJobSpecTimeZoneL f V1CronJobSpec{..} = (\v1CronJobSpecTimeZone -> V1CronJobSpec { v1CronJobSpecTimeZone, ..} ) <$> f v1CronJobSpecTimeZone +{-# INLINE v1CronJobSpecTimeZoneL #-} + + + +-- * V1CronJobStatus + +-- | 'v1CronJobStatusActive' Lens +v1CronJobStatusActiveL :: Lens_' V1CronJobStatus (Maybe [V1ObjectReference]) +v1CronJobStatusActiveL f V1CronJobStatus{..} = (\v1CronJobStatusActive -> V1CronJobStatus { v1CronJobStatusActive, ..} ) <$> f v1CronJobStatusActive +{-# INLINE v1CronJobStatusActiveL #-} + +-- | 'v1CronJobStatusLastScheduleTime' Lens +v1CronJobStatusLastScheduleTimeL :: Lens_' V1CronJobStatus (Maybe DateTime) +v1CronJobStatusLastScheduleTimeL f V1CronJobStatus{..} = (\v1CronJobStatusLastScheduleTime -> V1CronJobStatus { v1CronJobStatusLastScheduleTime, ..} ) <$> f v1CronJobStatusLastScheduleTime +{-# INLINE v1CronJobStatusLastScheduleTimeL #-} + +-- | 'v1CronJobStatusLastSuccessfulTime' Lens +v1CronJobStatusLastSuccessfulTimeL :: Lens_' V1CronJobStatus (Maybe DateTime) +v1CronJobStatusLastSuccessfulTimeL f V1CronJobStatus{..} = (\v1CronJobStatusLastSuccessfulTime -> V1CronJobStatus { v1CronJobStatusLastSuccessfulTime, ..} ) <$> f v1CronJobStatusLastSuccessfulTime +{-# INLINE v1CronJobStatusLastSuccessfulTimeL #-} + + + +-- * V1CrossVersionObjectReference + +-- | 'v1CrossVersionObjectReferenceApiVersion' Lens +v1CrossVersionObjectReferenceApiVersionL :: Lens_' V1CrossVersionObjectReference (Maybe Text) +v1CrossVersionObjectReferenceApiVersionL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceApiVersion -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceApiVersion, ..} ) <$> f v1CrossVersionObjectReferenceApiVersion +{-# INLINE v1CrossVersionObjectReferenceApiVersionL #-} + +-- | 'v1CrossVersionObjectReferenceKind' Lens +v1CrossVersionObjectReferenceKindL :: Lens_' V1CrossVersionObjectReference (Text) +v1CrossVersionObjectReferenceKindL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceKind -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceKind, ..} ) <$> f v1CrossVersionObjectReferenceKind +{-# INLINE v1CrossVersionObjectReferenceKindL #-} + +-- | 'v1CrossVersionObjectReferenceName' Lens +v1CrossVersionObjectReferenceNameL :: Lens_' V1CrossVersionObjectReference (Text) +v1CrossVersionObjectReferenceNameL f V1CrossVersionObjectReference{..} = (\v1CrossVersionObjectReferenceName -> V1CrossVersionObjectReference { v1CrossVersionObjectReferenceName, ..} ) <$> f v1CrossVersionObjectReferenceName +{-# INLINE v1CrossVersionObjectReferenceNameL #-} + + + +-- * V1CustomResourceColumnDefinition + +-- | 'v1CustomResourceColumnDefinitionDescription' Lens +v1CustomResourceColumnDefinitionDescriptionL :: Lens_' V1CustomResourceColumnDefinition (Maybe Text) +v1CustomResourceColumnDefinitionDescriptionL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionDescription -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionDescription, ..} ) <$> f v1CustomResourceColumnDefinitionDescription +{-# INLINE v1CustomResourceColumnDefinitionDescriptionL #-} + +-- | 'v1CustomResourceColumnDefinitionFormat' Lens +v1CustomResourceColumnDefinitionFormatL :: Lens_' V1CustomResourceColumnDefinition (Maybe Text) +v1CustomResourceColumnDefinitionFormatL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionFormat -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionFormat, ..} ) <$> f v1CustomResourceColumnDefinitionFormat +{-# INLINE v1CustomResourceColumnDefinitionFormatL #-} + +-- | 'v1CustomResourceColumnDefinitionJsonPath' Lens +v1CustomResourceColumnDefinitionJsonPathL :: Lens_' V1CustomResourceColumnDefinition (Text) +v1CustomResourceColumnDefinitionJsonPathL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionJsonPath -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionJsonPath, ..} ) <$> f v1CustomResourceColumnDefinitionJsonPath +{-# INLINE v1CustomResourceColumnDefinitionJsonPathL #-} + +-- | 'v1CustomResourceColumnDefinitionName' Lens +v1CustomResourceColumnDefinitionNameL :: Lens_' V1CustomResourceColumnDefinition (Text) +v1CustomResourceColumnDefinitionNameL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionName -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionName, ..} ) <$> f v1CustomResourceColumnDefinitionName +{-# INLINE v1CustomResourceColumnDefinitionNameL #-} + +-- | 'v1CustomResourceColumnDefinitionPriority' Lens +v1CustomResourceColumnDefinitionPriorityL :: Lens_' V1CustomResourceColumnDefinition (Maybe Int) +v1CustomResourceColumnDefinitionPriorityL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionPriority -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionPriority, ..} ) <$> f v1CustomResourceColumnDefinitionPriority +{-# INLINE v1CustomResourceColumnDefinitionPriorityL #-} + +-- | 'v1CustomResourceColumnDefinitionType' Lens +v1CustomResourceColumnDefinitionTypeL :: Lens_' V1CustomResourceColumnDefinition (Text) +v1CustomResourceColumnDefinitionTypeL f V1CustomResourceColumnDefinition{..} = (\v1CustomResourceColumnDefinitionType -> V1CustomResourceColumnDefinition { v1CustomResourceColumnDefinitionType, ..} ) <$> f v1CustomResourceColumnDefinitionType +{-# INLINE v1CustomResourceColumnDefinitionTypeL #-} + + + +-- * V1CustomResourceConversion + +-- | 'v1CustomResourceConversionStrategy' Lens +v1CustomResourceConversionStrategyL :: Lens_' V1CustomResourceConversion (Text) +v1CustomResourceConversionStrategyL f V1CustomResourceConversion{..} = (\v1CustomResourceConversionStrategy -> V1CustomResourceConversion { v1CustomResourceConversionStrategy, ..} ) <$> f v1CustomResourceConversionStrategy +{-# INLINE v1CustomResourceConversionStrategyL #-} + +-- | 'v1CustomResourceConversionWebhook' Lens +v1CustomResourceConversionWebhookL :: Lens_' V1CustomResourceConversion (Maybe V1WebhookConversion) +v1CustomResourceConversionWebhookL f V1CustomResourceConversion{..} = (\v1CustomResourceConversionWebhook -> V1CustomResourceConversion { v1CustomResourceConversionWebhook, ..} ) <$> f v1CustomResourceConversionWebhook +{-# INLINE v1CustomResourceConversionWebhookL #-} + + + +-- * V1CustomResourceDefinition + +-- | 'v1CustomResourceDefinitionApiVersion' Lens +v1CustomResourceDefinitionApiVersionL :: Lens_' V1CustomResourceDefinition (Maybe Text) +v1CustomResourceDefinitionApiVersionL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionApiVersion -> V1CustomResourceDefinition { v1CustomResourceDefinitionApiVersion, ..} ) <$> f v1CustomResourceDefinitionApiVersion +{-# INLINE v1CustomResourceDefinitionApiVersionL #-} + +-- | 'v1CustomResourceDefinitionKind' Lens +v1CustomResourceDefinitionKindL :: Lens_' V1CustomResourceDefinition (Maybe Text) +v1CustomResourceDefinitionKindL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionKind -> V1CustomResourceDefinition { v1CustomResourceDefinitionKind, ..} ) <$> f v1CustomResourceDefinitionKind +{-# INLINE v1CustomResourceDefinitionKindL #-} + +-- | 'v1CustomResourceDefinitionMetadata' Lens +v1CustomResourceDefinitionMetadataL :: Lens_' V1CustomResourceDefinition (Maybe V1ObjectMeta) +v1CustomResourceDefinitionMetadataL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionMetadata -> V1CustomResourceDefinition { v1CustomResourceDefinitionMetadata, ..} ) <$> f v1CustomResourceDefinitionMetadata +{-# INLINE v1CustomResourceDefinitionMetadataL #-} + +-- | 'v1CustomResourceDefinitionSpec' Lens +v1CustomResourceDefinitionSpecL :: Lens_' V1CustomResourceDefinition (V1CustomResourceDefinitionSpec) +v1CustomResourceDefinitionSpecL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionSpec -> V1CustomResourceDefinition { v1CustomResourceDefinitionSpec, ..} ) <$> f v1CustomResourceDefinitionSpec +{-# INLINE v1CustomResourceDefinitionSpecL #-} + +-- | 'v1CustomResourceDefinitionStatus' Lens +v1CustomResourceDefinitionStatusL :: Lens_' V1CustomResourceDefinition (Maybe V1CustomResourceDefinitionStatus) +v1CustomResourceDefinitionStatusL f V1CustomResourceDefinition{..} = (\v1CustomResourceDefinitionStatus -> V1CustomResourceDefinition { v1CustomResourceDefinitionStatus, ..} ) <$> f v1CustomResourceDefinitionStatus +{-# INLINE v1CustomResourceDefinitionStatusL #-} + + + +-- * V1CustomResourceDefinitionCondition + +-- | 'v1CustomResourceDefinitionConditionLastTransitionTime' Lens +v1CustomResourceDefinitionConditionLastTransitionTimeL :: Lens_' V1CustomResourceDefinitionCondition (Maybe DateTime) +v1CustomResourceDefinitionConditionLastTransitionTimeL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionLastTransitionTime -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionLastTransitionTime, ..} ) <$> f v1CustomResourceDefinitionConditionLastTransitionTime +{-# INLINE v1CustomResourceDefinitionConditionLastTransitionTimeL #-} + +-- | 'v1CustomResourceDefinitionConditionMessage' Lens +v1CustomResourceDefinitionConditionMessageL :: Lens_' V1CustomResourceDefinitionCondition (Maybe Text) +v1CustomResourceDefinitionConditionMessageL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionMessage -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionMessage, ..} ) <$> f v1CustomResourceDefinitionConditionMessage +{-# INLINE v1CustomResourceDefinitionConditionMessageL #-} + +-- | 'v1CustomResourceDefinitionConditionReason' Lens +v1CustomResourceDefinitionConditionReasonL :: Lens_' V1CustomResourceDefinitionCondition (Maybe Text) +v1CustomResourceDefinitionConditionReasonL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionReason -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionReason, ..} ) <$> f v1CustomResourceDefinitionConditionReason +{-# INLINE v1CustomResourceDefinitionConditionReasonL #-} + +-- | 'v1CustomResourceDefinitionConditionStatus' Lens +v1CustomResourceDefinitionConditionStatusL :: Lens_' V1CustomResourceDefinitionCondition (Text) +v1CustomResourceDefinitionConditionStatusL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionStatus -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionStatus, ..} ) <$> f v1CustomResourceDefinitionConditionStatus +{-# INLINE v1CustomResourceDefinitionConditionStatusL #-} + +-- | 'v1CustomResourceDefinitionConditionType' Lens +v1CustomResourceDefinitionConditionTypeL :: Lens_' V1CustomResourceDefinitionCondition (Text) +v1CustomResourceDefinitionConditionTypeL f V1CustomResourceDefinitionCondition{..} = (\v1CustomResourceDefinitionConditionType -> V1CustomResourceDefinitionCondition { v1CustomResourceDefinitionConditionType, ..} ) <$> f v1CustomResourceDefinitionConditionType +{-# INLINE v1CustomResourceDefinitionConditionTypeL #-} + + + +-- * V1CustomResourceDefinitionList + +-- | 'v1CustomResourceDefinitionListApiVersion' Lens +v1CustomResourceDefinitionListApiVersionL :: Lens_' V1CustomResourceDefinitionList (Maybe Text) +v1CustomResourceDefinitionListApiVersionL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListApiVersion -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListApiVersion, ..} ) <$> f v1CustomResourceDefinitionListApiVersion +{-# INLINE v1CustomResourceDefinitionListApiVersionL #-} + +-- | 'v1CustomResourceDefinitionListItems' Lens +v1CustomResourceDefinitionListItemsL :: Lens_' V1CustomResourceDefinitionList ([V1CustomResourceDefinition]) +v1CustomResourceDefinitionListItemsL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListItems -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListItems, ..} ) <$> f v1CustomResourceDefinitionListItems +{-# INLINE v1CustomResourceDefinitionListItemsL #-} + +-- | 'v1CustomResourceDefinitionListKind' Lens +v1CustomResourceDefinitionListKindL :: Lens_' V1CustomResourceDefinitionList (Maybe Text) +v1CustomResourceDefinitionListKindL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListKind -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListKind, ..} ) <$> f v1CustomResourceDefinitionListKind +{-# INLINE v1CustomResourceDefinitionListKindL #-} + +-- | 'v1CustomResourceDefinitionListMetadata' Lens +v1CustomResourceDefinitionListMetadataL :: Lens_' V1CustomResourceDefinitionList (Maybe V1ListMeta) +v1CustomResourceDefinitionListMetadataL f V1CustomResourceDefinitionList{..} = (\v1CustomResourceDefinitionListMetadata -> V1CustomResourceDefinitionList { v1CustomResourceDefinitionListMetadata, ..} ) <$> f v1CustomResourceDefinitionListMetadata +{-# INLINE v1CustomResourceDefinitionListMetadataL #-} + + + +-- * V1CustomResourceDefinitionNames + +-- | 'v1CustomResourceDefinitionNamesCategories' Lens +v1CustomResourceDefinitionNamesCategoriesL :: Lens_' V1CustomResourceDefinitionNames (Maybe [Text]) +v1CustomResourceDefinitionNamesCategoriesL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesCategories -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesCategories, ..} ) <$> f v1CustomResourceDefinitionNamesCategories +{-# INLINE v1CustomResourceDefinitionNamesCategoriesL #-} + +-- | 'v1CustomResourceDefinitionNamesKind' Lens +v1CustomResourceDefinitionNamesKindL :: Lens_' V1CustomResourceDefinitionNames (Text) +v1CustomResourceDefinitionNamesKindL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesKind -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesKind, ..} ) <$> f v1CustomResourceDefinitionNamesKind +{-# INLINE v1CustomResourceDefinitionNamesKindL #-} + +-- | 'v1CustomResourceDefinitionNamesListKind' Lens +v1CustomResourceDefinitionNamesListKindL :: Lens_' V1CustomResourceDefinitionNames (Maybe Text) +v1CustomResourceDefinitionNamesListKindL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesListKind -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesListKind, ..} ) <$> f v1CustomResourceDefinitionNamesListKind +{-# INLINE v1CustomResourceDefinitionNamesListKindL #-} + +-- | 'v1CustomResourceDefinitionNamesPlural' Lens +v1CustomResourceDefinitionNamesPluralL :: Lens_' V1CustomResourceDefinitionNames (Text) +v1CustomResourceDefinitionNamesPluralL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesPlural -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesPlural, ..} ) <$> f v1CustomResourceDefinitionNamesPlural +{-# INLINE v1CustomResourceDefinitionNamesPluralL #-} + +-- | 'v1CustomResourceDefinitionNamesShortNames' Lens +v1CustomResourceDefinitionNamesShortNamesL :: Lens_' V1CustomResourceDefinitionNames (Maybe [Text]) +v1CustomResourceDefinitionNamesShortNamesL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesShortNames -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesShortNames, ..} ) <$> f v1CustomResourceDefinitionNamesShortNames +{-# INLINE v1CustomResourceDefinitionNamesShortNamesL #-} + +-- | 'v1CustomResourceDefinitionNamesSingular' Lens +v1CustomResourceDefinitionNamesSingularL :: Lens_' V1CustomResourceDefinitionNames (Maybe Text) +v1CustomResourceDefinitionNamesSingularL f V1CustomResourceDefinitionNames{..} = (\v1CustomResourceDefinitionNamesSingular -> V1CustomResourceDefinitionNames { v1CustomResourceDefinitionNamesSingular, ..} ) <$> f v1CustomResourceDefinitionNamesSingular +{-# INLINE v1CustomResourceDefinitionNamesSingularL #-} + + + +-- * V1CustomResourceDefinitionSpec + +-- | 'v1CustomResourceDefinitionSpecConversion' Lens +v1CustomResourceDefinitionSpecConversionL :: Lens_' V1CustomResourceDefinitionSpec (Maybe V1CustomResourceConversion) +v1CustomResourceDefinitionSpecConversionL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecConversion -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecConversion, ..} ) <$> f v1CustomResourceDefinitionSpecConversion +{-# INLINE v1CustomResourceDefinitionSpecConversionL #-} + +-- | 'v1CustomResourceDefinitionSpecGroup' Lens +v1CustomResourceDefinitionSpecGroupL :: Lens_' V1CustomResourceDefinitionSpec (Text) +v1CustomResourceDefinitionSpecGroupL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecGroup -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecGroup, ..} ) <$> f v1CustomResourceDefinitionSpecGroup +{-# INLINE v1CustomResourceDefinitionSpecGroupL #-} + +-- | 'v1CustomResourceDefinitionSpecNames' Lens +v1CustomResourceDefinitionSpecNamesL :: Lens_' V1CustomResourceDefinitionSpec (V1CustomResourceDefinitionNames) +v1CustomResourceDefinitionSpecNamesL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecNames -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecNames, ..} ) <$> f v1CustomResourceDefinitionSpecNames +{-# INLINE v1CustomResourceDefinitionSpecNamesL #-} + +-- | 'v1CustomResourceDefinitionSpecPreserveUnknownFields' Lens +v1CustomResourceDefinitionSpecPreserveUnknownFieldsL :: Lens_' V1CustomResourceDefinitionSpec (Maybe Bool) +v1CustomResourceDefinitionSpecPreserveUnknownFieldsL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecPreserveUnknownFields -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecPreserveUnknownFields, ..} ) <$> f v1CustomResourceDefinitionSpecPreserveUnknownFields +{-# INLINE v1CustomResourceDefinitionSpecPreserveUnknownFieldsL #-} + +-- | 'v1CustomResourceDefinitionSpecScope' Lens +v1CustomResourceDefinitionSpecScopeL :: Lens_' V1CustomResourceDefinitionSpec (Text) +v1CustomResourceDefinitionSpecScopeL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecScope -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecScope, ..} ) <$> f v1CustomResourceDefinitionSpecScope +{-# INLINE v1CustomResourceDefinitionSpecScopeL #-} + +-- | 'v1CustomResourceDefinitionSpecVersions' Lens +v1CustomResourceDefinitionSpecVersionsL :: Lens_' V1CustomResourceDefinitionSpec ([V1CustomResourceDefinitionVersion]) +v1CustomResourceDefinitionSpecVersionsL f V1CustomResourceDefinitionSpec{..} = (\v1CustomResourceDefinitionSpecVersions -> V1CustomResourceDefinitionSpec { v1CustomResourceDefinitionSpecVersions, ..} ) <$> f v1CustomResourceDefinitionSpecVersions +{-# INLINE v1CustomResourceDefinitionSpecVersionsL #-} + + + +-- * V1CustomResourceDefinitionStatus + +-- | 'v1CustomResourceDefinitionStatusAcceptedNames' Lens +v1CustomResourceDefinitionStatusAcceptedNamesL :: Lens_' V1CustomResourceDefinitionStatus (Maybe V1CustomResourceDefinitionNames) +v1CustomResourceDefinitionStatusAcceptedNamesL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusAcceptedNames -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusAcceptedNames, ..} ) <$> f v1CustomResourceDefinitionStatusAcceptedNames +{-# INLINE v1CustomResourceDefinitionStatusAcceptedNamesL #-} + +-- | 'v1CustomResourceDefinitionStatusConditions' Lens +v1CustomResourceDefinitionStatusConditionsL :: Lens_' V1CustomResourceDefinitionStatus (Maybe [V1CustomResourceDefinitionCondition]) +v1CustomResourceDefinitionStatusConditionsL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusConditions -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusConditions, ..} ) <$> f v1CustomResourceDefinitionStatusConditions +{-# INLINE v1CustomResourceDefinitionStatusConditionsL #-} + +-- | 'v1CustomResourceDefinitionStatusStoredVersions' Lens +v1CustomResourceDefinitionStatusStoredVersionsL :: Lens_' V1CustomResourceDefinitionStatus (Maybe [Text]) +v1CustomResourceDefinitionStatusStoredVersionsL f V1CustomResourceDefinitionStatus{..} = (\v1CustomResourceDefinitionStatusStoredVersions -> V1CustomResourceDefinitionStatus { v1CustomResourceDefinitionStatusStoredVersions, ..} ) <$> f v1CustomResourceDefinitionStatusStoredVersions +{-# INLINE v1CustomResourceDefinitionStatusStoredVersionsL #-} + + + +-- * V1CustomResourceDefinitionVersion + +-- | 'v1CustomResourceDefinitionVersionAdditionalPrinterColumns' Lens +v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL :: Lens_' V1CustomResourceDefinitionVersion (Maybe [V1CustomResourceColumnDefinition]) +v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionAdditionalPrinterColumns -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionAdditionalPrinterColumns, ..} ) <$> f v1CustomResourceDefinitionVersionAdditionalPrinterColumns +{-# INLINE v1CustomResourceDefinitionVersionAdditionalPrinterColumnsL #-} + +-- | 'v1CustomResourceDefinitionVersionDeprecated' Lens +v1CustomResourceDefinitionVersionDeprecatedL :: Lens_' V1CustomResourceDefinitionVersion (Maybe Bool) +v1CustomResourceDefinitionVersionDeprecatedL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionDeprecated -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionDeprecated, ..} ) <$> f v1CustomResourceDefinitionVersionDeprecated +{-# INLINE v1CustomResourceDefinitionVersionDeprecatedL #-} + +-- | 'v1CustomResourceDefinitionVersionDeprecationWarning' Lens +v1CustomResourceDefinitionVersionDeprecationWarningL :: Lens_' V1CustomResourceDefinitionVersion (Maybe Text) +v1CustomResourceDefinitionVersionDeprecationWarningL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionDeprecationWarning -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionDeprecationWarning, ..} ) <$> f v1CustomResourceDefinitionVersionDeprecationWarning +{-# INLINE v1CustomResourceDefinitionVersionDeprecationWarningL #-} + +-- | 'v1CustomResourceDefinitionVersionName' Lens +v1CustomResourceDefinitionVersionNameL :: Lens_' V1CustomResourceDefinitionVersion (Text) +v1CustomResourceDefinitionVersionNameL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionName -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionName, ..} ) <$> f v1CustomResourceDefinitionVersionName +{-# INLINE v1CustomResourceDefinitionVersionNameL #-} + +-- | 'v1CustomResourceDefinitionVersionSchema' Lens +v1CustomResourceDefinitionVersionSchemaL :: Lens_' V1CustomResourceDefinitionVersion (Maybe V1CustomResourceValidation) +v1CustomResourceDefinitionVersionSchemaL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionSchema -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionSchema, ..} ) <$> f v1CustomResourceDefinitionVersionSchema +{-# INLINE v1CustomResourceDefinitionVersionSchemaL #-} + +-- | 'v1CustomResourceDefinitionVersionServed' Lens +v1CustomResourceDefinitionVersionServedL :: Lens_' V1CustomResourceDefinitionVersion (Bool) +v1CustomResourceDefinitionVersionServedL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionServed -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionServed, ..} ) <$> f v1CustomResourceDefinitionVersionServed +{-# INLINE v1CustomResourceDefinitionVersionServedL #-} + +-- | 'v1CustomResourceDefinitionVersionStorage' Lens +v1CustomResourceDefinitionVersionStorageL :: Lens_' V1CustomResourceDefinitionVersion (Bool) +v1CustomResourceDefinitionVersionStorageL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionStorage -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionStorage, ..} ) <$> f v1CustomResourceDefinitionVersionStorage +{-# INLINE v1CustomResourceDefinitionVersionStorageL #-} + +-- | 'v1CustomResourceDefinitionVersionSubresources' Lens +v1CustomResourceDefinitionVersionSubresourcesL :: Lens_' V1CustomResourceDefinitionVersion (Maybe V1CustomResourceSubresources) +v1CustomResourceDefinitionVersionSubresourcesL f V1CustomResourceDefinitionVersion{..} = (\v1CustomResourceDefinitionVersionSubresources -> V1CustomResourceDefinitionVersion { v1CustomResourceDefinitionVersionSubresources, ..} ) <$> f v1CustomResourceDefinitionVersionSubresources +{-# INLINE v1CustomResourceDefinitionVersionSubresourcesL #-} + + + +-- * V1CustomResourceSubresourceScale + +-- | 'v1CustomResourceSubresourceScaleLabelSelectorPath' Lens +v1CustomResourceSubresourceScaleLabelSelectorPathL :: Lens_' V1CustomResourceSubresourceScale (Maybe Text) +v1CustomResourceSubresourceScaleLabelSelectorPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleLabelSelectorPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleLabelSelectorPath, ..} ) <$> f v1CustomResourceSubresourceScaleLabelSelectorPath +{-# INLINE v1CustomResourceSubresourceScaleLabelSelectorPathL #-} + +-- | 'v1CustomResourceSubresourceScaleSpecReplicasPath' Lens +v1CustomResourceSubresourceScaleSpecReplicasPathL :: Lens_' V1CustomResourceSubresourceScale (Text) +v1CustomResourceSubresourceScaleSpecReplicasPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleSpecReplicasPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleSpecReplicasPath, ..} ) <$> f v1CustomResourceSubresourceScaleSpecReplicasPath +{-# INLINE v1CustomResourceSubresourceScaleSpecReplicasPathL #-} + +-- | 'v1CustomResourceSubresourceScaleStatusReplicasPath' Lens +v1CustomResourceSubresourceScaleStatusReplicasPathL :: Lens_' V1CustomResourceSubresourceScale (Text) +v1CustomResourceSubresourceScaleStatusReplicasPathL f V1CustomResourceSubresourceScale{..} = (\v1CustomResourceSubresourceScaleStatusReplicasPath -> V1CustomResourceSubresourceScale { v1CustomResourceSubresourceScaleStatusReplicasPath, ..} ) <$> f v1CustomResourceSubresourceScaleStatusReplicasPath +{-# INLINE v1CustomResourceSubresourceScaleStatusReplicasPathL #-} + + + +-- * V1CustomResourceSubresources + +-- | 'v1CustomResourceSubresourcesScale' Lens +v1CustomResourceSubresourcesScaleL :: Lens_' V1CustomResourceSubresources (Maybe V1CustomResourceSubresourceScale) +v1CustomResourceSubresourcesScaleL f V1CustomResourceSubresources{..} = (\v1CustomResourceSubresourcesScale -> V1CustomResourceSubresources { v1CustomResourceSubresourcesScale, ..} ) <$> f v1CustomResourceSubresourcesScale +{-# INLINE v1CustomResourceSubresourcesScaleL #-} + +-- | 'v1CustomResourceSubresourcesStatus' Lens +v1CustomResourceSubresourcesStatusL :: Lens_' V1CustomResourceSubresources (Maybe A.Value) +v1CustomResourceSubresourcesStatusL f V1CustomResourceSubresources{..} = (\v1CustomResourceSubresourcesStatus -> V1CustomResourceSubresources { v1CustomResourceSubresourcesStatus, ..} ) <$> f v1CustomResourceSubresourcesStatus +{-# INLINE v1CustomResourceSubresourcesStatusL #-} + + + +-- * V1CustomResourceValidation + +-- | 'v1CustomResourceValidationOpenApiv3Schema' Lens +v1CustomResourceValidationOpenApiv3SchemaL :: Lens_' V1CustomResourceValidation (Maybe V1JSONSchemaProps) +v1CustomResourceValidationOpenApiv3SchemaL f V1CustomResourceValidation{..} = (\v1CustomResourceValidationOpenApiv3Schema -> V1CustomResourceValidation { v1CustomResourceValidationOpenApiv3Schema, ..} ) <$> f v1CustomResourceValidationOpenApiv3Schema +{-# INLINE v1CustomResourceValidationOpenApiv3SchemaL #-} + + + +-- * V1DaemonEndpoint + +-- | 'v1DaemonEndpointPort' Lens +v1DaemonEndpointPortL :: Lens_' V1DaemonEndpoint (Int) +v1DaemonEndpointPortL f V1DaemonEndpoint{..} = (\v1DaemonEndpointPort -> V1DaemonEndpoint { v1DaemonEndpointPort, ..} ) <$> f v1DaemonEndpointPort +{-# INLINE v1DaemonEndpointPortL #-} + + + +-- * V1DaemonSet + +-- | 'v1DaemonSetApiVersion' Lens +v1DaemonSetApiVersionL :: Lens_' V1DaemonSet (Maybe Text) +v1DaemonSetApiVersionL f V1DaemonSet{..} = (\v1DaemonSetApiVersion -> V1DaemonSet { v1DaemonSetApiVersion, ..} ) <$> f v1DaemonSetApiVersion +{-# INLINE v1DaemonSetApiVersionL #-} + +-- | 'v1DaemonSetKind' Lens +v1DaemonSetKindL :: Lens_' V1DaemonSet (Maybe Text) +v1DaemonSetKindL f V1DaemonSet{..} = (\v1DaemonSetKind -> V1DaemonSet { v1DaemonSetKind, ..} ) <$> f v1DaemonSetKind +{-# INLINE v1DaemonSetKindL #-} + +-- | 'v1DaemonSetMetadata' Lens +v1DaemonSetMetadataL :: Lens_' V1DaemonSet (Maybe V1ObjectMeta) +v1DaemonSetMetadataL f V1DaemonSet{..} = (\v1DaemonSetMetadata -> V1DaemonSet { v1DaemonSetMetadata, ..} ) <$> f v1DaemonSetMetadata +{-# INLINE v1DaemonSetMetadataL #-} + +-- | 'v1DaemonSetSpec' Lens +v1DaemonSetSpecL :: Lens_' V1DaemonSet (Maybe V1DaemonSetSpec) +v1DaemonSetSpecL f V1DaemonSet{..} = (\v1DaemonSetSpec -> V1DaemonSet { v1DaemonSetSpec, ..} ) <$> f v1DaemonSetSpec +{-# INLINE v1DaemonSetSpecL #-} + +-- | 'v1DaemonSetStatus' Lens +v1DaemonSetStatusL :: Lens_' V1DaemonSet (Maybe V1DaemonSetStatus) +v1DaemonSetStatusL f V1DaemonSet{..} = (\v1DaemonSetStatus -> V1DaemonSet { v1DaemonSetStatus, ..} ) <$> f v1DaemonSetStatus +{-# INLINE v1DaemonSetStatusL #-} + + + +-- * V1DaemonSetCondition + +-- | 'v1DaemonSetConditionLastTransitionTime' Lens +v1DaemonSetConditionLastTransitionTimeL :: Lens_' V1DaemonSetCondition (Maybe DateTime) +v1DaemonSetConditionLastTransitionTimeL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionLastTransitionTime -> V1DaemonSetCondition { v1DaemonSetConditionLastTransitionTime, ..} ) <$> f v1DaemonSetConditionLastTransitionTime +{-# INLINE v1DaemonSetConditionLastTransitionTimeL #-} + +-- | 'v1DaemonSetConditionMessage' Lens +v1DaemonSetConditionMessageL :: Lens_' V1DaemonSetCondition (Maybe Text) +v1DaemonSetConditionMessageL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionMessage -> V1DaemonSetCondition { v1DaemonSetConditionMessage, ..} ) <$> f v1DaemonSetConditionMessage +{-# INLINE v1DaemonSetConditionMessageL #-} + +-- | 'v1DaemonSetConditionReason' Lens +v1DaemonSetConditionReasonL :: Lens_' V1DaemonSetCondition (Maybe Text) +v1DaemonSetConditionReasonL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionReason -> V1DaemonSetCondition { v1DaemonSetConditionReason, ..} ) <$> f v1DaemonSetConditionReason +{-# INLINE v1DaemonSetConditionReasonL #-} + +-- | 'v1DaemonSetConditionStatus' Lens +v1DaemonSetConditionStatusL :: Lens_' V1DaemonSetCondition (Text) +v1DaemonSetConditionStatusL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionStatus -> V1DaemonSetCondition { v1DaemonSetConditionStatus, ..} ) <$> f v1DaemonSetConditionStatus +{-# INLINE v1DaemonSetConditionStatusL #-} + +-- | 'v1DaemonSetConditionType' Lens +v1DaemonSetConditionTypeL :: Lens_' V1DaemonSetCondition (Text) +v1DaemonSetConditionTypeL f V1DaemonSetCondition{..} = (\v1DaemonSetConditionType -> V1DaemonSetCondition { v1DaemonSetConditionType, ..} ) <$> f v1DaemonSetConditionType +{-# INLINE v1DaemonSetConditionTypeL #-} + + + +-- * V1DaemonSetList + +-- | 'v1DaemonSetListApiVersion' Lens +v1DaemonSetListApiVersionL :: Lens_' V1DaemonSetList (Maybe Text) +v1DaemonSetListApiVersionL f V1DaemonSetList{..} = (\v1DaemonSetListApiVersion -> V1DaemonSetList { v1DaemonSetListApiVersion, ..} ) <$> f v1DaemonSetListApiVersion +{-# INLINE v1DaemonSetListApiVersionL #-} + +-- | 'v1DaemonSetListItems' Lens +v1DaemonSetListItemsL :: Lens_' V1DaemonSetList ([V1DaemonSet]) +v1DaemonSetListItemsL f V1DaemonSetList{..} = (\v1DaemonSetListItems -> V1DaemonSetList { v1DaemonSetListItems, ..} ) <$> f v1DaemonSetListItems +{-# INLINE v1DaemonSetListItemsL #-} + +-- | 'v1DaemonSetListKind' Lens +v1DaemonSetListKindL :: Lens_' V1DaemonSetList (Maybe Text) +v1DaemonSetListKindL f V1DaemonSetList{..} = (\v1DaemonSetListKind -> V1DaemonSetList { v1DaemonSetListKind, ..} ) <$> f v1DaemonSetListKind +{-# INLINE v1DaemonSetListKindL #-} + +-- | 'v1DaemonSetListMetadata' Lens +v1DaemonSetListMetadataL :: Lens_' V1DaemonSetList (Maybe V1ListMeta) +v1DaemonSetListMetadataL f V1DaemonSetList{..} = (\v1DaemonSetListMetadata -> V1DaemonSetList { v1DaemonSetListMetadata, ..} ) <$> f v1DaemonSetListMetadata +{-# INLINE v1DaemonSetListMetadataL #-} + + + +-- * V1DaemonSetSpec + +-- | 'v1DaemonSetSpecMinReadySeconds' Lens +v1DaemonSetSpecMinReadySecondsL :: Lens_' V1DaemonSetSpec (Maybe Int) +v1DaemonSetSpecMinReadySecondsL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecMinReadySeconds -> V1DaemonSetSpec { v1DaemonSetSpecMinReadySeconds, ..} ) <$> f v1DaemonSetSpecMinReadySeconds +{-# INLINE v1DaemonSetSpecMinReadySecondsL #-} + +-- | 'v1DaemonSetSpecRevisionHistoryLimit' Lens +v1DaemonSetSpecRevisionHistoryLimitL :: Lens_' V1DaemonSetSpec (Maybe Int) +v1DaemonSetSpecRevisionHistoryLimitL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecRevisionHistoryLimit -> V1DaemonSetSpec { v1DaemonSetSpecRevisionHistoryLimit, ..} ) <$> f v1DaemonSetSpecRevisionHistoryLimit +{-# INLINE v1DaemonSetSpecRevisionHistoryLimitL #-} + +-- | 'v1DaemonSetSpecSelector' Lens +v1DaemonSetSpecSelectorL :: Lens_' V1DaemonSetSpec (V1LabelSelector) +v1DaemonSetSpecSelectorL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecSelector -> V1DaemonSetSpec { v1DaemonSetSpecSelector, ..} ) <$> f v1DaemonSetSpecSelector +{-# INLINE v1DaemonSetSpecSelectorL #-} + +-- | 'v1DaemonSetSpecTemplate' Lens +v1DaemonSetSpecTemplateL :: Lens_' V1DaemonSetSpec (V1PodTemplateSpec) +v1DaemonSetSpecTemplateL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecTemplate -> V1DaemonSetSpec { v1DaemonSetSpecTemplate, ..} ) <$> f v1DaemonSetSpecTemplate +{-# INLINE v1DaemonSetSpecTemplateL #-} + +-- | 'v1DaemonSetSpecUpdateStrategy' Lens +v1DaemonSetSpecUpdateStrategyL :: Lens_' V1DaemonSetSpec (Maybe V1DaemonSetUpdateStrategy) +v1DaemonSetSpecUpdateStrategyL f V1DaemonSetSpec{..} = (\v1DaemonSetSpecUpdateStrategy -> V1DaemonSetSpec { v1DaemonSetSpecUpdateStrategy, ..} ) <$> f v1DaemonSetSpecUpdateStrategy +{-# INLINE v1DaemonSetSpecUpdateStrategyL #-} + + + +-- * V1DaemonSetStatus + +-- | 'v1DaemonSetStatusCollisionCount' Lens +v1DaemonSetStatusCollisionCountL :: Lens_' V1DaemonSetStatus (Maybe Int) +v1DaemonSetStatusCollisionCountL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusCollisionCount -> V1DaemonSetStatus { v1DaemonSetStatusCollisionCount, ..} ) <$> f v1DaemonSetStatusCollisionCount +{-# INLINE v1DaemonSetStatusCollisionCountL #-} + +-- | 'v1DaemonSetStatusConditions' Lens +v1DaemonSetStatusConditionsL :: Lens_' V1DaemonSetStatus (Maybe [V1DaemonSetCondition]) +v1DaemonSetStatusConditionsL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusConditions -> V1DaemonSetStatus { v1DaemonSetStatusConditions, ..} ) <$> f v1DaemonSetStatusConditions +{-# INLINE v1DaemonSetStatusConditionsL #-} + +-- | 'v1DaemonSetStatusCurrentNumberScheduled' Lens +v1DaemonSetStatusCurrentNumberScheduledL :: Lens_' V1DaemonSetStatus (Int) +v1DaemonSetStatusCurrentNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusCurrentNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusCurrentNumberScheduled, ..} ) <$> f v1DaemonSetStatusCurrentNumberScheduled +{-# INLINE v1DaemonSetStatusCurrentNumberScheduledL #-} + +-- | 'v1DaemonSetStatusDesiredNumberScheduled' Lens +v1DaemonSetStatusDesiredNumberScheduledL :: Lens_' V1DaemonSetStatus (Int) +v1DaemonSetStatusDesiredNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusDesiredNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusDesiredNumberScheduled, ..} ) <$> f v1DaemonSetStatusDesiredNumberScheduled +{-# INLINE v1DaemonSetStatusDesiredNumberScheduledL #-} + +-- | 'v1DaemonSetStatusNumberAvailable' Lens +v1DaemonSetStatusNumberAvailableL :: Lens_' V1DaemonSetStatus (Maybe Int) +v1DaemonSetStatusNumberAvailableL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberAvailable -> V1DaemonSetStatus { v1DaemonSetStatusNumberAvailable, ..} ) <$> f v1DaemonSetStatusNumberAvailable +{-# INLINE v1DaemonSetStatusNumberAvailableL #-} + +-- | 'v1DaemonSetStatusNumberMisscheduled' Lens +v1DaemonSetStatusNumberMisscheduledL :: Lens_' V1DaemonSetStatus (Int) +v1DaemonSetStatusNumberMisscheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberMisscheduled -> V1DaemonSetStatus { v1DaemonSetStatusNumberMisscheduled, ..} ) <$> f v1DaemonSetStatusNumberMisscheduled +{-# INLINE v1DaemonSetStatusNumberMisscheduledL #-} + +-- | 'v1DaemonSetStatusNumberReady' Lens +v1DaemonSetStatusNumberReadyL :: Lens_' V1DaemonSetStatus (Int) +v1DaemonSetStatusNumberReadyL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberReady -> V1DaemonSetStatus { v1DaemonSetStatusNumberReady, ..} ) <$> f v1DaemonSetStatusNumberReady +{-# INLINE v1DaemonSetStatusNumberReadyL #-} + +-- | 'v1DaemonSetStatusNumberUnavailable' Lens +v1DaemonSetStatusNumberUnavailableL :: Lens_' V1DaemonSetStatus (Maybe Int) +v1DaemonSetStatusNumberUnavailableL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusNumberUnavailable -> V1DaemonSetStatus { v1DaemonSetStatusNumberUnavailable, ..} ) <$> f v1DaemonSetStatusNumberUnavailable +{-# INLINE v1DaemonSetStatusNumberUnavailableL #-} + +-- | 'v1DaemonSetStatusObservedGeneration' Lens +v1DaemonSetStatusObservedGenerationL :: Lens_' V1DaemonSetStatus (Maybe Integer) +v1DaemonSetStatusObservedGenerationL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusObservedGeneration -> V1DaemonSetStatus { v1DaemonSetStatusObservedGeneration, ..} ) <$> f v1DaemonSetStatusObservedGeneration +{-# INLINE v1DaemonSetStatusObservedGenerationL #-} + +-- | 'v1DaemonSetStatusUpdatedNumberScheduled' Lens +v1DaemonSetStatusUpdatedNumberScheduledL :: Lens_' V1DaemonSetStatus (Maybe Int) +v1DaemonSetStatusUpdatedNumberScheduledL f V1DaemonSetStatus{..} = (\v1DaemonSetStatusUpdatedNumberScheduled -> V1DaemonSetStatus { v1DaemonSetStatusUpdatedNumberScheduled, ..} ) <$> f v1DaemonSetStatusUpdatedNumberScheduled +{-# INLINE v1DaemonSetStatusUpdatedNumberScheduledL #-} + + + +-- * V1DaemonSetUpdateStrategy + +-- | 'v1DaemonSetUpdateStrategyRollingUpdate' Lens +v1DaemonSetUpdateStrategyRollingUpdateL :: Lens_' V1DaemonSetUpdateStrategy (Maybe V1RollingUpdateDaemonSet) +v1DaemonSetUpdateStrategyRollingUpdateL f V1DaemonSetUpdateStrategy{..} = (\v1DaemonSetUpdateStrategyRollingUpdate -> V1DaemonSetUpdateStrategy { v1DaemonSetUpdateStrategyRollingUpdate, ..} ) <$> f v1DaemonSetUpdateStrategyRollingUpdate +{-# INLINE v1DaemonSetUpdateStrategyRollingUpdateL #-} + +-- | 'v1DaemonSetUpdateStrategyType' Lens +v1DaemonSetUpdateStrategyTypeL :: Lens_' V1DaemonSetUpdateStrategy (Maybe Text) +v1DaemonSetUpdateStrategyTypeL f V1DaemonSetUpdateStrategy{..} = (\v1DaemonSetUpdateStrategyType -> V1DaemonSetUpdateStrategy { v1DaemonSetUpdateStrategyType, ..} ) <$> f v1DaemonSetUpdateStrategyType +{-# INLINE v1DaemonSetUpdateStrategyTypeL #-} + + + +-- * V1DeleteOptions + +-- | 'v1DeleteOptionsApiVersion' Lens +v1DeleteOptionsApiVersionL :: Lens_' V1DeleteOptions (Maybe Text) +v1DeleteOptionsApiVersionL f V1DeleteOptions{..} = (\v1DeleteOptionsApiVersion -> V1DeleteOptions { v1DeleteOptionsApiVersion, ..} ) <$> f v1DeleteOptionsApiVersion +{-# INLINE v1DeleteOptionsApiVersionL #-} + +-- | 'v1DeleteOptionsDryRun' Lens +v1DeleteOptionsDryRunL :: Lens_' V1DeleteOptions (Maybe [Text]) +v1DeleteOptionsDryRunL f V1DeleteOptions{..} = (\v1DeleteOptionsDryRun -> V1DeleteOptions { v1DeleteOptionsDryRun, ..} ) <$> f v1DeleteOptionsDryRun +{-# INLINE v1DeleteOptionsDryRunL #-} + +-- | 'v1DeleteOptionsGracePeriodSeconds' Lens +v1DeleteOptionsGracePeriodSecondsL :: Lens_' V1DeleteOptions (Maybe Integer) +v1DeleteOptionsGracePeriodSecondsL f V1DeleteOptions{..} = (\v1DeleteOptionsGracePeriodSeconds -> V1DeleteOptions { v1DeleteOptionsGracePeriodSeconds, ..} ) <$> f v1DeleteOptionsGracePeriodSeconds +{-# INLINE v1DeleteOptionsGracePeriodSecondsL #-} + +-- | 'v1DeleteOptionsKind' Lens +v1DeleteOptionsKindL :: Lens_' V1DeleteOptions (Maybe Text) +v1DeleteOptionsKindL f V1DeleteOptions{..} = (\v1DeleteOptionsKind -> V1DeleteOptions { v1DeleteOptionsKind, ..} ) <$> f v1DeleteOptionsKind +{-# INLINE v1DeleteOptionsKindL #-} + +-- | 'v1DeleteOptionsOrphanDependents' Lens +v1DeleteOptionsOrphanDependentsL :: Lens_' V1DeleteOptions (Maybe Bool) +v1DeleteOptionsOrphanDependentsL f V1DeleteOptions{..} = (\v1DeleteOptionsOrphanDependents -> V1DeleteOptions { v1DeleteOptionsOrphanDependents, ..} ) <$> f v1DeleteOptionsOrphanDependents +{-# INLINE v1DeleteOptionsOrphanDependentsL #-} + +-- | 'v1DeleteOptionsPreconditions' Lens +v1DeleteOptionsPreconditionsL :: Lens_' V1DeleteOptions (Maybe V1Preconditions) +v1DeleteOptionsPreconditionsL f V1DeleteOptions{..} = (\v1DeleteOptionsPreconditions -> V1DeleteOptions { v1DeleteOptionsPreconditions, ..} ) <$> f v1DeleteOptionsPreconditions +{-# INLINE v1DeleteOptionsPreconditionsL #-} + +-- | 'v1DeleteOptionsPropagationPolicy' Lens +v1DeleteOptionsPropagationPolicyL :: Lens_' V1DeleteOptions (Maybe Text) +v1DeleteOptionsPropagationPolicyL f V1DeleteOptions{..} = (\v1DeleteOptionsPropagationPolicy -> V1DeleteOptions { v1DeleteOptionsPropagationPolicy, ..} ) <$> f v1DeleteOptionsPropagationPolicy +{-# INLINE v1DeleteOptionsPropagationPolicyL #-} + + + +-- * V1Deployment + +-- | 'v1DeploymentApiVersion' Lens +v1DeploymentApiVersionL :: Lens_' V1Deployment (Maybe Text) +v1DeploymentApiVersionL f V1Deployment{..} = (\v1DeploymentApiVersion -> V1Deployment { v1DeploymentApiVersion, ..} ) <$> f v1DeploymentApiVersion +{-# INLINE v1DeploymentApiVersionL #-} + +-- | 'v1DeploymentKind' Lens +v1DeploymentKindL :: Lens_' V1Deployment (Maybe Text) +v1DeploymentKindL f V1Deployment{..} = (\v1DeploymentKind -> V1Deployment { v1DeploymentKind, ..} ) <$> f v1DeploymentKind +{-# INLINE v1DeploymentKindL #-} + +-- | 'v1DeploymentMetadata' Lens +v1DeploymentMetadataL :: Lens_' V1Deployment (Maybe V1ObjectMeta) +v1DeploymentMetadataL f V1Deployment{..} = (\v1DeploymentMetadata -> V1Deployment { v1DeploymentMetadata, ..} ) <$> f v1DeploymentMetadata +{-# INLINE v1DeploymentMetadataL #-} + +-- | 'v1DeploymentSpec' Lens +v1DeploymentSpecL :: Lens_' V1Deployment (Maybe V1DeploymentSpec) +v1DeploymentSpecL f V1Deployment{..} = (\v1DeploymentSpec -> V1Deployment { v1DeploymentSpec, ..} ) <$> f v1DeploymentSpec +{-# INLINE v1DeploymentSpecL #-} + +-- | 'v1DeploymentStatus' Lens +v1DeploymentStatusL :: Lens_' V1Deployment (Maybe V1DeploymentStatus) +v1DeploymentStatusL f V1Deployment{..} = (\v1DeploymentStatus -> V1Deployment { v1DeploymentStatus, ..} ) <$> f v1DeploymentStatus +{-# INLINE v1DeploymentStatusL #-} + + + +-- * V1DeploymentCondition + +-- | 'v1DeploymentConditionLastTransitionTime' Lens +v1DeploymentConditionLastTransitionTimeL :: Lens_' V1DeploymentCondition (Maybe DateTime) +v1DeploymentConditionLastTransitionTimeL f V1DeploymentCondition{..} = (\v1DeploymentConditionLastTransitionTime -> V1DeploymentCondition { v1DeploymentConditionLastTransitionTime, ..} ) <$> f v1DeploymentConditionLastTransitionTime +{-# INLINE v1DeploymentConditionLastTransitionTimeL #-} + +-- | 'v1DeploymentConditionLastUpdateTime' Lens +v1DeploymentConditionLastUpdateTimeL :: Lens_' V1DeploymentCondition (Maybe DateTime) +v1DeploymentConditionLastUpdateTimeL f V1DeploymentCondition{..} = (\v1DeploymentConditionLastUpdateTime -> V1DeploymentCondition { v1DeploymentConditionLastUpdateTime, ..} ) <$> f v1DeploymentConditionLastUpdateTime +{-# INLINE v1DeploymentConditionLastUpdateTimeL #-} + +-- | 'v1DeploymentConditionMessage' Lens +v1DeploymentConditionMessageL :: Lens_' V1DeploymentCondition (Maybe Text) +v1DeploymentConditionMessageL f V1DeploymentCondition{..} = (\v1DeploymentConditionMessage -> V1DeploymentCondition { v1DeploymentConditionMessage, ..} ) <$> f v1DeploymentConditionMessage +{-# INLINE v1DeploymentConditionMessageL #-} + +-- | 'v1DeploymentConditionReason' Lens +v1DeploymentConditionReasonL :: Lens_' V1DeploymentCondition (Maybe Text) +v1DeploymentConditionReasonL f V1DeploymentCondition{..} = (\v1DeploymentConditionReason -> V1DeploymentCondition { v1DeploymentConditionReason, ..} ) <$> f v1DeploymentConditionReason +{-# INLINE v1DeploymentConditionReasonL #-} + +-- | 'v1DeploymentConditionStatus' Lens +v1DeploymentConditionStatusL :: Lens_' V1DeploymentCondition (Text) +v1DeploymentConditionStatusL f V1DeploymentCondition{..} = (\v1DeploymentConditionStatus -> V1DeploymentCondition { v1DeploymentConditionStatus, ..} ) <$> f v1DeploymentConditionStatus +{-# INLINE v1DeploymentConditionStatusL #-} + +-- | 'v1DeploymentConditionType' Lens +v1DeploymentConditionTypeL :: Lens_' V1DeploymentCondition (Text) +v1DeploymentConditionTypeL f V1DeploymentCondition{..} = (\v1DeploymentConditionType -> V1DeploymentCondition { v1DeploymentConditionType, ..} ) <$> f v1DeploymentConditionType +{-# INLINE v1DeploymentConditionTypeL #-} + + + +-- * V1DeploymentList + +-- | 'v1DeploymentListApiVersion' Lens +v1DeploymentListApiVersionL :: Lens_' V1DeploymentList (Maybe Text) +v1DeploymentListApiVersionL f V1DeploymentList{..} = (\v1DeploymentListApiVersion -> V1DeploymentList { v1DeploymentListApiVersion, ..} ) <$> f v1DeploymentListApiVersion +{-# INLINE v1DeploymentListApiVersionL #-} + +-- | 'v1DeploymentListItems' Lens +v1DeploymentListItemsL :: Lens_' V1DeploymentList ([V1Deployment]) +v1DeploymentListItemsL f V1DeploymentList{..} = (\v1DeploymentListItems -> V1DeploymentList { v1DeploymentListItems, ..} ) <$> f v1DeploymentListItems +{-# INLINE v1DeploymentListItemsL #-} + +-- | 'v1DeploymentListKind' Lens +v1DeploymentListKindL :: Lens_' V1DeploymentList (Maybe Text) +v1DeploymentListKindL f V1DeploymentList{..} = (\v1DeploymentListKind -> V1DeploymentList { v1DeploymentListKind, ..} ) <$> f v1DeploymentListKind +{-# INLINE v1DeploymentListKindL #-} + +-- | 'v1DeploymentListMetadata' Lens +v1DeploymentListMetadataL :: Lens_' V1DeploymentList (Maybe V1ListMeta) +v1DeploymentListMetadataL f V1DeploymentList{..} = (\v1DeploymentListMetadata -> V1DeploymentList { v1DeploymentListMetadata, ..} ) <$> f v1DeploymentListMetadata +{-# INLINE v1DeploymentListMetadataL #-} + + + +-- * V1DeploymentSpec + +-- | 'v1DeploymentSpecMinReadySeconds' Lens +v1DeploymentSpecMinReadySecondsL :: Lens_' V1DeploymentSpec (Maybe Int) +v1DeploymentSpecMinReadySecondsL f V1DeploymentSpec{..} = (\v1DeploymentSpecMinReadySeconds -> V1DeploymentSpec { v1DeploymentSpecMinReadySeconds, ..} ) <$> f v1DeploymentSpecMinReadySeconds +{-# INLINE v1DeploymentSpecMinReadySecondsL #-} + +-- | 'v1DeploymentSpecPaused' Lens +v1DeploymentSpecPausedL :: Lens_' V1DeploymentSpec (Maybe Bool) +v1DeploymentSpecPausedL f V1DeploymentSpec{..} = (\v1DeploymentSpecPaused -> V1DeploymentSpec { v1DeploymentSpecPaused, ..} ) <$> f v1DeploymentSpecPaused +{-# INLINE v1DeploymentSpecPausedL #-} + +-- | 'v1DeploymentSpecProgressDeadlineSeconds' Lens +v1DeploymentSpecProgressDeadlineSecondsL :: Lens_' V1DeploymentSpec (Maybe Int) +v1DeploymentSpecProgressDeadlineSecondsL f V1DeploymentSpec{..} = (\v1DeploymentSpecProgressDeadlineSeconds -> V1DeploymentSpec { v1DeploymentSpecProgressDeadlineSeconds, ..} ) <$> f v1DeploymentSpecProgressDeadlineSeconds +{-# INLINE v1DeploymentSpecProgressDeadlineSecondsL #-} + +-- | 'v1DeploymentSpecReplicas' Lens +v1DeploymentSpecReplicasL :: Lens_' V1DeploymentSpec (Maybe Int) +v1DeploymentSpecReplicasL f V1DeploymentSpec{..} = (\v1DeploymentSpecReplicas -> V1DeploymentSpec { v1DeploymentSpecReplicas, ..} ) <$> f v1DeploymentSpecReplicas +{-# INLINE v1DeploymentSpecReplicasL #-} + +-- | 'v1DeploymentSpecRevisionHistoryLimit' Lens +v1DeploymentSpecRevisionHistoryLimitL :: Lens_' V1DeploymentSpec (Maybe Int) +v1DeploymentSpecRevisionHistoryLimitL f V1DeploymentSpec{..} = (\v1DeploymentSpecRevisionHistoryLimit -> V1DeploymentSpec { v1DeploymentSpecRevisionHistoryLimit, ..} ) <$> f v1DeploymentSpecRevisionHistoryLimit +{-# INLINE v1DeploymentSpecRevisionHistoryLimitL #-} + +-- | 'v1DeploymentSpecSelector' Lens +v1DeploymentSpecSelectorL :: Lens_' V1DeploymentSpec (V1LabelSelector) +v1DeploymentSpecSelectorL f V1DeploymentSpec{..} = (\v1DeploymentSpecSelector -> V1DeploymentSpec { v1DeploymentSpecSelector, ..} ) <$> f v1DeploymentSpecSelector +{-# INLINE v1DeploymentSpecSelectorL #-} + +-- | 'v1DeploymentSpecStrategy' Lens +v1DeploymentSpecStrategyL :: Lens_' V1DeploymentSpec (Maybe V1DeploymentStrategy) +v1DeploymentSpecStrategyL f V1DeploymentSpec{..} = (\v1DeploymentSpecStrategy -> V1DeploymentSpec { v1DeploymentSpecStrategy, ..} ) <$> f v1DeploymentSpecStrategy +{-# INLINE v1DeploymentSpecStrategyL #-} + +-- | 'v1DeploymentSpecTemplate' Lens +v1DeploymentSpecTemplateL :: Lens_' V1DeploymentSpec (V1PodTemplateSpec) +v1DeploymentSpecTemplateL f V1DeploymentSpec{..} = (\v1DeploymentSpecTemplate -> V1DeploymentSpec { v1DeploymentSpecTemplate, ..} ) <$> f v1DeploymentSpecTemplate +{-# INLINE v1DeploymentSpecTemplateL #-} + + + +-- * V1DeploymentStatus + +-- | 'v1DeploymentStatusAvailableReplicas' Lens +v1DeploymentStatusAvailableReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusAvailableReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusAvailableReplicas -> V1DeploymentStatus { v1DeploymentStatusAvailableReplicas, ..} ) <$> f v1DeploymentStatusAvailableReplicas +{-# INLINE v1DeploymentStatusAvailableReplicasL #-} + +-- | 'v1DeploymentStatusCollisionCount' Lens +v1DeploymentStatusCollisionCountL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusCollisionCountL f V1DeploymentStatus{..} = (\v1DeploymentStatusCollisionCount -> V1DeploymentStatus { v1DeploymentStatusCollisionCount, ..} ) <$> f v1DeploymentStatusCollisionCount +{-# INLINE v1DeploymentStatusCollisionCountL #-} + +-- | 'v1DeploymentStatusConditions' Lens +v1DeploymentStatusConditionsL :: Lens_' V1DeploymentStatus (Maybe [V1DeploymentCondition]) +v1DeploymentStatusConditionsL f V1DeploymentStatus{..} = (\v1DeploymentStatusConditions -> V1DeploymentStatus { v1DeploymentStatusConditions, ..} ) <$> f v1DeploymentStatusConditions +{-# INLINE v1DeploymentStatusConditionsL #-} + +-- | 'v1DeploymentStatusObservedGeneration' Lens +v1DeploymentStatusObservedGenerationL :: Lens_' V1DeploymentStatus (Maybe Integer) +v1DeploymentStatusObservedGenerationL f V1DeploymentStatus{..} = (\v1DeploymentStatusObservedGeneration -> V1DeploymentStatus { v1DeploymentStatusObservedGeneration, ..} ) <$> f v1DeploymentStatusObservedGeneration +{-# INLINE v1DeploymentStatusObservedGenerationL #-} + +-- | 'v1DeploymentStatusReadyReplicas' Lens +v1DeploymentStatusReadyReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusReadyReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusReadyReplicas -> V1DeploymentStatus { v1DeploymentStatusReadyReplicas, ..} ) <$> f v1DeploymentStatusReadyReplicas +{-# INLINE v1DeploymentStatusReadyReplicasL #-} + +-- | 'v1DeploymentStatusReplicas' Lens +v1DeploymentStatusReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusReplicas -> V1DeploymentStatus { v1DeploymentStatusReplicas, ..} ) <$> f v1DeploymentStatusReplicas +{-# INLINE v1DeploymentStatusReplicasL #-} + +-- | 'v1DeploymentStatusUnavailableReplicas' Lens +v1DeploymentStatusUnavailableReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusUnavailableReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusUnavailableReplicas -> V1DeploymentStatus { v1DeploymentStatusUnavailableReplicas, ..} ) <$> f v1DeploymentStatusUnavailableReplicas +{-# INLINE v1DeploymentStatusUnavailableReplicasL #-} + +-- | 'v1DeploymentStatusUpdatedReplicas' Lens +v1DeploymentStatusUpdatedReplicasL :: Lens_' V1DeploymentStatus (Maybe Int) +v1DeploymentStatusUpdatedReplicasL f V1DeploymentStatus{..} = (\v1DeploymentStatusUpdatedReplicas -> V1DeploymentStatus { v1DeploymentStatusUpdatedReplicas, ..} ) <$> f v1DeploymentStatusUpdatedReplicas +{-# INLINE v1DeploymentStatusUpdatedReplicasL #-} + + + +-- * V1DeploymentStrategy + +-- | 'v1DeploymentStrategyRollingUpdate' Lens +v1DeploymentStrategyRollingUpdateL :: Lens_' V1DeploymentStrategy (Maybe V1RollingUpdateDeployment) +v1DeploymentStrategyRollingUpdateL f V1DeploymentStrategy{..} = (\v1DeploymentStrategyRollingUpdate -> V1DeploymentStrategy { v1DeploymentStrategyRollingUpdate, ..} ) <$> f v1DeploymentStrategyRollingUpdate +{-# INLINE v1DeploymentStrategyRollingUpdateL #-} + +-- | 'v1DeploymentStrategyType' Lens +v1DeploymentStrategyTypeL :: Lens_' V1DeploymentStrategy (Maybe Text) +v1DeploymentStrategyTypeL f V1DeploymentStrategy{..} = (\v1DeploymentStrategyType -> V1DeploymentStrategy { v1DeploymentStrategyType, ..} ) <$> f v1DeploymentStrategyType +{-# INLINE v1DeploymentStrategyTypeL #-} + + + +-- * V1DownwardAPIProjection + +-- | 'v1DownwardAPIProjectionItems' Lens +v1DownwardAPIProjectionItemsL :: Lens_' V1DownwardAPIProjection (Maybe [V1DownwardAPIVolumeFile]) +v1DownwardAPIProjectionItemsL f V1DownwardAPIProjection{..} = (\v1DownwardAPIProjectionItems -> V1DownwardAPIProjection { v1DownwardAPIProjectionItems, ..} ) <$> f v1DownwardAPIProjectionItems +{-# INLINE v1DownwardAPIProjectionItemsL #-} + + + +-- * V1DownwardAPIVolumeFile + +-- | 'v1DownwardAPIVolumeFileFieldRef' Lens +v1DownwardAPIVolumeFileFieldRefL :: Lens_' V1DownwardAPIVolumeFile (Maybe V1ObjectFieldSelector) +v1DownwardAPIVolumeFileFieldRefL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileFieldRef -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileFieldRef, ..} ) <$> f v1DownwardAPIVolumeFileFieldRef +{-# INLINE v1DownwardAPIVolumeFileFieldRefL #-} + +-- | 'v1DownwardAPIVolumeFileMode' Lens +v1DownwardAPIVolumeFileModeL :: Lens_' V1DownwardAPIVolumeFile (Maybe Int) +v1DownwardAPIVolumeFileModeL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileMode -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileMode, ..} ) <$> f v1DownwardAPIVolumeFileMode +{-# INLINE v1DownwardAPIVolumeFileModeL #-} + +-- | 'v1DownwardAPIVolumeFilePath' Lens +v1DownwardAPIVolumeFilePathL :: Lens_' V1DownwardAPIVolumeFile (Text) +v1DownwardAPIVolumeFilePathL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFilePath -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFilePath, ..} ) <$> f v1DownwardAPIVolumeFilePath +{-# INLINE v1DownwardAPIVolumeFilePathL #-} + +-- | 'v1DownwardAPIVolumeFileResourceFieldRef' Lens +v1DownwardAPIVolumeFileResourceFieldRefL :: Lens_' V1DownwardAPIVolumeFile (Maybe V1ResourceFieldSelector) +v1DownwardAPIVolumeFileResourceFieldRefL f V1DownwardAPIVolumeFile{..} = (\v1DownwardAPIVolumeFileResourceFieldRef -> V1DownwardAPIVolumeFile { v1DownwardAPIVolumeFileResourceFieldRef, ..} ) <$> f v1DownwardAPIVolumeFileResourceFieldRef +{-# INLINE v1DownwardAPIVolumeFileResourceFieldRefL #-} + + + +-- * V1DownwardAPIVolumeSource + +-- | 'v1DownwardAPIVolumeSourceDefaultMode' Lens +v1DownwardAPIVolumeSourceDefaultModeL :: Lens_' V1DownwardAPIVolumeSource (Maybe Int) +v1DownwardAPIVolumeSourceDefaultModeL f V1DownwardAPIVolumeSource{..} = (\v1DownwardAPIVolumeSourceDefaultMode -> V1DownwardAPIVolumeSource { v1DownwardAPIVolumeSourceDefaultMode, ..} ) <$> f v1DownwardAPIVolumeSourceDefaultMode +{-# INLINE v1DownwardAPIVolumeSourceDefaultModeL #-} + +-- | 'v1DownwardAPIVolumeSourceItems' Lens +v1DownwardAPIVolumeSourceItemsL :: Lens_' V1DownwardAPIVolumeSource (Maybe [V1DownwardAPIVolumeFile]) +v1DownwardAPIVolumeSourceItemsL f V1DownwardAPIVolumeSource{..} = (\v1DownwardAPIVolumeSourceItems -> V1DownwardAPIVolumeSource { v1DownwardAPIVolumeSourceItems, ..} ) <$> f v1DownwardAPIVolumeSourceItems +{-# INLINE v1DownwardAPIVolumeSourceItemsL #-} + + + +-- * V1EmptyDirVolumeSource + +-- | 'v1EmptyDirVolumeSourceMedium' Lens +v1EmptyDirVolumeSourceMediumL :: Lens_' V1EmptyDirVolumeSource (Maybe Text) +v1EmptyDirVolumeSourceMediumL f V1EmptyDirVolumeSource{..} = (\v1EmptyDirVolumeSourceMedium -> V1EmptyDirVolumeSource { v1EmptyDirVolumeSourceMedium, ..} ) <$> f v1EmptyDirVolumeSourceMedium +{-# INLINE v1EmptyDirVolumeSourceMediumL #-} + +-- | 'v1EmptyDirVolumeSourceSizeLimit' Lens +v1EmptyDirVolumeSourceSizeLimitL :: Lens_' V1EmptyDirVolumeSource (Maybe Quantity) +v1EmptyDirVolumeSourceSizeLimitL f V1EmptyDirVolumeSource{..} = (\v1EmptyDirVolumeSourceSizeLimit -> V1EmptyDirVolumeSource { v1EmptyDirVolumeSourceSizeLimit, ..} ) <$> f v1EmptyDirVolumeSourceSizeLimit +{-# INLINE v1EmptyDirVolumeSourceSizeLimitL #-} + + + +-- * V1Endpoint + +-- | 'v1EndpointAddresses' Lens +v1EndpointAddressesL :: Lens_' V1Endpoint ([Text]) +v1EndpointAddressesL f V1Endpoint{..} = (\v1EndpointAddresses -> V1Endpoint { v1EndpointAddresses, ..} ) <$> f v1EndpointAddresses +{-# INLINE v1EndpointAddressesL #-} + +-- | 'v1EndpointConditions' Lens +v1EndpointConditionsL :: Lens_' V1Endpoint (Maybe V1EndpointConditions) +v1EndpointConditionsL f V1Endpoint{..} = (\v1EndpointConditions -> V1Endpoint { v1EndpointConditions, ..} ) <$> f v1EndpointConditions +{-# INLINE v1EndpointConditionsL #-} + +-- | 'v1EndpointDeprecatedTopology' Lens +v1EndpointDeprecatedTopologyL :: Lens_' V1Endpoint (Maybe (Map.Map String Text)) +v1EndpointDeprecatedTopologyL f V1Endpoint{..} = (\v1EndpointDeprecatedTopology -> V1Endpoint { v1EndpointDeprecatedTopology, ..} ) <$> f v1EndpointDeprecatedTopology +{-# INLINE v1EndpointDeprecatedTopologyL #-} + +-- | 'v1EndpointHints' Lens +v1EndpointHintsL :: Lens_' V1Endpoint (Maybe V1EndpointHints) +v1EndpointHintsL f V1Endpoint{..} = (\v1EndpointHints -> V1Endpoint { v1EndpointHints, ..} ) <$> f v1EndpointHints +{-# INLINE v1EndpointHintsL #-} + +-- | 'v1EndpointHostname' Lens +v1EndpointHostnameL :: Lens_' V1Endpoint (Maybe Text) +v1EndpointHostnameL f V1Endpoint{..} = (\v1EndpointHostname -> V1Endpoint { v1EndpointHostname, ..} ) <$> f v1EndpointHostname +{-# INLINE v1EndpointHostnameL #-} + +-- | 'v1EndpointNodeName' Lens +v1EndpointNodeNameL :: Lens_' V1Endpoint (Maybe Text) +v1EndpointNodeNameL f V1Endpoint{..} = (\v1EndpointNodeName -> V1Endpoint { v1EndpointNodeName, ..} ) <$> f v1EndpointNodeName +{-# INLINE v1EndpointNodeNameL #-} + +-- | 'v1EndpointTargetRef' Lens +v1EndpointTargetRefL :: Lens_' V1Endpoint (Maybe V1ObjectReference) +v1EndpointTargetRefL f V1Endpoint{..} = (\v1EndpointTargetRef -> V1Endpoint { v1EndpointTargetRef, ..} ) <$> f v1EndpointTargetRef +{-# INLINE v1EndpointTargetRefL #-} + +-- | 'v1EndpointZone' Lens +v1EndpointZoneL :: Lens_' V1Endpoint (Maybe Text) +v1EndpointZoneL f V1Endpoint{..} = (\v1EndpointZone -> V1Endpoint { v1EndpointZone, ..} ) <$> f v1EndpointZone +{-# INLINE v1EndpointZoneL #-} + + + +-- * V1EndpointAddress + +-- | 'v1EndpointAddressHostname' Lens +v1EndpointAddressHostnameL :: Lens_' V1EndpointAddress (Maybe Text) +v1EndpointAddressHostnameL f V1EndpointAddress{..} = (\v1EndpointAddressHostname -> V1EndpointAddress { v1EndpointAddressHostname, ..} ) <$> f v1EndpointAddressHostname +{-# INLINE v1EndpointAddressHostnameL #-} + +-- | 'v1EndpointAddressIp' Lens +v1EndpointAddressIpL :: Lens_' V1EndpointAddress (Text) +v1EndpointAddressIpL f V1EndpointAddress{..} = (\v1EndpointAddressIp -> V1EndpointAddress { v1EndpointAddressIp, ..} ) <$> f v1EndpointAddressIp +{-# INLINE v1EndpointAddressIpL #-} + +-- | 'v1EndpointAddressNodeName' Lens +v1EndpointAddressNodeNameL :: Lens_' V1EndpointAddress (Maybe Text) +v1EndpointAddressNodeNameL f V1EndpointAddress{..} = (\v1EndpointAddressNodeName -> V1EndpointAddress { v1EndpointAddressNodeName, ..} ) <$> f v1EndpointAddressNodeName +{-# INLINE v1EndpointAddressNodeNameL #-} + +-- | 'v1EndpointAddressTargetRef' Lens +v1EndpointAddressTargetRefL :: Lens_' V1EndpointAddress (Maybe V1ObjectReference) +v1EndpointAddressTargetRefL f V1EndpointAddress{..} = (\v1EndpointAddressTargetRef -> V1EndpointAddress { v1EndpointAddressTargetRef, ..} ) <$> f v1EndpointAddressTargetRef +{-# INLINE v1EndpointAddressTargetRefL #-} + + + +-- * V1EndpointConditions + +-- | 'v1EndpointConditionsReady' Lens +v1EndpointConditionsReadyL :: Lens_' V1EndpointConditions (Maybe Bool) +v1EndpointConditionsReadyL f V1EndpointConditions{..} = (\v1EndpointConditionsReady -> V1EndpointConditions { v1EndpointConditionsReady, ..} ) <$> f v1EndpointConditionsReady +{-# INLINE v1EndpointConditionsReadyL #-} + +-- | 'v1EndpointConditionsServing' Lens +v1EndpointConditionsServingL :: Lens_' V1EndpointConditions (Maybe Bool) +v1EndpointConditionsServingL f V1EndpointConditions{..} = (\v1EndpointConditionsServing -> V1EndpointConditions { v1EndpointConditionsServing, ..} ) <$> f v1EndpointConditionsServing +{-# INLINE v1EndpointConditionsServingL #-} + +-- | 'v1EndpointConditionsTerminating' Lens +v1EndpointConditionsTerminatingL :: Lens_' V1EndpointConditions (Maybe Bool) +v1EndpointConditionsTerminatingL f V1EndpointConditions{..} = (\v1EndpointConditionsTerminating -> V1EndpointConditions { v1EndpointConditionsTerminating, ..} ) <$> f v1EndpointConditionsTerminating +{-# INLINE v1EndpointConditionsTerminatingL #-} + + + +-- * V1EndpointHints + +-- | 'v1EndpointHintsForZones' Lens +v1EndpointHintsForZonesL :: Lens_' V1EndpointHints (Maybe [V1ForZone]) +v1EndpointHintsForZonesL f V1EndpointHints{..} = (\v1EndpointHintsForZones -> V1EndpointHints { v1EndpointHintsForZones, ..} ) <$> f v1EndpointHintsForZones +{-# INLINE v1EndpointHintsForZonesL #-} + + + +-- * V1EndpointSlice + +-- | 'v1EndpointSliceAddressType' Lens +v1EndpointSliceAddressTypeL :: Lens_' V1EndpointSlice (Text) +v1EndpointSliceAddressTypeL f V1EndpointSlice{..} = (\v1EndpointSliceAddressType -> V1EndpointSlice { v1EndpointSliceAddressType, ..} ) <$> f v1EndpointSliceAddressType +{-# INLINE v1EndpointSliceAddressTypeL #-} + +-- | 'v1EndpointSliceApiVersion' Lens +v1EndpointSliceApiVersionL :: Lens_' V1EndpointSlice (Maybe Text) +v1EndpointSliceApiVersionL f V1EndpointSlice{..} = (\v1EndpointSliceApiVersion -> V1EndpointSlice { v1EndpointSliceApiVersion, ..} ) <$> f v1EndpointSliceApiVersion +{-# INLINE v1EndpointSliceApiVersionL #-} + +-- | 'v1EndpointSliceEndpoints' Lens +v1EndpointSliceEndpointsL :: Lens_' V1EndpointSlice ([V1Endpoint]) +v1EndpointSliceEndpointsL f V1EndpointSlice{..} = (\v1EndpointSliceEndpoints -> V1EndpointSlice { v1EndpointSliceEndpoints, ..} ) <$> f v1EndpointSliceEndpoints +{-# INLINE v1EndpointSliceEndpointsL #-} + +-- | 'v1EndpointSliceKind' Lens +v1EndpointSliceKindL :: Lens_' V1EndpointSlice (Maybe Text) +v1EndpointSliceKindL f V1EndpointSlice{..} = (\v1EndpointSliceKind -> V1EndpointSlice { v1EndpointSliceKind, ..} ) <$> f v1EndpointSliceKind +{-# INLINE v1EndpointSliceKindL #-} + +-- | 'v1EndpointSliceMetadata' Lens +v1EndpointSliceMetadataL :: Lens_' V1EndpointSlice (Maybe V1ObjectMeta) +v1EndpointSliceMetadataL f V1EndpointSlice{..} = (\v1EndpointSliceMetadata -> V1EndpointSlice { v1EndpointSliceMetadata, ..} ) <$> f v1EndpointSliceMetadata +{-# INLINE v1EndpointSliceMetadataL #-} + +-- | 'v1EndpointSlicePorts' Lens +v1EndpointSlicePortsL :: Lens_' V1EndpointSlice (Maybe [DiscoveryV1EndpointPort]) +v1EndpointSlicePortsL f V1EndpointSlice{..} = (\v1EndpointSlicePorts -> V1EndpointSlice { v1EndpointSlicePorts, ..} ) <$> f v1EndpointSlicePorts +{-# INLINE v1EndpointSlicePortsL #-} + + + +-- * V1EndpointSliceList + +-- | 'v1EndpointSliceListApiVersion' Lens +v1EndpointSliceListApiVersionL :: Lens_' V1EndpointSliceList (Maybe Text) +v1EndpointSliceListApiVersionL f V1EndpointSliceList{..} = (\v1EndpointSliceListApiVersion -> V1EndpointSliceList { v1EndpointSliceListApiVersion, ..} ) <$> f v1EndpointSliceListApiVersion +{-# INLINE v1EndpointSliceListApiVersionL #-} + +-- | 'v1EndpointSliceListItems' Lens +v1EndpointSliceListItemsL :: Lens_' V1EndpointSliceList ([V1EndpointSlice]) +v1EndpointSliceListItemsL f V1EndpointSliceList{..} = (\v1EndpointSliceListItems -> V1EndpointSliceList { v1EndpointSliceListItems, ..} ) <$> f v1EndpointSliceListItems +{-# INLINE v1EndpointSliceListItemsL #-} + +-- | 'v1EndpointSliceListKind' Lens +v1EndpointSliceListKindL :: Lens_' V1EndpointSliceList (Maybe Text) +v1EndpointSliceListKindL f V1EndpointSliceList{..} = (\v1EndpointSliceListKind -> V1EndpointSliceList { v1EndpointSliceListKind, ..} ) <$> f v1EndpointSliceListKind +{-# INLINE v1EndpointSliceListKindL #-} + +-- | 'v1EndpointSliceListMetadata' Lens +v1EndpointSliceListMetadataL :: Lens_' V1EndpointSliceList (Maybe V1ListMeta) +v1EndpointSliceListMetadataL f V1EndpointSliceList{..} = (\v1EndpointSliceListMetadata -> V1EndpointSliceList { v1EndpointSliceListMetadata, ..} ) <$> f v1EndpointSliceListMetadata +{-# INLINE v1EndpointSliceListMetadataL #-} + + + +-- * V1EndpointSubset + +-- | 'v1EndpointSubsetAddresses' Lens +v1EndpointSubsetAddressesL :: Lens_' V1EndpointSubset (Maybe [V1EndpointAddress]) +v1EndpointSubsetAddressesL f V1EndpointSubset{..} = (\v1EndpointSubsetAddresses -> V1EndpointSubset { v1EndpointSubsetAddresses, ..} ) <$> f v1EndpointSubsetAddresses +{-# INLINE v1EndpointSubsetAddressesL #-} + +-- | 'v1EndpointSubsetNotReadyAddresses' Lens +v1EndpointSubsetNotReadyAddressesL :: Lens_' V1EndpointSubset (Maybe [V1EndpointAddress]) +v1EndpointSubsetNotReadyAddressesL f V1EndpointSubset{..} = (\v1EndpointSubsetNotReadyAddresses -> V1EndpointSubset { v1EndpointSubsetNotReadyAddresses, ..} ) <$> f v1EndpointSubsetNotReadyAddresses +{-# INLINE v1EndpointSubsetNotReadyAddressesL #-} + +-- | 'v1EndpointSubsetPorts' Lens +v1EndpointSubsetPortsL :: Lens_' V1EndpointSubset (Maybe [CoreV1EndpointPort]) +v1EndpointSubsetPortsL f V1EndpointSubset{..} = (\v1EndpointSubsetPorts -> V1EndpointSubset { v1EndpointSubsetPorts, ..} ) <$> f v1EndpointSubsetPorts +{-# INLINE v1EndpointSubsetPortsL #-} + + + +-- * V1Endpoints + +-- | 'v1EndpointsApiVersion' Lens +v1EndpointsApiVersionL :: Lens_' V1Endpoints (Maybe Text) +v1EndpointsApiVersionL f V1Endpoints{..} = (\v1EndpointsApiVersion -> V1Endpoints { v1EndpointsApiVersion, ..} ) <$> f v1EndpointsApiVersion +{-# INLINE v1EndpointsApiVersionL #-} + +-- | 'v1EndpointsKind' Lens +v1EndpointsKindL :: Lens_' V1Endpoints (Maybe Text) +v1EndpointsKindL f V1Endpoints{..} = (\v1EndpointsKind -> V1Endpoints { v1EndpointsKind, ..} ) <$> f v1EndpointsKind +{-# INLINE v1EndpointsKindL #-} + +-- | 'v1EndpointsMetadata' Lens +v1EndpointsMetadataL :: Lens_' V1Endpoints (Maybe V1ObjectMeta) +v1EndpointsMetadataL f V1Endpoints{..} = (\v1EndpointsMetadata -> V1Endpoints { v1EndpointsMetadata, ..} ) <$> f v1EndpointsMetadata +{-# INLINE v1EndpointsMetadataL #-} + +-- | 'v1EndpointsSubsets' Lens +v1EndpointsSubsetsL :: Lens_' V1Endpoints (Maybe [V1EndpointSubset]) +v1EndpointsSubsetsL f V1Endpoints{..} = (\v1EndpointsSubsets -> V1Endpoints { v1EndpointsSubsets, ..} ) <$> f v1EndpointsSubsets +{-# INLINE v1EndpointsSubsetsL #-} + + + +-- * V1EndpointsList + +-- | 'v1EndpointsListApiVersion' Lens +v1EndpointsListApiVersionL :: Lens_' V1EndpointsList (Maybe Text) +v1EndpointsListApiVersionL f V1EndpointsList{..} = (\v1EndpointsListApiVersion -> V1EndpointsList { v1EndpointsListApiVersion, ..} ) <$> f v1EndpointsListApiVersion +{-# INLINE v1EndpointsListApiVersionL #-} + +-- | 'v1EndpointsListItems' Lens +v1EndpointsListItemsL :: Lens_' V1EndpointsList ([V1Endpoints]) +v1EndpointsListItemsL f V1EndpointsList{..} = (\v1EndpointsListItems -> V1EndpointsList { v1EndpointsListItems, ..} ) <$> f v1EndpointsListItems +{-# INLINE v1EndpointsListItemsL #-} + +-- | 'v1EndpointsListKind' Lens +v1EndpointsListKindL :: Lens_' V1EndpointsList (Maybe Text) +v1EndpointsListKindL f V1EndpointsList{..} = (\v1EndpointsListKind -> V1EndpointsList { v1EndpointsListKind, ..} ) <$> f v1EndpointsListKind +{-# INLINE v1EndpointsListKindL #-} + +-- | 'v1EndpointsListMetadata' Lens +v1EndpointsListMetadataL :: Lens_' V1EndpointsList (Maybe V1ListMeta) +v1EndpointsListMetadataL f V1EndpointsList{..} = (\v1EndpointsListMetadata -> V1EndpointsList { v1EndpointsListMetadata, ..} ) <$> f v1EndpointsListMetadata +{-# INLINE v1EndpointsListMetadataL #-} + + + +-- * V1EnvFromSource + +-- | 'v1EnvFromSourceConfigMapRef' Lens +v1EnvFromSourceConfigMapRefL :: Lens_' V1EnvFromSource (Maybe V1ConfigMapEnvSource) +v1EnvFromSourceConfigMapRefL f V1EnvFromSource{..} = (\v1EnvFromSourceConfigMapRef -> V1EnvFromSource { v1EnvFromSourceConfigMapRef, ..} ) <$> f v1EnvFromSourceConfigMapRef +{-# INLINE v1EnvFromSourceConfigMapRefL #-} + +-- | 'v1EnvFromSourcePrefix' Lens +v1EnvFromSourcePrefixL :: Lens_' V1EnvFromSource (Maybe Text) +v1EnvFromSourcePrefixL f V1EnvFromSource{..} = (\v1EnvFromSourcePrefix -> V1EnvFromSource { v1EnvFromSourcePrefix, ..} ) <$> f v1EnvFromSourcePrefix +{-# INLINE v1EnvFromSourcePrefixL #-} + +-- | 'v1EnvFromSourceSecretRef' Lens +v1EnvFromSourceSecretRefL :: Lens_' V1EnvFromSource (Maybe V1SecretEnvSource) +v1EnvFromSourceSecretRefL f V1EnvFromSource{..} = (\v1EnvFromSourceSecretRef -> V1EnvFromSource { v1EnvFromSourceSecretRef, ..} ) <$> f v1EnvFromSourceSecretRef +{-# INLINE v1EnvFromSourceSecretRefL #-} + + + +-- * V1EnvVar + +-- | 'v1EnvVarName' Lens +v1EnvVarNameL :: Lens_' V1EnvVar (Text) +v1EnvVarNameL f V1EnvVar{..} = (\v1EnvVarName -> V1EnvVar { v1EnvVarName, ..} ) <$> f v1EnvVarName +{-# INLINE v1EnvVarNameL #-} + +-- | 'v1EnvVarValue' Lens +v1EnvVarValueL :: Lens_' V1EnvVar (Maybe Text) +v1EnvVarValueL f V1EnvVar{..} = (\v1EnvVarValue -> V1EnvVar { v1EnvVarValue, ..} ) <$> f v1EnvVarValue +{-# INLINE v1EnvVarValueL #-} + +-- | 'v1EnvVarValueFrom' Lens +v1EnvVarValueFromL :: Lens_' V1EnvVar (Maybe V1EnvVarSource) +v1EnvVarValueFromL f V1EnvVar{..} = (\v1EnvVarValueFrom -> V1EnvVar { v1EnvVarValueFrom, ..} ) <$> f v1EnvVarValueFrom +{-# INLINE v1EnvVarValueFromL #-} + + + +-- * V1EnvVarSource + +-- | 'v1EnvVarSourceConfigMapKeyRef' Lens +v1EnvVarSourceConfigMapKeyRefL :: Lens_' V1EnvVarSource (Maybe V1ConfigMapKeySelector) +v1EnvVarSourceConfigMapKeyRefL f V1EnvVarSource{..} = (\v1EnvVarSourceConfigMapKeyRef -> V1EnvVarSource { v1EnvVarSourceConfigMapKeyRef, ..} ) <$> f v1EnvVarSourceConfigMapKeyRef +{-# INLINE v1EnvVarSourceConfigMapKeyRefL #-} + +-- | 'v1EnvVarSourceFieldRef' Lens +v1EnvVarSourceFieldRefL :: Lens_' V1EnvVarSource (Maybe V1ObjectFieldSelector) +v1EnvVarSourceFieldRefL f V1EnvVarSource{..} = (\v1EnvVarSourceFieldRef -> V1EnvVarSource { v1EnvVarSourceFieldRef, ..} ) <$> f v1EnvVarSourceFieldRef +{-# INLINE v1EnvVarSourceFieldRefL #-} + +-- | 'v1EnvVarSourceResourceFieldRef' Lens +v1EnvVarSourceResourceFieldRefL :: Lens_' V1EnvVarSource (Maybe V1ResourceFieldSelector) +v1EnvVarSourceResourceFieldRefL f V1EnvVarSource{..} = (\v1EnvVarSourceResourceFieldRef -> V1EnvVarSource { v1EnvVarSourceResourceFieldRef, ..} ) <$> f v1EnvVarSourceResourceFieldRef +{-# INLINE v1EnvVarSourceResourceFieldRefL #-} + +-- | 'v1EnvVarSourceSecretKeyRef' Lens +v1EnvVarSourceSecretKeyRefL :: Lens_' V1EnvVarSource (Maybe V1SecretKeySelector) +v1EnvVarSourceSecretKeyRefL f V1EnvVarSource{..} = (\v1EnvVarSourceSecretKeyRef -> V1EnvVarSource { v1EnvVarSourceSecretKeyRef, ..} ) <$> f v1EnvVarSourceSecretKeyRef +{-# INLINE v1EnvVarSourceSecretKeyRefL #-} + + + +-- * V1EphemeralContainer + +-- | 'v1EphemeralContainerArgs' Lens +v1EphemeralContainerArgsL :: Lens_' V1EphemeralContainer (Maybe [Text]) +v1EphemeralContainerArgsL f V1EphemeralContainer{..} = (\v1EphemeralContainerArgs -> V1EphemeralContainer { v1EphemeralContainerArgs, ..} ) <$> f v1EphemeralContainerArgs +{-# INLINE v1EphemeralContainerArgsL #-} + +-- | 'v1EphemeralContainerCommand' Lens +v1EphemeralContainerCommandL :: Lens_' V1EphemeralContainer (Maybe [Text]) +v1EphemeralContainerCommandL f V1EphemeralContainer{..} = (\v1EphemeralContainerCommand -> V1EphemeralContainer { v1EphemeralContainerCommand, ..} ) <$> f v1EphemeralContainerCommand +{-# INLINE v1EphemeralContainerCommandL #-} + +-- | 'v1EphemeralContainerEnv' Lens +v1EphemeralContainerEnvL :: Lens_' V1EphemeralContainer (Maybe [V1EnvVar]) +v1EphemeralContainerEnvL f V1EphemeralContainer{..} = (\v1EphemeralContainerEnv -> V1EphemeralContainer { v1EphemeralContainerEnv, ..} ) <$> f v1EphemeralContainerEnv +{-# INLINE v1EphemeralContainerEnvL #-} + +-- | 'v1EphemeralContainerEnvFrom' Lens +v1EphemeralContainerEnvFromL :: Lens_' V1EphemeralContainer (Maybe [V1EnvFromSource]) +v1EphemeralContainerEnvFromL f V1EphemeralContainer{..} = (\v1EphemeralContainerEnvFrom -> V1EphemeralContainer { v1EphemeralContainerEnvFrom, ..} ) <$> f v1EphemeralContainerEnvFrom +{-# INLINE v1EphemeralContainerEnvFromL #-} + +-- | 'v1EphemeralContainerImage' Lens +v1EphemeralContainerImageL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerImageL f V1EphemeralContainer{..} = (\v1EphemeralContainerImage -> V1EphemeralContainer { v1EphemeralContainerImage, ..} ) <$> f v1EphemeralContainerImage +{-# INLINE v1EphemeralContainerImageL #-} + +-- | 'v1EphemeralContainerImagePullPolicy' Lens +v1EphemeralContainerImagePullPolicyL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerImagePullPolicyL f V1EphemeralContainer{..} = (\v1EphemeralContainerImagePullPolicy -> V1EphemeralContainer { v1EphemeralContainerImagePullPolicy, ..} ) <$> f v1EphemeralContainerImagePullPolicy +{-# INLINE v1EphemeralContainerImagePullPolicyL #-} + +-- | 'v1EphemeralContainerLifecycle' Lens +v1EphemeralContainerLifecycleL :: Lens_' V1EphemeralContainer (Maybe V1Lifecycle) +v1EphemeralContainerLifecycleL f V1EphemeralContainer{..} = (\v1EphemeralContainerLifecycle -> V1EphemeralContainer { v1EphemeralContainerLifecycle, ..} ) <$> f v1EphemeralContainerLifecycle +{-# INLINE v1EphemeralContainerLifecycleL #-} + +-- | 'v1EphemeralContainerLivenessProbe' Lens +v1EphemeralContainerLivenessProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) +v1EphemeralContainerLivenessProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerLivenessProbe -> V1EphemeralContainer { v1EphemeralContainerLivenessProbe, ..} ) <$> f v1EphemeralContainerLivenessProbe +{-# INLINE v1EphemeralContainerLivenessProbeL #-} + +-- | 'v1EphemeralContainerName' Lens +v1EphemeralContainerNameL :: Lens_' V1EphemeralContainer (Text) +v1EphemeralContainerNameL f V1EphemeralContainer{..} = (\v1EphemeralContainerName -> V1EphemeralContainer { v1EphemeralContainerName, ..} ) <$> f v1EphemeralContainerName +{-# INLINE v1EphemeralContainerNameL #-} + +-- | 'v1EphemeralContainerPorts' Lens +v1EphemeralContainerPortsL :: Lens_' V1EphemeralContainer (Maybe [V1ContainerPort]) +v1EphemeralContainerPortsL f V1EphemeralContainer{..} = (\v1EphemeralContainerPorts -> V1EphemeralContainer { v1EphemeralContainerPorts, ..} ) <$> f v1EphemeralContainerPorts +{-# INLINE v1EphemeralContainerPortsL #-} + +-- | 'v1EphemeralContainerReadinessProbe' Lens +v1EphemeralContainerReadinessProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) +v1EphemeralContainerReadinessProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerReadinessProbe -> V1EphemeralContainer { v1EphemeralContainerReadinessProbe, ..} ) <$> f v1EphemeralContainerReadinessProbe +{-# INLINE v1EphemeralContainerReadinessProbeL #-} + +-- | 'v1EphemeralContainerResizePolicy' Lens +v1EphemeralContainerResizePolicyL :: Lens_' V1EphemeralContainer (Maybe [V1ContainerResizePolicy]) +v1EphemeralContainerResizePolicyL f V1EphemeralContainer{..} = (\v1EphemeralContainerResizePolicy -> V1EphemeralContainer { v1EphemeralContainerResizePolicy, ..} ) <$> f v1EphemeralContainerResizePolicy +{-# INLINE v1EphemeralContainerResizePolicyL #-} + +-- | 'v1EphemeralContainerResources' Lens +v1EphemeralContainerResourcesL :: Lens_' V1EphemeralContainer (Maybe V1ResourceRequirements) +v1EphemeralContainerResourcesL f V1EphemeralContainer{..} = (\v1EphemeralContainerResources -> V1EphemeralContainer { v1EphemeralContainerResources, ..} ) <$> f v1EphemeralContainerResources +{-# INLINE v1EphemeralContainerResourcesL #-} + +-- | 'v1EphemeralContainerSecurityContext' Lens +v1EphemeralContainerSecurityContextL :: Lens_' V1EphemeralContainer (Maybe V1SecurityContext) +v1EphemeralContainerSecurityContextL f V1EphemeralContainer{..} = (\v1EphemeralContainerSecurityContext -> V1EphemeralContainer { v1EphemeralContainerSecurityContext, ..} ) <$> f v1EphemeralContainerSecurityContext +{-# INLINE v1EphemeralContainerSecurityContextL #-} + +-- | 'v1EphemeralContainerStartupProbe' Lens +v1EphemeralContainerStartupProbeL :: Lens_' V1EphemeralContainer (Maybe V1Probe) +v1EphemeralContainerStartupProbeL f V1EphemeralContainer{..} = (\v1EphemeralContainerStartupProbe -> V1EphemeralContainer { v1EphemeralContainerStartupProbe, ..} ) <$> f v1EphemeralContainerStartupProbe +{-# INLINE v1EphemeralContainerStartupProbeL #-} + +-- | 'v1EphemeralContainerStdin' Lens +v1EphemeralContainerStdinL :: Lens_' V1EphemeralContainer (Maybe Bool) +v1EphemeralContainerStdinL f V1EphemeralContainer{..} = (\v1EphemeralContainerStdin -> V1EphemeralContainer { v1EphemeralContainerStdin, ..} ) <$> f v1EphemeralContainerStdin +{-# INLINE v1EphemeralContainerStdinL #-} + +-- | 'v1EphemeralContainerStdinOnce' Lens +v1EphemeralContainerStdinOnceL :: Lens_' V1EphemeralContainer (Maybe Bool) +v1EphemeralContainerStdinOnceL f V1EphemeralContainer{..} = (\v1EphemeralContainerStdinOnce -> V1EphemeralContainer { v1EphemeralContainerStdinOnce, ..} ) <$> f v1EphemeralContainerStdinOnce +{-# INLINE v1EphemeralContainerStdinOnceL #-} + +-- | 'v1EphemeralContainerTargetContainerName' Lens +v1EphemeralContainerTargetContainerNameL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerTargetContainerNameL f V1EphemeralContainer{..} = (\v1EphemeralContainerTargetContainerName -> V1EphemeralContainer { v1EphemeralContainerTargetContainerName, ..} ) <$> f v1EphemeralContainerTargetContainerName +{-# INLINE v1EphemeralContainerTargetContainerNameL #-} + +-- | 'v1EphemeralContainerTerminationMessagePath' Lens +v1EphemeralContainerTerminationMessagePathL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerTerminationMessagePathL f V1EphemeralContainer{..} = (\v1EphemeralContainerTerminationMessagePath -> V1EphemeralContainer { v1EphemeralContainerTerminationMessagePath, ..} ) <$> f v1EphemeralContainerTerminationMessagePath +{-# INLINE v1EphemeralContainerTerminationMessagePathL #-} + +-- | 'v1EphemeralContainerTerminationMessagePolicy' Lens +v1EphemeralContainerTerminationMessagePolicyL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerTerminationMessagePolicyL f V1EphemeralContainer{..} = (\v1EphemeralContainerTerminationMessagePolicy -> V1EphemeralContainer { v1EphemeralContainerTerminationMessagePolicy, ..} ) <$> f v1EphemeralContainerTerminationMessagePolicy +{-# INLINE v1EphemeralContainerTerminationMessagePolicyL #-} + +-- | 'v1EphemeralContainerTty' Lens +v1EphemeralContainerTtyL :: Lens_' V1EphemeralContainer (Maybe Bool) +v1EphemeralContainerTtyL f V1EphemeralContainer{..} = (\v1EphemeralContainerTty -> V1EphemeralContainer { v1EphemeralContainerTty, ..} ) <$> f v1EphemeralContainerTty +{-# INLINE v1EphemeralContainerTtyL #-} + +-- | 'v1EphemeralContainerVolumeDevices' Lens +v1EphemeralContainerVolumeDevicesL :: Lens_' V1EphemeralContainer (Maybe [V1VolumeDevice]) +v1EphemeralContainerVolumeDevicesL f V1EphemeralContainer{..} = (\v1EphemeralContainerVolumeDevices -> V1EphemeralContainer { v1EphemeralContainerVolumeDevices, ..} ) <$> f v1EphemeralContainerVolumeDevices +{-# INLINE v1EphemeralContainerVolumeDevicesL #-} + +-- | 'v1EphemeralContainerVolumeMounts' Lens +v1EphemeralContainerVolumeMountsL :: Lens_' V1EphemeralContainer (Maybe [V1VolumeMount]) +v1EphemeralContainerVolumeMountsL f V1EphemeralContainer{..} = (\v1EphemeralContainerVolumeMounts -> V1EphemeralContainer { v1EphemeralContainerVolumeMounts, ..} ) <$> f v1EphemeralContainerVolumeMounts +{-# INLINE v1EphemeralContainerVolumeMountsL #-} + +-- | 'v1EphemeralContainerWorkingDir' Lens +v1EphemeralContainerWorkingDirL :: Lens_' V1EphemeralContainer (Maybe Text) +v1EphemeralContainerWorkingDirL f V1EphemeralContainer{..} = (\v1EphemeralContainerWorkingDir -> V1EphemeralContainer { v1EphemeralContainerWorkingDir, ..} ) <$> f v1EphemeralContainerWorkingDir +{-# INLINE v1EphemeralContainerWorkingDirL #-} + + + +-- * V1EphemeralVolumeSource + +-- | 'v1EphemeralVolumeSourceVolumeClaimTemplate' Lens +v1EphemeralVolumeSourceVolumeClaimTemplateL :: Lens_' V1EphemeralVolumeSource (Maybe V1PersistentVolumeClaimTemplate) +v1EphemeralVolumeSourceVolumeClaimTemplateL f V1EphemeralVolumeSource{..} = (\v1EphemeralVolumeSourceVolumeClaimTemplate -> V1EphemeralVolumeSource { v1EphemeralVolumeSourceVolumeClaimTemplate, ..} ) <$> f v1EphemeralVolumeSourceVolumeClaimTemplate +{-# INLINE v1EphemeralVolumeSourceVolumeClaimTemplateL #-} + + + +-- * V1EventSource + +-- | 'v1EventSourceComponent' Lens +v1EventSourceComponentL :: Lens_' V1EventSource (Maybe Text) +v1EventSourceComponentL f V1EventSource{..} = (\v1EventSourceComponent -> V1EventSource { v1EventSourceComponent, ..} ) <$> f v1EventSourceComponent +{-# INLINE v1EventSourceComponentL #-} + +-- | 'v1EventSourceHost' Lens +v1EventSourceHostL :: Lens_' V1EventSource (Maybe Text) +v1EventSourceHostL f V1EventSource{..} = (\v1EventSourceHost -> V1EventSource { v1EventSourceHost, ..} ) <$> f v1EventSourceHost +{-# INLINE v1EventSourceHostL #-} + + + +-- * V1Eviction + +-- | 'v1EvictionApiVersion' Lens +v1EvictionApiVersionL :: Lens_' V1Eviction (Maybe Text) +v1EvictionApiVersionL f V1Eviction{..} = (\v1EvictionApiVersion -> V1Eviction { v1EvictionApiVersion, ..} ) <$> f v1EvictionApiVersion +{-# INLINE v1EvictionApiVersionL #-} + +-- | 'v1EvictionDeleteOptions' Lens +v1EvictionDeleteOptionsL :: Lens_' V1Eviction (Maybe V1DeleteOptions) +v1EvictionDeleteOptionsL f V1Eviction{..} = (\v1EvictionDeleteOptions -> V1Eviction { v1EvictionDeleteOptions, ..} ) <$> f v1EvictionDeleteOptions +{-# INLINE v1EvictionDeleteOptionsL #-} + +-- | 'v1EvictionKind' Lens +v1EvictionKindL :: Lens_' V1Eviction (Maybe Text) +v1EvictionKindL f V1Eviction{..} = (\v1EvictionKind -> V1Eviction { v1EvictionKind, ..} ) <$> f v1EvictionKind +{-# INLINE v1EvictionKindL #-} + +-- | 'v1EvictionMetadata' Lens +v1EvictionMetadataL :: Lens_' V1Eviction (Maybe V1ObjectMeta) +v1EvictionMetadataL f V1Eviction{..} = (\v1EvictionMetadata -> V1Eviction { v1EvictionMetadata, ..} ) <$> f v1EvictionMetadata +{-# INLINE v1EvictionMetadataL #-} + + + +-- * V1ExecAction + +-- | 'v1ExecActionCommand' Lens +v1ExecActionCommandL :: Lens_' V1ExecAction (Maybe [Text]) +v1ExecActionCommandL f V1ExecAction{..} = (\v1ExecActionCommand -> V1ExecAction { v1ExecActionCommand, ..} ) <$> f v1ExecActionCommand +{-# INLINE v1ExecActionCommandL #-} + + + +-- * V1ExternalDocumentation + +-- | 'v1ExternalDocumentationDescription' Lens +v1ExternalDocumentationDescriptionL :: Lens_' V1ExternalDocumentation (Maybe Text) +v1ExternalDocumentationDescriptionL f V1ExternalDocumentation{..} = (\v1ExternalDocumentationDescription -> V1ExternalDocumentation { v1ExternalDocumentationDescription, ..} ) <$> f v1ExternalDocumentationDescription +{-# INLINE v1ExternalDocumentationDescriptionL #-} + +-- | 'v1ExternalDocumentationUrl' Lens +v1ExternalDocumentationUrlL :: Lens_' V1ExternalDocumentation (Maybe Text) +v1ExternalDocumentationUrlL f V1ExternalDocumentation{..} = (\v1ExternalDocumentationUrl -> V1ExternalDocumentation { v1ExternalDocumentationUrl, ..} ) <$> f v1ExternalDocumentationUrl +{-# INLINE v1ExternalDocumentationUrlL #-} + + + +-- * V1FCVolumeSource + +-- | 'v1FCVolumeSourceFsType' Lens +v1FCVolumeSourceFsTypeL :: Lens_' V1FCVolumeSource (Maybe Text) +v1FCVolumeSourceFsTypeL f V1FCVolumeSource{..} = (\v1FCVolumeSourceFsType -> V1FCVolumeSource { v1FCVolumeSourceFsType, ..} ) <$> f v1FCVolumeSourceFsType +{-# INLINE v1FCVolumeSourceFsTypeL #-} + +-- | 'v1FCVolumeSourceLun' Lens +v1FCVolumeSourceLunL :: Lens_' V1FCVolumeSource (Maybe Int) +v1FCVolumeSourceLunL f V1FCVolumeSource{..} = (\v1FCVolumeSourceLun -> V1FCVolumeSource { v1FCVolumeSourceLun, ..} ) <$> f v1FCVolumeSourceLun +{-# INLINE v1FCVolumeSourceLunL #-} + +-- | 'v1FCVolumeSourceReadOnly' Lens +v1FCVolumeSourceReadOnlyL :: Lens_' V1FCVolumeSource (Maybe Bool) +v1FCVolumeSourceReadOnlyL f V1FCVolumeSource{..} = (\v1FCVolumeSourceReadOnly -> V1FCVolumeSource { v1FCVolumeSourceReadOnly, ..} ) <$> f v1FCVolumeSourceReadOnly +{-# INLINE v1FCVolumeSourceReadOnlyL #-} + +-- | 'v1FCVolumeSourceTargetWwns' Lens +v1FCVolumeSourceTargetWwnsL :: Lens_' V1FCVolumeSource (Maybe [Text]) +v1FCVolumeSourceTargetWwnsL f V1FCVolumeSource{..} = (\v1FCVolumeSourceTargetWwns -> V1FCVolumeSource { v1FCVolumeSourceTargetWwns, ..} ) <$> f v1FCVolumeSourceTargetWwns +{-# INLINE v1FCVolumeSourceTargetWwnsL #-} + +-- | 'v1FCVolumeSourceWwids' Lens +v1FCVolumeSourceWwidsL :: Lens_' V1FCVolumeSource (Maybe [Text]) +v1FCVolumeSourceWwidsL f V1FCVolumeSource{..} = (\v1FCVolumeSourceWwids -> V1FCVolumeSource { v1FCVolumeSourceWwids, ..} ) <$> f v1FCVolumeSourceWwids +{-# INLINE v1FCVolumeSourceWwidsL #-} + + + +-- * V1FlexPersistentVolumeSource + +-- | 'v1FlexPersistentVolumeSourceDriver' Lens +v1FlexPersistentVolumeSourceDriverL :: Lens_' V1FlexPersistentVolumeSource (Text) +v1FlexPersistentVolumeSourceDriverL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceDriver -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceDriver, ..} ) <$> f v1FlexPersistentVolumeSourceDriver +{-# INLINE v1FlexPersistentVolumeSourceDriverL #-} + +-- | 'v1FlexPersistentVolumeSourceFsType' Lens +v1FlexPersistentVolumeSourceFsTypeL :: Lens_' V1FlexPersistentVolumeSource (Maybe Text) +v1FlexPersistentVolumeSourceFsTypeL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceFsType -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceFsType, ..} ) <$> f v1FlexPersistentVolumeSourceFsType +{-# INLINE v1FlexPersistentVolumeSourceFsTypeL #-} + +-- | 'v1FlexPersistentVolumeSourceOptions' Lens +v1FlexPersistentVolumeSourceOptionsL :: Lens_' V1FlexPersistentVolumeSource (Maybe (Map.Map String Text)) +v1FlexPersistentVolumeSourceOptionsL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceOptions -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceOptions, ..} ) <$> f v1FlexPersistentVolumeSourceOptions +{-# INLINE v1FlexPersistentVolumeSourceOptionsL #-} + +-- | 'v1FlexPersistentVolumeSourceReadOnly' Lens +v1FlexPersistentVolumeSourceReadOnlyL :: Lens_' V1FlexPersistentVolumeSource (Maybe Bool) +v1FlexPersistentVolumeSourceReadOnlyL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceReadOnly -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceReadOnly, ..} ) <$> f v1FlexPersistentVolumeSourceReadOnly +{-# INLINE v1FlexPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1FlexPersistentVolumeSourceSecretRef' Lens +v1FlexPersistentVolumeSourceSecretRefL :: Lens_' V1FlexPersistentVolumeSource (Maybe V1SecretReference) +v1FlexPersistentVolumeSourceSecretRefL f V1FlexPersistentVolumeSource{..} = (\v1FlexPersistentVolumeSourceSecretRef -> V1FlexPersistentVolumeSource { v1FlexPersistentVolumeSourceSecretRef, ..} ) <$> f v1FlexPersistentVolumeSourceSecretRef +{-# INLINE v1FlexPersistentVolumeSourceSecretRefL #-} + + + +-- * V1FlexVolumeSource + +-- | 'v1FlexVolumeSourceDriver' Lens +v1FlexVolumeSourceDriverL :: Lens_' V1FlexVolumeSource (Text) +v1FlexVolumeSourceDriverL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceDriver -> V1FlexVolumeSource { v1FlexVolumeSourceDriver, ..} ) <$> f v1FlexVolumeSourceDriver +{-# INLINE v1FlexVolumeSourceDriverL #-} + +-- | 'v1FlexVolumeSourceFsType' Lens +v1FlexVolumeSourceFsTypeL :: Lens_' V1FlexVolumeSource (Maybe Text) +v1FlexVolumeSourceFsTypeL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceFsType -> V1FlexVolumeSource { v1FlexVolumeSourceFsType, ..} ) <$> f v1FlexVolumeSourceFsType +{-# INLINE v1FlexVolumeSourceFsTypeL #-} + +-- | 'v1FlexVolumeSourceOptions' Lens +v1FlexVolumeSourceOptionsL :: Lens_' V1FlexVolumeSource (Maybe (Map.Map String Text)) +v1FlexVolumeSourceOptionsL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceOptions -> V1FlexVolumeSource { v1FlexVolumeSourceOptions, ..} ) <$> f v1FlexVolumeSourceOptions +{-# INLINE v1FlexVolumeSourceOptionsL #-} + +-- | 'v1FlexVolumeSourceReadOnly' Lens +v1FlexVolumeSourceReadOnlyL :: Lens_' V1FlexVolumeSource (Maybe Bool) +v1FlexVolumeSourceReadOnlyL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceReadOnly -> V1FlexVolumeSource { v1FlexVolumeSourceReadOnly, ..} ) <$> f v1FlexVolumeSourceReadOnly +{-# INLINE v1FlexVolumeSourceReadOnlyL #-} + +-- | 'v1FlexVolumeSourceSecretRef' Lens +v1FlexVolumeSourceSecretRefL :: Lens_' V1FlexVolumeSource (Maybe V1LocalObjectReference) +v1FlexVolumeSourceSecretRefL f V1FlexVolumeSource{..} = (\v1FlexVolumeSourceSecretRef -> V1FlexVolumeSource { v1FlexVolumeSourceSecretRef, ..} ) <$> f v1FlexVolumeSourceSecretRef +{-# INLINE v1FlexVolumeSourceSecretRefL #-} + + + +-- * V1FlockerVolumeSource + +-- | 'v1FlockerVolumeSourceDatasetName' Lens +v1FlockerVolumeSourceDatasetNameL :: Lens_' V1FlockerVolumeSource (Maybe Text) +v1FlockerVolumeSourceDatasetNameL f V1FlockerVolumeSource{..} = (\v1FlockerVolumeSourceDatasetName -> V1FlockerVolumeSource { v1FlockerVolumeSourceDatasetName, ..} ) <$> f v1FlockerVolumeSourceDatasetName +{-# INLINE v1FlockerVolumeSourceDatasetNameL #-} + +-- | 'v1FlockerVolumeSourceDatasetUuid' Lens +v1FlockerVolumeSourceDatasetUuidL :: Lens_' V1FlockerVolumeSource (Maybe Text) +v1FlockerVolumeSourceDatasetUuidL f V1FlockerVolumeSource{..} = (\v1FlockerVolumeSourceDatasetUuid -> V1FlockerVolumeSource { v1FlockerVolumeSourceDatasetUuid, ..} ) <$> f v1FlockerVolumeSourceDatasetUuid +{-# INLINE v1FlockerVolumeSourceDatasetUuidL #-} + + + +-- * V1ForZone + +-- | 'v1ForZoneName' Lens +v1ForZoneNameL :: Lens_' V1ForZone (Text) +v1ForZoneNameL f V1ForZone{..} = (\v1ForZoneName -> V1ForZone { v1ForZoneName, ..} ) <$> f v1ForZoneName +{-# INLINE v1ForZoneNameL #-} + + + +-- * V1GCEPersistentDiskVolumeSource + +-- | 'v1GCEPersistentDiskVolumeSourceFsType' Lens +v1GCEPersistentDiskVolumeSourceFsTypeL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Text) +v1GCEPersistentDiskVolumeSourceFsTypeL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourceFsType -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourceFsType, ..} ) <$> f v1GCEPersistentDiskVolumeSourceFsType +{-# INLINE v1GCEPersistentDiskVolumeSourceFsTypeL #-} + +-- | 'v1GCEPersistentDiskVolumeSourcePartition' Lens +v1GCEPersistentDiskVolumeSourcePartitionL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Int) +v1GCEPersistentDiskVolumeSourcePartitionL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourcePartition -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourcePartition, ..} ) <$> f v1GCEPersistentDiskVolumeSourcePartition +{-# INLINE v1GCEPersistentDiskVolumeSourcePartitionL #-} + +-- | 'v1GCEPersistentDiskVolumeSourcePdName' Lens +v1GCEPersistentDiskVolumeSourcePdNameL :: Lens_' V1GCEPersistentDiskVolumeSource (Text) +v1GCEPersistentDiskVolumeSourcePdNameL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourcePdName -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourcePdName, ..} ) <$> f v1GCEPersistentDiskVolumeSourcePdName +{-# INLINE v1GCEPersistentDiskVolumeSourcePdNameL #-} + +-- | 'v1GCEPersistentDiskVolumeSourceReadOnly' Lens +v1GCEPersistentDiskVolumeSourceReadOnlyL :: Lens_' V1GCEPersistentDiskVolumeSource (Maybe Bool) +v1GCEPersistentDiskVolumeSourceReadOnlyL f V1GCEPersistentDiskVolumeSource{..} = (\v1GCEPersistentDiskVolumeSourceReadOnly -> V1GCEPersistentDiskVolumeSource { v1GCEPersistentDiskVolumeSourceReadOnly, ..} ) <$> f v1GCEPersistentDiskVolumeSourceReadOnly +{-# INLINE v1GCEPersistentDiskVolumeSourceReadOnlyL #-} + + + +-- * V1GRPCAction + +-- | 'v1GRPCActionPort' Lens +v1GRPCActionPortL :: Lens_' V1GRPCAction (Int) +v1GRPCActionPortL f V1GRPCAction{..} = (\v1GRPCActionPort -> V1GRPCAction { v1GRPCActionPort, ..} ) <$> f v1GRPCActionPort +{-# INLINE v1GRPCActionPortL #-} + +-- | 'v1GRPCActionService' Lens +v1GRPCActionServiceL :: Lens_' V1GRPCAction (Maybe Text) +v1GRPCActionServiceL f V1GRPCAction{..} = (\v1GRPCActionService -> V1GRPCAction { v1GRPCActionService, ..} ) <$> f v1GRPCActionService +{-# INLINE v1GRPCActionServiceL #-} + + + +-- * V1GitRepoVolumeSource + +-- | 'v1GitRepoVolumeSourceDirectory' Lens +v1GitRepoVolumeSourceDirectoryL :: Lens_' V1GitRepoVolumeSource (Maybe Text) +v1GitRepoVolumeSourceDirectoryL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceDirectory -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceDirectory, ..} ) <$> f v1GitRepoVolumeSourceDirectory +{-# INLINE v1GitRepoVolumeSourceDirectoryL #-} + +-- | 'v1GitRepoVolumeSourceRepository' Lens +v1GitRepoVolumeSourceRepositoryL :: Lens_' V1GitRepoVolumeSource (Text) +v1GitRepoVolumeSourceRepositoryL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceRepository -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceRepository, ..} ) <$> f v1GitRepoVolumeSourceRepository +{-# INLINE v1GitRepoVolumeSourceRepositoryL #-} + +-- | 'v1GitRepoVolumeSourceRevision' Lens +v1GitRepoVolumeSourceRevisionL :: Lens_' V1GitRepoVolumeSource (Maybe Text) +v1GitRepoVolumeSourceRevisionL f V1GitRepoVolumeSource{..} = (\v1GitRepoVolumeSourceRevision -> V1GitRepoVolumeSource { v1GitRepoVolumeSourceRevision, ..} ) <$> f v1GitRepoVolumeSourceRevision +{-# INLINE v1GitRepoVolumeSourceRevisionL #-} + + + +-- * V1GlusterfsPersistentVolumeSource + +-- | 'v1GlusterfsPersistentVolumeSourceEndpoints' Lens +v1GlusterfsPersistentVolumeSourceEndpointsL :: Lens_' V1GlusterfsPersistentVolumeSource (Text) +v1GlusterfsPersistentVolumeSourceEndpointsL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceEndpoints -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceEndpoints, ..} ) <$> f v1GlusterfsPersistentVolumeSourceEndpoints +{-# INLINE v1GlusterfsPersistentVolumeSourceEndpointsL #-} + +-- | 'v1GlusterfsPersistentVolumeSourceEndpointsNamespace' Lens +v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL :: Lens_' V1GlusterfsPersistentVolumeSource (Maybe Text) +v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceEndpointsNamespace -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceEndpointsNamespace, ..} ) <$> f v1GlusterfsPersistentVolumeSourceEndpointsNamespace +{-# INLINE v1GlusterfsPersistentVolumeSourceEndpointsNamespaceL #-} + +-- | 'v1GlusterfsPersistentVolumeSourcePath' Lens +v1GlusterfsPersistentVolumeSourcePathL :: Lens_' V1GlusterfsPersistentVolumeSource (Text) +v1GlusterfsPersistentVolumeSourcePathL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourcePath -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourcePath, ..} ) <$> f v1GlusterfsPersistentVolumeSourcePath +{-# INLINE v1GlusterfsPersistentVolumeSourcePathL #-} + +-- | 'v1GlusterfsPersistentVolumeSourceReadOnly' Lens +v1GlusterfsPersistentVolumeSourceReadOnlyL :: Lens_' V1GlusterfsPersistentVolumeSource (Maybe Bool) +v1GlusterfsPersistentVolumeSourceReadOnlyL f V1GlusterfsPersistentVolumeSource{..} = (\v1GlusterfsPersistentVolumeSourceReadOnly -> V1GlusterfsPersistentVolumeSource { v1GlusterfsPersistentVolumeSourceReadOnly, ..} ) <$> f v1GlusterfsPersistentVolumeSourceReadOnly +{-# INLINE v1GlusterfsPersistentVolumeSourceReadOnlyL #-} + + + +-- * V1GlusterfsVolumeSource + +-- | 'v1GlusterfsVolumeSourceEndpoints' Lens +v1GlusterfsVolumeSourceEndpointsL :: Lens_' V1GlusterfsVolumeSource (Text) +v1GlusterfsVolumeSourceEndpointsL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourceEndpoints -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourceEndpoints, ..} ) <$> f v1GlusterfsVolumeSourceEndpoints +{-# INLINE v1GlusterfsVolumeSourceEndpointsL #-} + +-- | 'v1GlusterfsVolumeSourcePath' Lens +v1GlusterfsVolumeSourcePathL :: Lens_' V1GlusterfsVolumeSource (Text) +v1GlusterfsVolumeSourcePathL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourcePath -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourcePath, ..} ) <$> f v1GlusterfsVolumeSourcePath +{-# INLINE v1GlusterfsVolumeSourcePathL #-} + +-- | 'v1GlusterfsVolumeSourceReadOnly' Lens +v1GlusterfsVolumeSourceReadOnlyL :: Lens_' V1GlusterfsVolumeSource (Maybe Bool) +v1GlusterfsVolumeSourceReadOnlyL f V1GlusterfsVolumeSource{..} = (\v1GlusterfsVolumeSourceReadOnly -> V1GlusterfsVolumeSource { v1GlusterfsVolumeSourceReadOnly, ..} ) <$> f v1GlusterfsVolumeSourceReadOnly +{-# INLINE v1GlusterfsVolumeSourceReadOnlyL #-} + + + +-- * V1GroupVersionForDiscovery + +-- | 'v1GroupVersionForDiscoveryGroupVersion' Lens +v1GroupVersionForDiscoveryGroupVersionL :: Lens_' V1GroupVersionForDiscovery (Text) +v1GroupVersionForDiscoveryGroupVersionL f V1GroupVersionForDiscovery{..} = (\v1GroupVersionForDiscoveryGroupVersion -> V1GroupVersionForDiscovery { v1GroupVersionForDiscoveryGroupVersion, ..} ) <$> f v1GroupVersionForDiscoveryGroupVersion +{-# INLINE v1GroupVersionForDiscoveryGroupVersionL #-} + +-- | 'v1GroupVersionForDiscoveryVersion' Lens +v1GroupVersionForDiscoveryVersionL :: Lens_' V1GroupVersionForDiscovery (Text) +v1GroupVersionForDiscoveryVersionL f V1GroupVersionForDiscovery{..} = (\v1GroupVersionForDiscoveryVersion -> V1GroupVersionForDiscovery { v1GroupVersionForDiscoveryVersion, ..} ) <$> f v1GroupVersionForDiscoveryVersion +{-# INLINE v1GroupVersionForDiscoveryVersionL #-} + + + +-- * V1HTTPGetAction + +-- | 'v1HTTPGetActionHost' Lens +v1HTTPGetActionHostL :: Lens_' V1HTTPGetAction (Maybe Text) +v1HTTPGetActionHostL f V1HTTPGetAction{..} = (\v1HTTPGetActionHost -> V1HTTPGetAction { v1HTTPGetActionHost, ..} ) <$> f v1HTTPGetActionHost +{-# INLINE v1HTTPGetActionHostL #-} + +-- | 'v1HTTPGetActionHttpHeaders' Lens +v1HTTPGetActionHttpHeadersL :: Lens_' V1HTTPGetAction (Maybe [V1HTTPHeader]) +v1HTTPGetActionHttpHeadersL f V1HTTPGetAction{..} = (\v1HTTPGetActionHttpHeaders -> V1HTTPGetAction { v1HTTPGetActionHttpHeaders, ..} ) <$> f v1HTTPGetActionHttpHeaders +{-# INLINE v1HTTPGetActionHttpHeadersL #-} + +-- | 'v1HTTPGetActionPath' Lens +v1HTTPGetActionPathL :: Lens_' V1HTTPGetAction (Maybe Text) +v1HTTPGetActionPathL f V1HTTPGetAction{..} = (\v1HTTPGetActionPath -> V1HTTPGetAction { v1HTTPGetActionPath, ..} ) <$> f v1HTTPGetActionPath +{-# INLINE v1HTTPGetActionPathL #-} + +-- | 'v1HTTPGetActionPort' Lens +v1HTTPGetActionPortL :: Lens_' V1HTTPGetAction (IntOrString) +v1HTTPGetActionPortL f V1HTTPGetAction{..} = (\v1HTTPGetActionPort -> V1HTTPGetAction { v1HTTPGetActionPort, ..} ) <$> f v1HTTPGetActionPort +{-# INLINE v1HTTPGetActionPortL #-} + +-- | 'v1HTTPGetActionScheme' Lens +v1HTTPGetActionSchemeL :: Lens_' V1HTTPGetAction (Maybe Text) +v1HTTPGetActionSchemeL f V1HTTPGetAction{..} = (\v1HTTPGetActionScheme -> V1HTTPGetAction { v1HTTPGetActionScheme, ..} ) <$> f v1HTTPGetActionScheme +{-# INLINE v1HTTPGetActionSchemeL #-} + + + +-- * V1HTTPHeader + +-- | 'v1HTTPHeaderName' Lens +v1HTTPHeaderNameL :: Lens_' V1HTTPHeader (Text) +v1HTTPHeaderNameL f V1HTTPHeader{..} = (\v1HTTPHeaderName -> V1HTTPHeader { v1HTTPHeaderName, ..} ) <$> f v1HTTPHeaderName +{-# INLINE v1HTTPHeaderNameL #-} + +-- | 'v1HTTPHeaderValue' Lens +v1HTTPHeaderValueL :: Lens_' V1HTTPHeader (Text) +v1HTTPHeaderValueL f V1HTTPHeader{..} = (\v1HTTPHeaderValue -> V1HTTPHeader { v1HTTPHeaderValue, ..} ) <$> f v1HTTPHeaderValue +{-# INLINE v1HTTPHeaderValueL #-} + + + +-- * V1HTTPIngressPath + +-- | 'v1HTTPIngressPathBackend' Lens +v1HTTPIngressPathBackendL :: Lens_' V1HTTPIngressPath (V1IngressBackend) +v1HTTPIngressPathBackendL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathBackend -> V1HTTPIngressPath { v1HTTPIngressPathBackend, ..} ) <$> f v1HTTPIngressPathBackend +{-# INLINE v1HTTPIngressPathBackendL #-} + +-- | 'v1HTTPIngressPathPath' Lens +v1HTTPIngressPathPathL :: Lens_' V1HTTPIngressPath (Maybe Text) +v1HTTPIngressPathPathL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathPath -> V1HTTPIngressPath { v1HTTPIngressPathPath, ..} ) <$> f v1HTTPIngressPathPath +{-# INLINE v1HTTPIngressPathPathL #-} + +-- | 'v1HTTPIngressPathPathType' Lens +v1HTTPIngressPathPathTypeL :: Lens_' V1HTTPIngressPath (Text) +v1HTTPIngressPathPathTypeL f V1HTTPIngressPath{..} = (\v1HTTPIngressPathPathType -> V1HTTPIngressPath { v1HTTPIngressPathPathType, ..} ) <$> f v1HTTPIngressPathPathType +{-# INLINE v1HTTPIngressPathPathTypeL #-} + + + +-- * V1HTTPIngressRuleValue + +-- | 'v1HTTPIngressRuleValuePaths' Lens +v1HTTPIngressRuleValuePathsL :: Lens_' V1HTTPIngressRuleValue ([V1HTTPIngressPath]) +v1HTTPIngressRuleValuePathsL f V1HTTPIngressRuleValue{..} = (\v1HTTPIngressRuleValuePaths -> V1HTTPIngressRuleValue { v1HTTPIngressRuleValuePaths, ..} ) <$> f v1HTTPIngressRuleValuePaths +{-# INLINE v1HTTPIngressRuleValuePathsL #-} + + + +-- * V1HorizontalPodAutoscaler + +-- | 'v1HorizontalPodAutoscalerApiVersion' Lens +v1HorizontalPodAutoscalerApiVersionL :: Lens_' V1HorizontalPodAutoscaler (Maybe Text) +v1HorizontalPodAutoscalerApiVersionL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerApiVersion -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerApiVersion, ..} ) <$> f v1HorizontalPodAutoscalerApiVersion +{-# INLINE v1HorizontalPodAutoscalerApiVersionL #-} + +-- | 'v1HorizontalPodAutoscalerKind' Lens +v1HorizontalPodAutoscalerKindL :: Lens_' V1HorizontalPodAutoscaler (Maybe Text) +v1HorizontalPodAutoscalerKindL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerKind -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerKind, ..} ) <$> f v1HorizontalPodAutoscalerKind +{-# INLINE v1HorizontalPodAutoscalerKindL #-} + +-- | 'v1HorizontalPodAutoscalerMetadata' Lens +v1HorizontalPodAutoscalerMetadataL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1ObjectMeta) +v1HorizontalPodAutoscalerMetadataL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerMetadata -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerMetadata, ..} ) <$> f v1HorizontalPodAutoscalerMetadata +{-# INLINE v1HorizontalPodAutoscalerMetadataL #-} + +-- | 'v1HorizontalPodAutoscalerSpec' Lens +v1HorizontalPodAutoscalerSpecL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1HorizontalPodAutoscalerSpec) +v1HorizontalPodAutoscalerSpecL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerSpec -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerSpec, ..} ) <$> f v1HorizontalPodAutoscalerSpec +{-# INLINE v1HorizontalPodAutoscalerSpecL #-} + +-- | 'v1HorizontalPodAutoscalerStatus' Lens +v1HorizontalPodAutoscalerStatusL :: Lens_' V1HorizontalPodAutoscaler (Maybe V1HorizontalPodAutoscalerStatus) +v1HorizontalPodAutoscalerStatusL f V1HorizontalPodAutoscaler{..} = (\v1HorizontalPodAutoscalerStatus -> V1HorizontalPodAutoscaler { v1HorizontalPodAutoscalerStatus, ..} ) <$> f v1HorizontalPodAutoscalerStatus +{-# INLINE v1HorizontalPodAutoscalerStatusL #-} + + + +-- * V1HorizontalPodAutoscalerList + +-- | 'v1HorizontalPodAutoscalerListApiVersion' Lens +v1HorizontalPodAutoscalerListApiVersionL :: Lens_' V1HorizontalPodAutoscalerList (Maybe Text) +v1HorizontalPodAutoscalerListApiVersionL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListApiVersion -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListApiVersion, ..} ) <$> f v1HorizontalPodAutoscalerListApiVersion +{-# INLINE v1HorizontalPodAutoscalerListApiVersionL #-} + +-- | 'v1HorizontalPodAutoscalerListItems' Lens +v1HorizontalPodAutoscalerListItemsL :: Lens_' V1HorizontalPodAutoscalerList ([V1HorizontalPodAutoscaler]) +v1HorizontalPodAutoscalerListItemsL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListItems -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListItems, ..} ) <$> f v1HorizontalPodAutoscalerListItems +{-# INLINE v1HorizontalPodAutoscalerListItemsL #-} + +-- | 'v1HorizontalPodAutoscalerListKind' Lens +v1HorizontalPodAutoscalerListKindL :: Lens_' V1HorizontalPodAutoscalerList (Maybe Text) +v1HorizontalPodAutoscalerListKindL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListKind -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListKind, ..} ) <$> f v1HorizontalPodAutoscalerListKind +{-# INLINE v1HorizontalPodAutoscalerListKindL #-} + +-- | 'v1HorizontalPodAutoscalerListMetadata' Lens +v1HorizontalPodAutoscalerListMetadataL :: Lens_' V1HorizontalPodAutoscalerList (Maybe V1ListMeta) +v1HorizontalPodAutoscalerListMetadataL f V1HorizontalPodAutoscalerList{..} = (\v1HorizontalPodAutoscalerListMetadata -> V1HorizontalPodAutoscalerList { v1HorizontalPodAutoscalerListMetadata, ..} ) <$> f v1HorizontalPodAutoscalerListMetadata +{-# INLINE v1HorizontalPodAutoscalerListMetadataL #-} + + + +-- * V1HorizontalPodAutoscalerSpec + +-- | 'v1HorizontalPodAutoscalerSpecMaxReplicas' Lens +v1HorizontalPodAutoscalerSpecMaxReplicasL :: Lens_' V1HorizontalPodAutoscalerSpec (Int) +v1HorizontalPodAutoscalerSpecMaxReplicasL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecMaxReplicas -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecMaxReplicas, ..} ) <$> f v1HorizontalPodAutoscalerSpecMaxReplicas +{-# INLINE v1HorizontalPodAutoscalerSpecMaxReplicasL #-} + +-- | 'v1HorizontalPodAutoscalerSpecMinReplicas' Lens +v1HorizontalPodAutoscalerSpecMinReplicasL :: Lens_' V1HorizontalPodAutoscalerSpec (Maybe Int) +v1HorizontalPodAutoscalerSpecMinReplicasL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecMinReplicas -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecMinReplicas, ..} ) <$> f v1HorizontalPodAutoscalerSpecMinReplicas +{-# INLINE v1HorizontalPodAutoscalerSpecMinReplicasL #-} + +-- | 'v1HorizontalPodAutoscalerSpecScaleTargetRef' Lens +v1HorizontalPodAutoscalerSpecScaleTargetRefL :: Lens_' V1HorizontalPodAutoscalerSpec (V1CrossVersionObjectReference) +v1HorizontalPodAutoscalerSpecScaleTargetRefL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecScaleTargetRef -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecScaleTargetRef, ..} ) <$> f v1HorizontalPodAutoscalerSpecScaleTargetRef +{-# INLINE v1HorizontalPodAutoscalerSpecScaleTargetRefL #-} + +-- | 'v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage' Lens +v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL :: Lens_' V1HorizontalPodAutoscalerSpec (Maybe Int) +v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL f V1HorizontalPodAutoscalerSpec{..} = (\v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage -> V1HorizontalPodAutoscalerSpec { v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage, ..} ) <$> f v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentage +{-# INLINE v1HorizontalPodAutoscalerSpecTargetCpuUtilizationPercentageL #-} + + + +-- * V1HorizontalPodAutoscalerStatus + +-- | 'v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage' Lens +v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe Int) +v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage, ..} ) <$> f v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentage +{-# INLINE v1HorizontalPodAutoscalerStatusCurrentCpuUtilizationPercentageL #-} + +-- | 'v1HorizontalPodAutoscalerStatusCurrentReplicas' Lens +v1HorizontalPodAutoscalerStatusCurrentReplicasL :: Lens_' V1HorizontalPodAutoscalerStatus (Int) +v1HorizontalPodAutoscalerStatusCurrentReplicasL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusCurrentReplicas -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusCurrentReplicas, ..} ) <$> f v1HorizontalPodAutoscalerStatusCurrentReplicas +{-# INLINE v1HorizontalPodAutoscalerStatusCurrentReplicasL #-} + +-- | 'v1HorizontalPodAutoscalerStatusDesiredReplicas' Lens +v1HorizontalPodAutoscalerStatusDesiredReplicasL :: Lens_' V1HorizontalPodAutoscalerStatus (Int) +v1HorizontalPodAutoscalerStatusDesiredReplicasL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusDesiredReplicas -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusDesiredReplicas, ..} ) <$> f v1HorizontalPodAutoscalerStatusDesiredReplicas +{-# INLINE v1HorizontalPodAutoscalerStatusDesiredReplicasL #-} + +-- | 'v1HorizontalPodAutoscalerStatusLastScaleTime' Lens +v1HorizontalPodAutoscalerStatusLastScaleTimeL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe DateTime) +v1HorizontalPodAutoscalerStatusLastScaleTimeL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusLastScaleTime -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusLastScaleTime, ..} ) <$> f v1HorizontalPodAutoscalerStatusLastScaleTime +{-# INLINE v1HorizontalPodAutoscalerStatusLastScaleTimeL #-} + +-- | 'v1HorizontalPodAutoscalerStatusObservedGeneration' Lens +v1HorizontalPodAutoscalerStatusObservedGenerationL :: Lens_' V1HorizontalPodAutoscalerStatus (Maybe Integer) +v1HorizontalPodAutoscalerStatusObservedGenerationL f V1HorizontalPodAutoscalerStatus{..} = (\v1HorizontalPodAutoscalerStatusObservedGeneration -> V1HorizontalPodAutoscalerStatus { v1HorizontalPodAutoscalerStatusObservedGeneration, ..} ) <$> f v1HorizontalPodAutoscalerStatusObservedGeneration +{-# INLINE v1HorizontalPodAutoscalerStatusObservedGenerationL #-} + + + +-- * V1HostAlias + +-- | 'v1HostAliasHostnames' Lens +v1HostAliasHostnamesL :: Lens_' V1HostAlias (Maybe [Text]) +v1HostAliasHostnamesL f V1HostAlias{..} = (\v1HostAliasHostnames -> V1HostAlias { v1HostAliasHostnames, ..} ) <$> f v1HostAliasHostnames +{-# INLINE v1HostAliasHostnamesL #-} + +-- | 'v1HostAliasIp' Lens +v1HostAliasIpL :: Lens_' V1HostAlias (Maybe Text) +v1HostAliasIpL f V1HostAlias{..} = (\v1HostAliasIp -> V1HostAlias { v1HostAliasIp, ..} ) <$> f v1HostAliasIp +{-# INLINE v1HostAliasIpL #-} + + + +-- * V1HostPathVolumeSource + +-- | 'v1HostPathVolumeSourcePath' Lens +v1HostPathVolumeSourcePathL :: Lens_' V1HostPathVolumeSource (Text) +v1HostPathVolumeSourcePathL f V1HostPathVolumeSource{..} = (\v1HostPathVolumeSourcePath -> V1HostPathVolumeSource { v1HostPathVolumeSourcePath, ..} ) <$> f v1HostPathVolumeSourcePath +{-# INLINE v1HostPathVolumeSourcePathL #-} + +-- | 'v1HostPathVolumeSourceType' Lens +v1HostPathVolumeSourceTypeL :: Lens_' V1HostPathVolumeSource (Maybe Text) +v1HostPathVolumeSourceTypeL f V1HostPathVolumeSource{..} = (\v1HostPathVolumeSourceType -> V1HostPathVolumeSource { v1HostPathVolumeSourceType, ..} ) <$> f v1HostPathVolumeSourceType +{-# INLINE v1HostPathVolumeSourceTypeL #-} + + + +-- * V1IPBlock + +-- | 'v1IPBlockCidr' Lens +v1IPBlockCidrL :: Lens_' V1IPBlock (Text) +v1IPBlockCidrL f V1IPBlock{..} = (\v1IPBlockCidr -> V1IPBlock { v1IPBlockCidr, ..} ) <$> f v1IPBlockCidr +{-# INLINE v1IPBlockCidrL #-} + +-- | 'v1IPBlockExcept' Lens +v1IPBlockExceptL :: Lens_' V1IPBlock (Maybe [Text]) +v1IPBlockExceptL f V1IPBlock{..} = (\v1IPBlockExcept -> V1IPBlock { v1IPBlockExcept, ..} ) <$> f v1IPBlockExcept +{-# INLINE v1IPBlockExceptL #-} + + + +-- * V1ISCSIPersistentVolumeSource + +-- | 'v1ISCSIPersistentVolumeSourceChapAuthDiscovery' Lens +v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) +v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceChapAuthDiscovery -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceChapAuthDiscovery, ..} ) <$> f v1ISCSIPersistentVolumeSourceChapAuthDiscovery +{-# INLINE v1ISCSIPersistentVolumeSourceChapAuthDiscoveryL #-} + +-- | 'v1ISCSIPersistentVolumeSourceChapAuthSession' Lens +v1ISCSIPersistentVolumeSourceChapAuthSessionL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) +v1ISCSIPersistentVolumeSourceChapAuthSessionL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceChapAuthSession -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceChapAuthSession, ..} ) <$> f v1ISCSIPersistentVolumeSourceChapAuthSession +{-# INLINE v1ISCSIPersistentVolumeSourceChapAuthSessionL #-} + +-- | 'v1ISCSIPersistentVolumeSourceFsType' Lens +v1ISCSIPersistentVolumeSourceFsTypeL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) +v1ISCSIPersistentVolumeSourceFsTypeL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceFsType -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceFsType, ..} ) <$> f v1ISCSIPersistentVolumeSourceFsType +{-# INLINE v1ISCSIPersistentVolumeSourceFsTypeL #-} + +-- | 'v1ISCSIPersistentVolumeSourceInitiatorName' Lens +v1ISCSIPersistentVolumeSourceInitiatorNameL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) +v1ISCSIPersistentVolumeSourceInitiatorNameL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceInitiatorName -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceInitiatorName, ..} ) <$> f v1ISCSIPersistentVolumeSourceInitiatorName +{-# INLINE v1ISCSIPersistentVolumeSourceInitiatorNameL #-} + +-- | 'v1ISCSIPersistentVolumeSourceIqn' Lens +v1ISCSIPersistentVolumeSourceIqnL :: Lens_' V1ISCSIPersistentVolumeSource (Text) +v1ISCSIPersistentVolumeSourceIqnL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceIqn -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceIqn, ..} ) <$> f v1ISCSIPersistentVolumeSourceIqn +{-# INLINE v1ISCSIPersistentVolumeSourceIqnL #-} + +-- | 'v1ISCSIPersistentVolumeSourceIscsiInterface' Lens +v1ISCSIPersistentVolumeSourceIscsiInterfaceL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Text) +v1ISCSIPersistentVolumeSourceIscsiInterfaceL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceIscsiInterface -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceIscsiInterface, ..} ) <$> f v1ISCSIPersistentVolumeSourceIscsiInterface +{-# INLINE v1ISCSIPersistentVolumeSourceIscsiInterfaceL #-} + +-- | 'v1ISCSIPersistentVolumeSourceLun' Lens +v1ISCSIPersistentVolumeSourceLunL :: Lens_' V1ISCSIPersistentVolumeSource (Int) +v1ISCSIPersistentVolumeSourceLunL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceLun -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceLun, ..} ) <$> f v1ISCSIPersistentVolumeSourceLun +{-# INLINE v1ISCSIPersistentVolumeSourceLunL #-} + +-- | 'v1ISCSIPersistentVolumeSourcePortals' Lens +v1ISCSIPersistentVolumeSourcePortalsL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe [Text]) +v1ISCSIPersistentVolumeSourcePortalsL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourcePortals -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourcePortals, ..} ) <$> f v1ISCSIPersistentVolumeSourcePortals +{-# INLINE v1ISCSIPersistentVolumeSourcePortalsL #-} + +-- | 'v1ISCSIPersistentVolumeSourceReadOnly' Lens +v1ISCSIPersistentVolumeSourceReadOnlyL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe Bool) +v1ISCSIPersistentVolumeSourceReadOnlyL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceReadOnly -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceReadOnly, ..} ) <$> f v1ISCSIPersistentVolumeSourceReadOnly +{-# INLINE v1ISCSIPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1ISCSIPersistentVolumeSourceSecretRef' Lens +v1ISCSIPersistentVolumeSourceSecretRefL :: Lens_' V1ISCSIPersistentVolumeSource (Maybe V1SecretReference) +v1ISCSIPersistentVolumeSourceSecretRefL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceSecretRef -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceSecretRef, ..} ) <$> f v1ISCSIPersistentVolumeSourceSecretRef +{-# INLINE v1ISCSIPersistentVolumeSourceSecretRefL #-} + +-- | 'v1ISCSIPersistentVolumeSourceTargetPortal' Lens +v1ISCSIPersistentVolumeSourceTargetPortalL :: Lens_' V1ISCSIPersistentVolumeSource (Text) +v1ISCSIPersistentVolumeSourceTargetPortalL f V1ISCSIPersistentVolumeSource{..} = (\v1ISCSIPersistentVolumeSourceTargetPortal -> V1ISCSIPersistentVolumeSource { v1ISCSIPersistentVolumeSourceTargetPortal, ..} ) <$> f v1ISCSIPersistentVolumeSourceTargetPortal +{-# INLINE v1ISCSIPersistentVolumeSourceTargetPortalL #-} + + + +-- * V1ISCSIVolumeSource + +-- | 'v1ISCSIVolumeSourceChapAuthDiscovery' Lens +v1ISCSIVolumeSourceChapAuthDiscoveryL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) +v1ISCSIVolumeSourceChapAuthDiscoveryL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceChapAuthDiscovery -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceChapAuthDiscovery, ..} ) <$> f v1ISCSIVolumeSourceChapAuthDiscovery +{-# INLINE v1ISCSIVolumeSourceChapAuthDiscoveryL #-} + +-- | 'v1ISCSIVolumeSourceChapAuthSession' Lens +v1ISCSIVolumeSourceChapAuthSessionL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) +v1ISCSIVolumeSourceChapAuthSessionL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceChapAuthSession -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceChapAuthSession, ..} ) <$> f v1ISCSIVolumeSourceChapAuthSession +{-# INLINE v1ISCSIVolumeSourceChapAuthSessionL #-} + +-- | 'v1ISCSIVolumeSourceFsType' Lens +v1ISCSIVolumeSourceFsTypeL :: Lens_' V1ISCSIVolumeSource (Maybe Text) +v1ISCSIVolumeSourceFsTypeL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceFsType -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceFsType, ..} ) <$> f v1ISCSIVolumeSourceFsType +{-# INLINE v1ISCSIVolumeSourceFsTypeL #-} + +-- | 'v1ISCSIVolumeSourceInitiatorName' Lens +v1ISCSIVolumeSourceInitiatorNameL :: Lens_' V1ISCSIVolumeSource (Maybe Text) +v1ISCSIVolumeSourceInitiatorNameL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceInitiatorName -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceInitiatorName, ..} ) <$> f v1ISCSIVolumeSourceInitiatorName +{-# INLINE v1ISCSIVolumeSourceInitiatorNameL #-} + +-- | 'v1ISCSIVolumeSourceIqn' Lens +v1ISCSIVolumeSourceIqnL :: Lens_' V1ISCSIVolumeSource (Text) +v1ISCSIVolumeSourceIqnL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceIqn -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceIqn, ..} ) <$> f v1ISCSIVolumeSourceIqn +{-# INLINE v1ISCSIVolumeSourceIqnL #-} + +-- | 'v1ISCSIVolumeSourceIscsiInterface' Lens +v1ISCSIVolumeSourceIscsiInterfaceL :: Lens_' V1ISCSIVolumeSource (Maybe Text) +v1ISCSIVolumeSourceIscsiInterfaceL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceIscsiInterface -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceIscsiInterface, ..} ) <$> f v1ISCSIVolumeSourceIscsiInterface +{-# INLINE v1ISCSIVolumeSourceIscsiInterfaceL #-} + +-- | 'v1ISCSIVolumeSourceLun' Lens +v1ISCSIVolumeSourceLunL :: Lens_' V1ISCSIVolumeSource (Int) +v1ISCSIVolumeSourceLunL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceLun -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceLun, ..} ) <$> f v1ISCSIVolumeSourceLun +{-# INLINE v1ISCSIVolumeSourceLunL #-} + +-- | 'v1ISCSIVolumeSourcePortals' Lens +v1ISCSIVolumeSourcePortalsL :: Lens_' V1ISCSIVolumeSource (Maybe [Text]) +v1ISCSIVolumeSourcePortalsL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourcePortals -> V1ISCSIVolumeSource { v1ISCSIVolumeSourcePortals, ..} ) <$> f v1ISCSIVolumeSourcePortals +{-# INLINE v1ISCSIVolumeSourcePortalsL #-} + +-- | 'v1ISCSIVolumeSourceReadOnly' Lens +v1ISCSIVolumeSourceReadOnlyL :: Lens_' V1ISCSIVolumeSource (Maybe Bool) +v1ISCSIVolumeSourceReadOnlyL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceReadOnly -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceReadOnly, ..} ) <$> f v1ISCSIVolumeSourceReadOnly +{-# INLINE v1ISCSIVolumeSourceReadOnlyL #-} + +-- | 'v1ISCSIVolumeSourceSecretRef' Lens +v1ISCSIVolumeSourceSecretRefL :: Lens_' V1ISCSIVolumeSource (Maybe V1LocalObjectReference) +v1ISCSIVolumeSourceSecretRefL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceSecretRef -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceSecretRef, ..} ) <$> f v1ISCSIVolumeSourceSecretRef +{-# INLINE v1ISCSIVolumeSourceSecretRefL #-} + +-- | 'v1ISCSIVolumeSourceTargetPortal' Lens +v1ISCSIVolumeSourceTargetPortalL :: Lens_' V1ISCSIVolumeSource (Text) +v1ISCSIVolumeSourceTargetPortalL f V1ISCSIVolumeSource{..} = (\v1ISCSIVolumeSourceTargetPortal -> V1ISCSIVolumeSource { v1ISCSIVolumeSourceTargetPortal, ..} ) <$> f v1ISCSIVolumeSourceTargetPortal +{-# INLINE v1ISCSIVolumeSourceTargetPortalL #-} + + + +-- * V1Ingress + +-- | 'v1IngressApiVersion' Lens +v1IngressApiVersionL :: Lens_' V1Ingress (Maybe Text) +v1IngressApiVersionL f V1Ingress{..} = (\v1IngressApiVersion -> V1Ingress { v1IngressApiVersion, ..} ) <$> f v1IngressApiVersion +{-# INLINE v1IngressApiVersionL #-} + +-- | 'v1IngressKind' Lens +v1IngressKindL :: Lens_' V1Ingress (Maybe Text) +v1IngressKindL f V1Ingress{..} = (\v1IngressKind -> V1Ingress { v1IngressKind, ..} ) <$> f v1IngressKind +{-# INLINE v1IngressKindL #-} + +-- | 'v1IngressMetadata' Lens +v1IngressMetadataL :: Lens_' V1Ingress (Maybe V1ObjectMeta) +v1IngressMetadataL f V1Ingress{..} = (\v1IngressMetadata -> V1Ingress { v1IngressMetadata, ..} ) <$> f v1IngressMetadata +{-# INLINE v1IngressMetadataL #-} + +-- | 'v1IngressSpec' Lens +v1IngressSpecL :: Lens_' V1Ingress (Maybe V1IngressSpec) +v1IngressSpecL f V1Ingress{..} = (\v1IngressSpec -> V1Ingress { v1IngressSpec, ..} ) <$> f v1IngressSpec +{-# INLINE v1IngressSpecL #-} + +-- | 'v1IngressStatus' Lens +v1IngressStatusL :: Lens_' V1Ingress (Maybe V1IngressStatus) +v1IngressStatusL f V1Ingress{..} = (\v1IngressStatus -> V1Ingress { v1IngressStatus, ..} ) <$> f v1IngressStatus +{-# INLINE v1IngressStatusL #-} + + + +-- * V1IngressBackend + +-- | 'v1IngressBackendResource' Lens +v1IngressBackendResourceL :: Lens_' V1IngressBackend (Maybe V1TypedLocalObjectReference) +v1IngressBackendResourceL f V1IngressBackend{..} = (\v1IngressBackendResource -> V1IngressBackend { v1IngressBackendResource, ..} ) <$> f v1IngressBackendResource +{-# INLINE v1IngressBackendResourceL #-} + +-- | 'v1IngressBackendService' Lens +v1IngressBackendServiceL :: Lens_' V1IngressBackend (Maybe V1IngressServiceBackend) +v1IngressBackendServiceL f V1IngressBackend{..} = (\v1IngressBackendService -> V1IngressBackend { v1IngressBackendService, ..} ) <$> f v1IngressBackendService +{-# INLINE v1IngressBackendServiceL #-} + + + +-- * V1IngressClass + +-- | 'v1IngressClassApiVersion' Lens +v1IngressClassApiVersionL :: Lens_' V1IngressClass (Maybe Text) +v1IngressClassApiVersionL f V1IngressClass{..} = (\v1IngressClassApiVersion -> V1IngressClass { v1IngressClassApiVersion, ..} ) <$> f v1IngressClassApiVersion +{-# INLINE v1IngressClassApiVersionL #-} + +-- | 'v1IngressClassKind' Lens +v1IngressClassKindL :: Lens_' V1IngressClass (Maybe Text) +v1IngressClassKindL f V1IngressClass{..} = (\v1IngressClassKind -> V1IngressClass { v1IngressClassKind, ..} ) <$> f v1IngressClassKind +{-# INLINE v1IngressClassKindL #-} + +-- | 'v1IngressClassMetadata' Lens +v1IngressClassMetadataL :: Lens_' V1IngressClass (Maybe V1ObjectMeta) +v1IngressClassMetadataL f V1IngressClass{..} = (\v1IngressClassMetadata -> V1IngressClass { v1IngressClassMetadata, ..} ) <$> f v1IngressClassMetadata +{-# INLINE v1IngressClassMetadataL #-} + +-- | 'v1IngressClassSpec' Lens +v1IngressClassSpecL :: Lens_' V1IngressClass (Maybe V1IngressClassSpec) +v1IngressClassSpecL f V1IngressClass{..} = (\v1IngressClassSpec -> V1IngressClass { v1IngressClassSpec, ..} ) <$> f v1IngressClassSpec +{-# INLINE v1IngressClassSpecL #-} + + + +-- * V1IngressClassList + +-- | 'v1IngressClassListApiVersion' Lens +v1IngressClassListApiVersionL :: Lens_' V1IngressClassList (Maybe Text) +v1IngressClassListApiVersionL f V1IngressClassList{..} = (\v1IngressClassListApiVersion -> V1IngressClassList { v1IngressClassListApiVersion, ..} ) <$> f v1IngressClassListApiVersion +{-# INLINE v1IngressClassListApiVersionL #-} + +-- | 'v1IngressClassListItems' Lens +v1IngressClassListItemsL :: Lens_' V1IngressClassList ([V1IngressClass]) +v1IngressClassListItemsL f V1IngressClassList{..} = (\v1IngressClassListItems -> V1IngressClassList { v1IngressClassListItems, ..} ) <$> f v1IngressClassListItems +{-# INLINE v1IngressClassListItemsL #-} + +-- | 'v1IngressClassListKind' Lens +v1IngressClassListKindL :: Lens_' V1IngressClassList (Maybe Text) +v1IngressClassListKindL f V1IngressClassList{..} = (\v1IngressClassListKind -> V1IngressClassList { v1IngressClassListKind, ..} ) <$> f v1IngressClassListKind +{-# INLINE v1IngressClassListKindL #-} + +-- | 'v1IngressClassListMetadata' Lens +v1IngressClassListMetadataL :: Lens_' V1IngressClassList (Maybe V1ListMeta) +v1IngressClassListMetadataL f V1IngressClassList{..} = (\v1IngressClassListMetadata -> V1IngressClassList { v1IngressClassListMetadata, ..} ) <$> f v1IngressClassListMetadata +{-# INLINE v1IngressClassListMetadataL #-} + + + +-- * V1IngressClassParametersReference + +-- | 'v1IngressClassParametersReferenceApiGroup' Lens +v1IngressClassParametersReferenceApiGroupL :: Lens_' V1IngressClassParametersReference (Maybe Text) +v1IngressClassParametersReferenceApiGroupL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceApiGroup -> V1IngressClassParametersReference { v1IngressClassParametersReferenceApiGroup, ..} ) <$> f v1IngressClassParametersReferenceApiGroup +{-# INLINE v1IngressClassParametersReferenceApiGroupL #-} + +-- | 'v1IngressClassParametersReferenceKind' Lens +v1IngressClassParametersReferenceKindL :: Lens_' V1IngressClassParametersReference (Text) +v1IngressClassParametersReferenceKindL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceKind -> V1IngressClassParametersReference { v1IngressClassParametersReferenceKind, ..} ) <$> f v1IngressClassParametersReferenceKind +{-# INLINE v1IngressClassParametersReferenceKindL #-} + +-- | 'v1IngressClassParametersReferenceName' Lens +v1IngressClassParametersReferenceNameL :: Lens_' V1IngressClassParametersReference (Text) +v1IngressClassParametersReferenceNameL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceName -> V1IngressClassParametersReference { v1IngressClassParametersReferenceName, ..} ) <$> f v1IngressClassParametersReferenceName +{-# INLINE v1IngressClassParametersReferenceNameL #-} + +-- | 'v1IngressClassParametersReferenceNamespace' Lens +v1IngressClassParametersReferenceNamespaceL :: Lens_' V1IngressClassParametersReference (Maybe Text) +v1IngressClassParametersReferenceNamespaceL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceNamespace -> V1IngressClassParametersReference { v1IngressClassParametersReferenceNamespace, ..} ) <$> f v1IngressClassParametersReferenceNamespace +{-# INLINE v1IngressClassParametersReferenceNamespaceL #-} + +-- | 'v1IngressClassParametersReferenceScope' Lens +v1IngressClassParametersReferenceScopeL :: Lens_' V1IngressClassParametersReference (Maybe Text) +v1IngressClassParametersReferenceScopeL f V1IngressClassParametersReference{..} = (\v1IngressClassParametersReferenceScope -> V1IngressClassParametersReference { v1IngressClassParametersReferenceScope, ..} ) <$> f v1IngressClassParametersReferenceScope +{-# INLINE v1IngressClassParametersReferenceScopeL #-} + + + +-- * V1IngressClassSpec + +-- | 'v1IngressClassSpecController' Lens +v1IngressClassSpecControllerL :: Lens_' V1IngressClassSpec (Maybe Text) +v1IngressClassSpecControllerL f V1IngressClassSpec{..} = (\v1IngressClassSpecController -> V1IngressClassSpec { v1IngressClassSpecController, ..} ) <$> f v1IngressClassSpecController +{-# INLINE v1IngressClassSpecControllerL #-} + +-- | 'v1IngressClassSpecParameters' Lens +v1IngressClassSpecParametersL :: Lens_' V1IngressClassSpec (Maybe V1IngressClassParametersReference) +v1IngressClassSpecParametersL f V1IngressClassSpec{..} = (\v1IngressClassSpecParameters -> V1IngressClassSpec { v1IngressClassSpecParameters, ..} ) <$> f v1IngressClassSpecParameters +{-# INLINE v1IngressClassSpecParametersL #-} + + + +-- * V1IngressList + +-- | 'v1IngressListApiVersion' Lens +v1IngressListApiVersionL :: Lens_' V1IngressList (Maybe Text) +v1IngressListApiVersionL f V1IngressList{..} = (\v1IngressListApiVersion -> V1IngressList { v1IngressListApiVersion, ..} ) <$> f v1IngressListApiVersion +{-# INLINE v1IngressListApiVersionL #-} + +-- | 'v1IngressListItems' Lens +v1IngressListItemsL :: Lens_' V1IngressList ([V1Ingress]) +v1IngressListItemsL f V1IngressList{..} = (\v1IngressListItems -> V1IngressList { v1IngressListItems, ..} ) <$> f v1IngressListItems +{-# INLINE v1IngressListItemsL #-} + +-- | 'v1IngressListKind' Lens +v1IngressListKindL :: Lens_' V1IngressList (Maybe Text) +v1IngressListKindL f V1IngressList{..} = (\v1IngressListKind -> V1IngressList { v1IngressListKind, ..} ) <$> f v1IngressListKind +{-# INLINE v1IngressListKindL #-} + +-- | 'v1IngressListMetadata' Lens +v1IngressListMetadataL :: Lens_' V1IngressList (Maybe V1ListMeta) +v1IngressListMetadataL f V1IngressList{..} = (\v1IngressListMetadata -> V1IngressList { v1IngressListMetadata, ..} ) <$> f v1IngressListMetadata +{-# INLINE v1IngressListMetadataL #-} + + + +-- * V1IngressLoadBalancerIngress + +-- | 'v1IngressLoadBalancerIngressHostname' Lens +v1IngressLoadBalancerIngressHostnameL :: Lens_' V1IngressLoadBalancerIngress (Maybe Text) +v1IngressLoadBalancerIngressHostnameL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressHostname -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressHostname, ..} ) <$> f v1IngressLoadBalancerIngressHostname +{-# INLINE v1IngressLoadBalancerIngressHostnameL #-} + +-- | 'v1IngressLoadBalancerIngressIp' Lens +v1IngressLoadBalancerIngressIpL :: Lens_' V1IngressLoadBalancerIngress (Maybe Text) +v1IngressLoadBalancerIngressIpL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressIp -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressIp, ..} ) <$> f v1IngressLoadBalancerIngressIp +{-# INLINE v1IngressLoadBalancerIngressIpL #-} + +-- | 'v1IngressLoadBalancerIngressPorts' Lens +v1IngressLoadBalancerIngressPortsL :: Lens_' V1IngressLoadBalancerIngress (Maybe [V1IngressPortStatus]) +v1IngressLoadBalancerIngressPortsL f V1IngressLoadBalancerIngress{..} = (\v1IngressLoadBalancerIngressPorts -> V1IngressLoadBalancerIngress { v1IngressLoadBalancerIngressPorts, ..} ) <$> f v1IngressLoadBalancerIngressPorts +{-# INLINE v1IngressLoadBalancerIngressPortsL #-} + + + +-- * V1IngressLoadBalancerStatus + +-- | 'v1IngressLoadBalancerStatusIngress' Lens +v1IngressLoadBalancerStatusIngressL :: Lens_' V1IngressLoadBalancerStatus (Maybe [V1IngressLoadBalancerIngress]) +v1IngressLoadBalancerStatusIngressL f V1IngressLoadBalancerStatus{..} = (\v1IngressLoadBalancerStatusIngress -> V1IngressLoadBalancerStatus { v1IngressLoadBalancerStatusIngress, ..} ) <$> f v1IngressLoadBalancerStatusIngress +{-# INLINE v1IngressLoadBalancerStatusIngressL #-} + + + +-- * V1IngressPortStatus + +-- | 'v1IngressPortStatusError' Lens +v1IngressPortStatusErrorL :: Lens_' V1IngressPortStatus (Maybe Text) +v1IngressPortStatusErrorL f V1IngressPortStatus{..} = (\v1IngressPortStatusError -> V1IngressPortStatus { v1IngressPortStatusError, ..} ) <$> f v1IngressPortStatusError +{-# INLINE v1IngressPortStatusErrorL #-} + +-- | 'v1IngressPortStatusPort' Lens +v1IngressPortStatusPortL :: Lens_' V1IngressPortStatus (Int) +v1IngressPortStatusPortL f V1IngressPortStatus{..} = (\v1IngressPortStatusPort -> V1IngressPortStatus { v1IngressPortStatusPort, ..} ) <$> f v1IngressPortStatusPort +{-# INLINE v1IngressPortStatusPortL #-} + +-- | 'v1IngressPortStatusProtocol' Lens +v1IngressPortStatusProtocolL :: Lens_' V1IngressPortStatus (Text) +v1IngressPortStatusProtocolL f V1IngressPortStatus{..} = (\v1IngressPortStatusProtocol -> V1IngressPortStatus { v1IngressPortStatusProtocol, ..} ) <$> f v1IngressPortStatusProtocol +{-# INLINE v1IngressPortStatusProtocolL #-} + + + +-- * V1IngressRule + +-- | 'v1IngressRuleHost' Lens +v1IngressRuleHostL :: Lens_' V1IngressRule (Maybe Text) +v1IngressRuleHostL f V1IngressRule{..} = (\v1IngressRuleHost -> V1IngressRule { v1IngressRuleHost, ..} ) <$> f v1IngressRuleHost +{-# INLINE v1IngressRuleHostL #-} + +-- | 'v1IngressRuleHttp' Lens +v1IngressRuleHttpL :: Lens_' V1IngressRule (Maybe V1HTTPIngressRuleValue) +v1IngressRuleHttpL f V1IngressRule{..} = (\v1IngressRuleHttp -> V1IngressRule { v1IngressRuleHttp, ..} ) <$> f v1IngressRuleHttp +{-# INLINE v1IngressRuleHttpL #-} + + + +-- * V1IngressServiceBackend + +-- | 'v1IngressServiceBackendName' Lens +v1IngressServiceBackendNameL :: Lens_' V1IngressServiceBackend (Text) +v1IngressServiceBackendNameL f V1IngressServiceBackend{..} = (\v1IngressServiceBackendName -> V1IngressServiceBackend { v1IngressServiceBackendName, ..} ) <$> f v1IngressServiceBackendName +{-# INLINE v1IngressServiceBackendNameL #-} + +-- | 'v1IngressServiceBackendPort' Lens +v1IngressServiceBackendPortL :: Lens_' V1IngressServiceBackend (Maybe V1ServiceBackendPort) +v1IngressServiceBackendPortL f V1IngressServiceBackend{..} = (\v1IngressServiceBackendPort -> V1IngressServiceBackend { v1IngressServiceBackendPort, ..} ) <$> f v1IngressServiceBackendPort +{-# INLINE v1IngressServiceBackendPortL #-} + + + +-- * V1IngressSpec + +-- | 'v1IngressSpecDefaultBackend' Lens +v1IngressSpecDefaultBackendL :: Lens_' V1IngressSpec (Maybe V1IngressBackend) +v1IngressSpecDefaultBackendL f V1IngressSpec{..} = (\v1IngressSpecDefaultBackend -> V1IngressSpec { v1IngressSpecDefaultBackend, ..} ) <$> f v1IngressSpecDefaultBackend +{-# INLINE v1IngressSpecDefaultBackendL #-} + +-- | 'v1IngressSpecIngressClassName' Lens +v1IngressSpecIngressClassNameL :: Lens_' V1IngressSpec (Maybe Text) +v1IngressSpecIngressClassNameL f V1IngressSpec{..} = (\v1IngressSpecIngressClassName -> V1IngressSpec { v1IngressSpecIngressClassName, ..} ) <$> f v1IngressSpecIngressClassName +{-# INLINE v1IngressSpecIngressClassNameL #-} + +-- | 'v1IngressSpecRules' Lens +v1IngressSpecRulesL :: Lens_' V1IngressSpec (Maybe [V1IngressRule]) +v1IngressSpecRulesL f V1IngressSpec{..} = (\v1IngressSpecRules -> V1IngressSpec { v1IngressSpecRules, ..} ) <$> f v1IngressSpecRules +{-# INLINE v1IngressSpecRulesL #-} + +-- | 'v1IngressSpecTls' Lens +v1IngressSpecTlsL :: Lens_' V1IngressSpec (Maybe [V1IngressTLS]) +v1IngressSpecTlsL f V1IngressSpec{..} = (\v1IngressSpecTls -> V1IngressSpec { v1IngressSpecTls, ..} ) <$> f v1IngressSpecTls +{-# INLINE v1IngressSpecTlsL #-} + + + +-- * V1IngressStatus + +-- | 'v1IngressStatusLoadBalancer' Lens +v1IngressStatusLoadBalancerL :: Lens_' V1IngressStatus (Maybe V1IngressLoadBalancerStatus) +v1IngressStatusLoadBalancerL f V1IngressStatus{..} = (\v1IngressStatusLoadBalancer -> V1IngressStatus { v1IngressStatusLoadBalancer, ..} ) <$> f v1IngressStatusLoadBalancer +{-# INLINE v1IngressStatusLoadBalancerL #-} + + + +-- * V1IngressTLS + +-- | 'v1IngressTLSHosts' Lens +v1IngressTLSHostsL :: Lens_' V1IngressTLS (Maybe [Text]) +v1IngressTLSHostsL f V1IngressTLS{..} = (\v1IngressTLSHosts -> V1IngressTLS { v1IngressTLSHosts, ..} ) <$> f v1IngressTLSHosts +{-# INLINE v1IngressTLSHostsL #-} + +-- | 'v1IngressTLSSecretName' Lens +v1IngressTLSSecretNameL :: Lens_' V1IngressTLS (Maybe Text) +v1IngressTLSSecretNameL f V1IngressTLS{..} = (\v1IngressTLSSecretName -> V1IngressTLS { v1IngressTLSSecretName, ..} ) <$> f v1IngressTLSSecretName +{-# INLINE v1IngressTLSSecretNameL #-} + + + +-- * V1JSONSchemaProps + +-- | 'v1JSONSchemaPropsRef' Lens +v1JSONSchemaPropsRefL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsRefL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsRef -> V1JSONSchemaProps { v1JSONSchemaPropsRef, ..} ) <$> f v1JSONSchemaPropsRef +{-# INLINE v1JSONSchemaPropsRefL #-} + +-- | 'v1JSONSchemaPropsSchema' Lens +v1JSONSchemaPropsSchemaL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsSchemaL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsSchema -> V1JSONSchemaProps { v1JSONSchemaPropsSchema, ..} ) <$> f v1JSONSchemaPropsSchema +{-# INLINE v1JSONSchemaPropsSchemaL #-} + +-- | 'v1JSONSchemaPropsAdditionalItems' Lens +v1JSONSchemaPropsAdditionalItemsL :: Lens_' V1JSONSchemaProps (Maybe A.Value) +v1JSONSchemaPropsAdditionalItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAdditionalItems -> V1JSONSchemaProps { v1JSONSchemaPropsAdditionalItems, ..} ) <$> f v1JSONSchemaPropsAdditionalItems +{-# INLINE v1JSONSchemaPropsAdditionalItemsL #-} + +-- | 'v1JSONSchemaPropsAdditionalProperties' Lens +v1JSONSchemaPropsAdditionalPropertiesL :: Lens_' V1JSONSchemaProps (Maybe A.Value) +v1JSONSchemaPropsAdditionalPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAdditionalProperties -> V1JSONSchemaProps { v1JSONSchemaPropsAdditionalProperties, ..} ) <$> f v1JSONSchemaPropsAdditionalProperties +{-# INLINE v1JSONSchemaPropsAdditionalPropertiesL #-} + +-- | 'v1JSONSchemaPropsAllOf' Lens +v1JSONSchemaPropsAllOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) +v1JSONSchemaPropsAllOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAllOf -> V1JSONSchemaProps { v1JSONSchemaPropsAllOf, ..} ) <$> f v1JSONSchemaPropsAllOf +{-# INLINE v1JSONSchemaPropsAllOfL #-} + +-- | 'v1JSONSchemaPropsAnyOf' Lens +v1JSONSchemaPropsAnyOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) +v1JSONSchemaPropsAnyOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsAnyOf -> V1JSONSchemaProps { v1JSONSchemaPropsAnyOf, ..} ) <$> f v1JSONSchemaPropsAnyOf +{-# INLINE v1JSONSchemaPropsAnyOfL #-} + +-- | 'v1JSONSchemaPropsDefault' Lens +v1JSONSchemaPropsDefaultL :: Lens_' V1JSONSchemaProps (Maybe A.Value) +v1JSONSchemaPropsDefaultL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDefault -> V1JSONSchemaProps { v1JSONSchemaPropsDefault, ..} ) <$> f v1JSONSchemaPropsDefault +{-# INLINE v1JSONSchemaPropsDefaultL #-} + +-- | 'v1JSONSchemaPropsDefinitions' Lens +v1JSONSchemaPropsDefinitionsL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) +v1JSONSchemaPropsDefinitionsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDefinitions -> V1JSONSchemaProps { v1JSONSchemaPropsDefinitions, ..} ) <$> f v1JSONSchemaPropsDefinitions +{-# INLINE v1JSONSchemaPropsDefinitionsL #-} + +-- | 'v1JSONSchemaPropsDependencies' Lens +v1JSONSchemaPropsDependenciesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String A.Value)) +v1JSONSchemaPropsDependenciesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDependencies -> V1JSONSchemaProps { v1JSONSchemaPropsDependencies, ..} ) <$> f v1JSONSchemaPropsDependencies +{-# INLINE v1JSONSchemaPropsDependenciesL #-} + +-- | 'v1JSONSchemaPropsDescription' Lens +v1JSONSchemaPropsDescriptionL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsDescriptionL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsDescription -> V1JSONSchemaProps { v1JSONSchemaPropsDescription, ..} ) <$> f v1JSONSchemaPropsDescription +{-# INLINE v1JSONSchemaPropsDescriptionL #-} + +-- | 'v1JSONSchemaPropsEnum' Lens +v1JSONSchemaPropsEnumL :: Lens_' V1JSONSchemaProps (Maybe [A.Value]) +v1JSONSchemaPropsEnumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsEnum -> V1JSONSchemaProps { v1JSONSchemaPropsEnum, ..} ) <$> f v1JSONSchemaPropsEnum +{-# INLINE v1JSONSchemaPropsEnumL #-} + +-- | 'v1JSONSchemaPropsExample' Lens +v1JSONSchemaPropsExampleL :: Lens_' V1JSONSchemaProps (Maybe A.Value) +v1JSONSchemaPropsExampleL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExample -> V1JSONSchemaProps { v1JSONSchemaPropsExample, ..} ) <$> f v1JSONSchemaPropsExample +{-# INLINE v1JSONSchemaPropsExampleL #-} + +-- | 'v1JSONSchemaPropsExclusiveMaximum' Lens +v1JSONSchemaPropsExclusiveMaximumL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsExclusiveMaximumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExclusiveMaximum -> V1JSONSchemaProps { v1JSONSchemaPropsExclusiveMaximum, ..} ) <$> f v1JSONSchemaPropsExclusiveMaximum +{-# INLINE v1JSONSchemaPropsExclusiveMaximumL #-} + +-- | 'v1JSONSchemaPropsExclusiveMinimum' Lens +v1JSONSchemaPropsExclusiveMinimumL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsExclusiveMinimumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExclusiveMinimum -> V1JSONSchemaProps { v1JSONSchemaPropsExclusiveMinimum, ..} ) <$> f v1JSONSchemaPropsExclusiveMinimum +{-# INLINE v1JSONSchemaPropsExclusiveMinimumL #-} + +-- | 'v1JSONSchemaPropsExternalDocs' Lens +v1JSONSchemaPropsExternalDocsL :: Lens_' V1JSONSchemaProps (Maybe V1ExternalDocumentation) +v1JSONSchemaPropsExternalDocsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsExternalDocs -> V1JSONSchemaProps { v1JSONSchemaPropsExternalDocs, ..} ) <$> f v1JSONSchemaPropsExternalDocs +{-# INLINE v1JSONSchemaPropsExternalDocsL #-} + +-- | 'v1JSONSchemaPropsFormat' Lens +v1JSONSchemaPropsFormatL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsFormatL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsFormat -> V1JSONSchemaProps { v1JSONSchemaPropsFormat, ..} ) <$> f v1JSONSchemaPropsFormat +{-# INLINE v1JSONSchemaPropsFormatL #-} + +-- | 'v1JSONSchemaPropsId' Lens +v1JSONSchemaPropsIdL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsIdL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsId -> V1JSONSchemaProps { v1JSONSchemaPropsId, ..} ) <$> f v1JSONSchemaPropsId +{-# INLINE v1JSONSchemaPropsIdL #-} + +-- | 'v1JSONSchemaPropsItems' Lens +v1JSONSchemaPropsItemsL :: Lens_' V1JSONSchemaProps (Maybe A.Value) +v1JSONSchemaPropsItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsItems -> V1JSONSchemaProps { v1JSONSchemaPropsItems, ..} ) <$> f v1JSONSchemaPropsItems +{-# INLINE v1JSONSchemaPropsItemsL #-} + +-- | 'v1JSONSchemaPropsMaxItems' Lens +v1JSONSchemaPropsMaxItemsL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMaxItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxItems -> V1JSONSchemaProps { v1JSONSchemaPropsMaxItems, ..} ) <$> f v1JSONSchemaPropsMaxItems +{-# INLINE v1JSONSchemaPropsMaxItemsL #-} + +-- | 'v1JSONSchemaPropsMaxLength' Lens +v1JSONSchemaPropsMaxLengthL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMaxLengthL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxLength -> V1JSONSchemaProps { v1JSONSchemaPropsMaxLength, ..} ) <$> f v1JSONSchemaPropsMaxLength +{-# INLINE v1JSONSchemaPropsMaxLengthL #-} + +-- | 'v1JSONSchemaPropsMaxProperties' Lens +v1JSONSchemaPropsMaxPropertiesL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMaxPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaxProperties -> V1JSONSchemaProps { v1JSONSchemaPropsMaxProperties, ..} ) <$> f v1JSONSchemaPropsMaxProperties +{-# INLINE v1JSONSchemaPropsMaxPropertiesL #-} + +-- | 'v1JSONSchemaPropsMaximum' Lens +v1JSONSchemaPropsMaximumL :: Lens_' V1JSONSchemaProps (Maybe Double) +v1JSONSchemaPropsMaximumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMaximum -> V1JSONSchemaProps { v1JSONSchemaPropsMaximum, ..} ) <$> f v1JSONSchemaPropsMaximum +{-# INLINE v1JSONSchemaPropsMaximumL #-} + +-- | 'v1JSONSchemaPropsMinItems' Lens +v1JSONSchemaPropsMinItemsL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMinItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinItems -> V1JSONSchemaProps { v1JSONSchemaPropsMinItems, ..} ) <$> f v1JSONSchemaPropsMinItems +{-# INLINE v1JSONSchemaPropsMinItemsL #-} + +-- | 'v1JSONSchemaPropsMinLength' Lens +v1JSONSchemaPropsMinLengthL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMinLengthL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinLength -> V1JSONSchemaProps { v1JSONSchemaPropsMinLength, ..} ) <$> f v1JSONSchemaPropsMinLength +{-# INLINE v1JSONSchemaPropsMinLengthL #-} + +-- | 'v1JSONSchemaPropsMinProperties' Lens +v1JSONSchemaPropsMinPropertiesL :: Lens_' V1JSONSchemaProps (Maybe Integer) +v1JSONSchemaPropsMinPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinProperties -> V1JSONSchemaProps { v1JSONSchemaPropsMinProperties, ..} ) <$> f v1JSONSchemaPropsMinProperties +{-# INLINE v1JSONSchemaPropsMinPropertiesL #-} + +-- | 'v1JSONSchemaPropsMinimum' Lens +v1JSONSchemaPropsMinimumL :: Lens_' V1JSONSchemaProps (Maybe Double) +v1JSONSchemaPropsMinimumL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMinimum -> V1JSONSchemaProps { v1JSONSchemaPropsMinimum, ..} ) <$> f v1JSONSchemaPropsMinimum +{-# INLINE v1JSONSchemaPropsMinimumL #-} + +-- | 'v1JSONSchemaPropsMultipleOf' Lens +v1JSONSchemaPropsMultipleOfL :: Lens_' V1JSONSchemaProps (Maybe Double) +v1JSONSchemaPropsMultipleOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsMultipleOf -> V1JSONSchemaProps { v1JSONSchemaPropsMultipleOf, ..} ) <$> f v1JSONSchemaPropsMultipleOf +{-# INLINE v1JSONSchemaPropsMultipleOfL #-} + +-- | 'v1JSONSchemaPropsNot' Lens +v1JSONSchemaPropsNotL :: Lens_' V1JSONSchemaProps (Maybe V1JSONSchemaProps) +v1JSONSchemaPropsNotL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsNot -> V1JSONSchemaProps { v1JSONSchemaPropsNot, ..} ) <$> f v1JSONSchemaPropsNot +{-# INLINE v1JSONSchemaPropsNotL #-} + +-- | 'v1JSONSchemaPropsNullable' Lens +v1JSONSchemaPropsNullableL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsNullableL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsNullable -> V1JSONSchemaProps { v1JSONSchemaPropsNullable, ..} ) <$> f v1JSONSchemaPropsNullable +{-# INLINE v1JSONSchemaPropsNullableL #-} + +-- | 'v1JSONSchemaPropsOneOf' Lens +v1JSONSchemaPropsOneOfL :: Lens_' V1JSONSchemaProps (Maybe [V1JSONSchemaProps]) +v1JSONSchemaPropsOneOfL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsOneOf -> V1JSONSchemaProps { v1JSONSchemaPropsOneOf, ..} ) <$> f v1JSONSchemaPropsOneOf +{-# INLINE v1JSONSchemaPropsOneOfL #-} + +-- | 'v1JSONSchemaPropsPattern' Lens +v1JSONSchemaPropsPatternL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsPatternL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsPattern -> V1JSONSchemaProps { v1JSONSchemaPropsPattern, ..} ) <$> f v1JSONSchemaPropsPattern +{-# INLINE v1JSONSchemaPropsPatternL #-} + +-- | 'v1JSONSchemaPropsPatternProperties' Lens +v1JSONSchemaPropsPatternPropertiesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) +v1JSONSchemaPropsPatternPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsPatternProperties -> V1JSONSchemaProps { v1JSONSchemaPropsPatternProperties, ..} ) <$> f v1JSONSchemaPropsPatternProperties +{-# INLINE v1JSONSchemaPropsPatternPropertiesL #-} + +-- | 'v1JSONSchemaPropsProperties' Lens +v1JSONSchemaPropsPropertiesL :: Lens_' V1JSONSchemaProps (Maybe (Map.Map String V1JSONSchemaProps)) +v1JSONSchemaPropsPropertiesL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsProperties -> V1JSONSchemaProps { v1JSONSchemaPropsProperties, ..} ) <$> f v1JSONSchemaPropsProperties +{-# INLINE v1JSONSchemaPropsPropertiesL #-} + +-- | 'v1JSONSchemaPropsRequired' Lens +v1JSONSchemaPropsRequiredL :: Lens_' V1JSONSchemaProps (Maybe [Text]) +v1JSONSchemaPropsRequiredL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsRequired -> V1JSONSchemaProps { v1JSONSchemaPropsRequired, ..} ) <$> f v1JSONSchemaPropsRequired +{-# INLINE v1JSONSchemaPropsRequiredL #-} + +-- | 'v1JSONSchemaPropsTitle' Lens +v1JSONSchemaPropsTitleL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsTitleL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsTitle -> V1JSONSchemaProps { v1JSONSchemaPropsTitle, ..} ) <$> f v1JSONSchemaPropsTitle +{-# INLINE v1JSONSchemaPropsTitleL #-} + +-- | 'v1JSONSchemaPropsType' Lens +v1JSONSchemaPropsTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsType -> V1JSONSchemaProps { v1JSONSchemaPropsType, ..} ) <$> f v1JSONSchemaPropsType +{-# INLINE v1JSONSchemaPropsTypeL #-} + +-- | 'v1JSONSchemaPropsUniqueItems' Lens +v1JSONSchemaPropsUniqueItemsL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsUniqueItemsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsUniqueItems -> V1JSONSchemaProps { v1JSONSchemaPropsUniqueItems, ..} ) <$> f v1JSONSchemaPropsUniqueItems +{-# INLINE v1JSONSchemaPropsUniqueItemsL #-} + +-- | 'v1JSONSchemaPropsXKubernetesEmbeddedResource' Lens +v1JSONSchemaPropsXKubernetesEmbeddedResourceL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsXKubernetesEmbeddedResourceL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesEmbeddedResource -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesEmbeddedResource, ..} ) <$> f v1JSONSchemaPropsXKubernetesEmbeddedResource +{-# INLINE v1JSONSchemaPropsXKubernetesEmbeddedResourceL #-} + +-- | 'v1JSONSchemaPropsXKubernetesIntOrString' Lens +v1JSONSchemaPropsXKubernetesIntOrStringL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsXKubernetesIntOrStringL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesIntOrString -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesIntOrString, ..} ) <$> f v1JSONSchemaPropsXKubernetesIntOrString +{-# INLINE v1JSONSchemaPropsXKubernetesIntOrStringL #-} + +-- | 'v1JSONSchemaPropsXKubernetesListMapKeys' Lens +v1JSONSchemaPropsXKubernetesListMapKeysL :: Lens_' V1JSONSchemaProps (Maybe [Text]) +v1JSONSchemaPropsXKubernetesListMapKeysL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesListMapKeys -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesListMapKeys, ..} ) <$> f v1JSONSchemaPropsXKubernetesListMapKeys +{-# INLINE v1JSONSchemaPropsXKubernetesListMapKeysL #-} + +-- | 'v1JSONSchemaPropsXKubernetesListType' Lens +v1JSONSchemaPropsXKubernetesListTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsXKubernetesListTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesListType -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesListType, ..} ) <$> f v1JSONSchemaPropsXKubernetesListType +{-# INLINE v1JSONSchemaPropsXKubernetesListTypeL #-} + +-- | 'v1JSONSchemaPropsXKubernetesMapType' Lens +v1JSONSchemaPropsXKubernetesMapTypeL :: Lens_' V1JSONSchemaProps (Maybe Text) +v1JSONSchemaPropsXKubernetesMapTypeL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesMapType -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesMapType, ..} ) <$> f v1JSONSchemaPropsXKubernetesMapType +{-# INLINE v1JSONSchemaPropsXKubernetesMapTypeL #-} + +-- | 'v1JSONSchemaPropsXKubernetesPreserveUnknownFields' Lens +v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL :: Lens_' V1JSONSchemaProps (Maybe Bool) +v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesPreserveUnknownFields -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesPreserveUnknownFields, ..} ) <$> f v1JSONSchemaPropsXKubernetesPreserveUnknownFields +{-# INLINE v1JSONSchemaPropsXKubernetesPreserveUnknownFieldsL #-} + +-- | 'v1JSONSchemaPropsXKubernetesValidations' Lens +v1JSONSchemaPropsXKubernetesValidationsL :: Lens_' V1JSONSchemaProps (Maybe [V1ValidationRule]) +v1JSONSchemaPropsXKubernetesValidationsL f V1JSONSchemaProps{..} = (\v1JSONSchemaPropsXKubernetesValidations -> V1JSONSchemaProps { v1JSONSchemaPropsXKubernetesValidations, ..} ) <$> f v1JSONSchemaPropsXKubernetesValidations +{-# INLINE v1JSONSchemaPropsXKubernetesValidationsL #-} + + + +-- * V1Job + +-- | 'v1JobApiVersion' Lens +v1JobApiVersionL :: Lens_' V1Job (Maybe Text) +v1JobApiVersionL f V1Job{..} = (\v1JobApiVersion -> V1Job { v1JobApiVersion, ..} ) <$> f v1JobApiVersion +{-# INLINE v1JobApiVersionL #-} + +-- | 'v1JobKind' Lens +v1JobKindL :: Lens_' V1Job (Maybe Text) +v1JobKindL f V1Job{..} = (\v1JobKind -> V1Job { v1JobKind, ..} ) <$> f v1JobKind +{-# INLINE v1JobKindL #-} + +-- | 'v1JobMetadata' Lens +v1JobMetadataL :: Lens_' V1Job (Maybe V1ObjectMeta) +v1JobMetadataL f V1Job{..} = (\v1JobMetadata -> V1Job { v1JobMetadata, ..} ) <$> f v1JobMetadata +{-# INLINE v1JobMetadataL #-} + +-- | 'v1JobSpec' Lens +v1JobSpecL :: Lens_' V1Job (Maybe V1JobSpec) +v1JobSpecL f V1Job{..} = (\v1JobSpec -> V1Job { v1JobSpec, ..} ) <$> f v1JobSpec +{-# INLINE v1JobSpecL #-} + +-- | 'v1JobStatus' Lens +v1JobStatusL :: Lens_' V1Job (Maybe V1JobStatus) +v1JobStatusL f V1Job{..} = (\v1JobStatus -> V1Job { v1JobStatus, ..} ) <$> f v1JobStatus +{-# INLINE v1JobStatusL #-} + + + +-- * V1JobCondition + +-- | 'v1JobConditionLastProbeTime' Lens +v1JobConditionLastProbeTimeL :: Lens_' V1JobCondition (Maybe DateTime) +v1JobConditionLastProbeTimeL f V1JobCondition{..} = (\v1JobConditionLastProbeTime -> V1JobCondition { v1JobConditionLastProbeTime, ..} ) <$> f v1JobConditionLastProbeTime +{-# INLINE v1JobConditionLastProbeTimeL #-} + +-- | 'v1JobConditionLastTransitionTime' Lens +v1JobConditionLastTransitionTimeL :: Lens_' V1JobCondition (Maybe DateTime) +v1JobConditionLastTransitionTimeL f V1JobCondition{..} = (\v1JobConditionLastTransitionTime -> V1JobCondition { v1JobConditionLastTransitionTime, ..} ) <$> f v1JobConditionLastTransitionTime +{-# INLINE v1JobConditionLastTransitionTimeL #-} + +-- | 'v1JobConditionMessage' Lens +v1JobConditionMessageL :: Lens_' V1JobCondition (Maybe Text) +v1JobConditionMessageL f V1JobCondition{..} = (\v1JobConditionMessage -> V1JobCondition { v1JobConditionMessage, ..} ) <$> f v1JobConditionMessage +{-# INLINE v1JobConditionMessageL #-} + +-- | 'v1JobConditionReason' Lens +v1JobConditionReasonL :: Lens_' V1JobCondition (Maybe Text) +v1JobConditionReasonL f V1JobCondition{..} = (\v1JobConditionReason -> V1JobCondition { v1JobConditionReason, ..} ) <$> f v1JobConditionReason +{-# INLINE v1JobConditionReasonL #-} + +-- | 'v1JobConditionStatus' Lens +v1JobConditionStatusL :: Lens_' V1JobCondition (Text) +v1JobConditionStatusL f V1JobCondition{..} = (\v1JobConditionStatus -> V1JobCondition { v1JobConditionStatus, ..} ) <$> f v1JobConditionStatus +{-# INLINE v1JobConditionStatusL #-} + +-- | 'v1JobConditionType' Lens +v1JobConditionTypeL :: Lens_' V1JobCondition (Text) +v1JobConditionTypeL f V1JobCondition{..} = (\v1JobConditionType -> V1JobCondition { v1JobConditionType, ..} ) <$> f v1JobConditionType +{-# INLINE v1JobConditionTypeL #-} + + + +-- * V1JobList + +-- | 'v1JobListApiVersion' Lens +v1JobListApiVersionL :: Lens_' V1JobList (Maybe Text) +v1JobListApiVersionL f V1JobList{..} = (\v1JobListApiVersion -> V1JobList { v1JobListApiVersion, ..} ) <$> f v1JobListApiVersion +{-# INLINE v1JobListApiVersionL #-} + +-- | 'v1JobListItems' Lens +v1JobListItemsL :: Lens_' V1JobList ([V1Job]) +v1JobListItemsL f V1JobList{..} = (\v1JobListItems -> V1JobList { v1JobListItems, ..} ) <$> f v1JobListItems +{-# INLINE v1JobListItemsL #-} + +-- | 'v1JobListKind' Lens +v1JobListKindL :: Lens_' V1JobList (Maybe Text) +v1JobListKindL f V1JobList{..} = (\v1JobListKind -> V1JobList { v1JobListKind, ..} ) <$> f v1JobListKind +{-# INLINE v1JobListKindL #-} + +-- | 'v1JobListMetadata' Lens +v1JobListMetadataL :: Lens_' V1JobList (Maybe V1ListMeta) +v1JobListMetadataL f V1JobList{..} = (\v1JobListMetadata -> V1JobList { v1JobListMetadata, ..} ) <$> f v1JobListMetadata +{-# INLINE v1JobListMetadataL #-} + + + +-- * V1JobSpec + +-- | 'v1JobSpecActiveDeadlineSeconds' Lens +v1JobSpecActiveDeadlineSecondsL :: Lens_' V1JobSpec (Maybe Integer) +v1JobSpecActiveDeadlineSecondsL f V1JobSpec{..} = (\v1JobSpecActiveDeadlineSeconds -> V1JobSpec { v1JobSpecActiveDeadlineSeconds, ..} ) <$> f v1JobSpecActiveDeadlineSeconds +{-# INLINE v1JobSpecActiveDeadlineSecondsL #-} + +-- | 'v1JobSpecBackoffLimit' Lens +v1JobSpecBackoffLimitL :: Lens_' V1JobSpec (Maybe Int) +v1JobSpecBackoffLimitL f V1JobSpec{..} = (\v1JobSpecBackoffLimit -> V1JobSpec { v1JobSpecBackoffLimit, ..} ) <$> f v1JobSpecBackoffLimit +{-# INLINE v1JobSpecBackoffLimitL #-} + +-- | 'v1JobSpecCompletionMode' Lens +v1JobSpecCompletionModeL :: Lens_' V1JobSpec (Maybe Text) +v1JobSpecCompletionModeL f V1JobSpec{..} = (\v1JobSpecCompletionMode -> V1JobSpec { v1JobSpecCompletionMode, ..} ) <$> f v1JobSpecCompletionMode +{-# INLINE v1JobSpecCompletionModeL #-} + +-- | 'v1JobSpecCompletions' Lens +v1JobSpecCompletionsL :: Lens_' V1JobSpec (Maybe Int) +v1JobSpecCompletionsL f V1JobSpec{..} = (\v1JobSpecCompletions -> V1JobSpec { v1JobSpecCompletions, ..} ) <$> f v1JobSpecCompletions +{-# INLINE v1JobSpecCompletionsL #-} + +-- | 'v1JobSpecManualSelector' Lens +v1JobSpecManualSelectorL :: Lens_' V1JobSpec (Maybe Bool) +v1JobSpecManualSelectorL f V1JobSpec{..} = (\v1JobSpecManualSelector -> V1JobSpec { v1JobSpecManualSelector, ..} ) <$> f v1JobSpecManualSelector +{-# INLINE v1JobSpecManualSelectorL #-} + +-- | 'v1JobSpecParallelism' Lens +v1JobSpecParallelismL :: Lens_' V1JobSpec (Maybe Int) +v1JobSpecParallelismL f V1JobSpec{..} = (\v1JobSpecParallelism -> V1JobSpec { v1JobSpecParallelism, ..} ) <$> f v1JobSpecParallelism +{-# INLINE v1JobSpecParallelismL #-} + +-- | 'v1JobSpecPodFailurePolicy' Lens +v1JobSpecPodFailurePolicyL :: Lens_' V1JobSpec (Maybe V1PodFailurePolicy) +v1JobSpecPodFailurePolicyL f V1JobSpec{..} = (\v1JobSpecPodFailurePolicy -> V1JobSpec { v1JobSpecPodFailurePolicy, ..} ) <$> f v1JobSpecPodFailurePolicy +{-# INLINE v1JobSpecPodFailurePolicyL #-} + +-- | 'v1JobSpecSelector' Lens +v1JobSpecSelectorL :: Lens_' V1JobSpec (Maybe V1LabelSelector) +v1JobSpecSelectorL f V1JobSpec{..} = (\v1JobSpecSelector -> V1JobSpec { v1JobSpecSelector, ..} ) <$> f v1JobSpecSelector +{-# INLINE v1JobSpecSelectorL #-} + +-- | 'v1JobSpecSuspend' Lens +v1JobSpecSuspendL :: Lens_' V1JobSpec (Maybe Bool) +v1JobSpecSuspendL f V1JobSpec{..} = (\v1JobSpecSuspend -> V1JobSpec { v1JobSpecSuspend, ..} ) <$> f v1JobSpecSuspend +{-# INLINE v1JobSpecSuspendL #-} + +-- | 'v1JobSpecTemplate' Lens +v1JobSpecTemplateL :: Lens_' V1JobSpec (V1PodTemplateSpec) +v1JobSpecTemplateL f V1JobSpec{..} = (\v1JobSpecTemplate -> V1JobSpec { v1JobSpecTemplate, ..} ) <$> f v1JobSpecTemplate +{-# INLINE v1JobSpecTemplateL #-} + +-- | 'v1JobSpecTtlSecondsAfterFinished' Lens +v1JobSpecTtlSecondsAfterFinishedL :: Lens_' V1JobSpec (Maybe Int) +v1JobSpecTtlSecondsAfterFinishedL f V1JobSpec{..} = (\v1JobSpecTtlSecondsAfterFinished -> V1JobSpec { v1JobSpecTtlSecondsAfterFinished, ..} ) <$> f v1JobSpecTtlSecondsAfterFinished +{-# INLINE v1JobSpecTtlSecondsAfterFinishedL #-} + + + +-- * V1JobStatus + +-- | 'v1JobStatusActive' Lens +v1JobStatusActiveL :: Lens_' V1JobStatus (Maybe Int) +v1JobStatusActiveL f V1JobStatus{..} = (\v1JobStatusActive -> V1JobStatus { v1JobStatusActive, ..} ) <$> f v1JobStatusActive +{-# INLINE v1JobStatusActiveL #-} + +-- | 'v1JobStatusCompletedIndexes' Lens +v1JobStatusCompletedIndexesL :: Lens_' V1JobStatus (Maybe Text) +v1JobStatusCompletedIndexesL f V1JobStatus{..} = (\v1JobStatusCompletedIndexes -> V1JobStatus { v1JobStatusCompletedIndexes, ..} ) <$> f v1JobStatusCompletedIndexes +{-# INLINE v1JobStatusCompletedIndexesL #-} + +-- | 'v1JobStatusCompletionTime' Lens +v1JobStatusCompletionTimeL :: Lens_' V1JobStatus (Maybe DateTime) +v1JobStatusCompletionTimeL f V1JobStatus{..} = (\v1JobStatusCompletionTime -> V1JobStatus { v1JobStatusCompletionTime, ..} ) <$> f v1JobStatusCompletionTime +{-# INLINE v1JobStatusCompletionTimeL #-} + +-- | 'v1JobStatusConditions' Lens +v1JobStatusConditionsL :: Lens_' V1JobStatus (Maybe [V1JobCondition]) +v1JobStatusConditionsL f V1JobStatus{..} = (\v1JobStatusConditions -> V1JobStatus { v1JobStatusConditions, ..} ) <$> f v1JobStatusConditions +{-# INLINE v1JobStatusConditionsL #-} + +-- | 'v1JobStatusFailed' Lens +v1JobStatusFailedL :: Lens_' V1JobStatus (Maybe Int) +v1JobStatusFailedL f V1JobStatus{..} = (\v1JobStatusFailed -> V1JobStatus { v1JobStatusFailed, ..} ) <$> f v1JobStatusFailed +{-# INLINE v1JobStatusFailedL #-} + +-- | 'v1JobStatusReady' Lens +v1JobStatusReadyL :: Lens_' V1JobStatus (Maybe Int) +v1JobStatusReadyL f V1JobStatus{..} = (\v1JobStatusReady -> V1JobStatus { v1JobStatusReady, ..} ) <$> f v1JobStatusReady +{-# INLINE v1JobStatusReadyL #-} + +-- | 'v1JobStatusStartTime' Lens +v1JobStatusStartTimeL :: Lens_' V1JobStatus (Maybe DateTime) +v1JobStatusStartTimeL f V1JobStatus{..} = (\v1JobStatusStartTime -> V1JobStatus { v1JobStatusStartTime, ..} ) <$> f v1JobStatusStartTime +{-# INLINE v1JobStatusStartTimeL #-} + +-- | 'v1JobStatusSucceeded' Lens +v1JobStatusSucceededL :: Lens_' V1JobStatus (Maybe Int) +v1JobStatusSucceededL f V1JobStatus{..} = (\v1JobStatusSucceeded -> V1JobStatus { v1JobStatusSucceeded, ..} ) <$> f v1JobStatusSucceeded +{-# INLINE v1JobStatusSucceededL #-} + +-- | 'v1JobStatusUncountedTerminatedPods' Lens +v1JobStatusUncountedTerminatedPodsL :: Lens_' V1JobStatus (Maybe V1UncountedTerminatedPods) +v1JobStatusUncountedTerminatedPodsL f V1JobStatus{..} = (\v1JobStatusUncountedTerminatedPods -> V1JobStatus { v1JobStatusUncountedTerminatedPods, ..} ) <$> f v1JobStatusUncountedTerminatedPods +{-# INLINE v1JobStatusUncountedTerminatedPodsL #-} + + + +-- * V1JobTemplateSpec + +-- | 'v1JobTemplateSpecMetadata' Lens +v1JobTemplateSpecMetadataL :: Lens_' V1JobTemplateSpec (Maybe V1ObjectMeta) +v1JobTemplateSpecMetadataL f V1JobTemplateSpec{..} = (\v1JobTemplateSpecMetadata -> V1JobTemplateSpec { v1JobTemplateSpecMetadata, ..} ) <$> f v1JobTemplateSpecMetadata +{-# INLINE v1JobTemplateSpecMetadataL #-} + +-- | 'v1JobTemplateSpecSpec' Lens +v1JobTemplateSpecSpecL :: Lens_' V1JobTemplateSpec (Maybe V1JobSpec) +v1JobTemplateSpecSpecL f V1JobTemplateSpec{..} = (\v1JobTemplateSpecSpec -> V1JobTemplateSpec { v1JobTemplateSpecSpec, ..} ) <$> f v1JobTemplateSpecSpec +{-# INLINE v1JobTemplateSpecSpecL #-} + + + +-- * V1KeyToPath + +-- | 'v1KeyToPathKey' Lens +v1KeyToPathKeyL :: Lens_' V1KeyToPath (Text) +v1KeyToPathKeyL f V1KeyToPath{..} = (\v1KeyToPathKey -> V1KeyToPath { v1KeyToPathKey, ..} ) <$> f v1KeyToPathKey +{-# INLINE v1KeyToPathKeyL #-} + +-- | 'v1KeyToPathMode' Lens +v1KeyToPathModeL :: Lens_' V1KeyToPath (Maybe Int) +v1KeyToPathModeL f V1KeyToPath{..} = (\v1KeyToPathMode -> V1KeyToPath { v1KeyToPathMode, ..} ) <$> f v1KeyToPathMode +{-# INLINE v1KeyToPathModeL #-} + +-- | 'v1KeyToPathPath' Lens +v1KeyToPathPathL :: Lens_' V1KeyToPath (Text) +v1KeyToPathPathL f V1KeyToPath{..} = (\v1KeyToPathPath -> V1KeyToPath { v1KeyToPathPath, ..} ) <$> f v1KeyToPathPath +{-# INLINE v1KeyToPathPathL #-} + + + +-- * V1LabelSelector + +-- | 'v1LabelSelectorMatchExpressions' Lens +v1LabelSelectorMatchExpressionsL :: Lens_' V1LabelSelector (Maybe [V1LabelSelectorRequirement]) +v1LabelSelectorMatchExpressionsL f V1LabelSelector{..} = (\v1LabelSelectorMatchExpressions -> V1LabelSelector { v1LabelSelectorMatchExpressions, ..} ) <$> f v1LabelSelectorMatchExpressions +{-# INLINE v1LabelSelectorMatchExpressionsL #-} + +-- | 'v1LabelSelectorMatchLabels' Lens +v1LabelSelectorMatchLabelsL :: Lens_' V1LabelSelector (Maybe (Map.Map String Text)) +v1LabelSelectorMatchLabelsL f V1LabelSelector{..} = (\v1LabelSelectorMatchLabels -> V1LabelSelector { v1LabelSelectorMatchLabels, ..} ) <$> f v1LabelSelectorMatchLabels +{-# INLINE v1LabelSelectorMatchLabelsL #-} + + + +-- * V1LabelSelectorRequirement + +-- | 'v1LabelSelectorRequirementKey' Lens +v1LabelSelectorRequirementKeyL :: Lens_' V1LabelSelectorRequirement (Text) +v1LabelSelectorRequirementKeyL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementKey -> V1LabelSelectorRequirement { v1LabelSelectorRequirementKey, ..} ) <$> f v1LabelSelectorRequirementKey +{-# INLINE v1LabelSelectorRequirementKeyL #-} + +-- | 'v1LabelSelectorRequirementOperator' Lens +v1LabelSelectorRequirementOperatorL :: Lens_' V1LabelSelectorRequirement (Text) +v1LabelSelectorRequirementOperatorL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementOperator -> V1LabelSelectorRequirement { v1LabelSelectorRequirementOperator, ..} ) <$> f v1LabelSelectorRequirementOperator +{-# INLINE v1LabelSelectorRequirementOperatorL #-} + +-- | 'v1LabelSelectorRequirementValues' Lens +v1LabelSelectorRequirementValuesL :: Lens_' V1LabelSelectorRequirement (Maybe [Text]) +v1LabelSelectorRequirementValuesL f V1LabelSelectorRequirement{..} = (\v1LabelSelectorRequirementValues -> V1LabelSelectorRequirement { v1LabelSelectorRequirementValues, ..} ) <$> f v1LabelSelectorRequirementValues +{-# INLINE v1LabelSelectorRequirementValuesL #-} + + + +-- * V1Lease + +-- | 'v1LeaseApiVersion' Lens +v1LeaseApiVersionL :: Lens_' V1Lease (Maybe Text) +v1LeaseApiVersionL f V1Lease{..} = (\v1LeaseApiVersion -> V1Lease { v1LeaseApiVersion, ..} ) <$> f v1LeaseApiVersion +{-# INLINE v1LeaseApiVersionL #-} + +-- | 'v1LeaseKind' Lens +v1LeaseKindL :: Lens_' V1Lease (Maybe Text) +v1LeaseKindL f V1Lease{..} = (\v1LeaseKind -> V1Lease { v1LeaseKind, ..} ) <$> f v1LeaseKind +{-# INLINE v1LeaseKindL #-} + +-- | 'v1LeaseMetadata' Lens +v1LeaseMetadataL :: Lens_' V1Lease (Maybe V1ObjectMeta) +v1LeaseMetadataL f V1Lease{..} = (\v1LeaseMetadata -> V1Lease { v1LeaseMetadata, ..} ) <$> f v1LeaseMetadata +{-# INLINE v1LeaseMetadataL #-} + +-- | 'v1LeaseSpec' Lens +v1LeaseSpecL :: Lens_' V1Lease (Maybe V1LeaseSpec) +v1LeaseSpecL f V1Lease{..} = (\v1LeaseSpec -> V1Lease { v1LeaseSpec, ..} ) <$> f v1LeaseSpec +{-# INLINE v1LeaseSpecL #-} + + + +-- * V1LeaseList + +-- | 'v1LeaseListApiVersion' Lens +v1LeaseListApiVersionL :: Lens_' V1LeaseList (Maybe Text) +v1LeaseListApiVersionL f V1LeaseList{..} = (\v1LeaseListApiVersion -> V1LeaseList { v1LeaseListApiVersion, ..} ) <$> f v1LeaseListApiVersion +{-# INLINE v1LeaseListApiVersionL #-} + +-- | 'v1LeaseListItems' Lens +v1LeaseListItemsL :: Lens_' V1LeaseList ([V1Lease]) +v1LeaseListItemsL f V1LeaseList{..} = (\v1LeaseListItems -> V1LeaseList { v1LeaseListItems, ..} ) <$> f v1LeaseListItems +{-# INLINE v1LeaseListItemsL #-} + +-- | 'v1LeaseListKind' Lens +v1LeaseListKindL :: Lens_' V1LeaseList (Maybe Text) +v1LeaseListKindL f V1LeaseList{..} = (\v1LeaseListKind -> V1LeaseList { v1LeaseListKind, ..} ) <$> f v1LeaseListKind +{-# INLINE v1LeaseListKindL #-} + +-- | 'v1LeaseListMetadata' Lens +v1LeaseListMetadataL :: Lens_' V1LeaseList (Maybe V1ListMeta) +v1LeaseListMetadataL f V1LeaseList{..} = (\v1LeaseListMetadata -> V1LeaseList { v1LeaseListMetadata, ..} ) <$> f v1LeaseListMetadata +{-# INLINE v1LeaseListMetadataL #-} + + + +-- * V1LeaseSpec + +-- | 'v1LeaseSpecAcquireTime' Lens +v1LeaseSpecAcquireTimeL :: Lens_' V1LeaseSpec (Maybe DateTime) +v1LeaseSpecAcquireTimeL f V1LeaseSpec{..} = (\v1LeaseSpecAcquireTime -> V1LeaseSpec { v1LeaseSpecAcquireTime, ..} ) <$> f v1LeaseSpecAcquireTime +{-# INLINE v1LeaseSpecAcquireTimeL #-} + +-- | 'v1LeaseSpecHolderIdentity' Lens +v1LeaseSpecHolderIdentityL :: Lens_' V1LeaseSpec (Maybe Text) +v1LeaseSpecHolderIdentityL f V1LeaseSpec{..} = (\v1LeaseSpecHolderIdentity -> V1LeaseSpec { v1LeaseSpecHolderIdentity, ..} ) <$> f v1LeaseSpecHolderIdentity +{-# INLINE v1LeaseSpecHolderIdentityL #-} + +-- | 'v1LeaseSpecLeaseDurationSeconds' Lens +v1LeaseSpecLeaseDurationSecondsL :: Lens_' V1LeaseSpec (Maybe Int) +v1LeaseSpecLeaseDurationSecondsL f V1LeaseSpec{..} = (\v1LeaseSpecLeaseDurationSeconds -> V1LeaseSpec { v1LeaseSpecLeaseDurationSeconds, ..} ) <$> f v1LeaseSpecLeaseDurationSeconds +{-# INLINE v1LeaseSpecLeaseDurationSecondsL #-} + +-- | 'v1LeaseSpecLeaseTransitions' Lens +v1LeaseSpecLeaseTransitionsL :: Lens_' V1LeaseSpec (Maybe Int) +v1LeaseSpecLeaseTransitionsL f V1LeaseSpec{..} = (\v1LeaseSpecLeaseTransitions -> V1LeaseSpec { v1LeaseSpecLeaseTransitions, ..} ) <$> f v1LeaseSpecLeaseTransitions +{-# INLINE v1LeaseSpecLeaseTransitionsL #-} + +-- | 'v1LeaseSpecRenewTime' Lens +v1LeaseSpecRenewTimeL :: Lens_' V1LeaseSpec (Maybe DateTime) +v1LeaseSpecRenewTimeL f V1LeaseSpec{..} = (\v1LeaseSpecRenewTime -> V1LeaseSpec { v1LeaseSpecRenewTime, ..} ) <$> f v1LeaseSpecRenewTime +{-# INLINE v1LeaseSpecRenewTimeL #-} + + + +-- * V1Lifecycle + +-- | 'v1LifecyclePostStart' Lens +v1LifecyclePostStartL :: Lens_' V1Lifecycle (Maybe V1LifecycleHandler) +v1LifecyclePostStartL f V1Lifecycle{..} = (\v1LifecyclePostStart -> V1Lifecycle { v1LifecyclePostStart, ..} ) <$> f v1LifecyclePostStart +{-# INLINE v1LifecyclePostStartL #-} + +-- | 'v1LifecyclePreStop' Lens +v1LifecyclePreStopL :: Lens_' V1Lifecycle (Maybe V1LifecycleHandler) +v1LifecyclePreStopL f V1Lifecycle{..} = (\v1LifecyclePreStop -> V1Lifecycle { v1LifecyclePreStop, ..} ) <$> f v1LifecyclePreStop +{-# INLINE v1LifecyclePreStopL #-} + + + +-- * V1LifecycleHandler + +-- | 'v1LifecycleHandlerExec' Lens +v1LifecycleHandlerExecL :: Lens_' V1LifecycleHandler (Maybe V1ExecAction) +v1LifecycleHandlerExecL f V1LifecycleHandler{..} = (\v1LifecycleHandlerExec -> V1LifecycleHandler { v1LifecycleHandlerExec, ..} ) <$> f v1LifecycleHandlerExec +{-# INLINE v1LifecycleHandlerExecL #-} + +-- | 'v1LifecycleHandlerHttpGet' Lens +v1LifecycleHandlerHttpGetL :: Lens_' V1LifecycleHandler (Maybe V1HTTPGetAction) +v1LifecycleHandlerHttpGetL f V1LifecycleHandler{..} = (\v1LifecycleHandlerHttpGet -> V1LifecycleHandler { v1LifecycleHandlerHttpGet, ..} ) <$> f v1LifecycleHandlerHttpGet +{-# INLINE v1LifecycleHandlerHttpGetL #-} + +-- | 'v1LifecycleHandlerTcpSocket' Lens +v1LifecycleHandlerTcpSocketL :: Lens_' V1LifecycleHandler (Maybe V1TCPSocketAction) +v1LifecycleHandlerTcpSocketL f V1LifecycleHandler{..} = (\v1LifecycleHandlerTcpSocket -> V1LifecycleHandler { v1LifecycleHandlerTcpSocket, ..} ) <$> f v1LifecycleHandlerTcpSocket +{-# INLINE v1LifecycleHandlerTcpSocketL #-} + + + +-- * V1LimitRange + +-- | 'v1LimitRangeApiVersion' Lens +v1LimitRangeApiVersionL :: Lens_' V1LimitRange (Maybe Text) +v1LimitRangeApiVersionL f V1LimitRange{..} = (\v1LimitRangeApiVersion -> V1LimitRange { v1LimitRangeApiVersion, ..} ) <$> f v1LimitRangeApiVersion +{-# INLINE v1LimitRangeApiVersionL #-} + +-- | 'v1LimitRangeKind' Lens +v1LimitRangeKindL :: Lens_' V1LimitRange (Maybe Text) +v1LimitRangeKindL f V1LimitRange{..} = (\v1LimitRangeKind -> V1LimitRange { v1LimitRangeKind, ..} ) <$> f v1LimitRangeKind +{-# INLINE v1LimitRangeKindL #-} + +-- | 'v1LimitRangeMetadata' Lens +v1LimitRangeMetadataL :: Lens_' V1LimitRange (Maybe V1ObjectMeta) +v1LimitRangeMetadataL f V1LimitRange{..} = (\v1LimitRangeMetadata -> V1LimitRange { v1LimitRangeMetadata, ..} ) <$> f v1LimitRangeMetadata +{-# INLINE v1LimitRangeMetadataL #-} + +-- | 'v1LimitRangeSpec' Lens +v1LimitRangeSpecL :: Lens_' V1LimitRange (Maybe V1LimitRangeSpec) +v1LimitRangeSpecL f V1LimitRange{..} = (\v1LimitRangeSpec -> V1LimitRange { v1LimitRangeSpec, ..} ) <$> f v1LimitRangeSpec +{-# INLINE v1LimitRangeSpecL #-} + + + +-- * V1LimitRangeItem + +-- | 'v1LimitRangeItemDefault' Lens +v1LimitRangeItemDefaultL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) +v1LimitRangeItemDefaultL f V1LimitRangeItem{..} = (\v1LimitRangeItemDefault -> V1LimitRangeItem { v1LimitRangeItemDefault, ..} ) <$> f v1LimitRangeItemDefault +{-# INLINE v1LimitRangeItemDefaultL #-} + +-- | 'v1LimitRangeItemDefaultRequest' Lens +v1LimitRangeItemDefaultRequestL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) +v1LimitRangeItemDefaultRequestL f V1LimitRangeItem{..} = (\v1LimitRangeItemDefaultRequest -> V1LimitRangeItem { v1LimitRangeItemDefaultRequest, ..} ) <$> f v1LimitRangeItemDefaultRequest +{-# INLINE v1LimitRangeItemDefaultRequestL #-} + +-- | 'v1LimitRangeItemMax' Lens +v1LimitRangeItemMaxL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) +v1LimitRangeItemMaxL f V1LimitRangeItem{..} = (\v1LimitRangeItemMax -> V1LimitRangeItem { v1LimitRangeItemMax, ..} ) <$> f v1LimitRangeItemMax +{-# INLINE v1LimitRangeItemMaxL #-} + +-- | 'v1LimitRangeItemMaxLimitRequestRatio' Lens +v1LimitRangeItemMaxLimitRequestRatioL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) +v1LimitRangeItemMaxLimitRequestRatioL f V1LimitRangeItem{..} = (\v1LimitRangeItemMaxLimitRequestRatio -> V1LimitRangeItem { v1LimitRangeItemMaxLimitRequestRatio, ..} ) <$> f v1LimitRangeItemMaxLimitRequestRatio +{-# INLINE v1LimitRangeItemMaxLimitRequestRatioL #-} + +-- | 'v1LimitRangeItemMin' Lens +v1LimitRangeItemMinL :: Lens_' V1LimitRangeItem (Maybe (Map.Map String Quantity)) +v1LimitRangeItemMinL f V1LimitRangeItem{..} = (\v1LimitRangeItemMin -> V1LimitRangeItem { v1LimitRangeItemMin, ..} ) <$> f v1LimitRangeItemMin +{-# INLINE v1LimitRangeItemMinL #-} + +-- | 'v1LimitRangeItemType' Lens +v1LimitRangeItemTypeL :: Lens_' V1LimitRangeItem (Text) +v1LimitRangeItemTypeL f V1LimitRangeItem{..} = (\v1LimitRangeItemType -> V1LimitRangeItem { v1LimitRangeItemType, ..} ) <$> f v1LimitRangeItemType +{-# INLINE v1LimitRangeItemTypeL #-} + + + +-- * V1LimitRangeList + +-- | 'v1LimitRangeListApiVersion' Lens +v1LimitRangeListApiVersionL :: Lens_' V1LimitRangeList (Maybe Text) +v1LimitRangeListApiVersionL f V1LimitRangeList{..} = (\v1LimitRangeListApiVersion -> V1LimitRangeList { v1LimitRangeListApiVersion, ..} ) <$> f v1LimitRangeListApiVersion +{-# INLINE v1LimitRangeListApiVersionL #-} + +-- | 'v1LimitRangeListItems' Lens +v1LimitRangeListItemsL :: Lens_' V1LimitRangeList ([V1LimitRange]) +v1LimitRangeListItemsL f V1LimitRangeList{..} = (\v1LimitRangeListItems -> V1LimitRangeList { v1LimitRangeListItems, ..} ) <$> f v1LimitRangeListItems +{-# INLINE v1LimitRangeListItemsL #-} + +-- | 'v1LimitRangeListKind' Lens +v1LimitRangeListKindL :: Lens_' V1LimitRangeList (Maybe Text) +v1LimitRangeListKindL f V1LimitRangeList{..} = (\v1LimitRangeListKind -> V1LimitRangeList { v1LimitRangeListKind, ..} ) <$> f v1LimitRangeListKind +{-# INLINE v1LimitRangeListKindL #-} + +-- | 'v1LimitRangeListMetadata' Lens +v1LimitRangeListMetadataL :: Lens_' V1LimitRangeList (Maybe V1ListMeta) +v1LimitRangeListMetadataL f V1LimitRangeList{..} = (\v1LimitRangeListMetadata -> V1LimitRangeList { v1LimitRangeListMetadata, ..} ) <$> f v1LimitRangeListMetadata +{-# INLINE v1LimitRangeListMetadataL #-} + + + +-- * V1LimitRangeSpec + +-- | 'v1LimitRangeSpecLimits' Lens +v1LimitRangeSpecLimitsL :: Lens_' V1LimitRangeSpec ([V1LimitRangeItem]) +v1LimitRangeSpecLimitsL f V1LimitRangeSpec{..} = (\v1LimitRangeSpecLimits -> V1LimitRangeSpec { v1LimitRangeSpecLimits, ..} ) <$> f v1LimitRangeSpecLimits +{-# INLINE v1LimitRangeSpecLimitsL #-} + + + +-- * V1ListMeta + +-- | 'v1ListMetaContinue' Lens +v1ListMetaContinueL :: Lens_' V1ListMeta (Maybe Text) +v1ListMetaContinueL f V1ListMeta{..} = (\v1ListMetaContinue -> V1ListMeta { v1ListMetaContinue, ..} ) <$> f v1ListMetaContinue +{-# INLINE v1ListMetaContinueL #-} + +-- | 'v1ListMetaRemainingItemCount' Lens +v1ListMetaRemainingItemCountL :: Lens_' V1ListMeta (Maybe Integer) +v1ListMetaRemainingItemCountL f V1ListMeta{..} = (\v1ListMetaRemainingItemCount -> V1ListMeta { v1ListMetaRemainingItemCount, ..} ) <$> f v1ListMetaRemainingItemCount +{-# INLINE v1ListMetaRemainingItemCountL #-} + +-- | 'v1ListMetaResourceVersion' Lens +v1ListMetaResourceVersionL :: Lens_' V1ListMeta (Maybe Text) +v1ListMetaResourceVersionL f V1ListMeta{..} = (\v1ListMetaResourceVersion -> V1ListMeta { v1ListMetaResourceVersion, ..} ) <$> f v1ListMetaResourceVersion +{-# INLINE v1ListMetaResourceVersionL #-} + +-- | 'v1ListMetaSelfLink' Lens +v1ListMetaSelfLinkL :: Lens_' V1ListMeta (Maybe Text) +v1ListMetaSelfLinkL f V1ListMeta{..} = (\v1ListMetaSelfLink -> V1ListMeta { v1ListMetaSelfLink, ..} ) <$> f v1ListMetaSelfLink +{-# INLINE v1ListMetaSelfLinkL #-} + + + +-- * V1LoadBalancerIngress + +-- | 'v1LoadBalancerIngressHostname' Lens +v1LoadBalancerIngressHostnameL :: Lens_' V1LoadBalancerIngress (Maybe Text) +v1LoadBalancerIngressHostnameL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressHostname -> V1LoadBalancerIngress { v1LoadBalancerIngressHostname, ..} ) <$> f v1LoadBalancerIngressHostname +{-# INLINE v1LoadBalancerIngressHostnameL #-} + +-- | 'v1LoadBalancerIngressIp' Lens +v1LoadBalancerIngressIpL :: Lens_' V1LoadBalancerIngress (Maybe Text) +v1LoadBalancerIngressIpL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressIp -> V1LoadBalancerIngress { v1LoadBalancerIngressIp, ..} ) <$> f v1LoadBalancerIngressIp +{-# INLINE v1LoadBalancerIngressIpL #-} + +-- | 'v1LoadBalancerIngressPorts' Lens +v1LoadBalancerIngressPortsL :: Lens_' V1LoadBalancerIngress (Maybe [V1PortStatus]) +v1LoadBalancerIngressPortsL f V1LoadBalancerIngress{..} = (\v1LoadBalancerIngressPorts -> V1LoadBalancerIngress { v1LoadBalancerIngressPorts, ..} ) <$> f v1LoadBalancerIngressPorts +{-# INLINE v1LoadBalancerIngressPortsL #-} + + + +-- * V1LoadBalancerStatus + +-- | 'v1LoadBalancerStatusIngress' Lens +v1LoadBalancerStatusIngressL :: Lens_' V1LoadBalancerStatus (Maybe [V1LoadBalancerIngress]) +v1LoadBalancerStatusIngressL f V1LoadBalancerStatus{..} = (\v1LoadBalancerStatusIngress -> V1LoadBalancerStatus { v1LoadBalancerStatusIngress, ..} ) <$> f v1LoadBalancerStatusIngress +{-# INLINE v1LoadBalancerStatusIngressL #-} + + + +-- * V1LocalObjectReference + +-- | 'v1LocalObjectReferenceName' Lens +v1LocalObjectReferenceNameL :: Lens_' V1LocalObjectReference (Maybe Text) +v1LocalObjectReferenceNameL f V1LocalObjectReference{..} = (\v1LocalObjectReferenceName -> V1LocalObjectReference { v1LocalObjectReferenceName, ..} ) <$> f v1LocalObjectReferenceName +{-# INLINE v1LocalObjectReferenceNameL #-} + + + +-- * V1LocalSubjectAccessReview + +-- | 'v1LocalSubjectAccessReviewApiVersion' Lens +v1LocalSubjectAccessReviewApiVersionL :: Lens_' V1LocalSubjectAccessReview (Maybe Text) +v1LocalSubjectAccessReviewApiVersionL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewApiVersion -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewApiVersion, ..} ) <$> f v1LocalSubjectAccessReviewApiVersion +{-# INLINE v1LocalSubjectAccessReviewApiVersionL #-} + +-- | 'v1LocalSubjectAccessReviewKind' Lens +v1LocalSubjectAccessReviewKindL :: Lens_' V1LocalSubjectAccessReview (Maybe Text) +v1LocalSubjectAccessReviewKindL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewKind -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewKind, ..} ) <$> f v1LocalSubjectAccessReviewKind +{-# INLINE v1LocalSubjectAccessReviewKindL #-} + +-- | 'v1LocalSubjectAccessReviewMetadata' Lens +v1LocalSubjectAccessReviewMetadataL :: Lens_' V1LocalSubjectAccessReview (Maybe V1ObjectMeta) +v1LocalSubjectAccessReviewMetadataL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewMetadata -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewMetadata, ..} ) <$> f v1LocalSubjectAccessReviewMetadata +{-# INLINE v1LocalSubjectAccessReviewMetadataL #-} + +-- | 'v1LocalSubjectAccessReviewSpec' Lens +v1LocalSubjectAccessReviewSpecL :: Lens_' V1LocalSubjectAccessReview (V1SubjectAccessReviewSpec) +v1LocalSubjectAccessReviewSpecL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewSpec -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewSpec, ..} ) <$> f v1LocalSubjectAccessReviewSpec +{-# INLINE v1LocalSubjectAccessReviewSpecL #-} + +-- | 'v1LocalSubjectAccessReviewStatus' Lens +v1LocalSubjectAccessReviewStatusL :: Lens_' V1LocalSubjectAccessReview (Maybe V1SubjectAccessReviewStatus) +v1LocalSubjectAccessReviewStatusL f V1LocalSubjectAccessReview{..} = (\v1LocalSubjectAccessReviewStatus -> V1LocalSubjectAccessReview { v1LocalSubjectAccessReviewStatus, ..} ) <$> f v1LocalSubjectAccessReviewStatus +{-# INLINE v1LocalSubjectAccessReviewStatusL #-} + + + +-- * V1LocalVolumeSource + +-- | 'v1LocalVolumeSourceFsType' Lens +v1LocalVolumeSourceFsTypeL :: Lens_' V1LocalVolumeSource (Maybe Text) +v1LocalVolumeSourceFsTypeL f V1LocalVolumeSource{..} = (\v1LocalVolumeSourceFsType -> V1LocalVolumeSource { v1LocalVolumeSourceFsType, ..} ) <$> f v1LocalVolumeSourceFsType +{-# INLINE v1LocalVolumeSourceFsTypeL #-} + +-- | 'v1LocalVolumeSourcePath' Lens +v1LocalVolumeSourcePathL :: Lens_' V1LocalVolumeSource (Text) +v1LocalVolumeSourcePathL f V1LocalVolumeSource{..} = (\v1LocalVolumeSourcePath -> V1LocalVolumeSource { v1LocalVolumeSourcePath, ..} ) <$> f v1LocalVolumeSourcePath +{-# INLINE v1LocalVolumeSourcePathL #-} + + + +-- * V1ManagedFieldsEntry + +-- | 'v1ManagedFieldsEntryApiVersion' Lens +v1ManagedFieldsEntryApiVersionL :: Lens_' V1ManagedFieldsEntry (Maybe Text) +v1ManagedFieldsEntryApiVersionL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryApiVersion -> V1ManagedFieldsEntry { v1ManagedFieldsEntryApiVersion, ..} ) <$> f v1ManagedFieldsEntryApiVersion +{-# INLINE v1ManagedFieldsEntryApiVersionL #-} + +-- | 'v1ManagedFieldsEntryFieldsType' Lens +v1ManagedFieldsEntryFieldsTypeL :: Lens_' V1ManagedFieldsEntry (Maybe Text) +v1ManagedFieldsEntryFieldsTypeL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryFieldsType -> V1ManagedFieldsEntry { v1ManagedFieldsEntryFieldsType, ..} ) <$> f v1ManagedFieldsEntryFieldsType +{-# INLINE v1ManagedFieldsEntryFieldsTypeL #-} + +-- | 'v1ManagedFieldsEntryFieldsV1' Lens +v1ManagedFieldsEntryFieldsV1L :: Lens_' V1ManagedFieldsEntry (Maybe A.Value) +v1ManagedFieldsEntryFieldsV1L f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryFieldsV1 -> V1ManagedFieldsEntry { v1ManagedFieldsEntryFieldsV1, ..} ) <$> f v1ManagedFieldsEntryFieldsV1 +{-# INLINE v1ManagedFieldsEntryFieldsV1L #-} + +-- | 'v1ManagedFieldsEntryManager' Lens +v1ManagedFieldsEntryManagerL :: Lens_' V1ManagedFieldsEntry (Maybe Text) +v1ManagedFieldsEntryManagerL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryManager -> V1ManagedFieldsEntry { v1ManagedFieldsEntryManager, ..} ) <$> f v1ManagedFieldsEntryManager +{-# INLINE v1ManagedFieldsEntryManagerL #-} + +-- | 'v1ManagedFieldsEntryOperation' Lens +v1ManagedFieldsEntryOperationL :: Lens_' V1ManagedFieldsEntry (Maybe Text) +v1ManagedFieldsEntryOperationL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryOperation -> V1ManagedFieldsEntry { v1ManagedFieldsEntryOperation, ..} ) <$> f v1ManagedFieldsEntryOperation +{-# INLINE v1ManagedFieldsEntryOperationL #-} + +-- | 'v1ManagedFieldsEntrySubresource' Lens +v1ManagedFieldsEntrySubresourceL :: Lens_' V1ManagedFieldsEntry (Maybe Text) +v1ManagedFieldsEntrySubresourceL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntrySubresource -> V1ManagedFieldsEntry { v1ManagedFieldsEntrySubresource, ..} ) <$> f v1ManagedFieldsEntrySubresource +{-# INLINE v1ManagedFieldsEntrySubresourceL #-} + +-- | 'v1ManagedFieldsEntryTime' Lens +v1ManagedFieldsEntryTimeL :: Lens_' V1ManagedFieldsEntry (Maybe DateTime) +v1ManagedFieldsEntryTimeL f V1ManagedFieldsEntry{..} = (\v1ManagedFieldsEntryTime -> V1ManagedFieldsEntry { v1ManagedFieldsEntryTime, ..} ) <$> f v1ManagedFieldsEntryTime +{-# INLINE v1ManagedFieldsEntryTimeL #-} + + + +-- * V1MatchCondition + +-- | 'v1MatchConditionExpression' Lens +v1MatchConditionExpressionL :: Lens_' V1MatchCondition (Text) +v1MatchConditionExpressionL f V1MatchCondition{..} = (\v1MatchConditionExpression -> V1MatchCondition { v1MatchConditionExpression, ..} ) <$> f v1MatchConditionExpression +{-# INLINE v1MatchConditionExpressionL #-} + +-- | 'v1MatchConditionName' Lens +v1MatchConditionNameL :: Lens_' V1MatchCondition (Text) +v1MatchConditionNameL f V1MatchCondition{..} = (\v1MatchConditionName -> V1MatchCondition { v1MatchConditionName, ..} ) <$> f v1MatchConditionName +{-# INLINE v1MatchConditionNameL #-} + + + +-- * V1MutatingWebhook + +-- | 'v1MutatingWebhookAdmissionReviewVersions' Lens +v1MutatingWebhookAdmissionReviewVersionsL :: Lens_' V1MutatingWebhook ([Text]) +v1MutatingWebhookAdmissionReviewVersionsL f V1MutatingWebhook{..} = (\v1MutatingWebhookAdmissionReviewVersions -> V1MutatingWebhook { v1MutatingWebhookAdmissionReviewVersions, ..} ) <$> f v1MutatingWebhookAdmissionReviewVersions +{-# INLINE v1MutatingWebhookAdmissionReviewVersionsL #-} + +-- | 'v1MutatingWebhookClientConfig' Lens +v1MutatingWebhookClientConfigL :: Lens_' V1MutatingWebhook (AdmissionregistrationV1WebhookClientConfig) +v1MutatingWebhookClientConfigL f V1MutatingWebhook{..} = (\v1MutatingWebhookClientConfig -> V1MutatingWebhook { v1MutatingWebhookClientConfig, ..} ) <$> f v1MutatingWebhookClientConfig +{-# INLINE v1MutatingWebhookClientConfigL #-} + +-- | 'v1MutatingWebhookFailurePolicy' Lens +v1MutatingWebhookFailurePolicyL :: Lens_' V1MutatingWebhook (Maybe Text) +v1MutatingWebhookFailurePolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookFailurePolicy -> V1MutatingWebhook { v1MutatingWebhookFailurePolicy, ..} ) <$> f v1MutatingWebhookFailurePolicy +{-# INLINE v1MutatingWebhookFailurePolicyL #-} + +-- | 'v1MutatingWebhookMatchConditions' Lens +v1MutatingWebhookMatchConditionsL :: Lens_' V1MutatingWebhook (Maybe [V1MatchCondition]) +v1MutatingWebhookMatchConditionsL f V1MutatingWebhook{..} = (\v1MutatingWebhookMatchConditions -> V1MutatingWebhook { v1MutatingWebhookMatchConditions, ..} ) <$> f v1MutatingWebhookMatchConditions +{-# INLINE v1MutatingWebhookMatchConditionsL #-} + +-- | 'v1MutatingWebhookMatchPolicy' Lens +v1MutatingWebhookMatchPolicyL :: Lens_' V1MutatingWebhook (Maybe Text) +v1MutatingWebhookMatchPolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookMatchPolicy -> V1MutatingWebhook { v1MutatingWebhookMatchPolicy, ..} ) <$> f v1MutatingWebhookMatchPolicy +{-# INLINE v1MutatingWebhookMatchPolicyL #-} + +-- | 'v1MutatingWebhookName' Lens +v1MutatingWebhookNameL :: Lens_' V1MutatingWebhook (Text) +v1MutatingWebhookNameL f V1MutatingWebhook{..} = (\v1MutatingWebhookName -> V1MutatingWebhook { v1MutatingWebhookName, ..} ) <$> f v1MutatingWebhookName +{-# INLINE v1MutatingWebhookNameL #-} + +-- | 'v1MutatingWebhookNamespaceSelector' Lens +v1MutatingWebhookNamespaceSelectorL :: Lens_' V1MutatingWebhook (Maybe V1LabelSelector) +v1MutatingWebhookNamespaceSelectorL f V1MutatingWebhook{..} = (\v1MutatingWebhookNamespaceSelector -> V1MutatingWebhook { v1MutatingWebhookNamespaceSelector, ..} ) <$> f v1MutatingWebhookNamespaceSelector +{-# INLINE v1MutatingWebhookNamespaceSelectorL #-} + +-- | 'v1MutatingWebhookObjectSelector' Lens +v1MutatingWebhookObjectSelectorL :: Lens_' V1MutatingWebhook (Maybe V1LabelSelector) +v1MutatingWebhookObjectSelectorL f V1MutatingWebhook{..} = (\v1MutatingWebhookObjectSelector -> V1MutatingWebhook { v1MutatingWebhookObjectSelector, ..} ) <$> f v1MutatingWebhookObjectSelector +{-# INLINE v1MutatingWebhookObjectSelectorL #-} + +-- | 'v1MutatingWebhookReinvocationPolicy' Lens +v1MutatingWebhookReinvocationPolicyL :: Lens_' V1MutatingWebhook (Maybe Text) +v1MutatingWebhookReinvocationPolicyL f V1MutatingWebhook{..} = (\v1MutatingWebhookReinvocationPolicy -> V1MutatingWebhook { v1MutatingWebhookReinvocationPolicy, ..} ) <$> f v1MutatingWebhookReinvocationPolicy +{-# INLINE v1MutatingWebhookReinvocationPolicyL #-} + +-- | 'v1MutatingWebhookRules' Lens +v1MutatingWebhookRulesL :: Lens_' V1MutatingWebhook (Maybe [V1RuleWithOperations]) +v1MutatingWebhookRulesL f V1MutatingWebhook{..} = (\v1MutatingWebhookRules -> V1MutatingWebhook { v1MutatingWebhookRules, ..} ) <$> f v1MutatingWebhookRules +{-# INLINE v1MutatingWebhookRulesL #-} + +-- | 'v1MutatingWebhookSideEffects' Lens +v1MutatingWebhookSideEffectsL :: Lens_' V1MutatingWebhook (Text) +v1MutatingWebhookSideEffectsL f V1MutatingWebhook{..} = (\v1MutatingWebhookSideEffects -> V1MutatingWebhook { v1MutatingWebhookSideEffects, ..} ) <$> f v1MutatingWebhookSideEffects +{-# INLINE v1MutatingWebhookSideEffectsL #-} + +-- | 'v1MutatingWebhookTimeoutSeconds' Lens +v1MutatingWebhookTimeoutSecondsL :: Lens_' V1MutatingWebhook (Maybe Int) +v1MutatingWebhookTimeoutSecondsL f V1MutatingWebhook{..} = (\v1MutatingWebhookTimeoutSeconds -> V1MutatingWebhook { v1MutatingWebhookTimeoutSeconds, ..} ) <$> f v1MutatingWebhookTimeoutSeconds +{-# INLINE v1MutatingWebhookTimeoutSecondsL #-} + + + +-- * V1MutatingWebhookConfiguration + +-- | 'v1MutatingWebhookConfigurationApiVersion' Lens +v1MutatingWebhookConfigurationApiVersionL :: Lens_' V1MutatingWebhookConfiguration (Maybe Text) +v1MutatingWebhookConfigurationApiVersionL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationApiVersion -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationApiVersion, ..} ) <$> f v1MutatingWebhookConfigurationApiVersion +{-# INLINE v1MutatingWebhookConfigurationApiVersionL #-} + +-- | 'v1MutatingWebhookConfigurationKind' Lens +v1MutatingWebhookConfigurationKindL :: Lens_' V1MutatingWebhookConfiguration (Maybe Text) +v1MutatingWebhookConfigurationKindL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationKind -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationKind, ..} ) <$> f v1MutatingWebhookConfigurationKind +{-# INLINE v1MutatingWebhookConfigurationKindL #-} + +-- | 'v1MutatingWebhookConfigurationMetadata' Lens +v1MutatingWebhookConfigurationMetadataL :: Lens_' V1MutatingWebhookConfiguration (Maybe V1ObjectMeta) +v1MutatingWebhookConfigurationMetadataL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationMetadata -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationMetadata, ..} ) <$> f v1MutatingWebhookConfigurationMetadata +{-# INLINE v1MutatingWebhookConfigurationMetadataL #-} + +-- | 'v1MutatingWebhookConfigurationWebhooks' Lens +v1MutatingWebhookConfigurationWebhooksL :: Lens_' V1MutatingWebhookConfiguration (Maybe [V1MutatingWebhook]) +v1MutatingWebhookConfigurationWebhooksL f V1MutatingWebhookConfiguration{..} = (\v1MutatingWebhookConfigurationWebhooks -> V1MutatingWebhookConfiguration { v1MutatingWebhookConfigurationWebhooks, ..} ) <$> f v1MutatingWebhookConfigurationWebhooks +{-# INLINE v1MutatingWebhookConfigurationWebhooksL #-} + + + +-- * V1MutatingWebhookConfigurationList + +-- | 'v1MutatingWebhookConfigurationListApiVersion' Lens +v1MutatingWebhookConfigurationListApiVersionL :: Lens_' V1MutatingWebhookConfigurationList (Maybe Text) +v1MutatingWebhookConfigurationListApiVersionL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListApiVersion -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListApiVersion, ..} ) <$> f v1MutatingWebhookConfigurationListApiVersion +{-# INLINE v1MutatingWebhookConfigurationListApiVersionL #-} + +-- | 'v1MutatingWebhookConfigurationListItems' Lens +v1MutatingWebhookConfigurationListItemsL :: Lens_' V1MutatingWebhookConfigurationList ([V1MutatingWebhookConfiguration]) +v1MutatingWebhookConfigurationListItemsL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListItems -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListItems, ..} ) <$> f v1MutatingWebhookConfigurationListItems +{-# INLINE v1MutatingWebhookConfigurationListItemsL #-} + +-- | 'v1MutatingWebhookConfigurationListKind' Lens +v1MutatingWebhookConfigurationListKindL :: Lens_' V1MutatingWebhookConfigurationList (Maybe Text) +v1MutatingWebhookConfigurationListKindL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListKind -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListKind, ..} ) <$> f v1MutatingWebhookConfigurationListKind +{-# INLINE v1MutatingWebhookConfigurationListKindL #-} + +-- | 'v1MutatingWebhookConfigurationListMetadata' Lens +v1MutatingWebhookConfigurationListMetadataL :: Lens_' V1MutatingWebhookConfigurationList (Maybe V1ListMeta) +v1MutatingWebhookConfigurationListMetadataL f V1MutatingWebhookConfigurationList{..} = (\v1MutatingWebhookConfigurationListMetadata -> V1MutatingWebhookConfigurationList { v1MutatingWebhookConfigurationListMetadata, ..} ) <$> f v1MutatingWebhookConfigurationListMetadata +{-# INLINE v1MutatingWebhookConfigurationListMetadataL #-} + + + +-- * V1NFSVolumeSource + +-- | 'v1NFSVolumeSourcePath' Lens +v1NFSVolumeSourcePathL :: Lens_' V1NFSVolumeSource (Text) +v1NFSVolumeSourcePathL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourcePath -> V1NFSVolumeSource { v1NFSVolumeSourcePath, ..} ) <$> f v1NFSVolumeSourcePath +{-# INLINE v1NFSVolumeSourcePathL #-} + +-- | 'v1NFSVolumeSourceReadOnly' Lens +v1NFSVolumeSourceReadOnlyL :: Lens_' V1NFSVolumeSource (Maybe Bool) +v1NFSVolumeSourceReadOnlyL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourceReadOnly -> V1NFSVolumeSource { v1NFSVolumeSourceReadOnly, ..} ) <$> f v1NFSVolumeSourceReadOnly +{-# INLINE v1NFSVolumeSourceReadOnlyL #-} + +-- | 'v1NFSVolumeSourceServer' Lens +v1NFSVolumeSourceServerL :: Lens_' V1NFSVolumeSource (Text) +v1NFSVolumeSourceServerL f V1NFSVolumeSource{..} = (\v1NFSVolumeSourceServer -> V1NFSVolumeSource { v1NFSVolumeSourceServer, ..} ) <$> f v1NFSVolumeSourceServer +{-# INLINE v1NFSVolumeSourceServerL #-} + + + +-- * V1Namespace + +-- | 'v1NamespaceApiVersion' Lens +v1NamespaceApiVersionL :: Lens_' V1Namespace (Maybe Text) +v1NamespaceApiVersionL f V1Namespace{..} = (\v1NamespaceApiVersion -> V1Namespace { v1NamespaceApiVersion, ..} ) <$> f v1NamespaceApiVersion +{-# INLINE v1NamespaceApiVersionL #-} + +-- | 'v1NamespaceKind' Lens +v1NamespaceKindL :: Lens_' V1Namespace (Maybe Text) +v1NamespaceKindL f V1Namespace{..} = (\v1NamespaceKind -> V1Namespace { v1NamespaceKind, ..} ) <$> f v1NamespaceKind +{-# INLINE v1NamespaceKindL #-} + +-- | 'v1NamespaceMetadata' Lens +v1NamespaceMetadataL :: Lens_' V1Namespace (Maybe V1ObjectMeta) +v1NamespaceMetadataL f V1Namespace{..} = (\v1NamespaceMetadata -> V1Namespace { v1NamespaceMetadata, ..} ) <$> f v1NamespaceMetadata +{-# INLINE v1NamespaceMetadataL #-} + +-- | 'v1NamespaceSpec' Lens +v1NamespaceSpecL :: Lens_' V1Namespace (Maybe V1NamespaceSpec) +v1NamespaceSpecL f V1Namespace{..} = (\v1NamespaceSpec -> V1Namespace { v1NamespaceSpec, ..} ) <$> f v1NamespaceSpec +{-# INLINE v1NamespaceSpecL #-} + +-- | 'v1NamespaceStatus' Lens +v1NamespaceStatusL :: Lens_' V1Namespace (Maybe V1NamespaceStatus) +v1NamespaceStatusL f V1Namespace{..} = (\v1NamespaceStatus -> V1Namespace { v1NamespaceStatus, ..} ) <$> f v1NamespaceStatus +{-# INLINE v1NamespaceStatusL #-} + + + +-- * V1NamespaceCondition + +-- | 'v1NamespaceConditionLastTransitionTime' Lens +v1NamespaceConditionLastTransitionTimeL :: Lens_' V1NamespaceCondition (Maybe DateTime) +v1NamespaceConditionLastTransitionTimeL f V1NamespaceCondition{..} = (\v1NamespaceConditionLastTransitionTime -> V1NamespaceCondition { v1NamespaceConditionLastTransitionTime, ..} ) <$> f v1NamespaceConditionLastTransitionTime +{-# INLINE v1NamespaceConditionLastTransitionTimeL #-} + +-- | 'v1NamespaceConditionMessage' Lens +v1NamespaceConditionMessageL :: Lens_' V1NamespaceCondition (Maybe Text) +v1NamespaceConditionMessageL f V1NamespaceCondition{..} = (\v1NamespaceConditionMessage -> V1NamespaceCondition { v1NamespaceConditionMessage, ..} ) <$> f v1NamespaceConditionMessage +{-# INLINE v1NamespaceConditionMessageL #-} + +-- | 'v1NamespaceConditionReason' Lens +v1NamespaceConditionReasonL :: Lens_' V1NamespaceCondition (Maybe Text) +v1NamespaceConditionReasonL f V1NamespaceCondition{..} = (\v1NamespaceConditionReason -> V1NamespaceCondition { v1NamespaceConditionReason, ..} ) <$> f v1NamespaceConditionReason +{-# INLINE v1NamespaceConditionReasonL #-} + +-- | 'v1NamespaceConditionStatus' Lens +v1NamespaceConditionStatusL :: Lens_' V1NamespaceCondition (Text) +v1NamespaceConditionStatusL f V1NamespaceCondition{..} = (\v1NamespaceConditionStatus -> V1NamespaceCondition { v1NamespaceConditionStatus, ..} ) <$> f v1NamespaceConditionStatus +{-# INLINE v1NamespaceConditionStatusL #-} + +-- | 'v1NamespaceConditionType' Lens +v1NamespaceConditionTypeL :: Lens_' V1NamespaceCondition (Text) +v1NamespaceConditionTypeL f V1NamespaceCondition{..} = (\v1NamespaceConditionType -> V1NamespaceCondition { v1NamespaceConditionType, ..} ) <$> f v1NamespaceConditionType +{-# INLINE v1NamespaceConditionTypeL #-} + + + +-- * V1NamespaceList + +-- | 'v1NamespaceListApiVersion' Lens +v1NamespaceListApiVersionL :: Lens_' V1NamespaceList (Maybe Text) +v1NamespaceListApiVersionL f V1NamespaceList{..} = (\v1NamespaceListApiVersion -> V1NamespaceList { v1NamespaceListApiVersion, ..} ) <$> f v1NamespaceListApiVersion +{-# INLINE v1NamespaceListApiVersionL #-} + +-- | 'v1NamespaceListItems' Lens +v1NamespaceListItemsL :: Lens_' V1NamespaceList ([V1Namespace]) +v1NamespaceListItemsL f V1NamespaceList{..} = (\v1NamespaceListItems -> V1NamespaceList { v1NamespaceListItems, ..} ) <$> f v1NamespaceListItems +{-# INLINE v1NamespaceListItemsL #-} + +-- | 'v1NamespaceListKind' Lens +v1NamespaceListKindL :: Lens_' V1NamespaceList (Maybe Text) +v1NamespaceListKindL f V1NamespaceList{..} = (\v1NamespaceListKind -> V1NamespaceList { v1NamespaceListKind, ..} ) <$> f v1NamespaceListKind +{-# INLINE v1NamespaceListKindL #-} + +-- | 'v1NamespaceListMetadata' Lens +v1NamespaceListMetadataL :: Lens_' V1NamespaceList (Maybe V1ListMeta) +v1NamespaceListMetadataL f V1NamespaceList{..} = (\v1NamespaceListMetadata -> V1NamespaceList { v1NamespaceListMetadata, ..} ) <$> f v1NamespaceListMetadata +{-# INLINE v1NamespaceListMetadataL #-} + + + +-- * V1NamespaceSpec + +-- | 'v1NamespaceSpecFinalizers' Lens +v1NamespaceSpecFinalizersL :: Lens_' V1NamespaceSpec (Maybe [Text]) +v1NamespaceSpecFinalizersL f V1NamespaceSpec{..} = (\v1NamespaceSpecFinalizers -> V1NamespaceSpec { v1NamespaceSpecFinalizers, ..} ) <$> f v1NamespaceSpecFinalizers +{-# INLINE v1NamespaceSpecFinalizersL #-} + + + +-- * V1NamespaceStatus + +-- | 'v1NamespaceStatusConditions' Lens +v1NamespaceStatusConditionsL :: Lens_' V1NamespaceStatus (Maybe [V1NamespaceCondition]) +v1NamespaceStatusConditionsL f V1NamespaceStatus{..} = (\v1NamespaceStatusConditions -> V1NamespaceStatus { v1NamespaceStatusConditions, ..} ) <$> f v1NamespaceStatusConditions +{-# INLINE v1NamespaceStatusConditionsL #-} + +-- | 'v1NamespaceStatusPhase' Lens +v1NamespaceStatusPhaseL :: Lens_' V1NamespaceStatus (Maybe Text) +v1NamespaceStatusPhaseL f V1NamespaceStatus{..} = (\v1NamespaceStatusPhase -> V1NamespaceStatus { v1NamespaceStatusPhase, ..} ) <$> f v1NamespaceStatusPhase +{-# INLINE v1NamespaceStatusPhaseL #-} + + + +-- * V1NetworkPolicy + +-- | 'v1NetworkPolicyApiVersion' Lens +v1NetworkPolicyApiVersionL :: Lens_' V1NetworkPolicy (Maybe Text) +v1NetworkPolicyApiVersionL f V1NetworkPolicy{..} = (\v1NetworkPolicyApiVersion -> V1NetworkPolicy { v1NetworkPolicyApiVersion, ..} ) <$> f v1NetworkPolicyApiVersion +{-# INLINE v1NetworkPolicyApiVersionL #-} + +-- | 'v1NetworkPolicyKind' Lens +v1NetworkPolicyKindL :: Lens_' V1NetworkPolicy (Maybe Text) +v1NetworkPolicyKindL f V1NetworkPolicy{..} = (\v1NetworkPolicyKind -> V1NetworkPolicy { v1NetworkPolicyKind, ..} ) <$> f v1NetworkPolicyKind +{-# INLINE v1NetworkPolicyKindL #-} + +-- | 'v1NetworkPolicyMetadata' Lens +v1NetworkPolicyMetadataL :: Lens_' V1NetworkPolicy (Maybe V1ObjectMeta) +v1NetworkPolicyMetadataL f V1NetworkPolicy{..} = (\v1NetworkPolicyMetadata -> V1NetworkPolicy { v1NetworkPolicyMetadata, ..} ) <$> f v1NetworkPolicyMetadata +{-# INLINE v1NetworkPolicyMetadataL #-} + +-- | 'v1NetworkPolicySpec' Lens +v1NetworkPolicySpecL :: Lens_' V1NetworkPolicy (Maybe V1NetworkPolicySpec) +v1NetworkPolicySpecL f V1NetworkPolicy{..} = (\v1NetworkPolicySpec -> V1NetworkPolicy { v1NetworkPolicySpec, ..} ) <$> f v1NetworkPolicySpec +{-# INLINE v1NetworkPolicySpecL #-} + +-- | 'v1NetworkPolicyStatus' Lens +v1NetworkPolicyStatusL :: Lens_' V1NetworkPolicy (Maybe V1NetworkPolicyStatus) +v1NetworkPolicyStatusL f V1NetworkPolicy{..} = (\v1NetworkPolicyStatus -> V1NetworkPolicy { v1NetworkPolicyStatus, ..} ) <$> f v1NetworkPolicyStatus +{-# INLINE v1NetworkPolicyStatusL #-} + + + +-- * V1NetworkPolicyEgressRule + +-- | 'v1NetworkPolicyEgressRulePorts' Lens +v1NetworkPolicyEgressRulePortsL :: Lens_' V1NetworkPolicyEgressRule (Maybe [V1NetworkPolicyPort]) +v1NetworkPolicyEgressRulePortsL f V1NetworkPolicyEgressRule{..} = (\v1NetworkPolicyEgressRulePorts -> V1NetworkPolicyEgressRule { v1NetworkPolicyEgressRulePorts, ..} ) <$> f v1NetworkPolicyEgressRulePorts +{-# INLINE v1NetworkPolicyEgressRulePortsL #-} + +-- | 'v1NetworkPolicyEgressRuleTo' Lens +v1NetworkPolicyEgressRuleToL :: Lens_' V1NetworkPolicyEgressRule (Maybe [V1NetworkPolicyPeer]) +v1NetworkPolicyEgressRuleToL f V1NetworkPolicyEgressRule{..} = (\v1NetworkPolicyEgressRuleTo -> V1NetworkPolicyEgressRule { v1NetworkPolicyEgressRuleTo, ..} ) <$> f v1NetworkPolicyEgressRuleTo +{-# INLINE v1NetworkPolicyEgressRuleToL #-} + + + +-- * V1NetworkPolicyIngressRule + +-- | 'v1NetworkPolicyIngressRuleFrom' Lens +v1NetworkPolicyIngressRuleFromL :: Lens_' V1NetworkPolicyIngressRule (Maybe [V1NetworkPolicyPeer]) +v1NetworkPolicyIngressRuleFromL f V1NetworkPolicyIngressRule{..} = (\v1NetworkPolicyIngressRuleFrom -> V1NetworkPolicyIngressRule { v1NetworkPolicyIngressRuleFrom, ..} ) <$> f v1NetworkPolicyIngressRuleFrom +{-# INLINE v1NetworkPolicyIngressRuleFromL #-} + +-- | 'v1NetworkPolicyIngressRulePorts' Lens +v1NetworkPolicyIngressRulePortsL :: Lens_' V1NetworkPolicyIngressRule (Maybe [V1NetworkPolicyPort]) +v1NetworkPolicyIngressRulePortsL f V1NetworkPolicyIngressRule{..} = (\v1NetworkPolicyIngressRulePorts -> V1NetworkPolicyIngressRule { v1NetworkPolicyIngressRulePorts, ..} ) <$> f v1NetworkPolicyIngressRulePorts +{-# INLINE v1NetworkPolicyIngressRulePortsL #-} + + + +-- * V1NetworkPolicyList + +-- | 'v1NetworkPolicyListApiVersion' Lens +v1NetworkPolicyListApiVersionL :: Lens_' V1NetworkPolicyList (Maybe Text) +v1NetworkPolicyListApiVersionL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListApiVersion -> V1NetworkPolicyList { v1NetworkPolicyListApiVersion, ..} ) <$> f v1NetworkPolicyListApiVersion +{-# INLINE v1NetworkPolicyListApiVersionL #-} + +-- | 'v1NetworkPolicyListItems' Lens +v1NetworkPolicyListItemsL :: Lens_' V1NetworkPolicyList ([V1NetworkPolicy]) +v1NetworkPolicyListItemsL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListItems -> V1NetworkPolicyList { v1NetworkPolicyListItems, ..} ) <$> f v1NetworkPolicyListItems +{-# INLINE v1NetworkPolicyListItemsL #-} + +-- | 'v1NetworkPolicyListKind' Lens +v1NetworkPolicyListKindL :: Lens_' V1NetworkPolicyList (Maybe Text) +v1NetworkPolicyListKindL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListKind -> V1NetworkPolicyList { v1NetworkPolicyListKind, ..} ) <$> f v1NetworkPolicyListKind +{-# INLINE v1NetworkPolicyListKindL #-} + +-- | 'v1NetworkPolicyListMetadata' Lens +v1NetworkPolicyListMetadataL :: Lens_' V1NetworkPolicyList (Maybe V1ListMeta) +v1NetworkPolicyListMetadataL f V1NetworkPolicyList{..} = (\v1NetworkPolicyListMetadata -> V1NetworkPolicyList { v1NetworkPolicyListMetadata, ..} ) <$> f v1NetworkPolicyListMetadata +{-# INLINE v1NetworkPolicyListMetadataL #-} + + + +-- * V1NetworkPolicyPeer + +-- | 'v1NetworkPolicyPeerIpBlock' Lens +v1NetworkPolicyPeerIpBlockL :: Lens_' V1NetworkPolicyPeer (Maybe V1IPBlock) +v1NetworkPolicyPeerIpBlockL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerIpBlock -> V1NetworkPolicyPeer { v1NetworkPolicyPeerIpBlock, ..} ) <$> f v1NetworkPolicyPeerIpBlock +{-# INLINE v1NetworkPolicyPeerIpBlockL #-} + +-- | 'v1NetworkPolicyPeerNamespaceSelector' Lens +v1NetworkPolicyPeerNamespaceSelectorL :: Lens_' V1NetworkPolicyPeer (Maybe V1LabelSelector) +v1NetworkPolicyPeerNamespaceSelectorL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerNamespaceSelector -> V1NetworkPolicyPeer { v1NetworkPolicyPeerNamespaceSelector, ..} ) <$> f v1NetworkPolicyPeerNamespaceSelector +{-# INLINE v1NetworkPolicyPeerNamespaceSelectorL #-} + +-- | 'v1NetworkPolicyPeerPodSelector' Lens +v1NetworkPolicyPeerPodSelectorL :: Lens_' V1NetworkPolicyPeer (Maybe V1LabelSelector) +v1NetworkPolicyPeerPodSelectorL f V1NetworkPolicyPeer{..} = (\v1NetworkPolicyPeerPodSelector -> V1NetworkPolicyPeer { v1NetworkPolicyPeerPodSelector, ..} ) <$> f v1NetworkPolicyPeerPodSelector +{-# INLINE v1NetworkPolicyPeerPodSelectorL #-} + + + +-- * V1NetworkPolicyPort + +-- | 'v1NetworkPolicyPortEndPort' Lens +v1NetworkPolicyPortEndPortL :: Lens_' V1NetworkPolicyPort (Maybe Int) +v1NetworkPolicyPortEndPortL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortEndPort -> V1NetworkPolicyPort { v1NetworkPolicyPortEndPort, ..} ) <$> f v1NetworkPolicyPortEndPort +{-# INLINE v1NetworkPolicyPortEndPortL #-} + +-- | 'v1NetworkPolicyPortPort' Lens +v1NetworkPolicyPortPortL :: Lens_' V1NetworkPolicyPort (Maybe IntOrString) +v1NetworkPolicyPortPortL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortPort -> V1NetworkPolicyPort { v1NetworkPolicyPortPort, ..} ) <$> f v1NetworkPolicyPortPort +{-# INLINE v1NetworkPolicyPortPortL #-} + +-- | 'v1NetworkPolicyPortProtocol' Lens +v1NetworkPolicyPortProtocolL :: Lens_' V1NetworkPolicyPort (Maybe Text) +v1NetworkPolicyPortProtocolL f V1NetworkPolicyPort{..} = (\v1NetworkPolicyPortProtocol -> V1NetworkPolicyPort { v1NetworkPolicyPortProtocol, ..} ) <$> f v1NetworkPolicyPortProtocol +{-# INLINE v1NetworkPolicyPortProtocolL #-} + + + +-- * V1NetworkPolicySpec + +-- | 'v1NetworkPolicySpecEgress' Lens +v1NetworkPolicySpecEgressL :: Lens_' V1NetworkPolicySpec (Maybe [V1NetworkPolicyEgressRule]) +v1NetworkPolicySpecEgressL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecEgress -> V1NetworkPolicySpec { v1NetworkPolicySpecEgress, ..} ) <$> f v1NetworkPolicySpecEgress +{-# INLINE v1NetworkPolicySpecEgressL #-} + +-- | 'v1NetworkPolicySpecIngress' Lens +v1NetworkPolicySpecIngressL :: Lens_' V1NetworkPolicySpec (Maybe [V1NetworkPolicyIngressRule]) +v1NetworkPolicySpecIngressL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecIngress -> V1NetworkPolicySpec { v1NetworkPolicySpecIngress, ..} ) <$> f v1NetworkPolicySpecIngress +{-# INLINE v1NetworkPolicySpecIngressL #-} + +-- | 'v1NetworkPolicySpecPodSelector' Lens +v1NetworkPolicySpecPodSelectorL :: Lens_' V1NetworkPolicySpec (V1LabelSelector) +v1NetworkPolicySpecPodSelectorL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecPodSelector -> V1NetworkPolicySpec { v1NetworkPolicySpecPodSelector, ..} ) <$> f v1NetworkPolicySpecPodSelector +{-# INLINE v1NetworkPolicySpecPodSelectorL #-} + +-- | 'v1NetworkPolicySpecPolicyTypes' Lens +v1NetworkPolicySpecPolicyTypesL :: Lens_' V1NetworkPolicySpec (Maybe [Text]) +v1NetworkPolicySpecPolicyTypesL f V1NetworkPolicySpec{..} = (\v1NetworkPolicySpecPolicyTypes -> V1NetworkPolicySpec { v1NetworkPolicySpecPolicyTypes, ..} ) <$> f v1NetworkPolicySpecPolicyTypes +{-# INLINE v1NetworkPolicySpecPolicyTypesL #-} + + + +-- * V1NetworkPolicyStatus + +-- | 'v1NetworkPolicyStatusConditions' Lens +v1NetworkPolicyStatusConditionsL :: Lens_' V1NetworkPolicyStatus (Maybe [V1Condition]) +v1NetworkPolicyStatusConditionsL f V1NetworkPolicyStatus{..} = (\v1NetworkPolicyStatusConditions -> V1NetworkPolicyStatus { v1NetworkPolicyStatusConditions, ..} ) <$> f v1NetworkPolicyStatusConditions +{-# INLINE v1NetworkPolicyStatusConditionsL #-} + + + +-- * V1Node + +-- | 'v1NodeApiVersion' Lens +v1NodeApiVersionL :: Lens_' V1Node (Maybe Text) +v1NodeApiVersionL f V1Node{..} = (\v1NodeApiVersion -> V1Node { v1NodeApiVersion, ..} ) <$> f v1NodeApiVersion +{-# INLINE v1NodeApiVersionL #-} + +-- | 'v1NodeKind' Lens +v1NodeKindL :: Lens_' V1Node (Maybe Text) +v1NodeKindL f V1Node{..} = (\v1NodeKind -> V1Node { v1NodeKind, ..} ) <$> f v1NodeKind +{-# INLINE v1NodeKindL #-} + +-- | 'v1NodeMetadata' Lens +v1NodeMetadataL :: Lens_' V1Node (Maybe V1ObjectMeta) +v1NodeMetadataL f V1Node{..} = (\v1NodeMetadata -> V1Node { v1NodeMetadata, ..} ) <$> f v1NodeMetadata +{-# INLINE v1NodeMetadataL #-} + +-- | 'v1NodeSpec' Lens +v1NodeSpecL :: Lens_' V1Node (Maybe V1NodeSpec) +v1NodeSpecL f V1Node{..} = (\v1NodeSpec -> V1Node { v1NodeSpec, ..} ) <$> f v1NodeSpec +{-# INLINE v1NodeSpecL #-} + +-- | 'v1NodeStatus' Lens +v1NodeStatusL :: Lens_' V1Node (Maybe V1NodeStatus) +v1NodeStatusL f V1Node{..} = (\v1NodeStatus -> V1Node { v1NodeStatus, ..} ) <$> f v1NodeStatus +{-# INLINE v1NodeStatusL #-} + + + +-- * V1NodeAddress + +-- | 'v1NodeAddressAddress' Lens +v1NodeAddressAddressL :: Lens_' V1NodeAddress (Text) +v1NodeAddressAddressL f V1NodeAddress{..} = (\v1NodeAddressAddress -> V1NodeAddress { v1NodeAddressAddress, ..} ) <$> f v1NodeAddressAddress +{-# INLINE v1NodeAddressAddressL #-} + +-- | 'v1NodeAddressType' Lens +v1NodeAddressTypeL :: Lens_' V1NodeAddress (Text) +v1NodeAddressTypeL f V1NodeAddress{..} = (\v1NodeAddressType -> V1NodeAddress { v1NodeAddressType, ..} ) <$> f v1NodeAddressType +{-# INLINE v1NodeAddressTypeL #-} + + + +-- * V1NodeAffinity + +-- | 'v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens +v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1NodeAffinity (Maybe [V1PreferredSchedulingTerm]) +v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1NodeAffinity{..} = (\v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1NodeAffinity { v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1NodeAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} + +-- | 'v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens +v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1NodeAffinity (Maybe V1NodeSelector) +v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1NodeAffinity{..} = (\v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1NodeAffinity { v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1NodeAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} + + + +-- * V1NodeCondition + +-- | 'v1NodeConditionLastHeartbeatTime' Lens +v1NodeConditionLastHeartbeatTimeL :: Lens_' V1NodeCondition (Maybe DateTime) +v1NodeConditionLastHeartbeatTimeL f V1NodeCondition{..} = (\v1NodeConditionLastHeartbeatTime -> V1NodeCondition { v1NodeConditionLastHeartbeatTime, ..} ) <$> f v1NodeConditionLastHeartbeatTime +{-# INLINE v1NodeConditionLastHeartbeatTimeL #-} + +-- | 'v1NodeConditionLastTransitionTime' Lens +v1NodeConditionLastTransitionTimeL :: Lens_' V1NodeCondition (Maybe DateTime) +v1NodeConditionLastTransitionTimeL f V1NodeCondition{..} = (\v1NodeConditionLastTransitionTime -> V1NodeCondition { v1NodeConditionLastTransitionTime, ..} ) <$> f v1NodeConditionLastTransitionTime +{-# INLINE v1NodeConditionLastTransitionTimeL #-} + +-- | 'v1NodeConditionMessage' Lens +v1NodeConditionMessageL :: Lens_' V1NodeCondition (Maybe Text) +v1NodeConditionMessageL f V1NodeCondition{..} = (\v1NodeConditionMessage -> V1NodeCondition { v1NodeConditionMessage, ..} ) <$> f v1NodeConditionMessage +{-# INLINE v1NodeConditionMessageL #-} + +-- | 'v1NodeConditionReason' Lens +v1NodeConditionReasonL :: Lens_' V1NodeCondition (Maybe Text) +v1NodeConditionReasonL f V1NodeCondition{..} = (\v1NodeConditionReason -> V1NodeCondition { v1NodeConditionReason, ..} ) <$> f v1NodeConditionReason +{-# INLINE v1NodeConditionReasonL #-} + +-- | 'v1NodeConditionStatus' Lens +v1NodeConditionStatusL :: Lens_' V1NodeCondition (Text) +v1NodeConditionStatusL f V1NodeCondition{..} = (\v1NodeConditionStatus -> V1NodeCondition { v1NodeConditionStatus, ..} ) <$> f v1NodeConditionStatus +{-# INLINE v1NodeConditionStatusL #-} + +-- | 'v1NodeConditionType' Lens +v1NodeConditionTypeL :: Lens_' V1NodeCondition (Text) +v1NodeConditionTypeL f V1NodeCondition{..} = (\v1NodeConditionType -> V1NodeCondition { v1NodeConditionType, ..} ) <$> f v1NodeConditionType +{-# INLINE v1NodeConditionTypeL #-} + + + +-- * V1NodeConfigSource + +-- | 'v1NodeConfigSourceConfigMap' Lens +v1NodeConfigSourceConfigMapL :: Lens_' V1NodeConfigSource (Maybe V1ConfigMapNodeConfigSource) +v1NodeConfigSourceConfigMapL f V1NodeConfigSource{..} = (\v1NodeConfigSourceConfigMap -> V1NodeConfigSource { v1NodeConfigSourceConfigMap, ..} ) <$> f v1NodeConfigSourceConfigMap +{-# INLINE v1NodeConfigSourceConfigMapL #-} + + + +-- * V1NodeConfigStatus + +-- | 'v1NodeConfigStatusActive' Lens +v1NodeConfigStatusActiveL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) +v1NodeConfigStatusActiveL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusActive -> V1NodeConfigStatus { v1NodeConfigStatusActive, ..} ) <$> f v1NodeConfigStatusActive +{-# INLINE v1NodeConfigStatusActiveL #-} + +-- | 'v1NodeConfigStatusAssigned' Lens +v1NodeConfigStatusAssignedL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) +v1NodeConfigStatusAssignedL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusAssigned -> V1NodeConfigStatus { v1NodeConfigStatusAssigned, ..} ) <$> f v1NodeConfigStatusAssigned +{-# INLINE v1NodeConfigStatusAssignedL #-} + +-- | 'v1NodeConfigStatusError' Lens +v1NodeConfigStatusErrorL :: Lens_' V1NodeConfigStatus (Maybe Text) +v1NodeConfigStatusErrorL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusError -> V1NodeConfigStatus { v1NodeConfigStatusError, ..} ) <$> f v1NodeConfigStatusError +{-# INLINE v1NodeConfigStatusErrorL #-} + +-- | 'v1NodeConfigStatusLastKnownGood' Lens +v1NodeConfigStatusLastKnownGoodL :: Lens_' V1NodeConfigStatus (Maybe V1NodeConfigSource) +v1NodeConfigStatusLastKnownGoodL f V1NodeConfigStatus{..} = (\v1NodeConfigStatusLastKnownGood -> V1NodeConfigStatus { v1NodeConfigStatusLastKnownGood, ..} ) <$> f v1NodeConfigStatusLastKnownGood +{-# INLINE v1NodeConfigStatusLastKnownGoodL #-} + + + +-- * V1NodeDaemonEndpoints + +-- | 'v1NodeDaemonEndpointsKubeletEndpoint' Lens +v1NodeDaemonEndpointsKubeletEndpointL :: Lens_' V1NodeDaemonEndpoints (Maybe V1DaemonEndpoint) +v1NodeDaemonEndpointsKubeletEndpointL f V1NodeDaemonEndpoints{..} = (\v1NodeDaemonEndpointsKubeletEndpoint -> V1NodeDaemonEndpoints { v1NodeDaemonEndpointsKubeletEndpoint, ..} ) <$> f v1NodeDaemonEndpointsKubeletEndpoint +{-# INLINE v1NodeDaemonEndpointsKubeletEndpointL #-} + + + +-- * V1NodeList + +-- | 'v1NodeListApiVersion' Lens +v1NodeListApiVersionL :: Lens_' V1NodeList (Maybe Text) +v1NodeListApiVersionL f V1NodeList{..} = (\v1NodeListApiVersion -> V1NodeList { v1NodeListApiVersion, ..} ) <$> f v1NodeListApiVersion +{-# INLINE v1NodeListApiVersionL #-} + +-- | 'v1NodeListItems' Lens +v1NodeListItemsL :: Lens_' V1NodeList ([V1Node]) +v1NodeListItemsL f V1NodeList{..} = (\v1NodeListItems -> V1NodeList { v1NodeListItems, ..} ) <$> f v1NodeListItems +{-# INLINE v1NodeListItemsL #-} + +-- | 'v1NodeListKind' Lens +v1NodeListKindL :: Lens_' V1NodeList (Maybe Text) +v1NodeListKindL f V1NodeList{..} = (\v1NodeListKind -> V1NodeList { v1NodeListKind, ..} ) <$> f v1NodeListKind +{-# INLINE v1NodeListKindL #-} + +-- | 'v1NodeListMetadata' Lens +v1NodeListMetadataL :: Lens_' V1NodeList (Maybe V1ListMeta) +v1NodeListMetadataL f V1NodeList{..} = (\v1NodeListMetadata -> V1NodeList { v1NodeListMetadata, ..} ) <$> f v1NodeListMetadata +{-# INLINE v1NodeListMetadataL #-} + + + +-- * V1NodeSelector + +-- | 'v1NodeSelectorNodeSelectorTerms' Lens +v1NodeSelectorNodeSelectorTermsL :: Lens_' V1NodeSelector ([V1NodeSelectorTerm]) +v1NodeSelectorNodeSelectorTermsL f V1NodeSelector{..} = (\v1NodeSelectorNodeSelectorTerms -> V1NodeSelector { v1NodeSelectorNodeSelectorTerms, ..} ) <$> f v1NodeSelectorNodeSelectorTerms +{-# INLINE v1NodeSelectorNodeSelectorTermsL #-} + + + +-- * V1NodeSelectorRequirement + +-- | 'v1NodeSelectorRequirementKey' Lens +v1NodeSelectorRequirementKeyL :: Lens_' V1NodeSelectorRequirement (Text) +v1NodeSelectorRequirementKeyL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementKey -> V1NodeSelectorRequirement { v1NodeSelectorRequirementKey, ..} ) <$> f v1NodeSelectorRequirementKey +{-# INLINE v1NodeSelectorRequirementKeyL #-} + +-- | 'v1NodeSelectorRequirementOperator' Lens +v1NodeSelectorRequirementOperatorL :: Lens_' V1NodeSelectorRequirement (Text) +v1NodeSelectorRequirementOperatorL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementOperator -> V1NodeSelectorRequirement { v1NodeSelectorRequirementOperator, ..} ) <$> f v1NodeSelectorRequirementOperator +{-# INLINE v1NodeSelectorRequirementOperatorL #-} + +-- | 'v1NodeSelectorRequirementValues' Lens +v1NodeSelectorRequirementValuesL :: Lens_' V1NodeSelectorRequirement (Maybe [Text]) +v1NodeSelectorRequirementValuesL f V1NodeSelectorRequirement{..} = (\v1NodeSelectorRequirementValues -> V1NodeSelectorRequirement { v1NodeSelectorRequirementValues, ..} ) <$> f v1NodeSelectorRequirementValues +{-# INLINE v1NodeSelectorRequirementValuesL #-} + + + +-- * V1NodeSelectorTerm + +-- | 'v1NodeSelectorTermMatchExpressions' Lens +v1NodeSelectorTermMatchExpressionsL :: Lens_' V1NodeSelectorTerm (Maybe [V1NodeSelectorRequirement]) +v1NodeSelectorTermMatchExpressionsL f V1NodeSelectorTerm{..} = (\v1NodeSelectorTermMatchExpressions -> V1NodeSelectorTerm { v1NodeSelectorTermMatchExpressions, ..} ) <$> f v1NodeSelectorTermMatchExpressions +{-# INLINE v1NodeSelectorTermMatchExpressionsL #-} + +-- | 'v1NodeSelectorTermMatchFields' Lens +v1NodeSelectorTermMatchFieldsL :: Lens_' V1NodeSelectorTerm (Maybe [V1NodeSelectorRequirement]) +v1NodeSelectorTermMatchFieldsL f V1NodeSelectorTerm{..} = (\v1NodeSelectorTermMatchFields -> V1NodeSelectorTerm { v1NodeSelectorTermMatchFields, ..} ) <$> f v1NodeSelectorTermMatchFields +{-# INLINE v1NodeSelectorTermMatchFieldsL #-} + + + +-- * V1NodeSpec + +-- | 'v1NodeSpecConfigSource' Lens +v1NodeSpecConfigSourceL :: Lens_' V1NodeSpec (Maybe V1NodeConfigSource) +v1NodeSpecConfigSourceL f V1NodeSpec{..} = (\v1NodeSpecConfigSource -> V1NodeSpec { v1NodeSpecConfigSource, ..} ) <$> f v1NodeSpecConfigSource +{-# INLINE v1NodeSpecConfigSourceL #-} + +-- | 'v1NodeSpecExternalId' Lens +v1NodeSpecExternalIdL :: Lens_' V1NodeSpec (Maybe Text) +v1NodeSpecExternalIdL f V1NodeSpec{..} = (\v1NodeSpecExternalId -> V1NodeSpec { v1NodeSpecExternalId, ..} ) <$> f v1NodeSpecExternalId +{-# INLINE v1NodeSpecExternalIdL #-} + +-- | 'v1NodeSpecPodCidr' Lens +v1NodeSpecPodCidrL :: Lens_' V1NodeSpec (Maybe Text) +v1NodeSpecPodCidrL f V1NodeSpec{..} = (\v1NodeSpecPodCidr -> V1NodeSpec { v1NodeSpecPodCidr, ..} ) <$> f v1NodeSpecPodCidr +{-# INLINE v1NodeSpecPodCidrL #-} + +-- | 'v1NodeSpecPodCidrs' Lens +v1NodeSpecPodCidrsL :: Lens_' V1NodeSpec (Maybe [Text]) +v1NodeSpecPodCidrsL f V1NodeSpec{..} = (\v1NodeSpecPodCidrs -> V1NodeSpec { v1NodeSpecPodCidrs, ..} ) <$> f v1NodeSpecPodCidrs +{-# INLINE v1NodeSpecPodCidrsL #-} + +-- | 'v1NodeSpecProviderId' Lens +v1NodeSpecProviderIdL :: Lens_' V1NodeSpec (Maybe Text) +v1NodeSpecProviderIdL f V1NodeSpec{..} = (\v1NodeSpecProviderId -> V1NodeSpec { v1NodeSpecProviderId, ..} ) <$> f v1NodeSpecProviderId +{-# INLINE v1NodeSpecProviderIdL #-} + +-- | 'v1NodeSpecTaints' Lens +v1NodeSpecTaintsL :: Lens_' V1NodeSpec (Maybe [V1Taint]) +v1NodeSpecTaintsL f V1NodeSpec{..} = (\v1NodeSpecTaints -> V1NodeSpec { v1NodeSpecTaints, ..} ) <$> f v1NodeSpecTaints +{-# INLINE v1NodeSpecTaintsL #-} + +-- | 'v1NodeSpecUnschedulable' Lens +v1NodeSpecUnschedulableL :: Lens_' V1NodeSpec (Maybe Bool) +v1NodeSpecUnschedulableL f V1NodeSpec{..} = (\v1NodeSpecUnschedulable -> V1NodeSpec { v1NodeSpecUnschedulable, ..} ) <$> f v1NodeSpecUnschedulable +{-# INLINE v1NodeSpecUnschedulableL #-} + + + +-- * V1NodeStatus + +-- | 'v1NodeStatusAddresses' Lens +v1NodeStatusAddressesL :: Lens_' V1NodeStatus (Maybe [V1NodeAddress]) +v1NodeStatusAddressesL f V1NodeStatus{..} = (\v1NodeStatusAddresses -> V1NodeStatus { v1NodeStatusAddresses, ..} ) <$> f v1NodeStatusAddresses +{-# INLINE v1NodeStatusAddressesL #-} + +-- | 'v1NodeStatusAllocatable' Lens +v1NodeStatusAllocatableL :: Lens_' V1NodeStatus (Maybe (Map.Map String Quantity)) +v1NodeStatusAllocatableL f V1NodeStatus{..} = (\v1NodeStatusAllocatable -> V1NodeStatus { v1NodeStatusAllocatable, ..} ) <$> f v1NodeStatusAllocatable +{-# INLINE v1NodeStatusAllocatableL #-} + +-- | 'v1NodeStatusCapacity' Lens +v1NodeStatusCapacityL :: Lens_' V1NodeStatus (Maybe (Map.Map String Quantity)) +v1NodeStatusCapacityL f V1NodeStatus{..} = (\v1NodeStatusCapacity -> V1NodeStatus { v1NodeStatusCapacity, ..} ) <$> f v1NodeStatusCapacity +{-# INLINE v1NodeStatusCapacityL #-} + +-- | 'v1NodeStatusConditions' Lens +v1NodeStatusConditionsL :: Lens_' V1NodeStatus (Maybe [V1NodeCondition]) +v1NodeStatusConditionsL f V1NodeStatus{..} = (\v1NodeStatusConditions -> V1NodeStatus { v1NodeStatusConditions, ..} ) <$> f v1NodeStatusConditions +{-# INLINE v1NodeStatusConditionsL #-} + +-- | 'v1NodeStatusConfig' Lens +v1NodeStatusConfigL :: Lens_' V1NodeStatus (Maybe V1NodeConfigStatus) +v1NodeStatusConfigL f V1NodeStatus{..} = (\v1NodeStatusConfig -> V1NodeStatus { v1NodeStatusConfig, ..} ) <$> f v1NodeStatusConfig +{-# INLINE v1NodeStatusConfigL #-} + +-- | 'v1NodeStatusDaemonEndpoints' Lens +v1NodeStatusDaemonEndpointsL :: Lens_' V1NodeStatus (Maybe V1NodeDaemonEndpoints) +v1NodeStatusDaemonEndpointsL f V1NodeStatus{..} = (\v1NodeStatusDaemonEndpoints -> V1NodeStatus { v1NodeStatusDaemonEndpoints, ..} ) <$> f v1NodeStatusDaemonEndpoints +{-# INLINE v1NodeStatusDaemonEndpointsL #-} + +-- | 'v1NodeStatusImages' Lens +v1NodeStatusImagesL :: Lens_' V1NodeStatus (Maybe [V1ContainerImage]) +v1NodeStatusImagesL f V1NodeStatus{..} = (\v1NodeStatusImages -> V1NodeStatus { v1NodeStatusImages, ..} ) <$> f v1NodeStatusImages +{-# INLINE v1NodeStatusImagesL #-} + +-- | 'v1NodeStatusNodeInfo' Lens +v1NodeStatusNodeInfoL :: Lens_' V1NodeStatus (Maybe V1NodeSystemInfo) +v1NodeStatusNodeInfoL f V1NodeStatus{..} = (\v1NodeStatusNodeInfo -> V1NodeStatus { v1NodeStatusNodeInfo, ..} ) <$> f v1NodeStatusNodeInfo +{-# INLINE v1NodeStatusNodeInfoL #-} + +-- | 'v1NodeStatusPhase' Lens +v1NodeStatusPhaseL :: Lens_' V1NodeStatus (Maybe Text) +v1NodeStatusPhaseL f V1NodeStatus{..} = (\v1NodeStatusPhase -> V1NodeStatus { v1NodeStatusPhase, ..} ) <$> f v1NodeStatusPhase +{-# INLINE v1NodeStatusPhaseL #-} + +-- | 'v1NodeStatusVolumesAttached' Lens +v1NodeStatusVolumesAttachedL :: Lens_' V1NodeStatus (Maybe [V1AttachedVolume]) +v1NodeStatusVolumesAttachedL f V1NodeStatus{..} = (\v1NodeStatusVolumesAttached -> V1NodeStatus { v1NodeStatusVolumesAttached, ..} ) <$> f v1NodeStatusVolumesAttached +{-# INLINE v1NodeStatusVolumesAttachedL #-} + +-- | 'v1NodeStatusVolumesInUse' Lens +v1NodeStatusVolumesInUseL :: Lens_' V1NodeStatus (Maybe [Text]) +v1NodeStatusVolumesInUseL f V1NodeStatus{..} = (\v1NodeStatusVolumesInUse -> V1NodeStatus { v1NodeStatusVolumesInUse, ..} ) <$> f v1NodeStatusVolumesInUse +{-# INLINE v1NodeStatusVolumesInUseL #-} + + + +-- * V1NodeSystemInfo + +-- | 'v1NodeSystemInfoArchitecture' Lens +v1NodeSystemInfoArchitectureL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoArchitectureL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoArchitecture -> V1NodeSystemInfo { v1NodeSystemInfoArchitecture, ..} ) <$> f v1NodeSystemInfoArchitecture +{-# INLINE v1NodeSystemInfoArchitectureL #-} + +-- | 'v1NodeSystemInfoBootId' Lens +v1NodeSystemInfoBootIdL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoBootIdL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoBootId -> V1NodeSystemInfo { v1NodeSystemInfoBootId, ..} ) <$> f v1NodeSystemInfoBootId +{-# INLINE v1NodeSystemInfoBootIdL #-} + +-- | 'v1NodeSystemInfoContainerRuntimeVersion' Lens +v1NodeSystemInfoContainerRuntimeVersionL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoContainerRuntimeVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoContainerRuntimeVersion -> V1NodeSystemInfo { v1NodeSystemInfoContainerRuntimeVersion, ..} ) <$> f v1NodeSystemInfoContainerRuntimeVersion +{-# INLINE v1NodeSystemInfoContainerRuntimeVersionL #-} + +-- | 'v1NodeSystemInfoKernelVersion' Lens +v1NodeSystemInfoKernelVersionL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoKernelVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKernelVersion -> V1NodeSystemInfo { v1NodeSystemInfoKernelVersion, ..} ) <$> f v1NodeSystemInfoKernelVersion +{-# INLINE v1NodeSystemInfoKernelVersionL #-} + +-- | 'v1NodeSystemInfoKubeProxyVersion' Lens +v1NodeSystemInfoKubeProxyVersionL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoKubeProxyVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKubeProxyVersion -> V1NodeSystemInfo { v1NodeSystemInfoKubeProxyVersion, ..} ) <$> f v1NodeSystemInfoKubeProxyVersion +{-# INLINE v1NodeSystemInfoKubeProxyVersionL #-} + +-- | 'v1NodeSystemInfoKubeletVersion' Lens +v1NodeSystemInfoKubeletVersionL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoKubeletVersionL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoKubeletVersion -> V1NodeSystemInfo { v1NodeSystemInfoKubeletVersion, ..} ) <$> f v1NodeSystemInfoKubeletVersion +{-# INLINE v1NodeSystemInfoKubeletVersionL #-} + +-- | 'v1NodeSystemInfoMachineId' Lens +v1NodeSystemInfoMachineIdL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoMachineIdL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoMachineId -> V1NodeSystemInfo { v1NodeSystemInfoMachineId, ..} ) <$> f v1NodeSystemInfoMachineId +{-# INLINE v1NodeSystemInfoMachineIdL #-} + +-- | 'v1NodeSystemInfoOperatingSystem' Lens +v1NodeSystemInfoOperatingSystemL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoOperatingSystemL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoOperatingSystem -> V1NodeSystemInfo { v1NodeSystemInfoOperatingSystem, ..} ) <$> f v1NodeSystemInfoOperatingSystem +{-# INLINE v1NodeSystemInfoOperatingSystemL #-} + +-- | 'v1NodeSystemInfoOsImage' Lens +v1NodeSystemInfoOsImageL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoOsImageL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoOsImage -> V1NodeSystemInfo { v1NodeSystemInfoOsImage, ..} ) <$> f v1NodeSystemInfoOsImage +{-# INLINE v1NodeSystemInfoOsImageL #-} + +-- | 'v1NodeSystemInfoSystemUuid' Lens +v1NodeSystemInfoSystemUuidL :: Lens_' V1NodeSystemInfo (Text) +v1NodeSystemInfoSystemUuidL f V1NodeSystemInfo{..} = (\v1NodeSystemInfoSystemUuid -> V1NodeSystemInfo { v1NodeSystemInfoSystemUuid, ..} ) <$> f v1NodeSystemInfoSystemUuid +{-# INLINE v1NodeSystemInfoSystemUuidL #-} + + + +-- * V1NonResourceAttributes + +-- | 'v1NonResourceAttributesPath' Lens +v1NonResourceAttributesPathL :: Lens_' V1NonResourceAttributes (Maybe Text) +v1NonResourceAttributesPathL f V1NonResourceAttributes{..} = (\v1NonResourceAttributesPath -> V1NonResourceAttributes { v1NonResourceAttributesPath, ..} ) <$> f v1NonResourceAttributesPath +{-# INLINE v1NonResourceAttributesPathL #-} + +-- | 'v1NonResourceAttributesVerb' Lens +v1NonResourceAttributesVerbL :: Lens_' V1NonResourceAttributes (Maybe Text) +v1NonResourceAttributesVerbL f V1NonResourceAttributes{..} = (\v1NonResourceAttributesVerb -> V1NonResourceAttributes { v1NonResourceAttributesVerb, ..} ) <$> f v1NonResourceAttributesVerb +{-# INLINE v1NonResourceAttributesVerbL #-} + + + +-- * V1NonResourceRule + +-- | 'v1NonResourceRuleNonResourceUrls' Lens +v1NonResourceRuleNonResourceUrlsL :: Lens_' V1NonResourceRule (Maybe [Text]) +v1NonResourceRuleNonResourceUrlsL f V1NonResourceRule{..} = (\v1NonResourceRuleNonResourceUrls -> V1NonResourceRule { v1NonResourceRuleNonResourceUrls, ..} ) <$> f v1NonResourceRuleNonResourceUrls +{-# INLINE v1NonResourceRuleNonResourceUrlsL #-} + +-- | 'v1NonResourceRuleVerbs' Lens +v1NonResourceRuleVerbsL :: Lens_' V1NonResourceRule ([Text]) +v1NonResourceRuleVerbsL f V1NonResourceRule{..} = (\v1NonResourceRuleVerbs -> V1NonResourceRule { v1NonResourceRuleVerbs, ..} ) <$> f v1NonResourceRuleVerbs +{-# INLINE v1NonResourceRuleVerbsL #-} + + + +-- * V1ObjectFieldSelector + +-- | 'v1ObjectFieldSelectorApiVersion' Lens +v1ObjectFieldSelectorApiVersionL :: Lens_' V1ObjectFieldSelector (Maybe Text) +v1ObjectFieldSelectorApiVersionL f V1ObjectFieldSelector{..} = (\v1ObjectFieldSelectorApiVersion -> V1ObjectFieldSelector { v1ObjectFieldSelectorApiVersion, ..} ) <$> f v1ObjectFieldSelectorApiVersion +{-# INLINE v1ObjectFieldSelectorApiVersionL #-} + +-- | 'v1ObjectFieldSelectorFieldPath' Lens +v1ObjectFieldSelectorFieldPathL :: Lens_' V1ObjectFieldSelector (Text) +v1ObjectFieldSelectorFieldPathL f V1ObjectFieldSelector{..} = (\v1ObjectFieldSelectorFieldPath -> V1ObjectFieldSelector { v1ObjectFieldSelectorFieldPath, ..} ) <$> f v1ObjectFieldSelectorFieldPath +{-# INLINE v1ObjectFieldSelectorFieldPathL #-} + + + +-- * V1ObjectMeta + +-- | 'v1ObjectMetaAnnotations' Lens +v1ObjectMetaAnnotationsL :: Lens_' V1ObjectMeta (Maybe (Map.Map String Text)) +v1ObjectMetaAnnotationsL f V1ObjectMeta{..} = (\v1ObjectMetaAnnotations -> V1ObjectMeta { v1ObjectMetaAnnotations, ..} ) <$> f v1ObjectMetaAnnotations +{-# INLINE v1ObjectMetaAnnotationsL #-} + +-- | 'v1ObjectMetaCreationTimestamp' Lens +v1ObjectMetaCreationTimestampL :: Lens_' V1ObjectMeta (Maybe DateTime) +v1ObjectMetaCreationTimestampL f V1ObjectMeta{..} = (\v1ObjectMetaCreationTimestamp -> V1ObjectMeta { v1ObjectMetaCreationTimestamp, ..} ) <$> f v1ObjectMetaCreationTimestamp +{-# INLINE v1ObjectMetaCreationTimestampL #-} + +-- | 'v1ObjectMetaDeletionGracePeriodSeconds' Lens +v1ObjectMetaDeletionGracePeriodSecondsL :: Lens_' V1ObjectMeta (Maybe Integer) +v1ObjectMetaDeletionGracePeriodSecondsL f V1ObjectMeta{..} = (\v1ObjectMetaDeletionGracePeriodSeconds -> V1ObjectMeta { v1ObjectMetaDeletionGracePeriodSeconds, ..} ) <$> f v1ObjectMetaDeletionGracePeriodSeconds +{-# INLINE v1ObjectMetaDeletionGracePeriodSecondsL #-} + +-- | 'v1ObjectMetaDeletionTimestamp' Lens +v1ObjectMetaDeletionTimestampL :: Lens_' V1ObjectMeta (Maybe DateTime) +v1ObjectMetaDeletionTimestampL f V1ObjectMeta{..} = (\v1ObjectMetaDeletionTimestamp -> V1ObjectMeta { v1ObjectMetaDeletionTimestamp, ..} ) <$> f v1ObjectMetaDeletionTimestamp +{-# INLINE v1ObjectMetaDeletionTimestampL #-} + +-- | 'v1ObjectMetaFinalizers' Lens +v1ObjectMetaFinalizersL :: Lens_' V1ObjectMeta (Maybe [Text]) +v1ObjectMetaFinalizersL f V1ObjectMeta{..} = (\v1ObjectMetaFinalizers -> V1ObjectMeta { v1ObjectMetaFinalizers, ..} ) <$> f v1ObjectMetaFinalizers +{-# INLINE v1ObjectMetaFinalizersL #-} + +-- | 'v1ObjectMetaGenerateName' Lens +v1ObjectMetaGenerateNameL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaGenerateNameL f V1ObjectMeta{..} = (\v1ObjectMetaGenerateName -> V1ObjectMeta { v1ObjectMetaGenerateName, ..} ) <$> f v1ObjectMetaGenerateName +{-# INLINE v1ObjectMetaGenerateNameL #-} + +-- | 'v1ObjectMetaGeneration' Lens +v1ObjectMetaGenerationL :: Lens_' V1ObjectMeta (Maybe Integer) +v1ObjectMetaGenerationL f V1ObjectMeta{..} = (\v1ObjectMetaGeneration -> V1ObjectMeta { v1ObjectMetaGeneration, ..} ) <$> f v1ObjectMetaGeneration +{-# INLINE v1ObjectMetaGenerationL #-} + +-- | 'v1ObjectMetaLabels' Lens +v1ObjectMetaLabelsL :: Lens_' V1ObjectMeta (Maybe (Map.Map String Text)) +v1ObjectMetaLabelsL f V1ObjectMeta{..} = (\v1ObjectMetaLabels -> V1ObjectMeta { v1ObjectMetaLabels, ..} ) <$> f v1ObjectMetaLabels +{-# INLINE v1ObjectMetaLabelsL #-} + +-- | 'v1ObjectMetaManagedFields' Lens +v1ObjectMetaManagedFieldsL :: Lens_' V1ObjectMeta (Maybe [V1ManagedFieldsEntry]) +v1ObjectMetaManagedFieldsL f V1ObjectMeta{..} = (\v1ObjectMetaManagedFields -> V1ObjectMeta { v1ObjectMetaManagedFields, ..} ) <$> f v1ObjectMetaManagedFields +{-# INLINE v1ObjectMetaManagedFieldsL #-} + +-- | 'v1ObjectMetaName' Lens +v1ObjectMetaNameL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaNameL f V1ObjectMeta{..} = (\v1ObjectMetaName -> V1ObjectMeta { v1ObjectMetaName, ..} ) <$> f v1ObjectMetaName +{-# INLINE v1ObjectMetaNameL #-} + +-- | 'v1ObjectMetaNamespace' Lens +v1ObjectMetaNamespaceL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaNamespaceL f V1ObjectMeta{..} = (\v1ObjectMetaNamespace -> V1ObjectMeta { v1ObjectMetaNamespace, ..} ) <$> f v1ObjectMetaNamespace +{-# INLINE v1ObjectMetaNamespaceL #-} + +-- | 'v1ObjectMetaOwnerReferences' Lens +v1ObjectMetaOwnerReferencesL :: Lens_' V1ObjectMeta (Maybe [V1OwnerReference]) +v1ObjectMetaOwnerReferencesL f V1ObjectMeta{..} = (\v1ObjectMetaOwnerReferences -> V1ObjectMeta { v1ObjectMetaOwnerReferences, ..} ) <$> f v1ObjectMetaOwnerReferences +{-# INLINE v1ObjectMetaOwnerReferencesL #-} + +-- | 'v1ObjectMetaResourceVersion' Lens +v1ObjectMetaResourceVersionL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaResourceVersionL f V1ObjectMeta{..} = (\v1ObjectMetaResourceVersion -> V1ObjectMeta { v1ObjectMetaResourceVersion, ..} ) <$> f v1ObjectMetaResourceVersion +{-# INLINE v1ObjectMetaResourceVersionL #-} + +-- | 'v1ObjectMetaSelfLink' Lens +v1ObjectMetaSelfLinkL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaSelfLinkL f V1ObjectMeta{..} = (\v1ObjectMetaSelfLink -> V1ObjectMeta { v1ObjectMetaSelfLink, ..} ) <$> f v1ObjectMetaSelfLink +{-# INLINE v1ObjectMetaSelfLinkL #-} + +-- | 'v1ObjectMetaUid' Lens +v1ObjectMetaUidL :: Lens_' V1ObjectMeta (Maybe Text) +v1ObjectMetaUidL f V1ObjectMeta{..} = (\v1ObjectMetaUid -> V1ObjectMeta { v1ObjectMetaUid, ..} ) <$> f v1ObjectMetaUid +{-# INLINE v1ObjectMetaUidL #-} + + + +-- * V1ObjectReference + +-- | 'v1ObjectReferenceApiVersion' Lens +v1ObjectReferenceApiVersionL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceApiVersionL f V1ObjectReference{..} = (\v1ObjectReferenceApiVersion -> V1ObjectReference { v1ObjectReferenceApiVersion, ..} ) <$> f v1ObjectReferenceApiVersion +{-# INLINE v1ObjectReferenceApiVersionL #-} + +-- | 'v1ObjectReferenceFieldPath' Lens +v1ObjectReferenceFieldPathL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceFieldPathL f V1ObjectReference{..} = (\v1ObjectReferenceFieldPath -> V1ObjectReference { v1ObjectReferenceFieldPath, ..} ) <$> f v1ObjectReferenceFieldPath +{-# INLINE v1ObjectReferenceFieldPathL #-} + +-- | 'v1ObjectReferenceKind' Lens +v1ObjectReferenceKindL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceKindL f V1ObjectReference{..} = (\v1ObjectReferenceKind -> V1ObjectReference { v1ObjectReferenceKind, ..} ) <$> f v1ObjectReferenceKind +{-# INLINE v1ObjectReferenceKindL #-} + +-- | 'v1ObjectReferenceName' Lens +v1ObjectReferenceNameL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceNameL f V1ObjectReference{..} = (\v1ObjectReferenceName -> V1ObjectReference { v1ObjectReferenceName, ..} ) <$> f v1ObjectReferenceName +{-# INLINE v1ObjectReferenceNameL #-} + +-- | 'v1ObjectReferenceNamespace' Lens +v1ObjectReferenceNamespaceL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceNamespaceL f V1ObjectReference{..} = (\v1ObjectReferenceNamespace -> V1ObjectReference { v1ObjectReferenceNamespace, ..} ) <$> f v1ObjectReferenceNamespace +{-# INLINE v1ObjectReferenceNamespaceL #-} + +-- | 'v1ObjectReferenceResourceVersion' Lens +v1ObjectReferenceResourceVersionL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceResourceVersionL f V1ObjectReference{..} = (\v1ObjectReferenceResourceVersion -> V1ObjectReference { v1ObjectReferenceResourceVersion, ..} ) <$> f v1ObjectReferenceResourceVersion +{-# INLINE v1ObjectReferenceResourceVersionL #-} + +-- | 'v1ObjectReferenceUid' Lens +v1ObjectReferenceUidL :: Lens_' V1ObjectReference (Maybe Text) +v1ObjectReferenceUidL f V1ObjectReference{..} = (\v1ObjectReferenceUid -> V1ObjectReference { v1ObjectReferenceUid, ..} ) <$> f v1ObjectReferenceUid +{-# INLINE v1ObjectReferenceUidL #-} + + + +-- * V1Overhead + +-- | 'v1OverheadPodFixed' Lens +v1OverheadPodFixedL :: Lens_' V1Overhead (Maybe (Map.Map String Quantity)) +v1OverheadPodFixedL f V1Overhead{..} = (\v1OverheadPodFixed -> V1Overhead { v1OverheadPodFixed, ..} ) <$> f v1OverheadPodFixed +{-# INLINE v1OverheadPodFixedL #-} + + + +-- * V1OwnerReference + +-- | 'v1OwnerReferenceApiVersion' Lens +v1OwnerReferenceApiVersionL :: Lens_' V1OwnerReference (Text) +v1OwnerReferenceApiVersionL f V1OwnerReference{..} = (\v1OwnerReferenceApiVersion -> V1OwnerReference { v1OwnerReferenceApiVersion, ..} ) <$> f v1OwnerReferenceApiVersion +{-# INLINE v1OwnerReferenceApiVersionL #-} + +-- | 'v1OwnerReferenceBlockOwnerDeletion' Lens +v1OwnerReferenceBlockOwnerDeletionL :: Lens_' V1OwnerReference (Maybe Bool) +v1OwnerReferenceBlockOwnerDeletionL f V1OwnerReference{..} = (\v1OwnerReferenceBlockOwnerDeletion -> V1OwnerReference { v1OwnerReferenceBlockOwnerDeletion, ..} ) <$> f v1OwnerReferenceBlockOwnerDeletion +{-# INLINE v1OwnerReferenceBlockOwnerDeletionL #-} + +-- | 'v1OwnerReferenceController' Lens +v1OwnerReferenceControllerL :: Lens_' V1OwnerReference (Maybe Bool) +v1OwnerReferenceControllerL f V1OwnerReference{..} = (\v1OwnerReferenceController -> V1OwnerReference { v1OwnerReferenceController, ..} ) <$> f v1OwnerReferenceController +{-# INLINE v1OwnerReferenceControllerL #-} + +-- | 'v1OwnerReferenceKind' Lens +v1OwnerReferenceKindL :: Lens_' V1OwnerReference (Text) +v1OwnerReferenceKindL f V1OwnerReference{..} = (\v1OwnerReferenceKind -> V1OwnerReference { v1OwnerReferenceKind, ..} ) <$> f v1OwnerReferenceKind +{-# INLINE v1OwnerReferenceKindL #-} + +-- | 'v1OwnerReferenceName' Lens +v1OwnerReferenceNameL :: Lens_' V1OwnerReference (Text) +v1OwnerReferenceNameL f V1OwnerReference{..} = (\v1OwnerReferenceName -> V1OwnerReference { v1OwnerReferenceName, ..} ) <$> f v1OwnerReferenceName +{-# INLINE v1OwnerReferenceNameL #-} + +-- | 'v1OwnerReferenceUid' Lens +v1OwnerReferenceUidL :: Lens_' V1OwnerReference (Text) +v1OwnerReferenceUidL f V1OwnerReference{..} = (\v1OwnerReferenceUid -> V1OwnerReference { v1OwnerReferenceUid, ..} ) <$> f v1OwnerReferenceUid +{-# INLINE v1OwnerReferenceUidL #-} + + + +-- * V1PersistentVolume + +-- | 'v1PersistentVolumeApiVersion' Lens +v1PersistentVolumeApiVersionL :: Lens_' V1PersistentVolume (Maybe Text) +v1PersistentVolumeApiVersionL f V1PersistentVolume{..} = (\v1PersistentVolumeApiVersion -> V1PersistentVolume { v1PersistentVolumeApiVersion, ..} ) <$> f v1PersistentVolumeApiVersion +{-# INLINE v1PersistentVolumeApiVersionL #-} + +-- | 'v1PersistentVolumeKind' Lens +v1PersistentVolumeKindL :: Lens_' V1PersistentVolume (Maybe Text) +v1PersistentVolumeKindL f V1PersistentVolume{..} = (\v1PersistentVolumeKind -> V1PersistentVolume { v1PersistentVolumeKind, ..} ) <$> f v1PersistentVolumeKind +{-# INLINE v1PersistentVolumeKindL #-} + +-- | 'v1PersistentVolumeMetadata' Lens +v1PersistentVolumeMetadataL :: Lens_' V1PersistentVolume (Maybe V1ObjectMeta) +v1PersistentVolumeMetadataL f V1PersistentVolume{..} = (\v1PersistentVolumeMetadata -> V1PersistentVolume { v1PersistentVolumeMetadata, ..} ) <$> f v1PersistentVolumeMetadata +{-# INLINE v1PersistentVolumeMetadataL #-} + +-- | 'v1PersistentVolumeSpec' Lens +v1PersistentVolumeSpecL :: Lens_' V1PersistentVolume (Maybe V1PersistentVolumeSpec) +v1PersistentVolumeSpecL f V1PersistentVolume{..} = (\v1PersistentVolumeSpec -> V1PersistentVolume { v1PersistentVolumeSpec, ..} ) <$> f v1PersistentVolumeSpec +{-# INLINE v1PersistentVolumeSpecL #-} + +-- | 'v1PersistentVolumeStatus' Lens +v1PersistentVolumeStatusL :: Lens_' V1PersistentVolume (Maybe V1PersistentVolumeStatus) +v1PersistentVolumeStatusL f V1PersistentVolume{..} = (\v1PersistentVolumeStatus -> V1PersistentVolume { v1PersistentVolumeStatus, ..} ) <$> f v1PersistentVolumeStatus +{-# INLINE v1PersistentVolumeStatusL #-} + + + +-- * V1PersistentVolumeClaim + +-- | 'v1PersistentVolumeClaimApiVersion' Lens +v1PersistentVolumeClaimApiVersionL :: Lens_' V1PersistentVolumeClaim (Maybe Text) +v1PersistentVolumeClaimApiVersionL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimApiVersion -> V1PersistentVolumeClaim { v1PersistentVolumeClaimApiVersion, ..} ) <$> f v1PersistentVolumeClaimApiVersion +{-# INLINE v1PersistentVolumeClaimApiVersionL #-} + +-- | 'v1PersistentVolumeClaimKind' Lens +v1PersistentVolumeClaimKindL :: Lens_' V1PersistentVolumeClaim (Maybe Text) +v1PersistentVolumeClaimKindL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimKind -> V1PersistentVolumeClaim { v1PersistentVolumeClaimKind, ..} ) <$> f v1PersistentVolumeClaimKind +{-# INLINE v1PersistentVolumeClaimKindL #-} + +-- | 'v1PersistentVolumeClaimMetadata' Lens +v1PersistentVolumeClaimMetadataL :: Lens_' V1PersistentVolumeClaim (Maybe V1ObjectMeta) +v1PersistentVolumeClaimMetadataL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimMetadata -> V1PersistentVolumeClaim { v1PersistentVolumeClaimMetadata, ..} ) <$> f v1PersistentVolumeClaimMetadata +{-# INLINE v1PersistentVolumeClaimMetadataL #-} + +-- | 'v1PersistentVolumeClaimSpec' Lens +v1PersistentVolumeClaimSpecL :: Lens_' V1PersistentVolumeClaim (Maybe V1PersistentVolumeClaimSpec) +v1PersistentVolumeClaimSpecL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimSpec -> V1PersistentVolumeClaim { v1PersistentVolumeClaimSpec, ..} ) <$> f v1PersistentVolumeClaimSpec +{-# INLINE v1PersistentVolumeClaimSpecL #-} + +-- | 'v1PersistentVolumeClaimStatus' Lens +v1PersistentVolumeClaimStatusL :: Lens_' V1PersistentVolumeClaim (Maybe V1PersistentVolumeClaimStatus) +v1PersistentVolumeClaimStatusL f V1PersistentVolumeClaim{..} = (\v1PersistentVolumeClaimStatus -> V1PersistentVolumeClaim { v1PersistentVolumeClaimStatus, ..} ) <$> f v1PersistentVolumeClaimStatus +{-# INLINE v1PersistentVolumeClaimStatusL #-} + + + +-- * V1PersistentVolumeClaimCondition + +-- | 'v1PersistentVolumeClaimConditionLastProbeTime' Lens +v1PersistentVolumeClaimConditionLastProbeTimeL :: Lens_' V1PersistentVolumeClaimCondition (Maybe DateTime) +v1PersistentVolumeClaimConditionLastProbeTimeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionLastProbeTime -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionLastProbeTime, ..} ) <$> f v1PersistentVolumeClaimConditionLastProbeTime +{-# INLINE v1PersistentVolumeClaimConditionLastProbeTimeL #-} + +-- | 'v1PersistentVolumeClaimConditionLastTransitionTime' Lens +v1PersistentVolumeClaimConditionLastTransitionTimeL :: Lens_' V1PersistentVolumeClaimCondition (Maybe DateTime) +v1PersistentVolumeClaimConditionLastTransitionTimeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionLastTransitionTime -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionLastTransitionTime, ..} ) <$> f v1PersistentVolumeClaimConditionLastTransitionTime +{-# INLINE v1PersistentVolumeClaimConditionLastTransitionTimeL #-} + +-- | 'v1PersistentVolumeClaimConditionMessage' Lens +v1PersistentVolumeClaimConditionMessageL :: Lens_' V1PersistentVolumeClaimCondition (Maybe Text) +v1PersistentVolumeClaimConditionMessageL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionMessage -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionMessage, ..} ) <$> f v1PersistentVolumeClaimConditionMessage +{-# INLINE v1PersistentVolumeClaimConditionMessageL #-} + +-- | 'v1PersistentVolumeClaimConditionReason' Lens +v1PersistentVolumeClaimConditionReasonL :: Lens_' V1PersistentVolumeClaimCondition (Maybe Text) +v1PersistentVolumeClaimConditionReasonL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionReason -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionReason, ..} ) <$> f v1PersistentVolumeClaimConditionReason +{-# INLINE v1PersistentVolumeClaimConditionReasonL #-} + +-- | 'v1PersistentVolumeClaimConditionStatus' Lens +v1PersistentVolumeClaimConditionStatusL :: Lens_' V1PersistentVolumeClaimCondition (Text) +v1PersistentVolumeClaimConditionStatusL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionStatus -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionStatus, ..} ) <$> f v1PersistentVolumeClaimConditionStatus +{-# INLINE v1PersistentVolumeClaimConditionStatusL #-} + +-- | 'v1PersistentVolumeClaimConditionType' Lens +v1PersistentVolumeClaimConditionTypeL :: Lens_' V1PersistentVolumeClaimCondition (Text) +v1PersistentVolumeClaimConditionTypeL f V1PersistentVolumeClaimCondition{..} = (\v1PersistentVolumeClaimConditionType -> V1PersistentVolumeClaimCondition { v1PersistentVolumeClaimConditionType, ..} ) <$> f v1PersistentVolumeClaimConditionType +{-# INLINE v1PersistentVolumeClaimConditionTypeL #-} + + + +-- * V1PersistentVolumeClaimList + +-- | 'v1PersistentVolumeClaimListApiVersion' Lens +v1PersistentVolumeClaimListApiVersionL :: Lens_' V1PersistentVolumeClaimList (Maybe Text) +v1PersistentVolumeClaimListApiVersionL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListApiVersion -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListApiVersion, ..} ) <$> f v1PersistentVolumeClaimListApiVersion +{-# INLINE v1PersistentVolumeClaimListApiVersionL #-} + +-- | 'v1PersistentVolumeClaimListItems' Lens +v1PersistentVolumeClaimListItemsL :: Lens_' V1PersistentVolumeClaimList ([V1PersistentVolumeClaim]) +v1PersistentVolumeClaimListItemsL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListItems -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListItems, ..} ) <$> f v1PersistentVolumeClaimListItems +{-# INLINE v1PersistentVolumeClaimListItemsL #-} + +-- | 'v1PersistentVolumeClaimListKind' Lens +v1PersistentVolumeClaimListKindL :: Lens_' V1PersistentVolumeClaimList (Maybe Text) +v1PersistentVolumeClaimListKindL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListKind -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListKind, ..} ) <$> f v1PersistentVolumeClaimListKind +{-# INLINE v1PersistentVolumeClaimListKindL #-} + +-- | 'v1PersistentVolumeClaimListMetadata' Lens +v1PersistentVolumeClaimListMetadataL :: Lens_' V1PersistentVolumeClaimList (Maybe V1ListMeta) +v1PersistentVolumeClaimListMetadataL f V1PersistentVolumeClaimList{..} = (\v1PersistentVolumeClaimListMetadata -> V1PersistentVolumeClaimList { v1PersistentVolumeClaimListMetadata, ..} ) <$> f v1PersistentVolumeClaimListMetadata +{-# INLINE v1PersistentVolumeClaimListMetadataL #-} + + + +-- * V1PersistentVolumeClaimSpec + +-- | 'v1PersistentVolumeClaimSpecAccessModes' Lens +v1PersistentVolumeClaimSpecAccessModesL :: Lens_' V1PersistentVolumeClaimSpec (Maybe [Text]) +v1PersistentVolumeClaimSpecAccessModesL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecAccessModes -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecAccessModes, ..} ) <$> f v1PersistentVolumeClaimSpecAccessModes +{-# INLINE v1PersistentVolumeClaimSpecAccessModesL #-} + +-- | 'v1PersistentVolumeClaimSpecDataSource' Lens +v1PersistentVolumeClaimSpecDataSourceL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1TypedLocalObjectReference) +v1PersistentVolumeClaimSpecDataSourceL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecDataSource -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecDataSource, ..} ) <$> f v1PersistentVolumeClaimSpecDataSource +{-# INLINE v1PersistentVolumeClaimSpecDataSourceL #-} + +-- | 'v1PersistentVolumeClaimSpecDataSourceRef' Lens +v1PersistentVolumeClaimSpecDataSourceRefL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1TypedObjectReference) +v1PersistentVolumeClaimSpecDataSourceRefL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecDataSourceRef -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecDataSourceRef, ..} ) <$> f v1PersistentVolumeClaimSpecDataSourceRef +{-# INLINE v1PersistentVolumeClaimSpecDataSourceRefL #-} + +-- | 'v1PersistentVolumeClaimSpecResources' Lens +v1PersistentVolumeClaimSpecResourcesL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1ResourceRequirements) +v1PersistentVolumeClaimSpecResourcesL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecResources -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecResources, ..} ) <$> f v1PersistentVolumeClaimSpecResources +{-# INLINE v1PersistentVolumeClaimSpecResourcesL #-} + +-- | 'v1PersistentVolumeClaimSpecSelector' Lens +v1PersistentVolumeClaimSpecSelectorL :: Lens_' V1PersistentVolumeClaimSpec (Maybe V1LabelSelector) +v1PersistentVolumeClaimSpecSelectorL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecSelector -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecSelector, ..} ) <$> f v1PersistentVolumeClaimSpecSelector +{-# INLINE v1PersistentVolumeClaimSpecSelectorL #-} + +-- | 'v1PersistentVolumeClaimSpecStorageClassName' Lens +v1PersistentVolumeClaimSpecStorageClassNameL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) +v1PersistentVolumeClaimSpecStorageClassNameL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecStorageClassName -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecStorageClassName, ..} ) <$> f v1PersistentVolumeClaimSpecStorageClassName +{-# INLINE v1PersistentVolumeClaimSpecStorageClassNameL #-} + +-- | 'v1PersistentVolumeClaimSpecVolumeMode' Lens +v1PersistentVolumeClaimSpecVolumeModeL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) +v1PersistentVolumeClaimSpecVolumeModeL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecVolumeMode -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecVolumeMode, ..} ) <$> f v1PersistentVolumeClaimSpecVolumeMode +{-# INLINE v1PersistentVolumeClaimSpecVolumeModeL #-} + +-- | 'v1PersistentVolumeClaimSpecVolumeName' Lens +v1PersistentVolumeClaimSpecVolumeNameL :: Lens_' V1PersistentVolumeClaimSpec (Maybe Text) +v1PersistentVolumeClaimSpecVolumeNameL f V1PersistentVolumeClaimSpec{..} = (\v1PersistentVolumeClaimSpecVolumeName -> V1PersistentVolumeClaimSpec { v1PersistentVolumeClaimSpecVolumeName, ..} ) <$> f v1PersistentVolumeClaimSpecVolumeName +{-# INLINE v1PersistentVolumeClaimSpecVolumeNameL #-} + + + +-- * V1PersistentVolumeClaimStatus + +-- | 'v1PersistentVolumeClaimStatusAccessModes' Lens +v1PersistentVolumeClaimStatusAccessModesL :: Lens_' V1PersistentVolumeClaimStatus (Maybe [Text]) +v1PersistentVolumeClaimStatusAccessModesL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusAccessModes -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusAccessModes, ..} ) <$> f v1PersistentVolumeClaimStatusAccessModes +{-# INLINE v1PersistentVolumeClaimStatusAccessModesL #-} + +-- | 'v1PersistentVolumeClaimStatusAllocatedResources' Lens +v1PersistentVolumeClaimStatusAllocatedResourcesL :: Lens_' V1PersistentVolumeClaimStatus (Maybe (Map.Map String Quantity)) +v1PersistentVolumeClaimStatusAllocatedResourcesL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusAllocatedResources -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusAllocatedResources, ..} ) <$> f v1PersistentVolumeClaimStatusAllocatedResources +{-# INLINE v1PersistentVolumeClaimStatusAllocatedResourcesL #-} + +-- | 'v1PersistentVolumeClaimStatusCapacity' Lens +v1PersistentVolumeClaimStatusCapacityL :: Lens_' V1PersistentVolumeClaimStatus (Maybe (Map.Map String Quantity)) +v1PersistentVolumeClaimStatusCapacityL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusCapacity -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusCapacity, ..} ) <$> f v1PersistentVolumeClaimStatusCapacity +{-# INLINE v1PersistentVolumeClaimStatusCapacityL #-} + +-- | 'v1PersistentVolumeClaimStatusConditions' Lens +v1PersistentVolumeClaimStatusConditionsL :: Lens_' V1PersistentVolumeClaimStatus (Maybe [V1PersistentVolumeClaimCondition]) +v1PersistentVolumeClaimStatusConditionsL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusConditions -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusConditions, ..} ) <$> f v1PersistentVolumeClaimStatusConditions +{-# INLINE v1PersistentVolumeClaimStatusConditionsL #-} + +-- | 'v1PersistentVolumeClaimStatusPhase' Lens +v1PersistentVolumeClaimStatusPhaseL :: Lens_' V1PersistentVolumeClaimStatus (Maybe Text) +v1PersistentVolumeClaimStatusPhaseL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusPhase -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusPhase, ..} ) <$> f v1PersistentVolumeClaimStatusPhase +{-# INLINE v1PersistentVolumeClaimStatusPhaseL #-} + +-- | 'v1PersistentVolumeClaimStatusResizeStatus' Lens +v1PersistentVolumeClaimStatusResizeStatusL :: Lens_' V1PersistentVolumeClaimStatus (Maybe Text) +v1PersistentVolumeClaimStatusResizeStatusL f V1PersistentVolumeClaimStatus{..} = (\v1PersistentVolumeClaimStatusResizeStatus -> V1PersistentVolumeClaimStatus { v1PersistentVolumeClaimStatusResizeStatus, ..} ) <$> f v1PersistentVolumeClaimStatusResizeStatus +{-# INLINE v1PersistentVolumeClaimStatusResizeStatusL #-} + + + +-- * V1PersistentVolumeClaimTemplate + +-- | 'v1PersistentVolumeClaimTemplateMetadata' Lens +v1PersistentVolumeClaimTemplateMetadataL :: Lens_' V1PersistentVolumeClaimTemplate (Maybe V1ObjectMeta) +v1PersistentVolumeClaimTemplateMetadataL f V1PersistentVolumeClaimTemplate{..} = (\v1PersistentVolumeClaimTemplateMetadata -> V1PersistentVolumeClaimTemplate { v1PersistentVolumeClaimTemplateMetadata, ..} ) <$> f v1PersistentVolumeClaimTemplateMetadata +{-# INLINE v1PersistentVolumeClaimTemplateMetadataL #-} + +-- | 'v1PersistentVolumeClaimTemplateSpec' Lens +v1PersistentVolumeClaimTemplateSpecL :: Lens_' V1PersistentVolumeClaimTemplate (V1PersistentVolumeClaimSpec) +v1PersistentVolumeClaimTemplateSpecL f V1PersistentVolumeClaimTemplate{..} = (\v1PersistentVolumeClaimTemplateSpec -> V1PersistentVolumeClaimTemplate { v1PersistentVolumeClaimTemplateSpec, ..} ) <$> f v1PersistentVolumeClaimTemplateSpec +{-# INLINE v1PersistentVolumeClaimTemplateSpecL #-} + + + +-- * V1PersistentVolumeClaimVolumeSource + +-- | 'v1PersistentVolumeClaimVolumeSourceClaimName' Lens +v1PersistentVolumeClaimVolumeSourceClaimNameL :: Lens_' V1PersistentVolumeClaimVolumeSource (Text) +v1PersistentVolumeClaimVolumeSourceClaimNameL f V1PersistentVolumeClaimVolumeSource{..} = (\v1PersistentVolumeClaimVolumeSourceClaimName -> V1PersistentVolumeClaimVolumeSource { v1PersistentVolumeClaimVolumeSourceClaimName, ..} ) <$> f v1PersistentVolumeClaimVolumeSourceClaimName +{-# INLINE v1PersistentVolumeClaimVolumeSourceClaimNameL #-} + +-- | 'v1PersistentVolumeClaimVolumeSourceReadOnly' Lens +v1PersistentVolumeClaimVolumeSourceReadOnlyL :: Lens_' V1PersistentVolumeClaimVolumeSource (Maybe Bool) +v1PersistentVolumeClaimVolumeSourceReadOnlyL f V1PersistentVolumeClaimVolumeSource{..} = (\v1PersistentVolumeClaimVolumeSourceReadOnly -> V1PersistentVolumeClaimVolumeSource { v1PersistentVolumeClaimVolumeSourceReadOnly, ..} ) <$> f v1PersistentVolumeClaimVolumeSourceReadOnly +{-# INLINE v1PersistentVolumeClaimVolumeSourceReadOnlyL #-} + + + +-- * V1PersistentVolumeList + +-- | 'v1PersistentVolumeListApiVersion' Lens +v1PersistentVolumeListApiVersionL :: Lens_' V1PersistentVolumeList (Maybe Text) +v1PersistentVolumeListApiVersionL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListApiVersion -> V1PersistentVolumeList { v1PersistentVolumeListApiVersion, ..} ) <$> f v1PersistentVolumeListApiVersion +{-# INLINE v1PersistentVolumeListApiVersionL #-} + +-- | 'v1PersistentVolumeListItems' Lens +v1PersistentVolumeListItemsL :: Lens_' V1PersistentVolumeList ([V1PersistentVolume]) +v1PersistentVolumeListItemsL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListItems -> V1PersistentVolumeList { v1PersistentVolumeListItems, ..} ) <$> f v1PersistentVolumeListItems +{-# INLINE v1PersistentVolumeListItemsL #-} + +-- | 'v1PersistentVolumeListKind' Lens +v1PersistentVolumeListKindL :: Lens_' V1PersistentVolumeList (Maybe Text) +v1PersistentVolumeListKindL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListKind -> V1PersistentVolumeList { v1PersistentVolumeListKind, ..} ) <$> f v1PersistentVolumeListKind +{-# INLINE v1PersistentVolumeListKindL #-} + +-- | 'v1PersistentVolumeListMetadata' Lens +v1PersistentVolumeListMetadataL :: Lens_' V1PersistentVolumeList (Maybe V1ListMeta) +v1PersistentVolumeListMetadataL f V1PersistentVolumeList{..} = (\v1PersistentVolumeListMetadata -> V1PersistentVolumeList { v1PersistentVolumeListMetadata, ..} ) <$> f v1PersistentVolumeListMetadata +{-# INLINE v1PersistentVolumeListMetadataL #-} + + + +-- * V1PersistentVolumeSpec + +-- | 'v1PersistentVolumeSpecAccessModes' Lens +v1PersistentVolumeSpecAccessModesL :: Lens_' V1PersistentVolumeSpec (Maybe [Text]) +v1PersistentVolumeSpecAccessModesL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAccessModes -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAccessModes, ..} ) <$> f v1PersistentVolumeSpecAccessModes +{-# INLINE v1PersistentVolumeSpecAccessModesL #-} + +-- | 'v1PersistentVolumeSpecAwsElasticBlockStore' Lens +v1PersistentVolumeSpecAwsElasticBlockStoreL :: Lens_' V1PersistentVolumeSpec (Maybe V1AWSElasticBlockStoreVolumeSource) +v1PersistentVolumeSpecAwsElasticBlockStoreL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAwsElasticBlockStore -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAwsElasticBlockStore, ..} ) <$> f v1PersistentVolumeSpecAwsElasticBlockStore +{-# INLINE v1PersistentVolumeSpecAwsElasticBlockStoreL #-} + +-- | 'v1PersistentVolumeSpecAzureDisk' Lens +v1PersistentVolumeSpecAzureDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1AzureDiskVolumeSource) +v1PersistentVolumeSpecAzureDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAzureDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAzureDisk, ..} ) <$> f v1PersistentVolumeSpecAzureDisk +{-# INLINE v1PersistentVolumeSpecAzureDiskL #-} + +-- | 'v1PersistentVolumeSpecAzureFile' Lens +v1PersistentVolumeSpecAzureFileL :: Lens_' V1PersistentVolumeSpec (Maybe V1AzureFilePersistentVolumeSource) +v1PersistentVolumeSpecAzureFileL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecAzureFile -> V1PersistentVolumeSpec { v1PersistentVolumeSpecAzureFile, ..} ) <$> f v1PersistentVolumeSpecAzureFile +{-# INLINE v1PersistentVolumeSpecAzureFileL #-} + +-- | 'v1PersistentVolumeSpecCapacity' Lens +v1PersistentVolumeSpecCapacityL :: Lens_' V1PersistentVolumeSpec (Maybe (Map.Map String Quantity)) +v1PersistentVolumeSpecCapacityL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCapacity -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCapacity, ..} ) <$> f v1PersistentVolumeSpecCapacity +{-# INLINE v1PersistentVolumeSpecCapacityL #-} + +-- | 'v1PersistentVolumeSpecCephfs' Lens +v1PersistentVolumeSpecCephfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1CephFSPersistentVolumeSource) +v1PersistentVolumeSpecCephfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCephfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCephfs, ..} ) <$> f v1PersistentVolumeSpecCephfs +{-# INLINE v1PersistentVolumeSpecCephfsL #-} + +-- | 'v1PersistentVolumeSpecCinder' Lens +v1PersistentVolumeSpecCinderL :: Lens_' V1PersistentVolumeSpec (Maybe V1CinderPersistentVolumeSource) +v1PersistentVolumeSpecCinderL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCinder -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCinder, ..} ) <$> f v1PersistentVolumeSpecCinder +{-# INLINE v1PersistentVolumeSpecCinderL #-} + +-- | 'v1PersistentVolumeSpecClaimRef' Lens +v1PersistentVolumeSpecClaimRefL :: Lens_' V1PersistentVolumeSpec (Maybe V1ObjectReference) +v1PersistentVolumeSpecClaimRefL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecClaimRef -> V1PersistentVolumeSpec { v1PersistentVolumeSpecClaimRef, ..} ) <$> f v1PersistentVolumeSpecClaimRef +{-# INLINE v1PersistentVolumeSpecClaimRefL #-} + +-- | 'v1PersistentVolumeSpecCsi' Lens +v1PersistentVolumeSpecCsiL :: Lens_' V1PersistentVolumeSpec (Maybe V1CSIPersistentVolumeSource) +v1PersistentVolumeSpecCsiL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecCsi -> V1PersistentVolumeSpec { v1PersistentVolumeSpecCsi, ..} ) <$> f v1PersistentVolumeSpecCsi +{-# INLINE v1PersistentVolumeSpecCsiL #-} + +-- | 'v1PersistentVolumeSpecFc' Lens +v1PersistentVolumeSpecFcL :: Lens_' V1PersistentVolumeSpec (Maybe V1FCVolumeSource) +v1PersistentVolumeSpecFcL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFc -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFc, ..} ) <$> f v1PersistentVolumeSpecFc +{-# INLINE v1PersistentVolumeSpecFcL #-} + +-- | 'v1PersistentVolumeSpecFlexVolume' Lens +v1PersistentVolumeSpecFlexVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1FlexPersistentVolumeSource) +v1PersistentVolumeSpecFlexVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFlexVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFlexVolume, ..} ) <$> f v1PersistentVolumeSpecFlexVolume +{-# INLINE v1PersistentVolumeSpecFlexVolumeL #-} + +-- | 'v1PersistentVolumeSpecFlocker' Lens +v1PersistentVolumeSpecFlockerL :: Lens_' V1PersistentVolumeSpec (Maybe V1FlockerVolumeSource) +v1PersistentVolumeSpecFlockerL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecFlocker -> V1PersistentVolumeSpec { v1PersistentVolumeSpecFlocker, ..} ) <$> f v1PersistentVolumeSpecFlocker +{-# INLINE v1PersistentVolumeSpecFlockerL #-} + +-- | 'v1PersistentVolumeSpecGcePersistentDisk' Lens +v1PersistentVolumeSpecGcePersistentDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1GCEPersistentDiskVolumeSource) +v1PersistentVolumeSpecGcePersistentDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecGcePersistentDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecGcePersistentDisk, ..} ) <$> f v1PersistentVolumeSpecGcePersistentDisk +{-# INLINE v1PersistentVolumeSpecGcePersistentDiskL #-} + +-- | 'v1PersistentVolumeSpecGlusterfs' Lens +v1PersistentVolumeSpecGlusterfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1GlusterfsPersistentVolumeSource) +v1PersistentVolumeSpecGlusterfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecGlusterfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecGlusterfs, ..} ) <$> f v1PersistentVolumeSpecGlusterfs +{-# INLINE v1PersistentVolumeSpecGlusterfsL #-} + +-- | 'v1PersistentVolumeSpecHostPath' Lens +v1PersistentVolumeSpecHostPathL :: Lens_' V1PersistentVolumeSpec (Maybe V1HostPathVolumeSource) +v1PersistentVolumeSpecHostPathL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecHostPath -> V1PersistentVolumeSpec { v1PersistentVolumeSpecHostPath, ..} ) <$> f v1PersistentVolumeSpecHostPath +{-# INLINE v1PersistentVolumeSpecHostPathL #-} + +-- | 'v1PersistentVolumeSpecIscsi' Lens +v1PersistentVolumeSpecIscsiL :: Lens_' V1PersistentVolumeSpec (Maybe V1ISCSIPersistentVolumeSource) +v1PersistentVolumeSpecIscsiL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecIscsi -> V1PersistentVolumeSpec { v1PersistentVolumeSpecIscsi, ..} ) <$> f v1PersistentVolumeSpecIscsi +{-# INLINE v1PersistentVolumeSpecIscsiL #-} + +-- | 'v1PersistentVolumeSpecLocal' Lens +v1PersistentVolumeSpecLocalL :: Lens_' V1PersistentVolumeSpec (Maybe V1LocalVolumeSource) +v1PersistentVolumeSpecLocalL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecLocal -> V1PersistentVolumeSpec { v1PersistentVolumeSpecLocal, ..} ) <$> f v1PersistentVolumeSpecLocal +{-# INLINE v1PersistentVolumeSpecLocalL #-} + +-- | 'v1PersistentVolumeSpecMountOptions' Lens +v1PersistentVolumeSpecMountOptionsL :: Lens_' V1PersistentVolumeSpec (Maybe [Text]) +v1PersistentVolumeSpecMountOptionsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecMountOptions -> V1PersistentVolumeSpec { v1PersistentVolumeSpecMountOptions, ..} ) <$> f v1PersistentVolumeSpecMountOptions +{-# INLINE v1PersistentVolumeSpecMountOptionsL #-} + +-- | 'v1PersistentVolumeSpecNfs' Lens +v1PersistentVolumeSpecNfsL :: Lens_' V1PersistentVolumeSpec (Maybe V1NFSVolumeSource) +v1PersistentVolumeSpecNfsL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecNfs -> V1PersistentVolumeSpec { v1PersistentVolumeSpecNfs, ..} ) <$> f v1PersistentVolumeSpecNfs +{-# INLINE v1PersistentVolumeSpecNfsL #-} + +-- | 'v1PersistentVolumeSpecNodeAffinity' Lens +v1PersistentVolumeSpecNodeAffinityL :: Lens_' V1PersistentVolumeSpec (Maybe V1VolumeNodeAffinity) +v1PersistentVolumeSpecNodeAffinityL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecNodeAffinity -> V1PersistentVolumeSpec { v1PersistentVolumeSpecNodeAffinity, ..} ) <$> f v1PersistentVolumeSpecNodeAffinity +{-# INLINE v1PersistentVolumeSpecNodeAffinityL #-} + +-- | 'v1PersistentVolumeSpecPersistentVolumeReclaimPolicy' Lens +v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL :: Lens_' V1PersistentVolumeSpec (Maybe Text) +v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPersistentVolumeReclaimPolicy -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPersistentVolumeReclaimPolicy, ..} ) <$> f v1PersistentVolumeSpecPersistentVolumeReclaimPolicy +{-# INLINE v1PersistentVolumeSpecPersistentVolumeReclaimPolicyL #-} + +-- | 'v1PersistentVolumeSpecPhotonPersistentDisk' Lens +v1PersistentVolumeSpecPhotonPersistentDiskL :: Lens_' V1PersistentVolumeSpec (Maybe V1PhotonPersistentDiskVolumeSource) +v1PersistentVolumeSpecPhotonPersistentDiskL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPhotonPersistentDisk -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPhotonPersistentDisk, ..} ) <$> f v1PersistentVolumeSpecPhotonPersistentDisk +{-# INLINE v1PersistentVolumeSpecPhotonPersistentDiskL #-} + +-- | 'v1PersistentVolumeSpecPortworxVolume' Lens +v1PersistentVolumeSpecPortworxVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1PortworxVolumeSource) +v1PersistentVolumeSpecPortworxVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecPortworxVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecPortworxVolume, ..} ) <$> f v1PersistentVolumeSpecPortworxVolume +{-# INLINE v1PersistentVolumeSpecPortworxVolumeL #-} + +-- | 'v1PersistentVolumeSpecQuobyte' Lens +v1PersistentVolumeSpecQuobyteL :: Lens_' V1PersistentVolumeSpec (Maybe V1QuobyteVolumeSource) +v1PersistentVolumeSpecQuobyteL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecQuobyte -> V1PersistentVolumeSpec { v1PersistentVolumeSpecQuobyte, ..} ) <$> f v1PersistentVolumeSpecQuobyte +{-# INLINE v1PersistentVolumeSpecQuobyteL #-} + +-- | 'v1PersistentVolumeSpecRbd' Lens +v1PersistentVolumeSpecRbdL :: Lens_' V1PersistentVolumeSpec (Maybe V1RBDPersistentVolumeSource) +v1PersistentVolumeSpecRbdL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecRbd -> V1PersistentVolumeSpec { v1PersistentVolumeSpecRbd, ..} ) <$> f v1PersistentVolumeSpecRbd +{-# INLINE v1PersistentVolumeSpecRbdL #-} + +-- | 'v1PersistentVolumeSpecScaleIo' Lens +v1PersistentVolumeSpecScaleIoL :: Lens_' V1PersistentVolumeSpec (Maybe V1ScaleIOPersistentVolumeSource) +v1PersistentVolumeSpecScaleIoL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecScaleIo -> V1PersistentVolumeSpec { v1PersistentVolumeSpecScaleIo, ..} ) <$> f v1PersistentVolumeSpecScaleIo +{-# INLINE v1PersistentVolumeSpecScaleIoL #-} + +-- | 'v1PersistentVolumeSpecStorageClassName' Lens +v1PersistentVolumeSpecStorageClassNameL :: Lens_' V1PersistentVolumeSpec (Maybe Text) +v1PersistentVolumeSpecStorageClassNameL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecStorageClassName -> V1PersistentVolumeSpec { v1PersistentVolumeSpecStorageClassName, ..} ) <$> f v1PersistentVolumeSpecStorageClassName +{-# INLINE v1PersistentVolumeSpecStorageClassNameL #-} + +-- | 'v1PersistentVolumeSpecStorageos' Lens +v1PersistentVolumeSpecStorageosL :: Lens_' V1PersistentVolumeSpec (Maybe V1StorageOSPersistentVolumeSource) +v1PersistentVolumeSpecStorageosL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecStorageos -> V1PersistentVolumeSpec { v1PersistentVolumeSpecStorageos, ..} ) <$> f v1PersistentVolumeSpecStorageos +{-# INLINE v1PersistentVolumeSpecStorageosL #-} + +-- | 'v1PersistentVolumeSpecVolumeMode' Lens +v1PersistentVolumeSpecVolumeModeL :: Lens_' V1PersistentVolumeSpec (Maybe Text) +v1PersistentVolumeSpecVolumeModeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecVolumeMode -> V1PersistentVolumeSpec { v1PersistentVolumeSpecVolumeMode, ..} ) <$> f v1PersistentVolumeSpecVolumeMode +{-# INLINE v1PersistentVolumeSpecVolumeModeL #-} + +-- | 'v1PersistentVolumeSpecVsphereVolume' Lens +v1PersistentVolumeSpecVsphereVolumeL :: Lens_' V1PersistentVolumeSpec (Maybe V1VsphereVirtualDiskVolumeSource) +v1PersistentVolumeSpecVsphereVolumeL f V1PersistentVolumeSpec{..} = (\v1PersistentVolumeSpecVsphereVolume -> V1PersistentVolumeSpec { v1PersistentVolumeSpecVsphereVolume, ..} ) <$> f v1PersistentVolumeSpecVsphereVolume +{-# INLINE v1PersistentVolumeSpecVsphereVolumeL #-} + + + +-- * V1PersistentVolumeStatus + +-- | 'v1PersistentVolumeStatusMessage' Lens +v1PersistentVolumeStatusMessageL :: Lens_' V1PersistentVolumeStatus (Maybe Text) +v1PersistentVolumeStatusMessageL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusMessage -> V1PersistentVolumeStatus { v1PersistentVolumeStatusMessage, ..} ) <$> f v1PersistentVolumeStatusMessage +{-# INLINE v1PersistentVolumeStatusMessageL #-} + +-- | 'v1PersistentVolumeStatusPhase' Lens +v1PersistentVolumeStatusPhaseL :: Lens_' V1PersistentVolumeStatus (Maybe Text) +v1PersistentVolumeStatusPhaseL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusPhase -> V1PersistentVolumeStatus { v1PersistentVolumeStatusPhase, ..} ) <$> f v1PersistentVolumeStatusPhase +{-# INLINE v1PersistentVolumeStatusPhaseL #-} + +-- | 'v1PersistentVolumeStatusReason' Lens +v1PersistentVolumeStatusReasonL :: Lens_' V1PersistentVolumeStatus (Maybe Text) +v1PersistentVolumeStatusReasonL f V1PersistentVolumeStatus{..} = (\v1PersistentVolumeStatusReason -> V1PersistentVolumeStatus { v1PersistentVolumeStatusReason, ..} ) <$> f v1PersistentVolumeStatusReason +{-# INLINE v1PersistentVolumeStatusReasonL #-} + + + +-- * V1PhotonPersistentDiskVolumeSource + +-- | 'v1PhotonPersistentDiskVolumeSourceFsType' Lens +v1PhotonPersistentDiskVolumeSourceFsTypeL :: Lens_' V1PhotonPersistentDiskVolumeSource (Maybe Text) +v1PhotonPersistentDiskVolumeSourceFsTypeL f V1PhotonPersistentDiskVolumeSource{..} = (\v1PhotonPersistentDiskVolumeSourceFsType -> V1PhotonPersistentDiskVolumeSource { v1PhotonPersistentDiskVolumeSourceFsType, ..} ) <$> f v1PhotonPersistentDiskVolumeSourceFsType +{-# INLINE v1PhotonPersistentDiskVolumeSourceFsTypeL #-} + +-- | 'v1PhotonPersistentDiskVolumeSourcePdId' Lens +v1PhotonPersistentDiskVolumeSourcePdIdL :: Lens_' V1PhotonPersistentDiskVolumeSource (Text) +v1PhotonPersistentDiskVolumeSourcePdIdL f V1PhotonPersistentDiskVolumeSource{..} = (\v1PhotonPersistentDiskVolumeSourcePdId -> V1PhotonPersistentDiskVolumeSource { v1PhotonPersistentDiskVolumeSourcePdId, ..} ) <$> f v1PhotonPersistentDiskVolumeSourcePdId +{-# INLINE v1PhotonPersistentDiskVolumeSourcePdIdL #-} + + + +-- * V1Pod + +-- | 'v1PodApiVersion' Lens +v1PodApiVersionL :: Lens_' V1Pod (Maybe Text) +v1PodApiVersionL f V1Pod{..} = (\v1PodApiVersion -> V1Pod { v1PodApiVersion, ..} ) <$> f v1PodApiVersion +{-# INLINE v1PodApiVersionL #-} + +-- | 'v1PodKind' Lens +v1PodKindL :: Lens_' V1Pod (Maybe Text) +v1PodKindL f V1Pod{..} = (\v1PodKind -> V1Pod { v1PodKind, ..} ) <$> f v1PodKind +{-# INLINE v1PodKindL #-} + +-- | 'v1PodMetadata' Lens +v1PodMetadataL :: Lens_' V1Pod (Maybe V1ObjectMeta) +v1PodMetadataL f V1Pod{..} = (\v1PodMetadata -> V1Pod { v1PodMetadata, ..} ) <$> f v1PodMetadata +{-# INLINE v1PodMetadataL #-} + +-- | 'v1PodSpec' Lens +v1PodSpecL :: Lens_' V1Pod (Maybe V1PodSpec) +v1PodSpecL f V1Pod{..} = (\v1PodSpec -> V1Pod { v1PodSpec, ..} ) <$> f v1PodSpec +{-# INLINE v1PodSpecL #-} + +-- | 'v1PodStatus' Lens +v1PodStatusL :: Lens_' V1Pod (Maybe V1PodStatus) +v1PodStatusL f V1Pod{..} = (\v1PodStatus -> V1Pod { v1PodStatus, ..} ) <$> f v1PodStatus +{-# INLINE v1PodStatusL #-} + + + +-- * V1PodAffinity + +-- | 'v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens +v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAffinity (Maybe [V1WeightedPodAffinityTerm]) +v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1PodAffinity{..} = (\v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1PodAffinity { v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1PodAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} + +-- | 'v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens +v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAffinity (Maybe [V1PodAffinityTerm]) +v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1PodAffinity{..} = (\v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1PodAffinity { v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1PodAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} + + + +-- * V1PodAffinityTerm + +-- | 'v1PodAffinityTermLabelSelector' Lens +v1PodAffinityTermLabelSelectorL :: Lens_' V1PodAffinityTerm (Maybe V1LabelSelector) +v1PodAffinityTermLabelSelectorL f V1PodAffinityTerm{..} = (\v1PodAffinityTermLabelSelector -> V1PodAffinityTerm { v1PodAffinityTermLabelSelector, ..} ) <$> f v1PodAffinityTermLabelSelector +{-# INLINE v1PodAffinityTermLabelSelectorL #-} + +-- | 'v1PodAffinityTermNamespaceSelector' Lens +v1PodAffinityTermNamespaceSelectorL :: Lens_' V1PodAffinityTerm (Maybe V1LabelSelector) +v1PodAffinityTermNamespaceSelectorL f V1PodAffinityTerm{..} = (\v1PodAffinityTermNamespaceSelector -> V1PodAffinityTerm { v1PodAffinityTermNamespaceSelector, ..} ) <$> f v1PodAffinityTermNamespaceSelector +{-# INLINE v1PodAffinityTermNamespaceSelectorL #-} + +-- | 'v1PodAffinityTermNamespaces' Lens +v1PodAffinityTermNamespacesL :: Lens_' V1PodAffinityTerm (Maybe [Text]) +v1PodAffinityTermNamespacesL f V1PodAffinityTerm{..} = (\v1PodAffinityTermNamespaces -> V1PodAffinityTerm { v1PodAffinityTermNamespaces, ..} ) <$> f v1PodAffinityTermNamespaces +{-# INLINE v1PodAffinityTermNamespacesL #-} + +-- | 'v1PodAffinityTermTopologyKey' Lens +v1PodAffinityTermTopologyKeyL :: Lens_' V1PodAffinityTerm (Text) +v1PodAffinityTermTopologyKeyL f V1PodAffinityTerm{..} = (\v1PodAffinityTermTopologyKey -> V1PodAffinityTerm { v1PodAffinityTermTopologyKey, ..} ) <$> f v1PodAffinityTermTopologyKey +{-# INLINE v1PodAffinityTermTopologyKeyL #-} + + + +-- * V1PodAntiAffinity + +-- | 'v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution' Lens +v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAntiAffinity (Maybe [V1WeightedPodAffinityTerm]) +v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL f V1PodAntiAffinity{..} = (\v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution -> V1PodAntiAffinity { v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1PodAntiAffinityPreferredDuringSchedulingIgnoredDuringExecutionL #-} + +-- | 'v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution' Lens +v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL :: Lens_' V1PodAntiAffinity (Maybe [V1PodAffinityTerm]) +v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL f V1PodAntiAffinity{..} = (\v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution -> V1PodAntiAffinity { v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution, ..} ) <$> f v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecution +{-# INLINE v1PodAntiAffinityRequiredDuringSchedulingIgnoredDuringExecutionL #-} + + + +-- * V1PodCondition + +-- | 'v1PodConditionLastProbeTime' Lens +v1PodConditionLastProbeTimeL :: Lens_' V1PodCondition (Maybe DateTime) +v1PodConditionLastProbeTimeL f V1PodCondition{..} = (\v1PodConditionLastProbeTime -> V1PodCondition { v1PodConditionLastProbeTime, ..} ) <$> f v1PodConditionLastProbeTime +{-# INLINE v1PodConditionLastProbeTimeL #-} + +-- | 'v1PodConditionLastTransitionTime' Lens +v1PodConditionLastTransitionTimeL :: Lens_' V1PodCondition (Maybe DateTime) +v1PodConditionLastTransitionTimeL f V1PodCondition{..} = (\v1PodConditionLastTransitionTime -> V1PodCondition { v1PodConditionLastTransitionTime, ..} ) <$> f v1PodConditionLastTransitionTime +{-# INLINE v1PodConditionLastTransitionTimeL #-} + +-- | 'v1PodConditionMessage' Lens +v1PodConditionMessageL :: Lens_' V1PodCondition (Maybe Text) +v1PodConditionMessageL f V1PodCondition{..} = (\v1PodConditionMessage -> V1PodCondition { v1PodConditionMessage, ..} ) <$> f v1PodConditionMessage +{-# INLINE v1PodConditionMessageL #-} + +-- | 'v1PodConditionReason' Lens +v1PodConditionReasonL :: Lens_' V1PodCondition (Maybe Text) +v1PodConditionReasonL f V1PodCondition{..} = (\v1PodConditionReason -> V1PodCondition { v1PodConditionReason, ..} ) <$> f v1PodConditionReason +{-# INLINE v1PodConditionReasonL #-} + +-- | 'v1PodConditionStatus' Lens +v1PodConditionStatusL :: Lens_' V1PodCondition (Text) +v1PodConditionStatusL f V1PodCondition{..} = (\v1PodConditionStatus -> V1PodCondition { v1PodConditionStatus, ..} ) <$> f v1PodConditionStatus +{-# INLINE v1PodConditionStatusL #-} + +-- | 'v1PodConditionType' Lens +v1PodConditionTypeL :: Lens_' V1PodCondition (Text) +v1PodConditionTypeL f V1PodCondition{..} = (\v1PodConditionType -> V1PodCondition { v1PodConditionType, ..} ) <$> f v1PodConditionType +{-# INLINE v1PodConditionTypeL #-} + + + +-- * V1PodDNSConfig + +-- | 'v1PodDNSConfigNameservers' Lens +v1PodDNSConfigNameserversL :: Lens_' V1PodDNSConfig (Maybe [Text]) +v1PodDNSConfigNameserversL f V1PodDNSConfig{..} = (\v1PodDNSConfigNameservers -> V1PodDNSConfig { v1PodDNSConfigNameservers, ..} ) <$> f v1PodDNSConfigNameservers +{-# INLINE v1PodDNSConfigNameserversL #-} + +-- | 'v1PodDNSConfigOptions' Lens +v1PodDNSConfigOptionsL :: Lens_' V1PodDNSConfig (Maybe [V1PodDNSConfigOption]) +v1PodDNSConfigOptionsL f V1PodDNSConfig{..} = (\v1PodDNSConfigOptions -> V1PodDNSConfig { v1PodDNSConfigOptions, ..} ) <$> f v1PodDNSConfigOptions +{-# INLINE v1PodDNSConfigOptionsL #-} + +-- | 'v1PodDNSConfigSearches' Lens +v1PodDNSConfigSearchesL :: Lens_' V1PodDNSConfig (Maybe [Text]) +v1PodDNSConfigSearchesL f V1PodDNSConfig{..} = (\v1PodDNSConfigSearches -> V1PodDNSConfig { v1PodDNSConfigSearches, ..} ) <$> f v1PodDNSConfigSearches +{-# INLINE v1PodDNSConfigSearchesL #-} + + + +-- * V1PodDNSConfigOption + +-- | 'v1PodDNSConfigOptionName' Lens +v1PodDNSConfigOptionNameL :: Lens_' V1PodDNSConfigOption (Maybe Text) +v1PodDNSConfigOptionNameL f V1PodDNSConfigOption{..} = (\v1PodDNSConfigOptionName -> V1PodDNSConfigOption { v1PodDNSConfigOptionName, ..} ) <$> f v1PodDNSConfigOptionName +{-# INLINE v1PodDNSConfigOptionNameL #-} + +-- | 'v1PodDNSConfigOptionValue' Lens +v1PodDNSConfigOptionValueL :: Lens_' V1PodDNSConfigOption (Maybe Text) +v1PodDNSConfigOptionValueL f V1PodDNSConfigOption{..} = (\v1PodDNSConfigOptionValue -> V1PodDNSConfigOption { v1PodDNSConfigOptionValue, ..} ) <$> f v1PodDNSConfigOptionValue +{-# INLINE v1PodDNSConfigOptionValueL #-} + + + +-- * V1PodDisruptionBudget + +-- | 'v1PodDisruptionBudgetApiVersion' Lens +v1PodDisruptionBudgetApiVersionL :: Lens_' V1PodDisruptionBudget (Maybe Text) +v1PodDisruptionBudgetApiVersionL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetApiVersion -> V1PodDisruptionBudget { v1PodDisruptionBudgetApiVersion, ..} ) <$> f v1PodDisruptionBudgetApiVersion +{-# INLINE v1PodDisruptionBudgetApiVersionL #-} + +-- | 'v1PodDisruptionBudgetKind' Lens +v1PodDisruptionBudgetKindL :: Lens_' V1PodDisruptionBudget (Maybe Text) +v1PodDisruptionBudgetKindL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetKind -> V1PodDisruptionBudget { v1PodDisruptionBudgetKind, ..} ) <$> f v1PodDisruptionBudgetKind +{-# INLINE v1PodDisruptionBudgetKindL #-} + +-- | 'v1PodDisruptionBudgetMetadata' Lens +v1PodDisruptionBudgetMetadataL :: Lens_' V1PodDisruptionBudget (Maybe V1ObjectMeta) +v1PodDisruptionBudgetMetadataL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetMetadata -> V1PodDisruptionBudget { v1PodDisruptionBudgetMetadata, ..} ) <$> f v1PodDisruptionBudgetMetadata +{-# INLINE v1PodDisruptionBudgetMetadataL #-} + +-- | 'v1PodDisruptionBudgetSpec' Lens +v1PodDisruptionBudgetSpecL :: Lens_' V1PodDisruptionBudget (Maybe V1PodDisruptionBudgetSpec) +v1PodDisruptionBudgetSpecL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetSpec -> V1PodDisruptionBudget { v1PodDisruptionBudgetSpec, ..} ) <$> f v1PodDisruptionBudgetSpec +{-# INLINE v1PodDisruptionBudgetSpecL #-} + +-- | 'v1PodDisruptionBudgetStatus' Lens +v1PodDisruptionBudgetStatusL :: Lens_' V1PodDisruptionBudget (Maybe V1PodDisruptionBudgetStatus) +v1PodDisruptionBudgetStatusL f V1PodDisruptionBudget{..} = (\v1PodDisruptionBudgetStatus -> V1PodDisruptionBudget { v1PodDisruptionBudgetStatus, ..} ) <$> f v1PodDisruptionBudgetStatus +{-# INLINE v1PodDisruptionBudgetStatusL #-} + + + +-- * V1PodDisruptionBudgetList + +-- | 'v1PodDisruptionBudgetListApiVersion' Lens +v1PodDisruptionBudgetListApiVersionL :: Lens_' V1PodDisruptionBudgetList (Maybe Text) +v1PodDisruptionBudgetListApiVersionL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListApiVersion -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListApiVersion, ..} ) <$> f v1PodDisruptionBudgetListApiVersion +{-# INLINE v1PodDisruptionBudgetListApiVersionL #-} + +-- | 'v1PodDisruptionBudgetListItems' Lens +v1PodDisruptionBudgetListItemsL :: Lens_' V1PodDisruptionBudgetList ([V1PodDisruptionBudget]) +v1PodDisruptionBudgetListItemsL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListItems -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListItems, ..} ) <$> f v1PodDisruptionBudgetListItems +{-# INLINE v1PodDisruptionBudgetListItemsL #-} + +-- | 'v1PodDisruptionBudgetListKind' Lens +v1PodDisruptionBudgetListKindL :: Lens_' V1PodDisruptionBudgetList (Maybe Text) +v1PodDisruptionBudgetListKindL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListKind -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListKind, ..} ) <$> f v1PodDisruptionBudgetListKind +{-# INLINE v1PodDisruptionBudgetListKindL #-} + +-- | 'v1PodDisruptionBudgetListMetadata' Lens +v1PodDisruptionBudgetListMetadataL :: Lens_' V1PodDisruptionBudgetList (Maybe V1ListMeta) +v1PodDisruptionBudgetListMetadataL f V1PodDisruptionBudgetList{..} = (\v1PodDisruptionBudgetListMetadata -> V1PodDisruptionBudgetList { v1PodDisruptionBudgetListMetadata, ..} ) <$> f v1PodDisruptionBudgetListMetadata +{-# INLINE v1PodDisruptionBudgetListMetadataL #-} + + + +-- * V1PodDisruptionBudgetSpec + +-- | 'v1PodDisruptionBudgetSpecMaxUnavailable' Lens +v1PodDisruptionBudgetSpecMaxUnavailableL :: Lens_' V1PodDisruptionBudgetSpec (Maybe IntOrString) +v1PodDisruptionBudgetSpecMaxUnavailableL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecMaxUnavailable -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecMaxUnavailable, ..} ) <$> f v1PodDisruptionBudgetSpecMaxUnavailable +{-# INLINE v1PodDisruptionBudgetSpecMaxUnavailableL #-} + +-- | 'v1PodDisruptionBudgetSpecMinAvailable' Lens +v1PodDisruptionBudgetSpecMinAvailableL :: Lens_' V1PodDisruptionBudgetSpec (Maybe IntOrString) +v1PodDisruptionBudgetSpecMinAvailableL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecMinAvailable -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecMinAvailable, ..} ) <$> f v1PodDisruptionBudgetSpecMinAvailable +{-# INLINE v1PodDisruptionBudgetSpecMinAvailableL #-} + +-- | 'v1PodDisruptionBudgetSpecSelector' Lens +v1PodDisruptionBudgetSpecSelectorL :: Lens_' V1PodDisruptionBudgetSpec (Maybe V1LabelSelector) +v1PodDisruptionBudgetSpecSelectorL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecSelector -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecSelector, ..} ) <$> f v1PodDisruptionBudgetSpecSelector +{-# INLINE v1PodDisruptionBudgetSpecSelectorL #-} + +-- | 'v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy' Lens +v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL :: Lens_' V1PodDisruptionBudgetSpec (Maybe Text) +v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL f V1PodDisruptionBudgetSpec{..} = (\v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy -> V1PodDisruptionBudgetSpec { v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy, ..} ) <$> f v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicy +{-# INLINE v1PodDisruptionBudgetSpecUnhealthyPodEvictionPolicyL #-} + + + +-- * V1PodDisruptionBudgetStatus + +-- | 'v1PodDisruptionBudgetStatusConditions' Lens +v1PodDisruptionBudgetStatusConditionsL :: Lens_' V1PodDisruptionBudgetStatus (Maybe [V1Condition]) +v1PodDisruptionBudgetStatusConditionsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusConditions -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusConditions, ..} ) <$> f v1PodDisruptionBudgetStatusConditions +{-# INLINE v1PodDisruptionBudgetStatusConditionsL #-} + +-- | 'v1PodDisruptionBudgetStatusCurrentHealthy' Lens +v1PodDisruptionBudgetStatusCurrentHealthyL :: Lens_' V1PodDisruptionBudgetStatus (Int) +v1PodDisruptionBudgetStatusCurrentHealthyL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusCurrentHealthy -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusCurrentHealthy, ..} ) <$> f v1PodDisruptionBudgetStatusCurrentHealthy +{-# INLINE v1PodDisruptionBudgetStatusCurrentHealthyL #-} + +-- | 'v1PodDisruptionBudgetStatusDesiredHealthy' Lens +v1PodDisruptionBudgetStatusDesiredHealthyL :: Lens_' V1PodDisruptionBudgetStatus (Int) +v1PodDisruptionBudgetStatusDesiredHealthyL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDesiredHealthy -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDesiredHealthy, ..} ) <$> f v1PodDisruptionBudgetStatusDesiredHealthy +{-# INLINE v1PodDisruptionBudgetStatusDesiredHealthyL #-} + +-- | 'v1PodDisruptionBudgetStatusDisruptedPods' Lens +v1PodDisruptionBudgetStatusDisruptedPodsL :: Lens_' V1PodDisruptionBudgetStatus (Maybe (Map.Map String DateTime)) +v1PodDisruptionBudgetStatusDisruptedPodsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDisruptedPods -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDisruptedPods, ..} ) <$> f v1PodDisruptionBudgetStatusDisruptedPods +{-# INLINE v1PodDisruptionBudgetStatusDisruptedPodsL #-} + +-- | 'v1PodDisruptionBudgetStatusDisruptionsAllowed' Lens +v1PodDisruptionBudgetStatusDisruptionsAllowedL :: Lens_' V1PodDisruptionBudgetStatus (Int) +v1PodDisruptionBudgetStatusDisruptionsAllowedL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusDisruptionsAllowed -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusDisruptionsAllowed, ..} ) <$> f v1PodDisruptionBudgetStatusDisruptionsAllowed +{-# INLINE v1PodDisruptionBudgetStatusDisruptionsAllowedL #-} + +-- | 'v1PodDisruptionBudgetStatusExpectedPods' Lens +v1PodDisruptionBudgetStatusExpectedPodsL :: Lens_' V1PodDisruptionBudgetStatus (Int) +v1PodDisruptionBudgetStatusExpectedPodsL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusExpectedPods -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusExpectedPods, ..} ) <$> f v1PodDisruptionBudgetStatusExpectedPods +{-# INLINE v1PodDisruptionBudgetStatusExpectedPodsL #-} + +-- | 'v1PodDisruptionBudgetStatusObservedGeneration' Lens +v1PodDisruptionBudgetStatusObservedGenerationL :: Lens_' V1PodDisruptionBudgetStatus (Maybe Integer) +v1PodDisruptionBudgetStatusObservedGenerationL f V1PodDisruptionBudgetStatus{..} = (\v1PodDisruptionBudgetStatusObservedGeneration -> V1PodDisruptionBudgetStatus { v1PodDisruptionBudgetStatusObservedGeneration, ..} ) <$> f v1PodDisruptionBudgetStatusObservedGeneration +{-# INLINE v1PodDisruptionBudgetStatusObservedGenerationL #-} + + + +-- * V1PodFailurePolicy + +-- | 'v1PodFailurePolicyRules' Lens +v1PodFailurePolicyRulesL :: Lens_' V1PodFailurePolicy ([V1PodFailurePolicyRule]) +v1PodFailurePolicyRulesL f V1PodFailurePolicy{..} = (\v1PodFailurePolicyRules -> V1PodFailurePolicy { v1PodFailurePolicyRules, ..} ) <$> f v1PodFailurePolicyRules +{-# INLINE v1PodFailurePolicyRulesL #-} + + + +-- * V1PodFailurePolicyOnExitCodesRequirement + +-- | 'v1PodFailurePolicyOnExitCodesRequirementContainerName' Lens +v1PodFailurePolicyOnExitCodesRequirementContainerNameL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement (Maybe Text) +v1PodFailurePolicyOnExitCodesRequirementContainerNameL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementContainerName -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementContainerName, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementContainerName +{-# INLINE v1PodFailurePolicyOnExitCodesRequirementContainerNameL #-} + +-- | 'v1PodFailurePolicyOnExitCodesRequirementOperator' Lens +v1PodFailurePolicyOnExitCodesRequirementOperatorL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement (Text) +v1PodFailurePolicyOnExitCodesRequirementOperatorL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementOperator -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementOperator, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementOperator +{-# INLINE v1PodFailurePolicyOnExitCodesRequirementOperatorL #-} + +-- | 'v1PodFailurePolicyOnExitCodesRequirementValues' Lens +v1PodFailurePolicyOnExitCodesRequirementValuesL :: Lens_' V1PodFailurePolicyOnExitCodesRequirement ([Int]) +v1PodFailurePolicyOnExitCodesRequirementValuesL f V1PodFailurePolicyOnExitCodesRequirement{..} = (\v1PodFailurePolicyOnExitCodesRequirementValues -> V1PodFailurePolicyOnExitCodesRequirement { v1PodFailurePolicyOnExitCodesRequirementValues, ..} ) <$> f v1PodFailurePolicyOnExitCodesRequirementValues +{-# INLINE v1PodFailurePolicyOnExitCodesRequirementValuesL #-} + + + +-- * V1PodFailurePolicyOnPodConditionsPattern + +-- | 'v1PodFailurePolicyOnPodConditionsPatternStatus' Lens +v1PodFailurePolicyOnPodConditionsPatternStatusL :: Lens_' V1PodFailurePolicyOnPodConditionsPattern (Text) +v1PodFailurePolicyOnPodConditionsPatternStatusL f V1PodFailurePolicyOnPodConditionsPattern{..} = (\v1PodFailurePolicyOnPodConditionsPatternStatus -> V1PodFailurePolicyOnPodConditionsPattern { v1PodFailurePolicyOnPodConditionsPatternStatus, ..} ) <$> f v1PodFailurePolicyOnPodConditionsPatternStatus +{-# INLINE v1PodFailurePolicyOnPodConditionsPatternStatusL #-} + +-- | 'v1PodFailurePolicyOnPodConditionsPatternType' Lens +v1PodFailurePolicyOnPodConditionsPatternTypeL :: Lens_' V1PodFailurePolicyOnPodConditionsPattern (Text) +v1PodFailurePolicyOnPodConditionsPatternTypeL f V1PodFailurePolicyOnPodConditionsPattern{..} = (\v1PodFailurePolicyOnPodConditionsPatternType -> V1PodFailurePolicyOnPodConditionsPattern { v1PodFailurePolicyOnPodConditionsPatternType, ..} ) <$> f v1PodFailurePolicyOnPodConditionsPatternType +{-# INLINE v1PodFailurePolicyOnPodConditionsPatternTypeL #-} + + + +-- * V1PodFailurePolicyRule + +-- | 'v1PodFailurePolicyRuleAction' Lens +v1PodFailurePolicyRuleActionL :: Lens_' V1PodFailurePolicyRule (Text) +v1PodFailurePolicyRuleActionL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleAction -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleAction, ..} ) <$> f v1PodFailurePolicyRuleAction +{-# INLINE v1PodFailurePolicyRuleActionL #-} + +-- | 'v1PodFailurePolicyRuleOnExitCodes' Lens +v1PodFailurePolicyRuleOnExitCodesL :: Lens_' V1PodFailurePolicyRule (Maybe V1PodFailurePolicyOnExitCodesRequirement) +v1PodFailurePolicyRuleOnExitCodesL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleOnExitCodes -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleOnExitCodes, ..} ) <$> f v1PodFailurePolicyRuleOnExitCodes +{-# INLINE v1PodFailurePolicyRuleOnExitCodesL #-} + +-- | 'v1PodFailurePolicyRuleOnPodConditions' Lens +v1PodFailurePolicyRuleOnPodConditionsL :: Lens_' V1PodFailurePolicyRule (Maybe [V1PodFailurePolicyOnPodConditionsPattern]) +v1PodFailurePolicyRuleOnPodConditionsL f V1PodFailurePolicyRule{..} = (\v1PodFailurePolicyRuleOnPodConditions -> V1PodFailurePolicyRule { v1PodFailurePolicyRuleOnPodConditions, ..} ) <$> f v1PodFailurePolicyRuleOnPodConditions +{-# INLINE v1PodFailurePolicyRuleOnPodConditionsL #-} + + + +-- * V1PodIP + +-- | 'v1PodIPIp' Lens +v1PodIPIpL :: Lens_' V1PodIP (Maybe Text) +v1PodIPIpL f V1PodIP{..} = (\v1PodIPIp -> V1PodIP { v1PodIPIp, ..} ) <$> f v1PodIPIp +{-# INLINE v1PodIPIpL #-} + + + +-- * V1PodList + +-- | 'v1PodListApiVersion' Lens +v1PodListApiVersionL :: Lens_' V1PodList (Maybe Text) +v1PodListApiVersionL f V1PodList{..} = (\v1PodListApiVersion -> V1PodList { v1PodListApiVersion, ..} ) <$> f v1PodListApiVersion +{-# INLINE v1PodListApiVersionL #-} + +-- | 'v1PodListItems' Lens +v1PodListItemsL :: Lens_' V1PodList ([V1Pod]) +v1PodListItemsL f V1PodList{..} = (\v1PodListItems -> V1PodList { v1PodListItems, ..} ) <$> f v1PodListItems +{-# INLINE v1PodListItemsL #-} + +-- | 'v1PodListKind' Lens +v1PodListKindL :: Lens_' V1PodList (Maybe Text) +v1PodListKindL f V1PodList{..} = (\v1PodListKind -> V1PodList { v1PodListKind, ..} ) <$> f v1PodListKind +{-# INLINE v1PodListKindL #-} + +-- | 'v1PodListMetadata' Lens +v1PodListMetadataL :: Lens_' V1PodList (Maybe V1ListMeta) +v1PodListMetadataL f V1PodList{..} = (\v1PodListMetadata -> V1PodList { v1PodListMetadata, ..} ) <$> f v1PodListMetadata +{-# INLINE v1PodListMetadataL #-} + + + +-- * V1PodOS + +-- | 'v1PodOSName' Lens +v1PodOSNameL :: Lens_' V1PodOS (Text) +v1PodOSNameL f V1PodOS{..} = (\v1PodOSName -> V1PodOS { v1PodOSName, ..} ) <$> f v1PodOSName +{-# INLINE v1PodOSNameL #-} + + + +-- * V1PodReadinessGate + +-- | 'v1PodReadinessGateConditionType' Lens +v1PodReadinessGateConditionTypeL :: Lens_' V1PodReadinessGate (Text) +v1PodReadinessGateConditionTypeL f V1PodReadinessGate{..} = (\v1PodReadinessGateConditionType -> V1PodReadinessGate { v1PodReadinessGateConditionType, ..} ) <$> f v1PodReadinessGateConditionType +{-# INLINE v1PodReadinessGateConditionTypeL #-} + + + +-- * V1PodResourceClaim + +-- | 'v1PodResourceClaimName' Lens +v1PodResourceClaimNameL :: Lens_' V1PodResourceClaim (Text) +v1PodResourceClaimNameL f V1PodResourceClaim{..} = (\v1PodResourceClaimName -> V1PodResourceClaim { v1PodResourceClaimName, ..} ) <$> f v1PodResourceClaimName +{-# INLINE v1PodResourceClaimNameL #-} + +-- | 'v1PodResourceClaimSource' Lens +v1PodResourceClaimSourceL :: Lens_' V1PodResourceClaim (Maybe V1ClaimSource) +v1PodResourceClaimSourceL f V1PodResourceClaim{..} = (\v1PodResourceClaimSource -> V1PodResourceClaim { v1PodResourceClaimSource, ..} ) <$> f v1PodResourceClaimSource +{-# INLINE v1PodResourceClaimSourceL #-} + + + +-- * V1PodSchedulingGate + +-- | 'v1PodSchedulingGateName' Lens +v1PodSchedulingGateNameL :: Lens_' V1PodSchedulingGate (Text) +v1PodSchedulingGateNameL f V1PodSchedulingGate{..} = (\v1PodSchedulingGateName -> V1PodSchedulingGate { v1PodSchedulingGateName, ..} ) <$> f v1PodSchedulingGateName +{-# INLINE v1PodSchedulingGateNameL #-} + + + +-- * V1PodSecurityContext + +-- | 'v1PodSecurityContextFsGroup' Lens +v1PodSecurityContextFsGroupL :: Lens_' V1PodSecurityContext (Maybe Integer) +v1PodSecurityContextFsGroupL f V1PodSecurityContext{..} = (\v1PodSecurityContextFsGroup -> V1PodSecurityContext { v1PodSecurityContextFsGroup, ..} ) <$> f v1PodSecurityContextFsGroup +{-# INLINE v1PodSecurityContextFsGroupL #-} + +-- | 'v1PodSecurityContextFsGroupChangePolicy' Lens +v1PodSecurityContextFsGroupChangePolicyL :: Lens_' V1PodSecurityContext (Maybe Text) +v1PodSecurityContextFsGroupChangePolicyL f V1PodSecurityContext{..} = (\v1PodSecurityContextFsGroupChangePolicy -> V1PodSecurityContext { v1PodSecurityContextFsGroupChangePolicy, ..} ) <$> f v1PodSecurityContextFsGroupChangePolicy +{-# INLINE v1PodSecurityContextFsGroupChangePolicyL #-} + +-- | 'v1PodSecurityContextRunAsGroup' Lens +v1PodSecurityContextRunAsGroupL :: Lens_' V1PodSecurityContext (Maybe Integer) +v1PodSecurityContextRunAsGroupL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsGroup -> V1PodSecurityContext { v1PodSecurityContextRunAsGroup, ..} ) <$> f v1PodSecurityContextRunAsGroup +{-# INLINE v1PodSecurityContextRunAsGroupL #-} + +-- | 'v1PodSecurityContextRunAsNonRoot' Lens +v1PodSecurityContextRunAsNonRootL :: Lens_' V1PodSecurityContext (Maybe Bool) +v1PodSecurityContextRunAsNonRootL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsNonRoot -> V1PodSecurityContext { v1PodSecurityContextRunAsNonRoot, ..} ) <$> f v1PodSecurityContextRunAsNonRoot +{-# INLINE v1PodSecurityContextRunAsNonRootL #-} + +-- | 'v1PodSecurityContextRunAsUser' Lens +v1PodSecurityContextRunAsUserL :: Lens_' V1PodSecurityContext (Maybe Integer) +v1PodSecurityContextRunAsUserL f V1PodSecurityContext{..} = (\v1PodSecurityContextRunAsUser -> V1PodSecurityContext { v1PodSecurityContextRunAsUser, ..} ) <$> f v1PodSecurityContextRunAsUser +{-# INLINE v1PodSecurityContextRunAsUserL #-} + +-- | 'v1PodSecurityContextSeLinuxOptions' Lens +v1PodSecurityContextSeLinuxOptionsL :: Lens_' V1PodSecurityContext (Maybe V1SELinuxOptions) +v1PodSecurityContextSeLinuxOptionsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSeLinuxOptions -> V1PodSecurityContext { v1PodSecurityContextSeLinuxOptions, ..} ) <$> f v1PodSecurityContextSeLinuxOptions +{-# INLINE v1PodSecurityContextSeLinuxOptionsL #-} + +-- | 'v1PodSecurityContextSeccompProfile' Lens +v1PodSecurityContextSeccompProfileL :: Lens_' V1PodSecurityContext (Maybe V1SeccompProfile) +v1PodSecurityContextSeccompProfileL f V1PodSecurityContext{..} = (\v1PodSecurityContextSeccompProfile -> V1PodSecurityContext { v1PodSecurityContextSeccompProfile, ..} ) <$> f v1PodSecurityContextSeccompProfile +{-# INLINE v1PodSecurityContextSeccompProfileL #-} + +-- | 'v1PodSecurityContextSupplementalGroups' Lens +v1PodSecurityContextSupplementalGroupsL :: Lens_' V1PodSecurityContext (Maybe [Integer]) +v1PodSecurityContextSupplementalGroupsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSupplementalGroups -> V1PodSecurityContext { v1PodSecurityContextSupplementalGroups, ..} ) <$> f v1PodSecurityContextSupplementalGroups +{-# INLINE v1PodSecurityContextSupplementalGroupsL #-} + +-- | 'v1PodSecurityContextSysctls' Lens +v1PodSecurityContextSysctlsL :: Lens_' V1PodSecurityContext (Maybe [V1Sysctl]) +v1PodSecurityContextSysctlsL f V1PodSecurityContext{..} = (\v1PodSecurityContextSysctls -> V1PodSecurityContext { v1PodSecurityContextSysctls, ..} ) <$> f v1PodSecurityContextSysctls +{-# INLINE v1PodSecurityContextSysctlsL #-} + +-- | 'v1PodSecurityContextWindowsOptions' Lens +v1PodSecurityContextWindowsOptionsL :: Lens_' V1PodSecurityContext (Maybe V1WindowsSecurityContextOptions) +v1PodSecurityContextWindowsOptionsL f V1PodSecurityContext{..} = (\v1PodSecurityContextWindowsOptions -> V1PodSecurityContext { v1PodSecurityContextWindowsOptions, ..} ) <$> f v1PodSecurityContextWindowsOptions +{-# INLINE v1PodSecurityContextWindowsOptionsL #-} + + + +-- * V1PodSpec + +-- | 'v1PodSpecActiveDeadlineSeconds' Lens +v1PodSpecActiveDeadlineSecondsL :: Lens_' V1PodSpec (Maybe Integer) +v1PodSpecActiveDeadlineSecondsL f V1PodSpec{..} = (\v1PodSpecActiveDeadlineSeconds -> V1PodSpec { v1PodSpecActiveDeadlineSeconds, ..} ) <$> f v1PodSpecActiveDeadlineSeconds +{-# INLINE v1PodSpecActiveDeadlineSecondsL #-} + +-- | 'v1PodSpecAffinity' Lens +v1PodSpecAffinityL :: Lens_' V1PodSpec (Maybe V1Affinity) +v1PodSpecAffinityL f V1PodSpec{..} = (\v1PodSpecAffinity -> V1PodSpec { v1PodSpecAffinity, ..} ) <$> f v1PodSpecAffinity +{-# INLINE v1PodSpecAffinityL #-} + +-- | 'v1PodSpecAutomountServiceAccountToken' Lens +v1PodSpecAutomountServiceAccountTokenL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecAutomountServiceAccountTokenL f V1PodSpec{..} = (\v1PodSpecAutomountServiceAccountToken -> V1PodSpec { v1PodSpecAutomountServiceAccountToken, ..} ) <$> f v1PodSpecAutomountServiceAccountToken +{-# INLINE v1PodSpecAutomountServiceAccountTokenL #-} + +-- | 'v1PodSpecContainers' Lens +v1PodSpecContainersL :: Lens_' V1PodSpec ([V1Container]) +v1PodSpecContainersL f V1PodSpec{..} = (\v1PodSpecContainers -> V1PodSpec { v1PodSpecContainers, ..} ) <$> f v1PodSpecContainers +{-# INLINE v1PodSpecContainersL #-} + +-- | 'v1PodSpecDnsConfig' Lens +v1PodSpecDnsConfigL :: Lens_' V1PodSpec (Maybe V1PodDNSConfig) +v1PodSpecDnsConfigL f V1PodSpec{..} = (\v1PodSpecDnsConfig -> V1PodSpec { v1PodSpecDnsConfig, ..} ) <$> f v1PodSpecDnsConfig +{-# INLINE v1PodSpecDnsConfigL #-} + +-- | 'v1PodSpecDnsPolicy' Lens +v1PodSpecDnsPolicyL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecDnsPolicyL f V1PodSpec{..} = (\v1PodSpecDnsPolicy -> V1PodSpec { v1PodSpecDnsPolicy, ..} ) <$> f v1PodSpecDnsPolicy +{-# INLINE v1PodSpecDnsPolicyL #-} + +-- | 'v1PodSpecEnableServiceLinks' Lens +v1PodSpecEnableServiceLinksL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecEnableServiceLinksL f V1PodSpec{..} = (\v1PodSpecEnableServiceLinks -> V1PodSpec { v1PodSpecEnableServiceLinks, ..} ) <$> f v1PodSpecEnableServiceLinks +{-# INLINE v1PodSpecEnableServiceLinksL #-} + +-- | 'v1PodSpecEphemeralContainers' Lens +v1PodSpecEphemeralContainersL :: Lens_' V1PodSpec (Maybe [V1EphemeralContainer]) +v1PodSpecEphemeralContainersL f V1PodSpec{..} = (\v1PodSpecEphemeralContainers -> V1PodSpec { v1PodSpecEphemeralContainers, ..} ) <$> f v1PodSpecEphemeralContainers +{-# INLINE v1PodSpecEphemeralContainersL #-} + +-- | 'v1PodSpecHostAliases' Lens +v1PodSpecHostAliasesL :: Lens_' V1PodSpec (Maybe [V1HostAlias]) +v1PodSpecHostAliasesL f V1PodSpec{..} = (\v1PodSpecHostAliases -> V1PodSpec { v1PodSpecHostAliases, ..} ) <$> f v1PodSpecHostAliases +{-# INLINE v1PodSpecHostAliasesL #-} + +-- | 'v1PodSpecHostIpc' Lens +v1PodSpecHostIpcL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecHostIpcL f V1PodSpec{..} = (\v1PodSpecHostIpc -> V1PodSpec { v1PodSpecHostIpc, ..} ) <$> f v1PodSpecHostIpc +{-# INLINE v1PodSpecHostIpcL #-} + +-- | 'v1PodSpecHostNetwork' Lens +v1PodSpecHostNetworkL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecHostNetworkL f V1PodSpec{..} = (\v1PodSpecHostNetwork -> V1PodSpec { v1PodSpecHostNetwork, ..} ) <$> f v1PodSpecHostNetwork +{-# INLINE v1PodSpecHostNetworkL #-} + +-- | 'v1PodSpecHostPid' Lens +v1PodSpecHostPidL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecHostPidL f V1PodSpec{..} = (\v1PodSpecHostPid -> V1PodSpec { v1PodSpecHostPid, ..} ) <$> f v1PodSpecHostPid +{-# INLINE v1PodSpecHostPidL #-} + +-- | 'v1PodSpecHostUsers' Lens +v1PodSpecHostUsersL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecHostUsersL f V1PodSpec{..} = (\v1PodSpecHostUsers -> V1PodSpec { v1PodSpecHostUsers, ..} ) <$> f v1PodSpecHostUsers +{-# INLINE v1PodSpecHostUsersL #-} + +-- | 'v1PodSpecHostname' Lens +v1PodSpecHostnameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecHostnameL f V1PodSpec{..} = (\v1PodSpecHostname -> V1PodSpec { v1PodSpecHostname, ..} ) <$> f v1PodSpecHostname +{-# INLINE v1PodSpecHostnameL #-} + +-- | 'v1PodSpecImagePullSecrets' Lens +v1PodSpecImagePullSecretsL :: Lens_' V1PodSpec (Maybe [V1LocalObjectReference]) +v1PodSpecImagePullSecretsL f V1PodSpec{..} = (\v1PodSpecImagePullSecrets -> V1PodSpec { v1PodSpecImagePullSecrets, ..} ) <$> f v1PodSpecImagePullSecrets +{-# INLINE v1PodSpecImagePullSecretsL #-} + +-- | 'v1PodSpecInitContainers' Lens +v1PodSpecInitContainersL :: Lens_' V1PodSpec (Maybe [V1Container]) +v1PodSpecInitContainersL f V1PodSpec{..} = (\v1PodSpecInitContainers -> V1PodSpec { v1PodSpecInitContainers, ..} ) <$> f v1PodSpecInitContainers +{-# INLINE v1PodSpecInitContainersL #-} + +-- | 'v1PodSpecNodeName' Lens +v1PodSpecNodeNameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecNodeNameL f V1PodSpec{..} = (\v1PodSpecNodeName -> V1PodSpec { v1PodSpecNodeName, ..} ) <$> f v1PodSpecNodeName +{-# INLINE v1PodSpecNodeNameL #-} + +-- | 'v1PodSpecNodeSelector' Lens +v1PodSpecNodeSelectorL :: Lens_' V1PodSpec (Maybe (Map.Map String Text)) +v1PodSpecNodeSelectorL f V1PodSpec{..} = (\v1PodSpecNodeSelector -> V1PodSpec { v1PodSpecNodeSelector, ..} ) <$> f v1PodSpecNodeSelector +{-# INLINE v1PodSpecNodeSelectorL #-} + +-- | 'v1PodSpecOs' Lens +v1PodSpecOsL :: Lens_' V1PodSpec (Maybe V1PodOS) +v1PodSpecOsL f V1PodSpec{..} = (\v1PodSpecOs -> V1PodSpec { v1PodSpecOs, ..} ) <$> f v1PodSpecOs +{-# INLINE v1PodSpecOsL #-} + +-- | 'v1PodSpecOverhead' Lens +v1PodSpecOverheadL :: Lens_' V1PodSpec (Maybe (Map.Map String Quantity)) +v1PodSpecOverheadL f V1PodSpec{..} = (\v1PodSpecOverhead -> V1PodSpec { v1PodSpecOverhead, ..} ) <$> f v1PodSpecOverhead +{-# INLINE v1PodSpecOverheadL #-} + +-- | 'v1PodSpecPreemptionPolicy' Lens +v1PodSpecPreemptionPolicyL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecPreemptionPolicyL f V1PodSpec{..} = (\v1PodSpecPreemptionPolicy -> V1PodSpec { v1PodSpecPreemptionPolicy, ..} ) <$> f v1PodSpecPreemptionPolicy +{-# INLINE v1PodSpecPreemptionPolicyL #-} + +-- | 'v1PodSpecPriority' Lens +v1PodSpecPriorityL :: Lens_' V1PodSpec (Maybe Int) +v1PodSpecPriorityL f V1PodSpec{..} = (\v1PodSpecPriority -> V1PodSpec { v1PodSpecPriority, ..} ) <$> f v1PodSpecPriority +{-# INLINE v1PodSpecPriorityL #-} + +-- | 'v1PodSpecPriorityClassName' Lens +v1PodSpecPriorityClassNameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecPriorityClassNameL f V1PodSpec{..} = (\v1PodSpecPriorityClassName -> V1PodSpec { v1PodSpecPriorityClassName, ..} ) <$> f v1PodSpecPriorityClassName +{-# INLINE v1PodSpecPriorityClassNameL #-} + +-- | 'v1PodSpecReadinessGates' Lens +v1PodSpecReadinessGatesL :: Lens_' V1PodSpec (Maybe [V1PodReadinessGate]) +v1PodSpecReadinessGatesL f V1PodSpec{..} = (\v1PodSpecReadinessGates -> V1PodSpec { v1PodSpecReadinessGates, ..} ) <$> f v1PodSpecReadinessGates +{-# INLINE v1PodSpecReadinessGatesL #-} + +-- | 'v1PodSpecResourceClaims' Lens +v1PodSpecResourceClaimsL :: Lens_' V1PodSpec (Maybe [V1PodResourceClaim]) +v1PodSpecResourceClaimsL f V1PodSpec{..} = (\v1PodSpecResourceClaims -> V1PodSpec { v1PodSpecResourceClaims, ..} ) <$> f v1PodSpecResourceClaims +{-# INLINE v1PodSpecResourceClaimsL #-} + +-- | 'v1PodSpecRestartPolicy' Lens +v1PodSpecRestartPolicyL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecRestartPolicyL f V1PodSpec{..} = (\v1PodSpecRestartPolicy -> V1PodSpec { v1PodSpecRestartPolicy, ..} ) <$> f v1PodSpecRestartPolicy +{-# INLINE v1PodSpecRestartPolicyL #-} + +-- | 'v1PodSpecRuntimeClassName' Lens +v1PodSpecRuntimeClassNameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecRuntimeClassNameL f V1PodSpec{..} = (\v1PodSpecRuntimeClassName -> V1PodSpec { v1PodSpecRuntimeClassName, ..} ) <$> f v1PodSpecRuntimeClassName +{-# INLINE v1PodSpecRuntimeClassNameL #-} + +-- | 'v1PodSpecSchedulerName' Lens +v1PodSpecSchedulerNameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecSchedulerNameL f V1PodSpec{..} = (\v1PodSpecSchedulerName -> V1PodSpec { v1PodSpecSchedulerName, ..} ) <$> f v1PodSpecSchedulerName +{-# INLINE v1PodSpecSchedulerNameL #-} + +-- | 'v1PodSpecSchedulingGates' Lens +v1PodSpecSchedulingGatesL :: Lens_' V1PodSpec (Maybe [V1PodSchedulingGate]) +v1PodSpecSchedulingGatesL f V1PodSpec{..} = (\v1PodSpecSchedulingGates -> V1PodSpec { v1PodSpecSchedulingGates, ..} ) <$> f v1PodSpecSchedulingGates +{-# INLINE v1PodSpecSchedulingGatesL #-} + +-- | 'v1PodSpecSecurityContext' Lens +v1PodSpecSecurityContextL :: Lens_' V1PodSpec (Maybe V1PodSecurityContext) +v1PodSpecSecurityContextL f V1PodSpec{..} = (\v1PodSpecSecurityContext -> V1PodSpec { v1PodSpecSecurityContext, ..} ) <$> f v1PodSpecSecurityContext +{-# INLINE v1PodSpecSecurityContextL #-} + +-- | 'v1PodSpecServiceAccount' Lens +v1PodSpecServiceAccountL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecServiceAccountL f V1PodSpec{..} = (\v1PodSpecServiceAccount -> V1PodSpec { v1PodSpecServiceAccount, ..} ) <$> f v1PodSpecServiceAccount +{-# INLINE v1PodSpecServiceAccountL #-} + +-- | 'v1PodSpecServiceAccountName' Lens +v1PodSpecServiceAccountNameL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecServiceAccountNameL f V1PodSpec{..} = (\v1PodSpecServiceAccountName -> V1PodSpec { v1PodSpecServiceAccountName, ..} ) <$> f v1PodSpecServiceAccountName +{-# INLINE v1PodSpecServiceAccountNameL #-} + +-- | 'v1PodSpecSetHostnameAsFqdn' Lens +v1PodSpecSetHostnameAsFqdnL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecSetHostnameAsFqdnL f V1PodSpec{..} = (\v1PodSpecSetHostnameAsFqdn -> V1PodSpec { v1PodSpecSetHostnameAsFqdn, ..} ) <$> f v1PodSpecSetHostnameAsFqdn +{-# INLINE v1PodSpecSetHostnameAsFqdnL #-} + +-- | 'v1PodSpecShareProcessNamespace' Lens +v1PodSpecShareProcessNamespaceL :: Lens_' V1PodSpec (Maybe Bool) +v1PodSpecShareProcessNamespaceL f V1PodSpec{..} = (\v1PodSpecShareProcessNamespace -> V1PodSpec { v1PodSpecShareProcessNamespace, ..} ) <$> f v1PodSpecShareProcessNamespace +{-# INLINE v1PodSpecShareProcessNamespaceL #-} + +-- | 'v1PodSpecSubdomain' Lens +v1PodSpecSubdomainL :: Lens_' V1PodSpec (Maybe Text) +v1PodSpecSubdomainL f V1PodSpec{..} = (\v1PodSpecSubdomain -> V1PodSpec { v1PodSpecSubdomain, ..} ) <$> f v1PodSpecSubdomain +{-# INLINE v1PodSpecSubdomainL #-} + +-- | 'v1PodSpecTerminationGracePeriodSeconds' Lens +v1PodSpecTerminationGracePeriodSecondsL :: Lens_' V1PodSpec (Maybe Integer) +v1PodSpecTerminationGracePeriodSecondsL f V1PodSpec{..} = (\v1PodSpecTerminationGracePeriodSeconds -> V1PodSpec { v1PodSpecTerminationGracePeriodSeconds, ..} ) <$> f v1PodSpecTerminationGracePeriodSeconds +{-# INLINE v1PodSpecTerminationGracePeriodSecondsL #-} + +-- | 'v1PodSpecTolerations' Lens +v1PodSpecTolerationsL :: Lens_' V1PodSpec (Maybe [V1Toleration]) +v1PodSpecTolerationsL f V1PodSpec{..} = (\v1PodSpecTolerations -> V1PodSpec { v1PodSpecTolerations, ..} ) <$> f v1PodSpecTolerations +{-# INLINE v1PodSpecTolerationsL #-} + +-- | 'v1PodSpecTopologySpreadConstraints' Lens +v1PodSpecTopologySpreadConstraintsL :: Lens_' V1PodSpec (Maybe [V1TopologySpreadConstraint]) +v1PodSpecTopologySpreadConstraintsL f V1PodSpec{..} = (\v1PodSpecTopologySpreadConstraints -> V1PodSpec { v1PodSpecTopologySpreadConstraints, ..} ) <$> f v1PodSpecTopologySpreadConstraints +{-# INLINE v1PodSpecTopologySpreadConstraintsL #-} + +-- | 'v1PodSpecVolumes' Lens +v1PodSpecVolumesL :: Lens_' V1PodSpec (Maybe [V1Volume]) +v1PodSpecVolumesL f V1PodSpec{..} = (\v1PodSpecVolumes -> V1PodSpec { v1PodSpecVolumes, ..} ) <$> f v1PodSpecVolumes +{-# INLINE v1PodSpecVolumesL #-} + + + +-- * V1PodStatus + +-- | 'v1PodStatusConditions' Lens +v1PodStatusConditionsL :: Lens_' V1PodStatus (Maybe [V1PodCondition]) +v1PodStatusConditionsL f V1PodStatus{..} = (\v1PodStatusConditions -> V1PodStatus { v1PodStatusConditions, ..} ) <$> f v1PodStatusConditions +{-# INLINE v1PodStatusConditionsL #-} + +-- | 'v1PodStatusContainerStatuses' Lens +v1PodStatusContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) +v1PodStatusContainerStatusesL f V1PodStatus{..} = (\v1PodStatusContainerStatuses -> V1PodStatus { v1PodStatusContainerStatuses, ..} ) <$> f v1PodStatusContainerStatuses +{-# INLINE v1PodStatusContainerStatusesL #-} + +-- | 'v1PodStatusEphemeralContainerStatuses' Lens +v1PodStatusEphemeralContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) +v1PodStatusEphemeralContainerStatusesL f V1PodStatus{..} = (\v1PodStatusEphemeralContainerStatuses -> V1PodStatus { v1PodStatusEphemeralContainerStatuses, ..} ) <$> f v1PodStatusEphemeralContainerStatuses +{-# INLINE v1PodStatusEphemeralContainerStatusesL #-} + +-- | 'v1PodStatusHostIp' Lens +v1PodStatusHostIpL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusHostIpL f V1PodStatus{..} = (\v1PodStatusHostIp -> V1PodStatus { v1PodStatusHostIp, ..} ) <$> f v1PodStatusHostIp +{-# INLINE v1PodStatusHostIpL #-} + +-- | 'v1PodStatusInitContainerStatuses' Lens +v1PodStatusInitContainerStatusesL :: Lens_' V1PodStatus (Maybe [V1ContainerStatus]) +v1PodStatusInitContainerStatusesL f V1PodStatus{..} = (\v1PodStatusInitContainerStatuses -> V1PodStatus { v1PodStatusInitContainerStatuses, ..} ) <$> f v1PodStatusInitContainerStatuses +{-# INLINE v1PodStatusInitContainerStatusesL #-} + +-- | 'v1PodStatusMessage' Lens +v1PodStatusMessageL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusMessageL f V1PodStatus{..} = (\v1PodStatusMessage -> V1PodStatus { v1PodStatusMessage, ..} ) <$> f v1PodStatusMessage +{-# INLINE v1PodStatusMessageL #-} + +-- | 'v1PodStatusNominatedNodeName' Lens +v1PodStatusNominatedNodeNameL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusNominatedNodeNameL f V1PodStatus{..} = (\v1PodStatusNominatedNodeName -> V1PodStatus { v1PodStatusNominatedNodeName, ..} ) <$> f v1PodStatusNominatedNodeName +{-# INLINE v1PodStatusNominatedNodeNameL #-} + +-- | 'v1PodStatusPhase' Lens +v1PodStatusPhaseL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusPhaseL f V1PodStatus{..} = (\v1PodStatusPhase -> V1PodStatus { v1PodStatusPhase, ..} ) <$> f v1PodStatusPhase +{-# INLINE v1PodStatusPhaseL #-} + +-- | 'v1PodStatusPodIp' Lens +v1PodStatusPodIpL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusPodIpL f V1PodStatus{..} = (\v1PodStatusPodIp -> V1PodStatus { v1PodStatusPodIp, ..} ) <$> f v1PodStatusPodIp +{-# INLINE v1PodStatusPodIpL #-} + +-- | 'v1PodStatusPodIps' Lens +v1PodStatusPodIpsL :: Lens_' V1PodStatus (Maybe [V1PodIP]) +v1PodStatusPodIpsL f V1PodStatus{..} = (\v1PodStatusPodIps -> V1PodStatus { v1PodStatusPodIps, ..} ) <$> f v1PodStatusPodIps +{-# INLINE v1PodStatusPodIpsL #-} + +-- | 'v1PodStatusQosClass' Lens +v1PodStatusQosClassL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusQosClassL f V1PodStatus{..} = (\v1PodStatusQosClass -> V1PodStatus { v1PodStatusQosClass, ..} ) <$> f v1PodStatusQosClass +{-# INLINE v1PodStatusQosClassL #-} + +-- | 'v1PodStatusReason' Lens +v1PodStatusReasonL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusReasonL f V1PodStatus{..} = (\v1PodStatusReason -> V1PodStatus { v1PodStatusReason, ..} ) <$> f v1PodStatusReason +{-# INLINE v1PodStatusReasonL #-} + +-- | 'v1PodStatusResize' Lens +v1PodStatusResizeL :: Lens_' V1PodStatus (Maybe Text) +v1PodStatusResizeL f V1PodStatus{..} = (\v1PodStatusResize -> V1PodStatus { v1PodStatusResize, ..} ) <$> f v1PodStatusResize +{-# INLINE v1PodStatusResizeL #-} + +-- | 'v1PodStatusStartTime' Lens +v1PodStatusStartTimeL :: Lens_' V1PodStatus (Maybe DateTime) +v1PodStatusStartTimeL f V1PodStatus{..} = (\v1PodStatusStartTime -> V1PodStatus { v1PodStatusStartTime, ..} ) <$> f v1PodStatusStartTime +{-# INLINE v1PodStatusStartTimeL #-} + + + +-- * V1PodTemplate + +-- | 'v1PodTemplateApiVersion' Lens +v1PodTemplateApiVersionL :: Lens_' V1PodTemplate (Maybe Text) +v1PodTemplateApiVersionL f V1PodTemplate{..} = (\v1PodTemplateApiVersion -> V1PodTemplate { v1PodTemplateApiVersion, ..} ) <$> f v1PodTemplateApiVersion +{-# INLINE v1PodTemplateApiVersionL #-} + +-- | 'v1PodTemplateKind' Lens +v1PodTemplateKindL :: Lens_' V1PodTemplate (Maybe Text) +v1PodTemplateKindL f V1PodTemplate{..} = (\v1PodTemplateKind -> V1PodTemplate { v1PodTemplateKind, ..} ) <$> f v1PodTemplateKind +{-# INLINE v1PodTemplateKindL #-} + +-- | 'v1PodTemplateMetadata' Lens +v1PodTemplateMetadataL :: Lens_' V1PodTemplate (Maybe V1ObjectMeta) +v1PodTemplateMetadataL f V1PodTemplate{..} = (\v1PodTemplateMetadata -> V1PodTemplate { v1PodTemplateMetadata, ..} ) <$> f v1PodTemplateMetadata +{-# INLINE v1PodTemplateMetadataL #-} + +-- | 'v1PodTemplateTemplate' Lens +v1PodTemplateTemplateL :: Lens_' V1PodTemplate (Maybe V1PodTemplateSpec) +v1PodTemplateTemplateL f V1PodTemplate{..} = (\v1PodTemplateTemplate -> V1PodTemplate { v1PodTemplateTemplate, ..} ) <$> f v1PodTemplateTemplate +{-# INLINE v1PodTemplateTemplateL #-} + + + +-- * V1PodTemplateList + +-- | 'v1PodTemplateListApiVersion' Lens +v1PodTemplateListApiVersionL :: Lens_' V1PodTemplateList (Maybe Text) +v1PodTemplateListApiVersionL f V1PodTemplateList{..} = (\v1PodTemplateListApiVersion -> V1PodTemplateList { v1PodTemplateListApiVersion, ..} ) <$> f v1PodTemplateListApiVersion +{-# INLINE v1PodTemplateListApiVersionL #-} + +-- | 'v1PodTemplateListItems' Lens +v1PodTemplateListItemsL :: Lens_' V1PodTemplateList ([V1PodTemplate]) +v1PodTemplateListItemsL f V1PodTemplateList{..} = (\v1PodTemplateListItems -> V1PodTemplateList { v1PodTemplateListItems, ..} ) <$> f v1PodTemplateListItems +{-# INLINE v1PodTemplateListItemsL #-} + +-- | 'v1PodTemplateListKind' Lens +v1PodTemplateListKindL :: Lens_' V1PodTemplateList (Maybe Text) +v1PodTemplateListKindL f V1PodTemplateList{..} = (\v1PodTemplateListKind -> V1PodTemplateList { v1PodTemplateListKind, ..} ) <$> f v1PodTemplateListKind +{-# INLINE v1PodTemplateListKindL #-} + +-- | 'v1PodTemplateListMetadata' Lens +v1PodTemplateListMetadataL :: Lens_' V1PodTemplateList (Maybe V1ListMeta) +v1PodTemplateListMetadataL f V1PodTemplateList{..} = (\v1PodTemplateListMetadata -> V1PodTemplateList { v1PodTemplateListMetadata, ..} ) <$> f v1PodTemplateListMetadata +{-# INLINE v1PodTemplateListMetadataL #-} + + + +-- * V1PodTemplateSpec + +-- | 'v1PodTemplateSpecMetadata' Lens +v1PodTemplateSpecMetadataL :: Lens_' V1PodTemplateSpec (Maybe V1ObjectMeta) +v1PodTemplateSpecMetadataL f V1PodTemplateSpec{..} = (\v1PodTemplateSpecMetadata -> V1PodTemplateSpec { v1PodTemplateSpecMetadata, ..} ) <$> f v1PodTemplateSpecMetadata +{-# INLINE v1PodTemplateSpecMetadataL #-} + +-- | 'v1PodTemplateSpecSpec' Lens +v1PodTemplateSpecSpecL :: Lens_' V1PodTemplateSpec (Maybe V1PodSpec) +v1PodTemplateSpecSpecL f V1PodTemplateSpec{..} = (\v1PodTemplateSpecSpec -> V1PodTemplateSpec { v1PodTemplateSpecSpec, ..} ) <$> f v1PodTemplateSpecSpec +{-# INLINE v1PodTemplateSpecSpecL #-} + + + +-- * V1PolicyRule + +-- | 'v1PolicyRuleApiGroups' Lens +v1PolicyRuleApiGroupsL :: Lens_' V1PolicyRule (Maybe [Text]) +v1PolicyRuleApiGroupsL f V1PolicyRule{..} = (\v1PolicyRuleApiGroups -> V1PolicyRule { v1PolicyRuleApiGroups, ..} ) <$> f v1PolicyRuleApiGroups +{-# INLINE v1PolicyRuleApiGroupsL #-} + +-- | 'v1PolicyRuleNonResourceUrls' Lens +v1PolicyRuleNonResourceUrlsL :: Lens_' V1PolicyRule (Maybe [Text]) +v1PolicyRuleNonResourceUrlsL f V1PolicyRule{..} = (\v1PolicyRuleNonResourceUrls -> V1PolicyRule { v1PolicyRuleNonResourceUrls, ..} ) <$> f v1PolicyRuleNonResourceUrls +{-# INLINE v1PolicyRuleNonResourceUrlsL #-} + +-- | 'v1PolicyRuleResourceNames' Lens +v1PolicyRuleResourceNamesL :: Lens_' V1PolicyRule (Maybe [Text]) +v1PolicyRuleResourceNamesL f V1PolicyRule{..} = (\v1PolicyRuleResourceNames -> V1PolicyRule { v1PolicyRuleResourceNames, ..} ) <$> f v1PolicyRuleResourceNames +{-# INLINE v1PolicyRuleResourceNamesL #-} + +-- | 'v1PolicyRuleResources' Lens +v1PolicyRuleResourcesL :: Lens_' V1PolicyRule (Maybe [Text]) +v1PolicyRuleResourcesL f V1PolicyRule{..} = (\v1PolicyRuleResources -> V1PolicyRule { v1PolicyRuleResources, ..} ) <$> f v1PolicyRuleResources +{-# INLINE v1PolicyRuleResourcesL #-} + +-- | 'v1PolicyRuleVerbs' Lens +v1PolicyRuleVerbsL :: Lens_' V1PolicyRule ([Text]) +v1PolicyRuleVerbsL f V1PolicyRule{..} = (\v1PolicyRuleVerbs -> V1PolicyRule { v1PolicyRuleVerbs, ..} ) <$> f v1PolicyRuleVerbs +{-# INLINE v1PolicyRuleVerbsL #-} + + + +-- * V1PortStatus + +-- | 'v1PortStatusError' Lens +v1PortStatusErrorL :: Lens_' V1PortStatus (Maybe Text) +v1PortStatusErrorL f V1PortStatus{..} = (\v1PortStatusError -> V1PortStatus { v1PortStatusError, ..} ) <$> f v1PortStatusError +{-# INLINE v1PortStatusErrorL #-} + +-- | 'v1PortStatusPort' Lens +v1PortStatusPortL :: Lens_' V1PortStatus (Int) +v1PortStatusPortL f V1PortStatus{..} = (\v1PortStatusPort -> V1PortStatus { v1PortStatusPort, ..} ) <$> f v1PortStatusPort +{-# INLINE v1PortStatusPortL #-} + +-- | 'v1PortStatusProtocol' Lens +v1PortStatusProtocolL :: Lens_' V1PortStatus (Text) +v1PortStatusProtocolL f V1PortStatus{..} = (\v1PortStatusProtocol -> V1PortStatus { v1PortStatusProtocol, ..} ) <$> f v1PortStatusProtocol +{-# INLINE v1PortStatusProtocolL #-} + + + +-- * V1PortworxVolumeSource + +-- | 'v1PortworxVolumeSourceFsType' Lens +v1PortworxVolumeSourceFsTypeL :: Lens_' V1PortworxVolumeSource (Maybe Text) +v1PortworxVolumeSourceFsTypeL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceFsType -> V1PortworxVolumeSource { v1PortworxVolumeSourceFsType, ..} ) <$> f v1PortworxVolumeSourceFsType +{-# INLINE v1PortworxVolumeSourceFsTypeL #-} + +-- | 'v1PortworxVolumeSourceReadOnly' Lens +v1PortworxVolumeSourceReadOnlyL :: Lens_' V1PortworxVolumeSource (Maybe Bool) +v1PortworxVolumeSourceReadOnlyL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceReadOnly -> V1PortworxVolumeSource { v1PortworxVolumeSourceReadOnly, ..} ) <$> f v1PortworxVolumeSourceReadOnly +{-# INLINE v1PortworxVolumeSourceReadOnlyL #-} + +-- | 'v1PortworxVolumeSourceVolumeId' Lens +v1PortworxVolumeSourceVolumeIdL :: Lens_' V1PortworxVolumeSource (Text) +v1PortworxVolumeSourceVolumeIdL f V1PortworxVolumeSource{..} = (\v1PortworxVolumeSourceVolumeId -> V1PortworxVolumeSource { v1PortworxVolumeSourceVolumeId, ..} ) <$> f v1PortworxVolumeSourceVolumeId +{-# INLINE v1PortworxVolumeSourceVolumeIdL #-} + + + +-- * V1Preconditions + +-- | 'v1PreconditionsResourceVersion' Lens +v1PreconditionsResourceVersionL :: Lens_' V1Preconditions (Maybe Text) +v1PreconditionsResourceVersionL f V1Preconditions{..} = (\v1PreconditionsResourceVersion -> V1Preconditions { v1PreconditionsResourceVersion, ..} ) <$> f v1PreconditionsResourceVersion +{-# INLINE v1PreconditionsResourceVersionL #-} + +-- | 'v1PreconditionsUid' Lens +v1PreconditionsUidL :: Lens_' V1Preconditions (Maybe Text) +v1PreconditionsUidL f V1Preconditions{..} = (\v1PreconditionsUid -> V1Preconditions { v1PreconditionsUid, ..} ) <$> f v1PreconditionsUid +{-# INLINE v1PreconditionsUidL #-} + + + +-- * V1PreferredSchedulingTerm + +-- | 'v1PreferredSchedulingTermPreference' Lens +v1PreferredSchedulingTermPreferenceL :: Lens_' V1PreferredSchedulingTerm (V1NodeSelectorTerm) +v1PreferredSchedulingTermPreferenceL f V1PreferredSchedulingTerm{..} = (\v1PreferredSchedulingTermPreference -> V1PreferredSchedulingTerm { v1PreferredSchedulingTermPreference, ..} ) <$> f v1PreferredSchedulingTermPreference +{-# INLINE v1PreferredSchedulingTermPreferenceL #-} + +-- | 'v1PreferredSchedulingTermWeight' Lens +v1PreferredSchedulingTermWeightL :: Lens_' V1PreferredSchedulingTerm (Int) +v1PreferredSchedulingTermWeightL f V1PreferredSchedulingTerm{..} = (\v1PreferredSchedulingTermWeight -> V1PreferredSchedulingTerm { v1PreferredSchedulingTermWeight, ..} ) <$> f v1PreferredSchedulingTermWeight +{-# INLINE v1PreferredSchedulingTermWeightL #-} + + + +-- * V1PriorityClass + +-- | 'v1PriorityClassApiVersion' Lens +v1PriorityClassApiVersionL :: Lens_' V1PriorityClass (Maybe Text) +v1PriorityClassApiVersionL f V1PriorityClass{..} = (\v1PriorityClassApiVersion -> V1PriorityClass { v1PriorityClassApiVersion, ..} ) <$> f v1PriorityClassApiVersion +{-# INLINE v1PriorityClassApiVersionL #-} + +-- | 'v1PriorityClassDescription' Lens +v1PriorityClassDescriptionL :: Lens_' V1PriorityClass (Maybe Text) +v1PriorityClassDescriptionL f V1PriorityClass{..} = (\v1PriorityClassDescription -> V1PriorityClass { v1PriorityClassDescription, ..} ) <$> f v1PriorityClassDescription +{-# INLINE v1PriorityClassDescriptionL #-} + +-- | 'v1PriorityClassGlobalDefault' Lens +v1PriorityClassGlobalDefaultL :: Lens_' V1PriorityClass (Maybe Bool) +v1PriorityClassGlobalDefaultL f V1PriorityClass{..} = (\v1PriorityClassGlobalDefault -> V1PriorityClass { v1PriorityClassGlobalDefault, ..} ) <$> f v1PriorityClassGlobalDefault +{-# INLINE v1PriorityClassGlobalDefaultL #-} + +-- | 'v1PriorityClassKind' Lens +v1PriorityClassKindL :: Lens_' V1PriorityClass (Maybe Text) +v1PriorityClassKindL f V1PriorityClass{..} = (\v1PriorityClassKind -> V1PriorityClass { v1PriorityClassKind, ..} ) <$> f v1PriorityClassKind +{-# INLINE v1PriorityClassKindL #-} + +-- | 'v1PriorityClassMetadata' Lens +v1PriorityClassMetadataL :: Lens_' V1PriorityClass (Maybe V1ObjectMeta) +v1PriorityClassMetadataL f V1PriorityClass{..} = (\v1PriorityClassMetadata -> V1PriorityClass { v1PriorityClassMetadata, ..} ) <$> f v1PriorityClassMetadata +{-# INLINE v1PriorityClassMetadataL #-} + +-- | 'v1PriorityClassPreemptionPolicy' Lens +v1PriorityClassPreemptionPolicyL :: Lens_' V1PriorityClass (Maybe Text) +v1PriorityClassPreemptionPolicyL f V1PriorityClass{..} = (\v1PriorityClassPreemptionPolicy -> V1PriorityClass { v1PriorityClassPreemptionPolicy, ..} ) <$> f v1PriorityClassPreemptionPolicy +{-# INLINE v1PriorityClassPreemptionPolicyL #-} + +-- | 'v1PriorityClassValue' Lens +v1PriorityClassValueL :: Lens_' V1PriorityClass (Int) +v1PriorityClassValueL f V1PriorityClass{..} = (\v1PriorityClassValue -> V1PriorityClass { v1PriorityClassValue, ..} ) <$> f v1PriorityClassValue +{-# INLINE v1PriorityClassValueL #-} + + + +-- * V1PriorityClassList + +-- | 'v1PriorityClassListApiVersion' Lens +v1PriorityClassListApiVersionL :: Lens_' V1PriorityClassList (Maybe Text) +v1PriorityClassListApiVersionL f V1PriorityClassList{..} = (\v1PriorityClassListApiVersion -> V1PriorityClassList { v1PriorityClassListApiVersion, ..} ) <$> f v1PriorityClassListApiVersion +{-# INLINE v1PriorityClassListApiVersionL #-} + +-- | 'v1PriorityClassListItems' Lens +v1PriorityClassListItemsL :: Lens_' V1PriorityClassList ([V1PriorityClass]) +v1PriorityClassListItemsL f V1PriorityClassList{..} = (\v1PriorityClassListItems -> V1PriorityClassList { v1PriorityClassListItems, ..} ) <$> f v1PriorityClassListItems +{-# INLINE v1PriorityClassListItemsL #-} + +-- | 'v1PriorityClassListKind' Lens +v1PriorityClassListKindL :: Lens_' V1PriorityClassList (Maybe Text) +v1PriorityClassListKindL f V1PriorityClassList{..} = (\v1PriorityClassListKind -> V1PriorityClassList { v1PriorityClassListKind, ..} ) <$> f v1PriorityClassListKind +{-# INLINE v1PriorityClassListKindL #-} + +-- | 'v1PriorityClassListMetadata' Lens +v1PriorityClassListMetadataL :: Lens_' V1PriorityClassList (Maybe V1ListMeta) +v1PriorityClassListMetadataL f V1PriorityClassList{..} = (\v1PriorityClassListMetadata -> V1PriorityClassList { v1PriorityClassListMetadata, ..} ) <$> f v1PriorityClassListMetadata +{-# INLINE v1PriorityClassListMetadataL #-} + + + +-- * V1Probe + +-- | 'v1ProbeExec' Lens +v1ProbeExecL :: Lens_' V1Probe (Maybe V1ExecAction) +v1ProbeExecL f V1Probe{..} = (\v1ProbeExec -> V1Probe { v1ProbeExec, ..} ) <$> f v1ProbeExec +{-# INLINE v1ProbeExecL #-} + +-- | 'v1ProbeFailureThreshold' Lens +v1ProbeFailureThresholdL :: Lens_' V1Probe (Maybe Int) +v1ProbeFailureThresholdL f V1Probe{..} = (\v1ProbeFailureThreshold -> V1Probe { v1ProbeFailureThreshold, ..} ) <$> f v1ProbeFailureThreshold +{-# INLINE v1ProbeFailureThresholdL #-} + +-- | 'v1ProbeGrpc' Lens +v1ProbeGrpcL :: Lens_' V1Probe (Maybe V1GRPCAction) +v1ProbeGrpcL f V1Probe{..} = (\v1ProbeGrpc -> V1Probe { v1ProbeGrpc, ..} ) <$> f v1ProbeGrpc +{-# INLINE v1ProbeGrpcL #-} + +-- | 'v1ProbeHttpGet' Lens +v1ProbeHttpGetL :: Lens_' V1Probe (Maybe V1HTTPGetAction) +v1ProbeHttpGetL f V1Probe{..} = (\v1ProbeHttpGet -> V1Probe { v1ProbeHttpGet, ..} ) <$> f v1ProbeHttpGet +{-# INLINE v1ProbeHttpGetL #-} + +-- | 'v1ProbeInitialDelaySeconds' Lens +v1ProbeInitialDelaySecondsL :: Lens_' V1Probe (Maybe Int) +v1ProbeInitialDelaySecondsL f V1Probe{..} = (\v1ProbeInitialDelaySeconds -> V1Probe { v1ProbeInitialDelaySeconds, ..} ) <$> f v1ProbeInitialDelaySeconds +{-# INLINE v1ProbeInitialDelaySecondsL #-} + +-- | 'v1ProbePeriodSeconds' Lens +v1ProbePeriodSecondsL :: Lens_' V1Probe (Maybe Int) +v1ProbePeriodSecondsL f V1Probe{..} = (\v1ProbePeriodSeconds -> V1Probe { v1ProbePeriodSeconds, ..} ) <$> f v1ProbePeriodSeconds +{-# INLINE v1ProbePeriodSecondsL #-} + +-- | 'v1ProbeSuccessThreshold' Lens +v1ProbeSuccessThresholdL :: Lens_' V1Probe (Maybe Int) +v1ProbeSuccessThresholdL f V1Probe{..} = (\v1ProbeSuccessThreshold -> V1Probe { v1ProbeSuccessThreshold, ..} ) <$> f v1ProbeSuccessThreshold +{-# INLINE v1ProbeSuccessThresholdL #-} + +-- | 'v1ProbeTcpSocket' Lens +v1ProbeTcpSocketL :: Lens_' V1Probe (Maybe V1TCPSocketAction) +v1ProbeTcpSocketL f V1Probe{..} = (\v1ProbeTcpSocket -> V1Probe { v1ProbeTcpSocket, ..} ) <$> f v1ProbeTcpSocket +{-# INLINE v1ProbeTcpSocketL #-} + +-- | 'v1ProbeTerminationGracePeriodSeconds' Lens +v1ProbeTerminationGracePeriodSecondsL :: Lens_' V1Probe (Maybe Integer) +v1ProbeTerminationGracePeriodSecondsL f V1Probe{..} = (\v1ProbeTerminationGracePeriodSeconds -> V1Probe { v1ProbeTerminationGracePeriodSeconds, ..} ) <$> f v1ProbeTerminationGracePeriodSeconds +{-# INLINE v1ProbeTerminationGracePeriodSecondsL #-} + +-- | 'v1ProbeTimeoutSeconds' Lens +v1ProbeTimeoutSecondsL :: Lens_' V1Probe (Maybe Int) +v1ProbeTimeoutSecondsL f V1Probe{..} = (\v1ProbeTimeoutSeconds -> V1Probe { v1ProbeTimeoutSeconds, ..} ) <$> f v1ProbeTimeoutSeconds +{-# INLINE v1ProbeTimeoutSecondsL #-} + + + +-- * V1ProjectedVolumeSource + +-- | 'v1ProjectedVolumeSourceDefaultMode' Lens +v1ProjectedVolumeSourceDefaultModeL :: Lens_' V1ProjectedVolumeSource (Maybe Int) +v1ProjectedVolumeSourceDefaultModeL f V1ProjectedVolumeSource{..} = (\v1ProjectedVolumeSourceDefaultMode -> V1ProjectedVolumeSource { v1ProjectedVolumeSourceDefaultMode, ..} ) <$> f v1ProjectedVolumeSourceDefaultMode +{-# INLINE v1ProjectedVolumeSourceDefaultModeL #-} + +-- | 'v1ProjectedVolumeSourceSources' Lens +v1ProjectedVolumeSourceSourcesL :: Lens_' V1ProjectedVolumeSource (Maybe [V1VolumeProjection]) +v1ProjectedVolumeSourceSourcesL f V1ProjectedVolumeSource{..} = (\v1ProjectedVolumeSourceSources -> V1ProjectedVolumeSource { v1ProjectedVolumeSourceSources, ..} ) <$> f v1ProjectedVolumeSourceSources +{-# INLINE v1ProjectedVolumeSourceSourcesL #-} + + + +-- * V1QuobyteVolumeSource + +-- | 'v1QuobyteVolumeSourceGroup' Lens +v1QuobyteVolumeSourceGroupL :: Lens_' V1QuobyteVolumeSource (Maybe Text) +v1QuobyteVolumeSourceGroupL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceGroup -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceGroup, ..} ) <$> f v1QuobyteVolumeSourceGroup +{-# INLINE v1QuobyteVolumeSourceGroupL #-} + +-- | 'v1QuobyteVolumeSourceReadOnly' Lens +v1QuobyteVolumeSourceReadOnlyL :: Lens_' V1QuobyteVolumeSource (Maybe Bool) +v1QuobyteVolumeSourceReadOnlyL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceReadOnly -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceReadOnly, ..} ) <$> f v1QuobyteVolumeSourceReadOnly +{-# INLINE v1QuobyteVolumeSourceReadOnlyL #-} + +-- | 'v1QuobyteVolumeSourceRegistry' Lens +v1QuobyteVolumeSourceRegistryL :: Lens_' V1QuobyteVolumeSource (Text) +v1QuobyteVolumeSourceRegistryL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceRegistry -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceRegistry, ..} ) <$> f v1QuobyteVolumeSourceRegistry +{-# INLINE v1QuobyteVolumeSourceRegistryL #-} + +-- | 'v1QuobyteVolumeSourceTenant' Lens +v1QuobyteVolumeSourceTenantL :: Lens_' V1QuobyteVolumeSource (Maybe Text) +v1QuobyteVolumeSourceTenantL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceTenant -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceTenant, ..} ) <$> f v1QuobyteVolumeSourceTenant +{-# INLINE v1QuobyteVolumeSourceTenantL #-} + +-- | 'v1QuobyteVolumeSourceUser' Lens +v1QuobyteVolumeSourceUserL :: Lens_' V1QuobyteVolumeSource (Maybe Text) +v1QuobyteVolumeSourceUserL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceUser -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceUser, ..} ) <$> f v1QuobyteVolumeSourceUser +{-# INLINE v1QuobyteVolumeSourceUserL #-} + +-- | 'v1QuobyteVolumeSourceVolume' Lens +v1QuobyteVolumeSourceVolumeL :: Lens_' V1QuobyteVolumeSource (Text) +v1QuobyteVolumeSourceVolumeL f V1QuobyteVolumeSource{..} = (\v1QuobyteVolumeSourceVolume -> V1QuobyteVolumeSource { v1QuobyteVolumeSourceVolume, ..} ) <$> f v1QuobyteVolumeSourceVolume +{-# INLINE v1QuobyteVolumeSourceVolumeL #-} + + + +-- * V1RBDPersistentVolumeSource + +-- | 'v1RBDPersistentVolumeSourceFsType' Lens +v1RBDPersistentVolumeSourceFsTypeL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) +v1RBDPersistentVolumeSourceFsTypeL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceFsType -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceFsType, ..} ) <$> f v1RBDPersistentVolumeSourceFsType +{-# INLINE v1RBDPersistentVolumeSourceFsTypeL #-} + +-- | 'v1RBDPersistentVolumeSourceImage' Lens +v1RBDPersistentVolumeSourceImageL :: Lens_' V1RBDPersistentVolumeSource (Text) +v1RBDPersistentVolumeSourceImageL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceImage -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceImage, ..} ) <$> f v1RBDPersistentVolumeSourceImage +{-# INLINE v1RBDPersistentVolumeSourceImageL #-} + +-- | 'v1RBDPersistentVolumeSourceKeyring' Lens +v1RBDPersistentVolumeSourceKeyringL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) +v1RBDPersistentVolumeSourceKeyringL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceKeyring -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceKeyring, ..} ) <$> f v1RBDPersistentVolumeSourceKeyring +{-# INLINE v1RBDPersistentVolumeSourceKeyringL #-} + +-- | 'v1RBDPersistentVolumeSourceMonitors' Lens +v1RBDPersistentVolumeSourceMonitorsL :: Lens_' V1RBDPersistentVolumeSource ([Text]) +v1RBDPersistentVolumeSourceMonitorsL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceMonitors -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceMonitors, ..} ) <$> f v1RBDPersistentVolumeSourceMonitors +{-# INLINE v1RBDPersistentVolumeSourceMonitorsL #-} + +-- | 'v1RBDPersistentVolumeSourcePool' Lens +v1RBDPersistentVolumeSourcePoolL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) +v1RBDPersistentVolumeSourcePoolL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourcePool -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourcePool, ..} ) <$> f v1RBDPersistentVolumeSourcePool +{-# INLINE v1RBDPersistentVolumeSourcePoolL #-} + +-- | 'v1RBDPersistentVolumeSourceReadOnly' Lens +v1RBDPersistentVolumeSourceReadOnlyL :: Lens_' V1RBDPersistentVolumeSource (Maybe Bool) +v1RBDPersistentVolumeSourceReadOnlyL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceReadOnly -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceReadOnly, ..} ) <$> f v1RBDPersistentVolumeSourceReadOnly +{-# INLINE v1RBDPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1RBDPersistentVolumeSourceSecretRef' Lens +v1RBDPersistentVolumeSourceSecretRefL :: Lens_' V1RBDPersistentVolumeSource (Maybe V1SecretReference) +v1RBDPersistentVolumeSourceSecretRefL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceSecretRef -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceSecretRef, ..} ) <$> f v1RBDPersistentVolumeSourceSecretRef +{-# INLINE v1RBDPersistentVolumeSourceSecretRefL #-} + +-- | 'v1RBDPersistentVolumeSourceUser' Lens +v1RBDPersistentVolumeSourceUserL :: Lens_' V1RBDPersistentVolumeSource (Maybe Text) +v1RBDPersistentVolumeSourceUserL f V1RBDPersistentVolumeSource{..} = (\v1RBDPersistentVolumeSourceUser -> V1RBDPersistentVolumeSource { v1RBDPersistentVolumeSourceUser, ..} ) <$> f v1RBDPersistentVolumeSourceUser +{-# INLINE v1RBDPersistentVolumeSourceUserL #-} + + + +-- * V1RBDVolumeSource + +-- | 'v1RBDVolumeSourceFsType' Lens +v1RBDVolumeSourceFsTypeL :: Lens_' V1RBDVolumeSource (Maybe Text) +v1RBDVolumeSourceFsTypeL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceFsType -> V1RBDVolumeSource { v1RBDVolumeSourceFsType, ..} ) <$> f v1RBDVolumeSourceFsType +{-# INLINE v1RBDVolumeSourceFsTypeL #-} + +-- | 'v1RBDVolumeSourceImage' Lens +v1RBDVolumeSourceImageL :: Lens_' V1RBDVolumeSource (Text) +v1RBDVolumeSourceImageL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceImage -> V1RBDVolumeSource { v1RBDVolumeSourceImage, ..} ) <$> f v1RBDVolumeSourceImage +{-# INLINE v1RBDVolumeSourceImageL #-} + +-- | 'v1RBDVolumeSourceKeyring' Lens +v1RBDVolumeSourceKeyringL :: Lens_' V1RBDVolumeSource (Maybe Text) +v1RBDVolumeSourceKeyringL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceKeyring -> V1RBDVolumeSource { v1RBDVolumeSourceKeyring, ..} ) <$> f v1RBDVolumeSourceKeyring +{-# INLINE v1RBDVolumeSourceKeyringL #-} + +-- | 'v1RBDVolumeSourceMonitors' Lens +v1RBDVolumeSourceMonitorsL :: Lens_' V1RBDVolumeSource ([Text]) +v1RBDVolumeSourceMonitorsL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceMonitors -> V1RBDVolumeSource { v1RBDVolumeSourceMonitors, ..} ) <$> f v1RBDVolumeSourceMonitors +{-# INLINE v1RBDVolumeSourceMonitorsL #-} + +-- | 'v1RBDVolumeSourcePool' Lens +v1RBDVolumeSourcePoolL :: Lens_' V1RBDVolumeSource (Maybe Text) +v1RBDVolumeSourcePoolL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourcePool -> V1RBDVolumeSource { v1RBDVolumeSourcePool, ..} ) <$> f v1RBDVolumeSourcePool +{-# INLINE v1RBDVolumeSourcePoolL #-} + +-- | 'v1RBDVolumeSourceReadOnly' Lens +v1RBDVolumeSourceReadOnlyL :: Lens_' V1RBDVolumeSource (Maybe Bool) +v1RBDVolumeSourceReadOnlyL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceReadOnly -> V1RBDVolumeSource { v1RBDVolumeSourceReadOnly, ..} ) <$> f v1RBDVolumeSourceReadOnly +{-# INLINE v1RBDVolumeSourceReadOnlyL #-} + +-- | 'v1RBDVolumeSourceSecretRef' Lens +v1RBDVolumeSourceSecretRefL :: Lens_' V1RBDVolumeSource (Maybe V1LocalObjectReference) +v1RBDVolumeSourceSecretRefL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceSecretRef -> V1RBDVolumeSource { v1RBDVolumeSourceSecretRef, ..} ) <$> f v1RBDVolumeSourceSecretRef +{-# INLINE v1RBDVolumeSourceSecretRefL #-} + +-- | 'v1RBDVolumeSourceUser' Lens +v1RBDVolumeSourceUserL :: Lens_' V1RBDVolumeSource (Maybe Text) +v1RBDVolumeSourceUserL f V1RBDVolumeSource{..} = (\v1RBDVolumeSourceUser -> V1RBDVolumeSource { v1RBDVolumeSourceUser, ..} ) <$> f v1RBDVolumeSourceUser +{-# INLINE v1RBDVolumeSourceUserL #-} + + + +-- * V1ReplicaSet + +-- | 'v1ReplicaSetApiVersion' Lens +v1ReplicaSetApiVersionL :: Lens_' V1ReplicaSet (Maybe Text) +v1ReplicaSetApiVersionL f V1ReplicaSet{..} = (\v1ReplicaSetApiVersion -> V1ReplicaSet { v1ReplicaSetApiVersion, ..} ) <$> f v1ReplicaSetApiVersion +{-# INLINE v1ReplicaSetApiVersionL #-} + +-- | 'v1ReplicaSetKind' Lens +v1ReplicaSetKindL :: Lens_' V1ReplicaSet (Maybe Text) +v1ReplicaSetKindL f V1ReplicaSet{..} = (\v1ReplicaSetKind -> V1ReplicaSet { v1ReplicaSetKind, ..} ) <$> f v1ReplicaSetKind +{-# INLINE v1ReplicaSetKindL #-} + +-- | 'v1ReplicaSetMetadata' Lens +v1ReplicaSetMetadataL :: Lens_' V1ReplicaSet (Maybe V1ObjectMeta) +v1ReplicaSetMetadataL f V1ReplicaSet{..} = (\v1ReplicaSetMetadata -> V1ReplicaSet { v1ReplicaSetMetadata, ..} ) <$> f v1ReplicaSetMetadata +{-# INLINE v1ReplicaSetMetadataL #-} + +-- | 'v1ReplicaSetSpec' Lens +v1ReplicaSetSpecL :: Lens_' V1ReplicaSet (Maybe V1ReplicaSetSpec) +v1ReplicaSetSpecL f V1ReplicaSet{..} = (\v1ReplicaSetSpec -> V1ReplicaSet { v1ReplicaSetSpec, ..} ) <$> f v1ReplicaSetSpec +{-# INLINE v1ReplicaSetSpecL #-} + +-- | 'v1ReplicaSetStatus' Lens +v1ReplicaSetStatusL :: Lens_' V1ReplicaSet (Maybe V1ReplicaSetStatus) +v1ReplicaSetStatusL f V1ReplicaSet{..} = (\v1ReplicaSetStatus -> V1ReplicaSet { v1ReplicaSetStatus, ..} ) <$> f v1ReplicaSetStatus +{-# INLINE v1ReplicaSetStatusL #-} + + + +-- * V1ReplicaSetCondition + +-- | 'v1ReplicaSetConditionLastTransitionTime' Lens +v1ReplicaSetConditionLastTransitionTimeL :: Lens_' V1ReplicaSetCondition (Maybe DateTime) +v1ReplicaSetConditionLastTransitionTimeL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionLastTransitionTime -> V1ReplicaSetCondition { v1ReplicaSetConditionLastTransitionTime, ..} ) <$> f v1ReplicaSetConditionLastTransitionTime +{-# INLINE v1ReplicaSetConditionLastTransitionTimeL #-} + +-- | 'v1ReplicaSetConditionMessage' Lens +v1ReplicaSetConditionMessageL :: Lens_' V1ReplicaSetCondition (Maybe Text) +v1ReplicaSetConditionMessageL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionMessage -> V1ReplicaSetCondition { v1ReplicaSetConditionMessage, ..} ) <$> f v1ReplicaSetConditionMessage +{-# INLINE v1ReplicaSetConditionMessageL #-} + +-- | 'v1ReplicaSetConditionReason' Lens +v1ReplicaSetConditionReasonL :: Lens_' V1ReplicaSetCondition (Maybe Text) +v1ReplicaSetConditionReasonL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionReason -> V1ReplicaSetCondition { v1ReplicaSetConditionReason, ..} ) <$> f v1ReplicaSetConditionReason +{-# INLINE v1ReplicaSetConditionReasonL #-} + +-- | 'v1ReplicaSetConditionStatus' Lens +v1ReplicaSetConditionStatusL :: Lens_' V1ReplicaSetCondition (Text) +v1ReplicaSetConditionStatusL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionStatus -> V1ReplicaSetCondition { v1ReplicaSetConditionStatus, ..} ) <$> f v1ReplicaSetConditionStatus +{-# INLINE v1ReplicaSetConditionStatusL #-} + +-- | 'v1ReplicaSetConditionType' Lens +v1ReplicaSetConditionTypeL :: Lens_' V1ReplicaSetCondition (Text) +v1ReplicaSetConditionTypeL f V1ReplicaSetCondition{..} = (\v1ReplicaSetConditionType -> V1ReplicaSetCondition { v1ReplicaSetConditionType, ..} ) <$> f v1ReplicaSetConditionType +{-# INLINE v1ReplicaSetConditionTypeL #-} + + + +-- * V1ReplicaSetList + +-- | 'v1ReplicaSetListApiVersion' Lens +v1ReplicaSetListApiVersionL :: Lens_' V1ReplicaSetList (Maybe Text) +v1ReplicaSetListApiVersionL f V1ReplicaSetList{..} = (\v1ReplicaSetListApiVersion -> V1ReplicaSetList { v1ReplicaSetListApiVersion, ..} ) <$> f v1ReplicaSetListApiVersion +{-# INLINE v1ReplicaSetListApiVersionL #-} + +-- | 'v1ReplicaSetListItems' Lens +v1ReplicaSetListItemsL :: Lens_' V1ReplicaSetList ([V1ReplicaSet]) +v1ReplicaSetListItemsL f V1ReplicaSetList{..} = (\v1ReplicaSetListItems -> V1ReplicaSetList { v1ReplicaSetListItems, ..} ) <$> f v1ReplicaSetListItems +{-# INLINE v1ReplicaSetListItemsL #-} + +-- | 'v1ReplicaSetListKind' Lens +v1ReplicaSetListKindL :: Lens_' V1ReplicaSetList (Maybe Text) +v1ReplicaSetListKindL f V1ReplicaSetList{..} = (\v1ReplicaSetListKind -> V1ReplicaSetList { v1ReplicaSetListKind, ..} ) <$> f v1ReplicaSetListKind +{-# INLINE v1ReplicaSetListKindL #-} + +-- | 'v1ReplicaSetListMetadata' Lens +v1ReplicaSetListMetadataL :: Lens_' V1ReplicaSetList (Maybe V1ListMeta) +v1ReplicaSetListMetadataL f V1ReplicaSetList{..} = (\v1ReplicaSetListMetadata -> V1ReplicaSetList { v1ReplicaSetListMetadata, ..} ) <$> f v1ReplicaSetListMetadata +{-# INLINE v1ReplicaSetListMetadataL #-} + + + +-- * V1ReplicaSetSpec + +-- | 'v1ReplicaSetSpecMinReadySeconds' Lens +v1ReplicaSetSpecMinReadySecondsL :: Lens_' V1ReplicaSetSpec (Maybe Int) +v1ReplicaSetSpecMinReadySecondsL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecMinReadySeconds -> V1ReplicaSetSpec { v1ReplicaSetSpecMinReadySeconds, ..} ) <$> f v1ReplicaSetSpecMinReadySeconds +{-# INLINE v1ReplicaSetSpecMinReadySecondsL #-} + +-- | 'v1ReplicaSetSpecReplicas' Lens +v1ReplicaSetSpecReplicasL :: Lens_' V1ReplicaSetSpec (Maybe Int) +v1ReplicaSetSpecReplicasL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecReplicas -> V1ReplicaSetSpec { v1ReplicaSetSpecReplicas, ..} ) <$> f v1ReplicaSetSpecReplicas +{-# INLINE v1ReplicaSetSpecReplicasL #-} + +-- | 'v1ReplicaSetSpecSelector' Lens +v1ReplicaSetSpecSelectorL :: Lens_' V1ReplicaSetSpec (V1LabelSelector) +v1ReplicaSetSpecSelectorL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecSelector -> V1ReplicaSetSpec { v1ReplicaSetSpecSelector, ..} ) <$> f v1ReplicaSetSpecSelector +{-# INLINE v1ReplicaSetSpecSelectorL #-} + +-- | 'v1ReplicaSetSpecTemplate' Lens +v1ReplicaSetSpecTemplateL :: Lens_' V1ReplicaSetSpec (Maybe V1PodTemplateSpec) +v1ReplicaSetSpecTemplateL f V1ReplicaSetSpec{..} = (\v1ReplicaSetSpecTemplate -> V1ReplicaSetSpec { v1ReplicaSetSpecTemplate, ..} ) <$> f v1ReplicaSetSpecTemplate +{-# INLINE v1ReplicaSetSpecTemplateL #-} + + + +-- * V1ReplicaSetStatus + +-- | 'v1ReplicaSetStatusAvailableReplicas' Lens +v1ReplicaSetStatusAvailableReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) +v1ReplicaSetStatusAvailableReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusAvailableReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusAvailableReplicas, ..} ) <$> f v1ReplicaSetStatusAvailableReplicas +{-# INLINE v1ReplicaSetStatusAvailableReplicasL #-} + +-- | 'v1ReplicaSetStatusConditions' Lens +v1ReplicaSetStatusConditionsL :: Lens_' V1ReplicaSetStatus (Maybe [V1ReplicaSetCondition]) +v1ReplicaSetStatusConditionsL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusConditions -> V1ReplicaSetStatus { v1ReplicaSetStatusConditions, ..} ) <$> f v1ReplicaSetStatusConditions +{-# INLINE v1ReplicaSetStatusConditionsL #-} + +-- | 'v1ReplicaSetStatusFullyLabeledReplicas' Lens +v1ReplicaSetStatusFullyLabeledReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) +v1ReplicaSetStatusFullyLabeledReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusFullyLabeledReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusFullyLabeledReplicas, ..} ) <$> f v1ReplicaSetStatusFullyLabeledReplicas +{-# INLINE v1ReplicaSetStatusFullyLabeledReplicasL #-} + +-- | 'v1ReplicaSetStatusObservedGeneration' Lens +v1ReplicaSetStatusObservedGenerationL :: Lens_' V1ReplicaSetStatus (Maybe Integer) +v1ReplicaSetStatusObservedGenerationL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusObservedGeneration -> V1ReplicaSetStatus { v1ReplicaSetStatusObservedGeneration, ..} ) <$> f v1ReplicaSetStatusObservedGeneration +{-# INLINE v1ReplicaSetStatusObservedGenerationL #-} + +-- | 'v1ReplicaSetStatusReadyReplicas' Lens +v1ReplicaSetStatusReadyReplicasL :: Lens_' V1ReplicaSetStatus (Maybe Int) +v1ReplicaSetStatusReadyReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusReadyReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusReadyReplicas, ..} ) <$> f v1ReplicaSetStatusReadyReplicas +{-# INLINE v1ReplicaSetStatusReadyReplicasL #-} + +-- | 'v1ReplicaSetStatusReplicas' Lens +v1ReplicaSetStatusReplicasL :: Lens_' V1ReplicaSetStatus (Int) +v1ReplicaSetStatusReplicasL f V1ReplicaSetStatus{..} = (\v1ReplicaSetStatusReplicas -> V1ReplicaSetStatus { v1ReplicaSetStatusReplicas, ..} ) <$> f v1ReplicaSetStatusReplicas +{-# INLINE v1ReplicaSetStatusReplicasL #-} + + + +-- * V1ReplicationController + +-- | 'v1ReplicationControllerApiVersion' Lens +v1ReplicationControllerApiVersionL :: Lens_' V1ReplicationController (Maybe Text) +v1ReplicationControllerApiVersionL f V1ReplicationController{..} = (\v1ReplicationControllerApiVersion -> V1ReplicationController { v1ReplicationControllerApiVersion, ..} ) <$> f v1ReplicationControllerApiVersion +{-# INLINE v1ReplicationControllerApiVersionL #-} + +-- | 'v1ReplicationControllerKind' Lens +v1ReplicationControllerKindL :: Lens_' V1ReplicationController (Maybe Text) +v1ReplicationControllerKindL f V1ReplicationController{..} = (\v1ReplicationControllerKind -> V1ReplicationController { v1ReplicationControllerKind, ..} ) <$> f v1ReplicationControllerKind +{-# INLINE v1ReplicationControllerKindL #-} + +-- | 'v1ReplicationControllerMetadata' Lens +v1ReplicationControllerMetadataL :: Lens_' V1ReplicationController (Maybe V1ObjectMeta) +v1ReplicationControllerMetadataL f V1ReplicationController{..} = (\v1ReplicationControllerMetadata -> V1ReplicationController { v1ReplicationControllerMetadata, ..} ) <$> f v1ReplicationControllerMetadata +{-# INLINE v1ReplicationControllerMetadataL #-} + +-- | 'v1ReplicationControllerSpec' Lens +v1ReplicationControllerSpecL :: Lens_' V1ReplicationController (Maybe V1ReplicationControllerSpec) +v1ReplicationControllerSpecL f V1ReplicationController{..} = (\v1ReplicationControllerSpec -> V1ReplicationController { v1ReplicationControllerSpec, ..} ) <$> f v1ReplicationControllerSpec +{-# INLINE v1ReplicationControllerSpecL #-} + +-- | 'v1ReplicationControllerStatus' Lens +v1ReplicationControllerStatusL :: Lens_' V1ReplicationController (Maybe V1ReplicationControllerStatus) +v1ReplicationControllerStatusL f V1ReplicationController{..} = (\v1ReplicationControllerStatus -> V1ReplicationController { v1ReplicationControllerStatus, ..} ) <$> f v1ReplicationControllerStatus +{-# INLINE v1ReplicationControllerStatusL #-} + + + +-- * V1ReplicationControllerCondition + +-- | 'v1ReplicationControllerConditionLastTransitionTime' Lens +v1ReplicationControllerConditionLastTransitionTimeL :: Lens_' V1ReplicationControllerCondition (Maybe DateTime) +v1ReplicationControllerConditionLastTransitionTimeL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionLastTransitionTime -> V1ReplicationControllerCondition { v1ReplicationControllerConditionLastTransitionTime, ..} ) <$> f v1ReplicationControllerConditionLastTransitionTime +{-# INLINE v1ReplicationControllerConditionLastTransitionTimeL #-} + +-- | 'v1ReplicationControllerConditionMessage' Lens +v1ReplicationControllerConditionMessageL :: Lens_' V1ReplicationControllerCondition (Maybe Text) +v1ReplicationControllerConditionMessageL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionMessage -> V1ReplicationControllerCondition { v1ReplicationControllerConditionMessage, ..} ) <$> f v1ReplicationControllerConditionMessage +{-# INLINE v1ReplicationControllerConditionMessageL #-} + +-- | 'v1ReplicationControllerConditionReason' Lens +v1ReplicationControllerConditionReasonL :: Lens_' V1ReplicationControllerCondition (Maybe Text) +v1ReplicationControllerConditionReasonL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionReason -> V1ReplicationControllerCondition { v1ReplicationControllerConditionReason, ..} ) <$> f v1ReplicationControllerConditionReason +{-# INLINE v1ReplicationControllerConditionReasonL #-} + +-- | 'v1ReplicationControllerConditionStatus' Lens +v1ReplicationControllerConditionStatusL :: Lens_' V1ReplicationControllerCondition (Text) +v1ReplicationControllerConditionStatusL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionStatus -> V1ReplicationControllerCondition { v1ReplicationControllerConditionStatus, ..} ) <$> f v1ReplicationControllerConditionStatus +{-# INLINE v1ReplicationControllerConditionStatusL #-} + +-- | 'v1ReplicationControllerConditionType' Lens +v1ReplicationControllerConditionTypeL :: Lens_' V1ReplicationControllerCondition (Text) +v1ReplicationControllerConditionTypeL f V1ReplicationControllerCondition{..} = (\v1ReplicationControllerConditionType -> V1ReplicationControllerCondition { v1ReplicationControllerConditionType, ..} ) <$> f v1ReplicationControllerConditionType +{-# INLINE v1ReplicationControllerConditionTypeL #-} + + + +-- * V1ReplicationControllerList + +-- | 'v1ReplicationControllerListApiVersion' Lens +v1ReplicationControllerListApiVersionL :: Lens_' V1ReplicationControllerList (Maybe Text) +v1ReplicationControllerListApiVersionL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListApiVersion -> V1ReplicationControllerList { v1ReplicationControllerListApiVersion, ..} ) <$> f v1ReplicationControllerListApiVersion +{-# INLINE v1ReplicationControllerListApiVersionL #-} + +-- | 'v1ReplicationControllerListItems' Lens +v1ReplicationControllerListItemsL :: Lens_' V1ReplicationControllerList ([V1ReplicationController]) +v1ReplicationControllerListItemsL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListItems -> V1ReplicationControllerList { v1ReplicationControllerListItems, ..} ) <$> f v1ReplicationControllerListItems +{-# INLINE v1ReplicationControllerListItemsL #-} + +-- | 'v1ReplicationControllerListKind' Lens +v1ReplicationControllerListKindL :: Lens_' V1ReplicationControllerList (Maybe Text) +v1ReplicationControllerListKindL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListKind -> V1ReplicationControllerList { v1ReplicationControllerListKind, ..} ) <$> f v1ReplicationControllerListKind +{-# INLINE v1ReplicationControllerListKindL #-} + +-- | 'v1ReplicationControllerListMetadata' Lens +v1ReplicationControllerListMetadataL :: Lens_' V1ReplicationControllerList (Maybe V1ListMeta) +v1ReplicationControllerListMetadataL f V1ReplicationControllerList{..} = (\v1ReplicationControllerListMetadata -> V1ReplicationControllerList { v1ReplicationControllerListMetadata, ..} ) <$> f v1ReplicationControllerListMetadata +{-# INLINE v1ReplicationControllerListMetadataL #-} + + + +-- * V1ReplicationControllerSpec + +-- | 'v1ReplicationControllerSpecMinReadySeconds' Lens +v1ReplicationControllerSpecMinReadySecondsL :: Lens_' V1ReplicationControllerSpec (Maybe Int) +v1ReplicationControllerSpecMinReadySecondsL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecMinReadySeconds -> V1ReplicationControllerSpec { v1ReplicationControllerSpecMinReadySeconds, ..} ) <$> f v1ReplicationControllerSpecMinReadySeconds +{-# INLINE v1ReplicationControllerSpecMinReadySecondsL #-} + +-- | 'v1ReplicationControllerSpecReplicas' Lens +v1ReplicationControllerSpecReplicasL :: Lens_' V1ReplicationControllerSpec (Maybe Int) +v1ReplicationControllerSpecReplicasL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecReplicas -> V1ReplicationControllerSpec { v1ReplicationControllerSpecReplicas, ..} ) <$> f v1ReplicationControllerSpecReplicas +{-# INLINE v1ReplicationControllerSpecReplicasL #-} + +-- | 'v1ReplicationControllerSpecSelector' Lens +v1ReplicationControllerSpecSelectorL :: Lens_' V1ReplicationControllerSpec (Maybe (Map.Map String Text)) +v1ReplicationControllerSpecSelectorL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecSelector -> V1ReplicationControllerSpec { v1ReplicationControllerSpecSelector, ..} ) <$> f v1ReplicationControllerSpecSelector +{-# INLINE v1ReplicationControllerSpecSelectorL #-} + +-- | 'v1ReplicationControllerSpecTemplate' Lens +v1ReplicationControllerSpecTemplateL :: Lens_' V1ReplicationControllerSpec (Maybe V1PodTemplateSpec) +v1ReplicationControllerSpecTemplateL f V1ReplicationControllerSpec{..} = (\v1ReplicationControllerSpecTemplate -> V1ReplicationControllerSpec { v1ReplicationControllerSpecTemplate, ..} ) <$> f v1ReplicationControllerSpecTemplate +{-# INLINE v1ReplicationControllerSpecTemplateL #-} + + + +-- * V1ReplicationControllerStatus + +-- | 'v1ReplicationControllerStatusAvailableReplicas' Lens +v1ReplicationControllerStatusAvailableReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) +v1ReplicationControllerStatusAvailableReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusAvailableReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusAvailableReplicas, ..} ) <$> f v1ReplicationControllerStatusAvailableReplicas +{-# INLINE v1ReplicationControllerStatusAvailableReplicasL #-} + +-- | 'v1ReplicationControllerStatusConditions' Lens +v1ReplicationControllerStatusConditionsL :: Lens_' V1ReplicationControllerStatus (Maybe [V1ReplicationControllerCondition]) +v1ReplicationControllerStatusConditionsL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusConditions -> V1ReplicationControllerStatus { v1ReplicationControllerStatusConditions, ..} ) <$> f v1ReplicationControllerStatusConditions +{-# INLINE v1ReplicationControllerStatusConditionsL #-} + +-- | 'v1ReplicationControllerStatusFullyLabeledReplicas' Lens +v1ReplicationControllerStatusFullyLabeledReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) +v1ReplicationControllerStatusFullyLabeledReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusFullyLabeledReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusFullyLabeledReplicas, ..} ) <$> f v1ReplicationControllerStatusFullyLabeledReplicas +{-# INLINE v1ReplicationControllerStatusFullyLabeledReplicasL #-} + +-- | 'v1ReplicationControllerStatusObservedGeneration' Lens +v1ReplicationControllerStatusObservedGenerationL :: Lens_' V1ReplicationControllerStatus (Maybe Integer) +v1ReplicationControllerStatusObservedGenerationL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusObservedGeneration -> V1ReplicationControllerStatus { v1ReplicationControllerStatusObservedGeneration, ..} ) <$> f v1ReplicationControllerStatusObservedGeneration +{-# INLINE v1ReplicationControllerStatusObservedGenerationL #-} + +-- | 'v1ReplicationControllerStatusReadyReplicas' Lens +v1ReplicationControllerStatusReadyReplicasL :: Lens_' V1ReplicationControllerStatus (Maybe Int) +v1ReplicationControllerStatusReadyReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusReadyReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusReadyReplicas, ..} ) <$> f v1ReplicationControllerStatusReadyReplicas +{-# INLINE v1ReplicationControllerStatusReadyReplicasL #-} + +-- | 'v1ReplicationControllerStatusReplicas' Lens +v1ReplicationControllerStatusReplicasL :: Lens_' V1ReplicationControllerStatus (Int) +v1ReplicationControllerStatusReplicasL f V1ReplicationControllerStatus{..} = (\v1ReplicationControllerStatusReplicas -> V1ReplicationControllerStatus { v1ReplicationControllerStatusReplicas, ..} ) <$> f v1ReplicationControllerStatusReplicas +{-# INLINE v1ReplicationControllerStatusReplicasL #-} + + + +-- * V1ResourceAttributes + +-- | 'v1ResourceAttributesGroup' Lens +v1ResourceAttributesGroupL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesGroupL f V1ResourceAttributes{..} = (\v1ResourceAttributesGroup -> V1ResourceAttributes { v1ResourceAttributesGroup, ..} ) <$> f v1ResourceAttributesGroup +{-# INLINE v1ResourceAttributesGroupL #-} + +-- | 'v1ResourceAttributesName' Lens +v1ResourceAttributesNameL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesNameL f V1ResourceAttributes{..} = (\v1ResourceAttributesName -> V1ResourceAttributes { v1ResourceAttributesName, ..} ) <$> f v1ResourceAttributesName +{-# INLINE v1ResourceAttributesNameL #-} + +-- | 'v1ResourceAttributesNamespace' Lens +v1ResourceAttributesNamespaceL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesNamespaceL f V1ResourceAttributes{..} = (\v1ResourceAttributesNamespace -> V1ResourceAttributes { v1ResourceAttributesNamespace, ..} ) <$> f v1ResourceAttributesNamespace +{-# INLINE v1ResourceAttributesNamespaceL #-} + +-- | 'v1ResourceAttributesResource' Lens +v1ResourceAttributesResourceL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesResourceL f V1ResourceAttributes{..} = (\v1ResourceAttributesResource -> V1ResourceAttributes { v1ResourceAttributesResource, ..} ) <$> f v1ResourceAttributesResource +{-# INLINE v1ResourceAttributesResourceL #-} + +-- | 'v1ResourceAttributesSubresource' Lens +v1ResourceAttributesSubresourceL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesSubresourceL f V1ResourceAttributes{..} = (\v1ResourceAttributesSubresource -> V1ResourceAttributes { v1ResourceAttributesSubresource, ..} ) <$> f v1ResourceAttributesSubresource +{-# INLINE v1ResourceAttributesSubresourceL #-} + +-- | 'v1ResourceAttributesVerb' Lens +v1ResourceAttributesVerbL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesVerbL f V1ResourceAttributes{..} = (\v1ResourceAttributesVerb -> V1ResourceAttributes { v1ResourceAttributesVerb, ..} ) <$> f v1ResourceAttributesVerb +{-# INLINE v1ResourceAttributesVerbL #-} + +-- | 'v1ResourceAttributesVersion' Lens +v1ResourceAttributesVersionL :: Lens_' V1ResourceAttributes (Maybe Text) +v1ResourceAttributesVersionL f V1ResourceAttributes{..} = (\v1ResourceAttributesVersion -> V1ResourceAttributes { v1ResourceAttributesVersion, ..} ) <$> f v1ResourceAttributesVersion +{-# INLINE v1ResourceAttributesVersionL #-} + + + +-- * V1ResourceClaim + +-- | 'v1ResourceClaimName' Lens +v1ResourceClaimNameL :: Lens_' V1ResourceClaim (Text) +v1ResourceClaimNameL f V1ResourceClaim{..} = (\v1ResourceClaimName -> V1ResourceClaim { v1ResourceClaimName, ..} ) <$> f v1ResourceClaimName +{-# INLINE v1ResourceClaimNameL #-} + + + +-- * V1ResourceFieldSelector + +-- | 'v1ResourceFieldSelectorContainerName' Lens +v1ResourceFieldSelectorContainerNameL :: Lens_' V1ResourceFieldSelector (Maybe Text) +v1ResourceFieldSelectorContainerNameL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorContainerName -> V1ResourceFieldSelector { v1ResourceFieldSelectorContainerName, ..} ) <$> f v1ResourceFieldSelectorContainerName +{-# INLINE v1ResourceFieldSelectorContainerNameL #-} + +-- | 'v1ResourceFieldSelectorDivisor' Lens +v1ResourceFieldSelectorDivisorL :: Lens_' V1ResourceFieldSelector (Maybe Quantity) +v1ResourceFieldSelectorDivisorL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorDivisor -> V1ResourceFieldSelector { v1ResourceFieldSelectorDivisor, ..} ) <$> f v1ResourceFieldSelectorDivisor +{-# INLINE v1ResourceFieldSelectorDivisorL #-} + +-- | 'v1ResourceFieldSelectorResource' Lens +v1ResourceFieldSelectorResourceL :: Lens_' V1ResourceFieldSelector (Text) +v1ResourceFieldSelectorResourceL f V1ResourceFieldSelector{..} = (\v1ResourceFieldSelectorResource -> V1ResourceFieldSelector { v1ResourceFieldSelectorResource, ..} ) <$> f v1ResourceFieldSelectorResource +{-# INLINE v1ResourceFieldSelectorResourceL #-} + + + +-- * V1ResourceQuota + +-- | 'v1ResourceQuotaApiVersion' Lens +v1ResourceQuotaApiVersionL :: Lens_' V1ResourceQuota (Maybe Text) +v1ResourceQuotaApiVersionL f V1ResourceQuota{..} = (\v1ResourceQuotaApiVersion -> V1ResourceQuota { v1ResourceQuotaApiVersion, ..} ) <$> f v1ResourceQuotaApiVersion +{-# INLINE v1ResourceQuotaApiVersionL #-} + +-- | 'v1ResourceQuotaKind' Lens +v1ResourceQuotaKindL :: Lens_' V1ResourceQuota (Maybe Text) +v1ResourceQuotaKindL f V1ResourceQuota{..} = (\v1ResourceQuotaKind -> V1ResourceQuota { v1ResourceQuotaKind, ..} ) <$> f v1ResourceQuotaKind +{-# INLINE v1ResourceQuotaKindL #-} + +-- | 'v1ResourceQuotaMetadata' Lens +v1ResourceQuotaMetadataL :: Lens_' V1ResourceQuota (Maybe V1ObjectMeta) +v1ResourceQuotaMetadataL f V1ResourceQuota{..} = (\v1ResourceQuotaMetadata -> V1ResourceQuota { v1ResourceQuotaMetadata, ..} ) <$> f v1ResourceQuotaMetadata +{-# INLINE v1ResourceQuotaMetadataL #-} + +-- | 'v1ResourceQuotaSpec' Lens +v1ResourceQuotaSpecL :: Lens_' V1ResourceQuota (Maybe V1ResourceQuotaSpec) +v1ResourceQuotaSpecL f V1ResourceQuota{..} = (\v1ResourceQuotaSpec -> V1ResourceQuota { v1ResourceQuotaSpec, ..} ) <$> f v1ResourceQuotaSpec +{-# INLINE v1ResourceQuotaSpecL #-} + +-- | 'v1ResourceQuotaStatus' Lens +v1ResourceQuotaStatusL :: Lens_' V1ResourceQuota (Maybe V1ResourceQuotaStatus) +v1ResourceQuotaStatusL f V1ResourceQuota{..} = (\v1ResourceQuotaStatus -> V1ResourceQuota { v1ResourceQuotaStatus, ..} ) <$> f v1ResourceQuotaStatus +{-# INLINE v1ResourceQuotaStatusL #-} + + + +-- * V1ResourceQuotaList + +-- | 'v1ResourceQuotaListApiVersion' Lens +v1ResourceQuotaListApiVersionL :: Lens_' V1ResourceQuotaList (Maybe Text) +v1ResourceQuotaListApiVersionL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListApiVersion -> V1ResourceQuotaList { v1ResourceQuotaListApiVersion, ..} ) <$> f v1ResourceQuotaListApiVersion +{-# INLINE v1ResourceQuotaListApiVersionL #-} + +-- | 'v1ResourceQuotaListItems' Lens +v1ResourceQuotaListItemsL :: Lens_' V1ResourceQuotaList ([V1ResourceQuota]) +v1ResourceQuotaListItemsL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListItems -> V1ResourceQuotaList { v1ResourceQuotaListItems, ..} ) <$> f v1ResourceQuotaListItems +{-# INLINE v1ResourceQuotaListItemsL #-} + +-- | 'v1ResourceQuotaListKind' Lens +v1ResourceQuotaListKindL :: Lens_' V1ResourceQuotaList (Maybe Text) +v1ResourceQuotaListKindL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListKind -> V1ResourceQuotaList { v1ResourceQuotaListKind, ..} ) <$> f v1ResourceQuotaListKind +{-# INLINE v1ResourceQuotaListKindL #-} + +-- | 'v1ResourceQuotaListMetadata' Lens +v1ResourceQuotaListMetadataL :: Lens_' V1ResourceQuotaList (Maybe V1ListMeta) +v1ResourceQuotaListMetadataL f V1ResourceQuotaList{..} = (\v1ResourceQuotaListMetadata -> V1ResourceQuotaList { v1ResourceQuotaListMetadata, ..} ) <$> f v1ResourceQuotaListMetadata +{-# INLINE v1ResourceQuotaListMetadataL #-} + + + +-- * V1ResourceQuotaSpec + +-- | 'v1ResourceQuotaSpecHard' Lens +v1ResourceQuotaSpecHardL :: Lens_' V1ResourceQuotaSpec (Maybe (Map.Map String Quantity)) +v1ResourceQuotaSpecHardL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecHard -> V1ResourceQuotaSpec { v1ResourceQuotaSpecHard, ..} ) <$> f v1ResourceQuotaSpecHard +{-# INLINE v1ResourceQuotaSpecHardL #-} + +-- | 'v1ResourceQuotaSpecScopeSelector' Lens +v1ResourceQuotaSpecScopeSelectorL :: Lens_' V1ResourceQuotaSpec (Maybe V1ScopeSelector) +v1ResourceQuotaSpecScopeSelectorL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecScopeSelector -> V1ResourceQuotaSpec { v1ResourceQuotaSpecScopeSelector, ..} ) <$> f v1ResourceQuotaSpecScopeSelector +{-# INLINE v1ResourceQuotaSpecScopeSelectorL #-} + +-- | 'v1ResourceQuotaSpecScopes' Lens +v1ResourceQuotaSpecScopesL :: Lens_' V1ResourceQuotaSpec (Maybe [Text]) +v1ResourceQuotaSpecScopesL f V1ResourceQuotaSpec{..} = (\v1ResourceQuotaSpecScopes -> V1ResourceQuotaSpec { v1ResourceQuotaSpecScopes, ..} ) <$> f v1ResourceQuotaSpecScopes +{-# INLINE v1ResourceQuotaSpecScopesL #-} + + + +-- * V1ResourceQuotaStatus + +-- | 'v1ResourceQuotaStatusHard' Lens +v1ResourceQuotaStatusHardL :: Lens_' V1ResourceQuotaStatus (Maybe (Map.Map String Quantity)) +v1ResourceQuotaStatusHardL f V1ResourceQuotaStatus{..} = (\v1ResourceQuotaStatusHard -> V1ResourceQuotaStatus { v1ResourceQuotaStatusHard, ..} ) <$> f v1ResourceQuotaStatusHard +{-# INLINE v1ResourceQuotaStatusHardL #-} + +-- | 'v1ResourceQuotaStatusUsed' Lens +v1ResourceQuotaStatusUsedL :: Lens_' V1ResourceQuotaStatus (Maybe (Map.Map String Quantity)) +v1ResourceQuotaStatusUsedL f V1ResourceQuotaStatus{..} = (\v1ResourceQuotaStatusUsed -> V1ResourceQuotaStatus { v1ResourceQuotaStatusUsed, ..} ) <$> f v1ResourceQuotaStatusUsed +{-# INLINE v1ResourceQuotaStatusUsedL #-} + + + +-- * V1ResourceRequirements + +-- | 'v1ResourceRequirementsClaims' Lens +v1ResourceRequirementsClaimsL :: Lens_' V1ResourceRequirements (Maybe [V1ResourceClaim]) +v1ResourceRequirementsClaimsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsClaims -> V1ResourceRequirements { v1ResourceRequirementsClaims, ..} ) <$> f v1ResourceRequirementsClaims +{-# INLINE v1ResourceRequirementsClaimsL #-} + +-- | 'v1ResourceRequirementsLimits' Lens +v1ResourceRequirementsLimitsL :: Lens_' V1ResourceRequirements (Maybe (Map.Map String Quantity)) +v1ResourceRequirementsLimitsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsLimits -> V1ResourceRequirements { v1ResourceRequirementsLimits, ..} ) <$> f v1ResourceRequirementsLimits +{-# INLINE v1ResourceRequirementsLimitsL #-} + +-- | 'v1ResourceRequirementsRequests' Lens +v1ResourceRequirementsRequestsL :: Lens_' V1ResourceRequirements (Maybe (Map.Map String Quantity)) +v1ResourceRequirementsRequestsL f V1ResourceRequirements{..} = (\v1ResourceRequirementsRequests -> V1ResourceRequirements { v1ResourceRequirementsRequests, ..} ) <$> f v1ResourceRequirementsRequests +{-# INLINE v1ResourceRequirementsRequestsL #-} + + + +-- * V1ResourceRule + +-- | 'v1ResourceRuleApiGroups' Lens +v1ResourceRuleApiGroupsL :: Lens_' V1ResourceRule (Maybe [Text]) +v1ResourceRuleApiGroupsL f V1ResourceRule{..} = (\v1ResourceRuleApiGroups -> V1ResourceRule { v1ResourceRuleApiGroups, ..} ) <$> f v1ResourceRuleApiGroups +{-# INLINE v1ResourceRuleApiGroupsL #-} + +-- | 'v1ResourceRuleResourceNames' Lens +v1ResourceRuleResourceNamesL :: Lens_' V1ResourceRule (Maybe [Text]) +v1ResourceRuleResourceNamesL f V1ResourceRule{..} = (\v1ResourceRuleResourceNames -> V1ResourceRule { v1ResourceRuleResourceNames, ..} ) <$> f v1ResourceRuleResourceNames +{-# INLINE v1ResourceRuleResourceNamesL #-} + +-- | 'v1ResourceRuleResources' Lens +v1ResourceRuleResourcesL :: Lens_' V1ResourceRule (Maybe [Text]) +v1ResourceRuleResourcesL f V1ResourceRule{..} = (\v1ResourceRuleResources -> V1ResourceRule { v1ResourceRuleResources, ..} ) <$> f v1ResourceRuleResources +{-# INLINE v1ResourceRuleResourcesL #-} + +-- | 'v1ResourceRuleVerbs' Lens +v1ResourceRuleVerbsL :: Lens_' V1ResourceRule ([Text]) +v1ResourceRuleVerbsL f V1ResourceRule{..} = (\v1ResourceRuleVerbs -> V1ResourceRule { v1ResourceRuleVerbs, ..} ) <$> f v1ResourceRuleVerbs +{-# INLINE v1ResourceRuleVerbsL #-} + + + +-- * V1Role + +-- | 'v1RoleApiVersion' Lens +v1RoleApiVersionL :: Lens_' V1Role (Maybe Text) +v1RoleApiVersionL f V1Role{..} = (\v1RoleApiVersion -> V1Role { v1RoleApiVersion, ..} ) <$> f v1RoleApiVersion +{-# INLINE v1RoleApiVersionL #-} + +-- | 'v1RoleKind' Lens +v1RoleKindL :: Lens_' V1Role (Maybe Text) +v1RoleKindL f V1Role{..} = (\v1RoleKind -> V1Role { v1RoleKind, ..} ) <$> f v1RoleKind +{-# INLINE v1RoleKindL #-} + +-- | 'v1RoleMetadata' Lens +v1RoleMetadataL :: Lens_' V1Role (Maybe V1ObjectMeta) +v1RoleMetadataL f V1Role{..} = (\v1RoleMetadata -> V1Role { v1RoleMetadata, ..} ) <$> f v1RoleMetadata +{-# INLINE v1RoleMetadataL #-} + +-- | 'v1RoleRules' Lens +v1RoleRulesL :: Lens_' V1Role (Maybe [V1PolicyRule]) +v1RoleRulesL f V1Role{..} = (\v1RoleRules -> V1Role { v1RoleRules, ..} ) <$> f v1RoleRules +{-# INLINE v1RoleRulesL #-} + + + +-- * V1RoleBinding + +-- | 'v1RoleBindingApiVersion' Lens +v1RoleBindingApiVersionL :: Lens_' V1RoleBinding (Maybe Text) +v1RoleBindingApiVersionL f V1RoleBinding{..} = (\v1RoleBindingApiVersion -> V1RoleBinding { v1RoleBindingApiVersion, ..} ) <$> f v1RoleBindingApiVersion +{-# INLINE v1RoleBindingApiVersionL #-} + +-- | 'v1RoleBindingKind' Lens +v1RoleBindingKindL :: Lens_' V1RoleBinding (Maybe Text) +v1RoleBindingKindL f V1RoleBinding{..} = (\v1RoleBindingKind -> V1RoleBinding { v1RoleBindingKind, ..} ) <$> f v1RoleBindingKind +{-# INLINE v1RoleBindingKindL #-} + +-- | 'v1RoleBindingMetadata' Lens +v1RoleBindingMetadataL :: Lens_' V1RoleBinding (Maybe V1ObjectMeta) +v1RoleBindingMetadataL f V1RoleBinding{..} = (\v1RoleBindingMetadata -> V1RoleBinding { v1RoleBindingMetadata, ..} ) <$> f v1RoleBindingMetadata +{-# INLINE v1RoleBindingMetadataL #-} + +-- | 'v1RoleBindingRoleRef' Lens +v1RoleBindingRoleRefL :: Lens_' V1RoleBinding (V1RoleRef) +v1RoleBindingRoleRefL f V1RoleBinding{..} = (\v1RoleBindingRoleRef -> V1RoleBinding { v1RoleBindingRoleRef, ..} ) <$> f v1RoleBindingRoleRef +{-# INLINE v1RoleBindingRoleRefL #-} + +-- | 'v1RoleBindingSubjects' Lens +v1RoleBindingSubjectsL :: Lens_' V1RoleBinding (Maybe [V1Subject]) +v1RoleBindingSubjectsL f V1RoleBinding{..} = (\v1RoleBindingSubjects -> V1RoleBinding { v1RoleBindingSubjects, ..} ) <$> f v1RoleBindingSubjects +{-# INLINE v1RoleBindingSubjectsL #-} + + + +-- * V1RoleBindingList + +-- | 'v1RoleBindingListApiVersion' Lens +v1RoleBindingListApiVersionL :: Lens_' V1RoleBindingList (Maybe Text) +v1RoleBindingListApiVersionL f V1RoleBindingList{..} = (\v1RoleBindingListApiVersion -> V1RoleBindingList { v1RoleBindingListApiVersion, ..} ) <$> f v1RoleBindingListApiVersion +{-# INLINE v1RoleBindingListApiVersionL #-} + +-- | 'v1RoleBindingListItems' Lens +v1RoleBindingListItemsL :: Lens_' V1RoleBindingList ([V1RoleBinding]) +v1RoleBindingListItemsL f V1RoleBindingList{..} = (\v1RoleBindingListItems -> V1RoleBindingList { v1RoleBindingListItems, ..} ) <$> f v1RoleBindingListItems +{-# INLINE v1RoleBindingListItemsL #-} + +-- | 'v1RoleBindingListKind' Lens +v1RoleBindingListKindL :: Lens_' V1RoleBindingList (Maybe Text) +v1RoleBindingListKindL f V1RoleBindingList{..} = (\v1RoleBindingListKind -> V1RoleBindingList { v1RoleBindingListKind, ..} ) <$> f v1RoleBindingListKind +{-# INLINE v1RoleBindingListKindL #-} + +-- | 'v1RoleBindingListMetadata' Lens +v1RoleBindingListMetadataL :: Lens_' V1RoleBindingList (Maybe V1ListMeta) +v1RoleBindingListMetadataL f V1RoleBindingList{..} = (\v1RoleBindingListMetadata -> V1RoleBindingList { v1RoleBindingListMetadata, ..} ) <$> f v1RoleBindingListMetadata +{-# INLINE v1RoleBindingListMetadataL #-} + + + +-- * V1RoleList + +-- | 'v1RoleListApiVersion' Lens +v1RoleListApiVersionL :: Lens_' V1RoleList (Maybe Text) +v1RoleListApiVersionL f V1RoleList{..} = (\v1RoleListApiVersion -> V1RoleList { v1RoleListApiVersion, ..} ) <$> f v1RoleListApiVersion +{-# INLINE v1RoleListApiVersionL #-} + +-- | 'v1RoleListItems' Lens +v1RoleListItemsL :: Lens_' V1RoleList ([V1Role]) +v1RoleListItemsL f V1RoleList{..} = (\v1RoleListItems -> V1RoleList { v1RoleListItems, ..} ) <$> f v1RoleListItems +{-# INLINE v1RoleListItemsL #-} + +-- | 'v1RoleListKind' Lens +v1RoleListKindL :: Lens_' V1RoleList (Maybe Text) +v1RoleListKindL f V1RoleList{..} = (\v1RoleListKind -> V1RoleList { v1RoleListKind, ..} ) <$> f v1RoleListKind +{-# INLINE v1RoleListKindL #-} + +-- | 'v1RoleListMetadata' Lens +v1RoleListMetadataL :: Lens_' V1RoleList (Maybe V1ListMeta) +v1RoleListMetadataL f V1RoleList{..} = (\v1RoleListMetadata -> V1RoleList { v1RoleListMetadata, ..} ) <$> f v1RoleListMetadata +{-# INLINE v1RoleListMetadataL #-} + + + +-- * V1RoleRef + +-- | 'v1RoleRefApiGroup' Lens +v1RoleRefApiGroupL :: Lens_' V1RoleRef (Text) +v1RoleRefApiGroupL f V1RoleRef{..} = (\v1RoleRefApiGroup -> V1RoleRef { v1RoleRefApiGroup, ..} ) <$> f v1RoleRefApiGroup +{-# INLINE v1RoleRefApiGroupL #-} + +-- | 'v1RoleRefKind' Lens +v1RoleRefKindL :: Lens_' V1RoleRef (Text) +v1RoleRefKindL f V1RoleRef{..} = (\v1RoleRefKind -> V1RoleRef { v1RoleRefKind, ..} ) <$> f v1RoleRefKind +{-# INLINE v1RoleRefKindL #-} + +-- | 'v1RoleRefName' Lens +v1RoleRefNameL :: Lens_' V1RoleRef (Text) +v1RoleRefNameL f V1RoleRef{..} = (\v1RoleRefName -> V1RoleRef { v1RoleRefName, ..} ) <$> f v1RoleRefName +{-# INLINE v1RoleRefNameL #-} + + + +-- * V1RollingUpdateDaemonSet + +-- | 'v1RollingUpdateDaemonSetMaxSurge' Lens +v1RollingUpdateDaemonSetMaxSurgeL :: Lens_' V1RollingUpdateDaemonSet (Maybe IntOrString) +v1RollingUpdateDaemonSetMaxSurgeL f V1RollingUpdateDaemonSet{..} = (\v1RollingUpdateDaemonSetMaxSurge -> V1RollingUpdateDaemonSet { v1RollingUpdateDaemonSetMaxSurge, ..} ) <$> f v1RollingUpdateDaemonSetMaxSurge +{-# INLINE v1RollingUpdateDaemonSetMaxSurgeL #-} + +-- | 'v1RollingUpdateDaemonSetMaxUnavailable' Lens +v1RollingUpdateDaemonSetMaxUnavailableL :: Lens_' V1RollingUpdateDaemonSet (Maybe IntOrString) +v1RollingUpdateDaemonSetMaxUnavailableL f V1RollingUpdateDaemonSet{..} = (\v1RollingUpdateDaemonSetMaxUnavailable -> V1RollingUpdateDaemonSet { v1RollingUpdateDaemonSetMaxUnavailable, ..} ) <$> f v1RollingUpdateDaemonSetMaxUnavailable +{-# INLINE v1RollingUpdateDaemonSetMaxUnavailableL #-} + + + +-- * V1RollingUpdateDeployment + +-- | 'v1RollingUpdateDeploymentMaxSurge' Lens +v1RollingUpdateDeploymentMaxSurgeL :: Lens_' V1RollingUpdateDeployment (Maybe IntOrString) +v1RollingUpdateDeploymentMaxSurgeL f V1RollingUpdateDeployment{..} = (\v1RollingUpdateDeploymentMaxSurge -> V1RollingUpdateDeployment { v1RollingUpdateDeploymentMaxSurge, ..} ) <$> f v1RollingUpdateDeploymentMaxSurge +{-# INLINE v1RollingUpdateDeploymentMaxSurgeL #-} + +-- | 'v1RollingUpdateDeploymentMaxUnavailable' Lens +v1RollingUpdateDeploymentMaxUnavailableL :: Lens_' V1RollingUpdateDeployment (Maybe IntOrString) +v1RollingUpdateDeploymentMaxUnavailableL f V1RollingUpdateDeployment{..} = (\v1RollingUpdateDeploymentMaxUnavailable -> V1RollingUpdateDeployment { v1RollingUpdateDeploymentMaxUnavailable, ..} ) <$> f v1RollingUpdateDeploymentMaxUnavailable +{-# INLINE v1RollingUpdateDeploymentMaxUnavailableL #-} + + + +-- * V1RollingUpdateStatefulSetStrategy + +-- | 'v1RollingUpdateStatefulSetStrategyMaxUnavailable' Lens +v1RollingUpdateStatefulSetStrategyMaxUnavailableL :: Lens_' V1RollingUpdateStatefulSetStrategy (Maybe IntOrString) +v1RollingUpdateStatefulSetStrategyMaxUnavailableL f V1RollingUpdateStatefulSetStrategy{..} = (\v1RollingUpdateStatefulSetStrategyMaxUnavailable -> V1RollingUpdateStatefulSetStrategy { v1RollingUpdateStatefulSetStrategyMaxUnavailable, ..} ) <$> f v1RollingUpdateStatefulSetStrategyMaxUnavailable +{-# INLINE v1RollingUpdateStatefulSetStrategyMaxUnavailableL #-} + +-- | 'v1RollingUpdateStatefulSetStrategyPartition' Lens +v1RollingUpdateStatefulSetStrategyPartitionL :: Lens_' V1RollingUpdateStatefulSetStrategy (Maybe Int) +v1RollingUpdateStatefulSetStrategyPartitionL f V1RollingUpdateStatefulSetStrategy{..} = (\v1RollingUpdateStatefulSetStrategyPartition -> V1RollingUpdateStatefulSetStrategy { v1RollingUpdateStatefulSetStrategyPartition, ..} ) <$> f v1RollingUpdateStatefulSetStrategyPartition +{-# INLINE v1RollingUpdateStatefulSetStrategyPartitionL #-} + + + +-- * V1RuleWithOperations + +-- | 'v1RuleWithOperationsApiGroups' Lens +v1RuleWithOperationsApiGroupsL :: Lens_' V1RuleWithOperations (Maybe [Text]) +v1RuleWithOperationsApiGroupsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsApiGroups -> V1RuleWithOperations { v1RuleWithOperationsApiGroups, ..} ) <$> f v1RuleWithOperationsApiGroups +{-# INLINE v1RuleWithOperationsApiGroupsL #-} + +-- | 'v1RuleWithOperationsApiVersions' Lens +v1RuleWithOperationsApiVersionsL :: Lens_' V1RuleWithOperations (Maybe [Text]) +v1RuleWithOperationsApiVersionsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsApiVersions -> V1RuleWithOperations { v1RuleWithOperationsApiVersions, ..} ) <$> f v1RuleWithOperationsApiVersions +{-# INLINE v1RuleWithOperationsApiVersionsL #-} + +-- | 'v1RuleWithOperationsOperations' Lens +v1RuleWithOperationsOperationsL :: Lens_' V1RuleWithOperations (Maybe [Text]) +v1RuleWithOperationsOperationsL f V1RuleWithOperations{..} = (\v1RuleWithOperationsOperations -> V1RuleWithOperations { v1RuleWithOperationsOperations, ..} ) <$> f v1RuleWithOperationsOperations +{-# INLINE v1RuleWithOperationsOperationsL #-} + +-- | 'v1RuleWithOperationsResources' Lens +v1RuleWithOperationsResourcesL :: Lens_' V1RuleWithOperations (Maybe [Text]) +v1RuleWithOperationsResourcesL f V1RuleWithOperations{..} = (\v1RuleWithOperationsResources -> V1RuleWithOperations { v1RuleWithOperationsResources, ..} ) <$> f v1RuleWithOperationsResources +{-# INLINE v1RuleWithOperationsResourcesL #-} + +-- | 'v1RuleWithOperationsScope' Lens +v1RuleWithOperationsScopeL :: Lens_' V1RuleWithOperations (Maybe Text) +v1RuleWithOperationsScopeL f V1RuleWithOperations{..} = (\v1RuleWithOperationsScope -> V1RuleWithOperations { v1RuleWithOperationsScope, ..} ) <$> f v1RuleWithOperationsScope +{-# INLINE v1RuleWithOperationsScopeL #-} + + + +-- * V1RuntimeClass + +-- | 'v1RuntimeClassApiVersion' Lens +v1RuntimeClassApiVersionL :: Lens_' V1RuntimeClass (Maybe Text) +v1RuntimeClassApiVersionL f V1RuntimeClass{..} = (\v1RuntimeClassApiVersion -> V1RuntimeClass { v1RuntimeClassApiVersion, ..} ) <$> f v1RuntimeClassApiVersion +{-# INLINE v1RuntimeClassApiVersionL #-} + +-- | 'v1RuntimeClassHandler' Lens +v1RuntimeClassHandlerL :: Lens_' V1RuntimeClass (Text) +v1RuntimeClassHandlerL f V1RuntimeClass{..} = (\v1RuntimeClassHandler -> V1RuntimeClass { v1RuntimeClassHandler, ..} ) <$> f v1RuntimeClassHandler +{-# INLINE v1RuntimeClassHandlerL #-} + +-- | 'v1RuntimeClassKind' Lens +v1RuntimeClassKindL :: Lens_' V1RuntimeClass (Maybe Text) +v1RuntimeClassKindL f V1RuntimeClass{..} = (\v1RuntimeClassKind -> V1RuntimeClass { v1RuntimeClassKind, ..} ) <$> f v1RuntimeClassKind +{-# INLINE v1RuntimeClassKindL #-} + +-- | 'v1RuntimeClassMetadata' Lens +v1RuntimeClassMetadataL :: Lens_' V1RuntimeClass (Maybe V1ObjectMeta) +v1RuntimeClassMetadataL f V1RuntimeClass{..} = (\v1RuntimeClassMetadata -> V1RuntimeClass { v1RuntimeClassMetadata, ..} ) <$> f v1RuntimeClassMetadata +{-# INLINE v1RuntimeClassMetadataL #-} + +-- | 'v1RuntimeClassOverhead' Lens +v1RuntimeClassOverheadL :: Lens_' V1RuntimeClass (Maybe V1Overhead) +v1RuntimeClassOverheadL f V1RuntimeClass{..} = (\v1RuntimeClassOverhead -> V1RuntimeClass { v1RuntimeClassOverhead, ..} ) <$> f v1RuntimeClassOverhead +{-# INLINE v1RuntimeClassOverheadL #-} + +-- | 'v1RuntimeClassScheduling' Lens +v1RuntimeClassSchedulingL :: Lens_' V1RuntimeClass (Maybe V1Scheduling) +v1RuntimeClassSchedulingL f V1RuntimeClass{..} = (\v1RuntimeClassScheduling -> V1RuntimeClass { v1RuntimeClassScheduling, ..} ) <$> f v1RuntimeClassScheduling +{-# INLINE v1RuntimeClassSchedulingL #-} + + + +-- * V1RuntimeClassList + +-- | 'v1RuntimeClassListApiVersion' Lens +v1RuntimeClassListApiVersionL :: Lens_' V1RuntimeClassList (Maybe Text) +v1RuntimeClassListApiVersionL f V1RuntimeClassList{..} = (\v1RuntimeClassListApiVersion -> V1RuntimeClassList { v1RuntimeClassListApiVersion, ..} ) <$> f v1RuntimeClassListApiVersion +{-# INLINE v1RuntimeClassListApiVersionL #-} + +-- | 'v1RuntimeClassListItems' Lens +v1RuntimeClassListItemsL :: Lens_' V1RuntimeClassList ([V1RuntimeClass]) +v1RuntimeClassListItemsL f V1RuntimeClassList{..} = (\v1RuntimeClassListItems -> V1RuntimeClassList { v1RuntimeClassListItems, ..} ) <$> f v1RuntimeClassListItems +{-# INLINE v1RuntimeClassListItemsL #-} + +-- | 'v1RuntimeClassListKind' Lens +v1RuntimeClassListKindL :: Lens_' V1RuntimeClassList (Maybe Text) +v1RuntimeClassListKindL f V1RuntimeClassList{..} = (\v1RuntimeClassListKind -> V1RuntimeClassList { v1RuntimeClassListKind, ..} ) <$> f v1RuntimeClassListKind +{-# INLINE v1RuntimeClassListKindL #-} + +-- | 'v1RuntimeClassListMetadata' Lens +v1RuntimeClassListMetadataL :: Lens_' V1RuntimeClassList (Maybe V1ListMeta) +v1RuntimeClassListMetadataL f V1RuntimeClassList{..} = (\v1RuntimeClassListMetadata -> V1RuntimeClassList { v1RuntimeClassListMetadata, ..} ) <$> f v1RuntimeClassListMetadata +{-# INLINE v1RuntimeClassListMetadataL #-} + + + +-- * V1SELinuxOptions + +-- | 'v1SELinuxOptionsLevel' Lens +v1SELinuxOptionsLevelL :: Lens_' V1SELinuxOptions (Maybe Text) +v1SELinuxOptionsLevelL f V1SELinuxOptions{..} = (\v1SELinuxOptionsLevel -> V1SELinuxOptions { v1SELinuxOptionsLevel, ..} ) <$> f v1SELinuxOptionsLevel +{-# INLINE v1SELinuxOptionsLevelL #-} + +-- | 'v1SELinuxOptionsRole' Lens +v1SELinuxOptionsRoleL :: Lens_' V1SELinuxOptions (Maybe Text) +v1SELinuxOptionsRoleL f V1SELinuxOptions{..} = (\v1SELinuxOptionsRole -> V1SELinuxOptions { v1SELinuxOptionsRole, ..} ) <$> f v1SELinuxOptionsRole +{-# INLINE v1SELinuxOptionsRoleL #-} + +-- | 'v1SELinuxOptionsType' Lens +v1SELinuxOptionsTypeL :: Lens_' V1SELinuxOptions (Maybe Text) +v1SELinuxOptionsTypeL f V1SELinuxOptions{..} = (\v1SELinuxOptionsType -> V1SELinuxOptions { v1SELinuxOptionsType, ..} ) <$> f v1SELinuxOptionsType +{-# INLINE v1SELinuxOptionsTypeL #-} + +-- | 'v1SELinuxOptionsUser' Lens +v1SELinuxOptionsUserL :: Lens_' V1SELinuxOptions (Maybe Text) +v1SELinuxOptionsUserL f V1SELinuxOptions{..} = (\v1SELinuxOptionsUser -> V1SELinuxOptions { v1SELinuxOptionsUser, ..} ) <$> f v1SELinuxOptionsUser +{-# INLINE v1SELinuxOptionsUserL #-} + + + +-- * V1Scale + +-- | 'v1ScaleApiVersion' Lens +v1ScaleApiVersionL :: Lens_' V1Scale (Maybe Text) +v1ScaleApiVersionL f V1Scale{..} = (\v1ScaleApiVersion -> V1Scale { v1ScaleApiVersion, ..} ) <$> f v1ScaleApiVersion +{-# INLINE v1ScaleApiVersionL #-} + +-- | 'v1ScaleKind' Lens +v1ScaleKindL :: Lens_' V1Scale (Maybe Text) +v1ScaleKindL f V1Scale{..} = (\v1ScaleKind -> V1Scale { v1ScaleKind, ..} ) <$> f v1ScaleKind +{-# INLINE v1ScaleKindL #-} + +-- | 'v1ScaleMetadata' Lens +v1ScaleMetadataL :: Lens_' V1Scale (Maybe V1ObjectMeta) +v1ScaleMetadataL f V1Scale{..} = (\v1ScaleMetadata -> V1Scale { v1ScaleMetadata, ..} ) <$> f v1ScaleMetadata +{-# INLINE v1ScaleMetadataL #-} + +-- | 'v1ScaleSpec' Lens +v1ScaleSpecL :: Lens_' V1Scale (Maybe V1ScaleSpec) +v1ScaleSpecL f V1Scale{..} = (\v1ScaleSpec -> V1Scale { v1ScaleSpec, ..} ) <$> f v1ScaleSpec +{-# INLINE v1ScaleSpecL #-} + +-- | 'v1ScaleStatus' Lens +v1ScaleStatusL :: Lens_' V1Scale (Maybe V1ScaleStatus) +v1ScaleStatusL f V1Scale{..} = (\v1ScaleStatus -> V1Scale { v1ScaleStatus, ..} ) <$> f v1ScaleStatus +{-# INLINE v1ScaleStatusL #-} + + + +-- * V1ScaleIOPersistentVolumeSource + +-- | 'v1ScaleIOPersistentVolumeSourceFsType' Lens +v1ScaleIOPersistentVolumeSourceFsTypeL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) +v1ScaleIOPersistentVolumeSourceFsTypeL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceFsType -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceFsType, ..} ) <$> f v1ScaleIOPersistentVolumeSourceFsType +{-# INLINE v1ScaleIOPersistentVolumeSourceFsTypeL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceGateway' Lens +v1ScaleIOPersistentVolumeSourceGatewayL :: Lens_' V1ScaleIOPersistentVolumeSource (Text) +v1ScaleIOPersistentVolumeSourceGatewayL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceGateway -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceGateway, ..} ) <$> f v1ScaleIOPersistentVolumeSourceGateway +{-# INLINE v1ScaleIOPersistentVolumeSourceGatewayL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceProtectionDomain' Lens +v1ScaleIOPersistentVolumeSourceProtectionDomainL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) +v1ScaleIOPersistentVolumeSourceProtectionDomainL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceProtectionDomain -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceProtectionDomain, ..} ) <$> f v1ScaleIOPersistentVolumeSourceProtectionDomain +{-# INLINE v1ScaleIOPersistentVolumeSourceProtectionDomainL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceReadOnly' Lens +v1ScaleIOPersistentVolumeSourceReadOnlyL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Bool) +v1ScaleIOPersistentVolumeSourceReadOnlyL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceReadOnly -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceReadOnly, ..} ) <$> f v1ScaleIOPersistentVolumeSourceReadOnly +{-# INLINE v1ScaleIOPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceSecretRef' Lens +v1ScaleIOPersistentVolumeSourceSecretRefL :: Lens_' V1ScaleIOPersistentVolumeSource (V1SecretReference) +v1ScaleIOPersistentVolumeSourceSecretRefL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSecretRef -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSecretRef, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSecretRef +{-# INLINE v1ScaleIOPersistentVolumeSourceSecretRefL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceSslEnabled' Lens +v1ScaleIOPersistentVolumeSourceSslEnabledL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Bool) +v1ScaleIOPersistentVolumeSourceSslEnabledL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSslEnabled -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSslEnabled, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSslEnabled +{-# INLINE v1ScaleIOPersistentVolumeSourceSslEnabledL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceStorageMode' Lens +v1ScaleIOPersistentVolumeSourceStorageModeL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) +v1ScaleIOPersistentVolumeSourceStorageModeL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceStorageMode -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceStorageMode, ..} ) <$> f v1ScaleIOPersistentVolumeSourceStorageMode +{-# INLINE v1ScaleIOPersistentVolumeSourceStorageModeL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceStoragePool' Lens +v1ScaleIOPersistentVolumeSourceStoragePoolL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) +v1ScaleIOPersistentVolumeSourceStoragePoolL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceStoragePool -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceStoragePool, ..} ) <$> f v1ScaleIOPersistentVolumeSourceStoragePool +{-# INLINE v1ScaleIOPersistentVolumeSourceStoragePoolL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceSystem' Lens +v1ScaleIOPersistentVolumeSourceSystemL :: Lens_' V1ScaleIOPersistentVolumeSource (Text) +v1ScaleIOPersistentVolumeSourceSystemL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceSystem -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceSystem, ..} ) <$> f v1ScaleIOPersistentVolumeSourceSystem +{-# INLINE v1ScaleIOPersistentVolumeSourceSystemL #-} + +-- | 'v1ScaleIOPersistentVolumeSourceVolumeName' Lens +v1ScaleIOPersistentVolumeSourceVolumeNameL :: Lens_' V1ScaleIOPersistentVolumeSource (Maybe Text) +v1ScaleIOPersistentVolumeSourceVolumeNameL f V1ScaleIOPersistentVolumeSource{..} = (\v1ScaleIOPersistentVolumeSourceVolumeName -> V1ScaleIOPersistentVolumeSource { v1ScaleIOPersistentVolumeSourceVolumeName, ..} ) <$> f v1ScaleIOPersistentVolumeSourceVolumeName +{-# INLINE v1ScaleIOPersistentVolumeSourceVolumeNameL #-} + + + +-- * V1ScaleIOVolumeSource + +-- | 'v1ScaleIOVolumeSourceFsType' Lens +v1ScaleIOVolumeSourceFsTypeL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) +v1ScaleIOVolumeSourceFsTypeL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceFsType -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceFsType, ..} ) <$> f v1ScaleIOVolumeSourceFsType +{-# INLINE v1ScaleIOVolumeSourceFsTypeL #-} + +-- | 'v1ScaleIOVolumeSourceGateway' Lens +v1ScaleIOVolumeSourceGatewayL :: Lens_' V1ScaleIOVolumeSource (Text) +v1ScaleIOVolumeSourceGatewayL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceGateway -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceGateway, ..} ) <$> f v1ScaleIOVolumeSourceGateway +{-# INLINE v1ScaleIOVolumeSourceGatewayL #-} + +-- | 'v1ScaleIOVolumeSourceProtectionDomain' Lens +v1ScaleIOVolumeSourceProtectionDomainL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) +v1ScaleIOVolumeSourceProtectionDomainL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceProtectionDomain -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceProtectionDomain, ..} ) <$> f v1ScaleIOVolumeSourceProtectionDomain +{-# INLINE v1ScaleIOVolumeSourceProtectionDomainL #-} + +-- | 'v1ScaleIOVolumeSourceReadOnly' Lens +v1ScaleIOVolumeSourceReadOnlyL :: Lens_' V1ScaleIOVolumeSource (Maybe Bool) +v1ScaleIOVolumeSourceReadOnlyL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceReadOnly -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceReadOnly, ..} ) <$> f v1ScaleIOVolumeSourceReadOnly +{-# INLINE v1ScaleIOVolumeSourceReadOnlyL #-} + +-- | 'v1ScaleIOVolumeSourceSecretRef' Lens +v1ScaleIOVolumeSourceSecretRefL :: Lens_' V1ScaleIOVolumeSource (V1LocalObjectReference) +v1ScaleIOVolumeSourceSecretRefL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSecretRef -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSecretRef, ..} ) <$> f v1ScaleIOVolumeSourceSecretRef +{-# INLINE v1ScaleIOVolumeSourceSecretRefL #-} + +-- | 'v1ScaleIOVolumeSourceSslEnabled' Lens +v1ScaleIOVolumeSourceSslEnabledL :: Lens_' V1ScaleIOVolumeSource (Maybe Bool) +v1ScaleIOVolumeSourceSslEnabledL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSslEnabled -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSslEnabled, ..} ) <$> f v1ScaleIOVolumeSourceSslEnabled +{-# INLINE v1ScaleIOVolumeSourceSslEnabledL #-} + +-- | 'v1ScaleIOVolumeSourceStorageMode' Lens +v1ScaleIOVolumeSourceStorageModeL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) +v1ScaleIOVolumeSourceStorageModeL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceStorageMode -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceStorageMode, ..} ) <$> f v1ScaleIOVolumeSourceStorageMode +{-# INLINE v1ScaleIOVolumeSourceStorageModeL #-} + +-- | 'v1ScaleIOVolumeSourceStoragePool' Lens +v1ScaleIOVolumeSourceStoragePoolL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) +v1ScaleIOVolumeSourceStoragePoolL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceStoragePool -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceStoragePool, ..} ) <$> f v1ScaleIOVolumeSourceStoragePool +{-# INLINE v1ScaleIOVolumeSourceStoragePoolL #-} + +-- | 'v1ScaleIOVolumeSourceSystem' Lens +v1ScaleIOVolumeSourceSystemL :: Lens_' V1ScaleIOVolumeSource (Text) +v1ScaleIOVolumeSourceSystemL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceSystem -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceSystem, ..} ) <$> f v1ScaleIOVolumeSourceSystem +{-# INLINE v1ScaleIOVolumeSourceSystemL #-} + +-- | 'v1ScaleIOVolumeSourceVolumeName' Lens +v1ScaleIOVolumeSourceVolumeNameL :: Lens_' V1ScaleIOVolumeSource (Maybe Text) +v1ScaleIOVolumeSourceVolumeNameL f V1ScaleIOVolumeSource{..} = (\v1ScaleIOVolumeSourceVolumeName -> V1ScaleIOVolumeSource { v1ScaleIOVolumeSourceVolumeName, ..} ) <$> f v1ScaleIOVolumeSourceVolumeName +{-# INLINE v1ScaleIOVolumeSourceVolumeNameL #-} + + + +-- * V1ScaleSpec + +-- | 'v1ScaleSpecReplicas' Lens +v1ScaleSpecReplicasL :: Lens_' V1ScaleSpec (Maybe Int) +v1ScaleSpecReplicasL f V1ScaleSpec{..} = (\v1ScaleSpecReplicas -> V1ScaleSpec { v1ScaleSpecReplicas, ..} ) <$> f v1ScaleSpecReplicas +{-# INLINE v1ScaleSpecReplicasL #-} + + + +-- * V1ScaleStatus + +-- | 'v1ScaleStatusReplicas' Lens +v1ScaleStatusReplicasL :: Lens_' V1ScaleStatus (Int) +v1ScaleStatusReplicasL f V1ScaleStatus{..} = (\v1ScaleStatusReplicas -> V1ScaleStatus { v1ScaleStatusReplicas, ..} ) <$> f v1ScaleStatusReplicas +{-# INLINE v1ScaleStatusReplicasL #-} + +-- | 'v1ScaleStatusSelector' Lens +v1ScaleStatusSelectorL :: Lens_' V1ScaleStatus (Maybe Text) +v1ScaleStatusSelectorL f V1ScaleStatus{..} = (\v1ScaleStatusSelector -> V1ScaleStatus { v1ScaleStatusSelector, ..} ) <$> f v1ScaleStatusSelector +{-# INLINE v1ScaleStatusSelectorL #-} + + + +-- * V1Scheduling + +-- | 'v1SchedulingNodeSelector' Lens +v1SchedulingNodeSelectorL :: Lens_' V1Scheduling (Maybe (Map.Map String Text)) +v1SchedulingNodeSelectorL f V1Scheduling{..} = (\v1SchedulingNodeSelector -> V1Scheduling { v1SchedulingNodeSelector, ..} ) <$> f v1SchedulingNodeSelector +{-# INLINE v1SchedulingNodeSelectorL #-} + +-- | 'v1SchedulingTolerations' Lens +v1SchedulingTolerationsL :: Lens_' V1Scheduling (Maybe [V1Toleration]) +v1SchedulingTolerationsL f V1Scheduling{..} = (\v1SchedulingTolerations -> V1Scheduling { v1SchedulingTolerations, ..} ) <$> f v1SchedulingTolerations +{-# INLINE v1SchedulingTolerationsL #-} + + + +-- * V1ScopeSelector + +-- | 'v1ScopeSelectorMatchExpressions' Lens +v1ScopeSelectorMatchExpressionsL :: Lens_' V1ScopeSelector (Maybe [V1ScopedResourceSelectorRequirement]) +v1ScopeSelectorMatchExpressionsL f V1ScopeSelector{..} = (\v1ScopeSelectorMatchExpressions -> V1ScopeSelector { v1ScopeSelectorMatchExpressions, ..} ) <$> f v1ScopeSelectorMatchExpressions +{-# INLINE v1ScopeSelectorMatchExpressionsL #-} + + + +-- * V1ScopedResourceSelectorRequirement + +-- | 'v1ScopedResourceSelectorRequirementOperator' Lens +v1ScopedResourceSelectorRequirementOperatorL :: Lens_' V1ScopedResourceSelectorRequirement (Text) +v1ScopedResourceSelectorRequirementOperatorL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementOperator -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementOperator, ..} ) <$> f v1ScopedResourceSelectorRequirementOperator +{-# INLINE v1ScopedResourceSelectorRequirementOperatorL #-} + +-- | 'v1ScopedResourceSelectorRequirementScopeName' Lens +v1ScopedResourceSelectorRequirementScopeNameL :: Lens_' V1ScopedResourceSelectorRequirement (Text) +v1ScopedResourceSelectorRequirementScopeNameL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementScopeName -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementScopeName, ..} ) <$> f v1ScopedResourceSelectorRequirementScopeName +{-# INLINE v1ScopedResourceSelectorRequirementScopeNameL #-} + +-- | 'v1ScopedResourceSelectorRequirementValues' Lens +v1ScopedResourceSelectorRequirementValuesL :: Lens_' V1ScopedResourceSelectorRequirement (Maybe [Text]) +v1ScopedResourceSelectorRequirementValuesL f V1ScopedResourceSelectorRequirement{..} = (\v1ScopedResourceSelectorRequirementValues -> V1ScopedResourceSelectorRequirement { v1ScopedResourceSelectorRequirementValues, ..} ) <$> f v1ScopedResourceSelectorRequirementValues +{-# INLINE v1ScopedResourceSelectorRequirementValuesL #-} + + + +-- * V1SeccompProfile + +-- | 'v1SeccompProfileLocalhostProfile' Lens +v1SeccompProfileLocalhostProfileL :: Lens_' V1SeccompProfile (Maybe Text) +v1SeccompProfileLocalhostProfileL f V1SeccompProfile{..} = (\v1SeccompProfileLocalhostProfile -> V1SeccompProfile { v1SeccompProfileLocalhostProfile, ..} ) <$> f v1SeccompProfileLocalhostProfile +{-# INLINE v1SeccompProfileLocalhostProfileL #-} + +-- | 'v1SeccompProfileType' Lens +v1SeccompProfileTypeL :: Lens_' V1SeccompProfile (Text) +v1SeccompProfileTypeL f V1SeccompProfile{..} = (\v1SeccompProfileType -> V1SeccompProfile { v1SeccompProfileType, ..} ) <$> f v1SeccompProfileType +{-# INLINE v1SeccompProfileTypeL #-} + + + +-- * V1Secret + +-- | 'v1SecretApiVersion' Lens +v1SecretApiVersionL :: Lens_' V1Secret (Maybe Text) +v1SecretApiVersionL f V1Secret{..} = (\v1SecretApiVersion -> V1Secret { v1SecretApiVersion, ..} ) <$> f v1SecretApiVersion +{-# INLINE v1SecretApiVersionL #-} + +-- | 'v1SecretData' Lens +v1SecretDataL :: Lens_' V1Secret (Maybe (Map.Map String ByteArray)) +v1SecretDataL f V1Secret{..} = (\v1SecretData -> V1Secret { v1SecretData, ..} ) <$> f v1SecretData +{-# INLINE v1SecretDataL #-} + +-- | 'v1SecretImmutable' Lens +v1SecretImmutableL :: Lens_' V1Secret (Maybe Bool) +v1SecretImmutableL f V1Secret{..} = (\v1SecretImmutable -> V1Secret { v1SecretImmutable, ..} ) <$> f v1SecretImmutable +{-# INLINE v1SecretImmutableL #-} + +-- | 'v1SecretKind' Lens +v1SecretKindL :: Lens_' V1Secret (Maybe Text) +v1SecretKindL f V1Secret{..} = (\v1SecretKind -> V1Secret { v1SecretKind, ..} ) <$> f v1SecretKind +{-# INLINE v1SecretKindL #-} + +-- | 'v1SecretMetadata' Lens +v1SecretMetadataL :: Lens_' V1Secret (Maybe V1ObjectMeta) +v1SecretMetadataL f V1Secret{..} = (\v1SecretMetadata -> V1Secret { v1SecretMetadata, ..} ) <$> f v1SecretMetadata +{-# INLINE v1SecretMetadataL #-} + +-- | 'v1SecretStringData' Lens +v1SecretStringDataL :: Lens_' V1Secret (Maybe (Map.Map String Text)) +v1SecretStringDataL f V1Secret{..} = (\v1SecretStringData -> V1Secret { v1SecretStringData, ..} ) <$> f v1SecretStringData +{-# INLINE v1SecretStringDataL #-} + +-- | 'v1SecretType' Lens +v1SecretTypeL :: Lens_' V1Secret (Maybe Text) +v1SecretTypeL f V1Secret{..} = (\v1SecretType -> V1Secret { v1SecretType, ..} ) <$> f v1SecretType +{-# INLINE v1SecretTypeL #-} + + + +-- * V1SecretEnvSource + +-- | 'v1SecretEnvSourceName' Lens +v1SecretEnvSourceNameL :: Lens_' V1SecretEnvSource (Maybe Text) +v1SecretEnvSourceNameL f V1SecretEnvSource{..} = (\v1SecretEnvSourceName -> V1SecretEnvSource { v1SecretEnvSourceName, ..} ) <$> f v1SecretEnvSourceName +{-# INLINE v1SecretEnvSourceNameL #-} + +-- | 'v1SecretEnvSourceOptional' Lens +v1SecretEnvSourceOptionalL :: Lens_' V1SecretEnvSource (Maybe Bool) +v1SecretEnvSourceOptionalL f V1SecretEnvSource{..} = (\v1SecretEnvSourceOptional -> V1SecretEnvSource { v1SecretEnvSourceOptional, ..} ) <$> f v1SecretEnvSourceOptional +{-# INLINE v1SecretEnvSourceOptionalL #-} + + + +-- * V1SecretKeySelector + +-- | 'v1SecretKeySelectorKey' Lens +v1SecretKeySelectorKeyL :: Lens_' V1SecretKeySelector (Text) +v1SecretKeySelectorKeyL f V1SecretKeySelector{..} = (\v1SecretKeySelectorKey -> V1SecretKeySelector { v1SecretKeySelectorKey, ..} ) <$> f v1SecretKeySelectorKey +{-# INLINE v1SecretKeySelectorKeyL #-} + +-- | 'v1SecretKeySelectorName' Lens +v1SecretKeySelectorNameL :: Lens_' V1SecretKeySelector (Maybe Text) +v1SecretKeySelectorNameL f V1SecretKeySelector{..} = (\v1SecretKeySelectorName -> V1SecretKeySelector { v1SecretKeySelectorName, ..} ) <$> f v1SecretKeySelectorName +{-# INLINE v1SecretKeySelectorNameL #-} + +-- | 'v1SecretKeySelectorOptional' Lens +v1SecretKeySelectorOptionalL :: Lens_' V1SecretKeySelector (Maybe Bool) +v1SecretKeySelectorOptionalL f V1SecretKeySelector{..} = (\v1SecretKeySelectorOptional -> V1SecretKeySelector { v1SecretKeySelectorOptional, ..} ) <$> f v1SecretKeySelectorOptional +{-# INLINE v1SecretKeySelectorOptionalL #-} + + + +-- * V1SecretList + +-- | 'v1SecretListApiVersion' Lens +v1SecretListApiVersionL :: Lens_' V1SecretList (Maybe Text) +v1SecretListApiVersionL f V1SecretList{..} = (\v1SecretListApiVersion -> V1SecretList { v1SecretListApiVersion, ..} ) <$> f v1SecretListApiVersion +{-# INLINE v1SecretListApiVersionL #-} + +-- | 'v1SecretListItems' Lens +v1SecretListItemsL :: Lens_' V1SecretList ([V1Secret]) +v1SecretListItemsL f V1SecretList{..} = (\v1SecretListItems -> V1SecretList { v1SecretListItems, ..} ) <$> f v1SecretListItems +{-# INLINE v1SecretListItemsL #-} + +-- | 'v1SecretListKind' Lens +v1SecretListKindL :: Lens_' V1SecretList (Maybe Text) +v1SecretListKindL f V1SecretList{..} = (\v1SecretListKind -> V1SecretList { v1SecretListKind, ..} ) <$> f v1SecretListKind +{-# INLINE v1SecretListKindL #-} + +-- | 'v1SecretListMetadata' Lens +v1SecretListMetadataL :: Lens_' V1SecretList (Maybe V1ListMeta) +v1SecretListMetadataL f V1SecretList{..} = (\v1SecretListMetadata -> V1SecretList { v1SecretListMetadata, ..} ) <$> f v1SecretListMetadata +{-# INLINE v1SecretListMetadataL #-} + + + +-- * V1SecretProjection + +-- | 'v1SecretProjectionItems' Lens +v1SecretProjectionItemsL :: Lens_' V1SecretProjection (Maybe [V1KeyToPath]) +v1SecretProjectionItemsL f V1SecretProjection{..} = (\v1SecretProjectionItems -> V1SecretProjection { v1SecretProjectionItems, ..} ) <$> f v1SecretProjectionItems +{-# INLINE v1SecretProjectionItemsL #-} + +-- | 'v1SecretProjectionName' Lens +v1SecretProjectionNameL :: Lens_' V1SecretProjection (Maybe Text) +v1SecretProjectionNameL f V1SecretProjection{..} = (\v1SecretProjectionName -> V1SecretProjection { v1SecretProjectionName, ..} ) <$> f v1SecretProjectionName +{-# INLINE v1SecretProjectionNameL #-} + +-- | 'v1SecretProjectionOptional' Lens +v1SecretProjectionOptionalL :: Lens_' V1SecretProjection (Maybe Bool) +v1SecretProjectionOptionalL f V1SecretProjection{..} = (\v1SecretProjectionOptional -> V1SecretProjection { v1SecretProjectionOptional, ..} ) <$> f v1SecretProjectionOptional +{-# INLINE v1SecretProjectionOptionalL #-} + + + +-- * V1SecretReference + +-- | 'v1SecretReferenceName' Lens +v1SecretReferenceNameL :: Lens_' V1SecretReference (Maybe Text) +v1SecretReferenceNameL f V1SecretReference{..} = (\v1SecretReferenceName -> V1SecretReference { v1SecretReferenceName, ..} ) <$> f v1SecretReferenceName +{-# INLINE v1SecretReferenceNameL #-} + +-- | 'v1SecretReferenceNamespace' Lens +v1SecretReferenceNamespaceL :: Lens_' V1SecretReference (Maybe Text) +v1SecretReferenceNamespaceL f V1SecretReference{..} = (\v1SecretReferenceNamespace -> V1SecretReference { v1SecretReferenceNamespace, ..} ) <$> f v1SecretReferenceNamespace +{-# INLINE v1SecretReferenceNamespaceL #-} + + + +-- * V1SecretVolumeSource + +-- | 'v1SecretVolumeSourceDefaultMode' Lens +v1SecretVolumeSourceDefaultModeL :: Lens_' V1SecretVolumeSource (Maybe Int) +v1SecretVolumeSourceDefaultModeL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceDefaultMode -> V1SecretVolumeSource { v1SecretVolumeSourceDefaultMode, ..} ) <$> f v1SecretVolumeSourceDefaultMode +{-# INLINE v1SecretVolumeSourceDefaultModeL #-} + +-- | 'v1SecretVolumeSourceItems' Lens +v1SecretVolumeSourceItemsL :: Lens_' V1SecretVolumeSource (Maybe [V1KeyToPath]) +v1SecretVolumeSourceItemsL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceItems -> V1SecretVolumeSource { v1SecretVolumeSourceItems, ..} ) <$> f v1SecretVolumeSourceItems +{-# INLINE v1SecretVolumeSourceItemsL #-} + +-- | 'v1SecretVolumeSourceOptional' Lens +v1SecretVolumeSourceOptionalL :: Lens_' V1SecretVolumeSource (Maybe Bool) +v1SecretVolumeSourceOptionalL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceOptional -> V1SecretVolumeSource { v1SecretVolumeSourceOptional, ..} ) <$> f v1SecretVolumeSourceOptional +{-# INLINE v1SecretVolumeSourceOptionalL #-} + +-- | 'v1SecretVolumeSourceSecretName' Lens +v1SecretVolumeSourceSecretNameL :: Lens_' V1SecretVolumeSource (Maybe Text) +v1SecretVolumeSourceSecretNameL f V1SecretVolumeSource{..} = (\v1SecretVolumeSourceSecretName -> V1SecretVolumeSource { v1SecretVolumeSourceSecretName, ..} ) <$> f v1SecretVolumeSourceSecretName +{-# INLINE v1SecretVolumeSourceSecretNameL #-} + + + +-- * V1SecurityContext + +-- | 'v1SecurityContextAllowPrivilegeEscalation' Lens +v1SecurityContextAllowPrivilegeEscalationL :: Lens_' V1SecurityContext (Maybe Bool) +v1SecurityContextAllowPrivilegeEscalationL f V1SecurityContext{..} = (\v1SecurityContextAllowPrivilegeEscalation -> V1SecurityContext { v1SecurityContextAllowPrivilegeEscalation, ..} ) <$> f v1SecurityContextAllowPrivilegeEscalation +{-# INLINE v1SecurityContextAllowPrivilegeEscalationL #-} + +-- | 'v1SecurityContextCapabilities' Lens +v1SecurityContextCapabilitiesL :: Lens_' V1SecurityContext (Maybe V1Capabilities) +v1SecurityContextCapabilitiesL f V1SecurityContext{..} = (\v1SecurityContextCapabilities -> V1SecurityContext { v1SecurityContextCapabilities, ..} ) <$> f v1SecurityContextCapabilities +{-# INLINE v1SecurityContextCapabilitiesL #-} + +-- | 'v1SecurityContextPrivileged' Lens +v1SecurityContextPrivilegedL :: Lens_' V1SecurityContext (Maybe Bool) +v1SecurityContextPrivilegedL f V1SecurityContext{..} = (\v1SecurityContextPrivileged -> V1SecurityContext { v1SecurityContextPrivileged, ..} ) <$> f v1SecurityContextPrivileged +{-# INLINE v1SecurityContextPrivilegedL #-} + +-- | 'v1SecurityContextProcMount' Lens +v1SecurityContextProcMountL :: Lens_' V1SecurityContext (Maybe Text) +v1SecurityContextProcMountL f V1SecurityContext{..} = (\v1SecurityContextProcMount -> V1SecurityContext { v1SecurityContextProcMount, ..} ) <$> f v1SecurityContextProcMount +{-# INLINE v1SecurityContextProcMountL #-} + +-- | 'v1SecurityContextReadOnlyRootFilesystem' Lens +v1SecurityContextReadOnlyRootFilesystemL :: Lens_' V1SecurityContext (Maybe Bool) +v1SecurityContextReadOnlyRootFilesystemL f V1SecurityContext{..} = (\v1SecurityContextReadOnlyRootFilesystem -> V1SecurityContext { v1SecurityContextReadOnlyRootFilesystem, ..} ) <$> f v1SecurityContextReadOnlyRootFilesystem +{-# INLINE v1SecurityContextReadOnlyRootFilesystemL #-} + +-- | 'v1SecurityContextRunAsGroup' Lens +v1SecurityContextRunAsGroupL :: Lens_' V1SecurityContext (Maybe Integer) +v1SecurityContextRunAsGroupL f V1SecurityContext{..} = (\v1SecurityContextRunAsGroup -> V1SecurityContext { v1SecurityContextRunAsGroup, ..} ) <$> f v1SecurityContextRunAsGroup +{-# INLINE v1SecurityContextRunAsGroupL #-} + +-- | 'v1SecurityContextRunAsNonRoot' Lens +v1SecurityContextRunAsNonRootL :: Lens_' V1SecurityContext (Maybe Bool) +v1SecurityContextRunAsNonRootL f V1SecurityContext{..} = (\v1SecurityContextRunAsNonRoot -> V1SecurityContext { v1SecurityContextRunAsNonRoot, ..} ) <$> f v1SecurityContextRunAsNonRoot +{-# INLINE v1SecurityContextRunAsNonRootL #-} + +-- | 'v1SecurityContextRunAsUser' Lens +v1SecurityContextRunAsUserL :: Lens_' V1SecurityContext (Maybe Integer) +v1SecurityContextRunAsUserL f V1SecurityContext{..} = (\v1SecurityContextRunAsUser -> V1SecurityContext { v1SecurityContextRunAsUser, ..} ) <$> f v1SecurityContextRunAsUser +{-# INLINE v1SecurityContextRunAsUserL #-} + +-- | 'v1SecurityContextSeLinuxOptions' Lens +v1SecurityContextSeLinuxOptionsL :: Lens_' V1SecurityContext (Maybe V1SELinuxOptions) +v1SecurityContextSeLinuxOptionsL f V1SecurityContext{..} = (\v1SecurityContextSeLinuxOptions -> V1SecurityContext { v1SecurityContextSeLinuxOptions, ..} ) <$> f v1SecurityContextSeLinuxOptions +{-# INLINE v1SecurityContextSeLinuxOptionsL #-} + +-- | 'v1SecurityContextSeccompProfile' Lens +v1SecurityContextSeccompProfileL :: Lens_' V1SecurityContext (Maybe V1SeccompProfile) +v1SecurityContextSeccompProfileL f V1SecurityContext{..} = (\v1SecurityContextSeccompProfile -> V1SecurityContext { v1SecurityContextSeccompProfile, ..} ) <$> f v1SecurityContextSeccompProfile +{-# INLINE v1SecurityContextSeccompProfileL #-} + +-- | 'v1SecurityContextWindowsOptions' Lens +v1SecurityContextWindowsOptionsL :: Lens_' V1SecurityContext (Maybe V1WindowsSecurityContextOptions) +v1SecurityContextWindowsOptionsL f V1SecurityContext{..} = (\v1SecurityContextWindowsOptions -> V1SecurityContext { v1SecurityContextWindowsOptions, ..} ) <$> f v1SecurityContextWindowsOptions +{-# INLINE v1SecurityContextWindowsOptionsL #-} + + + +-- * V1SelfSubjectAccessReview + +-- | 'v1SelfSubjectAccessReviewApiVersion' Lens +v1SelfSubjectAccessReviewApiVersionL :: Lens_' V1SelfSubjectAccessReview (Maybe Text) +v1SelfSubjectAccessReviewApiVersionL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewApiVersion -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewApiVersion, ..} ) <$> f v1SelfSubjectAccessReviewApiVersion +{-# INLINE v1SelfSubjectAccessReviewApiVersionL #-} + +-- | 'v1SelfSubjectAccessReviewKind' Lens +v1SelfSubjectAccessReviewKindL :: Lens_' V1SelfSubjectAccessReview (Maybe Text) +v1SelfSubjectAccessReviewKindL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewKind -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewKind, ..} ) <$> f v1SelfSubjectAccessReviewKind +{-# INLINE v1SelfSubjectAccessReviewKindL #-} + +-- | 'v1SelfSubjectAccessReviewMetadata' Lens +v1SelfSubjectAccessReviewMetadataL :: Lens_' V1SelfSubjectAccessReview (Maybe V1ObjectMeta) +v1SelfSubjectAccessReviewMetadataL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewMetadata -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewMetadata, ..} ) <$> f v1SelfSubjectAccessReviewMetadata +{-# INLINE v1SelfSubjectAccessReviewMetadataL #-} + +-- | 'v1SelfSubjectAccessReviewSpec' Lens +v1SelfSubjectAccessReviewSpecL :: Lens_' V1SelfSubjectAccessReview (V1SelfSubjectAccessReviewSpec) +v1SelfSubjectAccessReviewSpecL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewSpec -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewSpec, ..} ) <$> f v1SelfSubjectAccessReviewSpec +{-# INLINE v1SelfSubjectAccessReviewSpecL #-} + +-- | 'v1SelfSubjectAccessReviewStatus' Lens +v1SelfSubjectAccessReviewStatusL :: Lens_' V1SelfSubjectAccessReview (Maybe V1SubjectAccessReviewStatus) +v1SelfSubjectAccessReviewStatusL f V1SelfSubjectAccessReview{..} = (\v1SelfSubjectAccessReviewStatus -> V1SelfSubjectAccessReview { v1SelfSubjectAccessReviewStatus, ..} ) <$> f v1SelfSubjectAccessReviewStatus +{-# INLINE v1SelfSubjectAccessReviewStatusL #-} + + + +-- * V1SelfSubjectAccessReviewSpec + +-- | 'v1SelfSubjectAccessReviewSpecNonResourceAttributes' Lens +v1SelfSubjectAccessReviewSpecNonResourceAttributesL :: Lens_' V1SelfSubjectAccessReviewSpec (Maybe V1NonResourceAttributes) +v1SelfSubjectAccessReviewSpecNonResourceAttributesL f V1SelfSubjectAccessReviewSpec{..} = (\v1SelfSubjectAccessReviewSpecNonResourceAttributes -> V1SelfSubjectAccessReviewSpec { v1SelfSubjectAccessReviewSpecNonResourceAttributes, ..} ) <$> f v1SelfSubjectAccessReviewSpecNonResourceAttributes +{-# INLINE v1SelfSubjectAccessReviewSpecNonResourceAttributesL #-} + +-- | 'v1SelfSubjectAccessReviewSpecResourceAttributes' Lens +v1SelfSubjectAccessReviewSpecResourceAttributesL :: Lens_' V1SelfSubjectAccessReviewSpec (Maybe V1ResourceAttributes) +v1SelfSubjectAccessReviewSpecResourceAttributesL f V1SelfSubjectAccessReviewSpec{..} = (\v1SelfSubjectAccessReviewSpecResourceAttributes -> V1SelfSubjectAccessReviewSpec { v1SelfSubjectAccessReviewSpecResourceAttributes, ..} ) <$> f v1SelfSubjectAccessReviewSpecResourceAttributes +{-# INLINE v1SelfSubjectAccessReviewSpecResourceAttributesL #-} + + + +-- * V1SelfSubjectRulesReview + +-- | 'v1SelfSubjectRulesReviewApiVersion' Lens +v1SelfSubjectRulesReviewApiVersionL :: Lens_' V1SelfSubjectRulesReview (Maybe Text) +v1SelfSubjectRulesReviewApiVersionL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewApiVersion -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewApiVersion, ..} ) <$> f v1SelfSubjectRulesReviewApiVersion +{-# INLINE v1SelfSubjectRulesReviewApiVersionL #-} + +-- | 'v1SelfSubjectRulesReviewKind' Lens +v1SelfSubjectRulesReviewKindL :: Lens_' V1SelfSubjectRulesReview (Maybe Text) +v1SelfSubjectRulesReviewKindL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewKind -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewKind, ..} ) <$> f v1SelfSubjectRulesReviewKind +{-# INLINE v1SelfSubjectRulesReviewKindL #-} + +-- | 'v1SelfSubjectRulesReviewMetadata' Lens +v1SelfSubjectRulesReviewMetadataL :: Lens_' V1SelfSubjectRulesReview (Maybe V1ObjectMeta) +v1SelfSubjectRulesReviewMetadataL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewMetadata -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewMetadata, ..} ) <$> f v1SelfSubjectRulesReviewMetadata +{-# INLINE v1SelfSubjectRulesReviewMetadataL #-} + +-- | 'v1SelfSubjectRulesReviewSpec' Lens +v1SelfSubjectRulesReviewSpecL :: Lens_' V1SelfSubjectRulesReview (V1SelfSubjectRulesReviewSpec) +v1SelfSubjectRulesReviewSpecL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewSpec -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewSpec, ..} ) <$> f v1SelfSubjectRulesReviewSpec +{-# INLINE v1SelfSubjectRulesReviewSpecL #-} + +-- | 'v1SelfSubjectRulesReviewStatus' Lens +v1SelfSubjectRulesReviewStatusL :: Lens_' V1SelfSubjectRulesReview (Maybe V1SubjectRulesReviewStatus) +v1SelfSubjectRulesReviewStatusL f V1SelfSubjectRulesReview{..} = (\v1SelfSubjectRulesReviewStatus -> V1SelfSubjectRulesReview { v1SelfSubjectRulesReviewStatus, ..} ) <$> f v1SelfSubjectRulesReviewStatus +{-# INLINE v1SelfSubjectRulesReviewStatusL #-} + + + +-- * V1SelfSubjectRulesReviewSpec + +-- | 'v1SelfSubjectRulesReviewSpecNamespace' Lens +v1SelfSubjectRulesReviewSpecNamespaceL :: Lens_' V1SelfSubjectRulesReviewSpec (Maybe Text) +v1SelfSubjectRulesReviewSpecNamespaceL f V1SelfSubjectRulesReviewSpec{..} = (\v1SelfSubjectRulesReviewSpecNamespace -> V1SelfSubjectRulesReviewSpec { v1SelfSubjectRulesReviewSpecNamespace, ..} ) <$> f v1SelfSubjectRulesReviewSpecNamespace +{-# INLINE v1SelfSubjectRulesReviewSpecNamespaceL #-} + + + +-- * V1ServerAddressByClientCIDR + +-- | 'v1ServerAddressByClientCIDRClientCidr' Lens +v1ServerAddressByClientCIDRClientCidrL :: Lens_' V1ServerAddressByClientCIDR (Text) +v1ServerAddressByClientCIDRClientCidrL f V1ServerAddressByClientCIDR{..} = (\v1ServerAddressByClientCIDRClientCidr -> V1ServerAddressByClientCIDR { v1ServerAddressByClientCIDRClientCidr, ..} ) <$> f v1ServerAddressByClientCIDRClientCidr +{-# INLINE v1ServerAddressByClientCIDRClientCidrL #-} + +-- | 'v1ServerAddressByClientCIDRServerAddress' Lens +v1ServerAddressByClientCIDRServerAddressL :: Lens_' V1ServerAddressByClientCIDR (Text) +v1ServerAddressByClientCIDRServerAddressL f V1ServerAddressByClientCIDR{..} = (\v1ServerAddressByClientCIDRServerAddress -> V1ServerAddressByClientCIDR { v1ServerAddressByClientCIDRServerAddress, ..} ) <$> f v1ServerAddressByClientCIDRServerAddress +{-# INLINE v1ServerAddressByClientCIDRServerAddressL #-} + + + +-- * V1Service + +-- | 'v1ServiceApiVersion' Lens +v1ServiceApiVersionL :: Lens_' V1Service (Maybe Text) +v1ServiceApiVersionL f V1Service{..} = (\v1ServiceApiVersion -> V1Service { v1ServiceApiVersion, ..} ) <$> f v1ServiceApiVersion +{-# INLINE v1ServiceApiVersionL #-} + +-- | 'v1ServiceKind' Lens +v1ServiceKindL :: Lens_' V1Service (Maybe Text) +v1ServiceKindL f V1Service{..} = (\v1ServiceKind -> V1Service { v1ServiceKind, ..} ) <$> f v1ServiceKind +{-# INLINE v1ServiceKindL #-} + +-- | 'v1ServiceMetadata' Lens +v1ServiceMetadataL :: Lens_' V1Service (Maybe V1ObjectMeta) +v1ServiceMetadataL f V1Service{..} = (\v1ServiceMetadata -> V1Service { v1ServiceMetadata, ..} ) <$> f v1ServiceMetadata +{-# INLINE v1ServiceMetadataL #-} + +-- | 'v1ServiceSpec' Lens +v1ServiceSpecL :: Lens_' V1Service (Maybe V1ServiceSpec) +v1ServiceSpecL f V1Service{..} = (\v1ServiceSpec -> V1Service { v1ServiceSpec, ..} ) <$> f v1ServiceSpec +{-# INLINE v1ServiceSpecL #-} + +-- | 'v1ServiceStatus' Lens +v1ServiceStatusL :: Lens_' V1Service (Maybe V1ServiceStatus) +v1ServiceStatusL f V1Service{..} = (\v1ServiceStatus -> V1Service { v1ServiceStatus, ..} ) <$> f v1ServiceStatus +{-# INLINE v1ServiceStatusL #-} + + + +-- * V1ServiceAccount + +-- | 'v1ServiceAccountApiVersion' Lens +v1ServiceAccountApiVersionL :: Lens_' V1ServiceAccount (Maybe Text) +v1ServiceAccountApiVersionL f V1ServiceAccount{..} = (\v1ServiceAccountApiVersion -> V1ServiceAccount { v1ServiceAccountApiVersion, ..} ) <$> f v1ServiceAccountApiVersion +{-# INLINE v1ServiceAccountApiVersionL #-} + +-- | 'v1ServiceAccountAutomountServiceAccountToken' Lens +v1ServiceAccountAutomountServiceAccountTokenL :: Lens_' V1ServiceAccount (Maybe Bool) +v1ServiceAccountAutomountServiceAccountTokenL f V1ServiceAccount{..} = (\v1ServiceAccountAutomountServiceAccountToken -> V1ServiceAccount { v1ServiceAccountAutomountServiceAccountToken, ..} ) <$> f v1ServiceAccountAutomountServiceAccountToken +{-# INLINE v1ServiceAccountAutomountServiceAccountTokenL #-} + +-- | 'v1ServiceAccountImagePullSecrets' Lens +v1ServiceAccountImagePullSecretsL :: Lens_' V1ServiceAccount (Maybe [V1LocalObjectReference]) +v1ServiceAccountImagePullSecretsL f V1ServiceAccount{..} = (\v1ServiceAccountImagePullSecrets -> V1ServiceAccount { v1ServiceAccountImagePullSecrets, ..} ) <$> f v1ServiceAccountImagePullSecrets +{-# INLINE v1ServiceAccountImagePullSecretsL #-} + +-- | 'v1ServiceAccountKind' Lens +v1ServiceAccountKindL :: Lens_' V1ServiceAccount (Maybe Text) +v1ServiceAccountKindL f V1ServiceAccount{..} = (\v1ServiceAccountKind -> V1ServiceAccount { v1ServiceAccountKind, ..} ) <$> f v1ServiceAccountKind +{-# INLINE v1ServiceAccountKindL #-} + +-- | 'v1ServiceAccountMetadata' Lens +v1ServiceAccountMetadataL :: Lens_' V1ServiceAccount (Maybe V1ObjectMeta) +v1ServiceAccountMetadataL f V1ServiceAccount{..} = (\v1ServiceAccountMetadata -> V1ServiceAccount { v1ServiceAccountMetadata, ..} ) <$> f v1ServiceAccountMetadata +{-# INLINE v1ServiceAccountMetadataL #-} + +-- | 'v1ServiceAccountSecrets' Lens +v1ServiceAccountSecretsL :: Lens_' V1ServiceAccount (Maybe [V1ObjectReference]) +v1ServiceAccountSecretsL f V1ServiceAccount{..} = (\v1ServiceAccountSecrets -> V1ServiceAccount { v1ServiceAccountSecrets, ..} ) <$> f v1ServiceAccountSecrets +{-# INLINE v1ServiceAccountSecretsL #-} + + + +-- * V1ServiceAccountList + +-- | 'v1ServiceAccountListApiVersion' Lens +v1ServiceAccountListApiVersionL :: Lens_' V1ServiceAccountList (Maybe Text) +v1ServiceAccountListApiVersionL f V1ServiceAccountList{..} = (\v1ServiceAccountListApiVersion -> V1ServiceAccountList { v1ServiceAccountListApiVersion, ..} ) <$> f v1ServiceAccountListApiVersion +{-# INLINE v1ServiceAccountListApiVersionL #-} + +-- | 'v1ServiceAccountListItems' Lens +v1ServiceAccountListItemsL :: Lens_' V1ServiceAccountList ([V1ServiceAccount]) +v1ServiceAccountListItemsL f V1ServiceAccountList{..} = (\v1ServiceAccountListItems -> V1ServiceAccountList { v1ServiceAccountListItems, ..} ) <$> f v1ServiceAccountListItems +{-# INLINE v1ServiceAccountListItemsL #-} + +-- | 'v1ServiceAccountListKind' Lens +v1ServiceAccountListKindL :: Lens_' V1ServiceAccountList (Maybe Text) +v1ServiceAccountListKindL f V1ServiceAccountList{..} = (\v1ServiceAccountListKind -> V1ServiceAccountList { v1ServiceAccountListKind, ..} ) <$> f v1ServiceAccountListKind +{-# INLINE v1ServiceAccountListKindL #-} + +-- | 'v1ServiceAccountListMetadata' Lens +v1ServiceAccountListMetadataL :: Lens_' V1ServiceAccountList (Maybe V1ListMeta) +v1ServiceAccountListMetadataL f V1ServiceAccountList{..} = (\v1ServiceAccountListMetadata -> V1ServiceAccountList { v1ServiceAccountListMetadata, ..} ) <$> f v1ServiceAccountListMetadata +{-# INLINE v1ServiceAccountListMetadataL #-} + + + +-- * V1ServiceAccountTokenProjection + +-- | 'v1ServiceAccountTokenProjectionAudience' Lens +v1ServiceAccountTokenProjectionAudienceL :: Lens_' V1ServiceAccountTokenProjection (Maybe Text) +v1ServiceAccountTokenProjectionAudienceL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionAudience -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionAudience, ..} ) <$> f v1ServiceAccountTokenProjectionAudience +{-# INLINE v1ServiceAccountTokenProjectionAudienceL #-} + +-- | 'v1ServiceAccountTokenProjectionExpirationSeconds' Lens +v1ServiceAccountTokenProjectionExpirationSecondsL :: Lens_' V1ServiceAccountTokenProjection (Maybe Integer) +v1ServiceAccountTokenProjectionExpirationSecondsL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionExpirationSeconds -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionExpirationSeconds, ..} ) <$> f v1ServiceAccountTokenProjectionExpirationSeconds +{-# INLINE v1ServiceAccountTokenProjectionExpirationSecondsL #-} + +-- | 'v1ServiceAccountTokenProjectionPath' Lens +v1ServiceAccountTokenProjectionPathL :: Lens_' V1ServiceAccountTokenProjection (Text) +v1ServiceAccountTokenProjectionPathL f V1ServiceAccountTokenProjection{..} = (\v1ServiceAccountTokenProjectionPath -> V1ServiceAccountTokenProjection { v1ServiceAccountTokenProjectionPath, ..} ) <$> f v1ServiceAccountTokenProjectionPath +{-# INLINE v1ServiceAccountTokenProjectionPathL #-} + + + +-- * V1ServiceBackendPort + +-- | 'v1ServiceBackendPortName' Lens +v1ServiceBackendPortNameL :: Lens_' V1ServiceBackendPort (Maybe Text) +v1ServiceBackendPortNameL f V1ServiceBackendPort{..} = (\v1ServiceBackendPortName -> V1ServiceBackendPort { v1ServiceBackendPortName, ..} ) <$> f v1ServiceBackendPortName +{-# INLINE v1ServiceBackendPortNameL #-} + +-- | 'v1ServiceBackendPortNumber' Lens +v1ServiceBackendPortNumberL :: Lens_' V1ServiceBackendPort (Maybe Int) +v1ServiceBackendPortNumberL f V1ServiceBackendPort{..} = (\v1ServiceBackendPortNumber -> V1ServiceBackendPort { v1ServiceBackendPortNumber, ..} ) <$> f v1ServiceBackendPortNumber +{-# INLINE v1ServiceBackendPortNumberL #-} + + + +-- * V1ServiceList + +-- | 'v1ServiceListApiVersion' Lens +v1ServiceListApiVersionL :: Lens_' V1ServiceList (Maybe Text) +v1ServiceListApiVersionL f V1ServiceList{..} = (\v1ServiceListApiVersion -> V1ServiceList { v1ServiceListApiVersion, ..} ) <$> f v1ServiceListApiVersion +{-# INLINE v1ServiceListApiVersionL #-} + +-- | 'v1ServiceListItems' Lens +v1ServiceListItemsL :: Lens_' V1ServiceList ([V1Service]) +v1ServiceListItemsL f V1ServiceList{..} = (\v1ServiceListItems -> V1ServiceList { v1ServiceListItems, ..} ) <$> f v1ServiceListItems +{-# INLINE v1ServiceListItemsL #-} + +-- | 'v1ServiceListKind' Lens +v1ServiceListKindL :: Lens_' V1ServiceList (Maybe Text) +v1ServiceListKindL f V1ServiceList{..} = (\v1ServiceListKind -> V1ServiceList { v1ServiceListKind, ..} ) <$> f v1ServiceListKind +{-# INLINE v1ServiceListKindL #-} + +-- | 'v1ServiceListMetadata' Lens +v1ServiceListMetadataL :: Lens_' V1ServiceList (Maybe V1ListMeta) +v1ServiceListMetadataL f V1ServiceList{..} = (\v1ServiceListMetadata -> V1ServiceList { v1ServiceListMetadata, ..} ) <$> f v1ServiceListMetadata +{-# INLINE v1ServiceListMetadataL #-} + + + +-- * V1ServicePort + +-- | 'v1ServicePortAppProtocol' Lens +v1ServicePortAppProtocolL :: Lens_' V1ServicePort (Maybe Text) +v1ServicePortAppProtocolL f V1ServicePort{..} = (\v1ServicePortAppProtocol -> V1ServicePort { v1ServicePortAppProtocol, ..} ) <$> f v1ServicePortAppProtocol +{-# INLINE v1ServicePortAppProtocolL #-} + +-- | 'v1ServicePortName' Lens +v1ServicePortNameL :: Lens_' V1ServicePort (Maybe Text) +v1ServicePortNameL f V1ServicePort{..} = (\v1ServicePortName -> V1ServicePort { v1ServicePortName, ..} ) <$> f v1ServicePortName +{-# INLINE v1ServicePortNameL #-} + +-- | 'v1ServicePortNodePort' Lens +v1ServicePortNodePortL :: Lens_' V1ServicePort (Maybe Int) +v1ServicePortNodePortL f V1ServicePort{..} = (\v1ServicePortNodePort -> V1ServicePort { v1ServicePortNodePort, ..} ) <$> f v1ServicePortNodePort +{-# INLINE v1ServicePortNodePortL #-} + +-- | 'v1ServicePortPort' Lens +v1ServicePortPortL :: Lens_' V1ServicePort (Int) +v1ServicePortPortL f V1ServicePort{..} = (\v1ServicePortPort -> V1ServicePort { v1ServicePortPort, ..} ) <$> f v1ServicePortPort +{-# INLINE v1ServicePortPortL #-} + +-- | 'v1ServicePortProtocol' Lens +v1ServicePortProtocolL :: Lens_' V1ServicePort (Maybe Text) +v1ServicePortProtocolL f V1ServicePort{..} = (\v1ServicePortProtocol -> V1ServicePort { v1ServicePortProtocol, ..} ) <$> f v1ServicePortProtocol +{-# INLINE v1ServicePortProtocolL #-} + +-- | 'v1ServicePortTargetPort' Lens +v1ServicePortTargetPortL :: Lens_' V1ServicePort (Maybe IntOrString) +v1ServicePortTargetPortL f V1ServicePort{..} = (\v1ServicePortTargetPort -> V1ServicePort { v1ServicePortTargetPort, ..} ) <$> f v1ServicePortTargetPort +{-# INLINE v1ServicePortTargetPortL #-} + + + +-- * V1ServiceSpec + +-- | 'v1ServiceSpecAllocateLoadBalancerNodePorts' Lens +v1ServiceSpecAllocateLoadBalancerNodePortsL :: Lens_' V1ServiceSpec (Maybe Bool) +v1ServiceSpecAllocateLoadBalancerNodePortsL f V1ServiceSpec{..} = (\v1ServiceSpecAllocateLoadBalancerNodePorts -> V1ServiceSpec { v1ServiceSpecAllocateLoadBalancerNodePorts, ..} ) <$> f v1ServiceSpecAllocateLoadBalancerNodePorts +{-# INLINE v1ServiceSpecAllocateLoadBalancerNodePortsL #-} + +-- | 'v1ServiceSpecClusterIp' Lens +v1ServiceSpecClusterIpL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecClusterIpL f V1ServiceSpec{..} = (\v1ServiceSpecClusterIp -> V1ServiceSpec { v1ServiceSpecClusterIp, ..} ) <$> f v1ServiceSpecClusterIp +{-# INLINE v1ServiceSpecClusterIpL #-} + +-- | 'v1ServiceSpecClusterIps' Lens +v1ServiceSpecClusterIpsL :: Lens_' V1ServiceSpec (Maybe [Text]) +v1ServiceSpecClusterIpsL f V1ServiceSpec{..} = (\v1ServiceSpecClusterIps -> V1ServiceSpec { v1ServiceSpecClusterIps, ..} ) <$> f v1ServiceSpecClusterIps +{-# INLINE v1ServiceSpecClusterIpsL #-} + +-- | 'v1ServiceSpecExternalIps' Lens +v1ServiceSpecExternalIpsL :: Lens_' V1ServiceSpec (Maybe [Text]) +v1ServiceSpecExternalIpsL f V1ServiceSpec{..} = (\v1ServiceSpecExternalIps -> V1ServiceSpec { v1ServiceSpecExternalIps, ..} ) <$> f v1ServiceSpecExternalIps +{-# INLINE v1ServiceSpecExternalIpsL #-} + +-- | 'v1ServiceSpecExternalName' Lens +v1ServiceSpecExternalNameL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecExternalNameL f V1ServiceSpec{..} = (\v1ServiceSpecExternalName -> V1ServiceSpec { v1ServiceSpecExternalName, ..} ) <$> f v1ServiceSpecExternalName +{-# INLINE v1ServiceSpecExternalNameL #-} + +-- | 'v1ServiceSpecExternalTrafficPolicy' Lens +v1ServiceSpecExternalTrafficPolicyL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecExternalTrafficPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecExternalTrafficPolicy -> V1ServiceSpec { v1ServiceSpecExternalTrafficPolicy, ..} ) <$> f v1ServiceSpecExternalTrafficPolicy +{-# INLINE v1ServiceSpecExternalTrafficPolicyL #-} + +-- | 'v1ServiceSpecHealthCheckNodePort' Lens +v1ServiceSpecHealthCheckNodePortL :: Lens_' V1ServiceSpec (Maybe Int) +v1ServiceSpecHealthCheckNodePortL f V1ServiceSpec{..} = (\v1ServiceSpecHealthCheckNodePort -> V1ServiceSpec { v1ServiceSpecHealthCheckNodePort, ..} ) <$> f v1ServiceSpecHealthCheckNodePort +{-# INLINE v1ServiceSpecHealthCheckNodePortL #-} + +-- | 'v1ServiceSpecInternalTrafficPolicy' Lens +v1ServiceSpecInternalTrafficPolicyL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecInternalTrafficPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecInternalTrafficPolicy -> V1ServiceSpec { v1ServiceSpecInternalTrafficPolicy, ..} ) <$> f v1ServiceSpecInternalTrafficPolicy +{-# INLINE v1ServiceSpecInternalTrafficPolicyL #-} + +-- | 'v1ServiceSpecIpFamilies' Lens +v1ServiceSpecIpFamiliesL :: Lens_' V1ServiceSpec (Maybe [Text]) +v1ServiceSpecIpFamiliesL f V1ServiceSpec{..} = (\v1ServiceSpecIpFamilies -> V1ServiceSpec { v1ServiceSpecIpFamilies, ..} ) <$> f v1ServiceSpecIpFamilies +{-# INLINE v1ServiceSpecIpFamiliesL #-} + +-- | 'v1ServiceSpecIpFamilyPolicy' Lens +v1ServiceSpecIpFamilyPolicyL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecIpFamilyPolicyL f V1ServiceSpec{..} = (\v1ServiceSpecIpFamilyPolicy -> V1ServiceSpec { v1ServiceSpecIpFamilyPolicy, ..} ) <$> f v1ServiceSpecIpFamilyPolicy +{-# INLINE v1ServiceSpecIpFamilyPolicyL #-} + +-- | 'v1ServiceSpecLoadBalancerClass' Lens +v1ServiceSpecLoadBalancerClassL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecLoadBalancerClassL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerClass -> V1ServiceSpec { v1ServiceSpecLoadBalancerClass, ..} ) <$> f v1ServiceSpecLoadBalancerClass +{-# INLINE v1ServiceSpecLoadBalancerClassL #-} + +-- | 'v1ServiceSpecLoadBalancerIp' Lens +v1ServiceSpecLoadBalancerIpL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecLoadBalancerIpL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerIp -> V1ServiceSpec { v1ServiceSpecLoadBalancerIp, ..} ) <$> f v1ServiceSpecLoadBalancerIp +{-# INLINE v1ServiceSpecLoadBalancerIpL #-} + +-- | 'v1ServiceSpecLoadBalancerSourceRanges' Lens +v1ServiceSpecLoadBalancerSourceRangesL :: Lens_' V1ServiceSpec (Maybe [Text]) +v1ServiceSpecLoadBalancerSourceRangesL f V1ServiceSpec{..} = (\v1ServiceSpecLoadBalancerSourceRanges -> V1ServiceSpec { v1ServiceSpecLoadBalancerSourceRanges, ..} ) <$> f v1ServiceSpecLoadBalancerSourceRanges +{-# INLINE v1ServiceSpecLoadBalancerSourceRangesL #-} + +-- | 'v1ServiceSpecPorts' Lens +v1ServiceSpecPortsL :: Lens_' V1ServiceSpec (Maybe [V1ServicePort]) +v1ServiceSpecPortsL f V1ServiceSpec{..} = (\v1ServiceSpecPorts -> V1ServiceSpec { v1ServiceSpecPorts, ..} ) <$> f v1ServiceSpecPorts +{-# INLINE v1ServiceSpecPortsL #-} + +-- | 'v1ServiceSpecPublishNotReadyAddresses' Lens +v1ServiceSpecPublishNotReadyAddressesL :: Lens_' V1ServiceSpec (Maybe Bool) +v1ServiceSpecPublishNotReadyAddressesL f V1ServiceSpec{..} = (\v1ServiceSpecPublishNotReadyAddresses -> V1ServiceSpec { v1ServiceSpecPublishNotReadyAddresses, ..} ) <$> f v1ServiceSpecPublishNotReadyAddresses +{-# INLINE v1ServiceSpecPublishNotReadyAddressesL #-} + +-- | 'v1ServiceSpecSelector' Lens +v1ServiceSpecSelectorL :: Lens_' V1ServiceSpec (Maybe (Map.Map String Text)) +v1ServiceSpecSelectorL f V1ServiceSpec{..} = (\v1ServiceSpecSelector -> V1ServiceSpec { v1ServiceSpecSelector, ..} ) <$> f v1ServiceSpecSelector +{-# INLINE v1ServiceSpecSelectorL #-} + +-- | 'v1ServiceSpecSessionAffinity' Lens +v1ServiceSpecSessionAffinityL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecSessionAffinityL f V1ServiceSpec{..} = (\v1ServiceSpecSessionAffinity -> V1ServiceSpec { v1ServiceSpecSessionAffinity, ..} ) <$> f v1ServiceSpecSessionAffinity +{-# INLINE v1ServiceSpecSessionAffinityL #-} + +-- | 'v1ServiceSpecSessionAffinityConfig' Lens +v1ServiceSpecSessionAffinityConfigL :: Lens_' V1ServiceSpec (Maybe V1SessionAffinityConfig) +v1ServiceSpecSessionAffinityConfigL f V1ServiceSpec{..} = (\v1ServiceSpecSessionAffinityConfig -> V1ServiceSpec { v1ServiceSpecSessionAffinityConfig, ..} ) <$> f v1ServiceSpecSessionAffinityConfig +{-# INLINE v1ServiceSpecSessionAffinityConfigL #-} + +-- | 'v1ServiceSpecType' Lens +v1ServiceSpecTypeL :: Lens_' V1ServiceSpec (Maybe Text) +v1ServiceSpecTypeL f V1ServiceSpec{..} = (\v1ServiceSpecType -> V1ServiceSpec { v1ServiceSpecType, ..} ) <$> f v1ServiceSpecType +{-# INLINE v1ServiceSpecTypeL #-} + + + +-- * V1ServiceStatus + +-- | 'v1ServiceStatusConditions' Lens +v1ServiceStatusConditionsL :: Lens_' V1ServiceStatus (Maybe [V1Condition]) +v1ServiceStatusConditionsL f V1ServiceStatus{..} = (\v1ServiceStatusConditions -> V1ServiceStatus { v1ServiceStatusConditions, ..} ) <$> f v1ServiceStatusConditions +{-# INLINE v1ServiceStatusConditionsL #-} + +-- | 'v1ServiceStatusLoadBalancer' Lens +v1ServiceStatusLoadBalancerL :: Lens_' V1ServiceStatus (Maybe V1LoadBalancerStatus) +v1ServiceStatusLoadBalancerL f V1ServiceStatus{..} = (\v1ServiceStatusLoadBalancer -> V1ServiceStatus { v1ServiceStatusLoadBalancer, ..} ) <$> f v1ServiceStatusLoadBalancer +{-# INLINE v1ServiceStatusLoadBalancerL #-} + + + +-- * V1SessionAffinityConfig + +-- | 'v1SessionAffinityConfigClientIp' Lens +v1SessionAffinityConfigClientIpL :: Lens_' V1SessionAffinityConfig (Maybe V1ClientIPConfig) +v1SessionAffinityConfigClientIpL f V1SessionAffinityConfig{..} = (\v1SessionAffinityConfigClientIp -> V1SessionAffinityConfig { v1SessionAffinityConfigClientIp, ..} ) <$> f v1SessionAffinityConfigClientIp +{-# INLINE v1SessionAffinityConfigClientIpL #-} + + + +-- * V1StatefulSet + +-- | 'v1StatefulSetApiVersion' Lens +v1StatefulSetApiVersionL :: Lens_' V1StatefulSet (Maybe Text) +v1StatefulSetApiVersionL f V1StatefulSet{..} = (\v1StatefulSetApiVersion -> V1StatefulSet { v1StatefulSetApiVersion, ..} ) <$> f v1StatefulSetApiVersion +{-# INLINE v1StatefulSetApiVersionL #-} + +-- | 'v1StatefulSetKind' Lens +v1StatefulSetKindL :: Lens_' V1StatefulSet (Maybe Text) +v1StatefulSetKindL f V1StatefulSet{..} = (\v1StatefulSetKind -> V1StatefulSet { v1StatefulSetKind, ..} ) <$> f v1StatefulSetKind +{-# INLINE v1StatefulSetKindL #-} + +-- | 'v1StatefulSetMetadata' Lens +v1StatefulSetMetadataL :: Lens_' V1StatefulSet (Maybe V1ObjectMeta) +v1StatefulSetMetadataL f V1StatefulSet{..} = (\v1StatefulSetMetadata -> V1StatefulSet { v1StatefulSetMetadata, ..} ) <$> f v1StatefulSetMetadata +{-# INLINE v1StatefulSetMetadataL #-} + +-- | 'v1StatefulSetSpec' Lens +v1StatefulSetSpecL :: Lens_' V1StatefulSet (Maybe V1StatefulSetSpec) +v1StatefulSetSpecL f V1StatefulSet{..} = (\v1StatefulSetSpec -> V1StatefulSet { v1StatefulSetSpec, ..} ) <$> f v1StatefulSetSpec +{-# INLINE v1StatefulSetSpecL #-} + +-- | 'v1StatefulSetStatus' Lens +v1StatefulSetStatusL :: Lens_' V1StatefulSet (Maybe V1StatefulSetStatus) +v1StatefulSetStatusL f V1StatefulSet{..} = (\v1StatefulSetStatus -> V1StatefulSet { v1StatefulSetStatus, ..} ) <$> f v1StatefulSetStatus +{-# INLINE v1StatefulSetStatusL #-} + + + +-- * V1StatefulSetCondition + +-- | 'v1StatefulSetConditionLastTransitionTime' Lens +v1StatefulSetConditionLastTransitionTimeL :: Lens_' V1StatefulSetCondition (Maybe DateTime) +v1StatefulSetConditionLastTransitionTimeL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionLastTransitionTime -> V1StatefulSetCondition { v1StatefulSetConditionLastTransitionTime, ..} ) <$> f v1StatefulSetConditionLastTransitionTime +{-# INLINE v1StatefulSetConditionLastTransitionTimeL #-} + +-- | 'v1StatefulSetConditionMessage' Lens +v1StatefulSetConditionMessageL :: Lens_' V1StatefulSetCondition (Maybe Text) +v1StatefulSetConditionMessageL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionMessage -> V1StatefulSetCondition { v1StatefulSetConditionMessage, ..} ) <$> f v1StatefulSetConditionMessage +{-# INLINE v1StatefulSetConditionMessageL #-} + +-- | 'v1StatefulSetConditionReason' Lens +v1StatefulSetConditionReasonL :: Lens_' V1StatefulSetCondition (Maybe Text) +v1StatefulSetConditionReasonL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionReason -> V1StatefulSetCondition { v1StatefulSetConditionReason, ..} ) <$> f v1StatefulSetConditionReason +{-# INLINE v1StatefulSetConditionReasonL #-} + +-- | 'v1StatefulSetConditionStatus' Lens +v1StatefulSetConditionStatusL :: Lens_' V1StatefulSetCondition (Text) +v1StatefulSetConditionStatusL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionStatus -> V1StatefulSetCondition { v1StatefulSetConditionStatus, ..} ) <$> f v1StatefulSetConditionStatus +{-# INLINE v1StatefulSetConditionStatusL #-} + +-- | 'v1StatefulSetConditionType' Lens +v1StatefulSetConditionTypeL :: Lens_' V1StatefulSetCondition (Text) +v1StatefulSetConditionTypeL f V1StatefulSetCondition{..} = (\v1StatefulSetConditionType -> V1StatefulSetCondition { v1StatefulSetConditionType, ..} ) <$> f v1StatefulSetConditionType +{-# INLINE v1StatefulSetConditionTypeL #-} + + + +-- * V1StatefulSetList + +-- | 'v1StatefulSetListApiVersion' Lens +v1StatefulSetListApiVersionL :: Lens_' V1StatefulSetList (Maybe Text) +v1StatefulSetListApiVersionL f V1StatefulSetList{..} = (\v1StatefulSetListApiVersion -> V1StatefulSetList { v1StatefulSetListApiVersion, ..} ) <$> f v1StatefulSetListApiVersion +{-# INLINE v1StatefulSetListApiVersionL #-} + +-- | 'v1StatefulSetListItems' Lens +v1StatefulSetListItemsL :: Lens_' V1StatefulSetList ([V1StatefulSet]) +v1StatefulSetListItemsL f V1StatefulSetList{..} = (\v1StatefulSetListItems -> V1StatefulSetList { v1StatefulSetListItems, ..} ) <$> f v1StatefulSetListItems +{-# INLINE v1StatefulSetListItemsL #-} + +-- | 'v1StatefulSetListKind' Lens +v1StatefulSetListKindL :: Lens_' V1StatefulSetList (Maybe Text) +v1StatefulSetListKindL f V1StatefulSetList{..} = (\v1StatefulSetListKind -> V1StatefulSetList { v1StatefulSetListKind, ..} ) <$> f v1StatefulSetListKind +{-# INLINE v1StatefulSetListKindL #-} + +-- | 'v1StatefulSetListMetadata' Lens +v1StatefulSetListMetadataL :: Lens_' V1StatefulSetList (Maybe V1ListMeta) +v1StatefulSetListMetadataL f V1StatefulSetList{..} = (\v1StatefulSetListMetadata -> V1StatefulSetList { v1StatefulSetListMetadata, ..} ) <$> f v1StatefulSetListMetadata +{-# INLINE v1StatefulSetListMetadataL #-} + + + +-- * V1StatefulSetOrdinals + +-- | 'v1StatefulSetOrdinalsStart' Lens +v1StatefulSetOrdinalsStartL :: Lens_' V1StatefulSetOrdinals (Maybe Int) +v1StatefulSetOrdinalsStartL f V1StatefulSetOrdinals{..} = (\v1StatefulSetOrdinalsStart -> V1StatefulSetOrdinals { v1StatefulSetOrdinalsStart, ..} ) <$> f v1StatefulSetOrdinalsStart +{-# INLINE v1StatefulSetOrdinalsStartL #-} + + + +-- * V1StatefulSetPersistentVolumeClaimRetentionPolicy + +-- | 'v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted' Lens +v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL :: Lens_' V1StatefulSetPersistentVolumeClaimRetentionPolicy (Maybe Text) +v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL f V1StatefulSetPersistentVolumeClaimRetentionPolicy{..} = (\v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted -> V1StatefulSetPersistentVolumeClaimRetentionPolicy { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted, ..} ) <$> f v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeleted +{-# INLINE v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenDeletedL #-} + +-- | 'v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled' Lens +v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL :: Lens_' V1StatefulSetPersistentVolumeClaimRetentionPolicy (Maybe Text) +v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL f V1StatefulSetPersistentVolumeClaimRetentionPolicy{..} = (\v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled -> V1StatefulSetPersistentVolumeClaimRetentionPolicy { v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled, ..} ) <$> f v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaled +{-# INLINE v1StatefulSetPersistentVolumeClaimRetentionPolicyWhenScaledL #-} + + + +-- * V1StatefulSetSpec + +-- | 'v1StatefulSetSpecMinReadySeconds' Lens +v1StatefulSetSpecMinReadySecondsL :: Lens_' V1StatefulSetSpec (Maybe Int) +v1StatefulSetSpecMinReadySecondsL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecMinReadySeconds -> V1StatefulSetSpec { v1StatefulSetSpecMinReadySeconds, ..} ) <$> f v1StatefulSetSpecMinReadySeconds +{-# INLINE v1StatefulSetSpecMinReadySecondsL #-} + +-- | 'v1StatefulSetSpecOrdinals' Lens +v1StatefulSetSpecOrdinalsL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetOrdinals) +v1StatefulSetSpecOrdinalsL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecOrdinals -> V1StatefulSetSpec { v1StatefulSetSpecOrdinals, ..} ) <$> f v1StatefulSetSpecOrdinals +{-# INLINE v1StatefulSetSpecOrdinalsL #-} + +-- | 'v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy' Lens +v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetPersistentVolumeClaimRetentionPolicy) +v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy -> V1StatefulSetSpec { v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy, ..} ) <$> f v1StatefulSetSpecPersistentVolumeClaimRetentionPolicy +{-# INLINE v1StatefulSetSpecPersistentVolumeClaimRetentionPolicyL #-} + +-- | 'v1StatefulSetSpecPodManagementPolicy' Lens +v1StatefulSetSpecPodManagementPolicyL :: Lens_' V1StatefulSetSpec (Maybe Text) +v1StatefulSetSpecPodManagementPolicyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecPodManagementPolicy -> V1StatefulSetSpec { v1StatefulSetSpecPodManagementPolicy, ..} ) <$> f v1StatefulSetSpecPodManagementPolicy +{-# INLINE v1StatefulSetSpecPodManagementPolicyL #-} + +-- | 'v1StatefulSetSpecReplicas' Lens +v1StatefulSetSpecReplicasL :: Lens_' V1StatefulSetSpec (Maybe Int) +v1StatefulSetSpecReplicasL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecReplicas -> V1StatefulSetSpec { v1StatefulSetSpecReplicas, ..} ) <$> f v1StatefulSetSpecReplicas +{-# INLINE v1StatefulSetSpecReplicasL #-} + +-- | 'v1StatefulSetSpecRevisionHistoryLimit' Lens +v1StatefulSetSpecRevisionHistoryLimitL :: Lens_' V1StatefulSetSpec (Maybe Int) +v1StatefulSetSpecRevisionHistoryLimitL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecRevisionHistoryLimit -> V1StatefulSetSpec { v1StatefulSetSpecRevisionHistoryLimit, ..} ) <$> f v1StatefulSetSpecRevisionHistoryLimit +{-# INLINE v1StatefulSetSpecRevisionHistoryLimitL #-} + +-- | 'v1StatefulSetSpecSelector' Lens +v1StatefulSetSpecSelectorL :: Lens_' V1StatefulSetSpec (V1LabelSelector) +v1StatefulSetSpecSelectorL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecSelector -> V1StatefulSetSpec { v1StatefulSetSpecSelector, ..} ) <$> f v1StatefulSetSpecSelector +{-# INLINE v1StatefulSetSpecSelectorL #-} + +-- | 'v1StatefulSetSpecServiceName' Lens +v1StatefulSetSpecServiceNameL :: Lens_' V1StatefulSetSpec (Text) +v1StatefulSetSpecServiceNameL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecServiceName -> V1StatefulSetSpec { v1StatefulSetSpecServiceName, ..} ) <$> f v1StatefulSetSpecServiceName +{-# INLINE v1StatefulSetSpecServiceNameL #-} + +-- | 'v1StatefulSetSpecTemplate' Lens +v1StatefulSetSpecTemplateL :: Lens_' V1StatefulSetSpec (V1PodTemplateSpec) +v1StatefulSetSpecTemplateL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecTemplate -> V1StatefulSetSpec { v1StatefulSetSpecTemplate, ..} ) <$> f v1StatefulSetSpecTemplate +{-# INLINE v1StatefulSetSpecTemplateL #-} + +-- | 'v1StatefulSetSpecUpdateStrategy' Lens +v1StatefulSetSpecUpdateStrategyL :: Lens_' V1StatefulSetSpec (Maybe V1StatefulSetUpdateStrategy) +v1StatefulSetSpecUpdateStrategyL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecUpdateStrategy -> V1StatefulSetSpec { v1StatefulSetSpecUpdateStrategy, ..} ) <$> f v1StatefulSetSpecUpdateStrategy +{-# INLINE v1StatefulSetSpecUpdateStrategyL #-} + +-- | 'v1StatefulSetSpecVolumeClaimTemplates' Lens +v1StatefulSetSpecVolumeClaimTemplatesL :: Lens_' V1StatefulSetSpec (Maybe [V1PersistentVolumeClaim]) +v1StatefulSetSpecVolumeClaimTemplatesL f V1StatefulSetSpec{..} = (\v1StatefulSetSpecVolumeClaimTemplates -> V1StatefulSetSpec { v1StatefulSetSpecVolumeClaimTemplates, ..} ) <$> f v1StatefulSetSpecVolumeClaimTemplates +{-# INLINE v1StatefulSetSpecVolumeClaimTemplatesL #-} + + + +-- * V1StatefulSetStatus + +-- | 'v1StatefulSetStatusAvailableReplicas' Lens +v1StatefulSetStatusAvailableReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) +v1StatefulSetStatusAvailableReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusAvailableReplicas -> V1StatefulSetStatus { v1StatefulSetStatusAvailableReplicas, ..} ) <$> f v1StatefulSetStatusAvailableReplicas +{-# INLINE v1StatefulSetStatusAvailableReplicasL #-} + +-- | 'v1StatefulSetStatusCollisionCount' Lens +v1StatefulSetStatusCollisionCountL :: Lens_' V1StatefulSetStatus (Maybe Int) +v1StatefulSetStatusCollisionCountL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCollisionCount -> V1StatefulSetStatus { v1StatefulSetStatusCollisionCount, ..} ) <$> f v1StatefulSetStatusCollisionCount +{-# INLINE v1StatefulSetStatusCollisionCountL #-} + +-- | 'v1StatefulSetStatusConditions' Lens +v1StatefulSetStatusConditionsL :: Lens_' V1StatefulSetStatus (Maybe [V1StatefulSetCondition]) +v1StatefulSetStatusConditionsL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusConditions -> V1StatefulSetStatus { v1StatefulSetStatusConditions, ..} ) <$> f v1StatefulSetStatusConditions +{-# INLINE v1StatefulSetStatusConditionsL #-} + +-- | 'v1StatefulSetStatusCurrentReplicas' Lens +v1StatefulSetStatusCurrentReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) +v1StatefulSetStatusCurrentReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCurrentReplicas -> V1StatefulSetStatus { v1StatefulSetStatusCurrentReplicas, ..} ) <$> f v1StatefulSetStatusCurrentReplicas +{-# INLINE v1StatefulSetStatusCurrentReplicasL #-} + +-- | 'v1StatefulSetStatusCurrentRevision' Lens +v1StatefulSetStatusCurrentRevisionL :: Lens_' V1StatefulSetStatus (Maybe Text) +v1StatefulSetStatusCurrentRevisionL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusCurrentRevision -> V1StatefulSetStatus { v1StatefulSetStatusCurrentRevision, ..} ) <$> f v1StatefulSetStatusCurrentRevision +{-# INLINE v1StatefulSetStatusCurrentRevisionL #-} + +-- | 'v1StatefulSetStatusObservedGeneration' Lens +v1StatefulSetStatusObservedGenerationL :: Lens_' V1StatefulSetStatus (Maybe Integer) +v1StatefulSetStatusObservedGenerationL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusObservedGeneration -> V1StatefulSetStatus { v1StatefulSetStatusObservedGeneration, ..} ) <$> f v1StatefulSetStatusObservedGeneration +{-# INLINE v1StatefulSetStatusObservedGenerationL #-} + +-- | 'v1StatefulSetStatusReadyReplicas' Lens +v1StatefulSetStatusReadyReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) +v1StatefulSetStatusReadyReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusReadyReplicas -> V1StatefulSetStatus { v1StatefulSetStatusReadyReplicas, ..} ) <$> f v1StatefulSetStatusReadyReplicas +{-# INLINE v1StatefulSetStatusReadyReplicasL #-} + +-- | 'v1StatefulSetStatusReplicas' Lens +v1StatefulSetStatusReplicasL :: Lens_' V1StatefulSetStatus (Int) +v1StatefulSetStatusReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusReplicas -> V1StatefulSetStatus { v1StatefulSetStatusReplicas, ..} ) <$> f v1StatefulSetStatusReplicas +{-# INLINE v1StatefulSetStatusReplicasL #-} + +-- | 'v1StatefulSetStatusUpdateRevision' Lens +v1StatefulSetStatusUpdateRevisionL :: Lens_' V1StatefulSetStatus (Maybe Text) +v1StatefulSetStatusUpdateRevisionL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusUpdateRevision -> V1StatefulSetStatus { v1StatefulSetStatusUpdateRevision, ..} ) <$> f v1StatefulSetStatusUpdateRevision +{-# INLINE v1StatefulSetStatusUpdateRevisionL #-} + +-- | 'v1StatefulSetStatusUpdatedReplicas' Lens +v1StatefulSetStatusUpdatedReplicasL :: Lens_' V1StatefulSetStatus (Maybe Int) +v1StatefulSetStatusUpdatedReplicasL f V1StatefulSetStatus{..} = (\v1StatefulSetStatusUpdatedReplicas -> V1StatefulSetStatus { v1StatefulSetStatusUpdatedReplicas, ..} ) <$> f v1StatefulSetStatusUpdatedReplicas +{-# INLINE v1StatefulSetStatusUpdatedReplicasL #-} + + + +-- * V1StatefulSetUpdateStrategy + +-- | 'v1StatefulSetUpdateStrategyRollingUpdate' Lens +v1StatefulSetUpdateStrategyRollingUpdateL :: Lens_' V1StatefulSetUpdateStrategy (Maybe V1RollingUpdateStatefulSetStrategy) +v1StatefulSetUpdateStrategyRollingUpdateL f V1StatefulSetUpdateStrategy{..} = (\v1StatefulSetUpdateStrategyRollingUpdate -> V1StatefulSetUpdateStrategy { v1StatefulSetUpdateStrategyRollingUpdate, ..} ) <$> f v1StatefulSetUpdateStrategyRollingUpdate +{-# INLINE v1StatefulSetUpdateStrategyRollingUpdateL #-} + +-- | 'v1StatefulSetUpdateStrategyType' Lens +v1StatefulSetUpdateStrategyTypeL :: Lens_' V1StatefulSetUpdateStrategy (Maybe Text) +v1StatefulSetUpdateStrategyTypeL f V1StatefulSetUpdateStrategy{..} = (\v1StatefulSetUpdateStrategyType -> V1StatefulSetUpdateStrategy { v1StatefulSetUpdateStrategyType, ..} ) <$> f v1StatefulSetUpdateStrategyType +{-# INLINE v1StatefulSetUpdateStrategyTypeL #-} + + + +-- * V1Status + +-- | 'v1StatusApiVersion' Lens +v1StatusApiVersionL :: Lens_' V1Status (Maybe Text) +v1StatusApiVersionL f V1Status{..} = (\v1StatusApiVersion -> V1Status { v1StatusApiVersion, ..} ) <$> f v1StatusApiVersion +{-# INLINE v1StatusApiVersionL #-} + +-- | 'v1StatusCode' Lens +v1StatusCodeL :: Lens_' V1Status (Maybe Int) +v1StatusCodeL f V1Status{..} = (\v1StatusCode -> V1Status { v1StatusCode, ..} ) <$> f v1StatusCode +{-# INLINE v1StatusCodeL #-} + +-- | 'v1StatusDetails' Lens +v1StatusDetailsL :: Lens_' V1Status (Maybe V1StatusDetails) +v1StatusDetailsL f V1Status{..} = (\v1StatusDetails -> V1Status { v1StatusDetails, ..} ) <$> f v1StatusDetails +{-# INLINE v1StatusDetailsL #-} + +-- | 'v1StatusKind' Lens +v1StatusKindL :: Lens_' V1Status (Maybe Text) +v1StatusKindL f V1Status{..} = (\v1StatusKind -> V1Status { v1StatusKind, ..} ) <$> f v1StatusKind +{-# INLINE v1StatusKindL #-} + +-- | 'v1StatusMessage' Lens +v1StatusMessageL :: Lens_' V1Status (Maybe Text) +v1StatusMessageL f V1Status{..} = (\v1StatusMessage -> V1Status { v1StatusMessage, ..} ) <$> f v1StatusMessage +{-# INLINE v1StatusMessageL #-} + +-- | 'v1StatusMetadata' Lens +v1StatusMetadataL :: Lens_' V1Status (Maybe V1ListMeta) +v1StatusMetadataL f V1Status{..} = (\v1StatusMetadata -> V1Status { v1StatusMetadata, ..} ) <$> f v1StatusMetadata +{-# INLINE v1StatusMetadataL #-} + +-- | 'v1StatusReason' Lens +v1StatusReasonL :: Lens_' V1Status (Maybe Text) +v1StatusReasonL f V1Status{..} = (\v1StatusReason -> V1Status { v1StatusReason, ..} ) <$> f v1StatusReason +{-# INLINE v1StatusReasonL #-} + +-- | 'v1StatusStatus' Lens +v1StatusStatusL :: Lens_' V1Status (Maybe Text) +v1StatusStatusL f V1Status{..} = (\v1StatusStatus -> V1Status { v1StatusStatus, ..} ) <$> f v1StatusStatus +{-# INLINE v1StatusStatusL #-} + + + +-- * V1StatusCause + +-- | 'v1StatusCauseField' Lens +v1StatusCauseFieldL :: Lens_' V1StatusCause (Maybe Text) +v1StatusCauseFieldL f V1StatusCause{..} = (\v1StatusCauseField -> V1StatusCause { v1StatusCauseField, ..} ) <$> f v1StatusCauseField +{-# INLINE v1StatusCauseFieldL #-} + +-- | 'v1StatusCauseMessage' Lens +v1StatusCauseMessageL :: Lens_' V1StatusCause (Maybe Text) +v1StatusCauseMessageL f V1StatusCause{..} = (\v1StatusCauseMessage -> V1StatusCause { v1StatusCauseMessage, ..} ) <$> f v1StatusCauseMessage +{-# INLINE v1StatusCauseMessageL #-} + +-- | 'v1StatusCauseReason' Lens +v1StatusCauseReasonL :: Lens_' V1StatusCause (Maybe Text) +v1StatusCauseReasonL f V1StatusCause{..} = (\v1StatusCauseReason -> V1StatusCause { v1StatusCauseReason, ..} ) <$> f v1StatusCauseReason +{-# INLINE v1StatusCauseReasonL #-} + + + +-- * V1StatusDetails + +-- | 'v1StatusDetailsCauses' Lens +v1StatusDetailsCausesL :: Lens_' V1StatusDetails (Maybe [V1StatusCause]) +v1StatusDetailsCausesL f V1StatusDetails{..} = (\v1StatusDetailsCauses -> V1StatusDetails { v1StatusDetailsCauses, ..} ) <$> f v1StatusDetailsCauses +{-# INLINE v1StatusDetailsCausesL #-} + +-- | 'v1StatusDetailsGroup' Lens +v1StatusDetailsGroupL :: Lens_' V1StatusDetails (Maybe Text) +v1StatusDetailsGroupL f V1StatusDetails{..} = (\v1StatusDetailsGroup -> V1StatusDetails { v1StatusDetailsGroup, ..} ) <$> f v1StatusDetailsGroup +{-# INLINE v1StatusDetailsGroupL #-} + +-- | 'v1StatusDetailsKind' Lens +v1StatusDetailsKindL :: Lens_' V1StatusDetails (Maybe Text) +v1StatusDetailsKindL f V1StatusDetails{..} = (\v1StatusDetailsKind -> V1StatusDetails { v1StatusDetailsKind, ..} ) <$> f v1StatusDetailsKind +{-# INLINE v1StatusDetailsKindL #-} + +-- | 'v1StatusDetailsName' Lens +v1StatusDetailsNameL :: Lens_' V1StatusDetails (Maybe Text) +v1StatusDetailsNameL f V1StatusDetails{..} = (\v1StatusDetailsName -> V1StatusDetails { v1StatusDetailsName, ..} ) <$> f v1StatusDetailsName +{-# INLINE v1StatusDetailsNameL #-} + +-- | 'v1StatusDetailsRetryAfterSeconds' Lens +v1StatusDetailsRetryAfterSecondsL :: Lens_' V1StatusDetails (Maybe Int) +v1StatusDetailsRetryAfterSecondsL f V1StatusDetails{..} = (\v1StatusDetailsRetryAfterSeconds -> V1StatusDetails { v1StatusDetailsRetryAfterSeconds, ..} ) <$> f v1StatusDetailsRetryAfterSeconds +{-# INLINE v1StatusDetailsRetryAfterSecondsL #-} + +-- | 'v1StatusDetailsUid' Lens +v1StatusDetailsUidL :: Lens_' V1StatusDetails (Maybe Text) +v1StatusDetailsUidL f V1StatusDetails{..} = (\v1StatusDetailsUid -> V1StatusDetails { v1StatusDetailsUid, ..} ) <$> f v1StatusDetailsUid +{-# INLINE v1StatusDetailsUidL #-} + + + +-- * V1StorageClass + +-- | 'v1StorageClassAllowVolumeExpansion' Lens +v1StorageClassAllowVolumeExpansionL :: Lens_' V1StorageClass (Maybe Bool) +v1StorageClassAllowVolumeExpansionL f V1StorageClass{..} = (\v1StorageClassAllowVolumeExpansion -> V1StorageClass { v1StorageClassAllowVolumeExpansion, ..} ) <$> f v1StorageClassAllowVolumeExpansion +{-# INLINE v1StorageClassAllowVolumeExpansionL #-} + +-- | 'v1StorageClassAllowedTopologies' Lens +v1StorageClassAllowedTopologiesL :: Lens_' V1StorageClass (Maybe [V1TopologySelectorTerm]) +v1StorageClassAllowedTopologiesL f V1StorageClass{..} = (\v1StorageClassAllowedTopologies -> V1StorageClass { v1StorageClassAllowedTopologies, ..} ) <$> f v1StorageClassAllowedTopologies +{-# INLINE v1StorageClassAllowedTopologiesL #-} + +-- | 'v1StorageClassApiVersion' Lens +v1StorageClassApiVersionL :: Lens_' V1StorageClass (Maybe Text) +v1StorageClassApiVersionL f V1StorageClass{..} = (\v1StorageClassApiVersion -> V1StorageClass { v1StorageClassApiVersion, ..} ) <$> f v1StorageClassApiVersion +{-# INLINE v1StorageClassApiVersionL #-} + +-- | 'v1StorageClassKind' Lens +v1StorageClassKindL :: Lens_' V1StorageClass (Maybe Text) +v1StorageClassKindL f V1StorageClass{..} = (\v1StorageClassKind -> V1StorageClass { v1StorageClassKind, ..} ) <$> f v1StorageClassKind +{-# INLINE v1StorageClassKindL #-} + +-- | 'v1StorageClassMetadata' Lens +v1StorageClassMetadataL :: Lens_' V1StorageClass (Maybe V1ObjectMeta) +v1StorageClassMetadataL f V1StorageClass{..} = (\v1StorageClassMetadata -> V1StorageClass { v1StorageClassMetadata, ..} ) <$> f v1StorageClassMetadata +{-# INLINE v1StorageClassMetadataL #-} + +-- | 'v1StorageClassMountOptions' Lens +v1StorageClassMountOptionsL :: Lens_' V1StorageClass (Maybe [Text]) +v1StorageClassMountOptionsL f V1StorageClass{..} = (\v1StorageClassMountOptions -> V1StorageClass { v1StorageClassMountOptions, ..} ) <$> f v1StorageClassMountOptions +{-# INLINE v1StorageClassMountOptionsL #-} + +-- | 'v1StorageClassParameters' Lens +v1StorageClassParametersL :: Lens_' V1StorageClass (Maybe (Map.Map String Text)) +v1StorageClassParametersL f V1StorageClass{..} = (\v1StorageClassParameters -> V1StorageClass { v1StorageClassParameters, ..} ) <$> f v1StorageClassParameters +{-# INLINE v1StorageClassParametersL #-} + +-- | 'v1StorageClassProvisioner' Lens +v1StorageClassProvisionerL :: Lens_' V1StorageClass (Text) +v1StorageClassProvisionerL f V1StorageClass{..} = (\v1StorageClassProvisioner -> V1StorageClass { v1StorageClassProvisioner, ..} ) <$> f v1StorageClassProvisioner +{-# INLINE v1StorageClassProvisionerL #-} + +-- | 'v1StorageClassReclaimPolicy' Lens +v1StorageClassReclaimPolicyL :: Lens_' V1StorageClass (Maybe Text) +v1StorageClassReclaimPolicyL f V1StorageClass{..} = (\v1StorageClassReclaimPolicy -> V1StorageClass { v1StorageClassReclaimPolicy, ..} ) <$> f v1StorageClassReclaimPolicy +{-# INLINE v1StorageClassReclaimPolicyL #-} + +-- | 'v1StorageClassVolumeBindingMode' Lens +v1StorageClassVolumeBindingModeL :: Lens_' V1StorageClass (Maybe Text) +v1StorageClassVolumeBindingModeL f V1StorageClass{..} = (\v1StorageClassVolumeBindingMode -> V1StorageClass { v1StorageClassVolumeBindingMode, ..} ) <$> f v1StorageClassVolumeBindingMode +{-# INLINE v1StorageClassVolumeBindingModeL #-} + + + +-- * V1StorageClassList + +-- | 'v1StorageClassListApiVersion' Lens +v1StorageClassListApiVersionL :: Lens_' V1StorageClassList (Maybe Text) +v1StorageClassListApiVersionL f V1StorageClassList{..} = (\v1StorageClassListApiVersion -> V1StorageClassList { v1StorageClassListApiVersion, ..} ) <$> f v1StorageClassListApiVersion +{-# INLINE v1StorageClassListApiVersionL #-} + +-- | 'v1StorageClassListItems' Lens +v1StorageClassListItemsL :: Lens_' V1StorageClassList ([V1StorageClass]) +v1StorageClassListItemsL f V1StorageClassList{..} = (\v1StorageClassListItems -> V1StorageClassList { v1StorageClassListItems, ..} ) <$> f v1StorageClassListItems +{-# INLINE v1StorageClassListItemsL #-} + +-- | 'v1StorageClassListKind' Lens +v1StorageClassListKindL :: Lens_' V1StorageClassList (Maybe Text) +v1StorageClassListKindL f V1StorageClassList{..} = (\v1StorageClassListKind -> V1StorageClassList { v1StorageClassListKind, ..} ) <$> f v1StorageClassListKind +{-# INLINE v1StorageClassListKindL #-} + +-- | 'v1StorageClassListMetadata' Lens +v1StorageClassListMetadataL :: Lens_' V1StorageClassList (Maybe V1ListMeta) +v1StorageClassListMetadataL f V1StorageClassList{..} = (\v1StorageClassListMetadata -> V1StorageClassList { v1StorageClassListMetadata, ..} ) <$> f v1StorageClassListMetadata +{-# INLINE v1StorageClassListMetadataL #-} + + + +-- * V1StorageOSPersistentVolumeSource + +-- | 'v1StorageOSPersistentVolumeSourceFsType' Lens +v1StorageOSPersistentVolumeSourceFsTypeL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) +v1StorageOSPersistentVolumeSourceFsTypeL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceFsType -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceFsType, ..} ) <$> f v1StorageOSPersistentVolumeSourceFsType +{-# INLINE v1StorageOSPersistentVolumeSourceFsTypeL #-} + +-- | 'v1StorageOSPersistentVolumeSourceReadOnly' Lens +v1StorageOSPersistentVolumeSourceReadOnlyL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Bool) +v1StorageOSPersistentVolumeSourceReadOnlyL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceReadOnly -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceReadOnly, ..} ) <$> f v1StorageOSPersistentVolumeSourceReadOnly +{-# INLINE v1StorageOSPersistentVolumeSourceReadOnlyL #-} + +-- | 'v1StorageOSPersistentVolumeSourceSecretRef' Lens +v1StorageOSPersistentVolumeSourceSecretRefL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe V1ObjectReference) +v1StorageOSPersistentVolumeSourceSecretRefL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceSecretRef -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceSecretRef, ..} ) <$> f v1StorageOSPersistentVolumeSourceSecretRef +{-# INLINE v1StorageOSPersistentVolumeSourceSecretRefL #-} + +-- | 'v1StorageOSPersistentVolumeSourceVolumeName' Lens +v1StorageOSPersistentVolumeSourceVolumeNameL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) +v1StorageOSPersistentVolumeSourceVolumeNameL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceVolumeName -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceVolumeName, ..} ) <$> f v1StorageOSPersistentVolumeSourceVolumeName +{-# INLINE v1StorageOSPersistentVolumeSourceVolumeNameL #-} + +-- | 'v1StorageOSPersistentVolumeSourceVolumeNamespace' Lens +v1StorageOSPersistentVolumeSourceVolumeNamespaceL :: Lens_' V1StorageOSPersistentVolumeSource (Maybe Text) +v1StorageOSPersistentVolumeSourceVolumeNamespaceL f V1StorageOSPersistentVolumeSource{..} = (\v1StorageOSPersistentVolumeSourceVolumeNamespace -> V1StorageOSPersistentVolumeSource { v1StorageOSPersistentVolumeSourceVolumeNamespace, ..} ) <$> f v1StorageOSPersistentVolumeSourceVolumeNamespace +{-# INLINE v1StorageOSPersistentVolumeSourceVolumeNamespaceL #-} + + + +-- * V1StorageOSVolumeSource + +-- | 'v1StorageOSVolumeSourceFsType' Lens +v1StorageOSVolumeSourceFsTypeL :: Lens_' V1StorageOSVolumeSource (Maybe Text) +v1StorageOSVolumeSourceFsTypeL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceFsType -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceFsType, ..} ) <$> f v1StorageOSVolumeSourceFsType +{-# INLINE v1StorageOSVolumeSourceFsTypeL #-} + +-- | 'v1StorageOSVolumeSourceReadOnly' Lens +v1StorageOSVolumeSourceReadOnlyL :: Lens_' V1StorageOSVolumeSource (Maybe Bool) +v1StorageOSVolumeSourceReadOnlyL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceReadOnly -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceReadOnly, ..} ) <$> f v1StorageOSVolumeSourceReadOnly +{-# INLINE v1StorageOSVolumeSourceReadOnlyL #-} + +-- | 'v1StorageOSVolumeSourceSecretRef' Lens +v1StorageOSVolumeSourceSecretRefL :: Lens_' V1StorageOSVolumeSource (Maybe V1LocalObjectReference) +v1StorageOSVolumeSourceSecretRefL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceSecretRef -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceSecretRef, ..} ) <$> f v1StorageOSVolumeSourceSecretRef +{-# INLINE v1StorageOSVolumeSourceSecretRefL #-} + +-- | 'v1StorageOSVolumeSourceVolumeName' Lens +v1StorageOSVolumeSourceVolumeNameL :: Lens_' V1StorageOSVolumeSource (Maybe Text) +v1StorageOSVolumeSourceVolumeNameL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceVolumeName -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceVolumeName, ..} ) <$> f v1StorageOSVolumeSourceVolumeName +{-# INLINE v1StorageOSVolumeSourceVolumeNameL #-} + +-- | 'v1StorageOSVolumeSourceVolumeNamespace' Lens +v1StorageOSVolumeSourceVolumeNamespaceL :: Lens_' V1StorageOSVolumeSource (Maybe Text) +v1StorageOSVolumeSourceVolumeNamespaceL f V1StorageOSVolumeSource{..} = (\v1StorageOSVolumeSourceVolumeNamespace -> V1StorageOSVolumeSource { v1StorageOSVolumeSourceVolumeNamespace, ..} ) <$> f v1StorageOSVolumeSourceVolumeNamespace +{-# INLINE v1StorageOSVolumeSourceVolumeNamespaceL #-} + + + +-- * V1Subject + +-- | 'v1SubjectApiGroup' Lens +v1SubjectApiGroupL :: Lens_' V1Subject (Maybe Text) +v1SubjectApiGroupL f V1Subject{..} = (\v1SubjectApiGroup -> V1Subject { v1SubjectApiGroup, ..} ) <$> f v1SubjectApiGroup +{-# INLINE v1SubjectApiGroupL #-} + +-- | 'v1SubjectKind' Lens +v1SubjectKindL :: Lens_' V1Subject (Text) +v1SubjectKindL f V1Subject{..} = (\v1SubjectKind -> V1Subject { v1SubjectKind, ..} ) <$> f v1SubjectKind +{-# INLINE v1SubjectKindL #-} + +-- | 'v1SubjectName' Lens +v1SubjectNameL :: Lens_' V1Subject (Text) +v1SubjectNameL f V1Subject{..} = (\v1SubjectName -> V1Subject { v1SubjectName, ..} ) <$> f v1SubjectName +{-# INLINE v1SubjectNameL #-} + +-- | 'v1SubjectNamespace' Lens +v1SubjectNamespaceL :: Lens_' V1Subject (Maybe Text) +v1SubjectNamespaceL f V1Subject{..} = (\v1SubjectNamespace -> V1Subject { v1SubjectNamespace, ..} ) <$> f v1SubjectNamespace +{-# INLINE v1SubjectNamespaceL #-} + + + +-- * V1SubjectAccessReview + +-- | 'v1SubjectAccessReviewApiVersion' Lens +v1SubjectAccessReviewApiVersionL :: Lens_' V1SubjectAccessReview (Maybe Text) +v1SubjectAccessReviewApiVersionL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewApiVersion -> V1SubjectAccessReview { v1SubjectAccessReviewApiVersion, ..} ) <$> f v1SubjectAccessReviewApiVersion +{-# INLINE v1SubjectAccessReviewApiVersionL #-} + +-- | 'v1SubjectAccessReviewKind' Lens +v1SubjectAccessReviewKindL :: Lens_' V1SubjectAccessReview (Maybe Text) +v1SubjectAccessReviewKindL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewKind -> V1SubjectAccessReview { v1SubjectAccessReviewKind, ..} ) <$> f v1SubjectAccessReviewKind +{-# INLINE v1SubjectAccessReviewKindL #-} + +-- | 'v1SubjectAccessReviewMetadata' Lens +v1SubjectAccessReviewMetadataL :: Lens_' V1SubjectAccessReview (Maybe V1ObjectMeta) +v1SubjectAccessReviewMetadataL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewMetadata -> V1SubjectAccessReview { v1SubjectAccessReviewMetadata, ..} ) <$> f v1SubjectAccessReviewMetadata +{-# INLINE v1SubjectAccessReviewMetadataL #-} + +-- | 'v1SubjectAccessReviewSpec' Lens +v1SubjectAccessReviewSpecL :: Lens_' V1SubjectAccessReview (V1SubjectAccessReviewSpec) +v1SubjectAccessReviewSpecL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewSpec -> V1SubjectAccessReview { v1SubjectAccessReviewSpec, ..} ) <$> f v1SubjectAccessReviewSpec +{-# INLINE v1SubjectAccessReviewSpecL #-} + +-- | 'v1SubjectAccessReviewStatus' Lens +v1SubjectAccessReviewStatusL :: Lens_' V1SubjectAccessReview (Maybe V1SubjectAccessReviewStatus) +v1SubjectAccessReviewStatusL f V1SubjectAccessReview{..} = (\v1SubjectAccessReviewStatus -> V1SubjectAccessReview { v1SubjectAccessReviewStatus, ..} ) <$> f v1SubjectAccessReviewStatus +{-# INLINE v1SubjectAccessReviewStatusL #-} + + + +-- * V1SubjectAccessReviewSpec + +-- | 'v1SubjectAccessReviewSpecExtra' Lens +v1SubjectAccessReviewSpecExtraL :: Lens_' V1SubjectAccessReviewSpec (Maybe (Map.Map String [Text])) +v1SubjectAccessReviewSpecExtraL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecExtra -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecExtra, ..} ) <$> f v1SubjectAccessReviewSpecExtra +{-# INLINE v1SubjectAccessReviewSpecExtraL #-} + +-- | 'v1SubjectAccessReviewSpecGroups' Lens +v1SubjectAccessReviewSpecGroupsL :: Lens_' V1SubjectAccessReviewSpec (Maybe [Text]) +v1SubjectAccessReviewSpecGroupsL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecGroups -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecGroups, ..} ) <$> f v1SubjectAccessReviewSpecGroups +{-# INLINE v1SubjectAccessReviewSpecGroupsL #-} + +-- | 'v1SubjectAccessReviewSpecNonResourceAttributes' Lens +v1SubjectAccessReviewSpecNonResourceAttributesL :: Lens_' V1SubjectAccessReviewSpec (Maybe V1NonResourceAttributes) +v1SubjectAccessReviewSpecNonResourceAttributesL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecNonResourceAttributes -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecNonResourceAttributes, ..} ) <$> f v1SubjectAccessReviewSpecNonResourceAttributes +{-# INLINE v1SubjectAccessReviewSpecNonResourceAttributesL #-} + +-- | 'v1SubjectAccessReviewSpecResourceAttributes' Lens +v1SubjectAccessReviewSpecResourceAttributesL :: Lens_' V1SubjectAccessReviewSpec (Maybe V1ResourceAttributes) +v1SubjectAccessReviewSpecResourceAttributesL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecResourceAttributes -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecResourceAttributes, ..} ) <$> f v1SubjectAccessReviewSpecResourceAttributes +{-# INLINE v1SubjectAccessReviewSpecResourceAttributesL #-} + +-- | 'v1SubjectAccessReviewSpecUid' Lens +v1SubjectAccessReviewSpecUidL :: Lens_' V1SubjectAccessReviewSpec (Maybe Text) +v1SubjectAccessReviewSpecUidL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecUid -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecUid, ..} ) <$> f v1SubjectAccessReviewSpecUid +{-# INLINE v1SubjectAccessReviewSpecUidL #-} + +-- | 'v1SubjectAccessReviewSpecUser' Lens +v1SubjectAccessReviewSpecUserL :: Lens_' V1SubjectAccessReviewSpec (Maybe Text) +v1SubjectAccessReviewSpecUserL f V1SubjectAccessReviewSpec{..} = (\v1SubjectAccessReviewSpecUser -> V1SubjectAccessReviewSpec { v1SubjectAccessReviewSpecUser, ..} ) <$> f v1SubjectAccessReviewSpecUser +{-# INLINE v1SubjectAccessReviewSpecUserL #-} + + + +-- * V1SubjectAccessReviewStatus + +-- | 'v1SubjectAccessReviewStatusAllowed' Lens +v1SubjectAccessReviewStatusAllowedL :: Lens_' V1SubjectAccessReviewStatus (Bool) +v1SubjectAccessReviewStatusAllowedL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusAllowed -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusAllowed, ..} ) <$> f v1SubjectAccessReviewStatusAllowed +{-# INLINE v1SubjectAccessReviewStatusAllowedL #-} + +-- | 'v1SubjectAccessReviewStatusDenied' Lens +v1SubjectAccessReviewStatusDeniedL :: Lens_' V1SubjectAccessReviewStatus (Maybe Bool) +v1SubjectAccessReviewStatusDeniedL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusDenied -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusDenied, ..} ) <$> f v1SubjectAccessReviewStatusDenied +{-# INLINE v1SubjectAccessReviewStatusDeniedL #-} + +-- | 'v1SubjectAccessReviewStatusEvaluationError' Lens +v1SubjectAccessReviewStatusEvaluationErrorL :: Lens_' V1SubjectAccessReviewStatus (Maybe Text) +v1SubjectAccessReviewStatusEvaluationErrorL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusEvaluationError -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusEvaluationError, ..} ) <$> f v1SubjectAccessReviewStatusEvaluationError +{-# INLINE v1SubjectAccessReviewStatusEvaluationErrorL #-} + +-- | 'v1SubjectAccessReviewStatusReason' Lens +v1SubjectAccessReviewStatusReasonL :: Lens_' V1SubjectAccessReviewStatus (Maybe Text) +v1SubjectAccessReviewStatusReasonL f V1SubjectAccessReviewStatus{..} = (\v1SubjectAccessReviewStatusReason -> V1SubjectAccessReviewStatus { v1SubjectAccessReviewStatusReason, ..} ) <$> f v1SubjectAccessReviewStatusReason +{-# INLINE v1SubjectAccessReviewStatusReasonL #-} + + + +-- * V1SubjectRulesReviewStatus + +-- | 'v1SubjectRulesReviewStatusEvaluationError' Lens +v1SubjectRulesReviewStatusEvaluationErrorL :: Lens_' V1SubjectRulesReviewStatus (Maybe Text) +v1SubjectRulesReviewStatusEvaluationErrorL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusEvaluationError -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusEvaluationError, ..} ) <$> f v1SubjectRulesReviewStatusEvaluationError +{-# INLINE v1SubjectRulesReviewStatusEvaluationErrorL #-} + +-- | 'v1SubjectRulesReviewStatusIncomplete' Lens +v1SubjectRulesReviewStatusIncompleteL :: Lens_' V1SubjectRulesReviewStatus (Bool) +v1SubjectRulesReviewStatusIncompleteL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusIncomplete -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusIncomplete, ..} ) <$> f v1SubjectRulesReviewStatusIncomplete +{-# INLINE v1SubjectRulesReviewStatusIncompleteL #-} + +-- | 'v1SubjectRulesReviewStatusNonResourceRules' Lens +v1SubjectRulesReviewStatusNonResourceRulesL :: Lens_' V1SubjectRulesReviewStatus ([V1NonResourceRule]) +v1SubjectRulesReviewStatusNonResourceRulesL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusNonResourceRules -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusNonResourceRules, ..} ) <$> f v1SubjectRulesReviewStatusNonResourceRules +{-# INLINE v1SubjectRulesReviewStatusNonResourceRulesL #-} + +-- | 'v1SubjectRulesReviewStatusResourceRules' Lens +v1SubjectRulesReviewStatusResourceRulesL :: Lens_' V1SubjectRulesReviewStatus ([V1ResourceRule]) +v1SubjectRulesReviewStatusResourceRulesL f V1SubjectRulesReviewStatus{..} = (\v1SubjectRulesReviewStatusResourceRules -> V1SubjectRulesReviewStatus { v1SubjectRulesReviewStatusResourceRules, ..} ) <$> f v1SubjectRulesReviewStatusResourceRules +{-# INLINE v1SubjectRulesReviewStatusResourceRulesL #-} + + + +-- * V1Sysctl + +-- | 'v1SysctlName' Lens +v1SysctlNameL :: Lens_' V1Sysctl (Text) +v1SysctlNameL f V1Sysctl{..} = (\v1SysctlName -> V1Sysctl { v1SysctlName, ..} ) <$> f v1SysctlName +{-# INLINE v1SysctlNameL #-} + +-- | 'v1SysctlValue' Lens +v1SysctlValueL :: Lens_' V1Sysctl (Text) +v1SysctlValueL f V1Sysctl{..} = (\v1SysctlValue -> V1Sysctl { v1SysctlValue, ..} ) <$> f v1SysctlValue +{-# INLINE v1SysctlValueL #-} + + + +-- * V1TCPSocketAction + +-- | 'v1TCPSocketActionHost' Lens +v1TCPSocketActionHostL :: Lens_' V1TCPSocketAction (Maybe Text) +v1TCPSocketActionHostL f V1TCPSocketAction{..} = (\v1TCPSocketActionHost -> V1TCPSocketAction { v1TCPSocketActionHost, ..} ) <$> f v1TCPSocketActionHost +{-# INLINE v1TCPSocketActionHostL #-} + +-- | 'v1TCPSocketActionPort' Lens +v1TCPSocketActionPortL :: Lens_' V1TCPSocketAction (IntOrString) +v1TCPSocketActionPortL f V1TCPSocketAction{..} = (\v1TCPSocketActionPort -> V1TCPSocketAction { v1TCPSocketActionPort, ..} ) <$> f v1TCPSocketActionPort +{-# INLINE v1TCPSocketActionPortL #-} + + + +-- * V1Taint + +-- | 'v1TaintEffect' Lens +v1TaintEffectL :: Lens_' V1Taint (Text) +v1TaintEffectL f V1Taint{..} = (\v1TaintEffect -> V1Taint { v1TaintEffect, ..} ) <$> f v1TaintEffect +{-# INLINE v1TaintEffectL #-} + +-- | 'v1TaintKey' Lens +v1TaintKeyL :: Lens_' V1Taint (Text) +v1TaintKeyL f V1Taint{..} = (\v1TaintKey -> V1Taint { v1TaintKey, ..} ) <$> f v1TaintKey +{-# INLINE v1TaintKeyL #-} + +-- | 'v1TaintTimeAdded' Lens +v1TaintTimeAddedL :: Lens_' V1Taint (Maybe DateTime) +v1TaintTimeAddedL f V1Taint{..} = (\v1TaintTimeAdded -> V1Taint { v1TaintTimeAdded, ..} ) <$> f v1TaintTimeAdded +{-# INLINE v1TaintTimeAddedL #-} + +-- | 'v1TaintValue' Lens +v1TaintValueL :: Lens_' V1Taint (Maybe Text) +v1TaintValueL f V1Taint{..} = (\v1TaintValue -> V1Taint { v1TaintValue, ..} ) <$> f v1TaintValue +{-# INLINE v1TaintValueL #-} + + + +-- * V1TokenRequestSpec + +-- | 'v1TokenRequestSpecAudiences' Lens +v1TokenRequestSpecAudiencesL :: Lens_' V1TokenRequestSpec ([Text]) +v1TokenRequestSpecAudiencesL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecAudiences -> V1TokenRequestSpec { v1TokenRequestSpecAudiences, ..} ) <$> f v1TokenRequestSpecAudiences +{-# INLINE v1TokenRequestSpecAudiencesL #-} + +-- | 'v1TokenRequestSpecBoundObjectRef' Lens +v1TokenRequestSpecBoundObjectRefL :: Lens_' V1TokenRequestSpec (Maybe V1BoundObjectReference) +v1TokenRequestSpecBoundObjectRefL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecBoundObjectRef -> V1TokenRequestSpec { v1TokenRequestSpecBoundObjectRef, ..} ) <$> f v1TokenRequestSpecBoundObjectRef +{-# INLINE v1TokenRequestSpecBoundObjectRefL #-} + +-- | 'v1TokenRequestSpecExpirationSeconds' Lens +v1TokenRequestSpecExpirationSecondsL :: Lens_' V1TokenRequestSpec (Maybe Integer) +v1TokenRequestSpecExpirationSecondsL f V1TokenRequestSpec{..} = (\v1TokenRequestSpecExpirationSeconds -> V1TokenRequestSpec { v1TokenRequestSpecExpirationSeconds, ..} ) <$> f v1TokenRequestSpecExpirationSeconds +{-# INLINE v1TokenRequestSpecExpirationSecondsL #-} + + + +-- * V1TokenRequestStatus + +-- | 'v1TokenRequestStatusExpirationTimestamp' Lens +v1TokenRequestStatusExpirationTimestampL :: Lens_' V1TokenRequestStatus (DateTime) +v1TokenRequestStatusExpirationTimestampL f V1TokenRequestStatus{..} = (\v1TokenRequestStatusExpirationTimestamp -> V1TokenRequestStatus { v1TokenRequestStatusExpirationTimestamp, ..} ) <$> f v1TokenRequestStatusExpirationTimestamp +{-# INLINE v1TokenRequestStatusExpirationTimestampL #-} + +-- | 'v1TokenRequestStatusToken' Lens +v1TokenRequestStatusTokenL :: Lens_' V1TokenRequestStatus (Text) +v1TokenRequestStatusTokenL f V1TokenRequestStatus{..} = (\v1TokenRequestStatusToken -> V1TokenRequestStatus { v1TokenRequestStatusToken, ..} ) <$> f v1TokenRequestStatusToken +{-# INLINE v1TokenRequestStatusTokenL #-} + + + +-- * V1TokenReview + +-- | 'v1TokenReviewApiVersion' Lens +v1TokenReviewApiVersionL :: Lens_' V1TokenReview (Maybe Text) +v1TokenReviewApiVersionL f V1TokenReview{..} = (\v1TokenReviewApiVersion -> V1TokenReview { v1TokenReviewApiVersion, ..} ) <$> f v1TokenReviewApiVersion +{-# INLINE v1TokenReviewApiVersionL #-} + +-- | 'v1TokenReviewKind' Lens +v1TokenReviewKindL :: Lens_' V1TokenReview (Maybe Text) +v1TokenReviewKindL f V1TokenReview{..} = (\v1TokenReviewKind -> V1TokenReview { v1TokenReviewKind, ..} ) <$> f v1TokenReviewKind +{-# INLINE v1TokenReviewKindL #-} + +-- | 'v1TokenReviewMetadata' Lens +v1TokenReviewMetadataL :: Lens_' V1TokenReview (Maybe V1ObjectMeta) +v1TokenReviewMetadataL f V1TokenReview{..} = (\v1TokenReviewMetadata -> V1TokenReview { v1TokenReviewMetadata, ..} ) <$> f v1TokenReviewMetadata +{-# INLINE v1TokenReviewMetadataL #-} + +-- | 'v1TokenReviewSpec' Lens +v1TokenReviewSpecL :: Lens_' V1TokenReview (V1TokenReviewSpec) +v1TokenReviewSpecL f V1TokenReview{..} = (\v1TokenReviewSpec -> V1TokenReview { v1TokenReviewSpec, ..} ) <$> f v1TokenReviewSpec +{-# INLINE v1TokenReviewSpecL #-} + +-- | 'v1TokenReviewStatus' Lens +v1TokenReviewStatusL :: Lens_' V1TokenReview (Maybe V1TokenReviewStatus) +v1TokenReviewStatusL f V1TokenReview{..} = (\v1TokenReviewStatus -> V1TokenReview { v1TokenReviewStatus, ..} ) <$> f v1TokenReviewStatus +{-# INLINE v1TokenReviewStatusL #-} + + + +-- * V1TokenReviewSpec + +-- | 'v1TokenReviewSpecAudiences' Lens +v1TokenReviewSpecAudiencesL :: Lens_' V1TokenReviewSpec (Maybe [Text]) +v1TokenReviewSpecAudiencesL f V1TokenReviewSpec{..} = (\v1TokenReviewSpecAudiences -> V1TokenReviewSpec { v1TokenReviewSpecAudiences, ..} ) <$> f v1TokenReviewSpecAudiences +{-# INLINE v1TokenReviewSpecAudiencesL #-} + +-- | 'v1TokenReviewSpecToken' Lens +v1TokenReviewSpecTokenL :: Lens_' V1TokenReviewSpec (Maybe Text) +v1TokenReviewSpecTokenL f V1TokenReviewSpec{..} = (\v1TokenReviewSpecToken -> V1TokenReviewSpec { v1TokenReviewSpecToken, ..} ) <$> f v1TokenReviewSpecToken +{-# INLINE v1TokenReviewSpecTokenL #-} + + + +-- * V1TokenReviewStatus + +-- | 'v1TokenReviewStatusAudiences' Lens +v1TokenReviewStatusAudiencesL :: Lens_' V1TokenReviewStatus (Maybe [Text]) +v1TokenReviewStatusAudiencesL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusAudiences -> V1TokenReviewStatus { v1TokenReviewStatusAudiences, ..} ) <$> f v1TokenReviewStatusAudiences +{-# INLINE v1TokenReviewStatusAudiencesL #-} + +-- | 'v1TokenReviewStatusAuthenticated' Lens +v1TokenReviewStatusAuthenticatedL :: Lens_' V1TokenReviewStatus (Maybe Bool) +v1TokenReviewStatusAuthenticatedL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusAuthenticated -> V1TokenReviewStatus { v1TokenReviewStatusAuthenticated, ..} ) <$> f v1TokenReviewStatusAuthenticated +{-# INLINE v1TokenReviewStatusAuthenticatedL #-} + +-- | 'v1TokenReviewStatusError' Lens +v1TokenReviewStatusErrorL :: Lens_' V1TokenReviewStatus (Maybe Text) +v1TokenReviewStatusErrorL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusError -> V1TokenReviewStatus { v1TokenReviewStatusError, ..} ) <$> f v1TokenReviewStatusError +{-# INLINE v1TokenReviewStatusErrorL #-} + +-- | 'v1TokenReviewStatusUser' Lens +v1TokenReviewStatusUserL :: Lens_' V1TokenReviewStatus (Maybe V1UserInfo) +v1TokenReviewStatusUserL f V1TokenReviewStatus{..} = (\v1TokenReviewStatusUser -> V1TokenReviewStatus { v1TokenReviewStatusUser, ..} ) <$> f v1TokenReviewStatusUser +{-# INLINE v1TokenReviewStatusUserL #-} + + + +-- * V1Toleration + +-- | 'v1TolerationEffect' Lens +v1TolerationEffectL :: Lens_' V1Toleration (Maybe Text) +v1TolerationEffectL f V1Toleration{..} = (\v1TolerationEffect -> V1Toleration { v1TolerationEffect, ..} ) <$> f v1TolerationEffect +{-# INLINE v1TolerationEffectL #-} + +-- | 'v1TolerationKey' Lens +v1TolerationKeyL :: Lens_' V1Toleration (Maybe Text) +v1TolerationKeyL f V1Toleration{..} = (\v1TolerationKey -> V1Toleration { v1TolerationKey, ..} ) <$> f v1TolerationKey +{-# INLINE v1TolerationKeyL #-} + +-- | 'v1TolerationOperator' Lens +v1TolerationOperatorL :: Lens_' V1Toleration (Maybe Text) +v1TolerationOperatorL f V1Toleration{..} = (\v1TolerationOperator -> V1Toleration { v1TolerationOperator, ..} ) <$> f v1TolerationOperator +{-# INLINE v1TolerationOperatorL #-} + +-- | 'v1TolerationTolerationSeconds' Lens +v1TolerationTolerationSecondsL :: Lens_' V1Toleration (Maybe Integer) +v1TolerationTolerationSecondsL f V1Toleration{..} = (\v1TolerationTolerationSeconds -> V1Toleration { v1TolerationTolerationSeconds, ..} ) <$> f v1TolerationTolerationSeconds +{-# INLINE v1TolerationTolerationSecondsL #-} + +-- | 'v1TolerationValue' Lens +v1TolerationValueL :: Lens_' V1Toleration (Maybe Text) +v1TolerationValueL f V1Toleration{..} = (\v1TolerationValue -> V1Toleration { v1TolerationValue, ..} ) <$> f v1TolerationValue +{-# INLINE v1TolerationValueL #-} + + + +-- * V1TopologySelectorLabelRequirement + +-- | 'v1TopologySelectorLabelRequirementKey' Lens +v1TopologySelectorLabelRequirementKeyL :: Lens_' V1TopologySelectorLabelRequirement (Text) +v1TopologySelectorLabelRequirementKeyL f V1TopologySelectorLabelRequirement{..} = (\v1TopologySelectorLabelRequirementKey -> V1TopologySelectorLabelRequirement { v1TopologySelectorLabelRequirementKey, ..} ) <$> f v1TopologySelectorLabelRequirementKey +{-# INLINE v1TopologySelectorLabelRequirementKeyL #-} + +-- | 'v1TopologySelectorLabelRequirementValues' Lens +v1TopologySelectorLabelRequirementValuesL :: Lens_' V1TopologySelectorLabelRequirement ([Text]) +v1TopologySelectorLabelRequirementValuesL f V1TopologySelectorLabelRequirement{..} = (\v1TopologySelectorLabelRequirementValues -> V1TopologySelectorLabelRequirement { v1TopologySelectorLabelRequirementValues, ..} ) <$> f v1TopologySelectorLabelRequirementValues +{-# INLINE v1TopologySelectorLabelRequirementValuesL #-} + + + +-- * V1TopologySelectorTerm + +-- | 'v1TopologySelectorTermMatchLabelExpressions' Lens +v1TopologySelectorTermMatchLabelExpressionsL :: Lens_' V1TopologySelectorTerm (Maybe [V1TopologySelectorLabelRequirement]) +v1TopologySelectorTermMatchLabelExpressionsL f V1TopologySelectorTerm{..} = (\v1TopologySelectorTermMatchLabelExpressions -> V1TopologySelectorTerm { v1TopologySelectorTermMatchLabelExpressions, ..} ) <$> f v1TopologySelectorTermMatchLabelExpressions +{-# INLINE v1TopologySelectorTermMatchLabelExpressionsL #-} + + + +-- * V1TopologySpreadConstraint + +-- | 'v1TopologySpreadConstraintLabelSelector' Lens +v1TopologySpreadConstraintLabelSelectorL :: Lens_' V1TopologySpreadConstraint (Maybe V1LabelSelector) +v1TopologySpreadConstraintLabelSelectorL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintLabelSelector -> V1TopologySpreadConstraint { v1TopologySpreadConstraintLabelSelector, ..} ) <$> f v1TopologySpreadConstraintLabelSelector +{-# INLINE v1TopologySpreadConstraintLabelSelectorL #-} + +-- | 'v1TopologySpreadConstraintMatchLabelKeys' Lens +v1TopologySpreadConstraintMatchLabelKeysL :: Lens_' V1TopologySpreadConstraint (Maybe [Text]) +v1TopologySpreadConstraintMatchLabelKeysL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMatchLabelKeys -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMatchLabelKeys, ..} ) <$> f v1TopologySpreadConstraintMatchLabelKeys +{-# INLINE v1TopologySpreadConstraintMatchLabelKeysL #-} + +-- | 'v1TopologySpreadConstraintMaxSkew' Lens +v1TopologySpreadConstraintMaxSkewL :: Lens_' V1TopologySpreadConstraint (Int) +v1TopologySpreadConstraintMaxSkewL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMaxSkew -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMaxSkew, ..} ) <$> f v1TopologySpreadConstraintMaxSkew +{-# INLINE v1TopologySpreadConstraintMaxSkewL #-} + +-- | 'v1TopologySpreadConstraintMinDomains' Lens +v1TopologySpreadConstraintMinDomainsL :: Lens_' V1TopologySpreadConstraint (Maybe Int) +v1TopologySpreadConstraintMinDomainsL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintMinDomains -> V1TopologySpreadConstraint { v1TopologySpreadConstraintMinDomains, ..} ) <$> f v1TopologySpreadConstraintMinDomains +{-# INLINE v1TopologySpreadConstraintMinDomainsL #-} + +-- | 'v1TopologySpreadConstraintNodeAffinityPolicy' Lens +v1TopologySpreadConstraintNodeAffinityPolicyL :: Lens_' V1TopologySpreadConstraint (Maybe Text) +v1TopologySpreadConstraintNodeAffinityPolicyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintNodeAffinityPolicy -> V1TopologySpreadConstraint { v1TopologySpreadConstraintNodeAffinityPolicy, ..} ) <$> f v1TopologySpreadConstraintNodeAffinityPolicy +{-# INLINE v1TopologySpreadConstraintNodeAffinityPolicyL #-} + +-- | 'v1TopologySpreadConstraintNodeTaintsPolicy' Lens +v1TopologySpreadConstraintNodeTaintsPolicyL :: Lens_' V1TopologySpreadConstraint (Maybe Text) +v1TopologySpreadConstraintNodeTaintsPolicyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintNodeTaintsPolicy -> V1TopologySpreadConstraint { v1TopologySpreadConstraintNodeTaintsPolicy, ..} ) <$> f v1TopologySpreadConstraintNodeTaintsPolicy +{-# INLINE v1TopologySpreadConstraintNodeTaintsPolicyL #-} + +-- | 'v1TopologySpreadConstraintTopologyKey' Lens +v1TopologySpreadConstraintTopologyKeyL :: Lens_' V1TopologySpreadConstraint (Text) +v1TopologySpreadConstraintTopologyKeyL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintTopologyKey -> V1TopologySpreadConstraint { v1TopologySpreadConstraintTopologyKey, ..} ) <$> f v1TopologySpreadConstraintTopologyKey +{-# INLINE v1TopologySpreadConstraintTopologyKeyL #-} + +-- | 'v1TopologySpreadConstraintWhenUnsatisfiable' Lens +v1TopologySpreadConstraintWhenUnsatisfiableL :: Lens_' V1TopologySpreadConstraint (Text) +v1TopologySpreadConstraintWhenUnsatisfiableL f V1TopologySpreadConstraint{..} = (\v1TopologySpreadConstraintWhenUnsatisfiable -> V1TopologySpreadConstraint { v1TopologySpreadConstraintWhenUnsatisfiable, ..} ) <$> f v1TopologySpreadConstraintWhenUnsatisfiable +{-# INLINE v1TopologySpreadConstraintWhenUnsatisfiableL #-} + + + +-- * V1TypedLocalObjectReference + +-- | 'v1TypedLocalObjectReferenceApiGroup' Lens +v1TypedLocalObjectReferenceApiGroupL :: Lens_' V1TypedLocalObjectReference (Maybe Text) +v1TypedLocalObjectReferenceApiGroupL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceApiGroup -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceApiGroup, ..} ) <$> f v1TypedLocalObjectReferenceApiGroup +{-# INLINE v1TypedLocalObjectReferenceApiGroupL #-} + +-- | 'v1TypedLocalObjectReferenceKind' Lens +v1TypedLocalObjectReferenceKindL :: Lens_' V1TypedLocalObjectReference (Text) +v1TypedLocalObjectReferenceKindL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceKind -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceKind, ..} ) <$> f v1TypedLocalObjectReferenceKind +{-# INLINE v1TypedLocalObjectReferenceKindL #-} + +-- | 'v1TypedLocalObjectReferenceName' Lens +v1TypedLocalObjectReferenceNameL :: Lens_' V1TypedLocalObjectReference (Text) +v1TypedLocalObjectReferenceNameL f V1TypedLocalObjectReference{..} = (\v1TypedLocalObjectReferenceName -> V1TypedLocalObjectReference { v1TypedLocalObjectReferenceName, ..} ) <$> f v1TypedLocalObjectReferenceName +{-# INLINE v1TypedLocalObjectReferenceNameL #-} + + + +-- * V1TypedObjectReference + +-- | 'v1TypedObjectReferenceApiGroup' Lens +v1TypedObjectReferenceApiGroupL :: Lens_' V1TypedObjectReference (Maybe Text) +v1TypedObjectReferenceApiGroupL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceApiGroup -> V1TypedObjectReference { v1TypedObjectReferenceApiGroup, ..} ) <$> f v1TypedObjectReferenceApiGroup +{-# INLINE v1TypedObjectReferenceApiGroupL #-} + +-- | 'v1TypedObjectReferenceKind' Lens +v1TypedObjectReferenceKindL :: Lens_' V1TypedObjectReference (Text) +v1TypedObjectReferenceKindL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceKind -> V1TypedObjectReference { v1TypedObjectReferenceKind, ..} ) <$> f v1TypedObjectReferenceKind +{-# INLINE v1TypedObjectReferenceKindL #-} + +-- | 'v1TypedObjectReferenceName' Lens +v1TypedObjectReferenceNameL :: Lens_' V1TypedObjectReference (Text) +v1TypedObjectReferenceNameL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceName -> V1TypedObjectReference { v1TypedObjectReferenceName, ..} ) <$> f v1TypedObjectReferenceName +{-# INLINE v1TypedObjectReferenceNameL #-} + +-- | 'v1TypedObjectReferenceNamespace' Lens +v1TypedObjectReferenceNamespaceL :: Lens_' V1TypedObjectReference (Maybe Text) +v1TypedObjectReferenceNamespaceL f V1TypedObjectReference{..} = (\v1TypedObjectReferenceNamespace -> V1TypedObjectReference { v1TypedObjectReferenceNamespace, ..} ) <$> f v1TypedObjectReferenceNamespace +{-# INLINE v1TypedObjectReferenceNamespaceL #-} + + + +-- * V1UncountedTerminatedPods + +-- | 'v1UncountedTerminatedPodsFailed' Lens +v1UncountedTerminatedPodsFailedL :: Lens_' V1UncountedTerminatedPods (Maybe [Text]) +v1UncountedTerminatedPodsFailedL f V1UncountedTerminatedPods{..} = (\v1UncountedTerminatedPodsFailed -> V1UncountedTerminatedPods { v1UncountedTerminatedPodsFailed, ..} ) <$> f v1UncountedTerminatedPodsFailed +{-# INLINE v1UncountedTerminatedPodsFailedL #-} + +-- | 'v1UncountedTerminatedPodsSucceeded' Lens +v1UncountedTerminatedPodsSucceededL :: Lens_' V1UncountedTerminatedPods (Maybe [Text]) +v1UncountedTerminatedPodsSucceededL f V1UncountedTerminatedPods{..} = (\v1UncountedTerminatedPodsSucceeded -> V1UncountedTerminatedPods { v1UncountedTerminatedPodsSucceeded, ..} ) <$> f v1UncountedTerminatedPodsSucceeded +{-# INLINE v1UncountedTerminatedPodsSucceededL #-} + + + +-- * V1UserInfo + +-- | 'v1UserInfoExtra' Lens +v1UserInfoExtraL :: Lens_' V1UserInfo (Maybe (Map.Map String [Text])) +v1UserInfoExtraL f V1UserInfo{..} = (\v1UserInfoExtra -> V1UserInfo { v1UserInfoExtra, ..} ) <$> f v1UserInfoExtra +{-# INLINE v1UserInfoExtraL #-} + +-- | 'v1UserInfoGroups' Lens +v1UserInfoGroupsL :: Lens_' V1UserInfo (Maybe [Text]) +v1UserInfoGroupsL f V1UserInfo{..} = (\v1UserInfoGroups -> V1UserInfo { v1UserInfoGroups, ..} ) <$> f v1UserInfoGroups +{-# INLINE v1UserInfoGroupsL #-} + +-- | 'v1UserInfoUid' Lens +v1UserInfoUidL :: Lens_' V1UserInfo (Maybe Text) +v1UserInfoUidL f V1UserInfo{..} = (\v1UserInfoUid -> V1UserInfo { v1UserInfoUid, ..} ) <$> f v1UserInfoUid +{-# INLINE v1UserInfoUidL #-} + +-- | 'v1UserInfoUsername' Lens +v1UserInfoUsernameL :: Lens_' V1UserInfo (Maybe Text) +v1UserInfoUsernameL f V1UserInfo{..} = (\v1UserInfoUsername -> V1UserInfo { v1UserInfoUsername, ..} ) <$> f v1UserInfoUsername +{-# INLINE v1UserInfoUsernameL #-} + + + +-- * V1ValidatingWebhook + +-- | 'v1ValidatingWebhookAdmissionReviewVersions' Lens +v1ValidatingWebhookAdmissionReviewVersionsL :: Lens_' V1ValidatingWebhook ([Text]) +v1ValidatingWebhookAdmissionReviewVersionsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookAdmissionReviewVersions -> V1ValidatingWebhook { v1ValidatingWebhookAdmissionReviewVersions, ..} ) <$> f v1ValidatingWebhookAdmissionReviewVersions +{-# INLINE v1ValidatingWebhookAdmissionReviewVersionsL #-} + +-- | 'v1ValidatingWebhookClientConfig' Lens +v1ValidatingWebhookClientConfigL :: Lens_' V1ValidatingWebhook (AdmissionregistrationV1WebhookClientConfig) +v1ValidatingWebhookClientConfigL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookClientConfig -> V1ValidatingWebhook { v1ValidatingWebhookClientConfig, ..} ) <$> f v1ValidatingWebhookClientConfig +{-# INLINE v1ValidatingWebhookClientConfigL #-} + +-- | 'v1ValidatingWebhookFailurePolicy' Lens +v1ValidatingWebhookFailurePolicyL :: Lens_' V1ValidatingWebhook (Maybe Text) +v1ValidatingWebhookFailurePolicyL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookFailurePolicy -> V1ValidatingWebhook { v1ValidatingWebhookFailurePolicy, ..} ) <$> f v1ValidatingWebhookFailurePolicy +{-# INLINE v1ValidatingWebhookFailurePolicyL #-} + +-- | 'v1ValidatingWebhookMatchConditions' Lens +v1ValidatingWebhookMatchConditionsL :: Lens_' V1ValidatingWebhook (Maybe [V1MatchCondition]) +v1ValidatingWebhookMatchConditionsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookMatchConditions -> V1ValidatingWebhook { v1ValidatingWebhookMatchConditions, ..} ) <$> f v1ValidatingWebhookMatchConditions +{-# INLINE v1ValidatingWebhookMatchConditionsL #-} + +-- | 'v1ValidatingWebhookMatchPolicy' Lens +v1ValidatingWebhookMatchPolicyL :: Lens_' V1ValidatingWebhook (Maybe Text) +v1ValidatingWebhookMatchPolicyL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookMatchPolicy -> V1ValidatingWebhook { v1ValidatingWebhookMatchPolicy, ..} ) <$> f v1ValidatingWebhookMatchPolicy +{-# INLINE v1ValidatingWebhookMatchPolicyL #-} + +-- | 'v1ValidatingWebhookName' Lens +v1ValidatingWebhookNameL :: Lens_' V1ValidatingWebhook (Text) +v1ValidatingWebhookNameL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookName -> V1ValidatingWebhook { v1ValidatingWebhookName, ..} ) <$> f v1ValidatingWebhookName +{-# INLINE v1ValidatingWebhookNameL #-} + +-- | 'v1ValidatingWebhookNamespaceSelector' Lens +v1ValidatingWebhookNamespaceSelectorL :: Lens_' V1ValidatingWebhook (Maybe V1LabelSelector) +v1ValidatingWebhookNamespaceSelectorL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookNamespaceSelector -> V1ValidatingWebhook { v1ValidatingWebhookNamespaceSelector, ..} ) <$> f v1ValidatingWebhookNamespaceSelector +{-# INLINE v1ValidatingWebhookNamespaceSelectorL #-} + +-- | 'v1ValidatingWebhookObjectSelector' Lens +v1ValidatingWebhookObjectSelectorL :: Lens_' V1ValidatingWebhook (Maybe V1LabelSelector) +v1ValidatingWebhookObjectSelectorL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookObjectSelector -> V1ValidatingWebhook { v1ValidatingWebhookObjectSelector, ..} ) <$> f v1ValidatingWebhookObjectSelector +{-# INLINE v1ValidatingWebhookObjectSelectorL #-} + +-- | 'v1ValidatingWebhookRules' Lens +v1ValidatingWebhookRulesL :: Lens_' V1ValidatingWebhook (Maybe [V1RuleWithOperations]) +v1ValidatingWebhookRulesL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookRules -> V1ValidatingWebhook { v1ValidatingWebhookRules, ..} ) <$> f v1ValidatingWebhookRules +{-# INLINE v1ValidatingWebhookRulesL #-} + +-- | 'v1ValidatingWebhookSideEffects' Lens +v1ValidatingWebhookSideEffectsL :: Lens_' V1ValidatingWebhook (Text) +v1ValidatingWebhookSideEffectsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookSideEffects -> V1ValidatingWebhook { v1ValidatingWebhookSideEffects, ..} ) <$> f v1ValidatingWebhookSideEffects +{-# INLINE v1ValidatingWebhookSideEffectsL #-} + +-- | 'v1ValidatingWebhookTimeoutSeconds' Lens +v1ValidatingWebhookTimeoutSecondsL :: Lens_' V1ValidatingWebhook (Maybe Int) +v1ValidatingWebhookTimeoutSecondsL f V1ValidatingWebhook{..} = (\v1ValidatingWebhookTimeoutSeconds -> V1ValidatingWebhook { v1ValidatingWebhookTimeoutSeconds, ..} ) <$> f v1ValidatingWebhookTimeoutSeconds +{-# INLINE v1ValidatingWebhookTimeoutSecondsL #-} + + + +-- * V1ValidatingWebhookConfiguration + +-- | 'v1ValidatingWebhookConfigurationApiVersion' Lens +v1ValidatingWebhookConfigurationApiVersionL :: Lens_' V1ValidatingWebhookConfiguration (Maybe Text) +v1ValidatingWebhookConfigurationApiVersionL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationApiVersion -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationApiVersion, ..} ) <$> f v1ValidatingWebhookConfigurationApiVersion +{-# INLINE v1ValidatingWebhookConfigurationApiVersionL #-} + +-- | 'v1ValidatingWebhookConfigurationKind' Lens +v1ValidatingWebhookConfigurationKindL :: Lens_' V1ValidatingWebhookConfiguration (Maybe Text) +v1ValidatingWebhookConfigurationKindL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationKind -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationKind, ..} ) <$> f v1ValidatingWebhookConfigurationKind +{-# INLINE v1ValidatingWebhookConfigurationKindL #-} + +-- | 'v1ValidatingWebhookConfigurationMetadata' Lens +v1ValidatingWebhookConfigurationMetadataL :: Lens_' V1ValidatingWebhookConfiguration (Maybe V1ObjectMeta) +v1ValidatingWebhookConfigurationMetadataL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationMetadata -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationMetadata, ..} ) <$> f v1ValidatingWebhookConfigurationMetadata +{-# INLINE v1ValidatingWebhookConfigurationMetadataL #-} + +-- | 'v1ValidatingWebhookConfigurationWebhooks' Lens +v1ValidatingWebhookConfigurationWebhooksL :: Lens_' V1ValidatingWebhookConfiguration (Maybe [V1ValidatingWebhook]) +v1ValidatingWebhookConfigurationWebhooksL f V1ValidatingWebhookConfiguration{..} = (\v1ValidatingWebhookConfigurationWebhooks -> V1ValidatingWebhookConfiguration { v1ValidatingWebhookConfigurationWebhooks, ..} ) <$> f v1ValidatingWebhookConfigurationWebhooks +{-# INLINE v1ValidatingWebhookConfigurationWebhooksL #-} + + + +-- * V1ValidatingWebhookConfigurationList + +-- | 'v1ValidatingWebhookConfigurationListApiVersion' Lens +v1ValidatingWebhookConfigurationListApiVersionL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe Text) +v1ValidatingWebhookConfigurationListApiVersionL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListApiVersion -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListApiVersion, ..} ) <$> f v1ValidatingWebhookConfigurationListApiVersion +{-# INLINE v1ValidatingWebhookConfigurationListApiVersionL #-} + +-- | 'v1ValidatingWebhookConfigurationListItems' Lens +v1ValidatingWebhookConfigurationListItemsL :: Lens_' V1ValidatingWebhookConfigurationList ([V1ValidatingWebhookConfiguration]) +v1ValidatingWebhookConfigurationListItemsL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListItems -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListItems, ..} ) <$> f v1ValidatingWebhookConfigurationListItems +{-# INLINE v1ValidatingWebhookConfigurationListItemsL #-} + +-- | 'v1ValidatingWebhookConfigurationListKind' Lens +v1ValidatingWebhookConfigurationListKindL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe Text) +v1ValidatingWebhookConfigurationListKindL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListKind -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListKind, ..} ) <$> f v1ValidatingWebhookConfigurationListKind +{-# INLINE v1ValidatingWebhookConfigurationListKindL #-} + +-- | 'v1ValidatingWebhookConfigurationListMetadata' Lens +v1ValidatingWebhookConfigurationListMetadataL :: Lens_' V1ValidatingWebhookConfigurationList (Maybe V1ListMeta) +v1ValidatingWebhookConfigurationListMetadataL f V1ValidatingWebhookConfigurationList{..} = (\v1ValidatingWebhookConfigurationListMetadata -> V1ValidatingWebhookConfigurationList { v1ValidatingWebhookConfigurationListMetadata, ..} ) <$> f v1ValidatingWebhookConfigurationListMetadata +{-# INLINE v1ValidatingWebhookConfigurationListMetadataL #-} + + + +-- * V1ValidationRule + +-- | 'v1ValidationRuleMessage' Lens +v1ValidationRuleMessageL :: Lens_' V1ValidationRule (Maybe Text) +v1ValidationRuleMessageL f V1ValidationRule{..} = (\v1ValidationRuleMessage -> V1ValidationRule { v1ValidationRuleMessage, ..} ) <$> f v1ValidationRuleMessage +{-# INLINE v1ValidationRuleMessageL #-} + +-- | 'v1ValidationRuleMessageExpression' Lens +v1ValidationRuleMessageExpressionL :: Lens_' V1ValidationRule (Maybe Text) +v1ValidationRuleMessageExpressionL f V1ValidationRule{..} = (\v1ValidationRuleMessageExpression -> V1ValidationRule { v1ValidationRuleMessageExpression, ..} ) <$> f v1ValidationRuleMessageExpression +{-# INLINE v1ValidationRuleMessageExpressionL #-} + +-- | 'v1ValidationRuleRule' Lens +v1ValidationRuleRuleL :: Lens_' V1ValidationRule (Text) +v1ValidationRuleRuleL f V1ValidationRule{..} = (\v1ValidationRuleRule -> V1ValidationRule { v1ValidationRuleRule, ..} ) <$> f v1ValidationRuleRule +{-# INLINE v1ValidationRuleRuleL #-} + + + +-- * V1Volume + +-- | 'v1VolumeAwsElasticBlockStore' Lens +v1VolumeAwsElasticBlockStoreL :: Lens_' V1Volume (Maybe V1AWSElasticBlockStoreVolumeSource) +v1VolumeAwsElasticBlockStoreL f V1Volume{..} = (\v1VolumeAwsElasticBlockStore -> V1Volume { v1VolumeAwsElasticBlockStore, ..} ) <$> f v1VolumeAwsElasticBlockStore +{-# INLINE v1VolumeAwsElasticBlockStoreL #-} + +-- | 'v1VolumeAzureDisk' Lens +v1VolumeAzureDiskL :: Lens_' V1Volume (Maybe V1AzureDiskVolumeSource) +v1VolumeAzureDiskL f V1Volume{..} = (\v1VolumeAzureDisk -> V1Volume { v1VolumeAzureDisk, ..} ) <$> f v1VolumeAzureDisk +{-# INLINE v1VolumeAzureDiskL #-} + +-- | 'v1VolumeAzureFile' Lens +v1VolumeAzureFileL :: Lens_' V1Volume (Maybe V1AzureFileVolumeSource) +v1VolumeAzureFileL f V1Volume{..} = (\v1VolumeAzureFile -> V1Volume { v1VolumeAzureFile, ..} ) <$> f v1VolumeAzureFile +{-# INLINE v1VolumeAzureFileL #-} + +-- | 'v1VolumeCephfs' Lens +v1VolumeCephfsL :: Lens_' V1Volume (Maybe V1CephFSVolumeSource) +v1VolumeCephfsL f V1Volume{..} = (\v1VolumeCephfs -> V1Volume { v1VolumeCephfs, ..} ) <$> f v1VolumeCephfs +{-# INLINE v1VolumeCephfsL #-} + +-- | 'v1VolumeCinder' Lens +v1VolumeCinderL :: Lens_' V1Volume (Maybe V1CinderVolumeSource) +v1VolumeCinderL f V1Volume{..} = (\v1VolumeCinder -> V1Volume { v1VolumeCinder, ..} ) <$> f v1VolumeCinder +{-# INLINE v1VolumeCinderL #-} + +-- | 'v1VolumeConfigMap' Lens +v1VolumeConfigMapL :: Lens_' V1Volume (Maybe V1ConfigMapVolumeSource) +v1VolumeConfigMapL f V1Volume{..} = (\v1VolumeConfigMap -> V1Volume { v1VolumeConfigMap, ..} ) <$> f v1VolumeConfigMap +{-# INLINE v1VolumeConfigMapL #-} + +-- | 'v1VolumeCsi' Lens +v1VolumeCsiL :: Lens_' V1Volume (Maybe V1CSIVolumeSource) +v1VolumeCsiL f V1Volume{..} = (\v1VolumeCsi -> V1Volume { v1VolumeCsi, ..} ) <$> f v1VolumeCsi +{-# INLINE v1VolumeCsiL #-} + +-- | 'v1VolumeDownwardApi' Lens +v1VolumeDownwardApiL :: Lens_' V1Volume (Maybe V1DownwardAPIVolumeSource) +v1VolumeDownwardApiL f V1Volume{..} = (\v1VolumeDownwardApi -> V1Volume { v1VolumeDownwardApi, ..} ) <$> f v1VolumeDownwardApi +{-# INLINE v1VolumeDownwardApiL #-} + +-- | 'v1VolumeEmptyDir' Lens +v1VolumeEmptyDirL :: Lens_' V1Volume (Maybe V1EmptyDirVolumeSource) +v1VolumeEmptyDirL f V1Volume{..} = (\v1VolumeEmptyDir -> V1Volume { v1VolumeEmptyDir, ..} ) <$> f v1VolumeEmptyDir +{-# INLINE v1VolumeEmptyDirL #-} + +-- | 'v1VolumeEphemeral' Lens +v1VolumeEphemeralL :: Lens_' V1Volume (Maybe V1EphemeralVolumeSource) +v1VolumeEphemeralL f V1Volume{..} = (\v1VolumeEphemeral -> V1Volume { v1VolumeEphemeral, ..} ) <$> f v1VolumeEphemeral +{-# INLINE v1VolumeEphemeralL #-} + +-- | 'v1VolumeFc' Lens +v1VolumeFcL :: Lens_' V1Volume (Maybe V1FCVolumeSource) +v1VolumeFcL f V1Volume{..} = (\v1VolumeFc -> V1Volume { v1VolumeFc, ..} ) <$> f v1VolumeFc +{-# INLINE v1VolumeFcL #-} + +-- | 'v1VolumeFlexVolume' Lens +v1VolumeFlexVolumeL :: Lens_' V1Volume (Maybe V1FlexVolumeSource) +v1VolumeFlexVolumeL f V1Volume{..} = (\v1VolumeFlexVolume -> V1Volume { v1VolumeFlexVolume, ..} ) <$> f v1VolumeFlexVolume +{-# INLINE v1VolumeFlexVolumeL #-} + +-- | 'v1VolumeFlocker' Lens +v1VolumeFlockerL :: Lens_' V1Volume (Maybe V1FlockerVolumeSource) +v1VolumeFlockerL f V1Volume{..} = (\v1VolumeFlocker -> V1Volume { v1VolumeFlocker, ..} ) <$> f v1VolumeFlocker +{-# INLINE v1VolumeFlockerL #-} + +-- | 'v1VolumeGcePersistentDisk' Lens +v1VolumeGcePersistentDiskL :: Lens_' V1Volume (Maybe V1GCEPersistentDiskVolumeSource) +v1VolumeGcePersistentDiskL f V1Volume{..} = (\v1VolumeGcePersistentDisk -> V1Volume { v1VolumeGcePersistentDisk, ..} ) <$> f v1VolumeGcePersistentDisk +{-# INLINE v1VolumeGcePersistentDiskL #-} + +-- | 'v1VolumeGitRepo' Lens +v1VolumeGitRepoL :: Lens_' V1Volume (Maybe V1GitRepoVolumeSource) +v1VolumeGitRepoL f V1Volume{..} = (\v1VolumeGitRepo -> V1Volume { v1VolumeGitRepo, ..} ) <$> f v1VolumeGitRepo +{-# INLINE v1VolumeGitRepoL #-} + +-- | 'v1VolumeGlusterfs' Lens +v1VolumeGlusterfsL :: Lens_' V1Volume (Maybe V1GlusterfsVolumeSource) +v1VolumeGlusterfsL f V1Volume{..} = (\v1VolumeGlusterfs -> V1Volume { v1VolumeGlusterfs, ..} ) <$> f v1VolumeGlusterfs +{-# INLINE v1VolumeGlusterfsL #-} + +-- | 'v1VolumeHostPath' Lens +v1VolumeHostPathL :: Lens_' V1Volume (Maybe V1HostPathVolumeSource) +v1VolumeHostPathL f V1Volume{..} = (\v1VolumeHostPath -> V1Volume { v1VolumeHostPath, ..} ) <$> f v1VolumeHostPath +{-# INLINE v1VolumeHostPathL #-} + +-- | 'v1VolumeIscsi' Lens +v1VolumeIscsiL :: Lens_' V1Volume (Maybe V1ISCSIVolumeSource) +v1VolumeIscsiL f V1Volume{..} = (\v1VolumeIscsi -> V1Volume { v1VolumeIscsi, ..} ) <$> f v1VolumeIscsi +{-# INLINE v1VolumeIscsiL #-} + +-- | 'v1VolumeName' Lens +v1VolumeNameL :: Lens_' V1Volume (Text) +v1VolumeNameL f V1Volume{..} = (\v1VolumeName -> V1Volume { v1VolumeName, ..} ) <$> f v1VolumeName +{-# INLINE v1VolumeNameL #-} + +-- | 'v1VolumeNfs' Lens +v1VolumeNfsL :: Lens_' V1Volume (Maybe V1NFSVolumeSource) +v1VolumeNfsL f V1Volume{..} = (\v1VolumeNfs -> V1Volume { v1VolumeNfs, ..} ) <$> f v1VolumeNfs +{-# INLINE v1VolumeNfsL #-} + +-- | 'v1VolumePersistentVolumeClaim' Lens +v1VolumePersistentVolumeClaimL :: Lens_' V1Volume (Maybe V1PersistentVolumeClaimVolumeSource) +v1VolumePersistentVolumeClaimL f V1Volume{..} = (\v1VolumePersistentVolumeClaim -> V1Volume { v1VolumePersistentVolumeClaim, ..} ) <$> f v1VolumePersistentVolumeClaim +{-# INLINE v1VolumePersistentVolumeClaimL #-} + +-- | 'v1VolumePhotonPersistentDisk' Lens +v1VolumePhotonPersistentDiskL :: Lens_' V1Volume (Maybe V1PhotonPersistentDiskVolumeSource) +v1VolumePhotonPersistentDiskL f V1Volume{..} = (\v1VolumePhotonPersistentDisk -> V1Volume { v1VolumePhotonPersistentDisk, ..} ) <$> f v1VolumePhotonPersistentDisk +{-# INLINE v1VolumePhotonPersistentDiskL #-} + +-- | 'v1VolumePortworxVolume' Lens +v1VolumePortworxVolumeL :: Lens_' V1Volume (Maybe V1PortworxVolumeSource) +v1VolumePortworxVolumeL f V1Volume{..} = (\v1VolumePortworxVolume -> V1Volume { v1VolumePortworxVolume, ..} ) <$> f v1VolumePortworxVolume +{-# INLINE v1VolumePortworxVolumeL #-} + +-- | 'v1VolumeProjected' Lens +v1VolumeProjectedL :: Lens_' V1Volume (Maybe V1ProjectedVolumeSource) +v1VolumeProjectedL f V1Volume{..} = (\v1VolumeProjected -> V1Volume { v1VolumeProjected, ..} ) <$> f v1VolumeProjected +{-# INLINE v1VolumeProjectedL #-} + +-- | 'v1VolumeQuobyte' Lens +v1VolumeQuobyteL :: Lens_' V1Volume (Maybe V1QuobyteVolumeSource) +v1VolumeQuobyteL f V1Volume{..} = (\v1VolumeQuobyte -> V1Volume { v1VolumeQuobyte, ..} ) <$> f v1VolumeQuobyte +{-# INLINE v1VolumeQuobyteL #-} + +-- | 'v1VolumeRbd' Lens +v1VolumeRbdL :: Lens_' V1Volume (Maybe V1RBDVolumeSource) +v1VolumeRbdL f V1Volume{..} = (\v1VolumeRbd -> V1Volume { v1VolumeRbd, ..} ) <$> f v1VolumeRbd +{-# INLINE v1VolumeRbdL #-} + +-- | 'v1VolumeScaleIo' Lens +v1VolumeScaleIoL :: Lens_' V1Volume (Maybe V1ScaleIOVolumeSource) +v1VolumeScaleIoL f V1Volume{..} = (\v1VolumeScaleIo -> V1Volume { v1VolumeScaleIo, ..} ) <$> f v1VolumeScaleIo +{-# INLINE v1VolumeScaleIoL #-} + +-- | 'v1VolumeSecret' Lens +v1VolumeSecretL :: Lens_' V1Volume (Maybe V1SecretVolumeSource) +v1VolumeSecretL f V1Volume{..} = (\v1VolumeSecret -> V1Volume { v1VolumeSecret, ..} ) <$> f v1VolumeSecret +{-# INLINE v1VolumeSecretL #-} + +-- | 'v1VolumeStorageos' Lens +v1VolumeStorageosL :: Lens_' V1Volume (Maybe V1StorageOSVolumeSource) +v1VolumeStorageosL f V1Volume{..} = (\v1VolumeStorageos -> V1Volume { v1VolumeStorageos, ..} ) <$> f v1VolumeStorageos +{-# INLINE v1VolumeStorageosL #-} + +-- | 'v1VolumeVsphereVolume' Lens +v1VolumeVsphereVolumeL :: Lens_' V1Volume (Maybe V1VsphereVirtualDiskVolumeSource) +v1VolumeVsphereVolumeL f V1Volume{..} = (\v1VolumeVsphereVolume -> V1Volume { v1VolumeVsphereVolume, ..} ) <$> f v1VolumeVsphereVolume +{-# INLINE v1VolumeVsphereVolumeL #-} + + + +-- * V1VolumeAttachment + +-- | 'v1VolumeAttachmentApiVersion' Lens +v1VolumeAttachmentApiVersionL :: Lens_' V1VolumeAttachment (Maybe Text) +v1VolumeAttachmentApiVersionL f V1VolumeAttachment{..} = (\v1VolumeAttachmentApiVersion -> V1VolumeAttachment { v1VolumeAttachmentApiVersion, ..} ) <$> f v1VolumeAttachmentApiVersion +{-# INLINE v1VolumeAttachmentApiVersionL #-} + +-- | 'v1VolumeAttachmentKind' Lens +v1VolumeAttachmentKindL :: Lens_' V1VolumeAttachment (Maybe Text) +v1VolumeAttachmentKindL f V1VolumeAttachment{..} = (\v1VolumeAttachmentKind -> V1VolumeAttachment { v1VolumeAttachmentKind, ..} ) <$> f v1VolumeAttachmentKind +{-# INLINE v1VolumeAttachmentKindL #-} + +-- | 'v1VolumeAttachmentMetadata' Lens +v1VolumeAttachmentMetadataL :: Lens_' V1VolumeAttachment (Maybe V1ObjectMeta) +v1VolumeAttachmentMetadataL f V1VolumeAttachment{..} = (\v1VolumeAttachmentMetadata -> V1VolumeAttachment { v1VolumeAttachmentMetadata, ..} ) <$> f v1VolumeAttachmentMetadata +{-# INLINE v1VolumeAttachmentMetadataL #-} + +-- | 'v1VolumeAttachmentSpec' Lens +v1VolumeAttachmentSpecL :: Lens_' V1VolumeAttachment (V1VolumeAttachmentSpec) +v1VolumeAttachmentSpecL f V1VolumeAttachment{..} = (\v1VolumeAttachmentSpec -> V1VolumeAttachment { v1VolumeAttachmentSpec, ..} ) <$> f v1VolumeAttachmentSpec +{-# INLINE v1VolumeAttachmentSpecL #-} + +-- | 'v1VolumeAttachmentStatus' Lens +v1VolumeAttachmentStatusL :: Lens_' V1VolumeAttachment (Maybe V1VolumeAttachmentStatus) +v1VolumeAttachmentStatusL f V1VolumeAttachment{..} = (\v1VolumeAttachmentStatus -> V1VolumeAttachment { v1VolumeAttachmentStatus, ..} ) <$> f v1VolumeAttachmentStatus +{-# INLINE v1VolumeAttachmentStatusL #-} + + + +-- * V1VolumeAttachmentList + +-- | 'v1VolumeAttachmentListApiVersion' Lens +v1VolumeAttachmentListApiVersionL :: Lens_' V1VolumeAttachmentList (Maybe Text) +v1VolumeAttachmentListApiVersionL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListApiVersion -> V1VolumeAttachmentList { v1VolumeAttachmentListApiVersion, ..} ) <$> f v1VolumeAttachmentListApiVersion +{-# INLINE v1VolumeAttachmentListApiVersionL #-} + +-- | 'v1VolumeAttachmentListItems' Lens +v1VolumeAttachmentListItemsL :: Lens_' V1VolumeAttachmentList ([V1VolumeAttachment]) +v1VolumeAttachmentListItemsL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListItems -> V1VolumeAttachmentList { v1VolumeAttachmentListItems, ..} ) <$> f v1VolumeAttachmentListItems +{-# INLINE v1VolumeAttachmentListItemsL #-} + +-- | 'v1VolumeAttachmentListKind' Lens +v1VolumeAttachmentListKindL :: Lens_' V1VolumeAttachmentList (Maybe Text) +v1VolumeAttachmentListKindL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListKind -> V1VolumeAttachmentList { v1VolumeAttachmentListKind, ..} ) <$> f v1VolumeAttachmentListKind +{-# INLINE v1VolumeAttachmentListKindL #-} + +-- | 'v1VolumeAttachmentListMetadata' Lens +v1VolumeAttachmentListMetadataL :: Lens_' V1VolumeAttachmentList (Maybe V1ListMeta) +v1VolumeAttachmentListMetadataL f V1VolumeAttachmentList{..} = (\v1VolumeAttachmentListMetadata -> V1VolumeAttachmentList { v1VolumeAttachmentListMetadata, ..} ) <$> f v1VolumeAttachmentListMetadata +{-# INLINE v1VolumeAttachmentListMetadataL #-} + + + +-- * V1VolumeAttachmentSource + +-- | 'v1VolumeAttachmentSourceInlineVolumeSpec' Lens +v1VolumeAttachmentSourceInlineVolumeSpecL :: Lens_' V1VolumeAttachmentSource (Maybe V1PersistentVolumeSpec) +v1VolumeAttachmentSourceInlineVolumeSpecL f V1VolumeAttachmentSource{..} = (\v1VolumeAttachmentSourceInlineVolumeSpec -> V1VolumeAttachmentSource { v1VolumeAttachmentSourceInlineVolumeSpec, ..} ) <$> f v1VolumeAttachmentSourceInlineVolumeSpec +{-# INLINE v1VolumeAttachmentSourceInlineVolumeSpecL #-} + +-- | 'v1VolumeAttachmentSourcePersistentVolumeName' Lens +v1VolumeAttachmentSourcePersistentVolumeNameL :: Lens_' V1VolumeAttachmentSource (Maybe Text) +v1VolumeAttachmentSourcePersistentVolumeNameL f V1VolumeAttachmentSource{..} = (\v1VolumeAttachmentSourcePersistentVolumeName -> V1VolumeAttachmentSource { v1VolumeAttachmentSourcePersistentVolumeName, ..} ) <$> f v1VolumeAttachmentSourcePersistentVolumeName +{-# INLINE v1VolumeAttachmentSourcePersistentVolumeNameL #-} + + + +-- * V1VolumeAttachmentSpec + +-- | 'v1VolumeAttachmentSpecAttacher' Lens +v1VolumeAttachmentSpecAttacherL :: Lens_' V1VolumeAttachmentSpec (Text) +v1VolumeAttachmentSpecAttacherL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecAttacher -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecAttacher, ..} ) <$> f v1VolumeAttachmentSpecAttacher +{-# INLINE v1VolumeAttachmentSpecAttacherL #-} + +-- | 'v1VolumeAttachmentSpecNodeName' Lens +v1VolumeAttachmentSpecNodeNameL :: Lens_' V1VolumeAttachmentSpec (Text) +v1VolumeAttachmentSpecNodeNameL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecNodeName -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecNodeName, ..} ) <$> f v1VolumeAttachmentSpecNodeName +{-# INLINE v1VolumeAttachmentSpecNodeNameL #-} + +-- | 'v1VolumeAttachmentSpecSource' Lens +v1VolumeAttachmentSpecSourceL :: Lens_' V1VolumeAttachmentSpec (V1VolumeAttachmentSource) +v1VolumeAttachmentSpecSourceL f V1VolumeAttachmentSpec{..} = (\v1VolumeAttachmentSpecSource -> V1VolumeAttachmentSpec { v1VolumeAttachmentSpecSource, ..} ) <$> f v1VolumeAttachmentSpecSource +{-# INLINE v1VolumeAttachmentSpecSourceL #-} + + + +-- * V1VolumeAttachmentStatus + +-- | 'v1VolumeAttachmentStatusAttachError' Lens +v1VolumeAttachmentStatusAttachErrorL :: Lens_' V1VolumeAttachmentStatus (Maybe V1VolumeError) +v1VolumeAttachmentStatusAttachErrorL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttachError -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttachError, ..} ) <$> f v1VolumeAttachmentStatusAttachError +{-# INLINE v1VolumeAttachmentStatusAttachErrorL #-} + +-- | 'v1VolumeAttachmentStatusAttached' Lens +v1VolumeAttachmentStatusAttachedL :: Lens_' V1VolumeAttachmentStatus (Bool) +v1VolumeAttachmentStatusAttachedL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttached -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttached, ..} ) <$> f v1VolumeAttachmentStatusAttached +{-# INLINE v1VolumeAttachmentStatusAttachedL #-} + +-- | 'v1VolumeAttachmentStatusAttachmentMetadata' Lens +v1VolumeAttachmentStatusAttachmentMetadataL :: Lens_' V1VolumeAttachmentStatus (Maybe (Map.Map String Text)) +v1VolumeAttachmentStatusAttachmentMetadataL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusAttachmentMetadata -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusAttachmentMetadata, ..} ) <$> f v1VolumeAttachmentStatusAttachmentMetadata +{-# INLINE v1VolumeAttachmentStatusAttachmentMetadataL #-} + +-- | 'v1VolumeAttachmentStatusDetachError' Lens +v1VolumeAttachmentStatusDetachErrorL :: Lens_' V1VolumeAttachmentStatus (Maybe V1VolumeError) +v1VolumeAttachmentStatusDetachErrorL f V1VolumeAttachmentStatus{..} = (\v1VolumeAttachmentStatusDetachError -> V1VolumeAttachmentStatus { v1VolumeAttachmentStatusDetachError, ..} ) <$> f v1VolumeAttachmentStatusDetachError +{-# INLINE v1VolumeAttachmentStatusDetachErrorL #-} + + + +-- * V1VolumeDevice + +-- | 'v1VolumeDeviceDevicePath' Lens +v1VolumeDeviceDevicePathL :: Lens_' V1VolumeDevice (Text) +v1VolumeDeviceDevicePathL f V1VolumeDevice{..} = (\v1VolumeDeviceDevicePath -> V1VolumeDevice { v1VolumeDeviceDevicePath, ..} ) <$> f v1VolumeDeviceDevicePath +{-# INLINE v1VolumeDeviceDevicePathL #-} + +-- | 'v1VolumeDeviceName' Lens +v1VolumeDeviceNameL :: Lens_' V1VolumeDevice (Text) +v1VolumeDeviceNameL f V1VolumeDevice{..} = (\v1VolumeDeviceName -> V1VolumeDevice { v1VolumeDeviceName, ..} ) <$> f v1VolumeDeviceName +{-# INLINE v1VolumeDeviceNameL #-} + + + +-- * V1VolumeError + +-- | 'v1VolumeErrorMessage' Lens +v1VolumeErrorMessageL :: Lens_' V1VolumeError (Maybe Text) +v1VolumeErrorMessageL f V1VolumeError{..} = (\v1VolumeErrorMessage -> V1VolumeError { v1VolumeErrorMessage, ..} ) <$> f v1VolumeErrorMessage +{-# INLINE v1VolumeErrorMessageL #-} + +-- | 'v1VolumeErrorTime' Lens +v1VolumeErrorTimeL :: Lens_' V1VolumeError (Maybe DateTime) +v1VolumeErrorTimeL f V1VolumeError{..} = (\v1VolumeErrorTime -> V1VolumeError { v1VolumeErrorTime, ..} ) <$> f v1VolumeErrorTime +{-# INLINE v1VolumeErrorTimeL #-} + + + +-- * V1VolumeMount + +-- | 'v1VolumeMountMountPath' Lens +v1VolumeMountMountPathL :: Lens_' V1VolumeMount (Text) +v1VolumeMountMountPathL f V1VolumeMount{..} = (\v1VolumeMountMountPath -> V1VolumeMount { v1VolumeMountMountPath, ..} ) <$> f v1VolumeMountMountPath +{-# INLINE v1VolumeMountMountPathL #-} + +-- | 'v1VolumeMountMountPropagation' Lens +v1VolumeMountMountPropagationL :: Lens_' V1VolumeMount (Maybe Text) +v1VolumeMountMountPropagationL f V1VolumeMount{..} = (\v1VolumeMountMountPropagation -> V1VolumeMount { v1VolumeMountMountPropagation, ..} ) <$> f v1VolumeMountMountPropagation +{-# INLINE v1VolumeMountMountPropagationL #-} + +-- | 'v1VolumeMountName' Lens +v1VolumeMountNameL :: Lens_' V1VolumeMount (Text) +v1VolumeMountNameL f V1VolumeMount{..} = (\v1VolumeMountName -> V1VolumeMount { v1VolumeMountName, ..} ) <$> f v1VolumeMountName +{-# INLINE v1VolumeMountNameL #-} + +-- | 'v1VolumeMountReadOnly' Lens +v1VolumeMountReadOnlyL :: Lens_' V1VolumeMount (Maybe Bool) +v1VolumeMountReadOnlyL f V1VolumeMount{..} = (\v1VolumeMountReadOnly -> V1VolumeMount { v1VolumeMountReadOnly, ..} ) <$> f v1VolumeMountReadOnly +{-# INLINE v1VolumeMountReadOnlyL #-} + +-- | 'v1VolumeMountSubPath' Lens +v1VolumeMountSubPathL :: Lens_' V1VolumeMount (Maybe Text) +v1VolumeMountSubPathL f V1VolumeMount{..} = (\v1VolumeMountSubPath -> V1VolumeMount { v1VolumeMountSubPath, ..} ) <$> f v1VolumeMountSubPath +{-# INLINE v1VolumeMountSubPathL #-} + +-- | 'v1VolumeMountSubPathExpr' Lens +v1VolumeMountSubPathExprL :: Lens_' V1VolumeMount (Maybe Text) +v1VolumeMountSubPathExprL f V1VolumeMount{..} = (\v1VolumeMountSubPathExpr -> V1VolumeMount { v1VolumeMountSubPathExpr, ..} ) <$> f v1VolumeMountSubPathExpr +{-# INLINE v1VolumeMountSubPathExprL #-} + + + +-- * V1VolumeNodeAffinity + +-- | 'v1VolumeNodeAffinityRequired' Lens +v1VolumeNodeAffinityRequiredL :: Lens_' V1VolumeNodeAffinity (Maybe V1NodeSelector) +v1VolumeNodeAffinityRequiredL f V1VolumeNodeAffinity{..} = (\v1VolumeNodeAffinityRequired -> V1VolumeNodeAffinity { v1VolumeNodeAffinityRequired, ..} ) <$> f v1VolumeNodeAffinityRequired +{-# INLINE v1VolumeNodeAffinityRequiredL #-} + + + +-- * V1VolumeNodeResources + +-- | 'v1VolumeNodeResourcesCount' Lens +v1VolumeNodeResourcesCountL :: Lens_' V1VolumeNodeResources (Maybe Int) +v1VolumeNodeResourcesCountL f V1VolumeNodeResources{..} = (\v1VolumeNodeResourcesCount -> V1VolumeNodeResources { v1VolumeNodeResourcesCount, ..} ) <$> f v1VolumeNodeResourcesCount +{-# INLINE v1VolumeNodeResourcesCountL #-} + + + +-- * V1VolumeProjection + +-- | 'v1VolumeProjectionConfigMap' Lens +v1VolumeProjectionConfigMapL :: Lens_' V1VolumeProjection (Maybe V1ConfigMapProjection) +v1VolumeProjectionConfigMapL f V1VolumeProjection{..} = (\v1VolumeProjectionConfigMap -> V1VolumeProjection { v1VolumeProjectionConfigMap, ..} ) <$> f v1VolumeProjectionConfigMap +{-# INLINE v1VolumeProjectionConfigMapL #-} + +-- | 'v1VolumeProjectionDownwardApi' Lens +v1VolumeProjectionDownwardApiL :: Lens_' V1VolumeProjection (Maybe V1DownwardAPIProjection) +v1VolumeProjectionDownwardApiL f V1VolumeProjection{..} = (\v1VolumeProjectionDownwardApi -> V1VolumeProjection { v1VolumeProjectionDownwardApi, ..} ) <$> f v1VolumeProjectionDownwardApi +{-# INLINE v1VolumeProjectionDownwardApiL #-} + +-- | 'v1VolumeProjectionSecret' Lens +v1VolumeProjectionSecretL :: Lens_' V1VolumeProjection (Maybe V1SecretProjection) +v1VolumeProjectionSecretL f V1VolumeProjection{..} = (\v1VolumeProjectionSecret -> V1VolumeProjection { v1VolumeProjectionSecret, ..} ) <$> f v1VolumeProjectionSecret +{-# INLINE v1VolumeProjectionSecretL #-} + +-- | 'v1VolumeProjectionServiceAccountToken' Lens +v1VolumeProjectionServiceAccountTokenL :: Lens_' V1VolumeProjection (Maybe V1ServiceAccountTokenProjection) +v1VolumeProjectionServiceAccountTokenL f V1VolumeProjection{..} = (\v1VolumeProjectionServiceAccountToken -> V1VolumeProjection { v1VolumeProjectionServiceAccountToken, ..} ) <$> f v1VolumeProjectionServiceAccountToken +{-# INLINE v1VolumeProjectionServiceAccountTokenL #-} + + + +-- * V1VsphereVirtualDiskVolumeSource + +-- | 'v1VsphereVirtualDiskVolumeSourceFsType' Lens +v1VsphereVirtualDiskVolumeSourceFsTypeL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) +v1VsphereVirtualDiskVolumeSourceFsTypeL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceFsType -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceFsType, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceFsType +{-# INLINE v1VsphereVirtualDiskVolumeSourceFsTypeL #-} + +-- | 'v1VsphereVirtualDiskVolumeSourceStoragePolicyId' Lens +v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) +v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceStoragePolicyId -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceStoragePolicyId, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceStoragePolicyId +{-# INLINE v1VsphereVirtualDiskVolumeSourceStoragePolicyIdL #-} + +-- | 'v1VsphereVirtualDiskVolumeSourceStoragePolicyName' Lens +v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL :: Lens_' V1VsphereVirtualDiskVolumeSource (Maybe Text) +v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceStoragePolicyName -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceStoragePolicyName, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceStoragePolicyName +{-# INLINE v1VsphereVirtualDiskVolumeSourceStoragePolicyNameL #-} + +-- | 'v1VsphereVirtualDiskVolumeSourceVolumePath' Lens +v1VsphereVirtualDiskVolumeSourceVolumePathL :: Lens_' V1VsphereVirtualDiskVolumeSource (Text) +v1VsphereVirtualDiskVolumeSourceVolumePathL f V1VsphereVirtualDiskVolumeSource{..} = (\v1VsphereVirtualDiskVolumeSourceVolumePath -> V1VsphereVirtualDiskVolumeSource { v1VsphereVirtualDiskVolumeSourceVolumePath, ..} ) <$> f v1VsphereVirtualDiskVolumeSourceVolumePath +{-# INLINE v1VsphereVirtualDiskVolumeSourceVolumePathL #-} + + + +-- * V1WatchEvent + +-- | 'v1WatchEventObject' Lens +v1WatchEventObjectL :: Lens_' V1WatchEvent (A.Value) +v1WatchEventObjectL f V1WatchEvent{..} = (\v1WatchEventObject -> V1WatchEvent { v1WatchEventObject, ..} ) <$> f v1WatchEventObject +{-# INLINE v1WatchEventObjectL #-} + +-- | 'v1WatchEventType' Lens +v1WatchEventTypeL :: Lens_' V1WatchEvent (Text) +v1WatchEventTypeL f V1WatchEvent{..} = (\v1WatchEventType -> V1WatchEvent { v1WatchEventType, ..} ) <$> f v1WatchEventType +{-# INLINE v1WatchEventTypeL #-} + + + +-- * V1WebhookConversion + +-- | 'v1WebhookConversionClientConfig' Lens +v1WebhookConversionClientConfigL :: Lens_' V1WebhookConversion (Maybe ApiextensionsV1WebhookClientConfig) +v1WebhookConversionClientConfigL f V1WebhookConversion{..} = (\v1WebhookConversionClientConfig -> V1WebhookConversion { v1WebhookConversionClientConfig, ..} ) <$> f v1WebhookConversionClientConfig +{-# INLINE v1WebhookConversionClientConfigL #-} + +-- | 'v1WebhookConversionConversionReviewVersions' Lens +v1WebhookConversionConversionReviewVersionsL :: Lens_' V1WebhookConversion ([Text]) +v1WebhookConversionConversionReviewVersionsL f V1WebhookConversion{..} = (\v1WebhookConversionConversionReviewVersions -> V1WebhookConversion { v1WebhookConversionConversionReviewVersions, ..} ) <$> f v1WebhookConversionConversionReviewVersions +{-# INLINE v1WebhookConversionConversionReviewVersionsL #-} + + + +-- * V1WeightedPodAffinityTerm + +-- | 'v1WeightedPodAffinityTermPodAffinityTerm' Lens +v1WeightedPodAffinityTermPodAffinityTermL :: Lens_' V1WeightedPodAffinityTerm (V1PodAffinityTerm) +v1WeightedPodAffinityTermPodAffinityTermL f V1WeightedPodAffinityTerm{..} = (\v1WeightedPodAffinityTermPodAffinityTerm -> V1WeightedPodAffinityTerm { v1WeightedPodAffinityTermPodAffinityTerm, ..} ) <$> f v1WeightedPodAffinityTermPodAffinityTerm +{-# INLINE v1WeightedPodAffinityTermPodAffinityTermL #-} + +-- | 'v1WeightedPodAffinityTermWeight' Lens +v1WeightedPodAffinityTermWeightL :: Lens_' V1WeightedPodAffinityTerm (Int) +v1WeightedPodAffinityTermWeightL f V1WeightedPodAffinityTerm{..} = (\v1WeightedPodAffinityTermWeight -> V1WeightedPodAffinityTerm { v1WeightedPodAffinityTermWeight, ..} ) <$> f v1WeightedPodAffinityTermWeight +{-# INLINE v1WeightedPodAffinityTermWeightL #-} + + + +-- * V1WindowsSecurityContextOptions + +-- | 'v1WindowsSecurityContextOptionsGmsaCredentialSpec' Lens +v1WindowsSecurityContextOptionsGmsaCredentialSpecL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) +v1WindowsSecurityContextOptionsGmsaCredentialSpecL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsGmsaCredentialSpec -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsGmsaCredentialSpec, ..} ) <$> f v1WindowsSecurityContextOptionsGmsaCredentialSpec +{-# INLINE v1WindowsSecurityContextOptionsGmsaCredentialSpecL #-} + +-- | 'v1WindowsSecurityContextOptionsGmsaCredentialSpecName' Lens +v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) +v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsGmsaCredentialSpecName -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsGmsaCredentialSpecName, ..} ) <$> f v1WindowsSecurityContextOptionsGmsaCredentialSpecName +{-# INLINE v1WindowsSecurityContextOptionsGmsaCredentialSpecNameL #-} + +-- | 'v1WindowsSecurityContextOptionsHostProcess' Lens +v1WindowsSecurityContextOptionsHostProcessL :: Lens_' V1WindowsSecurityContextOptions (Maybe Bool) +v1WindowsSecurityContextOptionsHostProcessL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsHostProcess -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsHostProcess, ..} ) <$> f v1WindowsSecurityContextOptionsHostProcess +{-# INLINE v1WindowsSecurityContextOptionsHostProcessL #-} + +-- | 'v1WindowsSecurityContextOptionsRunAsUserName' Lens +v1WindowsSecurityContextOptionsRunAsUserNameL :: Lens_' V1WindowsSecurityContextOptions (Maybe Text) +v1WindowsSecurityContextOptionsRunAsUserNameL f V1WindowsSecurityContextOptions{..} = (\v1WindowsSecurityContextOptionsRunAsUserName -> V1WindowsSecurityContextOptions { v1WindowsSecurityContextOptionsRunAsUserName, ..} ) <$> f v1WindowsSecurityContextOptionsRunAsUserName +{-# INLINE v1WindowsSecurityContextOptionsRunAsUserNameL #-} + + + +-- * V1alpha1AuditAnnotation + +-- | 'v1alpha1AuditAnnotationKey' Lens +v1alpha1AuditAnnotationKeyL :: Lens_' V1alpha1AuditAnnotation (Text) +v1alpha1AuditAnnotationKeyL f V1alpha1AuditAnnotation{..} = (\v1alpha1AuditAnnotationKey -> V1alpha1AuditAnnotation { v1alpha1AuditAnnotationKey, ..} ) <$> f v1alpha1AuditAnnotationKey +{-# INLINE v1alpha1AuditAnnotationKeyL #-} + +-- | 'v1alpha1AuditAnnotationValueExpression' Lens +v1alpha1AuditAnnotationValueExpressionL :: Lens_' V1alpha1AuditAnnotation (Text) +v1alpha1AuditAnnotationValueExpressionL f V1alpha1AuditAnnotation{..} = (\v1alpha1AuditAnnotationValueExpression -> V1alpha1AuditAnnotation { v1alpha1AuditAnnotationValueExpression, ..} ) <$> f v1alpha1AuditAnnotationValueExpression +{-# INLINE v1alpha1AuditAnnotationValueExpressionL #-} + + + +-- * V1alpha1ClusterCIDR + +-- | 'v1alpha1ClusterCIDRApiVersion' Lens +v1alpha1ClusterCIDRApiVersionL :: Lens_' V1alpha1ClusterCIDR (Maybe Text) +v1alpha1ClusterCIDRApiVersionL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRApiVersion -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRApiVersion, ..} ) <$> f v1alpha1ClusterCIDRApiVersion +{-# INLINE v1alpha1ClusterCIDRApiVersionL #-} + +-- | 'v1alpha1ClusterCIDRKind' Lens +v1alpha1ClusterCIDRKindL :: Lens_' V1alpha1ClusterCIDR (Maybe Text) +v1alpha1ClusterCIDRKindL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRKind -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRKind, ..} ) <$> f v1alpha1ClusterCIDRKind +{-# INLINE v1alpha1ClusterCIDRKindL #-} + +-- | 'v1alpha1ClusterCIDRMetadata' Lens +v1alpha1ClusterCIDRMetadataL :: Lens_' V1alpha1ClusterCIDR (Maybe V1ObjectMeta) +v1alpha1ClusterCIDRMetadataL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRMetadata -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRMetadata, ..} ) <$> f v1alpha1ClusterCIDRMetadata +{-# INLINE v1alpha1ClusterCIDRMetadataL #-} + +-- | 'v1alpha1ClusterCIDRSpec' Lens +v1alpha1ClusterCIDRSpecL :: Lens_' V1alpha1ClusterCIDR (Maybe V1alpha1ClusterCIDRSpec) +v1alpha1ClusterCIDRSpecL f V1alpha1ClusterCIDR{..} = (\v1alpha1ClusterCIDRSpec -> V1alpha1ClusterCIDR { v1alpha1ClusterCIDRSpec, ..} ) <$> f v1alpha1ClusterCIDRSpec +{-# INLINE v1alpha1ClusterCIDRSpecL #-} + + + +-- * V1alpha1ClusterCIDRList + +-- | 'v1alpha1ClusterCIDRListApiVersion' Lens +v1alpha1ClusterCIDRListApiVersionL :: Lens_' V1alpha1ClusterCIDRList (Maybe Text) +v1alpha1ClusterCIDRListApiVersionL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListApiVersion -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListApiVersion, ..} ) <$> f v1alpha1ClusterCIDRListApiVersion +{-# INLINE v1alpha1ClusterCIDRListApiVersionL #-} + +-- | 'v1alpha1ClusterCIDRListItems' Lens +v1alpha1ClusterCIDRListItemsL :: Lens_' V1alpha1ClusterCIDRList ([V1alpha1ClusterCIDR]) +v1alpha1ClusterCIDRListItemsL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListItems -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListItems, ..} ) <$> f v1alpha1ClusterCIDRListItems +{-# INLINE v1alpha1ClusterCIDRListItemsL #-} + +-- | 'v1alpha1ClusterCIDRListKind' Lens +v1alpha1ClusterCIDRListKindL :: Lens_' V1alpha1ClusterCIDRList (Maybe Text) +v1alpha1ClusterCIDRListKindL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListKind -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListKind, ..} ) <$> f v1alpha1ClusterCIDRListKind +{-# INLINE v1alpha1ClusterCIDRListKindL #-} + +-- | 'v1alpha1ClusterCIDRListMetadata' Lens +v1alpha1ClusterCIDRListMetadataL :: Lens_' V1alpha1ClusterCIDRList (Maybe V1ListMeta) +v1alpha1ClusterCIDRListMetadataL f V1alpha1ClusterCIDRList{..} = (\v1alpha1ClusterCIDRListMetadata -> V1alpha1ClusterCIDRList { v1alpha1ClusterCIDRListMetadata, ..} ) <$> f v1alpha1ClusterCIDRListMetadata +{-# INLINE v1alpha1ClusterCIDRListMetadataL #-} + + + +-- * V1alpha1ClusterCIDRSpec + +-- | 'v1alpha1ClusterCIDRSpecIpv4' Lens +v1alpha1ClusterCIDRSpecIpv4L :: Lens_' V1alpha1ClusterCIDRSpec (Maybe Text) +v1alpha1ClusterCIDRSpecIpv4L f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecIpv4 -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecIpv4, ..} ) <$> f v1alpha1ClusterCIDRSpecIpv4 +{-# INLINE v1alpha1ClusterCIDRSpecIpv4L #-} + +-- | 'v1alpha1ClusterCIDRSpecIpv6' Lens +v1alpha1ClusterCIDRSpecIpv6L :: Lens_' V1alpha1ClusterCIDRSpec (Maybe Text) +v1alpha1ClusterCIDRSpecIpv6L f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecIpv6 -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecIpv6, ..} ) <$> f v1alpha1ClusterCIDRSpecIpv6 +{-# INLINE v1alpha1ClusterCIDRSpecIpv6L #-} + +-- | 'v1alpha1ClusterCIDRSpecNodeSelector' Lens +v1alpha1ClusterCIDRSpecNodeSelectorL :: Lens_' V1alpha1ClusterCIDRSpec (Maybe V1NodeSelector) +v1alpha1ClusterCIDRSpecNodeSelectorL f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecNodeSelector -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecNodeSelector, ..} ) <$> f v1alpha1ClusterCIDRSpecNodeSelector +{-# INLINE v1alpha1ClusterCIDRSpecNodeSelectorL #-} + +-- | 'v1alpha1ClusterCIDRSpecPerNodeHostBits' Lens +v1alpha1ClusterCIDRSpecPerNodeHostBitsL :: Lens_' V1alpha1ClusterCIDRSpec (Int) +v1alpha1ClusterCIDRSpecPerNodeHostBitsL f V1alpha1ClusterCIDRSpec{..} = (\v1alpha1ClusterCIDRSpecPerNodeHostBits -> V1alpha1ClusterCIDRSpec { v1alpha1ClusterCIDRSpecPerNodeHostBits, ..} ) <$> f v1alpha1ClusterCIDRSpecPerNodeHostBits +{-# INLINE v1alpha1ClusterCIDRSpecPerNodeHostBitsL #-} + + + +-- * V1alpha1ClusterTrustBundle + +-- | 'v1alpha1ClusterTrustBundleApiVersion' Lens +v1alpha1ClusterTrustBundleApiVersionL :: Lens_' V1alpha1ClusterTrustBundle (Maybe Text) +v1alpha1ClusterTrustBundleApiVersionL f V1alpha1ClusterTrustBundle{..} = (\v1alpha1ClusterTrustBundleApiVersion -> V1alpha1ClusterTrustBundle { v1alpha1ClusterTrustBundleApiVersion, ..} ) <$> f v1alpha1ClusterTrustBundleApiVersion +{-# INLINE v1alpha1ClusterTrustBundleApiVersionL #-} + +-- | 'v1alpha1ClusterTrustBundleKind' Lens +v1alpha1ClusterTrustBundleKindL :: Lens_' V1alpha1ClusterTrustBundle (Maybe Text) +v1alpha1ClusterTrustBundleKindL f V1alpha1ClusterTrustBundle{..} = (\v1alpha1ClusterTrustBundleKind -> V1alpha1ClusterTrustBundle { v1alpha1ClusterTrustBundleKind, ..} ) <$> f v1alpha1ClusterTrustBundleKind +{-# INLINE v1alpha1ClusterTrustBundleKindL #-} + +-- | 'v1alpha1ClusterTrustBundleMetadata' Lens +v1alpha1ClusterTrustBundleMetadataL :: Lens_' V1alpha1ClusterTrustBundle (Maybe V1ObjectMeta) +v1alpha1ClusterTrustBundleMetadataL f V1alpha1ClusterTrustBundle{..} = (\v1alpha1ClusterTrustBundleMetadata -> V1alpha1ClusterTrustBundle { v1alpha1ClusterTrustBundleMetadata, ..} ) <$> f v1alpha1ClusterTrustBundleMetadata +{-# INLINE v1alpha1ClusterTrustBundleMetadataL #-} + +-- | 'v1alpha1ClusterTrustBundleSpec' Lens +v1alpha1ClusterTrustBundleSpecL :: Lens_' V1alpha1ClusterTrustBundle (V1alpha1ClusterTrustBundleSpec) +v1alpha1ClusterTrustBundleSpecL f V1alpha1ClusterTrustBundle{..} = (\v1alpha1ClusterTrustBundleSpec -> V1alpha1ClusterTrustBundle { v1alpha1ClusterTrustBundleSpec, ..} ) <$> f v1alpha1ClusterTrustBundleSpec +{-# INLINE v1alpha1ClusterTrustBundleSpecL #-} + + + +-- * V1alpha1ClusterTrustBundleList + +-- | 'v1alpha1ClusterTrustBundleListApiVersion' Lens +v1alpha1ClusterTrustBundleListApiVersionL :: Lens_' V1alpha1ClusterTrustBundleList (Maybe Text) +v1alpha1ClusterTrustBundleListApiVersionL f V1alpha1ClusterTrustBundleList{..} = (\v1alpha1ClusterTrustBundleListApiVersion -> V1alpha1ClusterTrustBundleList { v1alpha1ClusterTrustBundleListApiVersion, ..} ) <$> f v1alpha1ClusterTrustBundleListApiVersion +{-# INLINE v1alpha1ClusterTrustBundleListApiVersionL #-} + +-- | 'v1alpha1ClusterTrustBundleListItems' Lens +v1alpha1ClusterTrustBundleListItemsL :: Lens_' V1alpha1ClusterTrustBundleList ([V1alpha1ClusterTrustBundle]) +v1alpha1ClusterTrustBundleListItemsL f V1alpha1ClusterTrustBundleList{..} = (\v1alpha1ClusterTrustBundleListItems -> V1alpha1ClusterTrustBundleList { v1alpha1ClusterTrustBundleListItems, ..} ) <$> f v1alpha1ClusterTrustBundleListItems +{-# INLINE v1alpha1ClusterTrustBundleListItemsL #-} + +-- | 'v1alpha1ClusterTrustBundleListKind' Lens +v1alpha1ClusterTrustBundleListKindL :: Lens_' V1alpha1ClusterTrustBundleList (Maybe Text) +v1alpha1ClusterTrustBundleListKindL f V1alpha1ClusterTrustBundleList{..} = (\v1alpha1ClusterTrustBundleListKind -> V1alpha1ClusterTrustBundleList { v1alpha1ClusterTrustBundleListKind, ..} ) <$> f v1alpha1ClusterTrustBundleListKind +{-# INLINE v1alpha1ClusterTrustBundleListKindL #-} + +-- | 'v1alpha1ClusterTrustBundleListMetadata' Lens +v1alpha1ClusterTrustBundleListMetadataL :: Lens_' V1alpha1ClusterTrustBundleList (Maybe V1ListMeta) +v1alpha1ClusterTrustBundleListMetadataL f V1alpha1ClusterTrustBundleList{..} = (\v1alpha1ClusterTrustBundleListMetadata -> V1alpha1ClusterTrustBundleList { v1alpha1ClusterTrustBundleListMetadata, ..} ) <$> f v1alpha1ClusterTrustBundleListMetadata +{-# INLINE v1alpha1ClusterTrustBundleListMetadataL #-} + + + +-- * V1alpha1ClusterTrustBundleSpec + +-- | 'v1alpha1ClusterTrustBundleSpecSignerName' Lens +v1alpha1ClusterTrustBundleSpecSignerNameL :: Lens_' V1alpha1ClusterTrustBundleSpec (Maybe Text) +v1alpha1ClusterTrustBundleSpecSignerNameL f V1alpha1ClusterTrustBundleSpec{..} = (\v1alpha1ClusterTrustBundleSpecSignerName -> V1alpha1ClusterTrustBundleSpec { v1alpha1ClusterTrustBundleSpecSignerName, ..} ) <$> f v1alpha1ClusterTrustBundleSpecSignerName +{-# INLINE v1alpha1ClusterTrustBundleSpecSignerNameL #-} + +-- | 'v1alpha1ClusterTrustBundleSpecTrustBundle' Lens +v1alpha1ClusterTrustBundleSpecTrustBundleL :: Lens_' V1alpha1ClusterTrustBundleSpec (Text) +v1alpha1ClusterTrustBundleSpecTrustBundleL f V1alpha1ClusterTrustBundleSpec{..} = (\v1alpha1ClusterTrustBundleSpecTrustBundle -> V1alpha1ClusterTrustBundleSpec { v1alpha1ClusterTrustBundleSpecTrustBundle, ..} ) <$> f v1alpha1ClusterTrustBundleSpecTrustBundle +{-# INLINE v1alpha1ClusterTrustBundleSpecTrustBundleL #-} + + + +-- * V1alpha1ExpressionWarning + +-- | 'v1alpha1ExpressionWarningFieldRef' Lens +v1alpha1ExpressionWarningFieldRefL :: Lens_' V1alpha1ExpressionWarning (Text) +v1alpha1ExpressionWarningFieldRefL f V1alpha1ExpressionWarning{..} = (\v1alpha1ExpressionWarningFieldRef -> V1alpha1ExpressionWarning { v1alpha1ExpressionWarningFieldRef, ..} ) <$> f v1alpha1ExpressionWarningFieldRef +{-# INLINE v1alpha1ExpressionWarningFieldRefL #-} + +-- | 'v1alpha1ExpressionWarningWarning' Lens +v1alpha1ExpressionWarningWarningL :: Lens_' V1alpha1ExpressionWarning (Text) +v1alpha1ExpressionWarningWarningL f V1alpha1ExpressionWarning{..} = (\v1alpha1ExpressionWarningWarning -> V1alpha1ExpressionWarning { v1alpha1ExpressionWarningWarning, ..} ) <$> f v1alpha1ExpressionWarningWarning +{-# INLINE v1alpha1ExpressionWarningWarningL #-} + + + +-- * V1alpha1IPAddress + +-- | 'v1alpha1IPAddressApiVersion' Lens +v1alpha1IPAddressApiVersionL :: Lens_' V1alpha1IPAddress (Maybe Text) +v1alpha1IPAddressApiVersionL f V1alpha1IPAddress{..} = (\v1alpha1IPAddressApiVersion -> V1alpha1IPAddress { v1alpha1IPAddressApiVersion, ..} ) <$> f v1alpha1IPAddressApiVersion +{-# INLINE v1alpha1IPAddressApiVersionL #-} + +-- | 'v1alpha1IPAddressKind' Lens +v1alpha1IPAddressKindL :: Lens_' V1alpha1IPAddress (Maybe Text) +v1alpha1IPAddressKindL f V1alpha1IPAddress{..} = (\v1alpha1IPAddressKind -> V1alpha1IPAddress { v1alpha1IPAddressKind, ..} ) <$> f v1alpha1IPAddressKind +{-# INLINE v1alpha1IPAddressKindL #-} + +-- | 'v1alpha1IPAddressMetadata' Lens +v1alpha1IPAddressMetadataL :: Lens_' V1alpha1IPAddress (Maybe V1ObjectMeta) +v1alpha1IPAddressMetadataL f V1alpha1IPAddress{..} = (\v1alpha1IPAddressMetadata -> V1alpha1IPAddress { v1alpha1IPAddressMetadata, ..} ) <$> f v1alpha1IPAddressMetadata +{-# INLINE v1alpha1IPAddressMetadataL #-} + +-- | 'v1alpha1IPAddressSpec' Lens +v1alpha1IPAddressSpecL :: Lens_' V1alpha1IPAddress (Maybe V1alpha1IPAddressSpec) +v1alpha1IPAddressSpecL f V1alpha1IPAddress{..} = (\v1alpha1IPAddressSpec -> V1alpha1IPAddress { v1alpha1IPAddressSpec, ..} ) <$> f v1alpha1IPAddressSpec +{-# INLINE v1alpha1IPAddressSpecL #-} + + + +-- * V1alpha1IPAddressList + +-- | 'v1alpha1IPAddressListApiVersion' Lens +v1alpha1IPAddressListApiVersionL :: Lens_' V1alpha1IPAddressList (Maybe Text) +v1alpha1IPAddressListApiVersionL f V1alpha1IPAddressList{..} = (\v1alpha1IPAddressListApiVersion -> V1alpha1IPAddressList { v1alpha1IPAddressListApiVersion, ..} ) <$> f v1alpha1IPAddressListApiVersion +{-# INLINE v1alpha1IPAddressListApiVersionL #-} + +-- | 'v1alpha1IPAddressListItems' Lens +v1alpha1IPAddressListItemsL :: Lens_' V1alpha1IPAddressList ([V1alpha1IPAddress]) +v1alpha1IPAddressListItemsL f V1alpha1IPAddressList{..} = (\v1alpha1IPAddressListItems -> V1alpha1IPAddressList { v1alpha1IPAddressListItems, ..} ) <$> f v1alpha1IPAddressListItems +{-# INLINE v1alpha1IPAddressListItemsL #-} + +-- | 'v1alpha1IPAddressListKind' Lens +v1alpha1IPAddressListKindL :: Lens_' V1alpha1IPAddressList (Maybe Text) +v1alpha1IPAddressListKindL f V1alpha1IPAddressList{..} = (\v1alpha1IPAddressListKind -> V1alpha1IPAddressList { v1alpha1IPAddressListKind, ..} ) <$> f v1alpha1IPAddressListKind +{-# INLINE v1alpha1IPAddressListKindL #-} + +-- | 'v1alpha1IPAddressListMetadata' Lens +v1alpha1IPAddressListMetadataL :: Lens_' V1alpha1IPAddressList (Maybe V1ListMeta) +v1alpha1IPAddressListMetadataL f V1alpha1IPAddressList{..} = (\v1alpha1IPAddressListMetadata -> V1alpha1IPAddressList { v1alpha1IPAddressListMetadata, ..} ) <$> f v1alpha1IPAddressListMetadata +{-# INLINE v1alpha1IPAddressListMetadataL #-} + + + +-- * V1alpha1IPAddressSpec + +-- | 'v1alpha1IPAddressSpecParentRef' Lens +v1alpha1IPAddressSpecParentRefL :: Lens_' V1alpha1IPAddressSpec (Maybe V1alpha1ParentReference) +v1alpha1IPAddressSpecParentRefL f V1alpha1IPAddressSpec{..} = (\v1alpha1IPAddressSpecParentRef -> V1alpha1IPAddressSpec { v1alpha1IPAddressSpecParentRef, ..} ) <$> f v1alpha1IPAddressSpecParentRef +{-# INLINE v1alpha1IPAddressSpecParentRefL #-} + + + +-- * V1alpha1MatchCondition + +-- | 'v1alpha1MatchConditionExpression' Lens +v1alpha1MatchConditionExpressionL :: Lens_' V1alpha1MatchCondition (Text) +v1alpha1MatchConditionExpressionL f V1alpha1MatchCondition{..} = (\v1alpha1MatchConditionExpression -> V1alpha1MatchCondition { v1alpha1MatchConditionExpression, ..} ) <$> f v1alpha1MatchConditionExpression +{-# INLINE v1alpha1MatchConditionExpressionL #-} + +-- | 'v1alpha1MatchConditionName' Lens +v1alpha1MatchConditionNameL :: Lens_' V1alpha1MatchCondition (Text) +v1alpha1MatchConditionNameL f V1alpha1MatchCondition{..} = (\v1alpha1MatchConditionName -> V1alpha1MatchCondition { v1alpha1MatchConditionName, ..} ) <$> f v1alpha1MatchConditionName +{-# INLINE v1alpha1MatchConditionNameL #-} + + + +-- * V1alpha1MatchResources + +-- | 'v1alpha1MatchResourcesExcludeResourceRules' Lens +v1alpha1MatchResourcesExcludeResourceRulesL :: Lens_' V1alpha1MatchResources (Maybe [V1alpha1NamedRuleWithOperations]) +v1alpha1MatchResourcesExcludeResourceRulesL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesExcludeResourceRules -> V1alpha1MatchResources { v1alpha1MatchResourcesExcludeResourceRules, ..} ) <$> f v1alpha1MatchResourcesExcludeResourceRules +{-# INLINE v1alpha1MatchResourcesExcludeResourceRulesL #-} + +-- | 'v1alpha1MatchResourcesMatchPolicy' Lens +v1alpha1MatchResourcesMatchPolicyL :: Lens_' V1alpha1MatchResources (Maybe Text) +v1alpha1MatchResourcesMatchPolicyL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesMatchPolicy -> V1alpha1MatchResources { v1alpha1MatchResourcesMatchPolicy, ..} ) <$> f v1alpha1MatchResourcesMatchPolicy +{-# INLINE v1alpha1MatchResourcesMatchPolicyL #-} + +-- | 'v1alpha1MatchResourcesNamespaceSelector' Lens +v1alpha1MatchResourcesNamespaceSelectorL :: Lens_' V1alpha1MatchResources (Maybe V1LabelSelector) +v1alpha1MatchResourcesNamespaceSelectorL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesNamespaceSelector -> V1alpha1MatchResources { v1alpha1MatchResourcesNamespaceSelector, ..} ) <$> f v1alpha1MatchResourcesNamespaceSelector +{-# INLINE v1alpha1MatchResourcesNamespaceSelectorL #-} + +-- | 'v1alpha1MatchResourcesObjectSelector' Lens +v1alpha1MatchResourcesObjectSelectorL :: Lens_' V1alpha1MatchResources (Maybe V1LabelSelector) +v1alpha1MatchResourcesObjectSelectorL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesObjectSelector -> V1alpha1MatchResources { v1alpha1MatchResourcesObjectSelector, ..} ) <$> f v1alpha1MatchResourcesObjectSelector +{-# INLINE v1alpha1MatchResourcesObjectSelectorL #-} + +-- | 'v1alpha1MatchResourcesResourceRules' Lens +v1alpha1MatchResourcesResourceRulesL :: Lens_' V1alpha1MatchResources (Maybe [V1alpha1NamedRuleWithOperations]) +v1alpha1MatchResourcesResourceRulesL f V1alpha1MatchResources{..} = (\v1alpha1MatchResourcesResourceRules -> V1alpha1MatchResources { v1alpha1MatchResourcesResourceRules, ..} ) <$> f v1alpha1MatchResourcesResourceRules +{-# INLINE v1alpha1MatchResourcesResourceRulesL #-} + + + +-- * V1alpha1NamedRuleWithOperations + +-- | 'v1alpha1NamedRuleWithOperationsApiGroups' Lens +v1alpha1NamedRuleWithOperationsApiGroupsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) +v1alpha1NamedRuleWithOperationsApiGroupsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsApiGroups -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsApiGroups, ..} ) <$> f v1alpha1NamedRuleWithOperationsApiGroups +{-# INLINE v1alpha1NamedRuleWithOperationsApiGroupsL #-} + +-- | 'v1alpha1NamedRuleWithOperationsApiVersions' Lens +v1alpha1NamedRuleWithOperationsApiVersionsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) +v1alpha1NamedRuleWithOperationsApiVersionsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsApiVersions -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsApiVersions, ..} ) <$> f v1alpha1NamedRuleWithOperationsApiVersions +{-# INLINE v1alpha1NamedRuleWithOperationsApiVersionsL #-} + +-- | 'v1alpha1NamedRuleWithOperationsOperations' Lens +v1alpha1NamedRuleWithOperationsOperationsL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) +v1alpha1NamedRuleWithOperationsOperationsL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsOperations -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsOperations, ..} ) <$> f v1alpha1NamedRuleWithOperationsOperations +{-# INLINE v1alpha1NamedRuleWithOperationsOperationsL #-} + +-- | 'v1alpha1NamedRuleWithOperationsResourceNames' Lens +v1alpha1NamedRuleWithOperationsResourceNamesL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) +v1alpha1NamedRuleWithOperationsResourceNamesL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsResourceNames -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsResourceNames, ..} ) <$> f v1alpha1NamedRuleWithOperationsResourceNames +{-# INLINE v1alpha1NamedRuleWithOperationsResourceNamesL #-} + +-- | 'v1alpha1NamedRuleWithOperationsResources' Lens +v1alpha1NamedRuleWithOperationsResourcesL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe [Text]) +v1alpha1NamedRuleWithOperationsResourcesL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsResources -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsResources, ..} ) <$> f v1alpha1NamedRuleWithOperationsResources +{-# INLINE v1alpha1NamedRuleWithOperationsResourcesL #-} + +-- | 'v1alpha1NamedRuleWithOperationsScope' Lens +v1alpha1NamedRuleWithOperationsScopeL :: Lens_' V1alpha1NamedRuleWithOperations (Maybe Text) +v1alpha1NamedRuleWithOperationsScopeL f V1alpha1NamedRuleWithOperations{..} = (\v1alpha1NamedRuleWithOperationsScope -> V1alpha1NamedRuleWithOperations { v1alpha1NamedRuleWithOperationsScope, ..} ) <$> f v1alpha1NamedRuleWithOperationsScope +{-# INLINE v1alpha1NamedRuleWithOperationsScopeL #-} + + + +-- * V1alpha1ParamKind + +-- | 'v1alpha1ParamKindApiVersion' Lens +v1alpha1ParamKindApiVersionL :: Lens_' V1alpha1ParamKind (Maybe Text) +v1alpha1ParamKindApiVersionL f V1alpha1ParamKind{..} = (\v1alpha1ParamKindApiVersion -> V1alpha1ParamKind { v1alpha1ParamKindApiVersion, ..} ) <$> f v1alpha1ParamKindApiVersion +{-# INLINE v1alpha1ParamKindApiVersionL #-} + +-- | 'v1alpha1ParamKindKind' Lens +v1alpha1ParamKindKindL :: Lens_' V1alpha1ParamKind (Maybe Text) +v1alpha1ParamKindKindL f V1alpha1ParamKind{..} = (\v1alpha1ParamKindKind -> V1alpha1ParamKind { v1alpha1ParamKindKind, ..} ) <$> f v1alpha1ParamKindKind +{-# INLINE v1alpha1ParamKindKindL #-} + + + +-- * V1alpha1ParamRef + +-- | 'v1alpha1ParamRefName' Lens +v1alpha1ParamRefNameL :: Lens_' V1alpha1ParamRef (Maybe Text) +v1alpha1ParamRefNameL f V1alpha1ParamRef{..} = (\v1alpha1ParamRefName -> V1alpha1ParamRef { v1alpha1ParamRefName, ..} ) <$> f v1alpha1ParamRefName +{-# INLINE v1alpha1ParamRefNameL #-} + +-- | 'v1alpha1ParamRefNamespace' Lens +v1alpha1ParamRefNamespaceL :: Lens_' V1alpha1ParamRef (Maybe Text) +v1alpha1ParamRefNamespaceL f V1alpha1ParamRef{..} = (\v1alpha1ParamRefNamespace -> V1alpha1ParamRef { v1alpha1ParamRefNamespace, ..} ) <$> f v1alpha1ParamRefNamespace +{-# INLINE v1alpha1ParamRefNamespaceL #-} + + + +-- * V1alpha1ParentReference + +-- | 'v1alpha1ParentReferenceGroup' Lens +v1alpha1ParentReferenceGroupL :: Lens_' V1alpha1ParentReference (Maybe Text) +v1alpha1ParentReferenceGroupL f V1alpha1ParentReference{..} = (\v1alpha1ParentReferenceGroup -> V1alpha1ParentReference { v1alpha1ParentReferenceGroup, ..} ) <$> f v1alpha1ParentReferenceGroup +{-# INLINE v1alpha1ParentReferenceGroupL #-} + +-- | 'v1alpha1ParentReferenceName' Lens +v1alpha1ParentReferenceNameL :: Lens_' V1alpha1ParentReference (Maybe Text) +v1alpha1ParentReferenceNameL f V1alpha1ParentReference{..} = (\v1alpha1ParentReferenceName -> V1alpha1ParentReference { v1alpha1ParentReferenceName, ..} ) <$> f v1alpha1ParentReferenceName +{-# INLINE v1alpha1ParentReferenceNameL #-} + +-- | 'v1alpha1ParentReferenceNamespace' Lens +v1alpha1ParentReferenceNamespaceL :: Lens_' V1alpha1ParentReference (Maybe Text) +v1alpha1ParentReferenceNamespaceL f V1alpha1ParentReference{..} = (\v1alpha1ParentReferenceNamespace -> V1alpha1ParentReference { v1alpha1ParentReferenceNamespace, ..} ) <$> f v1alpha1ParentReferenceNamespace +{-# INLINE v1alpha1ParentReferenceNamespaceL #-} + +-- | 'v1alpha1ParentReferenceResource' Lens +v1alpha1ParentReferenceResourceL :: Lens_' V1alpha1ParentReference (Maybe Text) +v1alpha1ParentReferenceResourceL f V1alpha1ParentReference{..} = (\v1alpha1ParentReferenceResource -> V1alpha1ParentReference { v1alpha1ParentReferenceResource, ..} ) <$> f v1alpha1ParentReferenceResource +{-# INLINE v1alpha1ParentReferenceResourceL #-} + +-- | 'v1alpha1ParentReferenceUid' Lens +v1alpha1ParentReferenceUidL :: Lens_' V1alpha1ParentReference (Maybe Text) +v1alpha1ParentReferenceUidL f V1alpha1ParentReference{..} = (\v1alpha1ParentReferenceUid -> V1alpha1ParentReference { v1alpha1ParentReferenceUid, ..} ) <$> f v1alpha1ParentReferenceUid +{-# INLINE v1alpha1ParentReferenceUidL #-} + + + +-- * V1alpha1SelfSubjectReview + +-- | 'v1alpha1SelfSubjectReviewApiVersion' Lens +v1alpha1SelfSubjectReviewApiVersionL :: Lens_' V1alpha1SelfSubjectReview (Maybe Text) +v1alpha1SelfSubjectReviewApiVersionL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewApiVersion -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewApiVersion, ..} ) <$> f v1alpha1SelfSubjectReviewApiVersion +{-# INLINE v1alpha1SelfSubjectReviewApiVersionL #-} + +-- | 'v1alpha1SelfSubjectReviewKind' Lens +v1alpha1SelfSubjectReviewKindL :: Lens_' V1alpha1SelfSubjectReview (Maybe Text) +v1alpha1SelfSubjectReviewKindL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewKind -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewKind, ..} ) <$> f v1alpha1SelfSubjectReviewKind +{-# INLINE v1alpha1SelfSubjectReviewKindL #-} + +-- | 'v1alpha1SelfSubjectReviewMetadata' Lens +v1alpha1SelfSubjectReviewMetadataL :: Lens_' V1alpha1SelfSubjectReview (Maybe V1ObjectMeta) +v1alpha1SelfSubjectReviewMetadataL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewMetadata -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewMetadata, ..} ) <$> f v1alpha1SelfSubjectReviewMetadata +{-# INLINE v1alpha1SelfSubjectReviewMetadataL #-} + +-- | 'v1alpha1SelfSubjectReviewStatus' Lens +v1alpha1SelfSubjectReviewStatusL :: Lens_' V1alpha1SelfSubjectReview (Maybe V1alpha1SelfSubjectReviewStatus) +v1alpha1SelfSubjectReviewStatusL f V1alpha1SelfSubjectReview{..} = (\v1alpha1SelfSubjectReviewStatus -> V1alpha1SelfSubjectReview { v1alpha1SelfSubjectReviewStatus, ..} ) <$> f v1alpha1SelfSubjectReviewStatus +{-# INLINE v1alpha1SelfSubjectReviewStatusL #-} + + + +-- * V1alpha1SelfSubjectReviewStatus + +-- | 'v1alpha1SelfSubjectReviewStatusUserInfo' Lens +v1alpha1SelfSubjectReviewStatusUserInfoL :: Lens_' V1alpha1SelfSubjectReviewStatus (Maybe V1UserInfo) +v1alpha1SelfSubjectReviewStatusUserInfoL f V1alpha1SelfSubjectReviewStatus{..} = (\v1alpha1SelfSubjectReviewStatusUserInfo -> V1alpha1SelfSubjectReviewStatus { v1alpha1SelfSubjectReviewStatusUserInfo, ..} ) <$> f v1alpha1SelfSubjectReviewStatusUserInfo +{-# INLINE v1alpha1SelfSubjectReviewStatusUserInfoL #-} + + + +-- * V1alpha1ServerStorageVersion + +-- | 'v1alpha1ServerStorageVersionApiServerId' Lens +v1alpha1ServerStorageVersionApiServerIdL :: Lens_' V1alpha1ServerStorageVersion (Maybe Text) +v1alpha1ServerStorageVersionApiServerIdL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionApiServerId -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionApiServerId, ..} ) <$> f v1alpha1ServerStorageVersionApiServerId +{-# INLINE v1alpha1ServerStorageVersionApiServerIdL #-} + +-- | 'v1alpha1ServerStorageVersionDecodableVersions' Lens +v1alpha1ServerStorageVersionDecodableVersionsL :: Lens_' V1alpha1ServerStorageVersion (Maybe [Text]) +v1alpha1ServerStorageVersionDecodableVersionsL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionDecodableVersions -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionDecodableVersions, ..} ) <$> f v1alpha1ServerStorageVersionDecodableVersions +{-# INLINE v1alpha1ServerStorageVersionDecodableVersionsL #-} + +-- | 'v1alpha1ServerStorageVersionEncodingVersion' Lens +v1alpha1ServerStorageVersionEncodingVersionL :: Lens_' V1alpha1ServerStorageVersion (Maybe Text) +v1alpha1ServerStorageVersionEncodingVersionL f V1alpha1ServerStorageVersion{..} = (\v1alpha1ServerStorageVersionEncodingVersion -> V1alpha1ServerStorageVersion { v1alpha1ServerStorageVersionEncodingVersion, ..} ) <$> f v1alpha1ServerStorageVersionEncodingVersion +{-# INLINE v1alpha1ServerStorageVersionEncodingVersionL #-} + + + +-- * V1alpha1StorageVersion + +-- | 'v1alpha1StorageVersionApiVersion' Lens +v1alpha1StorageVersionApiVersionL :: Lens_' V1alpha1StorageVersion (Maybe Text) +v1alpha1StorageVersionApiVersionL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionApiVersion -> V1alpha1StorageVersion { v1alpha1StorageVersionApiVersion, ..} ) <$> f v1alpha1StorageVersionApiVersion +{-# INLINE v1alpha1StorageVersionApiVersionL #-} + +-- | 'v1alpha1StorageVersionKind' Lens +v1alpha1StorageVersionKindL :: Lens_' V1alpha1StorageVersion (Maybe Text) +v1alpha1StorageVersionKindL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionKind -> V1alpha1StorageVersion { v1alpha1StorageVersionKind, ..} ) <$> f v1alpha1StorageVersionKind +{-# INLINE v1alpha1StorageVersionKindL #-} + +-- | 'v1alpha1StorageVersionMetadata' Lens +v1alpha1StorageVersionMetadataL :: Lens_' V1alpha1StorageVersion (Maybe V1ObjectMeta) +v1alpha1StorageVersionMetadataL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionMetadata -> V1alpha1StorageVersion { v1alpha1StorageVersionMetadata, ..} ) <$> f v1alpha1StorageVersionMetadata +{-# INLINE v1alpha1StorageVersionMetadataL #-} + +-- | 'v1alpha1StorageVersionSpec' Lens +v1alpha1StorageVersionSpecL :: Lens_' V1alpha1StorageVersion (A.Value) +v1alpha1StorageVersionSpecL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionSpec -> V1alpha1StorageVersion { v1alpha1StorageVersionSpec, ..} ) <$> f v1alpha1StorageVersionSpec +{-# INLINE v1alpha1StorageVersionSpecL #-} + +-- | 'v1alpha1StorageVersionStatus' Lens +v1alpha1StorageVersionStatusL :: Lens_' V1alpha1StorageVersion (V1alpha1StorageVersionStatus) +v1alpha1StorageVersionStatusL f V1alpha1StorageVersion{..} = (\v1alpha1StorageVersionStatus -> V1alpha1StorageVersion { v1alpha1StorageVersionStatus, ..} ) <$> f v1alpha1StorageVersionStatus +{-# INLINE v1alpha1StorageVersionStatusL #-} + + + +-- * V1alpha1StorageVersionCondition + +-- | 'v1alpha1StorageVersionConditionLastTransitionTime' Lens +v1alpha1StorageVersionConditionLastTransitionTimeL :: Lens_' V1alpha1StorageVersionCondition (Maybe DateTime) +v1alpha1StorageVersionConditionLastTransitionTimeL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionLastTransitionTime -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionLastTransitionTime, ..} ) <$> f v1alpha1StorageVersionConditionLastTransitionTime +{-# INLINE v1alpha1StorageVersionConditionLastTransitionTimeL #-} + +-- | 'v1alpha1StorageVersionConditionMessage' Lens +v1alpha1StorageVersionConditionMessageL :: Lens_' V1alpha1StorageVersionCondition (Maybe Text) +v1alpha1StorageVersionConditionMessageL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionMessage -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionMessage, ..} ) <$> f v1alpha1StorageVersionConditionMessage +{-# INLINE v1alpha1StorageVersionConditionMessageL #-} + +-- | 'v1alpha1StorageVersionConditionObservedGeneration' Lens +v1alpha1StorageVersionConditionObservedGenerationL :: Lens_' V1alpha1StorageVersionCondition (Maybe Integer) +v1alpha1StorageVersionConditionObservedGenerationL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionObservedGeneration -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionObservedGeneration, ..} ) <$> f v1alpha1StorageVersionConditionObservedGeneration +{-# INLINE v1alpha1StorageVersionConditionObservedGenerationL #-} + +-- | 'v1alpha1StorageVersionConditionReason' Lens +v1alpha1StorageVersionConditionReasonL :: Lens_' V1alpha1StorageVersionCondition (Text) +v1alpha1StorageVersionConditionReasonL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionReason -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionReason, ..} ) <$> f v1alpha1StorageVersionConditionReason +{-# INLINE v1alpha1StorageVersionConditionReasonL #-} + +-- | 'v1alpha1StorageVersionConditionStatus' Lens +v1alpha1StorageVersionConditionStatusL :: Lens_' V1alpha1StorageVersionCondition (Text) +v1alpha1StorageVersionConditionStatusL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionStatus -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionStatus, ..} ) <$> f v1alpha1StorageVersionConditionStatus +{-# INLINE v1alpha1StorageVersionConditionStatusL #-} + +-- | 'v1alpha1StorageVersionConditionType' Lens +v1alpha1StorageVersionConditionTypeL :: Lens_' V1alpha1StorageVersionCondition (Text) +v1alpha1StorageVersionConditionTypeL f V1alpha1StorageVersionCondition{..} = (\v1alpha1StorageVersionConditionType -> V1alpha1StorageVersionCondition { v1alpha1StorageVersionConditionType, ..} ) <$> f v1alpha1StorageVersionConditionType +{-# INLINE v1alpha1StorageVersionConditionTypeL #-} + + + +-- * V1alpha1StorageVersionList + +-- | 'v1alpha1StorageVersionListApiVersion' Lens +v1alpha1StorageVersionListApiVersionL :: Lens_' V1alpha1StorageVersionList (Maybe Text) +v1alpha1StorageVersionListApiVersionL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListApiVersion -> V1alpha1StorageVersionList { v1alpha1StorageVersionListApiVersion, ..} ) <$> f v1alpha1StorageVersionListApiVersion +{-# INLINE v1alpha1StorageVersionListApiVersionL #-} + +-- | 'v1alpha1StorageVersionListItems' Lens +v1alpha1StorageVersionListItemsL :: Lens_' V1alpha1StorageVersionList ([V1alpha1StorageVersion]) +v1alpha1StorageVersionListItemsL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListItems -> V1alpha1StorageVersionList { v1alpha1StorageVersionListItems, ..} ) <$> f v1alpha1StorageVersionListItems +{-# INLINE v1alpha1StorageVersionListItemsL #-} + +-- | 'v1alpha1StorageVersionListKind' Lens +v1alpha1StorageVersionListKindL :: Lens_' V1alpha1StorageVersionList (Maybe Text) +v1alpha1StorageVersionListKindL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListKind -> V1alpha1StorageVersionList { v1alpha1StorageVersionListKind, ..} ) <$> f v1alpha1StorageVersionListKind +{-# INLINE v1alpha1StorageVersionListKindL #-} + +-- | 'v1alpha1StorageVersionListMetadata' Lens +v1alpha1StorageVersionListMetadataL :: Lens_' V1alpha1StorageVersionList (Maybe V1ListMeta) +v1alpha1StorageVersionListMetadataL f V1alpha1StorageVersionList{..} = (\v1alpha1StorageVersionListMetadata -> V1alpha1StorageVersionList { v1alpha1StorageVersionListMetadata, ..} ) <$> f v1alpha1StorageVersionListMetadata +{-# INLINE v1alpha1StorageVersionListMetadataL #-} + + + +-- * V1alpha1StorageVersionStatus + +-- | 'v1alpha1StorageVersionStatusCommonEncodingVersion' Lens +v1alpha1StorageVersionStatusCommonEncodingVersionL :: Lens_' V1alpha1StorageVersionStatus (Maybe Text) +v1alpha1StorageVersionStatusCommonEncodingVersionL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusCommonEncodingVersion -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusCommonEncodingVersion, ..} ) <$> f v1alpha1StorageVersionStatusCommonEncodingVersion +{-# INLINE v1alpha1StorageVersionStatusCommonEncodingVersionL #-} + +-- | 'v1alpha1StorageVersionStatusConditions' Lens +v1alpha1StorageVersionStatusConditionsL :: Lens_' V1alpha1StorageVersionStatus (Maybe [V1alpha1StorageVersionCondition]) +v1alpha1StorageVersionStatusConditionsL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusConditions -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusConditions, ..} ) <$> f v1alpha1StorageVersionStatusConditions +{-# INLINE v1alpha1StorageVersionStatusConditionsL #-} + +-- | 'v1alpha1StorageVersionStatusStorageVersions' Lens +v1alpha1StorageVersionStatusStorageVersionsL :: Lens_' V1alpha1StorageVersionStatus (Maybe [V1alpha1ServerStorageVersion]) +v1alpha1StorageVersionStatusStorageVersionsL f V1alpha1StorageVersionStatus{..} = (\v1alpha1StorageVersionStatusStorageVersions -> V1alpha1StorageVersionStatus { v1alpha1StorageVersionStatusStorageVersions, ..} ) <$> f v1alpha1StorageVersionStatusStorageVersions +{-# INLINE v1alpha1StorageVersionStatusStorageVersionsL #-} + + + +-- * V1alpha1TypeChecking + +-- | 'v1alpha1TypeCheckingExpressionWarnings' Lens +v1alpha1TypeCheckingExpressionWarningsL :: Lens_' V1alpha1TypeChecking (Maybe [V1alpha1ExpressionWarning]) +v1alpha1TypeCheckingExpressionWarningsL f V1alpha1TypeChecking{..} = (\v1alpha1TypeCheckingExpressionWarnings -> V1alpha1TypeChecking { v1alpha1TypeCheckingExpressionWarnings, ..} ) <$> f v1alpha1TypeCheckingExpressionWarnings +{-# INLINE v1alpha1TypeCheckingExpressionWarningsL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicy + +-- | 'v1alpha1ValidatingAdmissionPolicyApiVersion' Lens +v1alpha1ValidatingAdmissionPolicyApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe Text) +v1alpha1ValidatingAdmissionPolicyApiVersionL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyApiVersion -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyApiVersion +{-# INLINE v1alpha1ValidatingAdmissionPolicyApiVersionL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyKind' Lens +v1alpha1ValidatingAdmissionPolicyKindL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe Text) +v1alpha1ValidatingAdmissionPolicyKindL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyKind -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyKind +{-# INLINE v1alpha1ValidatingAdmissionPolicyKindL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyMetadata' Lens +v1alpha1ValidatingAdmissionPolicyMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe V1ObjectMeta) +v1alpha1ValidatingAdmissionPolicyMetadataL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyMetadata -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyMetadata +{-# INLINE v1alpha1ValidatingAdmissionPolicyMetadataL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpec' Lens +v1alpha1ValidatingAdmissionPolicySpecL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe V1alpha1ValidatingAdmissionPolicySpec) +v1alpha1ValidatingAdmissionPolicySpecL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicySpec -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicySpec, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpec +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyStatus' Lens +v1alpha1ValidatingAdmissionPolicyStatusL :: Lens_' V1alpha1ValidatingAdmissionPolicy (Maybe V1alpha1ValidatingAdmissionPolicyStatus) +v1alpha1ValidatingAdmissionPolicyStatusL f V1alpha1ValidatingAdmissionPolicy{..} = (\v1alpha1ValidatingAdmissionPolicyStatus -> V1alpha1ValidatingAdmissionPolicy { v1alpha1ValidatingAdmissionPolicyStatus, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyStatus +{-# INLINE v1alpha1ValidatingAdmissionPolicyStatusL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicyBinding + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingApiVersion' Lens +v1alpha1ValidatingAdmissionPolicyBindingApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe Text) +v1alpha1ValidatingAdmissionPolicyBindingApiVersionL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingApiVersion -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingApiVersion +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingApiVersionL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingKind' Lens +v1alpha1ValidatingAdmissionPolicyBindingKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe Text) +v1alpha1ValidatingAdmissionPolicyBindingKindL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingKind -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingKind +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingKindL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingMetadata' Lens +v1alpha1ValidatingAdmissionPolicyBindingMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe V1ObjectMeta) +v1alpha1ValidatingAdmissionPolicyBindingMetadataL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingMetadata -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingMetadata +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingMetadataL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingSpec' Lens +v1alpha1ValidatingAdmissionPolicyBindingSpecL :: Lens_' V1alpha1ValidatingAdmissionPolicyBinding (Maybe V1alpha1ValidatingAdmissionPolicyBindingSpec) +v1alpha1ValidatingAdmissionPolicyBindingSpecL f V1alpha1ValidatingAdmissionPolicyBinding{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpec -> V1alpha1ValidatingAdmissionPolicyBinding { v1alpha1ValidatingAdmissionPolicyBindingSpec, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpec +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicyBindingList + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingListApiVersion' Lens +v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe Text) +v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListApiVersion -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListApiVersion +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListApiVersionL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingListItems' Lens +v1alpha1ValidatingAdmissionPolicyBindingListItemsL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe [V1alpha1ValidatingAdmissionPolicyBinding]) +v1alpha1ValidatingAdmissionPolicyBindingListItemsL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListItems -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListItems, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListItems +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListItemsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingListKind' Lens +v1alpha1ValidatingAdmissionPolicyBindingListKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe Text) +v1alpha1ValidatingAdmissionPolicyBindingListKindL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListKind -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListKind +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListKindL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingListMetadata' Lens +v1alpha1ValidatingAdmissionPolicyBindingListMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingList (Maybe V1ListMeta) +v1alpha1ValidatingAdmissionPolicyBindingListMetadataL f V1alpha1ValidatingAdmissionPolicyBindingList{..} = (\v1alpha1ValidatingAdmissionPolicyBindingListMetadata -> V1alpha1ValidatingAdmissionPolicyBindingList { v1alpha1ValidatingAdmissionPolicyBindingListMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingListMetadata +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingListMetadataL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicyBindingSpec + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources' Lens +v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe V1alpha1MatchResources) +v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResourcesL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef' Lens +v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe V1alpha1ParamRef) +v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecParamRefL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName' Lens +v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe Text) +v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyNameL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions' Lens +v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActionsL :: Lens_' V1alpha1ValidatingAdmissionPolicyBindingSpec (Maybe [Text]) +v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActionsL f V1alpha1ValidatingAdmissionPolicyBindingSpec{..} = (\v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions -> V1alpha1ValidatingAdmissionPolicyBindingSpec { v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions +{-# INLINE v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActionsL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicyList + +-- | 'v1alpha1ValidatingAdmissionPolicyListApiVersion' Lens +v1alpha1ValidatingAdmissionPolicyListApiVersionL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe Text) +v1alpha1ValidatingAdmissionPolicyListApiVersionL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListApiVersion -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListApiVersion, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListApiVersion +{-# INLINE v1alpha1ValidatingAdmissionPolicyListApiVersionL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyListItems' Lens +v1alpha1ValidatingAdmissionPolicyListItemsL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe [V1alpha1ValidatingAdmissionPolicy]) +v1alpha1ValidatingAdmissionPolicyListItemsL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListItems -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListItems, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListItems +{-# INLINE v1alpha1ValidatingAdmissionPolicyListItemsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyListKind' Lens +v1alpha1ValidatingAdmissionPolicyListKindL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe Text) +v1alpha1ValidatingAdmissionPolicyListKindL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListKind -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListKind +{-# INLINE v1alpha1ValidatingAdmissionPolicyListKindL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyListMetadata' Lens +v1alpha1ValidatingAdmissionPolicyListMetadataL :: Lens_' V1alpha1ValidatingAdmissionPolicyList (Maybe V1ListMeta) +v1alpha1ValidatingAdmissionPolicyListMetadataL f V1alpha1ValidatingAdmissionPolicyList{..} = (\v1alpha1ValidatingAdmissionPolicyListMetadata -> V1alpha1ValidatingAdmissionPolicyList { v1alpha1ValidatingAdmissionPolicyListMetadata, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyListMetadata +{-# INLINE v1alpha1ValidatingAdmissionPolicyListMetadataL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicySpec + +-- | 'v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations' Lens +v1alpha1ValidatingAdmissionPolicySpecAuditAnnotationsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe [V1alpha1AuditAnnotation]) +v1alpha1ValidatingAdmissionPolicySpecAuditAnnotationsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecAuditAnnotationsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpecFailurePolicy' Lens +v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe Text) +v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecFailurePolicy -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecFailurePolicy, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecFailurePolicy +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecFailurePolicyL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpecMatchConditions' Lens +v1alpha1ValidatingAdmissionPolicySpecMatchConditionsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe [V1alpha1MatchCondition]) +v1alpha1ValidatingAdmissionPolicySpecMatchConditionsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecMatchConditions -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecMatchConditions, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecMatchConditions +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecMatchConditionsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpecMatchConstraints' Lens +v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe V1alpha1MatchResources) +v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecMatchConstraints -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecMatchConstraints, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecMatchConstraints +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecMatchConstraintsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpecParamKind' Lens +v1alpha1ValidatingAdmissionPolicySpecParamKindL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe V1alpha1ParamKind) +v1alpha1ValidatingAdmissionPolicySpecParamKindL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecParamKind -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecParamKind, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecParamKind +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecParamKindL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicySpecValidations' Lens +v1alpha1ValidatingAdmissionPolicySpecValidationsL :: Lens_' V1alpha1ValidatingAdmissionPolicySpec (Maybe [V1alpha1Validation]) +v1alpha1ValidatingAdmissionPolicySpecValidationsL f V1alpha1ValidatingAdmissionPolicySpec{..} = (\v1alpha1ValidatingAdmissionPolicySpecValidations -> V1alpha1ValidatingAdmissionPolicySpec { v1alpha1ValidatingAdmissionPolicySpecValidations, ..} ) <$> f v1alpha1ValidatingAdmissionPolicySpecValidations +{-# INLINE v1alpha1ValidatingAdmissionPolicySpecValidationsL #-} + + + +-- * V1alpha1ValidatingAdmissionPolicyStatus + +-- | 'v1alpha1ValidatingAdmissionPolicyStatusConditions' Lens +v1alpha1ValidatingAdmissionPolicyStatusConditionsL :: Lens_' V1alpha1ValidatingAdmissionPolicyStatus (Maybe [V1Condition]) +v1alpha1ValidatingAdmissionPolicyStatusConditionsL f V1alpha1ValidatingAdmissionPolicyStatus{..} = (\v1alpha1ValidatingAdmissionPolicyStatusConditions -> V1alpha1ValidatingAdmissionPolicyStatus { v1alpha1ValidatingAdmissionPolicyStatusConditions, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyStatusConditions +{-# INLINE v1alpha1ValidatingAdmissionPolicyStatusConditionsL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration' Lens +v1alpha1ValidatingAdmissionPolicyStatusObservedGenerationL :: Lens_' V1alpha1ValidatingAdmissionPolicyStatus (Maybe Integer) +v1alpha1ValidatingAdmissionPolicyStatusObservedGenerationL f V1alpha1ValidatingAdmissionPolicyStatus{..} = (\v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration -> V1alpha1ValidatingAdmissionPolicyStatus { v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration +{-# INLINE v1alpha1ValidatingAdmissionPolicyStatusObservedGenerationL #-} + +-- | 'v1alpha1ValidatingAdmissionPolicyStatusTypeChecking' Lens +v1alpha1ValidatingAdmissionPolicyStatusTypeCheckingL :: Lens_' V1alpha1ValidatingAdmissionPolicyStatus (Maybe V1alpha1TypeChecking) +v1alpha1ValidatingAdmissionPolicyStatusTypeCheckingL f V1alpha1ValidatingAdmissionPolicyStatus{..} = (\v1alpha1ValidatingAdmissionPolicyStatusTypeChecking -> V1alpha1ValidatingAdmissionPolicyStatus { v1alpha1ValidatingAdmissionPolicyStatusTypeChecking, ..} ) <$> f v1alpha1ValidatingAdmissionPolicyStatusTypeChecking +{-# INLINE v1alpha1ValidatingAdmissionPolicyStatusTypeCheckingL #-} + + + +-- * V1alpha1Validation + +-- | 'v1alpha1ValidationExpression' Lens +v1alpha1ValidationExpressionL :: Lens_' V1alpha1Validation (Text) +v1alpha1ValidationExpressionL f V1alpha1Validation{..} = (\v1alpha1ValidationExpression -> V1alpha1Validation { v1alpha1ValidationExpression, ..} ) <$> f v1alpha1ValidationExpression +{-# INLINE v1alpha1ValidationExpressionL #-} + +-- | 'v1alpha1ValidationMessage' Lens +v1alpha1ValidationMessageL :: Lens_' V1alpha1Validation (Maybe Text) +v1alpha1ValidationMessageL f V1alpha1Validation{..} = (\v1alpha1ValidationMessage -> V1alpha1Validation { v1alpha1ValidationMessage, ..} ) <$> f v1alpha1ValidationMessage +{-# INLINE v1alpha1ValidationMessageL #-} + +-- | 'v1alpha1ValidationMessageExpression' Lens +v1alpha1ValidationMessageExpressionL :: Lens_' V1alpha1Validation (Maybe Text) +v1alpha1ValidationMessageExpressionL f V1alpha1Validation{..} = (\v1alpha1ValidationMessageExpression -> V1alpha1Validation { v1alpha1ValidationMessageExpression, ..} ) <$> f v1alpha1ValidationMessageExpression +{-# INLINE v1alpha1ValidationMessageExpressionL #-} + +-- | 'v1alpha1ValidationReason' Lens +v1alpha1ValidationReasonL :: Lens_' V1alpha1Validation (Maybe Text) +v1alpha1ValidationReasonL f V1alpha1Validation{..} = (\v1alpha1ValidationReason -> V1alpha1Validation { v1alpha1ValidationReason, ..} ) <$> f v1alpha1ValidationReason +{-# INLINE v1alpha1ValidationReasonL #-} + + + +-- * V1alpha2AllocationResult + +-- | 'v1alpha2AllocationResultAvailableOnNodes' Lens +v1alpha2AllocationResultAvailableOnNodesL :: Lens_' V1alpha2AllocationResult (Maybe V1NodeSelector) +v1alpha2AllocationResultAvailableOnNodesL f V1alpha2AllocationResult{..} = (\v1alpha2AllocationResultAvailableOnNodes -> V1alpha2AllocationResult { v1alpha2AllocationResultAvailableOnNodes, ..} ) <$> f v1alpha2AllocationResultAvailableOnNodes +{-# INLINE v1alpha2AllocationResultAvailableOnNodesL #-} + +-- | 'v1alpha2AllocationResultResourceHandles' Lens +v1alpha2AllocationResultResourceHandlesL :: Lens_' V1alpha2AllocationResult (Maybe [V1alpha2ResourceHandle]) +v1alpha2AllocationResultResourceHandlesL f V1alpha2AllocationResult{..} = (\v1alpha2AllocationResultResourceHandles -> V1alpha2AllocationResult { v1alpha2AllocationResultResourceHandles, ..} ) <$> f v1alpha2AllocationResultResourceHandles +{-# INLINE v1alpha2AllocationResultResourceHandlesL #-} + +-- | 'v1alpha2AllocationResultShareable' Lens +v1alpha2AllocationResultShareableL :: Lens_' V1alpha2AllocationResult (Maybe Bool) +v1alpha2AllocationResultShareableL f V1alpha2AllocationResult{..} = (\v1alpha2AllocationResultShareable -> V1alpha2AllocationResult { v1alpha2AllocationResultShareable, ..} ) <$> f v1alpha2AllocationResultShareable +{-# INLINE v1alpha2AllocationResultShareableL #-} + + + +-- * V1alpha2PodSchedulingContext + +-- | 'v1alpha2PodSchedulingContextApiVersion' Lens +v1alpha2PodSchedulingContextApiVersionL :: Lens_' V1alpha2PodSchedulingContext (Maybe Text) +v1alpha2PodSchedulingContextApiVersionL f V1alpha2PodSchedulingContext{..} = (\v1alpha2PodSchedulingContextApiVersion -> V1alpha2PodSchedulingContext { v1alpha2PodSchedulingContextApiVersion, ..} ) <$> f v1alpha2PodSchedulingContextApiVersion +{-# INLINE v1alpha2PodSchedulingContextApiVersionL #-} + +-- | 'v1alpha2PodSchedulingContextKind' Lens +v1alpha2PodSchedulingContextKindL :: Lens_' V1alpha2PodSchedulingContext (Maybe Text) +v1alpha2PodSchedulingContextKindL f V1alpha2PodSchedulingContext{..} = (\v1alpha2PodSchedulingContextKind -> V1alpha2PodSchedulingContext { v1alpha2PodSchedulingContextKind, ..} ) <$> f v1alpha2PodSchedulingContextKind +{-# INLINE v1alpha2PodSchedulingContextKindL #-} + +-- | 'v1alpha2PodSchedulingContextMetadata' Lens +v1alpha2PodSchedulingContextMetadataL :: Lens_' V1alpha2PodSchedulingContext (Maybe V1ObjectMeta) +v1alpha2PodSchedulingContextMetadataL f V1alpha2PodSchedulingContext{..} = (\v1alpha2PodSchedulingContextMetadata -> V1alpha2PodSchedulingContext { v1alpha2PodSchedulingContextMetadata, ..} ) <$> f v1alpha2PodSchedulingContextMetadata +{-# INLINE v1alpha2PodSchedulingContextMetadataL #-} + +-- | 'v1alpha2PodSchedulingContextSpec' Lens +v1alpha2PodSchedulingContextSpecL :: Lens_' V1alpha2PodSchedulingContext (V1alpha2PodSchedulingContextSpec) +v1alpha2PodSchedulingContextSpecL f V1alpha2PodSchedulingContext{..} = (\v1alpha2PodSchedulingContextSpec -> V1alpha2PodSchedulingContext { v1alpha2PodSchedulingContextSpec, ..} ) <$> f v1alpha2PodSchedulingContextSpec +{-# INLINE v1alpha2PodSchedulingContextSpecL #-} + +-- | 'v1alpha2PodSchedulingContextStatus' Lens +v1alpha2PodSchedulingContextStatusL :: Lens_' V1alpha2PodSchedulingContext (Maybe V1alpha2PodSchedulingContextStatus) +v1alpha2PodSchedulingContextStatusL f V1alpha2PodSchedulingContext{..} = (\v1alpha2PodSchedulingContextStatus -> V1alpha2PodSchedulingContext { v1alpha2PodSchedulingContextStatus, ..} ) <$> f v1alpha2PodSchedulingContextStatus +{-# INLINE v1alpha2PodSchedulingContextStatusL #-} + + + +-- * V1alpha2PodSchedulingContextList + +-- | 'v1alpha2PodSchedulingContextListApiVersion' Lens +v1alpha2PodSchedulingContextListApiVersionL :: Lens_' V1alpha2PodSchedulingContextList (Maybe Text) +v1alpha2PodSchedulingContextListApiVersionL f V1alpha2PodSchedulingContextList{..} = (\v1alpha2PodSchedulingContextListApiVersion -> V1alpha2PodSchedulingContextList { v1alpha2PodSchedulingContextListApiVersion, ..} ) <$> f v1alpha2PodSchedulingContextListApiVersion +{-# INLINE v1alpha2PodSchedulingContextListApiVersionL #-} + +-- | 'v1alpha2PodSchedulingContextListItems' Lens +v1alpha2PodSchedulingContextListItemsL :: Lens_' V1alpha2PodSchedulingContextList ([V1alpha2PodSchedulingContext]) +v1alpha2PodSchedulingContextListItemsL f V1alpha2PodSchedulingContextList{..} = (\v1alpha2PodSchedulingContextListItems -> V1alpha2PodSchedulingContextList { v1alpha2PodSchedulingContextListItems, ..} ) <$> f v1alpha2PodSchedulingContextListItems +{-# INLINE v1alpha2PodSchedulingContextListItemsL #-} + +-- | 'v1alpha2PodSchedulingContextListKind' Lens +v1alpha2PodSchedulingContextListKindL :: Lens_' V1alpha2PodSchedulingContextList (Maybe Text) +v1alpha2PodSchedulingContextListKindL f V1alpha2PodSchedulingContextList{..} = (\v1alpha2PodSchedulingContextListKind -> V1alpha2PodSchedulingContextList { v1alpha2PodSchedulingContextListKind, ..} ) <$> f v1alpha2PodSchedulingContextListKind +{-# INLINE v1alpha2PodSchedulingContextListKindL #-} + +-- | 'v1alpha2PodSchedulingContextListMetadata' Lens +v1alpha2PodSchedulingContextListMetadataL :: Lens_' V1alpha2PodSchedulingContextList (Maybe V1ListMeta) +v1alpha2PodSchedulingContextListMetadataL f V1alpha2PodSchedulingContextList{..} = (\v1alpha2PodSchedulingContextListMetadata -> V1alpha2PodSchedulingContextList { v1alpha2PodSchedulingContextListMetadata, ..} ) <$> f v1alpha2PodSchedulingContextListMetadata +{-# INLINE v1alpha2PodSchedulingContextListMetadataL #-} + + + +-- * V1alpha2PodSchedulingContextSpec + +-- | 'v1alpha2PodSchedulingContextSpecPotentialNodes' Lens +v1alpha2PodSchedulingContextSpecPotentialNodesL :: Lens_' V1alpha2PodSchedulingContextSpec (Maybe [Text]) +v1alpha2PodSchedulingContextSpecPotentialNodesL f V1alpha2PodSchedulingContextSpec{..} = (\v1alpha2PodSchedulingContextSpecPotentialNodes -> V1alpha2PodSchedulingContextSpec { v1alpha2PodSchedulingContextSpecPotentialNodes, ..} ) <$> f v1alpha2PodSchedulingContextSpecPotentialNodes +{-# INLINE v1alpha2PodSchedulingContextSpecPotentialNodesL #-} + +-- | 'v1alpha2PodSchedulingContextSpecSelectedNode' Lens +v1alpha2PodSchedulingContextSpecSelectedNodeL :: Lens_' V1alpha2PodSchedulingContextSpec (Maybe Text) +v1alpha2PodSchedulingContextSpecSelectedNodeL f V1alpha2PodSchedulingContextSpec{..} = (\v1alpha2PodSchedulingContextSpecSelectedNode -> V1alpha2PodSchedulingContextSpec { v1alpha2PodSchedulingContextSpecSelectedNode, ..} ) <$> f v1alpha2PodSchedulingContextSpecSelectedNode +{-# INLINE v1alpha2PodSchedulingContextSpecSelectedNodeL #-} + + + +-- * V1alpha2PodSchedulingContextStatus + +-- | 'v1alpha2PodSchedulingContextStatusResourceClaims' Lens +v1alpha2PodSchedulingContextStatusResourceClaimsL :: Lens_' V1alpha2PodSchedulingContextStatus (Maybe [V1alpha2ResourceClaimSchedulingStatus]) +v1alpha2PodSchedulingContextStatusResourceClaimsL f V1alpha2PodSchedulingContextStatus{..} = (\v1alpha2PodSchedulingContextStatusResourceClaims -> V1alpha2PodSchedulingContextStatus { v1alpha2PodSchedulingContextStatusResourceClaims, ..} ) <$> f v1alpha2PodSchedulingContextStatusResourceClaims +{-# INLINE v1alpha2PodSchedulingContextStatusResourceClaimsL #-} + + + +-- * V1alpha2ResourceClaim + +-- | 'v1alpha2ResourceClaimApiVersion' Lens +v1alpha2ResourceClaimApiVersionL :: Lens_' V1alpha2ResourceClaim (Maybe Text) +v1alpha2ResourceClaimApiVersionL f V1alpha2ResourceClaim{..} = (\v1alpha2ResourceClaimApiVersion -> V1alpha2ResourceClaim { v1alpha2ResourceClaimApiVersion, ..} ) <$> f v1alpha2ResourceClaimApiVersion +{-# INLINE v1alpha2ResourceClaimApiVersionL #-} + +-- | 'v1alpha2ResourceClaimKind' Lens +v1alpha2ResourceClaimKindL :: Lens_' V1alpha2ResourceClaim (Maybe Text) +v1alpha2ResourceClaimKindL f V1alpha2ResourceClaim{..} = (\v1alpha2ResourceClaimKind -> V1alpha2ResourceClaim { v1alpha2ResourceClaimKind, ..} ) <$> f v1alpha2ResourceClaimKind +{-# INLINE v1alpha2ResourceClaimKindL #-} + +-- | 'v1alpha2ResourceClaimMetadata' Lens +v1alpha2ResourceClaimMetadataL :: Lens_' V1alpha2ResourceClaim (Maybe V1ObjectMeta) +v1alpha2ResourceClaimMetadataL f V1alpha2ResourceClaim{..} = (\v1alpha2ResourceClaimMetadata -> V1alpha2ResourceClaim { v1alpha2ResourceClaimMetadata, ..} ) <$> f v1alpha2ResourceClaimMetadata +{-# INLINE v1alpha2ResourceClaimMetadataL #-} + +-- | 'v1alpha2ResourceClaimSpec' Lens +v1alpha2ResourceClaimSpecL :: Lens_' V1alpha2ResourceClaim (V1alpha2ResourceClaimSpec) +v1alpha2ResourceClaimSpecL f V1alpha2ResourceClaim{..} = (\v1alpha2ResourceClaimSpec -> V1alpha2ResourceClaim { v1alpha2ResourceClaimSpec, ..} ) <$> f v1alpha2ResourceClaimSpec +{-# INLINE v1alpha2ResourceClaimSpecL #-} + +-- | 'v1alpha2ResourceClaimStatus' Lens +v1alpha2ResourceClaimStatusL :: Lens_' V1alpha2ResourceClaim (Maybe V1alpha2ResourceClaimStatus) +v1alpha2ResourceClaimStatusL f V1alpha2ResourceClaim{..} = (\v1alpha2ResourceClaimStatus -> V1alpha2ResourceClaim { v1alpha2ResourceClaimStatus, ..} ) <$> f v1alpha2ResourceClaimStatus +{-# INLINE v1alpha2ResourceClaimStatusL #-} + + + +-- * V1alpha2ResourceClaimConsumerReference + +-- | 'v1alpha2ResourceClaimConsumerReferenceApiGroup' Lens +v1alpha2ResourceClaimConsumerReferenceApiGroupL :: Lens_' V1alpha2ResourceClaimConsumerReference (Maybe Text) +v1alpha2ResourceClaimConsumerReferenceApiGroupL f V1alpha2ResourceClaimConsumerReference{..} = (\v1alpha2ResourceClaimConsumerReferenceApiGroup -> V1alpha2ResourceClaimConsumerReference { v1alpha2ResourceClaimConsumerReferenceApiGroup, ..} ) <$> f v1alpha2ResourceClaimConsumerReferenceApiGroup +{-# INLINE v1alpha2ResourceClaimConsumerReferenceApiGroupL #-} + +-- | 'v1alpha2ResourceClaimConsumerReferenceName' Lens +v1alpha2ResourceClaimConsumerReferenceNameL :: Lens_' V1alpha2ResourceClaimConsumerReference (Text) +v1alpha2ResourceClaimConsumerReferenceNameL f V1alpha2ResourceClaimConsumerReference{..} = (\v1alpha2ResourceClaimConsumerReferenceName -> V1alpha2ResourceClaimConsumerReference { v1alpha2ResourceClaimConsumerReferenceName, ..} ) <$> f v1alpha2ResourceClaimConsumerReferenceName +{-# INLINE v1alpha2ResourceClaimConsumerReferenceNameL #-} + +-- | 'v1alpha2ResourceClaimConsumerReferenceResource' Lens +v1alpha2ResourceClaimConsumerReferenceResourceL :: Lens_' V1alpha2ResourceClaimConsumerReference (Text) +v1alpha2ResourceClaimConsumerReferenceResourceL f V1alpha2ResourceClaimConsumerReference{..} = (\v1alpha2ResourceClaimConsumerReferenceResource -> V1alpha2ResourceClaimConsumerReference { v1alpha2ResourceClaimConsumerReferenceResource, ..} ) <$> f v1alpha2ResourceClaimConsumerReferenceResource +{-# INLINE v1alpha2ResourceClaimConsumerReferenceResourceL #-} + +-- | 'v1alpha2ResourceClaimConsumerReferenceUid' Lens +v1alpha2ResourceClaimConsumerReferenceUidL :: Lens_' V1alpha2ResourceClaimConsumerReference (Text) +v1alpha2ResourceClaimConsumerReferenceUidL f V1alpha2ResourceClaimConsumerReference{..} = (\v1alpha2ResourceClaimConsumerReferenceUid -> V1alpha2ResourceClaimConsumerReference { v1alpha2ResourceClaimConsumerReferenceUid, ..} ) <$> f v1alpha2ResourceClaimConsumerReferenceUid +{-# INLINE v1alpha2ResourceClaimConsumerReferenceUidL #-} + + + +-- * V1alpha2ResourceClaimList + +-- | 'v1alpha2ResourceClaimListApiVersion' Lens +v1alpha2ResourceClaimListApiVersionL :: Lens_' V1alpha2ResourceClaimList (Maybe Text) +v1alpha2ResourceClaimListApiVersionL f V1alpha2ResourceClaimList{..} = (\v1alpha2ResourceClaimListApiVersion -> V1alpha2ResourceClaimList { v1alpha2ResourceClaimListApiVersion, ..} ) <$> f v1alpha2ResourceClaimListApiVersion +{-# INLINE v1alpha2ResourceClaimListApiVersionL #-} + +-- | 'v1alpha2ResourceClaimListItems' Lens +v1alpha2ResourceClaimListItemsL :: Lens_' V1alpha2ResourceClaimList ([V1alpha2ResourceClaim]) +v1alpha2ResourceClaimListItemsL f V1alpha2ResourceClaimList{..} = (\v1alpha2ResourceClaimListItems -> V1alpha2ResourceClaimList { v1alpha2ResourceClaimListItems, ..} ) <$> f v1alpha2ResourceClaimListItems +{-# INLINE v1alpha2ResourceClaimListItemsL #-} + +-- | 'v1alpha2ResourceClaimListKind' Lens +v1alpha2ResourceClaimListKindL :: Lens_' V1alpha2ResourceClaimList (Maybe Text) +v1alpha2ResourceClaimListKindL f V1alpha2ResourceClaimList{..} = (\v1alpha2ResourceClaimListKind -> V1alpha2ResourceClaimList { v1alpha2ResourceClaimListKind, ..} ) <$> f v1alpha2ResourceClaimListKind +{-# INLINE v1alpha2ResourceClaimListKindL #-} + +-- | 'v1alpha2ResourceClaimListMetadata' Lens +v1alpha2ResourceClaimListMetadataL :: Lens_' V1alpha2ResourceClaimList (Maybe V1ListMeta) +v1alpha2ResourceClaimListMetadataL f V1alpha2ResourceClaimList{..} = (\v1alpha2ResourceClaimListMetadata -> V1alpha2ResourceClaimList { v1alpha2ResourceClaimListMetadata, ..} ) <$> f v1alpha2ResourceClaimListMetadata +{-# INLINE v1alpha2ResourceClaimListMetadataL #-} + + + +-- * V1alpha2ResourceClaimParametersReference + +-- | 'v1alpha2ResourceClaimParametersReferenceApiGroup' Lens +v1alpha2ResourceClaimParametersReferenceApiGroupL :: Lens_' V1alpha2ResourceClaimParametersReference (Maybe Text) +v1alpha2ResourceClaimParametersReferenceApiGroupL f V1alpha2ResourceClaimParametersReference{..} = (\v1alpha2ResourceClaimParametersReferenceApiGroup -> V1alpha2ResourceClaimParametersReference { v1alpha2ResourceClaimParametersReferenceApiGroup, ..} ) <$> f v1alpha2ResourceClaimParametersReferenceApiGroup +{-# INLINE v1alpha2ResourceClaimParametersReferenceApiGroupL #-} + +-- | 'v1alpha2ResourceClaimParametersReferenceKind' Lens +v1alpha2ResourceClaimParametersReferenceKindL :: Lens_' V1alpha2ResourceClaimParametersReference (Text) +v1alpha2ResourceClaimParametersReferenceKindL f V1alpha2ResourceClaimParametersReference{..} = (\v1alpha2ResourceClaimParametersReferenceKind -> V1alpha2ResourceClaimParametersReference { v1alpha2ResourceClaimParametersReferenceKind, ..} ) <$> f v1alpha2ResourceClaimParametersReferenceKind +{-# INLINE v1alpha2ResourceClaimParametersReferenceKindL #-} + +-- | 'v1alpha2ResourceClaimParametersReferenceName' Lens +v1alpha2ResourceClaimParametersReferenceNameL :: Lens_' V1alpha2ResourceClaimParametersReference (Text) +v1alpha2ResourceClaimParametersReferenceNameL f V1alpha2ResourceClaimParametersReference{..} = (\v1alpha2ResourceClaimParametersReferenceName -> V1alpha2ResourceClaimParametersReference { v1alpha2ResourceClaimParametersReferenceName, ..} ) <$> f v1alpha2ResourceClaimParametersReferenceName +{-# INLINE v1alpha2ResourceClaimParametersReferenceNameL #-} + + + +-- * V1alpha2ResourceClaimSchedulingStatus + +-- | 'v1alpha2ResourceClaimSchedulingStatusName' Lens +v1alpha2ResourceClaimSchedulingStatusNameL :: Lens_' V1alpha2ResourceClaimSchedulingStatus (Maybe Text) +v1alpha2ResourceClaimSchedulingStatusNameL f V1alpha2ResourceClaimSchedulingStatus{..} = (\v1alpha2ResourceClaimSchedulingStatusName -> V1alpha2ResourceClaimSchedulingStatus { v1alpha2ResourceClaimSchedulingStatusName, ..} ) <$> f v1alpha2ResourceClaimSchedulingStatusName +{-# INLINE v1alpha2ResourceClaimSchedulingStatusNameL #-} + +-- | 'v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes' Lens +v1alpha2ResourceClaimSchedulingStatusUnsuitableNodesL :: Lens_' V1alpha2ResourceClaimSchedulingStatus (Maybe [Text]) +v1alpha2ResourceClaimSchedulingStatusUnsuitableNodesL f V1alpha2ResourceClaimSchedulingStatus{..} = (\v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes -> V1alpha2ResourceClaimSchedulingStatus { v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes, ..} ) <$> f v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes +{-# INLINE v1alpha2ResourceClaimSchedulingStatusUnsuitableNodesL #-} + + + +-- * V1alpha2ResourceClaimSpec + +-- | 'v1alpha2ResourceClaimSpecAllocationMode' Lens +v1alpha2ResourceClaimSpecAllocationModeL :: Lens_' V1alpha2ResourceClaimSpec (Maybe Text) +v1alpha2ResourceClaimSpecAllocationModeL f V1alpha2ResourceClaimSpec{..} = (\v1alpha2ResourceClaimSpecAllocationMode -> V1alpha2ResourceClaimSpec { v1alpha2ResourceClaimSpecAllocationMode, ..} ) <$> f v1alpha2ResourceClaimSpecAllocationMode +{-# INLINE v1alpha2ResourceClaimSpecAllocationModeL #-} + +-- | 'v1alpha2ResourceClaimSpecParametersRef' Lens +v1alpha2ResourceClaimSpecParametersRefL :: Lens_' V1alpha2ResourceClaimSpec (Maybe V1alpha2ResourceClaimParametersReference) +v1alpha2ResourceClaimSpecParametersRefL f V1alpha2ResourceClaimSpec{..} = (\v1alpha2ResourceClaimSpecParametersRef -> V1alpha2ResourceClaimSpec { v1alpha2ResourceClaimSpecParametersRef, ..} ) <$> f v1alpha2ResourceClaimSpecParametersRef +{-# INLINE v1alpha2ResourceClaimSpecParametersRefL #-} + +-- | 'v1alpha2ResourceClaimSpecResourceClassName' Lens +v1alpha2ResourceClaimSpecResourceClassNameL :: Lens_' V1alpha2ResourceClaimSpec (Text) +v1alpha2ResourceClaimSpecResourceClassNameL f V1alpha2ResourceClaimSpec{..} = (\v1alpha2ResourceClaimSpecResourceClassName -> V1alpha2ResourceClaimSpec { v1alpha2ResourceClaimSpecResourceClassName, ..} ) <$> f v1alpha2ResourceClaimSpecResourceClassName +{-# INLINE v1alpha2ResourceClaimSpecResourceClassNameL #-} + + + +-- * V1alpha2ResourceClaimStatus + +-- | 'v1alpha2ResourceClaimStatusAllocation' Lens +v1alpha2ResourceClaimStatusAllocationL :: Lens_' V1alpha2ResourceClaimStatus (Maybe V1alpha2AllocationResult) +v1alpha2ResourceClaimStatusAllocationL f V1alpha2ResourceClaimStatus{..} = (\v1alpha2ResourceClaimStatusAllocation -> V1alpha2ResourceClaimStatus { v1alpha2ResourceClaimStatusAllocation, ..} ) <$> f v1alpha2ResourceClaimStatusAllocation +{-# INLINE v1alpha2ResourceClaimStatusAllocationL #-} + +-- | 'v1alpha2ResourceClaimStatusDeallocationRequested' Lens +v1alpha2ResourceClaimStatusDeallocationRequestedL :: Lens_' V1alpha2ResourceClaimStatus (Maybe Bool) +v1alpha2ResourceClaimStatusDeallocationRequestedL f V1alpha2ResourceClaimStatus{..} = (\v1alpha2ResourceClaimStatusDeallocationRequested -> V1alpha2ResourceClaimStatus { v1alpha2ResourceClaimStatusDeallocationRequested, ..} ) <$> f v1alpha2ResourceClaimStatusDeallocationRequested +{-# INLINE v1alpha2ResourceClaimStatusDeallocationRequestedL #-} + +-- | 'v1alpha2ResourceClaimStatusDriverName' Lens +v1alpha2ResourceClaimStatusDriverNameL :: Lens_' V1alpha2ResourceClaimStatus (Maybe Text) +v1alpha2ResourceClaimStatusDriverNameL f V1alpha2ResourceClaimStatus{..} = (\v1alpha2ResourceClaimStatusDriverName -> V1alpha2ResourceClaimStatus { v1alpha2ResourceClaimStatusDriverName, ..} ) <$> f v1alpha2ResourceClaimStatusDriverName +{-# INLINE v1alpha2ResourceClaimStatusDriverNameL #-} + +-- | 'v1alpha2ResourceClaimStatusReservedFor' Lens +v1alpha2ResourceClaimStatusReservedForL :: Lens_' V1alpha2ResourceClaimStatus (Maybe [V1alpha2ResourceClaimConsumerReference]) +v1alpha2ResourceClaimStatusReservedForL f V1alpha2ResourceClaimStatus{..} = (\v1alpha2ResourceClaimStatusReservedFor -> V1alpha2ResourceClaimStatus { v1alpha2ResourceClaimStatusReservedFor, ..} ) <$> f v1alpha2ResourceClaimStatusReservedFor +{-# INLINE v1alpha2ResourceClaimStatusReservedForL #-} + + + +-- * V1alpha2ResourceClaimTemplate + +-- | 'v1alpha2ResourceClaimTemplateApiVersion' Lens +v1alpha2ResourceClaimTemplateApiVersionL :: Lens_' V1alpha2ResourceClaimTemplate (Maybe Text) +v1alpha2ResourceClaimTemplateApiVersionL f V1alpha2ResourceClaimTemplate{..} = (\v1alpha2ResourceClaimTemplateApiVersion -> V1alpha2ResourceClaimTemplate { v1alpha2ResourceClaimTemplateApiVersion, ..} ) <$> f v1alpha2ResourceClaimTemplateApiVersion +{-# INLINE v1alpha2ResourceClaimTemplateApiVersionL #-} + +-- | 'v1alpha2ResourceClaimTemplateKind' Lens +v1alpha2ResourceClaimTemplateKindL :: Lens_' V1alpha2ResourceClaimTemplate (Maybe Text) +v1alpha2ResourceClaimTemplateKindL f V1alpha2ResourceClaimTemplate{..} = (\v1alpha2ResourceClaimTemplateKind -> V1alpha2ResourceClaimTemplate { v1alpha2ResourceClaimTemplateKind, ..} ) <$> f v1alpha2ResourceClaimTemplateKind +{-# INLINE v1alpha2ResourceClaimTemplateKindL #-} + +-- | 'v1alpha2ResourceClaimTemplateMetadata' Lens +v1alpha2ResourceClaimTemplateMetadataL :: Lens_' V1alpha2ResourceClaimTemplate (Maybe V1ObjectMeta) +v1alpha2ResourceClaimTemplateMetadataL f V1alpha2ResourceClaimTemplate{..} = (\v1alpha2ResourceClaimTemplateMetadata -> V1alpha2ResourceClaimTemplate { v1alpha2ResourceClaimTemplateMetadata, ..} ) <$> f v1alpha2ResourceClaimTemplateMetadata +{-# INLINE v1alpha2ResourceClaimTemplateMetadataL #-} + +-- | 'v1alpha2ResourceClaimTemplateSpec' Lens +v1alpha2ResourceClaimTemplateSpecL :: Lens_' V1alpha2ResourceClaimTemplate (V1alpha2ResourceClaimTemplateSpec) +v1alpha2ResourceClaimTemplateSpecL f V1alpha2ResourceClaimTemplate{..} = (\v1alpha2ResourceClaimTemplateSpec -> V1alpha2ResourceClaimTemplate { v1alpha2ResourceClaimTemplateSpec, ..} ) <$> f v1alpha2ResourceClaimTemplateSpec +{-# INLINE v1alpha2ResourceClaimTemplateSpecL #-} + + + +-- * V1alpha2ResourceClaimTemplateList + +-- | 'v1alpha2ResourceClaimTemplateListApiVersion' Lens +v1alpha2ResourceClaimTemplateListApiVersionL :: Lens_' V1alpha2ResourceClaimTemplateList (Maybe Text) +v1alpha2ResourceClaimTemplateListApiVersionL f V1alpha2ResourceClaimTemplateList{..} = (\v1alpha2ResourceClaimTemplateListApiVersion -> V1alpha2ResourceClaimTemplateList { v1alpha2ResourceClaimTemplateListApiVersion, ..} ) <$> f v1alpha2ResourceClaimTemplateListApiVersion +{-# INLINE v1alpha2ResourceClaimTemplateListApiVersionL #-} + +-- | 'v1alpha2ResourceClaimTemplateListItems' Lens +v1alpha2ResourceClaimTemplateListItemsL :: Lens_' V1alpha2ResourceClaimTemplateList ([V1alpha2ResourceClaimTemplate]) +v1alpha2ResourceClaimTemplateListItemsL f V1alpha2ResourceClaimTemplateList{..} = (\v1alpha2ResourceClaimTemplateListItems -> V1alpha2ResourceClaimTemplateList { v1alpha2ResourceClaimTemplateListItems, ..} ) <$> f v1alpha2ResourceClaimTemplateListItems +{-# INLINE v1alpha2ResourceClaimTemplateListItemsL #-} + +-- | 'v1alpha2ResourceClaimTemplateListKind' Lens +v1alpha2ResourceClaimTemplateListKindL :: Lens_' V1alpha2ResourceClaimTemplateList (Maybe Text) +v1alpha2ResourceClaimTemplateListKindL f V1alpha2ResourceClaimTemplateList{..} = (\v1alpha2ResourceClaimTemplateListKind -> V1alpha2ResourceClaimTemplateList { v1alpha2ResourceClaimTemplateListKind, ..} ) <$> f v1alpha2ResourceClaimTemplateListKind +{-# INLINE v1alpha2ResourceClaimTemplateListKindL #-} + +-- | 'v1alpha2ResourceClaimTemplateListMetadata' Lens +v1alpha2ResourceClaimTemplateListMetadataL :: Lens_' V1alpha2ResourceClaimTemplateList (Maybe V1ListMeta) +v1alpha2ResourceClaimTemplateListMetadataL f V1alpha2ResourceClaimTemplateList{..} = (\v1alpha2ResourceClaimTemplateListMetadata -> V1alpha2ResourceClaimTemplateList { v1alpha2ResourceClaimTemplateListMetadata, ..} ) <$> f v1alpha2ResourceClaimTemplateListMetadata +{-# INLINE v1alpha2ResourceClaimTemplateListMetadataL #-} + + + +-- * V1alpha2ResourceClaimTemplateSpec + +-- | 'v1alpha2ResourceClaimTemplateSpecMetadata' Lens +v1alpha2ResourceClaimTemplateSpecMetadataL :: Lens_' V1alpha2ResourceClaimTemplateSpec (Maybe V1ObjectMeta) +v1alpha2ResourceClaimTemplateSpecMetadataL f V1alpha2ResourceClaimTemplateSpec{..} = (\v1alpha2ResourceClaimTemplateSpecMetadata -> V1alpha2ResourceClaimTemplateSpec { v1alpha2ResourceClaimTemplateSpecMetadata, ..} ) <$> f v1alpha2ResourceClaimTemplateSpecMetadata +{-# INLINE v1alpha2ResourceClaimTemplateSpecMetadataL #-} + +-- | 'v1alpha2ResourceClaimTemplateSpecSpec' Lens +v1alpha2ResourceClaimTemplateSpecSpecL :: Lens_' V1alpha2ResourceClaimTemplateSpec (V1alpha2ResourceClaimSpec) +v1alpha2ResourceClaimTemplateSpecSpecL f V1alpha2ResourceClaimTemplateSpec{..} = (\v1alpha2ResourceClaimTemplateSpecSpec -> V1alpha2ResourceClaimTemplateSpec { v1alpha2ResourceClaimTemplateSpecSpec, ..} ) <$> f v1alpha2ResourceClaimTemplateSpecSpec +{-# INLINE v1alpha2ResourceClaimTemplateSpecSpecL #-} + + + +-- * V1alpha2ResourceClass + +-- | 'v1alpha2ResourceClassApiVersion' Lens +v1alpha2ResourceClassApiVersionL :: Lens_' V1alpha2ResourceClass (Maybe Text) +v1alpha2ResourceClassApiVersionL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassApiVersion -> V1alpha2ResourceClass { v1alpha2ResourceClassApiVersion, ..} ) <$> f v1alpha2ResourceClassApiVersion +{-# INLINE v1alpha2ResourceClassApiVersionL #-} + +-- | 'v1alpha2ResourceClassDriverName' Lens +v1alpha2ResourceClassDriverNameL :: Lens_' V1alpha2ResourceClass (Text) +v1alpha2ResourceClassDriverNameL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassDriverName -> V1alpha2ResourceClass { v1alpha2ResourceClassDriverName, ..} ) <$> f v1alpha2ResourceClassDriverName +{-# INLINE v1alpha2ResourceClassDriverNameL #-} + +-- | 'v1alpha2ResourceClassKind' Lens +v1alpha2ResourceClassKindL :: Lens_' V1alpha2ResourceClass (Maybe Text) +v1alpha2ResourceClassKindL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassKind -> V1alpha2ResourceClass { v1alpha2ResourceClassKind, ..} ) <$> f v1alpha2ResourceClassKind +{-# INLINE v1alpha2ResourceClassKindL #-} + +-- | 'v1alpha2ResourceClassMetadata' Lens +v1alpha2ResourceClassMetadataL :: Lens_' V1alpha2ResourceClass (Maybe V1ObjectMeta) +v1alpha2ResourceClassMetadataL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassMetadata -> V1alpha2ResourceClass { v1alpha2ResourceClassMetadata, ..} ) <$> f v1alpha2ResourceClassMetadata +{-# INLINE v1alpha2ResourceClassMetadataL #-} + +-- | 'v1alpha2ResourceClassParametersRef' Lens +v1alpha2ResourceClassParametersRefL :: Lens_' V1alpha2ResourceClass (Maybe V1alpha2ResourceClassParametersReference) +v1alpha2ResourceClassParametersRefL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassParametersRef -> V1alpha2ResourceClass { v1alpha2ResourceClassParametersRef, ..} ) <$> f v1alpha2ResourceClassParametersRef +{-# INLINE v1alpha2ResourceClassParametersRefL #-} + +-- | 'v1alpha2ResourceClassSuitableNodes' Lens +v1alpha2ResourceClassSuitableNodesL :: Lens_' V1alpha2ResourceClass (Maybe V1NodeSelector) +v1alpha2ResourceClassSuitableNodesL f V1alpha2ResourceClass{..} = (\v1alpha2ResourceClassSuitableNodes -> V1alpha2ResourceClass { v1alpha2ResourceClassSuitableNodes, ..} ) <$> f v1alpha2ResourceClassSuitableNodes +{-# INLINE v1alpha2ResourceClassSuitableNodesL #-} + + + +-- * V1alpha2ResourceClassList + +-- | 'v1alpha2ResourceClassListApiVersion' Lens +v1alpha2ResourceClassListApiVersionL :: Lens_' V1alpha2ResourceClassList (Maybe Text) +v1alpha2ResourceClassListApiVersionL f V1alpha2ResourceClassList{..} = (\v1alpha2ResourceClassListApiVersion -> V1alpha2ResourceClassList { v1alpha2ResourceClassListApiVersion, ..} ) <$> f v1alpha2ResourceClassListApiVersion +{-# INLINE v1alpha2ResourceClassListApiVersionL #-} + +-- | 'v1alpha2ResourceClassListItems' Lens +v1alpha2ResourceClassListItemsL :: Lens_' V1alpha2ResourceClassList ([V1alpha2ResourceClass]) +v1alpha2ResourceClassListItemsL f V1alpha2ResourceClassList{..} = (\v1alpha2ResourceClassListItems -> V1alpha2ResourceClassList { v1alpha2ResourceClassListItems, ..} ) <$> f v1alpha2ResourceClassListItems +{-# INLINE v1alpha2ResourceClassListItemsL #-} + +-- | 'v1alpha2ResourceClassListKind' Lens +v1alpha2ResourceClassListKindL :: Lens_' V1alpha2ResourceClassList (Maybe Text) +v1alpha2ResourceClassListKindL f V1alpha2ResourceClassList{..} = (\v1alpha2ResourceClassListKind -> V1alpha2ResourceClassList { v1alpha2ResourceClassListKind, ..} ) <$> f v1alpha2ResourceClassListKind +{-# INLINE v1alpha2ResourceClassListKindL #-} + +-- | 'v1alpha2ResourceClassListMetadata' Lens +v1alpha2ResourceClassListMetadataL :: Lens_' V1alpha2ResourceClassList (Maybe V1ListMeta) +v1alpha2ResourceClassListMetadataL f V1alpha2ResourceClassList{..} = (\v1alpha2ResourceClassListMetadata -> V1alpha2ResourceClassList { v1alpha2ResourceClassListMetadata, ..} ) <$> f v1alpha2ResourceClassListMetadata +{-# INLINE v1alpha2ResourceClassListMetadataL #-} + + + +-- * V1alpha2ResourceClassParametersReference + +-- | 'v1alpha2ResourceClassParametersReferenceApiGroup' Lens +v1alpha2ResourceClassParametersReferenceApiGroupL :: Lens_' V1alpha2ResourceClassParametersReference (Maybe Text) +v1alpha2ResourceClassParametersReferenceApiGroupL f V1alpha2ResourceClassParametersReference{..} = (\v1alpha2ResourceClassParametersReferenceApiGroup -> V1alpha2ResourceClassParametersReference { v1alpha2ResourceClassParametersReferenceApiGroup, ..} ) <$> f v1alpha2ResourceClassParametersReferenceApiGroup +{-# INLINE v1alpha2ResourceClassParametersReferenceApiGroupL #-} + +-- | 'v1alpha2ResourceClassParametersReferenceKind' Lens +v1alpha2ResourceClassParametersReferenceKindL :: Lens_' V1alpha2ResourceClassParametersReference (Text) +v1alpha2ResourceClassParametersReferenceKindL f V1alpha2ResourceClassParametersReference{..} = (\v1alpha2ResourceClassParametersReferenceKind -> V1alpha2ResourceClassParametersReference { v1alpha2ResourceClassParametersReferenceKind, ..} ) <$> f v1alpha2ResourceClassParametersReferenceKind +{-# INLINE v1alpha2ResourceClassParametersReferenceKindL #-} + +-- | 'v1alpha2ResourceClassParametersReferenceName' Lens +v1alpha2ResourceClassParametersReferenceNameL :: Lens_' V1alpha2ResourceClassParametersReference (Text) +v1alpha2ResourceClassParametersReferenceNameL f V1alpha2ResourceClassParametersReference{..} = (\v1alpha2ResourceClassParametersReferenceName -> V1alpha2ResourceClassParametersReference { v1alpha2ResourceClassParametersReferenceName, ..} ) <$> f v1alpha2ResourceClassParametersReferenceName +{-# INLINE v1alpha2ResourceClassParametersReferenceNameL #-} + +-- | 'v1alpha2ResourceClassParametersReferenceNamespace' Lens +v1alpha2ResourceClassParametersReferenceNamespaceL :: Lens_' V1alpha2ResourceClassParametersReference (Maybe Text) +v1alpha2ResourceClassParametersReferenceNamespaceL f V1alpha2ResourceClassParametersReference{..} = (\v1alpha2ResourceClassParametersReferenceNamespace -> V1alpha2ResourceClassParametersReference { v1alpha2ResourceClassParametersReferenceNamespace, ..} ) <$> f v1alpha2ResourceClassParametersReferenceNamespace +{-# INLINE v1alpha2ResourceClassParametersReferenceNamespaceL #-} + + + +-- * V1alpha2ResourceHandle + +-- | 'v1alpha2ResourceHandleData' Lens +v1alpha2ResourceHandleDataL :: Lens_' V1alpha2ResourceHandle (Maybe Text) +v1alpha2ResourceHandleDataL f V1alpha2ResourceHandle{..} = (\v1alpha2ResourceHandleData -> V1alpha2ResourceHandle { v1alpha2ResourceHandleData, ..} ) <$> f v1alpha2ResourceHandleData +{-# INLINE v1alpha2ResourceHandleDataL #-} + +-- | 'v1alpha2ResourceHandleDriverName' Lens +v1alpha2ResourceHandleDriverNameL :: Lens_' V1alpha2ResourceHandle (Maybe Text) +v1alpha2ResourceHandleDriverNameL f V1alpha2ResourceHandle{..} = (\v1alpha2ResourceHandleDriverName -> V1alpha2ResourceHandle { v1alpha2ResourceHandleDriverName, ..} ) <$> f v1alpha2ResourceHandleDriverName +{-# INLINE v1alpha2ResourceHandleDriverNameL #-} + + + +-- * V1beta1SelfSubjectReview + +-- | 'v1beta1SelfSubjectReviewApiVersion' Lens +v1beta1SelfSubjectReviewApiVersionL :: Lens_' V1beta1SelfSubjectReview (Maybe Text) +v1beta1SelfSubjectReviewApiVersionL f V1beta1SelfSubjectReview{..} = (\v1beta1SelfSubjectReviewApiVersion -> V1beta1SelfSubjectReview { v1beta1SelfSubjectReviewApiVersion, ..} ) <$> f v1beta1SelfSubjectReviewApiVersion +{-# INLINE v1beta1SelfSubjectReviewApiVersionL #-} + +-- | 'v1beta1SelfSubjectReviewKind' Lens +v1beta1SelfSubjectReviewKindL :: Lens_' V1beta1SelfSubjectReview (Maybe Text) +v1beta1SelfSubjectReviewKindL f V1beta1SelfSubjectReview{..} = (\v1beta1SelfSubjectReviewKind -> V1beta1SelfSubjectReview { v1beta1SelfSubjectReviewKind, ..} ) <$> f v1beta1SelfSubjectReviewKind +{-# INLINE v1beta1SelfSubjectReviewKindL #-} + +-- | 'v1beta1SelfSubjectReviewMetadata' Lens +v1beta1SelfSubjectReviewMetadataL :: Lens_' V1beta1SelfSubjectReview (Maybe V1ObjectMeta) +v1beta1SelfSubjectReviewMetadataL f V1beta1SelfSubjectReview{..} = (\v1beta1SelfSubjectReviewMetadata -> V1beta1SelfSubjectReview { v1beta1SelfSubjectReviewMetadata, ..} ) <$> f v1beta1SelfSubjectReviewMetadata +{-# INLINE v1beta1SelfSubjectReviewMetadataL #-} + +-- | 'v1beta1SelfSubjectReviewStatus' Lens +v1beta1SelfSubjectReviewStatusL :: Lens_' V1beta1SelfSubjectReview (Maybe V1beta1SelfSubjectReviewStatus) +v1beta1SelfSubjectReviewStatusL f V1beta1SelfSubjectReview{..} = (\v1beta1SelfSubjectReviewStatus -> V1beta1SelfSubjectReview { v1beta1SelfSubjectReviewStatus, ..} ) <$> f v1beta1SelfSubjectReviewStatus +{-# INLINE v1beta1SelfSubjectReviewStatusL #-} + + + +-- * V1beta1SelfSubjectReviewStatus + +-- | 'v1beta1SelfSubjectReviewStatusUserInfo' Lens +v1beta1SelfSubjectReviewStatusUserInfoL :: Lens_' V1beta1SelfSubjectReviewStatus (Maybe V1UserInfo) +v1beta1SelfSubjectReviewStatusUserInfoL f V1beta1SelfSubjectReviewStatus{..} = (\v1beta1SelfSubjectReviewStatusUserInfo -> V1beta1SelfSubjectReviewStatus { v1beta1SelfSubjectReviewStatusUserInfo, ..} ) <$> f v1beta1SelfSubjectReviewStatusUserInfo +{-# INLINE v1beta1SelfSubjectReviewStatusUserInfoL #-} diff --git a/tests/Instances.hs b/tests/Instances.hs --- a/tests/Instances.hs +++ b/tests/Instances.hs @@ -961,6 +961,7 @@ <*> arbitrary -- v1ContainerName :: Text <*> arbitraryReducedMaybe n -- v1ContainerPorts :: Maybe [V1ContainerPort] <*> arbitraryReducedMaybe n -- v1ContainerReadinessProbe :: Maybe V1Probe + <*> arbitraryReducedMaybe n -- v1ContainerResizePolicy :: Maybe [V1ContainerResizePolicy] <*> arbitraryReducedMaybe n -- v1ContainerResources :: Maybe V1ResourceRequirements <*> arbitraryReducedMaybe n -- v1ContainerSecurityContext :: Maybe V1SecurityContext <*> arbitraryReducedMaybe n -- v1ContainerStartupProbe :: Maybe V1Probe @@ -994,6 +995,15 @@ <*> arbitraryReducedMaybe n -- v1ContainerPortName :: Maybe Text <*> arbitraryReducedMaybe n -- v1ContainerPortProtocol :: Maybe Text +instance Arbitrary V1ContainerResizePolicy where + arbitrary = sized genV1ContainerResizePolicy + +genV1ContainerResizePolicy :: Int -> Gen V1ContainerResizePolicy +genV1ContainerResizePolicy n = + V1ContainerResizePolicy + <$> arbitrary -- v1ContainerResizePolicyResourceName :: Text + <*> arbitrary -- v1ContainerResizePolicyRestartPolicy :: Text + instance Arbitrary V1ContainerState where arbitrary = sized genV1ContainerState @@ -1041,12 +1051,14 @@ genV1ContainerStatus :: Int -> Gen V1ContainerStatus genV1ContainerStatus n = V1ContainerStatus - <$> arbitraryReducedMaybe n -- v1ContainerStatusContainerId :: Maybe Text + <$> arbitraryReducedMaybe n -- v1ContainerStatusAllocatedResources :: Maybe (Map.Map String Quantity) + <*> arbitraryReducedMaybe n -- v1ContainerStatusContainerId :: Maybe Text <*> arbitrary -- v1ContainerStatusImage :: Text <*> arbitrary -- v1ContainerStatusImageId :: Text <*> arbitraryReducedMaybe n -- v1ContainerStatusLastState :: Maybe V1ContainerState <*> arbitrary -- v1ContainerStatusName :: Text <*> arbitrary -- v1ContainerStatusReady :: Bool + <*> arbitraryReducedMaybe n -- v1ContainerStatusResources :: Maybe V1ResourceRequirements <*> arbitrary -- v1ContainerStatusRestartCount :: Int <*> arbitraryReducedMaybe n -- v1ContainerStatusStarted :: Maybe Bool <*> arbitraryReducedMaybe n -- v1ContainerStatusState :: Maybe V1ContainerState @@ -1622,6 +1634,7 @@ <*> arbitrary -- v1EphemeralContainerName :: Text <*> arbitraryReducedMaybe n -- v1EphemeralContainerPorts :: Maybe [V1ContainerPort] <*> arbitraryReducedMaybe n -- v1EphemeralContainerReadinessProbe :: Maybe V1Probe + <*> arbitraryReducedMaybe n -- v1EphemeralContainerResizePolicy :: Maybe [V1ContainerResizePolicy] <*> arbitraryReducedMaybe n -- v1EphemeralContainerResources :: Maybe V1ResourceRequirements <*> arbitraryReducedMaybe n -- v1EphemeralContainerSecurityContext :: Maybe V1SecurityContext <*> arbitraryReducedMaybe n -- v1EphemeralContainerStartupProbe :: Maybe V1Probe @@ -2417,6 +2430,15 @@ <*> arbitraryReducedMaybe n -- v1ManagedFieldsEntrySubresource :: Maybe Text <*> arbitraryReducedMaybe n -- v1ManagedFieldsEntryTime :: Maybe DateTime +instance Arbitrary V1MatchCondition where + arbitrary = sized genV1MatchCondition + +genV1MatchCondition :: Int -> Gen V1MatchCondition +genV1MatchCondition n = + V1MatchCondition + <$> arbitrary -- v1MatchConditionExpression :: Text + <*> arbitrary -- v1MatchConditionName :: Text + instance Arbitrary V1MutatingWebhook where arbitrary = sized genV1MutatingWebhook @@ -2426,6 +2448,7 @@ <$> arbitrary -- v1MutatingWebhookAdmissionReviewVersions :: [Text] <*> arbitraryReduced n -- v1MutatingWebhookClientConfig :: AdmissionregistrationV1WebhookClientConfig <*> arbitraryReducedMaybe n -- v1MutatingWebhookFailurePolicy :: Maybe Text + <*> arbitraryReducedMaybe n -- v1MutatingWebhookMatchConditions :: Maybe [V1MatchCondition] <*> arbitraryReducedMaybe n -- v1MutatingWebhookMatchPolicy :: Maybe Text <*> arbitrary -- v1MutatingWebhookName :: Text <*> arbitraryReducedMaybe n -- v1MutatingWebhookNamespaceSelector :: Maybe V1LabelSelector @@ -3292,6 +3315,7 @@ <*> arbitraryReducedMaybe n -- v1PodStatusPodIps :: Maybe [V1PodIP] <*> arbitraryReducedMaybe n -- v1PodStatusQosClass :: Maybe Text <*> arbitraryReducedMaybe n -- v1PodStatusReason :: Maybe Text + <*> arbitraryReducedMaybe n -- v1PodStatusResize :: Maybe Text <*> arbitraryReducedMaybe n -- v1PodStatusStartTime :: Maybe DateTime instance Arbitrary V1PodTemplate where @@ -4592,6 +4616,7 @@ <$> arbitrary -- v1ValidatingWebhookAdmissionReviewVersions :: [Text] <*> arbitraryReduced n -- v1ValidatingWebhookClientConfig :: AdmissionregistrationV1WebhookClientConfig <*> arbitraryReducedMaybe n -- v1ValidatingWebhookFailurePolicy :: Maybe Text + <*> arbitraryReducedMaybe n -- v1ValidatingWebhookMatchConditions :: Maybe [V1MatchCondition] <*> arbitraryReducedMaybe n -- v1ValidatingWebhookMatchPolicy :: Maybe Text <*> arbitrary -- v1ValidatingWebhookName :: Text <*> arbitraryReducedMaybe n -- v1ValidatingWebhookNamespaceSelector :: Maybe V1LabelSelector @@ -4629,6 +4654,7 @@ genV1ValidationRule n = V1ValidationRule <$> arbitraryReducedMaybe n -- v1ValidationRuleMessage :: Maybe Text + <*> arbitraryReducedMaybe n -- v1ValidationRuleMessageExpression :: Maybe Text <*> arbitrary -- v1ValidationRuleRule :: Text instance Arbitrary V1Volume where @@ -4828,15 +4854,14 @@ <*> arbitraryReducedMaybe n -- v1WindowsSecurityContextOptionsHostProcess :: Maybe Bool <*> arbitraryReducedMaybe n -- v1WindowsSecurityContextOptionsRunAsUserName :: Maybe Text -instance Arbitrary V1alpha1AllocationResult where - arbitrary = sized genV1alpha1AllocationResult +instance Arbitrary V1alpha1AuditAnnotation where + arbitrary = sized genV1alpha1AuditAnnotation -genV1alpha1AllocationResult :: Int -> Gen V1alpha1AllocationResult -genV1alpha1AllocationResult n = - V1alpha1AllocationResult - <$> arbitraryReducedMaybe n -- v1alpha1AllocationResultAvailableOnNodes :: Maybe V1NodeSelector - <*> arbitraryReducedMaybe n -- v1alpha1AllocationResultResourceHandle :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1AllocationResultShareable :: Maybe Bool +genV1alpha1AuditAnnotation :: Int -> Gen V1alpha1AuditAnnotation +genV1alpha1AuditAnnotation n = + V1alpha1AuditAnnotation + <$> arbitrary -- v1alpha1AuditAnnotationKey :: Text + <*> arbitrary -- v1alpha1AuditAnnotationValueExpression :: Text instance Arbitrary V1alpha1ClusterCIDR where arbitrary = sized genV1alpha1ClusterCIDR @@ -4871,6 +4896,85 @@ <*> arbitraryReducedMaybe n -- v1alpha1ClusterCIDRSpecNodeSelector :: Maybe V1NodeSelector <*> arbitrary -- v1alpha1ClusterCIDRSpecPerNodeHostBits :: Int +instance Arbitrary V1alpha1ClusterTrustBundle where + arbitrary = sized genV1alpha1ClusterTrustBundle + +genV1alpha1ClusterTrustBundle :: Int -> Gen V1alpha1ClusterTrustBundle +genV1alpha1ClusterTrustBundle n = + V1alpha1ClusterTrustBundle + <$> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleMetadata :: Maybe V1ObjectMeta + <*> arbitraryReduced n -- v1alpha1ClusterTrustBundleSpec :: V1alpha1ClusterTrustBundleSpec + +instance Arbitrary V1alpha1ClusterTrustBundleList where + arbitrary = sized genV1alpha1ClusterTrustBundleList + +genV1alpha1ClusterTrustBundleList :: Int -> Gen V1alpha1ClusterTrustBundleList +genV1alpha1ClusterTrustBundleList n = + V1alpha1ClusterTrustBundleList + <$> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha1ClusterTrustBundleListItems :: [V1alpha1ClusterTrustBundle] + <*> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha1ClusterTrustBundleSpec where + arbitrary = sized genV1alpha1ClusterTrustBundleSpec + +genV1alpha1ClusterTrustBundleSpec :: Int -> Gen V1alpha1ClusterTrustBundleSpec +genV1alpha1ClusterTrustBundleSpec n = + V1alpha1ClusterTrustBundleSpec + <$> arbitraryReducedMaybe n -- v1alpha1ClusterTrustBundleSpecSignerName :: Maybe Text + <*> arbitrary -- v1alpha1ClusterTrustBundleSpecTrustBundle :: Text + +instance Arbitrary V1alpha1ExpressionWarning where + arbitrary = sized genV1alpha1ExpressionWarning + +genV1alpha1ExpressionWarning :: Int -> Gen V1alpha1ExpressionWarning +genV1alpha1ExpressionWarning n = + V1alpha1ExpressionWarning + <$> arbitrary -- v1alpha1ExpressionWarningFieldRef :: Text + <*> arbitrary -- v1alpha1ExpressionWarningWarning :: Text + +instance Arbitrary V1alpha1IPAddress where + arbitrary = sized genV1alpha1IPAddress + +genV1alpha1IPAddress :: Int -> Gen V1alpha1IPAddress +genV1alpha1IPAddress n = + V1alpha1IPAddress + <$> arbitraryReducedMaybe n -- v1alpha1IPAddressApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1IPAddressKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1IPAddressMetadata :: Maybe V1ObjectMeta + <*> arbitraryReducedMaybe n -- v1alpha1IPAddressSpec :: Maybe V1alpha1IPAddressSpec + +instance Arbitrary V1alpha1IPAddressList where + arbitrary = sized genV1alpha1IPAddressList + +genV1alpha1IPAddressList :: Int -> Gen V1alpha1IPAddressList +genV1alpha1IPAddressList n = + V1alpha1IPAddressList + <$> arbitraryReducedMaybe n -- v1alpha1IPAddressListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha1IPAddressListItems :: [V1alpha1IPAddress] + <*> arbitraryReducedMaybe n -- v1alpha1IPAddressListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1IPAddressListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha1IPAddressSpec where + arbitrary = sized genV1alpha1IPAddressSpec + +genV1alpha1IPAddressSpec :: Int -> Gen V1alpha1IPAddressSpec +genV1alpha1IPAddressSpec n = + V1alpha1IPAddressSpec + <$> arbitraryReducedMaybe n -- v1alpha1IPAddressSpecParentRef :: Maybe V1alpha1ParentReference + +instance Arbitrary V1alpha1MatchCondition where + arbitrary = sized genV1alpha1MatchCondition + +genV1alpha1MatchCondition :: Int -> Gen V1alpha1MatchCondition +genV1alpha1MatchCondition n = + V1alpha1MatchCondition + <$> arbitrary -- v1alpha1MatchConditionExpression :: Text + <*> arbitrary -- v1alpha1MatchConditionName :: Text + instance Arbitrary V1alpha1MatchResources where arbitrary = sized genV1alpha1MatchResources @@ -4914,185 +5018,17 @@ <$> arbitraryReducedMaybe n -- v1alpha1ParamRefName :: Maybe Text <*> arbitraryReducedMaybe n -- v1alpha1ParamRefNamespace :: Maybe Text -instance Arbitrary V1alpha1PodScheduling where - arbitrary = sized genV1alpha1PodScheduling - -genV1alpha1PodScheduling :: Int -> Gen V1alpha1PodScheduling -genV1alpha1PodScheduling n = - V1alpha1PodScheduling - <$> arbitraryReducedMaybe n -- v1alpha1PodSchedulingApiVersion :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingMetadata :: Maybe V1ObjectMeta - <*> arbitraryReduced n -- v1alpha1PodSchedulingSpec :: V1alpha1PodSchedulingSpec - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingStatus :: Maybe V1alpha1PodSchedulingStatus - -instance Arbitrary V1alpha1PodSchedulingList where - arbitrary = sized genV1alpha1PodSchedulingList - -genV1alpha1PodSchedulingList :: Int -> Gen V1alpha1PodSchedulingList -genV1alpha1PodSchedulingList n = - V1alpha1PodSchedulingList - <$> arbitraryReducedMaybe n -- v1alpha1PodSchedulingListApiVersion :: Maybe Text - <*> arbitraryReduced n -- v1alpha1PodSchedulingListItems :: [V1alpha1PodScheduling] - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingListKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingListMetadata :: Maybe V1ListMeta - -instance Arbitrary V1alpha1PodSchedulingSpec where - arbitrary = sized genV1alpha1PodSchedulingSpec - -genV1alpha1PodSchedulingSpec :: Int -> Gen V1alpha1PodSchedulingSpec -genV1alpha1PodSchedulingSpec n = - V1alpha1PodSchedulingSpec - <$> arbitraryReducedMaybe n -- v1alpha1PodSchedulingSpecPotentialNodes :: Maybe [Text] - <*> arbitraryReducedMaybe n -- v1alpha1PodSchedulingSpecSelectedNode :: Maybe Text - -instance Arbitrary V1alpha1PodSchedulingStatus where - arbitrary = sized genV1alpha1PodSchedulingStatus - -genV1alpha1PodSchedulingStatus :: Int -> Gen V1alpha1PodSchedulingStatus -genV1alpha1PodSchedulingStatus n = - V1alpha1PodSchedulingStatus - <$> arbitraryReducedMaybe n -- v1alpha1PodSchedulingStatusResourceClaims :: Maybe [V1alpha1ResourceClaimSchedulingStatus] - -instance Arbitrary V1alpha1ResourceClaim where - arbitrary = sized genV1alpha1ResourceClaim - -genV1alpha1ResourceClaim :: Int -> Gen V1alpha1ResourceClaim -genV1alpha1ResourceClaim n = - V1alpha1ResourceClaim - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimApiVersion :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimMetadata :: Maybe V1ObjectMeta - <*> arbitraryReduced n -- v1alpha1ResourceClaimSpec :: V1alpha1ResourceClaimSpec - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimStatus :: Maybe V1alpha1ResourceClaimStatus - -instance Arbitrary V1alpha1ResourceClaimConsumerReference where - arbitrary = sized genV1alpha1ResourceClaimConsumerReference - -genV1alpha1ResourceClaimConsumerReference :: Int -> Gen V1alpha1ResourceClaimConsumerReference -genV1alpha1ResourceClaimConsumerReference n = - V1alpha1ResourceClaimConsumerReference - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimConsumerReferenceApiGroup :: Maybe Text - <*> arbitrary -- v1alpha1ResourceClaimConsumerReferenceName :: Text - <*> arbitrary -- v1alpha1ResourceClaimConsumerReferenceResource :: Text - <*> arbitrary -- v1alpha1ResourceClaimConsumerReferenceUid :: Text - -instance Arbitrary V1alpha1ResourceClaimList where - arbitrary = sized genV1alpha1ResourceClaimList - -genV1alpha1ResourceClaimList :: Int -> Gen V1alpha1ResourceClaimList -genV1alpha1ResourceClaimList n = - V1alpha1ResourceClaimList - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimListApiVersion :: Maybe Text - <*> arbitraryReduced n -- v1alpha1ResourceClaimListItems :: [V1alpha1ResourceClaim] - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimListKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimListMetadata :: Maybe V1ListMeta - -instance Arbitrary V1alpha1ResourceClaimParametersReference where - arbitrary = sized genV1alpha1ResourceClaimParametersReference - -genV1alpha1ResourceClaimParametersReference :: Int -> Gen V1alpha1ResourceClaimParametersReference -genV1alpha1ResourceClaimParametersReference n = - V1alpha1ResourceClaimParametersReference - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimParametersReferenceApiGroup :: Maybe Text - <*> arbitrary -- v1alpha1ResourceClaimParametersReferenceKind :: Text - <*> arbitrary -- v1alpha1ResourceClaimParametersReferenceName :: Text - -instance Arbitrary V1alpha1ResourceClaimSchedulingStatus where - arbitrary = sized genV1alpha1ResourceClaimSchedulingStatus - -genV1alpha1ResourceClaimSchedulingStatus :: Int -> Gen V1alpha1ResourceClaimSchedulingStatus -genV1alpha1ResourceClaimSchedulingStatus n = - V1alpha1ResourceClaimSchedulingStatus - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimSchedulingStatusName :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimSchedulingStatusUnsuitableNodes :: Maybe [Text] - -instance Arbitrary V1alpha1ResourceClaimSpec where - arbitrary = sized genV1alpha1ResourceClaimSpec - -genV1alpha1ResourceClaimSpec :: Int -> Gen V1alpha1ResourceClaimSpec -genV1alpha1ResourceClaimSpec n = - V1alpha1ResourceClaimSpec - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimSpecAllocationMode :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimSpecParametersRef :: Maybe V1alpha1ResourceClaimParametersReference - <*> arbitrary -- v1alpha1ResourceClaimSpecResourceClassName :: Text - -instance Arbitrary V1alpha1ResourceClaimStatus where - arbitrary = sized genV1alpha1ResourceClaimStatus - -genV1alpha1ResourceClaimStatus :: Int -> Gen V1alpha1ResourceClaimStatus -genV1alpha1ResourceClaimStatus n = - V1alpha1ResourceClaimStatus - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimStatusAllocation :: Maybe V1alpha1AllocationResult - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimStatusDeallocationRequested :: Maybe Bool - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimStatusDriverName :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimStatusReservedFor :: Maybe [V1alpha1ResourceClaimConsumerReference] - -instance Arbitrary V1alpha1ResourceClaimTemplate where - arbitrary = sized genV1alpha1ResourceClaimTemplate - -genV1alpha1ResourceClaimTemplate :: Int -> Gen V1alpha1ResourceClaimTemplate -genV1alpha1ResourceClaimTemplate n = - V1alpha1ResourceClaimTemplate - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateApiVersion :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateMetadata :: Maybe V1ObjectMeta - <*> arbitraryReduced n -- v1alpha1ResourceClaimTemplateSpec :: V1alpha1ResourceClaimTemplateSpec - -instance Arbitrary V1alpha1ResourceClaimTemplateList where - arbitrary = sized genV1alpha1ResourceClaimTemplateList - -genV1alpha1ResourceClaimTemplateList :: Int -> Gen V1alpha1ResourceClaimTemplateList -genV1alpha1ResourceClaimTemplateList n = - V1alpha1ResourceClaimTemplateList - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateListApiVersion :: Maybe Text - <*> arbitraryReduced n -- v1alpha1ResourceClaimTemplateListItems :: [V1alpha1ResourceClaimTemplate] - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateListKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateListMetadata :: Maybe V1ListMeta - -instance Arbitrary V1alpha1ResourceClaimTemplateSpec where - arbitrary = sized genV1alpha1ResourceClaimTemplateSpec - -genV1alpha1ResourceClaimTemplateSpec :: Int -> Gen V1alpha1ResourceClaimTemplateSpec -genV1alpha1ResourceClaimTemplateSpec n = - V1alpha1ResourceClaimTemplateSpec - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClaimTemplateSpecMetadata :: Maybe V1ObjectMeta - <*> arbitraryReduced n -- v1alpha1ResourceClaimTemplateSpecSpec :: V1alpha1ResourceClaimSpec - -instance Arbitrary V1alpha1ResourceClass where - arbitrary = sized genV1alpha1ResourceClass - -genV1alpha1ResourceClass :: Int -> Gen V1alpha1ResourceClass -genV1alpha1ResourceClass n = - V1alpha1ResourceClass - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClassApiVersion :: Maybe Text - <*> arbitrary -- v1alpha1ResourceClassDriverName :: Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassMetadata :: Maybe V1ObjectMeta - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassParametersRef :: Maybe V1alpha1ResourceClassParametersReference - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassSuitableNodes :: Maybe V1NodeSelector - -instance Arbitrary V1alpha1ResourceClassList where - arbitrary = sized genV1alpha1ResourceClassList - -genV1alpha1ResourceClassList :: Int -> Gen V1alpha1ResourceClassList -genV1alpha1ResourceClassList n = - V1alpha1ResourceClassList - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClassListApiVersion :: Maybe Text - <*> arbitraryReduced n -- v1alpha1ResourceClassListItems :: [V1alpha1ResourceClass] - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassListKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassListMetadata :: Maybe V1ListMeta - -instance Arbitrary V1alpha1ResourceClassParametersReference where - arbitrary = sized genV1alpha1ResourceClassParametersReference +instance Arbitrary V1alpha1ParentReference where + arbitrary = sized genV1alpha1ParentReference -genV1alpha1ResourceClassParametersReference :: Int -> Gen V1alpha1ResourceClassParametersReference -genV1alpha1ResourceClassParametersReference n = - V1alpha1ResourceClassParametersReference - <$> arbitraryReducedMaybe n -- v1alpha1ResourceClassParametersReferenceApiGroup :: Maybe Text - <*> arbitrary -- v1alpha1ResourceClassParametersReferenceKind :: Text - <*> arbitrary -- v1alpha1ResourceClassParametersReferenceName :: Text - <*> arbitraryReducedMaybe n -- v1alpha1ResourceClassParametersReferenceNamespace :: Maybe Text +genV1alpha1ParentReference :: Int -> Gen V1alpha1ParentReference +genV1alpha1ParentReference n = + V1alpha1ParentReference + <$> arbitraryReducedMaybe n -- v1alpha1ParentReferenceGroup :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ParentReferenceName :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ParentReferenceNamespace :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ParentReferenceResource :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ParentReferenceUid :: Maybe Text instance Arbitrary V1alpha1SelfSubjectReview where arbitrary = sized genV1alpha1SelfSubjectReview @@ -5169,6 +5105,14 @@ <*> arbitraryReducedMaybe n -- v1alpha1StorageVersionStatusConditions :: Maybe [V1alpha1StorageVersionCondition] <*> arbitraryReducedMaybe n -- v1alpha1StorageVersionStatusStorageVersions :: Maybe [V1alpha1ServerStorageVersion] +instance Arbitrary V1alpha1TypeChecking where + arbitrary = sized genV1alpha1TypeChecking + +genV1alpha1TypeChecking :: Int -> Gen V1alpha1TypeChecking +genV1alpha1TypeChecking n = + V1alpha1TypeChecking + <$> arbitraryReducedMaybe n -- v1alpha1TypeCheckingExpressionWarnings :: Maybe [V1alpha1ExpressionWarning] + instance Arbitrary V1alpha1ValidatingAdmissionPolicy where arbitrary = sized genV1alpha1ValidatingAdmissionPolicy @@ -5179,6 +5123,7 @@ <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyKind :: Maybe Text <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyMetadata :: Maybe V1ObjectMeta <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpec :: Maybe V1alpha1ValidatingAdmissionPolicySpec + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyStatus :: Maybe V1alpha1ValidatingAdmissionPolicyStatus instance Arbitrary V1alpha1ValidatingAdmissionPolicyBinding where arbitrary = sized genV1alpha1ValidatingAdmissionPolicyBinding @@ -5211,6 +5156,7 @@ <$> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyBindingSpecMatchResources :: Maybe V1alpha1MatchResources <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyBindingSpecParamRef :: Maybe V1alpha1ParamRef <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyBindingSpecPolicyName :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyBindingSpecValidationActions :: Maybe [Text] instance Arbitrary V1alpha1ValidatingAdmissionPolicyList where arbitrary = sized genV1alpha1ValidatingAdmissionPolicyList @@ -5229,11 +5175,23 @@ genV1alpha1ValidatingAdmissionPolicySpec :: Int -> Gen V1alpha1ValidatingAdmissionPolicySpec genV1alpha1ValidatingAdmissionPolicySpec n = V1alpha1ValidatingAdmissionPolicySpec - <$> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecFailurePolicy :: Maybe Text + <$> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecAuditAnnotations :: Maybe [V1alpha1AuditAnnotation] + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecFailurePolicy :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecMatchConditions :: Maybe [V1alpha1MatchCondition] <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecMatchConstraints :: Maybe V1alpha1MatchResources <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecParamKind :: Maybe V1alpha1ParamKind - <*> arbitraryReduced n -- v1alpha1ValidatingAdmissionPolicySpecValidations :: [V1alpha1Validation] + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicySpecValidations :: Maybe [V1alpha1Validation] +instance Arbitrary V1alpha1ValidatingAdmissionPolicyStatus where + arbitrary = sized genV1alpha1ValidatingAdmissionPolicyStatus + +genV1alpha1ValidatingAdmissionPolicyStatus :: Int -> Gen V1alpha1ValidatingAdmissionPolicyStatus +genV1alpha1ValidatingAdmissionPolicyStatus n = + V1alpha1ValidatingAdmissionPolicyStatus + <$> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyStatusConditions :: Maybe [V1Condition] + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyStatusObservedGeneration :: Maybe Integer + <*> arbitraryReducedMaybe n -- v1alpha1ValidatingAdmissionPolicyStatusTypeChecking :: Maybe V1alpha1TypeChecking + instance Arbitrary V1alpha1Validation where arbitrary = sized genV1alpha1Validation @@ -5242,32 +5200,226 @@ V1alpha1Validation <$> arbitrary -- v1alpha1ValidationExpression :: Text <*> arbitraryReducedMaybe n -- v1alpha1ValidationMessage :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha1ValidationMessageExpression :: Maybe Text <*> arbitraryReducedMaybe n -- v1alpha1ValidationReason :: Maybe Text -instance Arbitrary V1beta1CSIStorageCapacity where - arbitrary = sized genV1beta1CSIStorageCapacity +instance Arbitrary V1alpha2AllocationResult where + arbitrary = sized genV1alpha2AllocationResult -genV1beta1CSIStorageCapacity :: Int -> Gen V1beta1CSIStorageCapacity -genV1beta1CSIStorageCapacity n = - V1beta1CSIStorageCapacity - <$> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityApiVersion :: Maybe Text - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityCapacity :: Maybe Quantity - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityMaximumVolumeSize :: Maybe Quantity - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityMetadata :: Maybe V1ObjectMeta - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityNodeTopology :: Maybe V1LabelSelector - <*> arbitrary -- v1beta1CSIStorageCapacityStorageClassName :: Text +genV1alpha2AllocationResult :: Int -> Gen V1alpha2AllocationResult +genV1alpha2AllocationResult n = + V1alpha2AllocationResult + <$> arbitraryReducedMaybe n -- v1alpha2AllocationResultAvailableOnNodes :: Maybe V1NodeSelector + <*> arbitraryReducedMaybe n -- v1alpha2AllocationResultResourceHandles :: Maybe [V1alpha2ResourceHandle] + <*> arbitraryReducedMaybe n -- v1alpha2AllocationResultShareable :: Maybe Bool -instance Arbitrary V1beta1CSIStorageCapacityList where - arbitrary = sized genV1beta1CSIStorageCapacityList +instance Arbitrary V1alpha2PodSchedulingContext where + arbitrary = sized genV1alpha2PodSchedulingContext -genV1beta1CSIStorageCapacityList :: Int -> Gen V1beta1CSIStorageCapacityList -genV1beta1CSIStorageCapacityList n = - V1beta1CSIStorageCapacityList - <$> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityListApiVersion :: Maybe Text - <*> arbitraryReduced n -- v1beta1CSIStorageCapacityListItems :: [V1beta1CSIStorageCapacity] - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityListKind :: Maybe Text - <*> arbitraryReducedMaybe n -- v1beta1CSIStorageCapacityListMetadata :: Maybe V1ListMeta +genV1alpha2PodSchedulingContext :: Int -> Gen V1alpha2PodSchedulingContext +genV1alpha2PodSchedulingContext n = + V1alpha2PodSchedulingContext + <$> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextMetadata :: Maybe V1ObjectMeta + <*> arbitraryReduced n -- v1alpha2PodSchedulingContextSpec :: V1alpha2PodSchedulingContextSpec + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextStatus :: Maybe V1alpha2PodSchedulingContextStatus + +instance Arbitrary V1alpha2PodSchedulingContextList where + arbitrary = sized genV1alpha2PodSchedulingContextList + +genV1alpha2PodSchedulingContextList :: Int -> Gen V1alpha2PodSchedulingContextList +genV1alpha2PodSchedulingContextList n = + V1alpha2PodSchedulingContextList + <$> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha2PodSchedulingContextListItems :: [V1alpha2PodSchedulingContext] + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha2PodSchedulingContextSpec where + arbitrary = sized genV1alpha2PodSchedulingContextSpec + +genV1alpha2PodSchedulingContextSpec :: Int -> Gen V1alpha2PodSchedulingContextSpec +genV1alpha2PodSchedulingContextSpec n = + V1alpha2PodSchedulingContextSpec + <$> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextSpecPotentialNodes :: Maybe [Text] + <*> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextSpecSelectedNode :: Maybe Text + +instance Arbitrary V1alpha2PodSchedulingContextStatus where + arbitrary = sized genV1alpha2PodSchedulingContextStatus + +genV1alpha2PodSchedulingContextStatus :: Int -> Gen V1alpha2PodSchedulingContextStatus +genV1alpha2PodSchedulingContextStatus n = + V1alpha2PodSchedulingContextStatus + <$> arbitraryReducedMaybe n -- v1alpha2PodSchedulingContextStatusResourceClaims :: Maybe [V1alpha2ResourceClaimSchedulingStatus] + +instance Arbitrary V1alpha2ResourceClaim where + arbitrary = sized genV1alpha2ResourceClaim + +genV1alpha2ResourceClaim :: Int -> Gen V1alpha2ResourceClaim +genV1alpha2ResourceClaim n = + V1alpha2ResourceClaim + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimMetadata :: Maybe V1ObjectMeta + <*> arbitraryReduced n -- v1alpha2ResourceClaimSpec :: V1alpha2ResourceClaimSpec + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimStatus :: Maybe V1alpha2ResourceClaimStatus + +instance Arbitrary V1alpha2ResourceClaimConsumerReference where + arbitrary = sized genV1alpha2ResourceClaimConsumerReference + +genV1alpha2ResourceClaimConsumerReference :: Int -> Gen V1alpha2ResourceClaimConsumerReference +genV1alpha2ResourceClaimConsumerReference n = + V1alpha2ResourceClaimConsumerReference + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimConsumerReferenceApiGroup :: Maybe Text + <*> arbitrary -- v1alpha2ResourceClaimConsumerReferenceName :: Text + <*> arbitrary -- v1alpha2ResourceClaimConsumerReferenceResource :: Text + <*> arbitrary -- v1alpha2ResourceClaimConsumerReferenceUid :: Text + +instance Arbitrary V1alpha2ResourceClaimList where + arbitrary = sized genV1alpha2ResourceClaimList + +genV1alpha2ResourceClaimList :: Int -> Gen V1alpha2ResourceClaimList +genV1alpha2ResourceClaimList n = + V1alpha2ResourceClaimList + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha2ResourceClaimListItems :: [V1alpha2ResourceClaim] + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha2ResourceClaimParametersReference where + arbitrary = sized genV1alpha2ResourceClaimParametersReference + +genV1alpha2ResourceClaimParametersReference :: Int -> Gen V1alpha2ResourceClaimParametersReference +genV1alpha2ResourceClaimParametersReference n = + V1alpha2ResourceClaimParametersReference + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimParametersReferenceApiGroup :: Maybe Text + <*> arbitrary -- v1alpha2ResourceClaimParametersReferenceKind :: Text + <*> arbitrary -- v1alpha2ResourceClaimParametersReferenceName :: Text + +instance Arbitrary V1alpha2ResourceClaimSchedulingStatus where + arbitrary = sized genV1alpha2ResourceClaimSchedulingStatus + +genV1alpha2ResourceClaimSchedulingStatus :: Int -> Gen V1alpha2ResourceClaimSchedulingStatus +genV1alpha2ResourceClaimSchedulingStatus n = + V1alpha2ResourceClaimSchedulingStatus + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimSchedulingStatusName :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimSchedulingStatusUnsuitableNodes :: Maybe [Text] + +instance Arbitrary V1alpha2ResourceClaimSpec where + arbitrary = sized genV1alpha2ResourceClaimSpec + +genV1alpha2ResourceClaimSpec :: Int -> Gen V1alpha2ResourceClaimSpec +genV1alpha2ResourceClaimSpec n = + V1alpha2ResourceClaimSpec + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimSpecAllocationMode :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimSpecParametersRef :: Maybe V1alpha2ResourceClaimParametersReference + <*> arbitrary -- v1alpha2ResourceClaimSpecResourceClassName :: Text + +instance Arbitrary V1alpha2ResourceClaimStatus where + arbitrary = sized genV1alpha2ResourceClaimStatus + +genV1alpha2ResourceClaimStatus :: Int -> Gen V1alpha2ResourceClaimStatus +genV1alpha2ResourceClaimStatus n = + V1alpha2ResourceClaimStatus + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimStatusAllocation :: Maybe V1alpha2AllocationResult + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimStatusDeallocationRequested :: Maybe Bool + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimStatusDriverName :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimStatusReservedFor :: Maybe [V1alpha2ResourceClaimConsumerReference] + +instance Arbitrary V1alpha2ResourceClaimTemplate where + arbitrary = sized genV1alpha2ResourceClaimTemplate + +genV1alpha2ResourceClaimTemplate :: Int -> Gen V1alpha2ResourceClaimTemplate +genV1alpha2ResourceClaimTemplate n = + V1alpha2ResourceClaimTemplate + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateMetadata :: Maybe V1ObjectMeta + <*> arbitraryReduced n -- v1alpha2ResourceClaimTemplateSpec :: V1alpha2ResourceClaimTemplateSpec + +instance Arbitrary V1alpha2ResourceClaimTemplateList where + arbitrary = sized genV1alpha2ResourceClaimTemplateList + +genV1alpha2ResourceClaimTemplateList :: Int -> Gen V1alpha2ResourceClaimTemplateList +genV1alpha2ResourceClaimTemplateList n = + V1alpha2ResourceClaimTemplateList + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha2ResourceClaimTemplateListItems :: [V1alpha2ResourceClaimTemplate] + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha2ResourceClaimTemplateSpec where + arbitrary = sized genV1alpha2ResourceClaimTemplateSpec + +genV1alpha2ResourceClaimTemplateSpec :: Int -> Gen V1alpha2ResourceClaimTemplateSpec +genV1alpha2ResourceClaimTemplateSpec n = + V1alpha2ResourceClaimTemplateSpec + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClaimTemplateSpecMetadata :: Maybe V1ObjectMeta + <*> arbitraryReduced n -- v1alpha2ResourceClaimTemplateSpecSpec :: V1alpha2ResourceClaimSpec + +instance Arbitrary V1alpha2ResourceClass where + arbitrary = sized genV1alpha2ResourceClass + +genV1alpha2ResourceClass :: Int -> Gen V1alpha2ResourceClass +genV1alpha2ResourceClass n = + V1alpha2ResourceClass + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClassApiVersion :: Maybe Text + <*> arbitrary -- v1alpha2ResourceClassDriverName :: Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassMetadata :: Maybe V1ObjectMeta + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassParametersRef :: Maybe V1alpha2ResourceClassParametersReference + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassSuitableNodes :: Maybe V1NodeSelector + +instance Arbitrary V1alpha2ResourceClassList where + arbitrary = sized genV1alpha2ResourceClassList + +genV1alpha2ResourceClassList :: Int -> Gen V1alpha2ResourceClassList +genV1alpha2ResourceClassList n = + V1alpha2ResourceClassList + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClassListApiVersion :: Maybe Text + <*> arbitraryReduced n -- v1alpha2ResourceClassListItems :: [V1alpha2ResourceClass] + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassListKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassListMetadata :: Maybe V1ListMeta + +instance Arbitrary V1alpha2ResourceClassParametersReference where + arbitrary = sized genV1alpha2ResourceClassParametersReference + +genV1alpha2ResourceClassParametersReference :: Int -> Gen V1alpha2ResourceClassParametersReference +genV1alpha2ResourceClassParametersReference n = + V1alpha2ResourceClassParametersReference + <$> arbitraryReducedMaybe n -- v1alpha2ResourceClassParametersReferenceApiGroup :: Maybe Text + <*> arbitrary -- v1alpha2ResourceClassParametersReferenceKind :: Text + <*> arbitrary -- v1alpha2ResourceClassParametersReferenceName :: Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceClassParametersReferenceNamespace :: Maybe Text + +instance Arbitrary V1alpha2ResourceHandle where + arbitrary = sized genV1alpha2ResourceHandle + +genV1alpha2ResourceHandle :: Int -> Gen V1alpha2ResourceHandle +genV1alpha2ResourceHandle n = + V1alpha2ResourceHandle + <$> arbitraryReducedMaybe n -- v1alpha2ResourceHandleData :: Maybe Text + <*> arbitraryReducedMaybe n -- v1alpha2ResourceHandleDriverName :: Maybe Text + +instance Arbitrary V1beta1SelfSubjectReview where + arbitrary = sized genV1beta1SelfSubjectReview + +genV1beta1SelfSubjectReview :: Int -> Gen V1beta1SelfSubjectReview +genV1beta1SelfSubjectReview n = + V1beta1SelfSubjectReview + <$> arbitraryReducedMaybe n -- v1beta1SelfSubjectReviewApiVersion :: Maybe Text + <*> arbitraryReducedMaybe n -- v1beta1SelfSubjectReviewKind :: Maybe Text + <*> arbitraryReducedMaybe n -- v1beta1SelfSubjectReviewMetadata :: Maybe V1ObjectMeta + <*> arbitraryReducedMaybe n -- v1beta1SelfSubjectReviewStatus :: Maybe V1beta1SelfSubjectReviewStatus + +instance Arbitrary V1beta1SelfSubjectReviewStatus where + arbitrary = sized genV1beta1SelfSubjectReviewStatus + +genV1beta1SelfSubjectReviewStatus :: Int -> Gen V1beta1SelfSubjectReviewStatus +genV1beta1SelfSubjectReviewStatus n = + V1beta1SelfSubjectReviewStatus + <$> arbitraryReducedMaybe n -- v1beta1SelfSubjectReviewStatusUserInfo :: Maybe V1UserInfo instance Arbitrary V1beta2FlowDistinguisherMethod where arbitrary = sized genV1beta2FlowDistinguisherMethod diff --git a/tests/Test.hs b/tests/Test.hs --- a/tests/Test.hs +++ b/tests/Test.hs @@ -96,6 +96,7 @@ propMimeEq MimeJSON (Proxy :: Proxy V1Container) propMimeEq MimeJSON (Proxy :: Proxy V1ContainerImage) propMimeEq MimeJSON (Proxy :: Proxy V1ContainerPort) + propMimeEq MimeJSON (Proxy :: Proxy V1ContainerResizePolicy) propMimeEq MimeJSON (Proxy :: Proxy V1ContainerState) propMimeEq MimeJSON (Proxy :: Proxy V1ContainerStateRunning) propMimeEq MimeJSON (Proxy :: Proxy V1ContainerStateTerminated) @@ -221,6 +222,7 @@ propMimeEq MimeJSON (Proxy :: Proxy V1LocalSubjectAccessReview) propMimeEq MimeJSON (Proxy :: Proxy V1LocalVolumeSource) propMimeEq MimeJSON (Proxy :: Proxy V1ManagedFieldsEntry) + propMimeEq MimeJSON (Proxy :: Proxy V1MatchCondition) propMimeEq MimeJSON (Proxy :: Proxy V1MutatingWebhook) propMimeEq MimeJSON (Proxy :: Proxy V1MutatingWebhookConfiguration) propMimeEq MimeJSON (Proxy :: Proxy V1MutatingWebhookConfigurationList) @@ -430,31 +432,23 @@ propMimeEq MimeJSON (Proxy :: Proxy V1WebhookConversion) propMimeEq MimeJSON (Proxy :: Proxy V1WeightedPodAffinityTerm) propMimeEq MimeJSON (Proxy :: Proxy V1WindowsSecurityContextOptions) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1AllocationResult) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1AuditAnnotation) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterCIDR) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterCIDRList) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterCIDRSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterTrustBundle) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterTrustBundleList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ClusterTrustBundleSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ExpressionWarning) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1IPAddress) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1IPAddressList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1IPAddressSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1MatchCondition) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1MatchResources) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1NamedRuleWithOperations) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ParamKind) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ParamRef) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1PodScheduling) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1PodSchedulingList) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1PodSchedulingSpec) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1PodSchedulingStatus) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaim) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimConsumerReference) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimList) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimParametersReference) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimSchedulingStatus) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimSpec) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimStatus) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimTemplate) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimTemplateList) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClaimTemplateSpec) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClass) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClassList) - propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ResourceClassParametersReference) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ParentReference) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1SelfSubjectReview) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1SelfSubjectReviewStatus) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ServerStorageVersion) @@ -462,15 +456,36 @@ propMimeEq MimeJSON (Proxy :: Proxy V1alpha1StorageVersionCondition) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1StorageVersionList) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1StorageVersionStatus) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1TypeChecking) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicy) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicyBinding) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicyBindingList) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicyBindingSpec) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicyList) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicySpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha1ValidatingAdmissionPolicyStatus) propMimeEq MimeJSON (Proxy :: Proxy V1alpha1Validation) - propMimeEq MimeJSON (Proxy :: Proxy V1beta1CSIStorageCapacity) - propMimeEq MimeJSON (Proxy :: Proxy V1beta1CSIStorageCapacityList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2AllocationResult) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2PodSchedulingContext) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2PodSchedulingContextList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2PodSchedulingContextSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2PodSchedulingContextStatus) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaim) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimConsumerReference) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimParametersReference) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimSchedulingStatus) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimStatus) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimTemplate) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimTemplateList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClaimTemplateSpec) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClass) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClassList) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceClassParametersReference) + propMimeEq MimeJSON (Proxy :: Proxy V1alpha2ResourceHandle) + propMimeEq MimeJSON (Proxy :: Proxy V1beta1SelfSubjectReview) + propMimeEq MimeJSON (Proxy :: Proxy V1beta1SelfSubjectReviewStatus) propMimeEq MimeJSON (Proxy :: Proxy V1beta2FlowDistinguisherMethod) propMimeEq MimeJSON (Proxy :: Proxy V1beta2FlowSchema) propMimeEq MimeJSON (Proxy :: Proxy V1beta2FlowSchemaCondition)