packages feed

amazonka-cloudhsm 1.4.2 → 1.4.3

raw patch · 20 files changed

+166/−222 lines, 20 filesdep ~amazonka-cloudhsmdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.4.2`+`1.4.3`   ## Description
amazonka-cloudhsm.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-cloudhsm-version:               1.4.2+version:               1.4.3 synopsis:              Amazon CloudHSM SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -69,7 +69,7 @@         , Network.AWS.CloudHSM.Types.Sum      build-depends:-          amazonka-core == 1.4.2.*+          amazonka-core == 1.4.3.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudhsm-test@@ -89,9 +89,9 @@         , Test.AWS.CloudHSM.Internal      build-depends:-          amazonka-core == 1.4.2.*-        , amazonka-test == 1.4.2.*-        , amazonka-cloudhsm == 1.4.2.*+          amazonka-core == 1.4.3.*+        , amazonka-test == 1.4.3.*+        , amazonka-cloudhsm == 1.4.3.*         , base         , bytestring         , tasty
gen/Network/AWS/CloudHSM/AddTagsToResource.hs view
@@ -18,11 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds or overwrites one or more tags for the specified AWS CloudHSM--- resource.+-- Adds or overwrites one or more tags for the specified AWS CloudHSM resource. ----- Each tag consists of a key and a value. Tag keys must be unique to each--- resource.+-- Each tag consists of a key and a value. Tag keys must be unique to each resource. module Network.AWS.CloudHSM.AddTagsToResource     (     -- * Creating a Request
gen/Network/AWS/CloudHSM/CreateHAPG.hs view
@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a high-availability partition group. A high-availability--- partition group is a group of partitions that spans multiple physical--- HSMs.+-- Creates a high-availability partition group. A high-availability partition group is a group of partitions that spans multiple physical HSMs. module Network.AWS.CloudHSM.CreateHAPG     (     -- * Creating a Request
gen/Network/AWS/CloudHSM/CreateHSM.hs view
@@ -20,16 +20,9 @@ -- -- Creates an uninitialized HSM instance. ----- There is an upfront fee charged for each HSM instance that you create--- with the < CreateHsm> operation. If you accidentally provision an HSM--- and want to request a refund, delete the instance using the < DeleteHsm>--- operation, go to the--- <https://console.aws.amazon.com/support/home#/ AWS Support Center>,--- create a new case, and select __Account and Billing Support__.+-- There is an upfront fee charged for each HSM instance that you create with the < CreateHsm> operation. If you accidentally provision an HSM and want to request a refund, delete the instance using the < DeleteHsm> operation, go to the <https://console.aws.amazon.com/support/home#/ AWS Support Center>, create a new case, and select __Account and Billing Support__. ----- It can take up to 20 minutes to create and provision an HSM. You can--- monitor the status of the HSM with the < DescribeHsm> operation. The HSM--- is ready to be initialized when the status changes to 'RUNNING'.+-- It can take up to 20 minutes to create and provision an HSM. You can monitor the status of the HSM with the < DescribeHsm> operation. The HSM is ready to be initialized when the status changes to 'RUNNING'. module Network.AWS.CloudHSM.CreateHSM     (     -- * Creating a Request@@ -111,13 +104,11 @@     , _chSubscriptionType = pSubscriptionType_     } --- | A user-defined token to ensure idempotence. Subsequent calls to this--- operation with the same token will be ignored.+-- | A user-defined token to ensure idempotence. Subsequent calls to this operation with the same token will be ignored. chClientToken :: Lens' CreateHSM (Maybe Text) chClientToken = lens _chClientToken (\ s a -> s{_chClientToken = a}); --- | The IP address for the syslog monitoring server. The AWS CloudHSM--- service only supports one syslog monitoring server.+-- | The IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server. chSyslogIP :: Lens' CreateHSM (Maybe Text) chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a}); @@ -127,8 +118,7 @@  -- | The IP address to assign to the HSM\'s ENI. ----- If an IP address is not specified, an IP address will be randomly chosen--- from the CIDR range of the subnet.+-- If an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the subnet. chEniIP :: Lens' CreateHSM (Maybe Text) chEniIP = lens _chEniIP (\ s a -> s{_chEniIP = a}); @@ -140,8 +130,7 @@ chSSHKey :: Lens' CreateHSM Text chSSHKey = lens _chSSHKey (\ s a -> s{_chSSHKey = a}); --- | The ARN of an IAM role to enable the AWS CloudHSM service to allocate an--- ENI on your behalf.+-- | The ARN of an IAM role to enable the AWS CloudHSM service to allocate an ENI on your behalf. chIAMRoleARN :: Lens' CreateHSM Text chIAMRoleARN = lens _chIAMRoleARN (\ s a -> s{_chIAMRoleARN = a});
gen/Network/AWS/CloudHSM/CreateLunaClient.hs view
@@ -71,8 +71,7 @@ clcLabel :: Lens' CreateLunaClient (Maybe Text) clcLabel = lens _clcLabel (\ s a -> s{_clcLabel = a}); --- | The contents of a Base64-Encoded X.509 v3 certificate to be installed on--- the HSMs used by this client.+-- | The contents of a Base64-Encoded X.509 v3 certificate to be installed on the HSMs used by this client. clcCertificate :: Lens' CreateLunaClient Text clcCertificate = lens _clcCertificate (\ s a -> s{_clcCertificate = a});
gen/Network/AWS/CloudHSM/DeleteHSM.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes an HSM. After completion, this operation cannot be undone and--- your key material cannot be recovered.+-- Deletes an HSM. After completion, this operation cannot be undone and your key material cannot be recovered. module Network.AWS.CloudHSM.DeleteHSM     (     -- * Creating a Request
gen/Network/AWS/CloudHSM/DescribeHAPG.hs view
@@ -176,8 +176,7 @@ dhapgrsState :: Lens' DescribeHAPGResponse (Maybe CloudHSMObjectState) dhapgrsState = lens _dhapgrsState (\ s a -> s{_dhapgrsState = a}); --- | The date and time the high-availability partition group was last--- modified.+-- | The date and time the high-availability partition group was last modified. dhapgrsLastModifiedTimestamp :: Lens' DescribeHAPGResponse (Maybe Text) dhapgrsLastModifiedTimestamp = lens _dhapgrsLastModifiedTimestamp (\ s a -> s{_dhapgrsLastModifiedTimestamp = a}); @@ -197,8 +196,7 @@ dhapgrsHSMsLastActionFailed :: Lens' DescribeHAPGResponse [Text] dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce; --- | The list of partition serial numbers that belong to the--- high-availability partition group.+-- | The list of partition serial numbers that belong to the high-availability partition group. dhapgrsPartitionSerialList :: Lens' DescribeHAPGResponse [Text] dhapgrsPartitionSerialList = lens _dhapgrsPartitionSerialList (\ s a -> s{_dhapgrsPartitionSerialList = a}) . _Default . _Coerce;
gen/Network/AWS/CloudHSM/DescribeHSM.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves information about an HSM. You can identify the HSM by its ARN--- or its serial number.+-- Retrieves information about an HSM. You can identify the HSM by its ARN or its serial number. module Network.AWS.CloudHSM.DescribeHSM     (     -- * Creating a Request@@ -87,13 +86,11 @@     , _dhsmHSMARN = Nothing     } --- | The serial number of the HSM. Either the /HsmArn/ or the--- /HsmSerialNumber/ parameter must be specified.+-- | The serial number of the HSM. Either the /HsmArn/ or the /HsmSerialNumber/ parameter must be specified. dhsmHSMSerialNumber :: Lens' DescribeHSM (Maybe Text) dhsmHSMSerialNumber = lens _dhsmHSMSerialNumber (\ s a -> s{_dhsmHSMSerialNumber = a}); --- | The ARN of the HSM. Either the /HsmArn/ or the /SerialNumber/ parameter--- must be specified.+-- | The ARN of the HSM. Either the /HsmArn/ or the /SerialNumber/ parameter must be specified. dhsmHSMARN :: Lens' DescribeHSM (Maybe Text) dhsmHSMARN = lens _dhsmHSMARN (\ s a -> s{_dhsmHSMARN = a}); @@ -265,8 +262,7 @@ desrsIAMRoleARN :: Lens' DescribeHSMResponse (Maybe Text) desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a}); --- | The identifier of the elastic network interface (ENI) attached to the--- HSM.+-- | The identifier of the elastic network interface (ENI) attached to the HSM. desrsEniId :: Lens' DescribeHSMResponse (Maybe Text) desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a});
gen/Network/AWS/CloudHSM/GetConfig.hs view
@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets the configuration files necessary to connect to all high--- availability partition groups the client is associated with.+-- Gets the configuration files necessary to connect to all high availability partition groups the client is associated with. module Network.AWS.CloudHSM.GetConfig     (     -- * Creating a Request@@ -82,8 +81,7 @@ gcClientVersion :: Lens' GetConfig ClientVersion gcClientVersion = lens _gcClientVersion (\ s a -> s{_gcClientVersion = a}); --- | A list of ARNs that identify the high-availability partition groups that--- are associated with the client.+-- | A list of ARNs that identify the high-availability partition groups that are associated with the client. gcHAPGList :: Lens' GetConfig [Text] gcHAPGList = lens _gcHAPGList (\ s a -> s{_gcHAPGList = a}) . _Coerce;
gen/Network/AWS/CloudHSM/ListAvailableZones.hs view
@@ -108,8 +108,7 @@     , _lazrsResponseStatus = pResponseStatus_     } --- | The list of Availability Zones that have available AWS CloudHSM--- capacity.+-- | The list of Availability Zones that have available AWS CloudHSM capacity. lazrsAZList :: Lens' ListAvailableZonesResponse [Text] lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce;
gen/Network/AWS/CloudHSM/ListHAPGs.hs view
@@ -20,10 +20,7 @@ -- -- Lists the high-availability partition groups for the account. ----- This operation supports pagination with the use of the /NextToken/--- member. If more results are available, the /NextToken/ member of the--- response contains a token that you pass in the next call to < ListHapgs>--- to retrieve the next set of items.+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListHapgs> to retrieve the next set of items. module Network.AWS.CloudHSM.ListHAPGs     (     -- * Creating a Request@@ -65,8 +62,7 @@     { _lhNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListHapgs>. Pass null if--- this is the first call.+-- | The /NextToken/ value from a previous call to < ListHapgs>. Pass null if this is the first call. lhNextToken :: Lens' ListHAPGs (Maybe Text) lhNextToken = lens _lhNextToken (\ s a -> s{_lhNextToken = a}); @@ -130,8 +126,7 @@     , _lhrsHAPGList = mempty     } --- | If not null, more results are available. Pass this value to < ListHapgs>--- to retrieve the next set of items.+-- | If not null, more results are available. Pass this value to < ListHapgs> to retrieve the next set of items. lhrsNextToken :: Lens' ListHAPGsResponse (Maybe Text) lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a});
gen/Network/AWS/CloudHSM/ListHSMs.hs view
@@ -18,13 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves the identifiers of all of the HSMs provisioned for the current--- customer.+-- Retrieves the identifiers of all of the HSMs provisioned for the current customer. ----- This operation supports pagination with the use of the /NextToken/--- member. If more results are available, the /NextToken/ member of the--- response contains a token that you pass in the next call to < ListHsms>--- to retrieve the next set of items.+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListHsms> to retrieve the next set of items. module Network.AWS.CloudHSM.ListHSMs     (     -- * Creating a Request@@ -66,8 +62,7 @@     { _lhsmNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListHsms>. Pass null if--- this is the first call.+-- | The /NextToken/ value from a previous call to < ListHsms>. Pass null if this is the first call. lhsmNextToken :: Lens' ListHSMs (Maybe Text) lhsmNextToken = lens _lhsmNextToken (\ s a -> s{_lhsmNextToken = a}); @@ -133,8 +128,7 @@     , _lhsmrsResponseStatus = pResponseStatus_     } --- | If not null, more results are available. Pass this value to < ListHsms>--- to retrieve the next set of items.+-- | If not null, more results are available. Pass this value to < ListHsms> to retrieve the next set of items. lhsmrsNextToken :: Lens' ListHSMsResponse (Maybe Text) lhsmrsNextToken = lens _lhsmrsNextToken (\ s a -> s{_lhsmrsNextToken = a});
gen/Network/AWS/CloudHSM/ListLunaClients.hs view
@@ -20,10 +20,7 @@ -- -- Lists all of the clients. ----- This operation supports pagination with the use of the /NextToken/--- member. If more results are available, the /NextToken/ member of the--- response contains a token that you pass in the next call to--- < ListLunaClients> to retrieve the next set of items.+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListLunaClients> to retrieve the next set of items. module Network.AWS.CloudHSM.ListLunaClients     (     -- * Creating a Request@@ -65,8 +62,7 @@     { _llcNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListLunaClients>. Pass--- null if this is the first call.+-- | The /NextToken/ value from a previous call to < ListLunaClients>. Pass null if this is the first call. llcNextToken :: Lens' ListLunaClients (Maybe Text) llcNextToken = lens _llcNextToken (\ s a -> s{_llcNextToken = a}); @@ -131,8 +127,7 @@     , _llcrsClientList = mempty     } --- | If not null, more results are available. Pass this to < ListLunaClients>--- to retrieve the next set of items.+-- | If not null, more results are available. Pass this to < ListLunaClients> to retrieve the next set of items. llcrsNextToken :: Lens' ListLunaClientsResponse (Maybe Text) llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a});
gen/Network/AWS/CloudHSM/ModifyHAPG.hs view
@@ -70,8 +70,7 @@     , _mhHAPGARN = pHAPGARN_     } --- | The list of partition serial numbers to make members of the--- high-availability partition group.+-- | The list of partition serial numbers to make members of the high-availability partition group. mhPartitionSerialList :: Lens' ModifyHAPG [Text] mhPartitionSerialList = lens _mhPartitionSerialList (\ s a -> s{_mhPartitionSerialList = a}) . _Default . _Coerce;
gen/Network/AWS/CloudHSM/ModifyHSM.hs view
@@ -20,11 +20,7 @@ -- -- Modifies an HSM. ----- This operation can result in the HSM being offline for up to 15 minutes--- while the AWS CloudHSM service is reconfigured. If you are modifying a--- production HSM, you should ensure that your AWS CloudHSM service is--- configured for high availability, and consider executing this operation--- during a maintenance window.+-- This operation can result in the HSM being offline for up to 15 minutes while the AWS CloudHSM service is reconfigured. If you are modifying a production HSM, you should ensure that your AWS CloudHSM service is configured for high availability, and consider executing this operation during a maintenance window. module Network.AWS.CloudHSM.ModifyHSM     (     -- * Creating a Request@@ -97,13 +93,11 @@ mhIAMRoleARN :: Lens' ModifyHSM (Maybe Text) mhIAMRoleARN = lens _mhIAMRoleARN (\ s a -> s{_mhIAMRoleARN = a}); --- | The new identifier of the subnet that the HSM is in. The new subnet must--- be in the same Availability Zone as the current subnet.+-- | The new identifier of the subnet that the HSM is in. The new subnet must be in the same Availability Zone as the current subnet. mhSubnetId :: Lens' ModifyHSM (Maybe Text) mhSubnetId = lens _mhSubnetId (\ s a -> s{_mhSubnetId = a}); --- | The new IP address for the syslog monitoring server. The AWS CloudHSM--- service only supports one syslog monitoring server.+-- | The new IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server. mhSyslogIP :: Lens' ModifyHSM (Maybe Text) mhSyslogIP = lens _mhSyslogIP (\ s a -> s{_mhSyslogIP = a}); @@ -111,12 +105,9 @@ mhExternalId :: Lens' ModifyHSM (Maybe Text) mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a}); --- | The new IP address for the elastic network interface (ENI) attached to--- the HSM.+-- | The new IP address for the elastic network interface (ENI) attached to the HSM. ----- If the HSM is moved to a different subnet, and an IP address is not--- specified, an IP address will be randomly chosen from the CIDR range of--- the new subnet.+-- If the HSM is moved to a different subnet, and an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the new subnet. mhEniIP :: Lens' ModifyHSM (Maybe Text) mhEniIP = lens _mhEniIP (\ s a -> s{_mhEniIP = a});
gen/Network/AWS/CloudHSM/ModifyLunaClient.hs view
@@ -20,8 +20,7 @@ -- -- Modifies the certificate used by the client. ----- This action can potentially start a workflow to install the new--- certificate on the client\'s HSMs.+-- This action can potentially start a workflow to install the new certificate on the client\'s HSMs. module Network.AWS.CloudHSM.ModifyLunaClient     (     -- * Creating a Request
gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs view
@@ -20,8 +20,7 @@ -- -- Removes one or more tags from the specified AWS CloudHSM resource. ----- To remove a tag, specify only the tag key to remove (not the value). To--- overwrite the value for an existing tag, use < AddTagsToResource>.+-- To remove a tag, specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use < AddTagsToResource>. module Network.AWS.CloudHSM.RemoveTagsFromResource     (     -- * Creating a Request@@ -74,8 +73,7 @@  -- | The tag key or keys to remove. ----- Specify only the tag key to remove (not the value). To overwrite the--- value for an existing tag, use < AddTagsToResource>.+-- Specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use < AddTagsToResource>. rtfrTagKeyList :: Lens' RemoveTagsFromResource [Text] rtfrTagKeyList = lens _rtfrTagKeyList (\ s a -> s{_rtfrTagKeyList = a}) . _Coerce;
gen/Network/AWS/CloudHSM/Types/Product.hs view
@@ -21,8 +21,7 @@ import           Network.AWS.Lens import           Network.AWS.Prelude --- | A key-value pair that identifies or specifies metadata about an AWS--- CloudHSM resource.+-- | A key-value pair that identifies or specifies metadata about an AWS CloudHSM resource. -- -- /See:/ 'tag' smart constructor. data Tag = Tag'
test/Test/AWS/Gen/CloudHSM.hs view
@@ -28,127 +28,127 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testDeleteHAPG $+--         [ requestDeleteHAPG $ --             deleteHAPG -----         , testListHAPGs $+--         , requestListHAPGs $ --             listHAPGs -----         , testModifyLunaClient $+--         , requestModifyLunaClient $ --             modifyLunaClient -----         , testListHSMs $+--         , requestListHSMs $ --             listHSMs -----         , testDescribeLunaClient $+--         , requestDescribeLunaClient $ --             describeLunaClient -----         , testListTagsForResource $+--         , requestListTagsForResource $ --             listTagsForResource -----         , testCreateHAPG $+--         , requestCreateHAPG $ --             createHAPG -----         , testCreateHSM $+--         , requestCreateHSM $ --             createHSM -----         , testRemoveTagsFromResource $+--         , requestRemoveTagsFromResource $ --             removeTagsFromResource -----         , testDescribeHAPG $+--         , requestDescribeHAPG $ --             describeHAPG -----         , testCreateLunaClient $+--         , requestCreateLunaClient $ --             createLunaClient -----         , testListLunaClients $+--         , requestListLunaClients $ --             listLunaClients -----         , testAddTagsToResource $+--         , requestAddTagsToResource $ --             addTagsToResource -----         , testGetConfig $+--         , requestGetConfig $ --             getConfig -----         , testDeleteHSM $+--         , requestDeleteHSM $ --             deleteHSM -----         , testDescribeHSM $+--         , requestDescribeHSM $ --             describeHSM -----         , testModifyHAPG $+--         , requestModifyHAPG $ --             modifyHAPG -----         , testDeleteLunaClient $+--         , requestDeleteLunaClient $ --             deleteLunaClient -----         , testModifyHSM $+--         , requestModifyHSM $ --             modifyHSM -----         , testListAvailableZones $+--         , requestListAvailableZones $ --             listAvailableZones -- --           ]  --     , testGroup "response"---         [ testDeleteHAPGResponse $+--         [ responseDeleteHAPG $ --             deleteHAPGResponse -----         , testListHAPGsResponse $+--         , responseListHAPGs $ --             listHAPGsResponse -----         , testModifyLunaClientResponse $+--         , responseModifyLunaClient $ --             modifyLunaClientResponse -----         , testListHSMsResponse $+--         , responseListHSMs $ --             listHSMsResponse -----         , testDescribeLunaClientResponse $+--         , responseDescribeLunaClient $ --             describeLunaClientResponse -----         , testListTagsForResourceResponse $+--         , responseListTagsForResource $ --             listTagsForResourceResponse -----         , testCreateHAPGResponse $+--         , responseCreateHAPG $ --             createHAPGResponse -----         , testCreateHSMResponse $+--         , responseCreateHSM $ --             createHSMResponse -----         , testRemoveTagsFromResourceResponse $+--         , responseRemoveTagsFromResource $ --             removeTagsFromResourceResponse -----         , testDescribeHAPGResponse $+--         , responseDescribeHAPG $ --             describeHAPGResponse -----         , testCreateLunaClientResponse $+--         , responseCreateLunaClient $ --             createLunaClientResponse -----         , testListLunaClientsResponse $+--         , responseListLunaClients $ --             listLunaClientsResponse -----         , testAddTagsToResourceResponse $+--         , responseAddTagsToResource $ --             addTagsToResourceResponse -----         , testGetConfigResponse $+--         , responseGetConfig $ --             getConfigResponse -----         , testDeleteHSMResponse $+--         , responseDeleteHSM $ --             deleteHSMResponse -----         , testDescribeHSMResponse $+--         , responseDescribeHSM $ --             describeHSMResponse -----         , testModifyHAPGResponse $+--         , responseModifyHAPG $ --             modifyHAPGResponse -----         , testDeleteLunaClientResponse $+--         , responseDeleteLunaClient $ --             deleteLunaClientResponse -----         , testModifyHSMResponse $+--         , responseModifyHSM $ --             modifyHSMResponse -----         , testListAvailableZonesResponse $+--         , responseListAvailableZones $ --             listAvailableZonesResponse -- --           ]@@ -156,243 +156,243 @@  -- Requests -testDeleteHAPG :: DeleteHAPG -> TestTree-testDeleteHAPG = req+requestDeleteHAPG :: DeleteHAPG -> TestTree+requestDeleteHAPG = req     "DeleteHAPG"     "fixture/DeleteHAPG.yaml" -testListHAPGs :: ListHAPGs -> TestTree-testListHAPGs = req+requestListHAPGs :: ListHAPGs -> TestTree+requestListHAPGs = req     "ListHAPGs"     "fixture/ListHAPGs.yaml" -testModifyLunaClient :: ModifyLunaClient -> TestTree-testModifyLunaClient = req+requestModifyLunaClient :: ModifyLunaClient -> TestTree+requestModifyLunaClient = req     "ModifyLunaClient"     "fixture/ModifyLunaClient.yaml" -testListHSMs :: ListHSMs -> TestTree-testListHSMs = req+requestListHSMs :: ListHSMs -> TestTree+requestListHSMs = req     "ListHSMs"     "fixture/ListHSMs.yaml" -testDescribeLunaClient :: DescribeLunaClient -> TestTree-testDescribeLunaClient = req+requestDescribeLunaClient :: DescribeLunaClient -> TestTree+requestDescribeLunaClient = req     "DescribeLunaClient"     "fixture/DescribeLunaClient.yaml" -testListTagsForResource :: ListTagsForResource -> TestTree-testListTagsForResource = req+requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource = req     "ListTagsForResource"     "fixture/ListTagsForResource.yaml" -testCreateHAPG :: CreateHAPG -> TestTree-testCreateHAPG = req+requestCreateHAPG :: CreateHAPG -> TestTree+requestCreateHAPG = req     "CreateHAPG"     "fixture/CreateHAPG.yaml" -testCreateHSM :: CreateHSM -> TestTree-testCreateHSM = req+requestCreateHSM :: CreateHSM -> TestTree+requestCreateHSM = req     "CreateHSM"     "fixture/CreateHSM.yaml" -testRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree-testRemoveTagsFromResource = req+requestRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree+requestRemoveTagsFromResource = req     "RemoveTagsFromResource"     "fixture/RemoveTagsFromResource.yaml" -testDescribeHAPG :: DescribeHAPG -> TestTree-testDescribeHAPG = req+requestDescribeHAPG :: DescribeHAPG -> TestTree+requestDescribeHAPG = req     "DescribeHAPG"     "fixture/DescribeHAPG.yaml" -testCreateLunaClient :: CreateLunaClient -> TestTree-testCreateLunaClient = req+requestCreateLunaClient :: CreateLunaClient -> TestTree+requestCreateLunaClient = req     "CreateLunaClient"     "fixture/CreateLunaClient.yaml" -testListLunaClients :: ListLunaClients -> TestTree-testListLunaClients = req+requestListLunaClients :: ListLunaClients -> TestTree+requestListLunaClients = req     "ListLunaClients"     "fixture/ListLunaClients.yaml" -testAddTagsToResource :: AddTagsToResource -> TestTree-testAddTagsToResource = req+requestAddTagsToResource :: AddTagsToResource -> TestTree+requestAddTagsToResource = req     "AddTagsToResource"     "fixture/AddTagsToResource.yaml" -testGetConfig :: GetConfig -> TestTree-testGetConfig = req+requestGetConfig :: GetConfig -> TestTree+requestGetConfig = req     "GetConfig"     "fixture/GetConfig.yaml" -testDeleteHSM :: DeleteHSM -> TestTree-testDeleteHSM = req+requestDeleteHSM :: DeleteHSM -> TestTree+requestDeleteHSM = req     "DeleteHSM"     "fixture/DeleteHSM.yaml" -testDescribeHSM :: DescribeHSM -> TestTree-testDescribeHSM = req+requestDescribeHSM :: DescribeHSM -> TestTree+requestDescribeHSM = req     "DescribeHSM"     "fixture/DescribeHSM.yaml" -testModifyHAPG :: ModifyHAPG -> TestTree-testModifyHAPG = req+requestModifyHAPG :: ModifyHAPG -> TestTree+requestModifyHAPG = req     "ModifyHAPG"     "fixture/ModifyHAPG.yaml" -testDeleteLunaClient :: DeleteLunaClient -> TestTree-testDeleteLunaClient = req+requestDeleteLunaClient :: DeleteLunaClient -> TestTree+requestDeleteLunaClient = req     "DeleteLunaClient"     "fixture/DeleteLunaClient.yaml" -testModifyHSM :: ModifyHSM -> TestTree-testModifyHSM = req+requestModifyHSM :: ModifyHSM -> TestTree+requestModifyHSM = req     "ModifyHSM"     "fixture/ModifyHSM.yaml" -testListAvailableZones :: ListAvailableZones -> TestTree-testListAvailableZones = req+requestListAvailableZones :: ListAvailableZones -> TestTree+requestListAvailableZones = req     "ListAvailableZones"     "fixture/ListAvailableZones.yaml"  -- Responses -testDeleteHAPGResponse :: DeleteHAPGResponse -> TestTree-testDeleteHAPGResponse = res+responseDeleteHAPG :: DeleteHAPGResponse -> TestTree+responseDeleteHAPG = res     "DeleteHAPGResponse"     "fixture/DeleteHAPGResponse.proto"     cloudHSM     (Proxy :: Proxy DeleteHAPG) -testListHAPGsResponse :: ListHAPGsResponse -> TestTree-testListHAPGsResponse = res+responseListHAPGs :: ListHAPGsResponse -> TestTree+responseListHAPGs = res     "ListHAPGsResponse"     "fixture/ListHAPGsResponse.proto"     cloudHSM     (Proxy :: Proxy ListHAPGs) -testModifyLunaClientResponse :: ModifyLunaClientResponse -> TestTree-testModifyLunaClientResponse = res+responseModifyLunaClient :: ModifyLunaClientResponse -> TestTree+responseModifyLunaClient = res     "ModifyLunaClientResponse"     "fixture/ModifyLunaClientResponse.proto"     cloudHSM     (Proxy :: Proxy ModifyLunaClient) -testListHSMsResponse :: ListHSMsResponse -> TestTree-testListHSMsResponse = res+responseListHSMs :: ListHSMsResponse -> TestTree+responseListHSMs = res     "ListHSMsResponse"     "fixture/ListHSMsResponse.proto"     cloudHSM     (Proxy :: Proxy ListHSMs) -testDescribeLunaClientResponse :: DescribeLunaClientResponse -> TestTree-testDescribeLunaClientResponse = res+responseDescribeLunaClient :: DescribeLunaClientResponse -> TestTree+responseDescribeLunaClient = res     "DescribeLunaClientResponse"     "fixture/DescribeLunaClientResponse.proto"     cloudHSM     (Proxy :: Proxy DescribeLunaClient) -testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree-testListTagsForResourceResponse = res+responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource = res     "ListTagsForResourceResponse"     "fixture/ListTagsForResourceResponse.proto"     cloudHSM     (Proxy :: Proxy ListTagsForResource) -testCreateHAPGResponse :: CreateHAPGResponse -> TestTree-testCreateHAPGResponse = res+responseCreateHAPG :: CreateHAPGResponse -> TestTree+responseCreateHAPG = res     "CreateHAPGResponse"     "fixture/CreateHAPGResponse.proto"     cloudHSM     (Proxy :: Proxy CreateHAPG) -testCreateHSMResponse :: CreateHSMResponse -> TestTree-testCreateHSMResponse = res+responseCreateHSM :: CreateHSMResponse -> TestTree+responseCreateHSM = res     "CreateHSMResponse"     "fixture/CreateHSMResponse.proto"     cloudHSM     (Proxy :: Proxy CreateHSM) -testRemoveTagsFromResourceResponse :: RemoveTagsFromResourceResponse -> TestTree-testRemoveTagsFromResourceResponse = res+responseRemoveTagsFromResource :: RemoveTagsFromResourceResponse -> TestTree+responseRemoveTagsFromResource = res     "RemoveTagsFromResourceResponse"     "fixture/RemoveTagsFromResourceResponse.proto"     cloudHSM     (Proxy :: Proxy RemoveTagsFromResource) -testDescribeHAPGResponse :: DescribeHAPGResponse -> TestTree-testDescribeHAPGResponse = res+responseDescribeHAPG :: DescribeHAPGResponse -> TestTree+responseDescribeHAPG = res     "DescribeHAPGResponse"     "fixture/DescribeHAPGResponse.proto"     cloudHSM     (Proxy :: Proxy DescribeHAPG) -testCreateLunaClientResponse :: CreateLunaClientResponse -> TestTree-testCreateLunaClientResponse = res+responseCreateLunaClient :: CreateLunaClientResponse -> TestTree+responseCreateLunaClient = res     "CreateLunaClientResponse"     "fixture/CreateLunaClientResponse.proto"     cloudHSM     (Proxy :: Proxy CreateLunaClient) -testListLunaClientsResponse :: ListLunaClientsResponse -> TestTree-testListLunaClientsResponse = res+responseListLunaClients :: ListLunaClientsResponse -> TestTree+responseListLunaClients = res     "ListLunaClientsResponse"     "fixture/ListLunaClientsResponse.proto"     cloudHSM     (Proxy :: Proxy ListLunaClients) -testAddTagsToResourceResponse :: AddTagsToResourceResponse -> TestTree-testAddTagsToResourceResponse = res+responseAddTagsToResource :: AddTagsToResourceResponse -> TestTree+responseAddTagsToResource = res     "AddTagsToResourceResponse"     "fixture/AddTagsToResourceResponse.proto"     cloudHSM     (Proxy :: Proxy AddTagsToResource) -testGetConfigResponse :: GetConfigResponse -> TestTree-testGetConfigResponse = res+responseGetConfig :: GetConfigResponse -> TestTree+responseGetConfig = res     "GetConfigResponse"     "fixture/GetConfigResponse.proto"     cloudHSM     (Proxy :: Proxy GetConfig) -testDeleteHSMResponse :: DeleteHSMResponse -> TestTree-testDeleteHSMResponse = res+responseDeleteHSM :: DeleteHSMResponse -> TestTree+responseDeleteHSM = res     "DeleteHSMResponse"     "fixture/DeleteHSMResponse.proto"     cloudHSM     (Proxy :: Proxy DeleteHSM) -testDescribeHSMResponse :: DescribeHSMResponse -> TestTree-testDescribeHSMResponse = res+responseDescribeHSM :: DescribeHSMResponse -> TestTree+responseDescribeHSM = res     "DescribeHSMResponse"     "fixture/DescribeHSMResponse.proto"     cloudHSM     (Proxy :: Proxy DescribeHSM) -testModifyHAPGResponse :: ModifyHAPGResponse -> TestTree-testModifyHAPGResponse = res+responseModifyHAPG :: ModifyHAPGResponse -> TestTree+responseModifyHAPG = res     "ModifyHAPGResponse"     "fixture/ModifyHAPGResponse.proto"     cloudHSM     (Proxy :: Proxy ModifyHAPG) -testDeleteLunaClientResponse :: DeleteLunaClientResponse -> TestTree-testDeleteLunaClientResponse = res+responseDeleteLunaClient :: DeleteLunaClientResponse -> TestTree+responseDeleteLunaClient = res     "DeleteLunaClientResponse"     "fixture/DeleteLunaClientResponse.proto"     cloudHSM     (Proxy :: Proxy DeleteLunaClient) -testModifyHSMResponse :: ModifyHSMResponse -> TestTree-testModifyHSMResponse = res+responseModifyHSM :: ModifyHSMResponse -> TestTree+responseModifyHSM = res     "ModifyHSMResponse"     "fixture/ModifyHSMResponse.proto"     cloudHSM     (Proxy :: Proxy ModifyHSM) -testListAvailableZonesResponse :: ListAvailableZonesResponse -> TestTree-testListAvailableZonesResponse = res+responseListAvailableZones :: ListAvailableZonesResponse -> TestTree+responseListAvailableZones = res     "ListAvailableZonesResponse"     "fixture/ListAvailableZonesResponse.proto"     cloudHSM