gogol-binaryauthorization 0.4.0 → 0.5.0

raw patch · 19 files changed

+472/−130 lines, 19 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/BinaryAuthorization.hs +14/−0
• gen/Network/Google/BinaryAuthorization/Types.hs +15/−1
• gen/Network/Google/BinaryAuthorization/Types/Product.hs +218/−83
• gen/Network/Google/BinaryAuthorization/Types/Sum.hs +127/−2
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/Create.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/Delete.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/Get.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/GetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/List.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/SetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/TestIAMPermissions.hs +9/−4
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Attestors/Update.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/GetPolicy.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Policy/GetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Policy/SetIAMPolicy.hs +7/−3
• gen/Network/Google/Resource/BinaryAuthorization/Projects/Policy/TestIAMPermissions.hs +9/−4
• gen/Network/Google/Resource/BinaryAuthorization/Projects/UpdatePolicy.hs +7/−3
• gogol-binaryauthorization.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -71,6 +71,12 @@      -- * Types +    -- ** PkixPublicKey+    , PkixPublicKey+    , pkixPublicKey+    , ppkPublicKeyPem+    , ppkSignatureAlgorithm+     -- ** Expr     , Expr     , expr@@ -93,6 +99,9 @@     -- ** AdmissionRuleEnforcementMode     , AdmissionRuleEnforcementMode (..) +    -- ** PolicyGlobalPolicyEvaluationMode+    , PolicyGlobalPolicyEvaluationMode (..)+     -- ** SetIAMPolicyRequest     , SetIAMPolicyRequest     , setIAMPolicyRequest@@ -109,6 +118,9 @@     , admissionWhiteListPattern     , awlpNamePattern +    -- ** PkixPublicKeySignatureAlgorithm+    , PkixPublicKeySignatureAlgorithm (..)+     -- ** AdmissionRule     , AdmissionRule     , admissionRule@@ -137,6 +149,7 @@     -- ** AttestorPublicKey     , AttestorPublicKey     , attestorPublicKey+    , apkPkixPublicKey     , apkAsciiArmoredPgpPublicKey     , apkId     , apkComment@@ -154,6 +167,7 @@     , pClusterAdmissionRules     , pUpdateTime     , pName+    , pGlobalPolicyEvaluationMode     , pDescription      -- ** PolicyClusterAdmissionRules

@@ -22,6 +22,12 @@     -- * OAuth Scopes     , cloudPlatformScope +    -- * PkixPublicKey+    , PkixPublicKey+    , pkixPublicKey+    , ppkPublicKeyPem+    , ppkSignatureAlgorithm+     -- * Expr     , Expr     , expr@@ -44,6 +50,9 @@     -- * AdmissionRuleEnforcementMode     , AdmissionRuleEnforcementMode (..) +    -- * PolicyGlobalPolicyEvaluationMode+    , PolicyGlobalPolicyEvaluationMode (..)+     -- * SetIAMPolicyRequest     , SetIAMPolicyRequest     , setIAMPolicyRequest@@ -60,6 +69,9 @@     , admissionWhiteListPattern     , awlpNamePattern +    -- * PkixPublicKeySignatureAlgorithm+    , PkixPublicKeySignatureAlgorithm (..)+     -- * AdmissionRule     , AdmissionRule     , admissionRule@@ -88,6 +100,7 @@     -- * AttestorPublicKey     , AttestorPublicKey     , attestorPublicKey+    , apkPkixPublicKey     , apkAsciiArmoredPgpPublicKey     , apkId     , apkComment@@ -105,6 +118,7 @@     , pClusterAdmissionRules     , pUpdateTime     , pName+    , pGlobalPolicyEvaluationMode     , pDescription      -- * PolicyClusterAdmissionRules@@ -141,4 +155,4 @@  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy

