amazonka-cloudhsm 1.5.0 → 1.6.0
raw patch · 31 files changed
+270/−265 lines, 31 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-cloudhsm.cabal +5/−5
- gen/Network/AWS/CloudHSM.hs +1/−1
- gen/Network/AWS/CloudHSM/AddTagsToResource.hs +6/−6
- gen/Network/AWS/CloudHSM/CreateHAPG.hs +5/−5
- gen/Network/AWS/CloudHSM/CreateHSM.hs +21/−21
- gen/Network/AWS/CloudHSM/CreateLunaClient.hs +6/−6
- gen/Network/AWS/CloudHSM/DeleteHAPG.hs +5/−5
- gen/Network/AWS/CloudHSM/DeleteHSM.hs +5/−5
- gen/Network/AWS/CloudHSM/DeleteLunaClient.hs +5/−5
- gen/Network/AWS/CloudHSM/DescribeHAPG.hs +23/−23
- gen/Network/AWS/CloudHSM/DescribeHSM.hs +48/−48
- gen/Network/AWS/CloudHSM/DescribeLunaClient.hs +17/−17
- gen/Network/AWS/CloudHSM/GetConfig.hs +17/−17
- gen/Network/AWS/CloudHSM/ListAvailableZones.hs +4/−4
- gen/Network/AWS/CloudHSM/ListHAPGs.hs +9/−9
- gen/Network/AWS/CloudHSM/ListHSMs.hs +9/−9
- gen/Network/AWS/CloudHSM/ListLunaClients.hs +9/−9
- gen/Network/AWS/CloudHSM/ListTagsForResource.hs +5/−5
- gen/Network/AWS/CloudHSM/ModifyHAPG.hs +11/−8
- gen/Network/AWS/CloudHSM/ModifyHSM.hs +17/−17
- gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +7/−7
- gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs +7/−7
- gen/Network/AWS/CloudHSM/Types.hs +18/−16
- gen/Network/AWS/CloudHSM/Types/Product.hs +3/−3
- gen/Network/AWS/CloudHSM/Types/Sum.hs +1/−1
- gen/Network/AWS/CloudHSM/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/CloudHSM.hs +1/−1
- test/Test/AWS/CloudHSM/Internal.hs +1/−1
- test/Test/AWS/Gen/CloudHSM.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-cloudhsm.cabal view
@@ -1,5 +1,5 @@ name: amazonka-cloudhsm-version: 1.5.0+version: 1.6.0 synopsis: Amazon CloudHSM SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2017 Brendan Hay+copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -73,7 +73,7 @@ , Network.AWS.CloudHSM.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudhsm-test@@ -93,8 +93,8 @@ , Test.AWS.CloudHSM.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-cloudhsm , base , bytestring
gen/Network/AWS/CloudHSM.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.CloudHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/CloudHSM/AddTagsToResource.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.AddTagsToResource--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -74,11 +74,11 @@ -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag. attrResourceARN :: Lens' AddTagsToResource Text-attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});+attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a}) -- | One or more tags. attrTagList :: Lens' AddTagsToResource [Tag]-attrTagList = lens _attrTagList (\ s a -> s{_attrTagList = a}) . _Coerce;+attrTagList = lens _attrTagList (\ s a -> s{_attrTagList = a}) . _Coerce instance AWSRequest AddTagsToResource where type Rs AddTagsToResource = AddTagsToResourceResponse@@ -136,15 +136,15 @@ -> AddTagsToResourceResponse addTagsToResourceResponse pResponseStatus_ pStatus_ = AddTagsToResourceResponse'- {_attrrsResponseStatus = pResponseStatus_, _attrrsStatus = pStatus_}+ {_attrrsResponseStatus = pResponseStatus_, _attrrsStatus = pStatus_} -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}) -- | The status of the operation. attrrsStatus :: Lens' AddTagsToResourceResponse Text-attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a});+attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a}) instance NFData AddTagsToResourceResponse where
gen/Network/AWS/CloudHSM/CreateHAPG.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.CreateHAPG--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,7 +71,7 @@ -- | The label of the new high-availability partition group. chLabel :: Lens' CreateHAPG Text-chLabel = lens _chLabel (\ s a -> s{_chLabel = a});+chLabel = lens _chLabel (\ s a -> s{_chLabel = a}) instance AWSRequest CreateHAPG where type Rs CreateHAPG = CreateHAPGResponse@@ -128,15 +128,15 @@ -> CreateHAPGResponse createHAPGResponse pResponseStatus_ = CreateHAPGResponse'- {_chapgrsHAPGARN = Nothing, _chapgrsResponseStatus = pResponseStatus_}+ {_chapgrsHAPGARN = Nothing, _chapgrsResponseStatus = pResponseStatus_} -- | The ARN of the high-availability partition group. chapgrsHAPGARN :: Lens' CreateHAPGResponse (Maybe Text)-chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a});+chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a}) -- | -- | The response status code. chapgrsResponseStatus :: Lens' CreateHAPGResponse Int-chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a});+chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a}) instance NFData CreateHAPGResponse where
gen/Network/AWS/CloudHSM/CreateHSM.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.CreateHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -103,48 +103,48 @@ -> CreateHSM createHSM pSubnetId_ pSSHKey_ pIAMRoleARN_ pSubscriptionType_ = CreateHSM'- { _chClientToken = Nothing- , _chSyslogIP = Nothing- , _chExternalId = Nothing- , _chEniIP = Nothing- , _chSubnetId = pSubnetId_- , _chSSHKey = pSSHKey_- , _chIAMRoleARN = pIAMRoleARN_- , _chSubscriptionType = pSubscriptionType_- }+ { _chClientToken = Nothing+ , _chSyslogIP = Nothing+ , _chExternalId = Nothing+ , _chEniIP = Nothing+ , _chSubnetId = pSubnetId_+ , _chSSHKey = pSSHKey_+ , _chIAMRoleARN = pIAMRoleARN_+ , _chSubscriptionType = pSubscriptionType_+ } -- | 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});+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. chSyslogIP :: Lens' CreateHSM (Maybe Text)-chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a});+chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a}) -- | The external ID from @IamRoleArn@ , if present. chExternalId :: Lens' CreateHSM (Maybe Text)-chExternalId = lens _chExternalId (\ s a -> s{_chExternalId = a});+chExternalId = lens _chExternalId (\ s a -> s{_chExternalId = a}) -- | 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. chEniIP :: Lens' CreateHSM (Maybe Text)-chEniIP = lens _chEniIP (\ s a -> s{_chEniIP = a});+chEniIP = lens _chEniIP (\ s a -> s{_chEniIP = a}) -- | The identifier of the subnet in your VPC in which to place the HSM. chSubnetId :: Lens' CreateHSM Text-chSubnetId = lens _chSubnetId (\ s a -> s{_chSubnetId = a});+chSubnetId = lens _chSubnetId (\ s a -> s{_chSubnetId = a}) -- | The SSH public key to install on the HSM. chSSHKey :: Lens' CreateHSM Text-chSSHKey = lens _chSSHKey (\ s a -> s{_chSSHKey = a});+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. chIAMRoleARN :: Lens' CreateHSM Text-chIAMRoleARN = lens _chIAMRoleARN (\ s a -> s{_chIAMRoleARN = a});+chIAMRoleARN = lens _chIAMRoleARN (\ s a -> s{_chIAMRoleARN = a}) -- | Undocumented member. chSubscriptionType :: Lens' CreateHSM SubscriptionType-chSubscriptionType = lens _chSubscriptionType (\ s a -> s{_chSubscriptionType = a});+chSubscriptionType = lens _chSubscriptionType (\ s a -> s{_chSubscriptionType = a}) instance AWSRequest CreateHSM where type Rs CreateHSM = CreateHSMResponse@@ -210,15 +210,15 @@ -> CreateHSMResponse createHSMResponse pResponseStatus_ = CreateHSMResponse'- {_chrsHSMARN = Nothing, _chrsResponseStatus = pResponseStatus_}+ {_chrsHSMARN = Nothing, _chrsResponseStatus = pResponseStatus_} -- | The ARN of the HSM. chrsHSMARN :: Lens' CreateHSMResponse (Maybe Text)-chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a});+chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a}) -- | -- | The response status code. chrsResponseStatus :: Lens' CreateHSMResponse Int-chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a});+chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a}) instance NFData CreateHSMResponse where
gen/Network/AWS/CloudHSM/CreateLunaClient.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.CreateLunaClient--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -76,11 +76,11 @@ -- | The label for the client. clcLabel :: Lens' CreateLunaClient (Maybe Text)-clcLabel = lens _clcLabel (\ s a -> s{_clcLabel = a});+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. clcCertificate :: Lens' CreateLunaClient Text-clcCertificate = lens _clcCertificate (\ s a -> s{_clcCertificate = a});+clcCertificate = lens _clcCertificate (\ s a -> s{_clcCertificate = a}) instance AWSRequest CreateLunaClient where type Rs CreateLunaClient = CreateLunaClientResponse@@ -141,15 +141,15 @@ -> CreateLunaClientResponse createLunaClientResponse pResponseStatus_ = CreateLunaClientResponse'- {_clcrsClientARN = Nothing, _clcrsResponseStatus = pResponseStatus_}+ {_clcrsClientARN = Nothing, _clcrsResponseStatus = pResponseStatus_} -- | The ARN of the client. clcrsClientARN :: Lens' CreateLunaClientResponse (Maybe Text)-clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a});+clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a}) -- | -- | The response status code. clcrsResponseStatus :: Lens' CreateLunaClientResponse Int-clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a});+clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a}) instance NFData CreateLunaClientResponse where
gen/Network/AWS/CloudHSM/DeleteHAPG.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DeleteHAPG--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,7 +71,7 @@ -- | The ARN of the high-availability partition group to delete. dhHAPGARN :: Lens' DeleteHAPG Text-dhHAPGARN = lens _dhHAPGARN (\ s a -> s{_dhHAPGARN = a});+dhHAPGARN = lens _dhHAPGARN (\ s a -> s{_dhHAPGARN = a}) instance AWSRequest DeleteHAPG where type Rs DeleteHAPG = DeleteHAPGResponse@@ -129,15 +129,15 @@ -> DeleteHAPGResponse deleteHAPGResponse pResponseStatus_ pStatus_ = DeleteHAPGResponse'- {_dhrsResponseStatus = pResponseStatus_, _dhrsStatus = pStatus_}+ {_dhrsResponseStatus = pResponseStatus_, _dhrsStatus = pStatus_} -- | -- | The response status code. dhrsResponseStatus :: Lens' DeleteHAPGResponse Int-dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a});+dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a}) -- | The status of the action. dhrsStatus :: Lens' DeleteHAPGResponse Text-dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a});+dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a}) instance NFData DeleteHAPGResponse where
gen/Network/AWS/CloudHSM/DeleteHSM.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DeleteHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,7 +71,7 @@ -- | The ARN of the HSM to delete. dhHSMARN :: Lens' DeleteHSM Text-dhHSMARN = lens _dhHSMARN (\ s a -> s{_dhHSMARN = a});+dhHSMARN = lens _dhHSMARN (\ s a -> s{_dhHSMARN = a}) instance AWSRequest DeleteHSM where type Rs DeleteHSM = DeleteHSMResponse@@ -129,15 +129,15 @@ -> DeleteHSMResponse deleteHSMResponse pResponseStatus_ pStatus_ = DeleteHSMResponse'- {_dhsmrsResponseStatus = pResponseStatus_, _dhsmrsStatus = pStatus_}+ {_dhsmrsResponseStatus = pResponseStatus_, _dhsmrsStatus = pStatus_} -- | -- | The response status code. dhsmrsResponseStatus :: Lens' DeleteHSMResponse Int-dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a});+dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a}) -- | The status of the operation. dhsmrsStatus :: Lens' DeleteHSMResponse Text-dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a});+dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a}) instance NFData DeleteHSMResponse where
gen/Network/AWS/CloudHSM/DeleteLunaClient.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DeleteLunaClient--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | The ARN of the client to delete. dClientARN :: Lens' DeleteLunaClient Text-dClientARN = lens _dClientARN (\ s a -> s{_dClientARN = a});+dClientARN = lens _dClientARN (\ s a -> s{_dClientARN = a}) instance AWSRequest DeleteLunaClient where type Rs DeleteLunaClient = DeleteLunaClientResponse@@ -123,15 +123,15 @@ -> DeleteLunaClientResponse deleteLunaClientResponse pResponseStatus_ pStatus_ = DeleteLunaClientResponse'- {_dlcrsResponseStatus = pResponseStatus_, _dlcrsStatus = pStatus_}+ {_dlcrsResponseStatus = pResponseStatus_, _dlcrsStatus = pStatus_} -- | -- | The response status code. dlcrsResponseStatus :: Lens' DeleteLunaClientResponse Int-dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a});+dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a}) -- | The status of the action. dlcrsStatus :: Lens' DeleteLunaClientResponse Text-dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a});+dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a}) instance NFData DeleteLunaClientResponse where
gen/Network/AWS/CloudHSM/DescribeHAPG.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DescribeHAPG--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -79,7 +79,7 @@ -- | The ARN of the high-availability partition group to describe. dhapgHAPGARN :: Lens' DescribeHAPG Text-dhapgHAPGARN = lens _dhapgHAPGARN (\ s a -> s{_dhapgHAPGARN = a});+dhapgHAPGARN = lens _dhapgHAPGARN (\ s a -> s{_dhapgHAPGARN = a}) instance AWSRequest DescribeHAPG where type Rs DescribeHAPG = DescribeHAPGResponse@@ -170,57 +170,57 @@ -> DescribeHAPGResponse describeHAPGResponse pResponseStatus_ = DescribeHAPGResponse'- { _dhapgrsState = Nothing- , _dhapgrsLastModifiedTimestamp = Nothing- , _dhapgrsHSMsPendingRegistration = Nothing- , _dhapgrsHSMsPendingDeletion = Nothing- , _dhapgrsHAPGSerial = Nothing- , _dhapgrsHSMsLastActionFailed = Nothing- , _dhapgrsPartitionSerialList = Nothing- , _dhapgrsHAPGARN = Nothing- , _dhapgrsLabel = Nothing- , _dhapgrsResponseStatus = pResponseStatus_- }+ { _dhapgrsState = Nothing+ , _dhapgrsLastModifiedTimestamp = Nothing+ , _dhapgrsHSMsPendingRegistration = Nothing+ , _dhapgrsHSMsPendingDeletion = Nothing+ , _dhapgrsHAPGSerial = Nothing+ , _dhapgrsHSMsLastActionFailed = Nothing+ , _dhapgrsPartitionSerialList = Nothing+ , _dhapgrsHAPGARN = Nothing+ , _dhapgrsLabel = Nothing+ , _dhapgrsResponseStatus = pResponseStatus_+ } -- | The state of the high-availability partition group. dhapgrsState :: Lens' DescribeHAPGResponse (Maybe CloudHSMObjectState)-dhapgrsState = lens _dhapgrsState (\ s a -> s{_dhapgrsState = a});+dhapgrsState = lens _dhapgrsState (\ s a -> s{_dhapgrsState = a}) -- | 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});+dhapgrsLastModifiedTimestamp = lens _dhapgrsLastModifiedTimestamp (\ s a -> s{_dhapgrsLastModifiedTimestamp = a}) -- | dhapgrsHSMsPendingRegistration :: Lens' DescribeHAPGResponse [Text]-dhapgrsHSMsPendingRegistration = lens _dhapgrsHSMsPendingRegistration (\ s a -> s{_dhapgrsHSMsPendingRegistration = a}) . _Default . _Coerce;+dhapgrsHSMsPendingRegistration = lens _dhapgrsHSMsPendingRegistration (\ s a -> s{_dhapgrsHSMsPendingRegistration = a}) . _Default . _Coerce -- | dhapgrsHSMsPendingDeletion :: Lens' DescribeHAPGResponse [Text]-dhapgrsHSMsPendingDeletion = lens _dhapgrsHSMsPendingDeletion (\ s a -> s{_dhapgrsHSMsPendingDeletion = a}) . _Default . _Coerce;+dhapgrsHSMsPendingDeletion = lens _dhapgrsHSMsPendingDeletion (\ s a -> s{_dhapgrsHSMsPendingDeletion = a}) . _Default . _Coerce -- | The serial number of the high-availability partition group. dhapgrsHAPGSerial :: Lens' DescribeHAPGResponse (Maybe Text)-dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a});+dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a}) -- | dhapgrsHSMsLastActionFailed :: Lens' DescribeHAPGResponse [Text]-dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce;+dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce -- | 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;+dhapgrsPartitionSerialList = lens _dhapgrsPartitionSerialList (\ s a -> s{_dhapgrsPartitionSerialList = a}) . _Default . _Coerce -- | The ARN of the high-availability partition group. dhapgrsHAPGARN :: Lens' DescribeHAPGResponse (Maybe Text)-dhapgrsHAPGARN = lens _dhapgrsHAPGARN (\ s a -> s{_dhapgrsHAPGARN = a});+dhapgrsHAPGARN = lens _dhapgrsHAPGARN (\ s a -> s{_dhapgrsHAPGARN = a}) -- | The label for the high-availability partition group. dhapgrsLabel :: Lens' DescribeHAPGResponse (Maybe Text)-dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a});+dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a}) -- | -- | The response status code. dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int-dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a});+dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a}) instance NFData DescribeHAPGResponse where
gen/Network/AWS/CloudHSM/DescribeHSM.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DescribeHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -95,11 +95,11 @@ -- | 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});+dhsmHSMSerialNumber = lens _dhsmHSMSerialNumber (\ s a -> s{_dhsmHSMSerialNumber = a}) -- | 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});+dhsmHSMARN = lens _dhsmHSMARN (\ s a -> s{_dhsmHSMARN = a}) instance AWSRequest DescribeHSM where type Rs DescribeHSM = DescribeHSMResponse@@ -240,117 +240,117 @@ -> DescribeHSMResponse describeHSMResponse pResponseStatus_ = DescribeHSMResponse'- { _desrsStatus = Nothing- , _desrsIAMRoleARN = Nothing- , _desrsEniId = Nothing- , _desrsVPCId = Nothing- , _desrsSSHKeyLastUpdated = Nothing- , _desrsSubscriptionEndDate = Nothing- , _desrsServerCertURI = Nothing- , _desrsSubscriptionType = Nothing- , _desrsSSHPublicKey = Nothing- , _desrsSubnetId = Nothing- , _desrsStatusDetails = Nothing- , _desrsPartitions = Nothing- , _desrsSubscriptionStartDate = Nothing- , _desrsAvailabilityZone = Nothing- , _desrsServerCertLastUpdated = Nothing- , _desrsSoftwareVersion = Nothing- , _desrsVendorName = Nothing- , _desrsSerialNumber = Nothing- , _desrsHSMARN = Nothing- , _desrsEniIP = Nothing- , _desrsHSMType = Nothing- , _desrsResponseStatus = pResponseStatus_- }+ { _desrsStatus = Nothing+ , _desrsIAMRoleARN = Nothing+ , _desrsEniId = Nothing+ , _desrsVPCId = Nothing+ , _desrsSSHKeyLastUpdated = Nothing+ , _desrsSubscriptionEndDate = Nothing+ , _desrsServerCertURI = Nothing+ , _desrsSubscriptionType = Nothing+ , _desrsSSHPublicKey = Nothing+ , _desrsSubnetId = Nothing+ , _desrsStatusDetails = Nothing+ , _desrsPartitions = Nothing+ , _desrsSubscriptionStartDate = Nothing+ , _desrsAvailabilityZone = Nothing+ , _desrsServerCertLastUpdated = Nothing+ , _desrsSoftwareVersion = Nothing+ , _desrsVendorName = Nothing+ , _desrsSerialNumber = Nothing+ , _desrsHSMARN = Nothing+ , _desrsEniIP = Nothing+ , _desrsHSMType = Nothing+ , _desrsResponseStatus = pResponseStatus_+ } -- | The status of the HSM. desrsStatus :: Lens' DescribeHSMResponse (Maybe HSMStatus)-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a}) -- | The ARN of the IAM role assigned to the HSM. desrsIAMRoleARN :: Lens' DescribeHSMResponse (Maybe Text)-desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a});+desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a}) -- | 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});+desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a}) -- | The identifier of the VPC that the HSM is in. desrsVPCId :: Lens' DescribeHSMResponse (Maybe Text)-desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a});+desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a}) -- | The date and time that the SSH key was last updated. desrsSSHKeyLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)-desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a});+desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a}) -- | The subscription end date. desrsSubscriptionEndDate :: Lens' DescribeHSMResponse (Maybe Text)-desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a});+desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a}) -- | The URI of the certificate server. desrsServerCertURI :: Lens' DescribeHSMResponse (Maybe Text)-desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a});+desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a}) -- | Undocumented member. desrsSubscriptionType :: Lens' DescribeHSMResponse (Maybe SubscriptionType)-desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a});+desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a}) -- | The public SSH key. desrsSSHPublicKey :: Lens' DescribeHSMResponse (Maybe Text)-desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a});+desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a}) -- | The identifier of the subnet that the HSM is in. desrsSubnetId :: Lens' DescribeHSMResponse (Maybe Text)-desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a});+desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a}) -- | Contains additional information about the status of the HSM. desrsStatusDetails :: Lens' DescribeHSMResponse (Maybe Text)-desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a});+desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a}) -- | The list of partitions on the HSM. desrsPartitions :: Lens' DescribeHSMResponse [Text]-desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce;+desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce -- | The subscription start date. desrsSubscriptionStartDate :: Lens' DescribeHSMResponse (Maybe Text)-desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a});+desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a}) -- | The Availability Zone that the HSM is in. desrsAvailabilityZone :: Lens' DescribeHSMResponse (Maybe Text)-desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a});+desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a}) -- | The date and time that the server certificate was last updated. desrsServerCertLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)-desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a});+desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a}) -- | The HSM software version. desrsSoftwareVersion :: Lens' DescribeHSMResponse (Maybe Text)-desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a});+desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a}) -- | The name of the HSM vendor. desrsVendorName :: Lens' DescribeHSMResponse (Maybe Text)-desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a});+desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a}) -- | The serial number of the HSM. desrsSerialNumber :: Lens' DescribeHSMResponse (Maybe Text)-desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a});+desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a}) -- | The ARN of the HSM. desrsHSMARN :: Lens' DescribeHSMResponse (Maybe Text)-desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a});+desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a}) -- | The IP address assigned to the HSM's ENI. desrsEniIP :: Lens' DescribeHSMResponse (Maybe Text)-desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a});+desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a}) -- | The HSM model type. desrsHSMType :: Lens' DescribeHSMResponse (Maybe Text)-desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a});+desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a}) -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeHSMResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}) instance NFData DescribeHSMResponse where
gen/Network/AWS/CloudHSM/DescribeLunaClient.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.DescribeLunaClient--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,16 +71,16 @@ :: DescribeLunaClient describeLunaClient = DescribeLunaClient'- {_dlcClientARN = Nothing, _dlcCertificateFingerprint = Nothing}+ {_dlcClientARN = Nothing, _dlcCertificateFingerprint = Nothing} -- | The ARN of the client. dlcClientARN :: Lens' DescribeLunaClient (Maybe Text)-dlcClientARN = lens _dlcClientARN (\ s a -> s{_dlcClientARN = a});+dlcClientARN = lens _dlcClientARN (\ s a -> s{_dlcClientARN = a}) -- | The certificate fingerprint. dlcCertificateFingerprint :: Lens' DescribeLunaClient (Maybe Text)-dlcCertificateFingerprint = lens _dlcCertificateFingerprint (\ s a -> s{_dlcCertificateFingerprint = a});+dlcCertificateFingerprint = lens _dlcCertificateFingerprint (\ s a -> s{_dlcCertificateFingerprint = a}) instance AWSRequest DescribeLunaClient where type Rs DescribeLunaClient =@@ -156,37 +156,37 @@ -> DescribeLunaClientResponse describeLunaClientResponse pResponseStatus_ = DescribeLunaClientResponse'- { _drsClientARN = Nothing- , _drsLastModifiedTimestamp = Nothing- , _drsCertificateFingerprint = Nothing- , _drsCertificate = Nothing- , _drsLabel = Nothing- , _drsResponseStatus = pResponseStatus_- }+ { _drsClientARN = Nothing+ , _drsLastModifiedTimestamp = Nothing+ , _drsCertificateFingerprint = Nothing+ , _drsCertificate = Nothing+ , _drsLabel = Nothing+ , _drsResponseStatus = pResponseStatus_+ } -- | The ARN of the client. drsClientARN :: Lens' DescribeLunaClientResponse (Maybe Text)-drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a});+drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a}) -- | The date and time the client was last modified. drsLastModifiedTimestamp :: Lens' DescribeLunaClientResponse (Maybe Text)-drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a});+drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a}) -- | The certificate fingerprint. drsCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)-drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a});+drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a}) -- | The certificate installed on the HSMs used by this client. drsCertificate :: Lens' DescribeLunaClientResponse (Maybe Text)-drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a});+drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a}) -- | The label of the client. drsLabel :: Lens' DescribeLunaClientResponse (Maybe Text)-drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a});+drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a}) -- | -- | The response status code. drsResponseStatus :: Lens' DescribeLunaClientResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}) instance NFData DescribeLunaClientResponse where
gen/Network/AWS/CloudHSM/GetConfig.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.GetConfig--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -75,23 +75,23 @@ -> GetConfig getConfig pClientARN_ pClientVersion_ = GetConfig'- { _gcClientARN = pClientARN_- , _gcClientVersion = pClientVersion_- , _gcHAPGList = mempty- }+ { _gcClientARN = pClientARN_+ , _gcClientVersion = pClientVersion_+ , _gcHAPGList = mempty+ } -- | The ARN of the client. gcClientARN :: Lens' GetConfig Text-gcClientARN = lens _gcClientARN (\ s a -> s{_gcClientARN = a});+gcClientARN = lens _gcClientARN (\ s a -> s{_gcClientARN = a}) -- | The client version. gcClientVersion :: Lens' GetConfig ClientVersion-gcClientVersion = lens _gcClientVersion (\ s a -> s{_gcClientVersion = a});+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. gcHAPGList :: Lens' GetConfig [Text]-gcHAPGList = lens _gcHAPGList (\ s a -> s{_gcHAPGList = a}) . _Coerce;+gcHAPGList = lens _gcHAPGList (\ s a -> s{_gcHAPGList = a}) . _Coerce instance AWSRequest GetConfig where type Rs GetConfig = GetConfigResponse@@ -156,27 +156,27 @@ -> GetConfigResponse getConfigResponse pResponseStatus_ = GetConfigResponse'- { _gcrsConfigFile = Nothing- , _gcrsConfigCred = Nothing- , _gcrsConfigType = Nothing- , _gcrsResponseStatus = pResponseStatus_- }+ { _gcrsConfigFile = Nothing+ , _gcrsConfigCred = Nothing+ , _gcrsConfigType = Nothing+ , _gcrsResponseStatus = pResponseStatus_+ } -- | The chrystoki.conf configuration file. gcrsConfigFile :: Lens' GetConfigResponse (Maybe Text)-gcrsConfigFile = lens _gcrsConfigFile (\ s a -> s{_gcrsConfigFile = a});+gcrsConfigFile = lens _gcrsConfigFile (\ s a -> s{_gcrsConfigFile = a}) -- | The certificate file containing the server.pem files of the HSMs. gcrsConfigCred :: Lens' GetConfigResponse (Maybe Text)-gcrsConfigCred = lens _gcrsConfigCred (\ s a -> s{_gcrsConfigCred = a});+gcrsConfigCred = lens _gcrsConfigCred (\ s a -> s{_gcrsConfigCred = a}) -- | The type of credentials. gcrsConfigType :: Lens' GetConfigResponse (Maybe Text)-gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a});+gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a}) -- | -- | The response status code. gcrsResponseStatus :: Lens' GetConfigResponse Int-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a}) instance NFData GetConfigResponse where
gen/Network/AWS/CloudHSM/ListAvailableZones.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ListAvailableZones--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -115,15 +115,15 @@ -> ListAvailableZonesResponse listAvailableZonesResponse pResponseStatus_ = ListAvailableZonesResponse'- {_lazrsAZList = Nothing, _lazrsResponseStatus = pResponseStatus_}+ {_lazrsAZList = Nothing, _lazrsResponseStatus = pResponseStatus_} -- | 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;+lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce -- | -- | The response status code. lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int-lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a});+lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a}) instance NFData ListAvailableZonesResponse where
gen/Network/AWS/CloudHSM/ListHAPGs.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ListHAPGs--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,7 +69,7 @@ -- | 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});+lhNextToken = lens _lhNextToken (\ s a -> s{_lhNextToken = a}) instance AWSRequest ListHAPGs where type Rs ListHAPGs = ListHAPGsResponse@@ -127,22 +127,22 @@ -> ListHAPGsResponse listHAPGsResponse pResponseStatus_ = ListHAPGsResponse'- { _lhrsNextToken = Nothing- , _lhrsResponseStatus = pResponseStatus_- , _lhrsHAPGList = mempty- }+ { _lhrsNextToken = Nothing+ , _lhrsResponseStatus = pResponseStatus_+ , _lhrsHAPGList = mempty+ } -- | 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});+lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a}) -- | -- | The response status code. lhrsResponseStatus :: Lens' ListHAPGsResponse Int-lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a});+lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a}) -- | The list of high-availability partition groups. lhrsHAPGList :: Lens' ListHAPGsResponse [Text]-lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce;+lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce instance NFData ListHAPGsResponse where
gen/Network/AWS/CloudHSM/ListHSMs.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ListHSMs--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,7 +69,7 @@ -- | 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});+lhsmNextToken = lens _lhsmNextToken (\ s a -> s{_lhsmNextToken = a}) instance AWSRequest ListHSMs where type Rs ListHSMs = ListHSMsResponse@@ -131,22 +131,22 @@ -> ListHSMsResponse listHSMsResponse pResponseStatus_ = ListHSMsResponse'- { _lhsmrsNextToken = Nothing- , _lhsmrsHSMList = Nothing- , _lhsmrsResponseStatus = pResponseStatus_- }+ { _lhsmrsNextToken = Nothing+ , _lhsmrsHSMList = Nothing+ , _lhsmrsResponseStatus = pResponseStatus_+ } -- | 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});+lhsmrsNextToken = lens _lhsmrsNextToken (\ s a -> s{_lhsmrsNextToken = a}) -- | The list of ARNs that identify the HSMs. lhsmrsHSMList :: Lens' ListHSMsResponse [Text]-lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce;+lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce -- | -- | The response status code. lhsmrsResponseStatus :: Lens' ListHSMsResponse Int-lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a});+lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a}) instance NFData ListHSMsResponse where
gen/Network/AWS/CloudHSM/ListLunaClients.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ListLunaClients--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,7 +69,7 @@ -- | 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});+llcNextToken = lens _llcNextToken (\ s a -> s{_llcNextToken = a}) instance AWSRequest ListLunaClients where type Rs ListLunaClients = ListLunaClientsResponse@@ -128,22 +128,22 @@ -> ListLunaClientsResponse listLunaClientsResponse pResponseStatus_ = ListLunaClientsResponse'- { _llcrsNextToken = Nothing- , _llcrsResponseStatus = pResponseStatus_- , _llcrsClientList = mempty- }+ { _llcrsNextToken = Nothing+ , _llcrsResponseStatus = pResponseStatus_+ , _llcrsClientList = mempty+ } -- | 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});+llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a}) -- | -- | The response status code. llcrsResponseStatus :: Lens' ListLunaClientsResponse Int-llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a});+llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a}) -- | The list of clients. llcrsClientList :: Lens' ListLunaClientsResponse [Text]-llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce;+llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce instance NFData ListLunaClientsResponse where
gen/Network/AWS/CloudHSM/ListTagsForResource.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ListTagsForResource--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource. ltfrResourceARN :: Lens' ListTagsForResource Text-ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a}) instance AWSRequest ListTagsForResource where type Rs ListTagsForResource =@@ -125,15 +125,15 @@ -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ = ListTagsForResourceResponse'- {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTagList = mempty}+ {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTagList = mempty} -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}) -- | One or more tags. ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag]-ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce;+ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce instance NFData ListTagsForResourceResponse where
gen/Network/AWS/CloudHSM/ModifyHAPG.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ModifyHAPG--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -72,20 +72,23 @@ -> ModifyHAPG modifyHAPG pHAPGARN_ = ModifyHAPG'- {_mhPartitionSerialList = Nothing, _mhLabel = Nothing, _mhHAPGARN = pHAPGARN_}+ { _mhPartitionSerialList = Nothing+ , _mhLabel = Nothing+ , _mhHAPGARN = pHAPGARN_+ } -- | 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;+mhPartitionSerialList = lens _mhPartitionSerialList (\ s a -> s{_mhPartitionSerialList = a}) . _Default . _Coerce -- | The new label for the high-availability partition group. mhLabel :: Lens' ModifyHAPG (Maybe Text)-mhLabel = lens _mhLabel (\ s a -> s{_mhLabel = a});+mhLabel = lens _mhLabel (\ s a -> s{_mhLabel = a}) -- | The ARN of the high-availability partition group to modify. mhHAPGARN :: Lens' ModifyHAPG Text-mhHAPGARN = lens _mhHAPGARN (\ s a -> s{_mhHAPGARN = a});+mhHAPGARN = lens _mhHAPGARN (\ s a -> s{_mhHAPGARN = a}) instance AWSRequest ModifyHAPG where type Rs ModifyHAPG = ModifyHAPGResponse@@ -143,15 +146,15 @@ -> ModifyHAPGResponse modifyHAPGResponse pResponseStatus_ = ModifyHAPGResponse'- {_mhrsHAPGARN = Nothing, _mhrsResponseStatus = pResponseStatus_}+ {_mhrsHAPGARN = Nothing, _mhrsResponseStatus = pResponseStatus_} -- | The ARN of the high-availability partition group. mhrsHAPGARN :: Lens' ModifyHAPGResponse (Maybe Text)-mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a});+mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a}) -- | -- | The response status code. mhrsResponseStatus :: Lens' ModifyHAPGResponse Int-mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});+mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a}) instance NFData ModifyHAPGResponse where
gen/Network/AWS/CloudHSM/ModifyHSM.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ModifyHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -90,38 +90,38 @@ -> ModifyHSM modifyHSM pHSMARN_ = ModifyHSM'- { _mhIAMRoleARN = Nothing- , _mhSubnetId = Nothing- , _mhSyslogIP = Nothing- , _mhExternalId = Nothing- , _mhEniIP = Nothing- , _mhHSMARN = pHSMARN_- }+ { _mhIAMRoleARN = Nothing+ , _mhSubnetId = Nothing+ , _mhSyslogIP = Nothing+ , _mhExternalId = Nothing+ , _mhEniIP = Nothing+ , _mhHSMARN = pHSMARN_+ } -- | The new IAM role ARN. mhIAMRoleARN :: Lens' ModifyHSM (Maybe Text)-mhIAMRoleARN = lens _mhIAMRoleARN (\ s a -> s{_mhIAMRoleARN = a});+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. mhSubnetId :: Lens' ModifyHSM (Maybe Text)-mhSubnetId = lens _mhSubnetId (\ s a -> s{_mhSubnetId = a});+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. mhSyslogIP :: Lens' ModifyHSM (Maybe Text)-mhSyslogIP = lens _mhSyslogIP (\ s a -> s{_mhSyslogIP = a});+mhSyslogIP = lens _mhSyslogIP (\ s a -> s{_mhSyslogIP = a}) -- | The new external ID. mhExternalId :: Lens' ModifyHSM (Maybe Text)-mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a});+mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a}) -- | 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. mhEniIP :: Lens' ModifyHSM (Maybe Text)-mhEniIP = lens _mhEniIP (\ s a -> s{_mhEniIP = a});+mhEniIP = lens _mhEniIP (\ s a -> s{_mhEniIP = a}) -- | The ARN of the HSM to modify. mhHSMARN :: Lens' ModifyHSM Text-mhHSMARN = lens _mhHSMARN (\ s a -> s{_mhHSMARN = a});+mhHSMARN = lens _mhHSMARN (\ s a -> s{_mhHSMARN = a}) instance AWSRequest ModifyHSM where type Rs ModifyHSM = ModifyHSMResponse@@ -185,15 +185,15 @@ -> ModifyHSMResponse modifyHSMResponse pResponseStatus_ = ModifyHSMResponse'- {_mhsmrsHSMARN = Nothing, _mhsmrsResponseStatus = pResponseStatus_}+ {_mhsmrsHSMARN = Nothing, _mhsmrsResponseStatus = pResponseStatus_} -- | The ARN of the HSM. mhsmrsHSMARN :: Lens' ModifyHSMResponse (Maybe Text)-mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a});+mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a}) -- | -- | The response status code. mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int-mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a});+mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a}) instance NFData ModifyHSMResponse where
gen/Network/AWS/CloudHSM/ModifyLunaClient.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.ModifyLunaClient--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,16 +71,16 @@ -> ModifyLunaClient modifyLunaClient pClientARN_ pCertificate_ = ModifyLunaClient'- {_mlcClientARN = pClientARN_, _mlcCertificate = pCertificate_}+ {_mlcClientARN = pClientARN_, _mlcCertificate = pCertificate_} -- | The ARN of the client. mlcClientARN :: Lens' ModifyLunaClient Text-mlcClientARN = lens _mlcClientARN (\ s a -> s{_mlcClientARN = a});+mlcClientARN = lens _mlcClientARN (\ s a -> s{_mlcClientARN = a}) -- | The new certificate for the client. mlcCertificate :: Lens' ModifyLunaClient Text-mlcCertificate = lens _mlcCertificate (\ s a -> s{_mlcCertificate = a});+mlcCertificate = lens _mlcCertificate (\ s a -> s{_mlcCertificate = a}) instance AWSRequest ModifyLunaClient where type Rs ModifyLunaClient = ModifyLunaClientResponse@@ -137,15 +137,15 @@ -> ModifyLunaClientResponse modifyLunaClientResponse pResponseStatus_ = ModifyLunaClientResponse'- {_mlcrsClientARN = Nothing, _mlcrsResponseStatus = pResponseStatus_}+ {_mlcrsClientARN = Nothing, _mlcrsResponseStatus = pResponseStatus_} -- | The ARN of the client. mlcrsClientARN :: Lens' ModifyLunaClientResponse (Maybe Text)-mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a});+mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a}) -- | -- | The response status code. mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int-mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a});+mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a}) instance NFData ModifyLunaClientResponse where
gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudHSM.RemoveTagsFromResource--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,16 +70,16 @@ -> RemoveTagsFromResource removeTagsFromResource pResourceARN_ = RemoveTagsFromResource'- {_rtfrResourceARN = pResourceARN_, _rtfrTagKeyList = mempty}+ {_rtfrResourceARN = pResourceARN_, _rtfrTagKeyList = mempty} -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource. rtfrResourceARN :: Lens' RemoveTagsFromResource Text-rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});+rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a}) -- | 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' . rtfrTagKeyList :: Lens' RemoveTagsFromResource [Text]-rtfrTagKeyList = lens _rtfrTagKeyList (\ s a -> s{_rtfrTagKeyList = a}) . _Coerce;+rtfrTagKeyList = lens _rtfrTagKeyList (\ s a -> s{_rtfrTagKeyList = a}) . _Coerce instance AWSRequest RemoveTagsFromResource where type Rs RemoveTagsFromResource =@@ -138,15 +138,15 @@ -> RemoveTagsFromResourceResponse removeTagsFromResourceResponse pResponseStatus_ pStatus_ = RemoveTagsFromResourceResponse'- {_rtfrrsResponseStatus = pResponseStatus_, _rtfrrsStatus = pStatus_}+ {_rtfrrsResponseStatus = pResponseStatus_, _rtfrrsStatus = pStatus_} -- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}) -- | The status of the operation. rtfrrsStatus :: Lens' RemoveTagsFromResourceResponse Text-rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a});+rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a}) instance NFData RemoveTagsFromResourceResponse where
gen/Network/AWS/CloudHSM/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.CloudHSM.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -49,24 +49,24 @@ cloudHSM :: Service cloudHSM = Service- { _svcAbbrev = "CloudHSM"- , _svcSigner = v4- , _svcPrefix = "cloudhsm"- , _svcVersion = "2014-05-30"- , _svcEndpoint = defaultEndpoint cloudHSM- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "CloudHSM"- , _svcRetry = retry- }+ { _svcAbbrev = "CloudHSM"+ , _svcSigner = v4+ , _svcPrefix = "cloudhsm"+ , _svcVersion = "2014-05-30"+ , _svcEndpoint = defaultEndpoint cloudHSM+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "CloudHSM"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -75,6 +75,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/CloudHSM/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.CloudHSM.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -48,11 +48,11 @@ -- | The key of the tag. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) -- | The value of the tag. tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a}) instance FromJSON Tag where parseJSON
gen/Network/AWS/CloudHSM/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.CloudHSM.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/CloudHSM/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.CloudHSM.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/CloudHSM.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.CloudHSM--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/CloudHSM/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.CloudHSM.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/CloudHSM.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.CloudHSM--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated