summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:12:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:12:00 (GMT)
commit74afe9a8ab2fa188355c4b915f645fa11937e877 (patch)
treed870e45404b704214ba0786ed832c94a844523fa
parent759b923044c39d983a4a4a35e52f52b6eb0345b7 (diff)
version 1.6.0HEAD1.6.0master
-rw-r--r--README.md2
-rw-r--r--amazonka-cloudhsm.cabal10
-rw-r--r--gen/Network/AWS/CloudHSM.hs2
-rw-r--r--gen/Network/AWS/CloudHSM/AddTagsToResource.hs12
-rw-r--r--gen/Network/AWS/CloudHSM/CreateHAPG.hs10
-rw-r--r--gen/Network/AWS/CloudHSM/CreateHSM.hs42
-rw-r--r--gen/Network/AWS/CloudHSM/CreateLunaClient.hs12
-rw-r--r--gen/Network/AWS/CloudHSM/DeleteHAPG.hs10
-rw-r--r--gen/Network/AWS/CloudHSM/DeleteHSM.hs10
-rw-r--r--gen/Network/AWS/CloudHSM/DeleteLunaClient.hs10
-rw-r--r--gen/Network/AWS/CloudHSM/DescribeHAPG.hs46
-rw-r--r--gen/Network/AWS/CloudHSM/DescribeHSM.hs96
-rw-r--r--gen/Network/AWS/CloudHSM/DescribeLunaClient.hs34
-rw-r--r--gen/Network/AWS/CloudHSM/GetConfig.hs34
-rw-r--r--gen/Network/AWS/CloudHSM/ListAvailableZones.hs8
-rw-r--r--gen/Network/AWS/CloudHSM/ListHAPGs.hs18
-rw-r--r--gen/Network/AWS/CloudHSM/ListHSMs.hs18
-rw-r--r--gen/Network/AWS/CloudHSM/ListLunaClients.hs18
-rw-r--r--gen/Network/AWS/CloudHSM/ListTagsForResource.hs10
-rw-r--r--gen/Network/AWS/CloudHSM/ModifyHAPG.hs19
-rw-r--r--gen/Network/AWS/CloudHSM/ModifyHSM.hs34
-rw-r--r--gen/Network/AWS/CloudHSM/ModifyLunaClient.hs14
-rw-r--r--gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs14
-rw-r--r--gen/Network/AWS/CloudHSM/Types.hs34
-rw-r--r--gen/Network/AWS/CloudHSM/Types/Product.hs6
-rw-r--r--gen/Network/AWS/CloudHSM/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/CloudHSM/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/CloudHSM.hs2
-rw-r--r--test/Test/AWS/CloudHSM/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/CloudHSM.hs2
31 files changed, 270 insertions, 265 deletions
diff --git a/README.md b/README.md
index 70c8233..2a3c4da 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-cloudhsm.cabal b/amazonka-cloudhsm.cabal
index fea35f4..4ae2894 100644
--- a/amazonka-cloudhsm.cabal
+++ b/amazonka-cloudhsm.cabal
@@ -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: MPL-2.0
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 @@ library
, 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-suite amazonka-cloudhsm-test
, 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
diff --git a/gen/Network/AWS/CloudHSM.hs b/gen/Network/AWS/CloudHSM.hs
index a4b42f4..192a404 100644
--- a/gen/Network/AWS/CloudHSM.hs
+++ b/gen/Network/AWS/CloudHSM.hs
@@ -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
diff --git a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
index 4fd0122..1b3853b 100644
--- a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
+++ b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
@@ -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 @@ addTagsToResource pResourceARN_ =
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/CreateHAPG.hs b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
index 4c77c0b..3f672a9 100644
--- a/gen/Network/AWS/CloudHSM/CreateHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
@@ -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 @@ createHAPG pLabel_ = CreateHAPG' {_chLabel = pLabel_}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/CreateHSM.hs b/gen/Network/AWS/CloudHSM/CreateHSM.hs
index f242f22..06b53ba 100644
--- a/gen/Network/AWS/CloudHSM/CreateHSM.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHSM.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
index 60aba08..f903ef1 100644
--- a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
@@ -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 @@ createLunaClient pCertificate_ =
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
index e1a8dfe..8a7f0cd 100644
--- a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
@@ -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 @@ deleteHAPG pHAPGARN_ = DeleteHAPG' {_dhHAPGARN = pHAPGARN_}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DeleteHSM.hs b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
index ee7a58a..1938a02 100644
--- a/gen/Network/AWS/CloudHSM/DeleteHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
@@ -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 @@ deleteHSM pHSMARN_ = DeleteHSM' {_dhHSMARN = pHSMARN_}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
index e3e029a..0fb60d5 100644
--- a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
@@ -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 @@ deleteLunaClient pClientARN_ = DeleteLunaClient' {_dClientARN = pClientARN_}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
index 3af1950..2956289 100644
--- a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
@@ -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 @@ describeHAPG pHAPGARN_ = DescribeHAPG' {_dhapgHAPGARN = pHAPGARN_}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DescribeHSM.hs b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
index 349f830..7053d55 100644
--- a/gen/Network/AWS/CloudHSM/DescribeHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
@@ -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 @@ describeHSM =
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
index 8cd332c..771459f 100644
--- a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
@@ -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 =
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
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
diff --git a/gen/Network/AWS/CloudHSM/GetConfig.hs b/gen/Network/AWS/CloudHSM/GetConfig.hs
index ff67e4d..85f0489 100644
--- a/gen/Network/AWS/CloudHSM/GetConfig.hs
+++ b/gen/Network/AWS/CloudHSM/GetConfig.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
index 2b2f688..6a86810 100644
--- a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
+++ b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
@@ -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
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
diff --git a/gen/Network/AWS/CloudHSM/ListHAPGs.hs b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
index c56ef46..334fb4b 100644
--- a/gen/Network/AWS/CloudHSM/ListHAPGs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
@@ -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 @@ listHAPGs = ListHAPGs' {_lhNextToken = Nothing}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/ListHSMs.hs b/gen/Network/AWS/CloudHSM/ListHSMs.hs
index 4231c82..1d6603d 100644
--- a/gen/Network/AWS/CloudHSM/ListHSMs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHSMs.hs
@@ -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 @@ listHSMs = ListHSMs' {_lhsmNextToken = Nothing}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/ListLunaClients.hs b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
index 8efb224..d36b57a 100644
--- a/gen/Network/AWS/CloudHSM/ListLunaClients.hs
+++ b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
@@ -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 @@ listLunaClients = ListLunaClients' {_llcNextToken = Nothing}
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
index a4bcca6..475a0b7 100644
--- a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
+++ b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
@@ -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 @@ listTagsForResource pResourceARN_ =
-- | 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
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
diff --git a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
index 2cdafbb..a1b5414 100644
--- a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/ModifyHSM.hs b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
index 5667ac1..018bd97 100644
--- a/gen/Network/AWS/CloudHSM/ModifyHSM.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
index ce138dd..b6c38d5 100644
--- a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
index cfa40eb..b90f031 100644
--- a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
+++ b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
@@ -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
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
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
diff --git a/gen/Network/AWS/CloudHSM/Types.hs b/gen/Network/AWS/CloudHSM/Types.hs
index 7b2cee2..7db3c1e 100644
--- a/gen/Network/AWS/CloudHSM/Types.hs
+++ b/gen/Network/AWS/CloudHSM/Types.hs
@@ -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 @@ import Network.AWS.Sign.V4
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 @@ cloudHSM =
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"
diff --git a/gen/Network/AWS/CloudHSM/Types/Product.hs b/gen/Network/AWS/CloudHSM/Types/Product.hs
index 4ed2a56..cbc1a78 100644
--- a/gen/Network/AWS/CloudHSM/Types/Product.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Product.hs
@@ -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 @@ tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}
-- | 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
diff --git a/gen/Network/AWS/CloudHSM/Types/Sum.hs b/gen/Network/AWS/CloudHSM/Types/Sum.hs
index 52a2ca7..ef21d00 100644
--- a/gen/Network/AWS/CloudHSM/Types/Sum.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Sum.hs
@@ -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
diff --git a/gen/Network/AWS/CloudHSM/Waiters.hs b/gen/Network/AWS/CloudHSM/Waiters.hs
index 1f4d8cc..d972e58 100644
--- a/gen/Network/AWS/CloudHSM/Waiters.hs
+++ b/gen/Network/AWS/CloudHSM/Waiters.hs
@@ -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
diff --git a/test/Main.hs b/test/Main.hs
index d661475..be9e382 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -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
diff --git a/test/Test/AWS/CloudHSM.hs b/test/Test/AWS/CloudHSM.hs
index 3bb5962..06b0849 100644
--- a/test/Test/AWS/CloudHSM.hs
+++ b/test/Test/AWS/CloudHSM.hs
@@ -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
diff --git a/test/Test/AWS/CloudHSM/Internal.hs b/test/Test/AWS/CloudHSM/Internal.hs
index 3dd242d..733187f 100644
--- a/test/Test/AWS/CloudHSM/Internal.hs
+++ b/test/Test/AWS/CloudHSM/Internal.hs
@@ -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
diff --git a/test/Test/AWS/Gen/CloudHSM.hs b/test/Test/AWS/Gen/CloudHSM.hs
index 8eaf8e6..a343c38 100644
--- a/test/Test/AWS/Gen/CloudHSM.hs
+++ b/test/Test/AWS/Gen/CloudHSM.hs
@@ -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