@@ -20,18 +20,80 @@ import           Network.Google.BinaryAuthorization.Types.Sum import           Network.Google.Prelude +-- | A public key in the PkixPublicKey format (see+-- https:\/\/tools.ietf.org\/html\/rfc5280#section-4.1.2.7 for details).+-- Public keys of this type are typically textually encoded using the PEM+-- format.+--+-- /See:/ 'pkixPublicKey' smart constructor.+data PkixPublicKey =+  PkixPublicKey'+    { _ppkPublicKeyPem       :: !(Maybe Text)+    , _ppkSignatureAlgorithm :: !(Maybe PkixPublicKeySignatureAlgorithm)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PkixPublicKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ppkPublicKeyPem'+--+-- * 'ppkSignatureAlgorithm'+pkixPublicKey+    :: PkixPublicKey+pkixPublicKey =+  PkixPublicKey' {_ppkPublicKeyPem = Nothing, _ppkSignatureAlgorithm = Nothing}+++-- | A PEM-encoded public key, as described in+-- https:\/\/tools.ietf.org\/html\/rfc7468#section-13+ppkPublicKeyPem :: Lens' PkixPublicKey (Maybe Text)+ppkPublicKeyPem+  = lens _ppkPublicKeyPem+      (\ s a -> s{_ppkPublicKeyPem = a})++-- | The signature algorithm used to verify a message against a signature+-- using this key. These signature algorithm must match the structure and+-- any object identifiers encoded in \`public_key_pem\` (i.e. this+-- algorithm must match that of the public key).+ppkSignatureAlgorithm :: Lens' PkixPublicKey (Maybe PkixPublicKeySignatureAlgorithm)+ppkSignatureAlgorithm+  = lens _ppkSignatureAlgorithm+      (\ s a -> s{_ppkSignatureAlgorithm = a})++instance FromJSON PkixPublicKey where+        parseJSON+          = withObject "PkixPublicKey"+              (\ o ->+                 PkixPublicKey' <$>+                   (o .:? "publicKeyPem") <*>+                     (o .:? "signatureAlgorithm"))++instance ToJSON PkixPublicKey where+        toJSON PkixPublicKey'{..}+          = object+              (catMaybes+                 [("publicKeyPem" .=) <$> _ppkPublicKeyPem,+                  ("signatureAlgorithm" .=) <$>+                    _ppkSignatureAlgorithm])+ -- | Represents an expression text. Example: title: \"User account presence\" -- description: \"Determines whether the request has a user account\" -- expression: \"size(request.user) > 0\" -- -- /See:/ 'expr' smart constructor.-data Expr = Expr'+data Expr =+  Expr'     { _eLocation    :: !(Maybe Text)     , _eExpression  :: !(Maybe Text)     , _eTitle       :: !(Maybe Text)     , _eDescription :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expr' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -46,13 +108,14 @@ expr     :: Expr expr =-    Expr'+  Expr'     { _eLocation = Nothing     , _eExpression = Nothing     , _eTitle = Nothing     , _eDescription = Nothing     } + -- | An optional string indicating the location of the expression for error -- reporting, e.g. a file name and a position in the file. eLocation :: Lens' Expr (Maybe Text)@@ -100,12 +163,15 @@ -- Note created by the user. -- -- /See:/ 'userOwnedDrydockNote' smart constructor.-data UserOwnedDrydockNote = UserOwnedDrydockNote'+data UserOwnedDrydockNote =+  UserOwnedDrydockNote'     { _uodnDelegationServiceAccountEmail :: !(Maybe Text)     , _uodnPublicKeys                    :: !(Maybe [AttestorPublicKey])     , _uodnNoteReference                 :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UserOwnedDrydockNote' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,12 +184,13 @@ userOwnedDrydockNote     :: UserOwnedDrydockNote userOwnedDrydockNote =-    UserOwnedDrydockNote'+  UserOwnedDrydockNote'     { _uodnDelegationServiceAccountEmail = Nothing     , _uodnPublicKeys = Nothing     , _uodnNoteReference = Nothing     } + -- | Output only. This field will contain the service account email address -- that this Attestor will use as the principal when querying Container -- Analysis. Attestor administrators must grant this service account the@@ -187,15 +254,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty'-    deriving (Eq,Show,Data,Typeable,Generic)+  Empty'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty     :: Empty empty = Empty' + instance FromJSON Empty where         parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -205,10 +274,13 @@ -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor.-newtype SetIAMPolicyRequest = SetIAMPolicyRequest'+newtype SetIAMPolicyRequest =+  SetIAMPolicyRequest'     { _siprPolicy :: Maybe IAMPolicy-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIAMPolicyRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -216,11 +288,9 @@ -- * 'siprPolicy' setIAMPolicyRequest     :: SetIAMPolicyRequest-setIAMPolicyRequest =-    SetIAMPolicyRequest'-    { _siprPolicy = Nothing-    }+setIAMPolicyRequest = SetIAMPolicyRequest' {_siprPolicy = Nothing} + -- | REQUIRED: The complete policy to be applied to the \`resource\`. The -- size of the policy is limited to a few 10s of KB. An empty policy is a -- valid policy but certain Cloud Platform services (such as Projects)@@ -241,11 +311,14 @@ -- | Response message for BinauthzManagementService.ListAttestors. -- -- /See:/ 'listAttestorsResponse' smart constructor.-data ListAttestorsResponse = ListAttestorsResponse'+data ListAttestorsResponse =+  ListAttestorsResponse'     { _larNextPageToken :: !(Maybe Text)     , _larAttestors     :: !(Maybe [Attestor])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAttestorsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -256,11 +329,9 @@ listAttestorsResponse     :: ListAttestorsResponse listAttestorsResponse =-    ListAttestorsResponse'-    { _larNextPageToken = Nothing-    , _larAttestors = Nothing-    }+  ListAttestorsResponse' {_larNextPageToken = Nothing, _larAttestors = Nothing} + -- | A token to retrieve the next page of results. Pass this value in the -- ListAttestorsRequest.page_token field in the subsequent call to the -- \`ListAttestors\` method to retrieve the next page of results.@@ -295,10 +366,13 @@ -- rules. -- -- /See:/ 'admissionWhiteListPattern' smart constructor.-newtype AdmissionWhiteListPattern = AdmissionWhiteListPattern'+newtype AdmissionWhiteListPattern =+  AdmissionWhiteListPattern'     { _awlpNamePattern :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdmissionWhiteListPattern' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -307,10 +381,9 @@ admissionWhiteListPattern     :: AdmissionWhiteListPattern admissionWhiteListPattern =-    AdmissionWhiteListPattern'-    { _awlpNamePattern = Nothing-    }+  AdmissionWhiteListPattern' {_awlpNamePattern = Nothing} + -- | An image name pattern to whitelist, in the form -- \`registry\/path\/to\/image\`. This supports a trailing \`*\` as a -- wildcard, but this is allowed only in text after the \`registry\/\`@@ -338,12 +411,15 @@ -- admission rules and will never block a pod creation. -- -- /See:/ 'admissionRule' smart constructor.-data AdmissionRule = AdmissionRule'+data AdmissionRule =+  AdmissionRule'     { _arEnforcementMode       :: !(Maybe AdmissionRuleEnforcementMode)     , _arEvaluationMode        :: !(Maybe AdmissionRuleEvaluationMode)     , _arRequireAttestationsBy :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdmissionRule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -356,12 +432,13 @@ admissionRule     :: AdmissionRule admissionRule =-    AdmissionRule'+  AdmissionRule'     { _arEnforcementMode = Nothing     , _arEvaluationMode = Nothing     , _arRequireAttestationsBy = Nothing     } + -- | Required. The action when a pod creation is denied by the admission -- rule. arEnforcementMode :: Lens' AdmissionRule (Maybe AdmissionRuleEnforcementMode)@@ -410,10 +487,13 @@ -- | Request message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsRequest' smart constructor.-newtype TestIAMPermissionsRequest = TestIAMPermissionsRequest'+newtype TestIAMPermissionsRequest =+  TestIAMPermissionsRequest'     { _tiprPermissions :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -422,10 +502,9 @@ testIAMPermissionsRequest     :: TestIAMPermissionsRequest testIAMPermissionsRequest =-    TestIAMPermissionsRequest'-    { _tiprPermissions = Nothing-    }+  TestIAMPermissionsRequest' {_tiprPermissions = Nothing} + -- | The set of permissions to check for the \`resource\`. Permissions with -- wildcards (such as \'*\' or \'storage.*\') are not allowed. For more -- information see [IAM@@ -468,12 +547,15 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'iamPolicy' smart constructor.-data IAMPolicy = IAMPolicy'+data IAMPolicy =+  IAMPolicy'     { _ipEtag     :: !(Maybe Bytes)     , _ipVersion  :: !(Maybe (Textual Int32))     , _ipBindings :: !(Maybe [Binding])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'IAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -486,12 +568,9 @@ iamPolicy     :: IAMPolicy iamPolicy =-    IAMPolicy'-    { _ipEtag = Nothing-    , _ipVersion = Nothing-    , _ipBindings = Nothing-    }+  IAMPolicy' {_ipEtag = Nothing, _ipVersion = Nothing, _ipBindings = Nothing} + -- | \`etag\` is used for optimistic concurrency control as a way to help -- prevent simultaneous updates of a policy from overwriting each other. It -- is strongly suggested that systems make use of the \`etag\` in the@@ -536,20 +615,26 @@                   ("version" .=) <$> _ipVersion,                   ("bindings" .=) <$> _ipBindings]) --- | An attestator public key that will be used to verify attestations signed+-- | An attestor public key that will be used to verify attestations signed -- by this attestor. -- -- /See:/ 'attestorPublicKey' smart constructor.-data AttestorPublicKey = AttestorPublicKey'-    { _apkAsciiArmoredPgpPublicKey :: !(Maybe Text)+data AttestorPublicKey =+  AttestorPublicKey'+    { _apkPkixPublicKey            :: !(Maybe PkixPublicKey)+    , _apkAsciiArmoredPgpPublicKey :: !(Maybe Text)     , _apkId                       :: !(Maybe Text)     , _apkComment                  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttestorPublicKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'apkPkixPublicKey'+-- -- * 'apkAsciiArmoredPgpPublicKey' -- -- * 'apkId'@@ -558,23 +643,42 @@ attestorPublicKey     :: AttestorPublicKey attestorPublicKey =-    AttestorPublicKey'-    { _apkAsciiArmoredPgpPublicKey = Nothing+  AttestorPublicKey'+    { _apkPkixPublicKey = Nothing+    , _apkAsciiArmoredPgpPublicKey = Nothing     , _apkId = Nothing     , _apkComment = Nothing     } ++-- | A raw PKIX SubjectPublicKeyInfo format public key. NOTE: \`id\` may be+-- explicitly provided by the caller when using this type of public key,+-- but it MUST be a valid RFC3986 URI. If \`id\` is left blank, a default+-- one will be computed based on the digest of the DER encoding of the+-- public key.+apkPkixPublicKey :: Lens' AttestorPublicKey (Maybe PkixPublicKey)+apkPkixPublicKey+  = lens _apkPkixPublicKey+      (\ s a -> s{_apkPkixPublicKey = a})+ -- | ASCII-armored representation of a PGP public key, as the entire output -- by the command \`gpg --export --armor foo\'example.com\` (either LF or--- CRLF line endings).+-- CRLF line endings). When using this field, \`id\` should be left blank.+-- The BinAuthz API handlers will calculate the ID and fill it in+-- automatically. BinAuthz computes this ID as the OpenPGP RFC4880 V4+-- fingerprint, represented as upper-case hex. If \`id\` is provided by the+-- caller, it will be overwritten by the API-calculated ID. apkAsciiArmoredPgpPublicKey :: Lens' AttestorPublicKey (Maybe Text) apkAsciiArmoredPgpPublicKey   = lens _apkAsciiArmoredPgpPublicKey       (\ s a -> s{_apkAsciiArmoredPgpPublicKey = a}) --- | Output only. This field will be overwritten with key ID information, for--- example, an identifier extracted from a PGP public key. This field may--- not be updated.+-- | The ID of this public key. Signatures verified by BinAuthz must include+-- the ID of the public key that can be used to verify them, and that ID+-- must match the contents of this field exactly. Additional restrictions+-- on this field can be imposed based on which public key type is+-- encapsulated. See the documentation on \`public_key\` cases below for+-- details. apkId :: Lens' AttestorPublicKey (Maybe Text) apkId = lens _apkId (\ s a -> s{_apkId = a}) @@ -588,14 +692,17 @@           = withObject "AttestorPublicKey"               (\ o ->                  AttestorPublicKey' <$>-                   (o .:? "asciiArmoredPgpPublicKey") <*> (o .:? "id")+                   (o .:? "pkixPublicKey") <*>+                     (o .:? "asciiArmoredPgpPublicKey")+                     <*> (o .:? "id")                      <*> (o .:? "comment"))  instance ToJSON AttestorPublicKey where         toJSON AttestorPublicKey'{..}           = object               (catMaybes-                 [("asciiArmoredPgpPublicKey" .=) <$>+                 [("pkixPublicKey" .=) <$> _apkPkixPublicKey,+                  ("asciiArmoredPgpPublicKey" .=) <$>                     _apkAsciiArmoredPgpPublicKey,                   ("id" .=) <$> _apkId,                   ("comment" .=) <$> _apkComment])@@ -603,10 +710,13 @@ -- | Response message for \`TestIamPermissions\` method. -- -- /See:/ 'testIAMPermissionsResponse' smart constructor.-newtype TestIAMPermissionsResponse = TestIAMPermissionsResponse'+newtype TestIAMPermissionsResponse =+  TestIAMPermissionsResponse'     { _tiamprPermissions :: Maybe [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestIAMPermissionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -615,10 +725,9 @@ testIAMPermissionsResponse     :: TestIAMPermissionsResponse testIAMPermissionsResponse =-    TestIAMPermissionsResponse'-    { _tiamprPermissions = Nothing-    }+  TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]@@ -644,15 +753,19 @@ -- | A policy for container image binary authorization. -- -- /See:/ 'policy' smart constructor.-data Policy = Policy'+data Policy =+  Policy'     { _pDefaultAdmissionRule       :: !(Maybe AdmissionRule)     , _pAdmissionWhiteListPatterns :: !(Maybe [AdmissionWhiteListPattern])     , _pClusterAdmissionRules      :: !(Maybe PolicyClusterAdmissionRules)     , _pUpdateTime                 :: !(Maybe DateTime')     , _pName                       :: !(Maybe Text)+    , _pGlobalPolicyEvaluationMode :: !(Maybe PolicyGlobalPolicyEvaluationMode)     , _pDescription                :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -667,21 +780,26 @@ -- -- * 'pName' --+-- * 'pGlobalPolicyEvaluationMode'+-- -- * 'pDescription' policy     :: Policy policy =-    Policy'+  Policy'     { _pDefaultAdmissionRule = Nothing     , _pAdmissionWhiteListPatterns = Nothing     , _pClusterAdmissionRules = Nothing     , _pUpdateTime = Nothing     , _pName = Nothing+    , _pGlobalPolicyEvaluationMode = Nothing     , _pDescription = Nothing     } --- | Required. Default admission rule for a cluster without a per-cluster--- admission rule.++-- | Required. Default admission rule for a cluster without a per-cluster,+-- per- kubernetes-service-account, or per-istio-service-identity admission+-- rule. pDefaultAdmissionRule :: Lens' Policy (Maybe AdmissionRule) pDefaultAdmissionRule   = lens _pDefaultAdmissionRule@@ -720,6 +838,15 @@ pName :: Lens' Policy (Maybe Text) pName = lens _pName (\ s a -> s{_pName = a}) +-- | Optional. Controls the evaluation of a Google-maintained global+-- admission policy for common system-level images. Images not covered by+-- the global policy will be subject to the project admission policy. This+-- setting has no effect when specified inside a global admission policy.+pGlobalPolicyEvaluationMode :: Lens' Policy (Maybe PolicyGlobalPolicyEvaluationMode)+pGlobalPolicyEvaluationMode+  = lens _pGlobalPolicyEvaluationMode+      (\ s a -> s{_pGlobalPolicyEvaluationMode = a})+ -- | Optional. A descriptive comment. pDescription :: Lens' Policy (Maybe Text) pDescription@@ -735,6 +862,7 @@                      <*> (o .:? "clusterAdmissionRules")                      <*> (o .:? "updateTime")                      <*> (o .:? "name")+                     <*> (o .:? "globalPolicyEvaluationMode")                      <*> (o .:? "description"))  instance ToJSON Policy where@@ -749,6 +877,8 @@                     _pClusterAdmissionRules,                   ("updateTime" .=) <$> _pUpdateTime,                   ("name" .=) <$> _pName,+                  ("globalPolicyEvaluationMode" .=) <$>+                    _pGlobalPolicyEvaluationMode,                   ("description" .=) <$> _pDescription])  -- | Optional. Per-cluster admission rules. Cluster spec format:@@ -759,10 +889,13 @@ -- https:\/\/cloud.google.com\/container-engine\/reference\/rest\/v1\/projects.zones.clusters. -- -- /See:/ 'policyClusterAdmissionRules' smart constructor.-newtype PolicyClusterAdmissionRules = PolicyClusterAdmissionRules'+newtype PolicyClusterAdmissionRules =+  PolicyClusterAdmissionRules'     { _pcarAddtional :: HashMap Text AdmissionRule-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyClusterAdmissionRules' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -772,10 +905,9 @@     :: HashMap Text AdmissionRule -- ^ 'pcarAddtional'     -> PolicyClusterAdmissionRules policyClusterAdmissionRules pPcarAddtional_ =-    PolicyClusterAdmissionRules'-    { _pcarAddtional = _Coerce # pPcarAddtional_-    }+  PolicyClusterAdmissionRules' {_pcarAddtional = _Coerce # pPcarAddtional_} + pcarAddtional :: Lens' PolicyClusterAdmissionRules (HashMap Text AdmissionRule) pcarAddtional   = lens _pcarAddtional@@ -795,13 +927,16 @@ -- attestor cannot be modified except where indicated. -- -- /See:/ 'attestor' smart constructor.-data Attestor = Attestor'+data Attestor =+  Attestor'     { _aUserOwnedDrydockNote :: !(Maybe UserOwnedDrydockNote)     , _aUpdateTime           :: !(Maybe DateTime')     , _aName                 :: !(Maybe Text)     , _aDescription          :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Attestor' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -816,13 +951,14 @@ attestor     :: Attestor attestor =-    Attestor'+  Attestor'     { _aUserOwnedDrydockNote = Nothing     , _aUpdateTime = Nothing     , _aName = Nothing     , _aDescription = Nothing     } + -- | A Drydock ATTESTATION_AUTHORITY Note, created by the user. aUserOwnedDrydockNote :: Lens' Attestor (Maybe UserOwnedDrydockNote) aUserOwnedDrydockNote@@ -869,12 +1005,15 @@ -- | Associates \`members\` with a \`role\`. -- -- /See:/ 'binding' smart constructor.-data Binding = Binding'+data Binding =+  Binding'     { _bMembers   :: !(Maybe [Text])     , _bRole      :: !(Maybe Text)     , _bCondition :: !(Maybe Expr)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Binding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -887,12 +1026,9 @@ binding     :: Binding binding =-    Binding'-    { _bMembers = Nothing-    , _bRole = Nothing-    , _bCondition = Nothing-    }+  Binding' {_bMembers = Nothing, _bRole = Nothing, _bCondition = Nothing} + -- | Specifies the identities requesting access for a Cloud Platform -- resource. \`members\` can have the following values: * \`allUsers\`: A -- special identifier that represents anyone who is on the internet; with@@ -904,8 +1040,8 @@ -- that represents a service account. For example, -- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An -- email address that represents a Google group. For example,--- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain--- name that represents all the users of that domain. For example,+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain+-- (primary) that represents all the users of that domain. For example, -- \`google.com\` or \`example.com\`. bMembers :: Lens' Binding [Text] bMembers@@ -918,10 +1054,9 @@ bRole :: Lens' Binding (Maybe Text) bRole = lens _bRole (\ s a -> s{_bRole = a}) --- | Unimplemented. The condition that is associated with this binding. NOTE:--- an unsatisfied condition will not allow user access via current binding.--- Different bindings, including their conditions, are examined--- independently.+-- | The condition that is associated with this binding. NOTE: An unsatisfied+-- condition will not allow user access via current binding. Different+-- bindings, including their conditions, are examined independently. bCondition :: Lens' Binding (Maybe Expr) bCondition   = lens _bCondition (\ s a -> s{_bCondition = a})

@@ -23,10 +23,14 @@ data AdmissionRuleEnforcementMode     = EnforcementModeUnspecified       -- ^ @ENFORCEMENT_MODE_UNSPECIFIED@-      -- Mandatory.+      -- Do not use.     | EnforcedBlockAndAuditLog       -- ^ @ENFORCED_BLOCK_AND_AUDIT_LOG@       -- Enforce the admission rule by blocking the pod creation.+    | DryrunAuditLogOnly+      -- ^ @DRYRUN_AUDIT_LOG_ONLY@+      -- Dryrun mode: Audit logging only. This will allow the pod creation as if+      -- the admission request had specified break-glass.       deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable AdmissionRuleEnforcementMode@@ -35,12 +39,14 @@     parseQueryParam = \case         "ENFORCEMENT_MODE_UNSPECIFIED" -> Right EnforcementModeUnspecified         "ENFORCED_BLOCK_AND_AUDIT_LOG" -> Right EnforcedBlockAndAuditLog+        "DRYRUN_AUDIT_LOG_ONLY" -> Right DryrunAuditLogOnly         x -> Left ("Unable to parse AdmissionRuleEnforcementMode from: " <> x)  instance ToHttpApiData AdmissionRuleEnforcementMode where     toQueryParam = \case         EnforcementModeUnspecified -> "ENFORCEMENT_MODE_UNSPECIFIED"         EnforcedBlockAndAuditLog -> "ENFORCED_BLOCK_AND_AUDIT_LOG"+        DryrunAuditLogOnly -> "DRYRUN_AUDIT_LOG_ONLY"  instance FromJSON AdmissionRuleEnforcementMode where     parseJSON = parseJSONText "AdmissionRuleEnforcementMode"@@ -48,11 +54,130 @@ instance ToJSON AdmissionRuleEnforcementMode where     toJSON = toJSONText +-- | Optional. Controls the evaluation of a Google-maintained global+-- admission policy for common system-level images. Images not covered by+-- the global policy will be subject to the project admission policy. This+-- setting has no effect when specified inside a global admission policy.+data PolicyGlobalPolicyEvaluationMode+    = GlobalPolicyEvaluationModeUnspecified+      -- ^ @GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED@+      -- Not specified: DISABLE is assumed.+    | Enable+      -- ^ @ENABLE@+      -- Enables global policy evaluation.+    | Disable+      -- ^ @DISABLE@+      -- Disables global policy evaluation.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable PolicyGlobalPolicyEvaluationMode++instance FromHttpApiData PolicyGlobalPolicyEvaluationMode where+    parseQueryParam = \case+        "GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED" -> Right GlobalPolicyEvaluationModeUnspecified+        "ENABLE" -> Right Enable+        "DISABLE" -> Right Disable+        x -> Left ("Unable to parse PolicyGlobalPolicyEvaluationMode from: " <> x)++instance ToHttpApiData PolicyGlobalPolicyEvaluationMode where+    toQueryParam = \case+        GlobalPolicyEvaluationModeUnspecified -> "GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED"+        Enable -> "ENABLE"+        Disable -> "DISABLE"++instance FromJSON PolicyGlobalPolicyEvaluationMode where+    parseJSON = parseJSONText "PolicyGlobalPolicyEvaluationMode"++instance ToJSON PolicyGlobalPolicyEvaluationMode where+    toJSON = toJSONText++-- | The signature algorithm used to verify a message against a signature+-- using this key. These signature algorithm must match the structure and+-- any object identifiers encoded in \`public_key_pem\` (i.e. this+-- algorithm must match that of the public key).+data PkixPublicKeySignatureAlgorithm+    = SignatureAlgorithmUnspecified+      -- ^ @SIGNATURE_ALGORITHM_UNSPECIFIED@+      -- Not specified.+    | RsaPss2048SHA256+      -- ^ @RSA_PSS_2048_SHA256@+      -- RSASSA-PSS 2048 bit key with a SHA256 digest.+    | RsaPss3072SHA256+      -- ^ @RSA_PSS_3072_SHA256@+      -- RSASSA-PSS 3072 bit key with a SHA256 digest.+    | RsaPss4096SHA256+      -- ^ @RSA_PSS_4096_SHA256@+      -- RSASSA-PSS 4096 bit key with a SHA256 digest.+    | RsaPss4096SHA512+      -- ^ @RSA_PSS_4096_SHA512@+      -- RSASSA-PSS 4096 bit key with a SHA512 digest.+    | RsaSignPKCS12048SHA256+      -- ^ @RSA_SIGN_PKCS1_2048_SHA256@+      -- RSASSA-PKCS1-v1_5 with a 2048 bit key and a SHA256 digest.+    | RsaSignPKCS13072SHA256+      -- ^ @RSA_SIGN_PKCS1_3072_SHA256@+      -- RSASSA-PKCS1-v1_5 with a 3072 bit key and a SHA256 digest.+    | RsaSignPKCS14096SHA256+      -- ^ @RSA_SIGN_PKCS1_4096_SHA256@+      -- RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA256 digest.+    | RsaSignPKCS14096SHA512+      -- ^ @RSA_SIGN_PKCS1_4096_SHA512@+      -- RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA512 digest.+    | EcdsaP256SHA256+      -- ^ @ECDSA_P256_SHA256@+      -- ECDSA on the NIST P-256 curve with a SHA256 digest.+    | EcdsaP384SHA384+      -- ^ @ECDSA_P384_SHA384@+      -- ECDSA on the NIST P-384 curve with a SHA384 digest.+    | EcdsaP521SHA512+      -- ^ @ECDSA_P521_SHA512@+      -- ECDSA on the NIST P-521 curve with a SHA512 digest.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable PkixPublicKeySignatureAlgorithm++instance FromHttpApiData PkixPublicKeySignatureAlgorithm where+    parseQueryParam = \case+        "SIGNATURE_ALGORITHM_UNSPECIFIED" -> Right SignatureAlgorithmUnspecified+        "RSA_PSS_2048_SHA256" -> Right RsaPss2048SHA256+        "RSA_PSS_3072_SHA256" -> Right RsaPss3072SHA256+        "RSA_PSS_4096_SHA256" -> Right RsaPss4096SHA256+        "RSA_PSS_4096_SHA512" -> Right RsaPss4096SHA512+        "RSA_SIGN_PKCS1_2048_SHA256" -> Right RsaSignPKCS12048SHA256+        "RSA_SIGN_PKCS1_3072_SHA256" -> Right RsaSignPKCS13072SHA256+        "RSA_SIGN_PKCS1_4096_SHA256" -> Right RsaSignPKCS14096SHA256+        "RSA_SIGN_PKCS1_4096_SHA512" -> Right RsaSignPKCS14096SHA512+        "ECDSA_P256_SHA256" -> Right EcdsaP256SHA256+        "ECDSA_P384_SHA384" -> Right EcdsaP384SHA384+        "ECDSA_P521_SHA512" -> Right EcdsaP521SHA512+        x -> Left ("Unable to parse PkixPublicKeySignatureAlgorithm from: " <> x)++instance ToHttpApiData PkixPublicKeySignatureAlgorithm where+    toQueryParam = \case+        SignatureAlgorithmUnspecified -> "SIGNATURE_ALGORITHM_UNSPECIFIED"+        RsaPss2048SHA256 -> "RSA_PSS_2048_SHA256"+        RsaPss3072SHA256 -> "RSA_PSS_3072_SHA256"+        RsaPss4096SHA256 -> "RSA_PSS_4096_SHA256"+        RsaPss4096SHA512 -> "RSA_PSS_4096_SHA512"+        RsaSignPKCS12048SHA256 -> "RSA_SIGN_PKCS1_2048_SHA256"+        RsaSignPKCS13072SHA256 -> "RSA_SIGN_PKCS1_3072_SHA256"+        RsaSignPKCS14096SHA256 -> "RSA_SIGN_PKCS1_4096_SHA256"+        RsaSignPKCS14096SHA512 -> "RSA_SIGN_PKCS1_4096_SHA512"+        EcdsaP256SHA256 -> "ECDSA_P256_SHA256"+        EcdsaP384SHA384 -> "ECDSA_P384_SHA384"+        EcdsaP521SHA512 -> "ECDSA_P521_SHA512"++instance FromJSON PkixPublicKeySignatureAlgorithm where+    parseJSON = parseJSONText "PkixPublicKeySignatureAlgorithm"++instance ToJSON PkixPublicKeySignatureAlgorithm where+    toJSON = toJSONText+ -- | Required. How this admission rule will be evaluated. data AdmissionRuleEvaluationMode     = EvaluationModeUnspecified       -- ^ @EVALUATION_MODE_UNSPECIFIED@-      -- Mandatory.+      -- Do not use.     | AlwaysAllow       -- ^ @ALWAYS_ALLOW@       -- This rule allows all all pod creations.

@@ -68,7 +68,8 @@ -- is malformed, ALREADY_EXISTS if the attestor already exists. -- -- /See:/ 'projectsAttestorsCreate' smart constructor.-data ProjectsAttestorsCreate = ProjectsAttestorsCreate'+data ProjectsAttestorsCreate =+  ProjectsAttestorsCreate'     { _pacParent         :: !Text     , _pacXgafv          :: !(Maybe Xgafv)     , _pacUploadProtocol :: !(Maybe Text)@@ -77,8 +78,10 @@     , _pacPayload        :: !Attestor     , _pacAttestorId     :: !(Maybe Text)     , _pacCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -103,7 +106,7 @@     -> Attestor -- ^ 'pacPayload'     -> ProjectsAttestorsCreate projectsAttestorsCreate pPacParent_ pPacPayload_ =-    ProjectsAttestorsCreate'+  ProjectsAttestorsCreate'     { _pacParent = pPacParent_     , _pacXgafv = Nothing     , _pacUploadProtocol = Nothing@@ -113,6 +116,7 @@     , _pacAttestorId = Nothing     , _pacCallback = Nothing     }+  -- | Required. The parent of this attestor. pacParent :: Lens' ProjectsAttestorsCreate Text

@@ -59,15 +59,18 @@ -- | Deletes an attestor. Returns NOT_FOUND if the attestor does not exist. -- -- /See:/ 'projectsAttestorsDelete' smart constructor.-data ProjectsAttestorsDelete = ProjectsAttestorsDelete'+data ProjectsAttestorsDelete =+  ProjectsAttestorsDelete'     { _padXgafv          :: !(Maybe Xgafv)     , _padUploadProtocol :: !(Maybe Text)     , _padAccessToken    :: !(Maybe Text)     , _padUploadType     :: !(Maybe Text)     , _padName           :: !Text     , _padCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'padName'     -> ProjectsAttestorsDelete projectsAttestorsDelete pPadName_ =-    ProjectsAttestorsDelete'+  ProjectsAttestorsDelete'     { _padXgafv = Nothing     , _padUploadProtocol = Nothing     , _padAccessToken = Nothing@@ -95,6 +98,7 @@     , _padName = pPadName_     , _padCallback = Nothing     }+  -- | V1 error format. padXgafv :: Lens' ProjectsAttestorsDelete (Maybe Xgafv)

@@ -59,15 +59,18 @@ -- | Gets an attestor. Returns NOT_FOUND if the attestor does not exist. -- -- /See:/ 'projectsAttestorsGet' smart constructor.-data ProjectsAttestorsGet = ProjectsAttestorsGet'+data ProjectsAttestorsGet =+  ProjectsAttestorsGet'     { _pagXgafv          :: !(Maybe Xgafv)     , _pagUploadProtocol :: !(Maybe Text)     , _pagAccessToken    :: !(Maybe Text)     , _pagUploadType     :: !(Maybe Text)     , _pagName           :: !Text     , _pagCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,7 +90,7 @@     :: Text -- ^ 'pagName'     -> ProjectsAttestorsGet projectsAttestorsGet pPagName_ =-    ProjectsAttestorsGet'+  ProjectsAttestorsGet'     { _pagXgafv = Nothing     , _pagUploadProtocol = Nothing     , _pagAccessToken = Nothing@@ -95,6 +98,7 @@     , _pagName = pPagName_     , _pagCallback = Nothing     }+  -- | V1 error format. pagXgafv :: Lens' ProjectsAttestorsGet (Maybe Xgafv)

@@ -61,15 +61,18 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsAttestorsGetIAMPolicy' smart constructor.-data ProjectsAttestorsGetIAMPolicy = ProjectsAttestorsGetIAMPolicy'+data ProjectsAttestorsGetIAMPolicy =+  ProjectsAttestorsGetIAMPolicy'     { _pagipXgafv          :: !(Maybe Xgafv)     , _pagipUploadProtocol :: !(Maybe Text)     , _pagipAccessToken    :: !(Maybe Text)     , _pagipUploadType     :: !(Maybe Text)     , _pagipResource       :: !Text     , _pagipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,7 +92,7 @@     :: Text -- ^ 'pagipResource'     -> ProjectsAttestorsGetIAMPolicy projectsAttestorsGetIAMPolicy pPagipResource_ =-    ProjectsAttestorsGetIAMPolicy'+  ProjectsAttestorsGetIAMPolicy'     { _pagipXgafv = Nothing     , _pagipUploadProtocol = Nothing     , _pagipAccessToken = Nothing@@ -97,6 +100,7 @@     , _pagipResource = pPagipResource_     , _pagipCallback = Nothing     }+  -- | V1 error format. pagipXgafv :: Lens' ProjectsAttestorsGetIAMPolicy (Maybe Xgafv)

@@ -65,7 +65,8 @@ -- | Lists attestors. Returns INVALID_ARGUMENT if the project does not exist. -- -- /See:/ 'projectsAttestorsList' smart constructor.-data ProjectsAttestorsList = ProjectsAttestorsList'+data ProjectsAttestorsList =+  ProjectsAttestorsList'     { _palParent         :: !Text     , _palXgafv          :: !(Maybe Xgafv)     , _palUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _palPageToken      :: !(Maybe Text)     , _palPageSize       :: !(Maybe (Textual Int32))     , _palCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     :: Text -- ^ 'palParent'     -> ProjectsAttestorsList projectsAttestorsList pPalParent_ =-    ProjectsAttestorsList'+  ProjectsAttestorsList'     { _palParent = pPalParent_     , _palXgafv = Nothing     , _palUploadProtocol = Nothing@@ -109,6 +112,7 @@     , _palPageSize = Nothing     , _palCallback = Nothing     }+  -- | Required. The resource name of the project associated with the -- attestors, in the format \`projects\/*\`.

@@ -64,7 +64,8 @@ -- existing policy. -- -- /See:/ 'projectsAttestorsSetIAMPolicy' smart constructor.-data ProjectsAttestorsSetIAMPolicy = ProjectsAttestorsSetIAMPolicy'+data ProjectsAttestorsSetIAMPolicy =+  ProjectsAttestorsSetIAMPolicy'     { _pasipXgafv          :: !(Maybe Xgafv)     , _pasipUploadProtocol :: !(Maybe Text)     , _pasipAccessToken    :: !(Maybe Text)@@ -72,8 +73,10 @@     , _pasipPayload        :: !SetIAMPolicyRequest     , _pasipResource       :: !Text     , _pasipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsSetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -96,7 +99,7 @@     -> Text -- ^ 'pasipResource'     -> ProjectsAttestorsSetIAMPolicy projectsAttestorsSetIAMPolicy pPasipPayload_ pPasipResource_ =-    ProjectsAttestorsSetIAMPolicy'+  ProjectsAttestorsSetIAMPolicy'     { _pasipXgafv = Nothing     , _pasipUploadProtocol = Nothing     , _pasipAccessToken = Nothing@@ -105,6 +108,7 @@     , _pasipResource = pPasipResource_     , _pasipCallback = Nothing     }+  -- | V1 error format. pasipXgafv :: Lens' ProjectsAttestorsSetIAMPolicy (Maybe Xgafv)

@@ -72,7 +72,8 @@ -- warning. -- -- /See:/ 'projectsAttestorsTestIAMPermissions' smart constructor.-data ProjectsAttestorsTestIAMPermissions = ProjectsAttestorsTestIAMPermissions'+data ProjectsAttestorsTestIAMPermissions =+  ProjectsAttestorsTestIAMPermissions'     { _patipXgafv          :: !(Maybe Xgafv)     , _patipUploadProtocol :: !(Maybe Text)     , _patipAccessToken    :: !(Maybe Text)@@ -80,8 +81,10 @@     , _patipPayload        :: !TestIAMPermissionsRequest     , _patipResource       :: !Text     , _patipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     -> Text -- ^ 'patipResource'     -> ProjectsAttestorsTestIAMPermissions projectsAttestorsTestIAMPermissions pPatipPayload_ pPatipResource_ =-    ProjectsAttestorsTestIAMPermissions'+  ProjectsAttestorsTestIAMPermissions'     { _patipXgafv = Nothing     , _patipUploadProtocol = Nothing     , _patipAccessToken = Nothing@@ -114,6 +117,7 @@     , _patipCallback = Nothing     } + -- | V1 error format. patipXgafv :: Lens' ProjectsAttestorsTestIAMPermissions (Maybe Xgafv) patipXgafv@@ -157,7 +161,8 @@       (\ s a -> s{_patipCallback = a})  instance GoogleRequest-         ProjectsAttestorsTestIAMPermissions where+           ProjectsAttestorsTestIAMPermissions+         where         type Rs ProjectsAttestorsTestIAMPermissions =              TestIAMPermissionsResponse         type Scopes ProjectsAttestorsTestIAMPermissions =

@@ -61,7 +61,8 @@ -- | Updates an attestor. Returns NOT_FOUND if the attestor does not exist. -- -- /See:/ 'projectsAttestorsUpdate' smart constructor.-data ProjectsAttestorsUpdate = ProjectsAttestorsUpdate'+data ProjectsAttestorsUpdate =+  ProjectsAttestorsUpdate'     { _pauXgafv          :: !(Maybe Xgafv)     , _pauUploadProtocol :: !(Maybe Text)     , _pauAccessToken    :: !(Maybe Text)@@ -69,8 +70,10 @@     , _pauPayload        :: !Attestor     , _pauName           :: !Text     , _pauCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsAttestorsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +96,7 @@     -> Text -- ^ 'pauName'     -> ProjectsAttestorsUpdate projectsAttestorsUpdate pPauPayload_ pPauName_ =-    ProjectsAttestorsUpdate'+  ProjectsAttestorsUpdate'     { _pauXgafv = Nothing     , _pauUploadProtocol = Nothing     , _pauAccessToken = Nothing@@ -102,6 +105,7 @@     , _pauName = pPauName_     , _pauCallback = Nothing     }+  -- | V1 error format. pauXgafv :: Lens' ProjectsAttestorsUpdate (Maybe Xgafv)

@@ -61,15 +61,18 @@ -- project does not have one. -- -- /See:/ 'projectsGetPolicy' smart constructor.-data ProjectsGetPolicy = ProjectsGetPolicy'+data ProjectsGetPolicy =+  ProjectsGetPolicy'     { _pgpXgafv          :: !(Maybe Xgafv)     , _pgpUploadProtocol :: !(Maybe Text)     , _pgpAccessToken    :: !(Maybe Text)     , _pgpUploadType     :: !(Maybe Text)     , _pgpName           :: !Text     , _pgpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsGetPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,7 +92,7 @@     :: Text -- ^ 'pgpName'     -> ProjectsGetPolicy projectsGetPolicy pPgpName_ =-    ProjectsGetPolicy'+  ProjectsGetPolicy'     { _pgpXgafv = Nothing     , _pgpUploadProtocol = Nothing     , _pgpAccessToken = Nothing@@ -97,6 +100,7 @@     , _pgpName = pPgpName_     , _pgpCallback = Nothing     }+  -- | V1 error format. pgpXgafv :: Lens' ProjectsGetPolicy (Maybe Xgafv)

@@ -61,15 +61,18 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsPolicyGetIAMPolicy' smart constructor.-data ProjectsPolicyGetIAMPolicy = ProjectsPolicyGetIAMPolicy'+data ProjectsPolicyGetIAMPolicy =+  ProjectsPolicyGetIAMPolicy'     { _ppgipXgafv          :: !(Maybe Xgafv)     , _ppgipUploadProtocol :: !(Maybe Text)     , _ppgipAccessToken    :: !(Maybe Text)     , _ppgipUploadType     :: !(Maybe Text)     , _ppgipResource       :: !Text     , _ppgipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsPolicyGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -89,7 +92,7 @@     :: Text -- ^ 'ppgipResource'     -> ProjectsPolicyGetIAMPolicy projectsPolicyGetIAMPolicy pPpgipResource_ =-    ProjectsPolicyGetIAMPolicy'+  ProjectsPolicyGetIAMPolicy'     { _ppgipXgafv = Nothing     , _ppgipUploadProtocol = Nothing     , _ppgipAccessToken = Nothing@@ -97,6 +100,7 @@     , _ppgipResource = pPpgipResource_     , _ppgipCallback = Nothing     }+  -- | V1 error format. ppgipXgafv :: Lens' ProjectsPolicyGetIAMPolicy (Maybe Xgafv)

@@ -64,7 +64,8 @@ -- existing policy. -- -- /See:/ 'projectsPolicySetIAMPolicy' smart constructor.-data ProjectsPolicySetIAMPolicy = ProjectsPolicySetIAMPolicy'+data ProjectsPolicySetIAMPolicy =+  ProjectsPolicySetIAMPolicy'     { _ppsipXgafv          :: !(Maybe Xgafv)     , _ppsipUploadProtocol :: !(Maybe Text)     , _ppsipAccessToken    :: !(Maybe Text)@@ -72,8 +73,10 @@     , _ppsipPayload        :: !SetIAMPolicyRequest     , _ppsipResource       :: !Text     , _ppsipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsPolicySetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -96,7 +99,7 @@     -> Text -- ^ 'ppsipResource'     -> ProjectsPolicySetIAMPolicy projectsPolicySetIAMPolicy pPpsipPayload_ pPpsipResource_ =-    ProjectsPolicySetIAMPolicy'+  ProjectsPolicySetIAMPolicy'     { _ppsipXgafv = Nothing     , _ppsipUploadProtocol = Nothing     , _ppsipAccessToken = Nothing@@ -105,6 +108,7 @@     , _ppsipResource = pPpsipResource_     , _ppsipCallback = Nothing     }+  -- | V1 error format. ppsipXgafv :: Lens' ProjectsPolicySetIAMPolicy (Maybe Xgafv)

@@ -72,7 +72,8 @@ -- warning. -- -- /See:/ 'projectsPolicyTestIAMPermissions' smart constructor.-data ProjectsPolicyTestIAMPermissions = ProjectsPolicyTestIAMPermissions'+data ProjectsPolicyTestIAMPermissions =+  ProjectsPolicyTestIAMPermissions'     { _pptipXgafv          :: !(Maybe Xgafv)     , _pptipUploadProtocol :: !(Maybe Text)     , _pptipAccessToken    :: !(Maybe Text)@@ -80,8 +81,10 @@     , _pptipPayload        :: !TestIAMPermissionsRequest     , _pptipResource       :: !Text     , _pptipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsPolicyTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     -> Text -- ^ 'pptipResource'     -> ProjectsPolicyTestIAMPermissions projectsPolicyTestIAMPermissions pPptipPayload_ pPptipResource_ =-    ProjectsPolicyTestIAMPermissions'+  ProjectsPolicyTestIAMPermissions'     { _pptipXgafv = Nothing     , _pptipUploadProtocol = Nothing     , _pptipAccessToken = Nothing@@ -114,6 +117,7 @@     , _pptipCallback = Nothing     } + -- | V1 error format. pptipXgafv :: Lens' ProjectsPolicyTestIAMPermissions (Maybe Xgafv) pptipXgafv@@ -157,7 +161,8 @@       (\ s a -> s{_pptipCallback = a})  instance GoogleRequest-         ProjectsPolicyTestIAMPermissions where+           ProjectsPolicyTestIAMPermissions+         where         type Rs ProjectsPolicyTestIAMPermissions =              TestIAMPermissionsResponse         type Scopes ProjectsPolicyTestIAMPermissions =

@@ -69,7 +69,8 @@ -- is malformed. -- -- /See:/ 'projectsUpdatePolicy' smart constructor.-data ProjectsUpdatePolicy = ProjectsUpdatePolicy'+data ProjectsUpdatePolicy =+  ProjectsUpdatePolicy'     { _pupXgafv          :: !(Maybe Xgafv)     , _pupUploadProtocol :: !(Maybe Text)     , _pupAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _pupPayload        :: !Policy     , _pupName           :: !Text     , _pupCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsUpdatePolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     -> Text -- ^ 'pupName'     -> ProjectsUpdatePolicy projectsUpdatePolicy pPupPayload_ pPupName_ =-    ProjectsUpdatePolicy'+  ProjectsUpdatePolicy'     { _pupXgafv = Nothing     , _pupUploadProtocol = Nothing     , _pupAccessToken = Nothing@@ -110,6 +113,7 @@     , _pupName = pPupName_     , _pupCallback = Nothing     }+  -- | V1 error format. pupXgafv :: Lens' ProjectsUpdatePolicy (Maybe Xgafv)

@@ -1,5 +1,5 @@ name:                  gogol-binaryauthorization-version:               0.4.0+version:               0.5.0 synopsis:              Google Binary Authorization SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -55,5 +55,5 @@         , Network.Google.BinaryAuthorization.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5