amazonka-kms 1.4.0 → 1.4.1

raw patch · 34 files changed

+164/−40 lines, 34 filesdep ~amazonka-coredep ~amazonka-kmsdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-kms, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-kms.cabal +5/−5
• gen/Network/AWS/KMS/CancelKeyDeletion.hs +4/−0
• gen/Network/AWS/KMS/CreateAlias.hs +4/−0
• gen/Network/AWS/KMS/CreateGrant.hs +4/−0
• gen/Network/AWS/KMS/CreateKey.hs +4/−0
• gen/Network/AWS/KMS/Decrypt.hs +4/−0
• gen/Network/AWS/KMS/DeleteAlias.hs +4/−0
• gen/Network/AWS/KMS/DescribeKey.hs +4/−0
• gen/Network/AWS/KMS/DisableKey.hs +4/−0
• gen/Network/AWS/KMS/DisableKeyRotation.hs +4/−0
• gen/Network/AWS/KMS/EnableKey.hs +4/−0
• gen/Network/AWS/KMS/EnableKeyRotation.hs +4/−0
• gen/Network/AWS/KMS/Encrypt.hs +4/−0
• gen/Network/AWS/KMS/GenerateDataKey.hs +4/−0
• gen/Network/AWS/KMS/GenerateDataKeyWithoutPlaintext.hs +5/−0
• gen/Network/AWS/KMS/GenerateRandom.hs +4/−0
• gen/Network/AWS/KMS/GetKeyPolicy.hs +4/−0
• gen/Network/AWS/KMS/GetKeyRotationStatus.hs +4/−0
• gen/Network/AWS/KMS/ListAliases.hs +6/−2
• gen/Network/AWS/KMS/ListGrants.hs +4/−2
• gen/Network/AWS/KMS/ListKeyPolicies.hs +6/−2
• gen/Network/AWS/KMS/ListKeys.hs +6/−2
• gen/Network/AWS/KMS/ListRetirableGrants.hs +4/−2
• gen/Network/AWS/KMS/PutKeyPolicy.hs +4/−0
• gen/Network/AWS/KMS/ReEncrypt.hs +4/−0
• gen/Network/AWS/KMS/RetireGrant.hs +4/−0
• gen/Network/AWS/KMS/RevokeGrant.hs +4/−0
• gen/Network/AWS/KMS/ScheduleKeyDeletion.hs +4/−0
• gen/Network/AWS/KMS/Types.hs +19/−24
• gen/Network/AWS/KMS/Types/Product.hs +12/−0
• gen/Network/AWS/KMS/Types/Sum.hs +4/−0
• gen/Network/AWS/KMS/UpdateAlias.hs +4/−0
• gen/Network/AWS/KMS/UpdateKeyDescription.hs +4/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-kms-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Key Management Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -150,7 +150,7 @@         , Network.AWS.KMS.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-kms-test@@ -170,9 +170,9 @@         , Test.AWS.KMS.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-kms == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-kms == 1.4.1.*         , base         , bytestring         , tasty

@@ -93,6 +93,8 @@  instance Hashable CancelKeyDeletion +instance NFData CancelKeyDeletion+ instance ToHeaders CancelKeyDeletion where         toHeaders           = const@@ -141,3 +143,5 @@ -- | The response status code. ckdrsResponseStatus :: Lens' CancelKeyDeletionResponse Int ckdrsResponseStatus = lens _ckdrsResponseStatus (\ s a -> s{_ckdrsResponseStatus = a});++instance NFData CancelKeyDeletionResponse

@@ -99,6 +99,8 @@  instance Hashable CreateAlias +instance NFData CreateAlias+ instance ToHeaders CreateAlias where         toHeaders           = const@@ -131,3 +133,5 @@ createAliasResponse     :: CreateAliasResponse createAliasResponse = CreateAliasResponse'++instance NFData CreateAliasResponse

@@ -197,6 +197,8 @@  instance Hashable CreateGrant +instance NFData CreateGrant+ instance ToHeaders CreateGrant where         toHeaders           = const@@ -268,3 +270,5 @@ -- | The response status code. cgrsResponseStatus :: Lens' CreateGrantResponse Int cgrsResponseStatus = lens _cgrsResponseStatus (\ s a -> s{_cgrsResponseStatus = a});++instance NFData CreateGrantResponse

