gogol-cloudkms 0.4.0 → 0.5.0

raw patch · 36 files changed

+600/−337 lines, 36 filesdep ~gogol-core

Dependency ranges changed: gogol-core

Files

• README.md +1/−1
• gen/Network/Google/CloudKMS.hs +1/−0
• gen/Network/Google/CloudKMS/Types.hs +7/−1
• gen/Network/Google/CloudKMS/Types/Product.hs +252/−187
• gen/Network/Google/CloudKMS/Types/Sum.hs +6/−0
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/Get.hs +9/−4
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Create.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Create.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricDecrypt.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricSign.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Create.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Destroy.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Get.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/GetPublicKey.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/List.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Patch.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Restore.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Decrypt.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Encrypt.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Get.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/GetIAMPolicy.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/List.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Patch.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/SetIAMPolicy.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/TestIAMPermissions.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/UpdatePrimaryVersion.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Get.hs +9/−4
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/GetIAMPolicy.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/GetIAMPolicy.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/SetIAMPolicy.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/TestIAMPermissions.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/List.hs +9/−4
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/SetIAMPolicy.hs +11/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/TestIAMPermissions.hs +12/−5
• gen/Network/Google/Resource/CloudKMS/Projects/Locations/List.hs +9/−4
• gogol-cloudkms.cabal +2/−2

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

@@ -24,6 +24,7 @@      -- * OAuth Scopes     , cloudPlatformScope+    , cloudKMSScope      -- * API Declaration     , CloudKMSAPI

@@ -21,6 +21,7 @@      -- * OAuth Scopes     , cloudPlatformScope+    , cloudKMSScope      -- * AsymmetricDecryptResponse     , AsymmetricDecryptResponse@@ -284,4 +285,9 @@  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy++-- | View and manage your keys and secrets stored in Cloud Key Management+-- Service+cloudKMSScope :: Proxy '["https://www.googleapis.com/auth/cloudkms"]+cloudKMSScope = Proxy

