diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.2` +`1.4.3` ## Description diff --git a/amazonka-cloudhsm.cabal b/amazonka-cloudhsm.cabal --- a/amazonka-cloudhsm.cabal +++ b/amazonka-cloudhsm.cabal @@ -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 diff --git a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs --- a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs +++ b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs @@ -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 diff --git a/gen/Network/AWS/CloudHSM/CreateHAPG.hs b/gen/Network/AWS/CloudHSM/CreateHAPG.hs --- a/gen/Network/AWS/CloudHSM/CreateHAPG.hs +++ b/gen/Network/AWS/CloudHSM/CreateHAPG.hs @@ -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 diff --git a/gen/Network/AWS/CloudHSM/CreateHSM.hs b/gen/Network/AWS/CloudHSM/CreateHSM.hs --- a/gen/Network/AWS/CloudHSM/CreateHSM.hs +++ b/gen/Network/AWS/CloudHSM/CreateHSM.hs @@ -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 --- , --- 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 , 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}); diff --git a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs --- a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs +++ b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/DeleteHSM.hs b/gen/Network/AWS/CloudHSM/DeleteHSM.hs --- a/gen/Network/AWS/CloudHSM/DeleteHSM.hs +++ b/gen/Network/AWS/CloudHSM/DeleteHSM.hs @@ -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 diff --git a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs --- a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs +++ b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs @@ -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; diff --git a/gen/Network/AWS/CloudHSM/DescribeHSM.hs b/gen/Network/AWS/CloudHSM/DescribeHSM.hs --- a/gen/Network/AWS/CloudHSM/DescribeHSM.hs +++ b/gen/Network/AWS/CloudHSM/DescribeHSM.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/GetConfig.hs b/gen/Network/AWS/CloudHSM/GetConfig.hs --- a/gen/Network/AWS/CloudHSM/GetConfig.hs +++ b/gen/Network/AWS/CloudHSM/GetConfig.hs @@ -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; diff --git a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs --- a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs +++ b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs @@ -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; diff --git a/gen/Network/AWS/CloudHSM/ListHAPGs.hs b/gen/Network/AWS/CloudHSM/ListHAPGs.hs --- a/gen/Network/AWS/CloudHSM/ListHAPGs.hs +++ b/gen/Network/AWS/CloudHSM/ListHAPGs.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/ListHSMs.hs b/gen/Network/AWS/CloudHSM/ListHSMs.hs --- a/gen/Network/AWS/CloudHSM/ListHSMs.hs +++ b/gen/Network/AWS/CloudHSM/ListHSMs.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/ListLunaClients.hs b/gen/Network/AWS/CloudHSM/ListLunaClients.hs --- a/gen/Network/AWS/CloudHSM/ListLunaClients.hs +++ b/gen/Network/AWS/CloudHSM/ListLunaClients.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs --- a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs +++ b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs @@ -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; diff --git a/gen/Network/AWS/CloudHSM/ModifyHSM.hs b/gen/Network/AWS/CloudHSM/ModifyHSM.hs --- a/gen/Network/AWS/CloudHSM/ModifyHSM.hs +++ b/gen/Network/AWS/CloudHSM/ModifyHSM.hs @@ -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}); diff --git a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs --- a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +++ b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs @@ -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 diff --git a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs --- a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs +++ b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs @@ -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; diff --git a/gen/Network/AWS/CloudHSM/Types/Product.hs b/gen/Network/AWS/CloudHSM/Types/Product.hs --- a/gen/Network/AWS/CloudHSM/Types/Product.hs +++ b/gen/Network/AWS/CloudHSM/Types/Product.hs @@ -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' diff --git a/test/Test/AWS/Gen/CloudHSM.hs b/test/Test/AWS/Gen/CloudHSM.hs --- a/test/Test/AWS/Gen/CloudHSM.hs +++ b/test/Test/AWS/Gen/CloudHSM.hs @@ -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