@@ -101,6 +101,8 @@  instance Hashable CreateKey +instance NFData CreateKey+ instance ToHeaders CreateKey where         toHeaders           = const@@ -153,3 +155,5 @@ -- | The response status code. ckrsResponseStatus :: Lens' CreateKeyResponse Int ckrsResponseStatus = lens _ckrsResponseStatus (\ s a -> s{_ckrsResponseStatus = a});++instance NFData CreateKeyResponse

@@ -122,6 +122,8 @@  instance Hashable Decrypt +instance NFData Decrypt+ instance ToHeaders Decrypt where         toHeaders           = const@@ -190,3 +192,5 @@ -- | The response status code. drsResponseStatus :: Lens' DecryptResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DecryptResponse

@@ -71,6 +71,8 @@  instance Hashable DeleteAlias +instance NFData DeleteAlias+ instance ToHeaders DeleteAlias where         toHeaders           = const@@ -101,3 +103,5 @@ deleteAliasResponse     :: DeleteAliasResponse deleteAliasResponse = DeleteAliasResponse'++instance NFData DeleteAliasResponse

@@ -98,6 +98,8 @@  instance Hashable DescribeKey +instance NFData DescribeKey+ instance ToHeaders DescribeKey where         toHeaders           = const@@ -149,3 +151,5 @@ -- | The response status code. dkrsResponseStatus :: Lens' DescribeKeyResponse Int dkrsResponseStatus = lens _dkrsResponseStatus (\ s a -> s{_dkrsResponseStatus = a});++instance NFData DescribeKeyResponse

@@ -78,6 +78,8 @@  instance Hashable DisableKey +instance NFData DisableKey+ instance ToHeaders DisableKey where         toHeaders           = const@@ -107,3 +109,5 @@ disableKeyResponse     :: DisableKeyResponse disableKeyResponse = DisableKeyResponse'++instance NFData DisableKeyResponse

@@ -75,6 +75,8 @@  instance Hashable DisableKeyRotation +instance NFData DisableKeyRotation+ instance ToHeaders DisableKeyRotation where         toHeaders           = const@@ -104,3 +106,5 @@ disableKeyRotationResponse     :: DisableKeyRotationResponse disableKeyRotationResponse = DisableKeyRotationResponse'++instance NFData DisableKeyRotationResponse

@@ -74,6 +74,8 @@  instance Hashable EnableKey +instance NFData EnableKey+ instance ToHeaders EnableKey where         toHeaders           = const@@ -103,3 +105,5 @@ enableKeyResponse     :: EnableKeyResponse enableKeyResponse = EnableKeyResponse'++instance NFData EnableKeyResponse

@@ -74,6 +74,8 @@  instance Hashable EnableKeyRotation +instance NFData EnableKeyRotation+ instance ToHeaders EnableKeyRotation where         toHeaders           = const@@ -103,3 +105,5 @@ enableKeyRotationResponse     :: EnableKeyRotationResponse enableKeyRotationResponse = EnableKeyRotationResponse'++instance NFData EnableKeyRotationResponse

@@ -149,6 +149,8 @@  instance Hashable Encrypt +instance NFData Encrypt+ instance ToHeaders Encrypt where         toHeaders           = const@@ -217,3 +219,5 @@ -- | The response status code. ersResponseStatus :: Lens' EncryptResponse Int ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a});++instance NFData EncryptResponse

@@ -168,6 +168,8 @@  instance Hashable GenerateDataKey +instance NFData GenerateDataKey+ instance ToHeaders GenerateDataKey where         toHeaders           = const@@ -262,3 +264,5 @@ -- This 'Lens' accepts and returns only raw unencoded data. gdkrsCiphertextBlob :: Lens' GenerateDataKeyResponse ByteString gdkrsCiphertextBlob = lens _gdkrsCiphertextBlob (\ s a -> s{_gdkrsCiphertextBlob = a}) . _Base64;++instance NFData GenerateDataKeyResponse

