diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.3.0` +`0.5.0` ## Description diff --git a/gen/Network/Google/CloudKMS.hs b/gen/Network/Google/CloudKMS.hs --- a/gen/Network/Google/CloudKMS.hs +++ b/gen/Network/Google/CloudKMS.hs @@ -24,6 +24,7 @@ -- * OAuth Scopes , cloudPlatformScope + , cloudKMSScope -- * API Declaration , CloudKMSAPI diff --git a/gen/Network/Google/CloudKMS/Types.hs b/gen/Network/Google/CloudKMS/Types.hs --- a/gen/Network/Google/CloudKMS/Types.hs +++ b/gen/Network/Google/CloudKMS/Types.hs @@ -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 diff --git a/gen/Network/Google/CloudKMS/Types/Product.hs b/gen/Network/Google/CloudKMS/Types/Product.hs --- a/gen/Network/Google/CloudKMS/Types/Product.hs +++ b/gen/Network/Google/CloudKMS/Types/Product.hs @@ -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}) diff --git a/gen/Network/Google/CloudKMS/Types/Sum.hs b/gen/Network/Google/CloudKMS/Types/Sum.hs --- a/gen/Network/Google/CloudKMS/Types/Sum.hs +++ b/gen/Network/Google/CloudKMS/Types/Sum.hs @@ -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" diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/Get.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/Get.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/Get.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Create.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Create.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Create.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Create.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Create.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Create.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Create.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Create.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricDecrypt.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricDecrypt.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricDecrypt.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricDecrypt.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricSign.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricSign.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricSign.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/AsymmetricSign.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Create.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Create.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Create.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Create.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Destroy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Destroy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Destroy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Destroy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Get.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Get.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Get.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/GetPublicKey.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/GetPublicKey.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/GetPublicKey.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/GetPublicKey.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/List.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/List.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/List.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Patch.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Patch.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Patch.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Restore.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Restore.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Restore.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/CryptoKeyVersions/Restore.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Decrypt.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Decrypt.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Decrypt.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Decrypt.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Encrypt.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Encrypt.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Encrypt.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Encrypt.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Get.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Get.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Get.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/GetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/List.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/List.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/List.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Patch.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Patch.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Patch.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/Patch.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/SetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/TestIAMPermissions.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/UpdatePrimaryVersion.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/UpdatePrimaryVersion.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/UpdatePrimaryVersion.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/CryptoKeys/UpdatePrimaryVersion.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Get.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Get.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Get.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/Get.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/GetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/GetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/GetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/GetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/GetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/SetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/ImportJobs/TestIAMPermissions.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/List.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/List.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/List.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/List.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/SetIAMPolicy.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/SetIAMPolicy.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/SetIAMPolicy.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/SetIAMPolicy.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/TestIAMPermissions.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/TestIAMPermissions.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/TestIAMPermissions.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/KeyRings/TestIAMPermissions.hs @@ -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 diff --git a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/List.hs b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/List.hs --- a/gen/Network/Google/Resource/CloudKMS/Projects/Locations/List.hs +++ b/gen/Network/Google/Resource/CloudKMS/Projects/Locations/List.hs @@ -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 diff --git a/gogol-cloudkms.cabal b/gogol-cloudkms.cabal --- a/gogol-cloudkms.cabal +++ b/gogol-cloudkms.cabal @@ -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