@@ -23,10 +23,13 @@ -- | Response message for KeyManagementService.AsymmetricDecrypt. -- -- /See:/ 'asymmetricDecryptResponse' smart constructor.-newtype AsymmetricDecryptResponse = AsymmetricDecryptResponse'+newtype AsymmetricDecryptResponse =+  AsymmetricDecryptResponse'     { _adrPlaintext :: Maybe Bytes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AsymmetricDecryptResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -34,11 +37,9 @@ -- * 'adrPlaintext' asymmetricDecryptResponse     :: AsymmetricDecryptResponse-asymmetricDecryptResponse =-    AsymmetricDecryptResponse'-    { _adrPlaintext = Nothing-    }+asymmetricDecryptResponse = AsymmetricDecryptResponse' {_adrPlaintext = Nothing} + -- | The decrypted data originally encrypted with the matching public key. adrPlaintext :: Lens' AsymmetricDecryptResponse (Maybe ByteString) adrPlaintext@@ -59,11 +60,14 @@ -- | Response message for KeyManagementService.Encrypt. -- -- /See:/ 'encryptResponse' smart constructor.-data EncryptResponse = EncryptResponse'+data EncryptResponse =+  EncryptResponse'     { _erName       :: !(Maybe Text)     , _erCiphertext :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EncryptResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +77,9 @@ -- * 'erCiphertext' encryptResponse     :: EncryptResponse-encryptResponse =-    EncryptResponse'-    { _erName = Nothing-    , _erCiphertext = Nothing-    }+encryptResponse = EncryptResponse' {_erName = Nothing, _erCiphertext = Nothing} + -- | The resource name of the CryptoKeyVersion used in encryption. erName :: Lens' EncryptResponse (Maybe Text) erName = lens _erName (\ s a -> s{_erName = a})@@ -107,10 +108,13 @@ -- given location. -- -- /See:/ 'locationSchema' smart constructor.-newtype LocationSchema = LocationSchema'+newtype LocationSchema =+  LocationSchema'     { _lsAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocationSchema' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,10 +124,9 @@     :: HashMap Text JSONValue -- ^ 'lsAddtional'     -> LocationSchema locationSchema pLsAddtional_ =-    LocationSchema'-    { _lsAddtional = _Coerce # pLsAddtional_-    }+  LocationSchema' {_lsAddtional = _Coerce # pLsAddtional_} + -- | Properties of the object. Contains field \'type with type URL. lsAddtional :: Lens' LocationSchema (HashMap Text JSONValue) lsAddtional@@ -157,11 +160,14 @@ -- DATA_WRITE logging. -- -- /See:/ 'auditConfig' smart constructor.-data AuditConfig = AuditConfig'+data AuditConfig =+  AuditConfig'     { _acService         :: !(Maybe Text)     , _acAuditLogConfigs :: !(Maybe [AuditLogConfig])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,12 +177,9 @@ -- * 'acAuditLogConfigs' auditConfig     :: AuditConfig-auditConfig =-    AuditConfig'-    { _acService = Nothing-    , _acAuditLogConfigs = Nothing-    }+auditConfig = AuditConfig' {_acService = Nothing, _acAuditLogConfigs = Nothing} + -- | Specifies a service that will be enabled for audit logging. For example, -- \`storage.googleapis.com\`, \`cloudsql.googleapis.com\`. \`allServices\` -- is a special value that covers all services.@@ -212,13 +215,16 @@ -- 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:@@ -233,13 +239,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)@@ -286,11 +293,14 @@ -- | The response message for Locations.ListLocations. -- -- /See:/ 'listLocationsResponse' smart constructor.-data ListLocationsResponse = ListLocationsResponse'+data ListLocationsResponse =+  ListLocationsResponse'     { _llrNextPageToken :: !(Maybe Text)     , _llrLocations     :: !(Maybe [Location])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLocationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -301,11 +311,9 @@ listLocationsResponse     :: ListLocationsResponse listLocationsResponse =-    ListLocationsResponse'-    { _llrNextPageToken = Nothing-    , _llrLocations = Nothing-    }+  ListLocationsResponse' {_llrNextPageToken = Nothing, _llrLocations = Nothing} + -- | The standard List next-page token. llrNextPageToken :: Lens' ListLocationsResponse (Maybe Text) llrNextPageToken@@ -337,12 +345,15 @@ -- | Response message for KeyManagementService.ListKeyRings. -- -- /See:/ 'listKeyRingsResponse' smart constructor.-data ListKeyRingsResponse = ListKeyRingsResponse'+data ListKeyRingsResponse =+  ListKeyRingsResponse'     { _lkrrNextPageToken :: !(Maybe Text)     , _lkrrTotalSize     :: !(Maybe (Textual Int32))     , _lkrrKeyRings      :: !(Maybe [KeyRing])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListKeyRingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -355,12 +366,13 @@ listKeyRingsResponse     :: ListKeyRingsResponse listKeyRingsResponse =-    ListKeyRingsResponse'+  ListKeyRingsResponse'     { _lkrrNextPageToken = Nothing     , _lkrrTotalSize = Nothing     , _lkrrKeyRings = Nothing     } + -- | A token to retrieve next page of results. Pass this value in -- ListKeyRingsRequest.page_token to retrieve the next page of results. lkrrNextPageToken :: Lens' ListKeyRingsResponse (Maybe Text)@@ -401,10 +413,13 @@ -- | Response message for KeyManagementService.AsymmetricSign. -- -- /See:/ 'asymmetricSignResponse' smart constructor.-newtype AsymmetricSignResponse = AsymmetricSignResponse'+newtype AsymmetricSignResponse =+  AsymmetricSignResponse'     { _asrSignature :: Maybe Bytes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AsymmetricSignResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -412,11 +427,9 @@ -- * 'asrSignature' asymmetricSignResponse     :: AsymmetricSignResponse-asymmetricSignResponse =-    AsymmetricSignResponse'-    { _asrSignature = Nothing-    }+asymmetricSignResponse = AsymmetricSignResponse' {_asrSignature = Nothing} + -- | The created signature. asrSignature :: Lens' AsymmetricSignResponse (Maybe ByteString) asrSignature@@ -437,11 +450,14 @@ -- | A KeyRing is a toplevel logical grouping of CryptoKeys. -- -- /See:/ 'keyRing' smart constructor.-data KeyRing = KeyRing'+data KeyRing =+  KeyRing'     { _krName       :: !(Maybe Text)     , _krCreateTime :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'KeyRing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -451,12 +467,9 @@ -- * 'krCreateTime' keyRing     :: KeyRing-keyRing =-    KeyRing'-    { _krName = Nothing-    , _krCreateTime = Nothing-    }+keyRing = KeyRing' {_krName = Nothing, _krCreateTime = Nothing} + -- | Output only. The resource name for the KeyRing in the format -- \`projects\/*\/locations\/*\/keyRings\/*\`. krName :: Lens' KeyRing (Maybe Text)@@ -485,15 +498,17 @@ -- -- /See:/ 'destroyCryptoKeyVersionRequest' smart constructor. data DestroyCryptoKeyVersionRequest =-    DestroyCryptoKeyVersionRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  DestroyCryptoKeyVersionRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DestroyCryptoKeyVersionRequest' with the minimum fields required to make a request. -- destroyCryptoKeyVersionRequest     :: DestroyCryptoKeyVersionRequest destroyCryptoKeyVersionRequest = DestroyCryptoKeyVersionRequest' + instance FromJSON DestroyCryptoKeyVersionRequest          where         parseJSON@@ -506,14 +521,17 @@ -- | A resource that represents Google Cloud Platform location. -- -- /See:/ 'location' smart constructor.-data Location = Location'+data Location =+  Location'     { _lName        :: !(Maybe Text)     , _lMetadata    :: !(Maybe LocationSchema)     , _lDisplayName :: !(Maybe Text)     , _lLabels      :: !(Maybe LocationLabels)     , _lLocationId  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Location' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -530,7 +548,7 @@ location     :: Location location =-    Location'+  Location'     { _lName = Nothing     , _lMetadata = Nothing     , _lDisplayName = Nothing@@ -538,6 +556,7 @@     , _lLocationId = Nothing     } + -- | Resource name for the location, which may vary between implementations. -- For example: \`\"projects\/example-project\/locations\/us-east1\"\` lName :: Lens' Location (Maybe Text)@@ -588,10 +607,13 @@ -- | Request message for KeyManagementService.AsymmetricSign. -- -- /See:/ 'asymmetricSignRequest' smart constructor.-newtype AsymmetricSignRequest = AsymmetricSignRequest'+newtype AsymmetricSignRequest =+  AsymmetricSignRequest'     { _asrDigest :: Maybe Digest-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AsymmetricSignRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -599,11 +621,9 @@ -- * 'asrDigest' asymmetricSignRequest     :: AsymmetricSignRequest-asymmetricSignRequest =-    AsymmetricSignRequest'-    { _asrDigest = Nothing-    }+asymmetricSignRequest = AsymmetricSignRequest' {_asrDigest = Nothing} + -- | Required. The digest of the data to sign. The digest must be produced -- with the same digest algorithm as specified by the key version\'s -- algorithm.@@ -623,11 +643,14 @@ -- | The public key for a given CryptoKeyVersion. Obtained via GetPublicKey. -- -- /See:/ 'publicKey' smart constructor.-data PublicKey = PublicKey'+data PublicKey =+  PublicKey'     { _pkPem       :: !(Maybe Text)     , _pkAlgorithm :: !(Maybe PublicKeyAlgorithm)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'PublicKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -637,12 +660,9 @@ -- * 'pkAlgorithm' publicKey     :: PublicKey-publicKey =-    PublicKey'-    { _pkPem = Nothing-    , _pkAlgorithm = Nothing-    }+publicKey = PublicKey' {_pkPem = Nothing, _pkAlgorithm = Nothing} + -- | The public key, encoded in PEM format. For more information, see the -- [RFC 7468](https:\/\/tools.ietf.org\/html\/rfc7468) sections for -- [General@@ -673,10 +693,13 @@ -- | Response message for KeyManagementService.Decrypt. -- -- /See:/ 'decryptResponse' smart constructor.-newtype DecryptResponse = DecryptResponse'+newtype DecryptResponse =+  DecryptResponse'     { _drPlaintext :: Maybe Bytes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DecryptResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -684,11 +707,9 @@ -- * 'drPlaintext' decryptResponse     :: DecryptResponse-decryptResponse =-    DecryptResponse'-    { _drPlaintext = Nothing-    }+decryptResponse = DecryptResponse' {_drPlaintext = Nothing} + -- | The decrypted data originally supplied in EncryptRequest.plaintext. drPlaintext :: Lens' DecryptResponse (Maybe ByteString) drPlaintext@@ -710,11 +731,14 @@ -- automatically as a result of auto-rotation. -- -- /See:/ 'cryptoKeyVersionTemplate' smart constructor.-data CryptoKeyVersionTemplate = CryptoKeyVersionTemplate'+data CryptoKeyVersionTemplate =+  CryptoKeyVersionTemplate'     { _ckvtAlgorithm       :: !(Maybe CryptoKeyVersionTemplateAlgorithm)     , _ckvtProtectionLevel :: !(Maybe CryptoKeyVersionTemplateProtectionLevel)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CryptoKeyVersionTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -725,11 +749,10 @@ cryptoKeyVersionTemplate     :: CryptoKeyVersionTemplate cryptoKeyVersionTemplate =-    CryptoKeyVersionTemplate'-    { _ckvtAlgorithm = Nothing-    , _ckvtProtectionLevel = Nothing-    }+  CryptoKeyVersionTemplate'+    {_ckvtAlgorithm = Nothing, _ckvtProtectionLevel = Nothing} + -- | Required. Algorithm to use when creating a CryptoKeyVersion based on -- this template. For backwards compatibility, GOOGLE_SYMMETRIC_ENCRYPTION -- is implied if both this field is omitted and CryptoKey.purpose is@@ -763,11 +786,14 @@ -- | Request message for \`SetIamPolicy\` method. -- -- /See:/ 'setIAMPolicyRequest' smart constructor.-data SetIAMPolicyRequest = SetIAMPolicyRequest'+data SetIAMPolicyRequest =+  SetIAMPolicyRequest'     { _siprUpdateMask :: !(Maybe GFieldMask)     , _siprPolicy     :: !(Maybe Policy)-    } 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:@@ -778,11 +804,9 @@ setIAMPolicyRequest     :: SetIAMPolicyRequest setIAMPolicyRequest =-    SetIAMPolicyRequest'-    { _siprUpdateMask = Nothing-    , _siprPolicy = Nothing-    }+  SetIAMPolicyRequest' {_siprUpdateMask = Nothing, _siprPolicy = Nothing} + -- | OPTIONAL: A FieldMask specifying which fields of the policy to modify. -- Only the fields in the mask will be modified. If no mask is provided, -- the following default mask is used: paths: \"bindings, etag\" This field@@ -818,10 +842,13 @@ -- Keys](\/kms\/docs\/labeling-keys). -- -- /See:/ 'cryptoKeyLabels' smart constructor.-newtype CryptoKeyLabels = CryptoKeyLabels'+newtype CryptoKeyLabels =+  CryptoKeyLabels'     { _cklAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CryptoKeyLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -831,10 +858,9 @@     :: HashMap Text Text -- ^ 'cklAddtional'     -> CryptoKeyLabels cryptoKeyLabels pCklAddtional_ =-    CryptoKeyLabels'-    { _cklAddtional = _Coerce # pCklAddtional_-    }+  CryptoKeyLabels' {_cklAddtional = _Coerce # pCklAddtional_} + cklAddtional :: Lens' CryptoKeyLabels (HashMap Text Text) cklAddtional   = lens _cklAddtional (\ s a -> s{_cklAddtional = a})@@ -853,7 +879,8 @@ -- represent the actual key material used in cryptographic operations. -- -- /See:/ 'cryptoKey' smart constructor.-data CryptoKey = CryptoKey'+data CryptoKey =+  CryptoKey'     { _ckVersionTemplate  :: !(Maybe CryptoKeyVersionTemplate)     , _ckPurpose          :: !(Maybe CryptoKeyPurpose)     , _ckRotationPeriod   :: !(Maybe GDuration)@@ -862,8 +889,10 @@     , _ckLabels           :: !(Maybe CryptoKeyLabels)     , _ckNextRotationTime :: !(Maybe DateTime')     , _ckCreateTime       :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CryptoKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -886,7 +915,7 @@ cryptoKey     :: CryptoKey cryptoKey =-    CryptoKey'+  CryptoKey'     { _ckVersionTemplate = Nothing     , _ckPurpose = Nothing     , _ckRotationPeriod = Nothing@@ -897,6 +926,7 @@     , _ckCreateTime = Nothing     } + -- | A template describing settings for new CryptoKeyVersion instances. The -- properties of new CryptoKeyVersion instances created by either -- CreateCryptoKeyVersion or auto-rotation are controlled by this template.@@ -986,11 +1016,14 @@ -- | Request message for KeyManagementService.Decrypt. -- -- /See:/ 'decryptRequest' smart constructor.-data DecryptRequest = DecryptRequest'+data DecryptRequest =+  DecryptRequest'     { _drAdditionalAuthenticatedData :: !(Maybe Bytes)     , _drCiphertext                  :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DecryptRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1001,11 +1034,10 @@ decryptRequest     :: DecryptRequest decryptRequest =-    DecryptRequest'-    { _drAdditionalAuthenticatedData = Nothing-    , _drCiphertext = Nothing-    }+  DecryptRequest'+    {_drAdditionalAuthenticatedData = Nothing, _drCiphertext = Nothing} + -- | Optional data that must match the data originally supplied in -- EncryptRequest.additional_authenticated_data. drAdditionalAuthenticatedData :: Lens' DecryptRequest (Maybe ByteString)@@ -1037,14 +1069,19 @@                     _drAdditionalAuthenticatedData,                   ("ciphertext" .=) <$> _drCiphertext]) --- | Contains an HSM-generated attestation about a key operation.+-- | Contains an HSM-generated attestation about a key operation. For more+-- information, see [Verifying attestations]+-- (https:\/\/cloud.google.com\/kms\/docs\/attest-key). -- -- /See:/ 'keyOperationAttestation' smart constructor.-data KeyOperationAttestation = KeyOperationAttestation'+data KeyOperationAttestation =+  KeyOperationAttestation'     { _koaFormat  :: !(Maybe KeyOperationAttestationFormat)     , _koaContent :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'KeyOperationAttestation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1055,11 +1092,9 @@ keyOperationAttestation     :: KeyOperationAttestation keyOperationAttestation =-    KeyOperationAttestation'-    { _koaFormat = Nothing-    , _koaContent = Nothing-    }+  KeyOperationAttestation' {_koaFormat = Nothing, _koaContent = Nothing} + -- | Output only. The format of the attestation data. koaFormat :: Lens' KeyOperationAttestation (Maybe KeyOperationAttestationFormat) koaFormat@@ -1089,12 +1124,15 @@ -- | Response message for KeyManagementService.ListCryptoKeyVersions. -- -- /See:/ 'listCryptoKeyVersionsResponse' smart constructor.-data ListCryptoKeyVersionsResponse = ListCryptoKeyVersionsResponse'+data ListCryptoKeyVersionsResponse =+  ListCryptoKeyVersionsResponse'     { _lckvrNextPageToken     :: !(Maybe Text)     , _lckvrTotalSize         :: !(Maybe (Textual Int32))     , _lckvrCryptoKeyVersions :: !(Maybe [CryptoKeyVersion])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCryptoKeyVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1107,12 +1145,13 @@ listCryptoKeyVersionsResponse     :: ListCryptoKeyVersionsResponse listCryptoKeyVersionsResponse =-    ListCryptoKeyVersionsResponse'+  ListCryptoKeyVersionsResponse'     { _lckvrNextPageToken = Nothing     , _lckvrTotalSize = Nothing     , _lckvrCryptoKeyVersions = Nothing     } + -- | A token to retrieve next page of results. Pass this value in -- ListCryptoKeyVersionsRequest.page_token to retrieve the next page of -- results.@@ -1157,15 +1196,17 @@ -- -- /See:/ 'restoreCryptoKeyVersionRequest' smart constructor. data RestoreCryptoKeyVersionRequest =-    RestoreCryptoKeyVersionRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  RestoreCryptoKeyVersionRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreCryptoKeyVersionRequest' with the minimum fields required to make a request. -- restoreCryptoKeyVersionRequest     :: RestoreCryptoKeyVersionRequest restoreCryptoKeyVersionRequest = RestoreCryptoKeyVersionRequest' + instance FromJSON RestoreCryptoKeyVersionRequest          where         parseJSON@@ -1178,10 +1219,13 @@ -- | Request message for KeyManagementService.UpdateCryptoKeyPrimaryVersion. -- -- /See:/ 'updateCryptoKeyPrimaryVersionRequest' smart constructor.-newtype UpdateCryptoKeyPrimaryVersionRequest = UpdateCryptoKeyPrimaryVersionRequest'+newtype UpdateCryptoKeyPrimaryVersionRequest =+  UpdateCryptoKeyPrimaryVersionRequest'     { _uckpvrCryptoKeyVersionId :: Maybe Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateCryptoKeyPrimaryVersionRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1190,10 +1234,9 @@ updateCryptoKeyPrimaryVersionRequest     :: UpdateCryptoKeyPrimaryVersionRequest updateCryptoKeyPrimaryVersionRequest =-    UpdateCryptoKeyPrimaryVersionRequest'-    { _uckpvrCryptoKeyVersionId = Nothing-    }+  UpdateCryptoKeyPrimaryVersionRequest' {_uckpvrCryptoKeyVersionId = Nothing} + -- | The id of the child CryptoKeyVersion to use as primary. uckpvrCryptoKeyVersionId :: Lens' UpdateCryptoKeyPrimaryVersionRequest (Maybe Text) uckpvrCryptoKeyVersionId@@ -1201,7 +1244,8 @@       (\ s a -> s{_uckpvrCryptoKeyVersionId = a})  instance FromJSON-         UpdateCryptoKeyPrimaryVersionRequest where+           UpdateCryptoKeyPrimaryVersionRequest+         where         parseJSON           = withObject "UpdateCryptoKeyPrimaryVersionRequest"               (\ o ->@@ -1219,10 +1263,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:@@ -1231,10 +1278,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@@ -1261,10 +1307,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:@@ -1273,10 +1322,9 @@ testIAMPermissionsResponse     :: TestIAMPermissionsResponse testIAMPermissionsResponse =-    TestIAMPermissionsResponse'-    { _tiamprPermissions = Nothing-    }+  TestIAMPermissionsResponse' {_tiamprPermissions = Nothing} + -- | A subset of \`TestPermissionsRequest.permissions\` that the caller is -- allowed. tiamprPermissions :: Lens' TestIAMPermissionsResponse [Text]@@ -1302,12 +1350,15 @@ -- | A Digest holds a cryptographic message digest. -- -- /See:/ 'digest' smart constructor.-data Digest = Digest'+data Digest =+  Digest'     { _dSha512 :: !(Maybe Bytes)     , _dSha384 :: !(Maybe Bytes)     , _dSha256 :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Digest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1319,13 +1370,9 @@ -- * 'dSha256' digest     :: Digest-digest =-    Digest'-    { _dSha512 = Nothing-    , _dSha384 = Nothing-    , _dSha256 = Nothing-    }+digest = Digest' {_dSha512 = Nothing, _dSha384 = Nothing, _dSha256 = Nothing} + -- | A message digest produced with the SHA-512 algorithm. dSha512 :: Lens' Digest (Maybe ByteString) dSha512@@ -1379,13 +1426,16 @@ -- guide](https:\/\/cloud.google.com\/iam\/docs). -- -- /See:/ 'policy' smart constructor.-data Policy = Policy'+data Policy =+  Policy'     { _pAuditConfigs :: !(Maybe [AuditConfig])     , _pEtag         :: !(Maybe Bytes)     , _pVersion      :: !(Maybe (Textual Int32))     , _pBindings     :: !(Maybe [Binding])-    } 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:@@ -1400,13 +1450,14 @@ policy     :: Policy policy =-    Policy'+  Policy'     { _pAuditConfigs = Nothing     , _pEtag = Nothing     , _pVersion = Nothing     , _pBindings = Nothing     } + -- | Specifies cloud audit logging configuration for this policy. pAuditConfigs :: Lens' Policy [AuditConfig] pAuditConfigs@@ -1464,10 +1515,13 @@ -- {\"cloud.googleapis.com\/region\": \"us-east1\"} -- -- /See:/ 'locationLabels' smart constructor.-newtype LocationLabels = LocationLabels'+newtype LocationLabels =+  LocationLabels'     { _llAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocationLabels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1477,10 +1531,9 @@     :: HashMap Text Text -- ^ 'llAddtional'     -> LocationLabels locationLabels pLlAddtional_ =-    LocationLabels'-    { _llAddtional = _Coerce # pLlAddtional_-    }+  LocationLabels' {_llAddtional = _Coerce # pLlAddtional_} + llAddtional :: Lens' LocationLabels (HashMap Text Text) llAddtional   = lens _llAddtional (\ s a -> s{_llAddtional = a}) .@@ -1497,10 +1550,13 @@ -- | Cloud KMS metadata for the given google.cloud.location.Location. -- -- /See:/ 'locationMetadata' smart constructor.-newtype LocationMetadata = LocationMetadata'+newtype LocationMetadata =+  LocationMetadata'     { _lmHSMAvailable :: Maybe Bool-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'LocationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1508,11 +1564,9 @@ -- * 'lmHSMAvailable' locationMetadata     :: LocationMetadata-locationMetadata =-    LocationMetadata'-    { _lmHSMAvailable = Nothing-    }+locationMetadata = LocationMetadata' {_lmHSMAvailable = Nothing} + -- | Indicates whether CryptoKeys with protection_level HSM can be created in -- this location. lmHSMAvailable :: Lens' LocationMetadata (Maybe Bool)@@ -1537,11 +1591,14 @@ -- logging, while exempting foo\'gmail.com from DATA_READ logging. -- -- /See:/ 'auditLogConfig' smart constructor.-data AuditLogConfig = AuditLogConfig'+data AuditLogConfig =+  AuditLogConfig'     { _alcLogType         :: !(Maybe AuditLogConfigLogType)     , _alcExemptedMembers :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuditLogConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1552,11 +1609,9 @@ auditLogConfig     :: AuditLogConfig auditLogConfig =-    AuditLogConfig'-    { _alcLogType = Nothing-    , _alcExemptedMembers = Nothing-    }+  AuditLogConfig' {_alcLogType = Nothing, _alcExemptedMembers = Nothing} + -- | The log type that this config enables. alcLogType :: Lens' AuditLogConfig (Maybe AuditLogConfigLogType) alcLogType@@ -1589,12 +1644,15 @@ -- | Response message for KeyManagementService.ListCryptoKeys. -- -- /See:/ 'listCryptoKeysResponse' smart constructor.-data ListCryptoKeysResponse = ListCryptoKeysResponse'+data ListCryptoKeysResponse =+  ListCryptoKeysResponse'     { _lckrCryptoKeys    :: !(Maybe [CryptoKey])     , _lckrNextPageToken :: !(Maybe Text)     , _lckrTotalSize     :: !(Maybe (Textual Int32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCryptoKeysResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1607,12 +1665,13 @@ listCryptoKeysResponse     :: ListCryptoKeysResponse listCryptoKeysResponse =-    ListCryptoKeysResponse'+  ListCryptoKeysResponse'     { _lckrCryptoKeys = Nothing     , _lckrNextPageToken = Nothing     , _lckrTotalSize = Nothing     } + -- | The list of CryptoKeys. lckrCryptoKeys :: Lens' ListCryptoKeysResponse [CryptoKey] lckrCryptoKeys@@ -1655,10 +1714,13 @@ -- | Request message for KeyManagementService.AsymmetricDecrypt. -- -- /See:/ 'asymmetricDecryptRequest' smart constructor.-newtype AsymmetricDecryptRequest = AsymmetricDecryptRequest'+newtype AsymmetricDecryptRequest =+  AsymmetricDecryptRequest'     { _adrCiphertext :: Maybe Bytes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AsymmetricDecryptRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1666,11 +1728,9 @@ -- * 'adrCiphertext' asymmetricDecryptRequest     :: AsymmetricDecryptRequest-asymmetricDecryptRequest =-    AsymmetricDecryptRequest'-    { _adrCiphertext = Nothing-    }+asymmetricDecryptRequest = AsymmetricDecryptRequest' {_adrCiphertext = Nothing} + -- | Required. The data encrypted with the named CryptoKeyVersion\'s public -- key using OAEP. adrCiphertext :: Lens' AsymmetricDecryptRequest (Maybe ByteString)@@ -1698,7 +1758,8 @@ -- authorized user or application invokes Cloud KMS. -- -- /See:/ 'cryptoKeyVersion' smart constructor.-data CryptoKeyVersion = CryptoKeyVersion'+data CryptoKeyVersion =+  CryptoKeyVersion'     { _ckvState            :: !(Maybe CryptoKeyVersionState)     , _ckvAttestation      :: !(Maybe KeyOperationAttestation)     , _ckvGenerateTime     :: !(Maybe DateTime')@@ -1708,8 +1769,10 @@     , _ckvProtectionLevel  :: !(Maybe CryptoKeyVersionProtectionLevel)     , _ckvDestroyEventTime :: !(Maybe DateTime')     , _ckvCreateTime       :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CryptoKeyVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1734,7 +1797,7 @@ cryptoKeyVersion     :: CryptoKeyVersion cryptoKeyVersion =-    CryptoKeyVersion'+  CryptoKeyVersion'     { _ckvState = Nothing     , _ckvAttestation = Nothing     , _ckvGenerateTime = Nothing@@ -1746,6 +1809,7 @@     , _ckvCreateTime = Nothing     } + -- | The current state of the CryptoKeyVersion. ckvState :: Lens' CryptoKeyVersion (Maybe CryptoKeyVersionState) ckvState = lens _ckvState (\ s a -> s{_ckvState = a})@@ -1839,11 +1903,14 @@ -- | Request message for KeyManagementService.Encrypt. -- -- /See:/ 'encryptRequest' smart constructor.-data EncryptRequest = EncryptRequest'+data EncryptRequest =+  EncryptRequest'     { _erAdditionalAuthenticatedData :: !(Maybe Bytes)     , _erPlaintext                   :: !(Maybe Bytes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EncryptRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1854,11 +1921,10 @@ encryptRequest     :: EncryptRequest encryptRequest =-    EncryptRequest'-    { _erAdditionalAuthenticatedData = Nothing-    , _erPlaintext = Nothing-    }+  EncryptRequest'+    {_erAdditionalAuthenticatedData = Nothing, _erPlaintext = Nothing} + -- | Optional data that, if specified, must also be provided during -- decryption through DecryptRequest.additional_authenticated_data. The -- maximum size depends on the key version\'s protection_level. For@@ -1900,12 +1966,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:@@ -1918,12 +1987,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@@ -1935,8 +2001,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@@ -1949,10 +2015,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})

@@ -358,6 +358,10 @@       -- ^ @CAVIUM_V1_COMPRESSED@       -- Cavium HSM attestation compressed with gzip. Note that this format is       -- defined by Cavium and subject to change at any time.+    | CaviumV2Compressed+      -- ^ @CAVIUM_V2_COMPRESSED@+      -- Cavium HSM attestation V2 compressed with gzip. This is a new format+      -- introduced in Cavium\'s version 3.2-08.       deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)  instance Hashable KeyOperationAttestationFormat@@ -366,12 +370,14 @@     parseQueryParam = \case         "ATTESTATION_FORMAT_UNSPECIFIED" -> Right AttestationFormatUnspecified         "CAVIUM_V1_COMPRESSED" -> Right CaviumV1Compressed+        "CAVIUM_V2_COMPRESSED" -> Right CaviumV2Compressed         x -> Left ("Unable to parse KeyOperationAttestationFormat from: " <> x)  instance ToHttpApiData KeyOperationAttestationFormat where     toQueryParam = \case         AttestationFormatUnspecified -> "ATTESTATION_FORMAT_UNSPECIFIED"         CaviumV1Compressed -> "CAVIUM_V1_COMPRESSED"+        CaviumV2Compressed -> "CAVIUM_V2_COMPRESSED"  instance FromJSON KeyOperationAttestationFormat where     parseJSON = parseJSONText "KeyOperationAttestationFormat"

@@ -59,15 +59,18 @@ -- | Gets information about a location. -- -- /See:/ 'projectsLocationsGet' smart constructor.-data ProjectsLocationsGet = ProjectsLocationsGet'+data ProjectsLocationsGet =+  ProjectsLocationsGet'     { _plgXgafv          :: !(Maybe Xgafv)     , _plgUploadProtocol :: !(Maybe Text)     , _plgAccessToken    :: !(Maybe Text)     , _plgUploadType     :: !(Maybe Text)     , _plgName           :: !Text     , _plgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsGet' 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 -- ^ 'plgName'     -> ProjectsLocationsGet projectsLocationsGet pPlgName_ =-    ProjectsLocationsGet'+  ProjectsLocationsGet'     { _plgXgafv = Nothing     , _plgUploadProtocol = Nothing     , _plgAccessToken = Nothing@@ -96,6 +99,7 @@     , _plgCallback = Nothing     } + -- | V1 error format. plgXgafv :: Lens' ProjectsLocationsGet (Maybe Xgafv) plgXgafv = lens _plgXgafv (\ s a -> s{_plgXgafv = a})@@ -130,7 +134,8 @@ instance GoogleRequest ProjectsLocationsGet where         type Rs ProjectsLocationsGet = Location         type Scopes ProjectsLocationsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient ProjectsLocationsGet'{..}           = go _plgName _plgXgafv _plgUploadProtocol               _plgAccessToken

@@ -64,7 +64,8 @@ -- | Create a new KeyRing in a given Project and Location. -- -- /See:/ 'projectsLocationsKeyRingsCreate' smart constructor.-data ProjectsLocationsKeyRingsCreate = ProjectsLocationsKeyRingsCreate'+data ProjectsLocationsKeyRingsCreate =+  ProjectsLocationsKeyRingsCreate'     { _plkrcParent         :: !Text     , _plkrcXgafv          :: !(Maybe Xgafv)     , _plkrcUploadProtocol :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrcPayload        :: !KeyRing     , _plkrcKeyRingId      :: !(Maybe Text)     , _plkrcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCreate' 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 @@     -> KeyRing -- ^ 'plkrcPayload'     -> ProjectsLocationsKeyRingsCreate projectsLocationsKeyRingsCreate pPlkrcParent_ pPlkrcPayload_ =-    ProjectsLocationsKeyRingsCreate'+  ProjectsLocationsKeyRingsCreate'     { _plkrcParent = pPlkrcParent_     , _plkrcXgafv = Nothing     , _plkrcUploadProtocol = Nothing@@ -110,6 +113,7 @@     , _plkrcCallback = Nothing     } + -- | Required. The resource name of the location associated with the -- KeyRings, in the format \`projects\/*\/locations\/*\`. plkrcParent :: Lens' ProjectsLocationsKeyRingsCreate Text@@ -158,10 +162,12 @@       (\ s a -> s{_plkrcCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCreate where+           ProjectsLocationsKeyRingsCreate+         where         type Rs ProjectsLocationsKeyRingsCreate = KeyRing         type Scopes ProjectsLocationsKeyRingsCreate =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient ProjectsLocationsKeyRingsCreate'{..}           = go _plkrcParent _plkrcXgafv _plkrcUploadProtocol               _plkrcAccessToken

@@ -67,7 +67,8 @@ -- CryptoKey.version_template.algorithm are required. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCreate' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCreate = ProjectsLocationsKeyRingsCryptoKeysCreate'+data ProjectsLocationsKeyRingsCryptoKeysCreate =+  ProjectsLocationsKeyRingsCryptoKeysCreate'     { _plkrckcParent         :: !Text     , _plkrckcXgafv          :: !(Maybe Xgafv)     , _plkrckcUploadProtocol :: !(Maybe Text)@@ -76,8 +77,10 @@     , _plkrckcPayload        :: !CryptoKey     , _plkrckcCryptoKeyId    :: !(Maybe Text)     , _plkrckcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,7 +105,7 @@     -> CryptoKey -- ^ 'plkrckcPayload'     -> ProjectsLocationsKeyRingsCryptoKeysCreate projectsLocationsKeyRingsCryptoKeysCreate pPlkrckcParent_ pPlkrckcPayload_ =-    ProjectsLocationsKeyRingsCryptoKeysCreate'+  ProjectsLocationsKeyRingsCryptoKeysCreate'     { _plkrckcParent = pPlkrckcParent_     , _plkrckcXgafv = Nothing     , _plkrckcUploadProtocol = Nothing@@ -113,6 +116,7 @@     , _plkrckcCallback = Nothing     } + -- | Required. The name of the KeyRing associated with the CryptoKeys. plkrckcParent :: Lens' ProjectsLocationsKeyRingsCryptoKeysCreate Text plkrckcParent@@ -162,11 +166,14 @@       (\ s a -> s{_plkrckcCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCreate where+           ProjectsLocationsKeyRingsCryptoKeysCreate+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysCreate =              CryptoKey         type Scopes ProjectsLocationsKeyRingsCryptoKeysCreate-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCreate'{..}           = go _plkrckcParent _plkrckcXgafv

@@ -67,7 +67,8 @@ -- ASYMMETRIC_DECRYPT. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt'     { _plkrckckvadXgafv          :: !(Maybe Xgafv)     , _plkrckckvadUploadProtocol :: !(Maybe Text)     , _plkrckckvadAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _plkrckckvadPayload        :: !AsymmetricDecryptRequest     , _plkrckckvadName           :: !Text     , _plkrckckvadCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt' 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 -- ^ 'plkrckckvadName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt pPlkrckckvadPayload_ pPlkrckckvadName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt'     { _plkrckckvadXgafv = Nothing     , _plkrckckvadUploadProtocol = Nothing     , _plkrckckvadAccessToken = Nothing@@ -109,6 +112,7 @@     , _plkrckckvadCallback = Nothing     } + -- | V1 error format. plkrckckvadXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt (Maybe Xgafv) plkrckckvadXgafv@@ -153,14 +157,16 @@       (\ s a -> s{_plkrckckvadCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt              = AsymmetricDecryptResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricDecrypt'{..}           = go _plkrckckvadName _plkrckckvadXgafv

@@ -67,7 +67,8 @@ -- public key retrieved from GetPublicKey. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign'     { _plkrckckvasXgafv          :: !(Maybe Xgafv)     , _plkrckckvasUploadProtocol :: !(Maybe Text)     , _plkrckckvasAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _plkrckckvasPayload        :: !AsymmetricSignRequest     , _plkrckckvasName           :: !Text     , _plkrckckvasCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign' 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 -- ^ 'plkrckckvasName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign pPlkrckckvasPayload_ pPlkrckckvasName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign'     { _plkrckckvasXgafv = Nothing     , _plkrckckvasUploadProtocol = Nothing     , _plkrckckvasAccessToken = Nothing@@ -109,6 +112,7 @@     , _plkrckckvasCallback = Nothing     } + -- | V1 error format. plkrckckvasXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign (Maybe Xgafv) plkrckckvasXgafv@@ -152,14 +156,16 @@       (\ s a -> s{_plkrckckvasCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign              = AsymmetricSignResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsAsymmetricSign'{..}           = go _plkrckckvasName _plkrckckvasXgafv

@@ -66,7 +66,8 @@ -- next sequential id. If unset, state will be set to ENABLED. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate'     { _plkrckckvcParent         :: !Text     , _plkrckckvcXgafv          :: !(Maybe Xgafv)     , _plkrckckvcUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plkrckckvcUploadType     :: !(Maybe Text)     , _plkrckckvcPayload        :: !CryptoKeyVersion     , _plkrckckvcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -98,7 +101,7 @@     -> CryptoKeyVersion -- ^ 'plkrckckvcPayload'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate pPlkrckckvcParent_ pPlkrckckvcPayload_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate'     { _plkrckckvcParent = pPlkrckckvcParent_     , _plkrckckvcXgafv = Nothing     , _plkrckckvcUploadProtocol = Nothing@@ -108,6 +111,7 @@     , _plkrckckvcCallback = Nothing     } + -- | Required. The name of the CryptoKey associated with the -- CryptoKeyVersions. plkrckckvcParent :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate Text@@ -152,14 +156,16 @@       (\ s a -> s{_plkrckckvcCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate              = CryptoKeyVersion         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsCreate'{..}           = go _plkrckckvcParent _plkrckckvcXgafv

@@ -73,7 +73,8 @@ -- may be called to reverse the process. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy'     { _plkrckckvdXgafv          :: !(Maybe Xgafv)     , _plkrckckvdUploadProtocol :: !(Maybe Text)     , _plkrckckvdAccessToken    :: !(Maybe Text)@@ -81,8 +82,10 @@     , _plkrckckvdPayload        :: !DestroyCryptoKeyVersionRequest     , _plkrckckvdName           :: !Text     , _plkrckckvdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     -> Text -- ^ 'plkrckckvdName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy pPlkrckckvdPayload_ pPlkrckckvdName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy'     { _plkrckckvdXgafv = Nothing     , _plkrckckvdUploadProtocol = Nothing     , _plkrckckvdAccessToken = Nothing@@ -115,6 +118,7 @@     , _plkrckckvdCallback = Nothing     } + -- | V1 error format. plkrckckvdXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy (Maybe Xgafv) plkrckckvdXgafv@@ -158,14 +162,16 @@       (\ s a -> s{_plkrckckvdCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy              = CryptoKeyVersion         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsDestroy'{..}           = go _plkrckckvdName _plkrckckvdXgafv

@@ -61,15 +61,18 @@ -- | Returns metadata for a given CryptoKeyVersion. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet'     { _plkrckckvgXgafv          :: !(Maybe Xgafv)     , _plkrckckvgUploadProtocol :: !(Maybe Text)     , _plkrckckvgAccessToken    :: !(Maybe Text)     , _plkrckckvgUploadType     :: !(Maybe Text)     , _plkrckckvgName           :: !Text     , _plkrckckvgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet' 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 -- ^ 'plkrckckvgName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet pPlkrckckvgName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet'     { _plkrckckvgXgafv = Nothing     , _plkrckckvgUploadProtocol = Nothing     , _plkrckckvgAccessToken = Nothing@@ -98,6 +101,7 @@     , _plkrckckvgCallback = Nothing     } + -- | V1 error format. plkrckckvgXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet (Maybe Xgafv) plkrckckvgXgafv@@ -135,14 +139,16 @@       (\ s a -> s{_plkrckckvgCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet              = CryptoKeyVersion         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGet'{..}           = go _plkrckckvgName _plkrckckvgXgafv

@@ -63,15 +63,18 @@ -- CryptoKey.purpose must be ASYMMETRIC_SIGN or ASYMMETRIC_DECRYPT. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey'     { _plkrckckvgpkXgafv          :: !(Maybe Xgafv)     , _plkrckckvgpkUploadProtocol :: !(Maybe Text)     , _plkrckckvgpkAccessToken    :: !(Maybe Text)     , _plkrckckvgpkUploadType     :: !(Maybe Text)     , _plkrckckvgpkName           :: !Text     , _plkrckckvgpkCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -91,7 +94,7 @@     :: Text -- ^ 'plkrckckvgpkName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey pPlkrckckvgpkName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey'     { _plkrckckvgpkXgafv = Nothing     , _plkrckckvgpkUploadProtocol = Nothing     , _plkrckckvgpkAccessToken = Nothing@@ -100,6 +103,7 @@     , _plkrckckvgpkCallback = Nothing     } + -- | V1 error format. plkrckckvgpkXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey (Maybe Xgafv) plkrckckvgpkXgafv@@ -137,14 +141,16 @@       (\ s a -> s{_plkrckckvgpkCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey              = PublicKey         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsGetPublicKey'{..}           = go _plkrckckvgpkName _plkrckckvgpkXgafv

@@ -68,7 +68,8 @@ -- | Lists CryptoKeyVersions. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList'     { _plkrckckvlParent         :: !Text     , _plkrckckvlXgafv          :: !(Maybe Xgafv)     , _plkrckckvlUploadProtocol :: !(Maybe Text)@@ -78,8 +79,10 @@     , _plkrckckvlPageToken      :: !(Maybe Text)     , _plkrckckvlPageSize       :: !(Maybe (Textual Int32))     , _plkrckckvlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     :: Text -- ^ 'plkrckckvlParent'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList pPlkrckckvlParent_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList'     { _plkrckckvlParent = pPlkrckckvlParent_     , _plkrckckvlXgafv = Nothing     , _plkrckckvlUploadProtocol = Nothing@@ -117,6 +120,7 @@     , _plkrckckvlCallback = Nothing     } + -- | Required. The resource name of the CryptoKey to list, in the format -- \`projects\/*\/locations\/*\/keyRings\/*\/cryptoKeys\/*\`. plkrckckvlParent :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList Text@@ -179,14 +183,16 @@       (\ s a -> s{_plkrckckvlCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList              = ListCryptoKeyVersionsResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsList'{..}           = go _plkrckckvlParent _plkrckckvlXgafv

@@ -69,7 +69,8 @@ -- RestoreCryptoKeyVersion to move between other states. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch'     { _plkrckckvpXgafv          :: !(Maybe Xgafv)     , _plkrckckvpUploadProtocol :: !(Maybe Text)     , _plkrckckvpUpdateMask     :: !(Maybe GFieldMask)@@ -78,8 +79,10 @@     , _plkrckckvpPayload        :: !CryptoKeyVersion     , _plkrckckvpName           :: !Text     , _plkrckckvpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch' 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 -- ^ 'plkrckckvpName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch pPlkrckckvpPayload_ pPlkrckckvpName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch'     { _plkrckckvpXgafv = Nothing     , _plkrckckvpUploadProtocol = Nothing     , _plkrckckvpUpdateMask = Nothing@@ -115,6 +118,7 @@     , _plkrckckvpCallback = Nothing     } + -- | V1 error format. plkrckckvpXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch (Maybe Xgafv) plkrckckvpXgafv@@ -165,14 +169,16 @@       (\ s a -> s{_plkrckckvpCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch              = CryptoKeyVersion         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsPatch'{..}           = go _plkrckckvpName _plkrckckvpXgafv

@@ -67,7 +67,8 @@ -- destroy_time will be cleared. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore = ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore'+data ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore =+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore'     { _plkrckckvrXgafv          :: !(Maybe Xgafv)     , _plkrckckvrUploadProtocol :: !(Maybe Text)     , _plkrckckvrAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _plkrckckvrPayload        :: !RestoreCryptoKeyVersionRequest     , _plkrckckvrName           :: !Text     , _plkrckckvrCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore' 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 -- ^ 'plkrckckvrName'     -> ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore projectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore pPlkrckckvrPayload_ pPlkrckckvrName_ =-    ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore'+  ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore'     { _plkrckckvrXgafv = Nothing     , _plkrckckvrUploadProtocol = Nothing     , _plkrckckvrAccessToken = Nothing@@ -109,6 +112,7 @@     , _plkrckckvrCallback = Nothing     } + -- | V1 error format. plkrckckvrXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore (Maybe Xgafv) plkrckckvrXgafv@@ -152,14 +156,16 @@       (\ s a -> s{_plkrckckvrCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore+           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore              = CryptoKeyVersion         type Scopes                ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysCryptoKeyVersionsRestore'{..}           = go _plkrckckvrName _plkrckckvrXgafv

@@ -65,7 +65,8 @@ -- be ENCRYPT_DECRYPT. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysDecrypt' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysDecrypt = ProjectsLocationsKeyRingsCryptoKeysDecrypt'+data ProjectsLocationsKeyRingsCryptoKeysDecrypt =+  ProjectsLocationsKeyRingsCryptoKeysDecrypt'     { _plkrckdXgafv          :: !(Maybe Xgafv)     , _plkrckdUploadProtocol :: !(Maybe Text)     , _plkrckdAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrckdPayload        :: !DecryptRequest     , _plkrckdName           :: !Text     , _plkrckdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysDecrypt' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'plkrckdName'     -> ProjectsLocationsKeyRingsCryptoKeysDecrypt projectsLocationsKeyRingsCryptoKeysDecrypt pPlkrckdPayload_ pPlkrckdName_ =-    ProjectsLocationsKeyRingsCryptoKeysDecrypt'+  ProjectsLocationsKeyRingsCryptoKeysDecrypt'     { _plkrckdXgafv = Nothing     , _plkrckdUploadProtocol = Nothing     , _plkrckdAccessToken = Nothing@@ -107,6 +110,7 @@     , _plkrckdCallback = Nothing     } + -- | V1 error format. plkrckdXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysDecrypt (Maybe Xgafv) plkrckdXgafv@@ -149,12 +153,15 @@       (\ s a -> s{_plkrckdCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysDecrypt where+           ProjectsLocationsKeyRingsCryptoKeysDecrypt+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysDecrypt =              DecryptResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysDecrypt-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysDecrypt'{..}           = go _plkrckdName _plkrckdXgafv

@@ -65,7 +65,8 @@ -- The CryptoKey.purpose must be ENCRYPT_DECRYPT. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysEncrypt' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysEncrypt = ProjectsLocationsKeyRingsCryptoKeysEncrypt'+data ProjectsLocationsKeyRingsCryptoKeysEncrypt =+  ProjectsLocationsKeyRingsCryptoKeysEncrypt'     { _plkrckeXgafv          :: !(Maybe Xgafv)     , _plkrckeUploadProtocol :: !(Maybe Text)     , _plkrckeAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrckePayload        :: !EncryptRequest     , _plkrckeName           :: !Text     , _plkrckeCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysEncrypt' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'plkrckeName'     -> ProjectsLocationsKeyRingsCryptoKeysEncrypt projectsLocationsKeyRingsCryptoKeysEncrypt pPlkrckePayload_ pPlkrckeName_ =-    ProjectsLocationsKeyRingsCryptoKeysEncrypt'+  ProjectsLocationsKeyRingsCryptoKeysEncrypt'     { _plkrckeXgafv = Nothing     , _plkrckeUploadProtocol = Nothing     , _plkrckeAccessToken = Nothing@@ -107,6 +110,7 @@     , _plkrckeCallback = Nothing     } + -- | V1 error format. plkrckeXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysEncrypt (Maybe Xgafv) plkrckeXgafv@@ -150,12 +154,15 @@       (\ s a -> s{_plkrckeCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysEncrypt where+           ProjectsLocationsKeyRingsCryptoKeysEncrypt+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysEncrypt =              EncryptResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysEncrypt-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysEncrypt'{..}           = go _plkrckeName _plkrckeXgafv

@@ -61,15 +61,18 @@ -- CryptoKeyVersion. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysGet' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysGet = ProjectsLocationsKeyRingsCryptoKeysGet'+data ProjectsLocationsKeyRingsCryptoKeysGet =+  ProjectsLocationsKeyRingsCryptoKeysGet'     { _plkrckgXgafv          :: !(Maybe Xgafv)     , _plkrckgUploadProtocol :: !(Maybe Text)     , _plkrckgAccessToken    :: !(Maybe Text)     , _plkrckgUploadType     :: !(Maybe Text)     , _plkrckgName           :: !Text     , _plkrckgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysGet' 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 -- ^ 'plkrckgName'     -> ProjectsLocationsKeyRingsCryptoKeysGet projectsLocationsKeyRingsCryptoKeysGet pPlkrckgName_ =-    ProjectsLocationsKeyRingsCryptoKeysGet'+  ProjectsLocationsKeyRingsCryptoKeysGet'     { _plkrckgXgafv = Nothing     , _plkrckgUploadProtocol = Nothing     , _plkrckgAccessToken = Nothing@@ -98,6 +101,7 @@     , _plkrckgCallback = Nothing     } + -- | V1 error format. plkrckgXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysGet (Maybe Xgafv) plkrckgXgafv@@ -133,11 +137,13 @@       (\ s a -> s{_plkrckgCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysGet where+           ProjectsLocationsKeyRingsCryptoKeysGet+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysGet =              CryptoKey         type Scopes ProjectsLocationsKeyRingsCryptoKeysGet =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysGet'{..}           = go _plkrckgName _plkrckgXgafv

@@ -62,15 +62,18 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysGetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy = ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy'+data ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy =+  ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy'     { _plkrckgipXgafv          :: !(Maybe Xgafv)     , _plkrckgipUploadProtocol :: !(Maybe Text)     , _plkrckgipAccessToken    :: !(Maybe Text)     , _plkrckgipUploadType     :: !(Maybe Text)     , _plkrckgipResource       :: !Text     , _plkrckgipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -90,7 +93,7 @@     :: Text -- ^ 'plkrckgipResource'     -> ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy projectsLocationsKeyRingsCryptoKeysGetIAMPolicy pPlkrckgipResource_ =-    ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy'+  ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy'     { _plkrckgipXgafv = Nothing     , _plkrckgipUploadProtocol = Nothing     , _plkrckgipAccessToken = Nothing@@ -99,6 +102,7 @@     , _plkrckgipCallback = Nothing     } + -- | V1 error format. plkrckgipXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy (Maybe Xgafv) plkrckgipXgafv@@ -137,13 +141,16 @@       (\ s a -> s{_plkrckgipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy where+           ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy+         where         type Rs                ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy              = Policy         type Scopes                ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysGetIAMPolicy'{..}           = go _plkrckgipResource _plkrckgipXgafv

@@ -68,7 +68,8 @@ -- | Lists CryptoKeys. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysList' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysList = ProjectsLocationsKeyRingsCryptoKeysList'+data ProjectsLocationsKeyRingsCryptoKeysList =+  ProjectsLocationsKeyRingsCryptoKeysList'     { _plkrcklParent         :: !Text     , _plkrcklXgafv          :: !(Maybe Xgafv)     , _plkrcklVersionView    :: !(Maybe Text)@@ -78,8 +79,10 @@     , _plkrcklPageToken      :: !(Maybe Text)     , _plkrcklPageSize       :: !(Maybe (Textual Int32))     , _plkrcklCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     :: Text -- ^ 'plkrcklParent'     -> ProjectsLocationsKeyRingsCryptoKeysList projectsLocationsKeyRingsCryptoKeysList pPlkrcklParent_ =-    ProjectsLocationsKeyRingsCryptoKeysList'+  ProjectsLocationsKeyRingsCryptoKeysList'     { _plkrcklParent = pPlkrcklParent_     , _plkrcklXgafv = Nothing     , _plkrcklVersionView = Nothing@@ -117,6 +120,7 @@     , _plkrcklCallback = Nothing     } + -- | Required. The resource name of the KeyRing to list, in the format -- \`projects\/*\/locations\/*\/keyRings\/*\`. plkrcklParent :: Lens' ProjectsLocationsKeyRingsCryptoKeysList Text@@ -177,11 +181,13 @@       (\ s a -> s{_plkrcklCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysList where+           ProjectsLocationsKeyRingsCryptoKeysList+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysList =              ListCryptoKeysResponse         type Scopes ProjectsLocationsKeyRingsCryptoKeysList =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysList'{..}           = go _plkrcklParent _plkrcklXgafv _plkrcklVersionView

@@ -64,7 +64,8 @@ -- | Update a CryptoKey. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysPatch' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysPatch = ProjectsLocationsKeyRingsCryptoKeysPatch'+data ProjectsLocationsKeyRingsCryptoKeysPatch =+  ProjectsLocationsKeyRingsCryptoKeysPatch'     { _plkrckpXgafv          :: !(Maybe Xgafv)     , _plkrckpUploadProtocol :: !(Maybe Text)     , _plkrckpUpdateMask     :: !(Maybe GFieldMask)@@ -73,8 +74,10 @@     , _plkrckpPayload        :: !CryptoKey     , _plkrckpName           :: !Text     , _plkrckpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysPatch' 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 -- ^ 'plkrckpName'     -> ProjectsLocationsKeyRingsCryptoKeysPatch projectsLocationsKeyRingsCryptoKeysPatch pPlkrckpPayload_ pPlkrckpName_ =-    ProjectsLocationsKeyRingsCryptoKeysPatch'+  ProjectsLocationsKeyRingsCryptoKeysPatch'     { _plkrckpXgafv = Nothing     , _plkrckpUploadProtocol = Nothing     , _plkrckpUpdateMask = Nothing@@ -110,6 +113,7 @@     , _plkrckpCallback = Nothing     } + -- | V1 error format. plkrckpXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysPatch (Maybe Xgafv) plkrckpXgafv@@ -158,11 +162,14 @@       (\ s a -> s{_plkrckpCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysPatch where+           ProjectsLocationsKeyRingsCryptoKeysPatch+         where         type Rs ProjectsLocationsKeyRingsCryptoKeysPatch =              CryptoKey         type Scopes ProjectsLocationsKeyRingsCryptoKeysPatch-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysPatch'{..}           = go _plkrckpName _plkrckpXgafv

@@ -65,7 +65,8 @@ -- existing policy. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysSetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy = ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy'+data ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy =+  ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy'     { _plkrcksipXgafv          :: !(Maybe Xgafv)     , _plkrcksipUploadProtocol :: !(Maybe Text)     , _plkrcksipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrcksipPayload        :: !SetIAMPolicyRequest     , _plkrcksipResource       :: !Text     , _plkrcksipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'plkrcksipResource'     -> ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy projectsLocationsKeyRingsCryptoKeysSetIAMPolicy pPlkrcksipPayload_ pPlkrcksipResource_ =-    ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy'+  ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy'     { _plkrcksipXgafv = Nothing     , _plkrcksipUploadProtocol = Nothing     , _plkrcksipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plkrcksipCallback = Nothing     } + -- | V1 error format. plkrcksipXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy (Maybe Xgafv) plkrcksipXgafv@@ -151,13 +155,16 @@       (\ s a -> s{_plkrcksipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy where+           ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy+         where         type Rs                ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy              = Policy         type Scopes                ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysSetIAMPolicy'{..}           = go _plkrcksipResource _plkrcksipXgafv

@@ -73,7 +73,8 @@ -- warning. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysTestIAMPermissions' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions = ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions'+data ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions =+  ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions'     { _plkrcktipXgafv          :: !(Maybe Xgafv)     , _plkrcktipUploadProtocol :: !(Maybe Text)     , _plkrcktipAccessToken    :: !(Maybe Text)@@ -81,8 +82,10 @@     , _plkrcktipPayload        :: !TestIAMPermissionsRequest     , _plkrcktipResource       :: !Text     , _plkrcktipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     -> Text -- ^ 'plkrcktipResource'     -> ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions projectsLocationsKeyRingsCryptoKeysTestIAMPermissions pPlkrcktipPayload_ pPlkrcktipResource_ =-    ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions'+  ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions'     { _plkrcktipXgafv = Nothing     , _plkrcktipUploadProtocol = Nothing     , _plkrcktipAccessToken = Nothing@@ -115,6 +118,7 @@     , _plkrcktipCallback = Nothing     } + -- | V1 error format. plkrcktipXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions (Maybe Xgafv) plkrcktipXgafv@@ -160,14 +164,16 @@       (\ s a -> s{_plkrcktipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions+           ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions              = TestIAMPermissionsResponse         type Scopes                ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysTestIAMPermissions'{..}           = go _plkrcktipResource _plkrcktipXgafv

@@ -65,7 +65,8 @@ -- an error if called on an asymmetric key. -- -- /See:/ 'projectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion' smart constructor.-data ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion = ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion'+data ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion =+  ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion'     { _plkrckupvXgafv          :: !(Maybe Xgafv)     , _plkrckupvUploadProtocol :: !(Maybe Text)     , _plkrckupvAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrckupvPayload        :: !UpdateCryptoKeyPrimaryVersionRequest     , _plkrckupvName           :: !Text     , _plkrckupvCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'plkrckupvName'     -> ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion projectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion pPlkrckupvPayload_ pPlkrckupvName_ =-    ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion'+  ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion'     { _plkrckupvXgafv = Nothing     , _plkrckupvUploadProtocol = Nothing     , _plkrckupvAccessToken = Nothing@@ -107,6 +110,7 @@     , _plkrckupvCallback = Nothing     } + -- | V1 error format. plkrckupvXgafv :: Lens' ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion (Maybe Xgafv) plkrckupvXgafv@@ -150,14 +154,16 @@       (\ s a -> s{_plkrckupvCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion+           ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion          where         type Rs                ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion              = CryptoKey         type Scopes                ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsCryptoKeysUpdatePrimaryVersion'{..}           = go _plkrckupvName _plkrckupvXgafv

@@ -59,15 +59,18 @@ -- | Returns metadata for a given KeyRing. -- -- /See:/ 'projectsLocationsKeyRingsGet' smart constructor.-data ProjectsLocationsKeyRingsGet = ProjectsLocationsKeyRingsGet'+data ProjectsLocationsKeyRingsGet =+  ProjectsLocationsKeyRingsGet'     { _plkrgXgafv          :: !(Maybe Xgafv)     , _plkrgUploadProtocol :: !(Maybe Text)     , _plkrgAccessToken    :: !(Maybe Text)     , _plkrgUploadType     :: !(Maybe Text)     , _plkrgName           :: !Text     , _plkrgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsGet' 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 -- ^ 'plkrgName'     -> ProjectsLocationsKeyRingsGet projectsLocationsKeyRingsGet pPlkrgName_ =-    ProjectsLocationsKeyRingsGet'+  ProjectsLocationsKeyRingsGet'     { _plkrgXgafv = Nothing     , _plkrgUploadProtocol = Nothing     , _plkrgAccessToken = Nothing@@ -96,6 +99,7 @@     , _plkrgCallback = Nothing     } + -- | V1 error format. plkrgXgafv :: Lens' ProjectsLocationsKeyRingsGet (Maybe Xgafv) plkrgXgafv@@ -134,7 +138,8 @@          where         type Rs ProjectsLocationsKeyRingsGet = KeyRing         type Scopes ProjectsLocationsKeyRingsGet =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient ProjectsLocationsKeyRingsGet'{..}           = go _plkrgName _plkrgXgafv _plkrgUploadProtocol               _plkrgAccessToken

@@ -61,15 +61,18 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsLocationsKeyRingsGetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsGetIAMPolicy = ProjectsLocationsKeyRingsGetIAMPolicy'+data ProjectsLocationsKeyRingsGetIAMPolicy =+  ProjectsLocationsKeyRingsGetIAMPolicy'     { _plkrgipXgafv          :: !(Maybe Xgafv)     , _plkrgipUploadProtocol :: !(Maybe Text)     , _plkrgipAccessToken    :: !(Maybe Text)     , _plkrgipUploadType     :: !(Maybe Text)     , _plkrgipResource       :: !Text     , _plkrgipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsGetIAMPolicy' 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 -- ^ 'plkrgipResource'     -> ProjectsLocationsKeyRingsGetIAMPolicy projectsLocationsKeyRingsGetIAMPolicy pPlkrgipResource_ =-    ProjectsLocationsKeyRingsGetIAMPolicy'+  ProjectsLocationsKeyRingsGetIAMPolicy'     { _plkrgipXgafv = Nothing     , _plkrgipUploadProtocol = Nothing     , _plkrgipAccessToken = Nothing@@ -98,6 +101,7 @@     , _plkrgipCallback = Nothing     } + -- | V1 error format. plkrgipXgafv :: Lens' ProjectsLocationsKeyRingsGetIAMPolicy (Maybe Xgafv) plkrgipXgafv@@ -135,11 +139,13 @@       (\ s a -> s{_plkrgipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsGetIAMPolicy where+           ProjectsLocationsKeyRingsGetIAMPolicy+         where         type Rs ProjectsLocationsKeyRingsGetIAMPolicy =              Policy         type Scopes ProjectsLocationsKeyRingsGetIAMPolicy =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsGetIAMPolicy'{..}           = go _plkrgipResource _plkrgipXgafv

@@ -62,15 +62,18 @@ -- if the resource exists and does not have a policy set. -- -- /See:/ 'projectsLocationsKeyRingsImportJobsGetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsImportJobsGetIAMPolicy = ProjectsLocationsKeyRingsImportJobsGetIAMPolicy'+data ProjectsLocationsKeyRingsImportJobsGetIAMPolicy =+  ProjectsLocationsKeyRingsImportJobsGetIAMPolicy'     { _plkrijgipXgafv          :: !(Maybe Xgafv)     , _plkrijgipUploadProtocol :: !(Maybe Text)     , _plkrijgipAccessToken    :: !(Maybe Text)     , _plkrijgipUploadType     :: !(Maybe Text)     , _plkrijgipResource       :: !Text     , _plkrijgipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsImportJobsGetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -90,7 +93,7 @@     :: Text -- ^ 'plkrijgipResource'     -> ProjectsLocationsKeyRingsImportJobsGetIAMPolicy projectsLocationsKeyRingsImportJobsGetIAMPolicy pPlkrijgipResource_ =-    ProjectsLocationsKeyRingsImportJobsGetIAMPolicy'+  ProjectsLocationsKeyRingsImportJobsGetIAMPolicy'     { _plkrijgipXgafv = Nothing     , _plkrijgipUploadProtocol = Nothing     , _plkrijgipAccessToken = Nothing@@ -99,6 +102,7 @@     , _plkrijgipCallback = Nothing     } + -- | V1 error format. plkrijgipXgafv :: Lens' ProjectsLocationsKeyRingsImportJobsGetIAMPolicy (Maybe Xgafv) plkrijgipXgafv@@ -137,13 +141,16 @@       (\ s a -> s{_plkrijgipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsImportJobsGetIAMPolicy where+           ProjectsLocationsKeyRingsImportJobsGetIAMPolicy+         where         type Rs                ProjectsLocationsKeyRingsImportJobsGetIAMPolicy              = Policy         type Scopes                ProjectsLocationsKeyRingsImportJobsGetIAMPolicy-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsImportJobsGetIAMPolicy'{..}           = go _plkrijgipResource _plkrijgipXgafv

@@ -65,7 +65,8 @@ -- existing policy. -- -- /See:/ 'projectsLocationsKeyRingsImportJobsSetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsImportJobsSetIAMPolicy = ProjectsLocationsKeyRingsImportJobsSetIAMPolicy'+data ProjectsLocationsKeyRingsImportJobsSetIAMPolicy =+  ProjectsLocationsKeyRingsImportJobsSetIAMPolicy'     { _plkrijsipXgafv          :: !(Maybe Xgafv)     , _plkrijsipUploadProtocol :: !(Maybe Text)     , _plkrijsipAccessToken    :: !(Maybe Text)@@ -73,8 +74,10 @@     , _plkrijsipPayload        :: !SetIAMPolicyRequest     , _plkrijsipResource       :: !Text     , _plkrijsipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsImportJobsSetIAMPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'plkrijsipResource'     -> ProjectsLocationsKeyRingsImportJobsSetIAMPolicy projectsLocationsKeyRingsImportJobsSetIAMPolicy pPlkrijsipPayload_ pPlkrijsipResource_ =-    ProjectsLocationsKeyRingsImportJobsSetIAMPolicy'+  ProjectsLocationsKeyRingsImportJobsSetIAMPolicy'     { _plkrijsipXgafv = Nothing     , _plkrijsipUploadProtocol = Nothing     , _plkrijsipAccessToken = Nothing@@ -107,6 +110,7 @@     , _plkrijsipCallback = Nothing     } + -- | V1 error format. plkrijsipXgafv :: Lens' ProjectsLocationsKeyRingsImportJobsSetIAMPolicy (Maybe Xgafv) plkrijsipXgafv@@ -151,13 +155,16 @@       (\ s a -> s{_plkrijsipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsImportJobsSetIAMPolicy where+           ProjectsLocationsKeyRingsImportJobsSetIAMPolicy+         where         type Rs                ProjectsLocationsKeyRingsImportJobsSetIAMPolicy              = Policy         type Scopes                ProjectsLocationsKeyRingsImportJobsSetIAMPolicy-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsImportJobsSetIAMPolicy'{..}           = go _plkrijsipResource _plkrijsipXgafv

@@ -73,7 +73,8 @@ -- warning. -- -- /See:/ 'projectsLocationsKeyRingsImportJobsTestIAMPermissions' smart constructor.-data ProjectsLocationsKeyRingsImportJobsTestIAMPermissions = ProjectsLocationsKeyRingsImportJobsTestIAMPermissions'+data ProjectsLocationsKeyRingsImportJobsTestIAMPermissions =+  ProjectsLocationsKeyRingsImportJobsTestIAMPermissions'     { _plkrijtipXgafv          :: !(Maybe Xgafv)     , _plkrijtipUploadProtocol :: !(Maybe Text)     , _plkrijtipAccessToken    :: !(Maybe Text)@@ -81,8 +82,10 @@     , _plkrijtipPayload        :: !TestIAMPermissionsRequest     , _plkrijtipResource       :: !Text     , _plkrijtipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsImportJobsTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     -> Text -- ^ 'plkrijtipResource'     -> ProjectsLocationsKeyRingsImportJobsTestIAMPermissions projectsLocationsKeyRingsImportJobsTestIAMPermissions pPlkrijtipPayload_ pPlkrijtipResource_ =-    ProjectsLocationsKeyRingsImportJobsTestIAMPermissions'+  ProjectsLocationsKeyRingsImportJobsTestIAMPermissions'     { _plkrijtipXgafv = Nothing     , _plkrijtipUploadProtocol = Nothing     , _plkrijtipAccessToken = Nothing@@ -115,6 +118,7 @@     , _plkrijtipCallback = Nothing     } + -- | V1 error format. plkrijtipXgafv :: Lens' ProjectsLocationsKeyRingsImportJobsTestIAMPermissions (Maybe Xgafv) plkrijtipXgafv@@ -160,14 +164,16 @@       (\ s a -> s{_plkrijtipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsImportJobsTestIAMPermissions+           ProjectsLocationsKeyRingsImportJobsTestIAMPermissions          where         type Rs                ProjectsLocationsKeyRingsImportJobsTestIAMPermissions              = TestIAMPermissionsResponse         type Scopes                ProjectsLocationsKeyRingsImportJobsTestIAMPermissions-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsImportJobsTestIAMPermissions'{..}           = go _plkrijtipResource _plkrijtipXgafv

@@ -65,7 +65,8 @@ -- | Lists KeyRings. -- -- /See:/ 'projectsLocationsKeyRingsList' smart constructor.-data ProjectsLocationsKeyRingsList = ProjectsLocationsKeyRingsList'+data ProjectsLocationsKeyRingsList =+  ProjectsLocationsKeyRingsList'     { _plkrlParent         :: !Text     , _plkrlXgafv          :: !(Maybe Xgafv)     , _plkrlUploadProtocol :: !(Maybe Text)@@ -74,8 +75,10 @@     , _plkrlPageToken      :: !(Maybe Text)     , _plkrlPageSize       :: !(Maybe (Textual Int32))     , _plkrlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsList' 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 -- ^ 'plkrlParent'     -> ProjectsLocationsKeyRingsList projectsLocationsKeyRingsList pPlkrlParent_ =-    ProjectsLocationsKeyRingsList'+  ProjectsLocationsKeyRingsList'     { _plkrlParent = pPlkrlParent_     , _plkrlXgafv = Nothing     , _plkrlUploadProtocol = Nothing@@ -110,6 +113,7 @@     , _plkrlCallback = Nothing     } + -- | Required. The resource name of the location associated with the -- KeyRings, in the format \`projects\/*\/locations\/*\`. plkrlParent :: Lens' ProjectsLocationsKeyRingsList Text@@ -167,7 +171,8 @@         type Rs ProjectsLocationsKeyRingsList =              ListKeyRingsResponse         type Scopes ProjectsLocationsKeyRingsList =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient ProjectsLocationsKeyRingsList'{..}           = go _plkrlParent _plkrlXgafv _plkrlUploadProtocol               _plkrlAccessToken

@@ -64,7 +64,8 @@ -- existing policy. -- -- /See:/ 'projectsLocationsKeyRingsSetIAMPolicy' smart constructor.-data ProjectsLocationsKeyRingsSetIAMPolicy = ProjectsLocationsKeyRingsSetIAMPolicy'+data ProjectsLocationsKeyRingsSetIAMPolicy =+  ProjectsLocationsKeyRingsSetIAMPolicy'     { _plkrsipXgafv          :: !(Maybe Xgafv)     , _plkrsipUploadProtocol :: !(Maybe Text)     , _plkrsipAccessToken    :: !(Maybe Text)@@ -72,8 +73,10 @@     , _plkrsipPayload        :: !SetIAMPolicyRequest     , _plkrsipResource       :: !Text     , _plkrsipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsSetIAMPolicy' 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 -- ^ 'plkrsipResource'     -> ProjectsLocationsKeyRingsSetIAMPolicy projectsLocationsKeyRingsSetIAMPolicy pPlkrsipPayload_ pPlkrsipResource_ =-    ProjectsLocationsKeyRingsSetIAMPolicy'+  ProjectsLocationsKeyRingsSetIAMPolicy'     { _plkrsipXgafv = Nothing     , _plkrsipUploadProtocol = Nothing     , _plkrsipAccessToken = Nothing@@ -106,6 +109,7 @@     , _plkrsipCallback = Nothing     } + -- | V1 error format. plkrsipXgafv :: Lens' ProjectsLocationsKeyRingsSetIAMPolicy (Maybe Xgafv) plkrsipXgafv@@ -149,11 +153,13 @@       (\ s a -> s{_plkrsipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsSetIAMPolicy where+           ProjectsLocationsKeyRingsSetIAMPolicy+         where         type Rs ProjectsLocationsKeyRingsSetIAMPolicy =              Policy         type Scopes ProjectsLocationsKeyRingsSetIAMPolicy =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsSetIAMPolicy'{..}           = go _plkrsipResource _plkrsipXgafv

@@ -73,7 +73,8 @@ -- warning. -- -- /See:/ 'projectsLocationsKeyRingsTestIAMPermissions' smart constructor.-data ProjectsLocationsKeyRingsTestIAMPermissions = ProjectsLocationsKeyRingsTestIAMPermissions'+data ProjectsLocationsKeyRingsTestIAMPermissions =+  ProjectsLocationsKeyRingsTestIAMPermissions'     { _plkrtipXgafv          :: !(Maybe Xgafv)     , _plkrtipUploadProtocol :: !(Maybe Text)     , _plkrtipAccessToken    :: !(Maybe Text)@@ -81,8 +82,10 @@     , _plkrtipPayload        :: !TestIAMPermissionsRequest     , _plkrtipResource       :: !Text     , _plkrtipCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsKeyRingsTestIAMPermissions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,7 +108,7 @@     -> Text -- ^ 'plkrtipResource'     -> ProjectsLocationsKeyRingsTestIAMPermissions projectsLocationsKeyRingsTestIAMPermissions pPlkrtipPayload_ pPlkrtipResource_ =-    ProjectsLocationsKeyRingsTestIAMPermissions'+  ProjectsLocationsKeyRingsTestIAMPermissions'     { _plkrtipXgafv = Nothing     , _plkrtipUploadProtocol = Nothing     , _plkrtipAccessToken = Nothing@@ -115,6 +118,7 @@     , _plkrtipCallback = Nothing     } + -- | V1 error format. plkrtipXgafv :: Lens' ProjectsLocationsKeyRingsTestIAMPermissions (Maybe Xgafv) plkrtipXgafv@@ -159,12 +163,15 @@       (\ s a -> s{_plkrtipCallback = a})  instance GoogleRequest-         ProjectsLocationsKeyRingsTestIAMPermissions where+           ProjectsLocationsKeyRingsTestIAMPermissions+         where         type Rs ProjectsLocationsKeyRingsTestIAMPermissions =              TestIAMPermissionsResponse         type Scopes                ProjectsLocationsKeyRingsTestIAMPermissions-             = '["https://www.googleapis.com/auth/cloud-platform"]+             =+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient           ProjectsLocationsKeyRingsTestIAMPermissions'{..}           = go _plkrtipResource _plkrtipXgafv

@@ -67,7 +67,8 @@ -- | Lists information about the supported locations for this service. -- -- /See:/ 'projectsLocationsList' smart constructor.-data ProjectsLocationsList = ProjectsLocationsList'+data ProjectsLocationsList =+  ProjectsLocationsList'     { _pllXgafv          :: !(Maybe Xgafv)     , _pllUploadProtocol :: !(Maybe Text)     , _pllAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _pllPageToken      :: !(Maybe Text)     , _pllPageSize       :: !(Maybe (Textual Int32))     , _pllCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsLocationsList' 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 -- ^ 'pllName'     -> ProjectsLocationsList projectsLocationsList pPllName_ =-    ProjectsLocationsList'+  ProjectsLocationsList'     { _pllXgafv = Nothing     , _pllUploadProtocol = Nothing     , _pllAccessToken = Nothing@@ -116,6 +119,7 @@     , _pllCallback = Nothing     } + -- | V1 error format. pllXgafv :: Lens' ProjectsLocationsList (Maybe Xgafv) pllXgafv = lens _pllXgafv (\ s a -> s{_pllXgafv = a})@@ -166,7 +170,8 @@ instance GoogleRequest ProjectsLocationsList where         type Rs ProjectsLocationsList = ListLocationsResponse         type Scopes ProjectsLocationsList =-             '["https://www.googleapis.com/auth/cloud-platform"]+             '["https://www.googleapis.com/auth/cloud-platform",+               "https://www.googleapis.com/auth/cloudkms"]         requestClient ProjectsLocationsList'{..}           = go _pllName _pllXgafv _pllUploadProtocol               _pllAccessToken

@@ -1,5 +1,5 @@ name:                  gogol-cloudkms-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Key Management Service (KMS) SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -72,5 +72,5 @@         , Network.Google.CloudKMS.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5