@@ -137,6 +137,8 @@  instance Hashable GenerateDataKeyWithoutPlaintext +instance NFData GenerateDataKeyWithoutPlaintext+ instance ToHeaders GenerateDataKeyWithoutPlaintext          where         toHeaders@@ -214,3 +216,6 @@ -- | The response status code. gdkwprsResponseStatus :: Lens' GenerateDataKeyWithoutPlaintextResponse Int gdkwprsResponseStatus = lens _gdkwprsResponseStatus (\ s a -> s{_gdkwprsResponseStatus = a});++instance NFData+         GenerateDataKeyWithoutPlaintextResponse

@@ -75,6 +75,8 @@  instance Hashable GenerateRandom +instance NFData GenerateRandom+ instance ToHeaders GenerateRandom where         toHeaders           = const@@ -131,3 +133,5 @@ -- | The response status code. grrsResponseStatus :: Lens' GenerateRandomResponse Int grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});++instance NFData GenerateRandomResponse

@@ -93,6 +93,8 @@  instance Hashable GetKeyPolicy +instance NFData GetKeyPolicy+ instance ToHeaders GetKeyPolicy where         toHeaders           = const@@ -144,3 +146,5 @@ -- | The response status code. gkprsResponseStatus :: Lens' GetKeyPolicyResponse Int gkprsResponseStatus = lens _gkprsResponseStatus (\ s a -> s{_gkprsResponseStatus = a});++instance NFData GetKeyPolicyResponse

@@ -83,6 +83,8 @@  instance Hashable GetKeyRotationStatus +instance NFData GetKeyRotationStatus+ instance ToHeaders GetKeyRotationStatus where         toHeaders           = const@@ -131,3 +133,5 @@ -- | The response status code. gkrsrsResponseStatus :: Lens' GetKeyRotationStatusResponse Int gkrsrsResponseStatus = lens _gkrsrsResponseStatus (\ s a -> s{_gkrsrsResponseStatus = a});++instance NFData GetKeyRotationStatusResponse

@@ -70,8 +70,8 @@     }  -- | Use this parameter only when paginating results and only in a subsequent--- request after you\'ve received a response with truncated results. Set it--- to the value of 'NextMarker' from the response you just received.+-- request after you receive a response with truncated results. Set it to+-- the value of 'NextMarker' from the response you just received. laMarker :: Lens' ListAliases (Maybe Text) laMarker = lens _laMarker (\ s a -> s{_laMarker = a}); @@ -104,6 +104,8 @@  instance Hashable ListAliases +instance NFData ListAliases+ instance ToHeaders ListAliases where         toHeaders           = const@@ -174,3 +176,5 @@ -- | The response status code. larsResponseStatus :: Lens' ListAliasesResponse Int larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});++instance NFData ListAliasesResponse

@@ -75,8 +75,8 @@     }  -- | Use this parameter only when paginating results and only in a subsequent--- request after you\'ve received a response with truncated results. Set it--- to the value of 'NextMarker' from the response you just received.+-- request after you receive a response with truncated results. Set it to+-- the value of 'NextMarker' from the response you just received. lgMarker :: Lens' ListGrants (Maybe Text) lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a}); @@ -112,6 +112,8 @@         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance Hashable ListGrants++instance NFData ListGrants  instance ToHeaders ListGrants where         toHeaders

@@ -76,8 +76,8 @@     }  -- | Use this parameter only when paginating results and only in a subsequent--- request after you\'ve received a response with truncated results. Set it--- to the value of 'NextMarker' from the response you just received.+-- request after you receive a response with truncated results. Set it to+-- the value of 'NextMarker' from the response you just received. lkpMarker :: Lens' ListKeyPolicies (Maybe Text) lkpMarker = lens _lkpMarker (\ s a -> s{_lkpMarker = a}); @@ -127,6 +127,8 @@  instance Hashable ListKeyPolicies +instance NFData ListKeyPolicies+ instance ToHeaders ListKeyPolicies where         toHeaders           = const@@ -199,3 +201,5 @@ -- | The response status code. lkprsResponseStatus :: Lens' ListKeyPoliciesResponse Int lkprsResponseStatus = lens _lkprsResponseStatus (\ s a -> s{_lkprsResponseStatus = a});++instance NFData ListKeyPoliciesResponse

@@ -70,8 +70,8 @@     }  -- | Use this parameter only when paginating results and only in a subsequent--- request after you\'ve received a response with truncated results. Set it--- to the value of 'NextMarker' from the response you just received.+-- request after you receive a response with truncated results. Set it to+-- the value of 'NextMarker' from the response you just received. lkMarker :: Lens' ListKeys (Maybe Text) lkMarker = lens _lkMarker (\ s a -> s{_lkMarker = a}); @@ -104,6 +104,8 @@  instance Hashable ListKeys +instance NFData ListKeys+ instance ToHeaders ListKeys where         toHeaders           = const@@ -174,3 +176,5 @@ -- | The response status code. lkrsResponseStatus :: Lens' ListKeysResponse Int lkrsResponseStatus = lens _lkrsResponseStatus (\ s a -> s{_lkrsResponseStatus = a});++instance NFData ListKeysResponse

@@ -76,8 +76,8 @@     }  -- | Use this parameter only when paginating results and only in a subsequent--- request after you\'ve received a response with truncated results. Set it--- to the value of 'NextMarker' from the response you just received.+-- request after you receive a response with truncated results. Set it to+-- the value of 'NextMarker' from the response you just received. lrgMarker :: Lens' ListRetirableGrants (Maybe Text) lrgMarker = lens _lrgMarker (\ s a -> s{_lrgMarker = a}); @@ -109,6 +109,8 @@         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance Hashable ListRetirableGrants++instance NFData ListRetirableGrants  instance ToHeaders ListRetirableGrants where         toHeaders

@@ -97,6 +97,8 @@  instance Hashable PutKeyPolicy +instance NFData PutKeyPolicy+ instance ToHeaders PutKeyPolicy where         toHeaders           = const@@ -130,3 +132,5 @@ putKeyPolicyResponse     :: PutKeyPolicyResponse putKeyPolicyResponse = PutKeyPolicyResponse'++instance NFData PutKeyPolicyResponse

@@ -150,6 +150,8 @@  instance Hashable ReEncrypt +instance NFData ReEncrypt+ instance ToHeaders ReEncrypt where         toHeaders           = const@@ -229,3 +231,5 @@ -- | The response status code. rersResponseStatus :: Lens' ReEncryptResponse Int rersResponseStatus = lens _rersResponseStatus (\ s a -> s{_rersResponseStatus = a});++instance NFData ReEncryptResponse

@@ -109,6 +109,8 @@  instance Hashable RetireGrant +instance NFData RetireGrant+ instance ToHeaders RetireGrant where         toHeaders           = const@@ -142,3 +144,5 @@ retireGrantResponse     :: RetireGrantResponse retireGrantResponse = RetireGrantResponse'++instance NFData RetireGrantResponse

@@ -86,6 +86,8 @@  instance Hashable RevokeGrant +instance NFData RevokeGrant+ instance ToHeaders RevokeGrant where         toHeaders           = const@@ -118,3 +120,5 @@ revokeGrantResponse     :: RevokeGrantResponse revokeGrantResponse = RevokeGrantResponse'++instance NFData RevokeGrantResponse

@@ -117,6 +117,8 @@  instance Hashable ScheduleKeyDeletion +instance NFData ScheduleKeyDeletion+ instance ToHeaders ScheduleKeyDeletion where         toHeaders           = const@@ -179,3 +181,5 @@ -- | The response status code. skdrsResponseStatus :: Lens' ScheduleKeyDeletionResponse Int skdrsResponseStatus = lens _skdrsResponseStatus (\ s a -> s{_skdrsResponseStatus = a});++instance NFData ScheduleKeyDeletionResponse

@@ -132,6 +132,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"@@ -140,8 +142,7 @@ -- | The request was rejected because the marker that specifies where -- pagination should next begin is not valid. _InvalidMarkerException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidMarkerException =-    _ServiceError . hasStatus 400 . hasCode "InvalidMarker"+_InvalidMarkerException = _ServiceError . hasCode "InvalidMarkerException"  -- | The request was rejected because the state of the specified resource is -- not valid for this request.@@ -151,89 +152,83 @@ -- <http://docs.aws.amazon.com/kms/latest/developerguide/key-state.html How Key State Affects the Use of a Customer Master Key> -- in the /AWS Key Management Service Developer Guide/. _KMSInvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError-_KMSInvalidStateException =-    _ServiceError . hasStatus 409 . hasCode "KMSInvalidStateException"+_KMSInvalidStateException = _ServiceError . hasCode "KMSInvalidStateException"  -- | The request was rejected because the specified KeySpec parameter is not -- valid. The currently supported value is ENCRYPT\/DECRYPT. _InvalidKeyUsageException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidKeyUsageException =-    _ServiceError . hasStatus 400 . hasCode "InvalidKeyUsage"+_InvalidKeyUsageException = _ServiceError . hasCode "InvalidKeyUsageException"  -- | The request was rejected because the specified policy is not -- syntactically or semantically correct. _MalformedPolicyDocumentException :: AsError a => Getting (First ServiceError) a ServiceError _MalformedPolicyDocumentException =-    _ServiceError . hasStatus 400 . hasCode "MalformedPolicyDocument"+    _ServiceError . hasCode "MalformedPolicyDocumentException"  -- | The request was rejected because a specified parameter is not supported. _UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedOperationException =-    _ServiceError . hasStatus 400 . hasCode "UnsupportedOperation"+    _ServiceError . hasCode "UnsupportedOperationException"  -- | The request was rejected because the specified key was marked as -- disabled. _DisabledException :: AsError a => Getting (First ServiceError) a ServiceError-_DisabledException = _ServiceError . hasStatus 409 . hasCode "Disabled"+_DisabledException = _ServiceError . hasCode "DisabledException"  -- | The request was rejected because the key was not available. The request -- can be retried. _KeyUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError-_KeyUnavailableException =-    _ServiceError . hasStatus 500 . hasCode "KeyUnavailable"+_KeyUnavailableException = _ServiceError . hasCode "KeyUnavailableException"  -- | The request was rejected because an internal exception occurred. The -- request can be retried. _KMSInternalException :: AsError a => Getting (First ServiceError) a ServiceError-_KMSInternalException = _ServiceError . hasStatus 500 . hasCode "KMSInternal"+_KMSInternalException = _ServiceError . hasCode "KMSInternalException"  -- | The request was rejected because the specified entity or resource could -- not be found. _NotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_NotFoundException = _ServiceError . hasStatus 404 . hasCode "NotFound"+_NotFoundException = _ServiceError . hasCode "NotFoundException"  -- | The request was rejected because the specified alias name is not valid. _InvalidAliasNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidAliasNameException =-    _ServiceError . hasStatus 400 . hasCode "InvalidAliasName"+    _ServiceError . hasCode "InvalidAliasNameException"  -- | The request was rejected because the specified 'GrantId' is not valid. _InvalidGrantIdException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidGrantIdException =-    _ServiceError . hasStatus 400 . hasCode "InvalidGrantId"+_InvalidGrantIdException = _ServiceError . hasCode "InvalidGrantIdException"  -- | The request was rejected because a grant token provided as part of the -- request is invalid. _InvalidGrantTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidGrantTokenException =-    _ServiceError . hasStatus 400 . hasCode "InvalidGrantToken"+    _ServiceError . hasCode "InvalidGrantTokenException"  -- | The request was rejected because a specified ARN was not valid. _InvalidARNException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidARNException = _ServiceError . hasStatus 400 . hasCode "InvalidArn"+_InvalidARNException = _ServiceError . hasCode "InvalidArnException"  -- | The system timed out while trying to fulfill the request. The request -- can be retried. _DependencyTimeoutException :: AsError a => Getting (First ServiceError) a ServiceError _DependencyTimeoutException =-    _ServiceError . hasStatus 503 . hasCode "DependencyTimeout"+    _ServiceError . hasCode "DependencyTimeoutException"  -- | The request was rejected because the specified ciphertext has been -- corrupted or is otherwise invalid. _InvalidCiphertextException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCiphertextException =-    _ServiceError . hasStatus 400 . hasCode "InvalidCiphertext"+    _ServiceError . hasCode "InvalidCiphertextException"  -- | The request was rejected because it attempted to create a resource that -- already exists. _AlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError-_AlreadyExistsException =-    _ServiceError . hasStatus 400 . hasCode "AlreadyExists"+_AlreadyExistsException = _ServiceError . hasCode "AlreadyExistsException"  -- | The request was rejected because a limit was exceeded. For more -- information, see -- <http://docs.aws.amazon.com/kms/latest/developerguide/limits.html Limits> -- in the /AWS Key Management Service Developer Guide/. _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededException =-    _ServiceError . hasStatus 400 . hasCode "LimitExceeded"+_LimitExceededException = _ServiceError . hasCode "LimitExceededException"

@@ -70,6 +70,8 @@  instance Hashable AliasListEntry +instance NFData AliasListEntry+ -- | A structure for specifying the conditions under which the operations -- permitted by the grant are allowed. --@@ -126,6 +128,8 @@  instance Hashable GrantConstraints +instance NFData GrantConstraints+ instance ToJSON GrantConstraints where         toJSON GrantConstraints'{..}           = object@@ -241,6 +245,8 @@  instance Hashable GrantListEntry +instance NFData GrantListEntry+ -- | Contains information about each entry in the key list. -- -- /See:/ 'keyListEntry' smart constructor.@@ -281,6 +287,8 @@  instance Hashable KeyListEntry +instance NFData KeyListEntry+ -- | Contains metadata about a customer master key (CMK). -- -- This data type is used as a response element for the < CreateKey> and@@ -399,6 +407,8 @@  instance Hashable KeyMetadata +instance NFData KeyMetadata+ -- | /See:/ 'listGrantsResponse' smart constructor. data ListGrantsResponse = ListGrantsResponse'     { _lgTruncated  :: !(Maybe Bool)@@ -448,3 +458,5 @@                      <*> (x .:? "NextMarker"))  instance Hashable ListGrantsResponse++instance NFData ListGrantsResponse

@@ -37,6 +37,7 @@         AES256 -> "AES_256"  instance Hashable     DataKeySpec+instance NFData       DataKeySpec instance ToByteString DataKeySpec instance ToQuery      DataKeySpec instance ToHeader     DataKeySpec@@ -83,6 +84,7 @@         RetireGrant -> "RetireGrant"  instance Hashable     GrantOperation+instance NFData       GrantOperation instance ToByteString GrantOperation instance ToQuery      GrantOperation instance ToHeader     GrantOperation@@ -114,6 +116,7 @@         PendingDeletion -> "PendingDeletion"  instance Hashable     KeyState+instance NFData       KeyState instance ToByteString KeyState instance ToQuery      KeyState instance ToHeader     KeyState@@ -136,6 +139,7 @@         EncryptDecrypt -> "ENCRYPT_DECRYPT"  instance Hashable     KeyUsageType+instance NFData       KeyUsageType instance ToByteString KeyUsageType instance ToQuery      KeyUsageType instance ToHeader     KeyUsageType

@@ -103,6 +103,8 @@  instance Hashable UpdateAlias +instance NFData UpdateAlias+ instance ToHeaders UpdateAlias where         toHeaders           = const@@ -135,3 +137,5 @@ updateAliasResponse     :: UpdateAliasResponse updateAliasResponse = UpdateAliasResponse'++instance NFData UpdateAliasResponse

@@ -85,6 +85,8 @@  instance Hashable UpdateKeyDescription +instance NFData UpdateKeyDescription+ instance ToHeaders UpdateKeyDescription where         toHeaders           = const@@ -117,3 +119,5 @@ updateKeyDescriptionResponse     :: UpdateKeyDescriptionResponse updateKeyDescriptionResponse = UpdateKeyDescriptionResponse'++instance NFData UpdateKeyDescriptionResponse