amazonka-cloudhsm 1.4.4 → 1.4.5

raw patch · 26 files changed

+285/−204 lines, 26 filesdep ~amazonka-cloudhsmdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−6
• amazonka-cloudhsm.cabal +10/−11
• gen/Network/AWS/CloudHSM.hs +1/−1
• gen/Network/AWS/CloudHSM/AddTagsToResource.hs +7/−5
• gen/Network/AWS/CloudHSM/CreateHAPG.hs +12/−6
• gen/Network/AWS/CloudHSM/CreateHSM.hs +23/−19
• gen/Network/AWS/CloudHSM/CreateLunaClient.hs +13/−7
• gen/Network/AWS/CloudHSM/DeleteHAPG.hs +12/−6
• gen/Network/AWS/CloudHSM/DeleteHSM.hs +12/−6
• gen/Network/AWS/CloudHSM/DeleteLunaClient.hs +6/−4
• gen/Network/AWS/CloudHSM/DescribeHAPG.hs +20/−14
• gen/Network/AWS/CloudHSM/DescribeHSM.hs +34/−28
• gen/Network/AWS/CloudHSM/DescribeLunaClient.hs +11/−9
• gen/Network/AWS/CloudHSM/GetConfig.hs +10/−8
• gen/Network/AWS/CloudHSM/ListAvailableZones.hs +8/−4
• gen/Network/AWS/CloudHSM/ListHAPGs.hs +10/−8
• gen/Network/AWS/CloudHSM/ListHSMs.hs +13/−9
• gen/Network/AWS/CloudHSM/ListLunaClients.hs +10/−8
• gen/Network/AWS/CloudHSM/ListTagsForResource.hs +6/−4
• gen/Network/AWS/CloudHSM/ModifyHAPG.hs +8/−6
• gen/Network/AWS/CloudHSM/ModifyHSM.hs +19/−15
• gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +8/−6
• gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs +9/−9
• gen/Network/AWS/CloudHSM/Types.hs +7/−1
• gen/Network/AWS/CloudHSM/Types/Product.hs +4/−2
• gen/Network/AWS/CloudHSM/Types/Sum.hs +3/−2

@@ -8,24 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -AWS CloudHSM Service- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cloudhsm) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.CloudHSM](http://hackage.haskell.org/package/amazonka-cloudhsm/docs/Network-AWS-CloudHSM.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-cloudhsm-version:               1.4.4+version:               1.4.5 synopsis:              Amazon CloudHSM SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,20 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS CloudHSM Service-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.CloudHSM" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.CloudHSM" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -69,7 +68,7 @@         , Network.AWS.CloudHSM.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudhsm-test@@ -89,9 +88,9 @@         , Test.AWS.CloudHSM.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-cloudhsm == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-cloudhsm == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,7 +11,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS CloudHSM Service+-- __AWS CloudHSM Service__ module Network.AWS.CloudHSM     (     -- * Service Configuration

@@ -20,7 +20,9 @@ -- -- Adds or overwrites one or more tags for the specified AWS CloudHSM resource. --+-- -- Each tag consists of a key and a value. Tag keys must be unique to each resource.+-- module Network.AWS.CloudHSM.AddTagsToResource     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'attrResourceARN'+-- * 'attrResourceARN' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag. ----- * 'attrTagList'+-- * 'attrTagList' - One or more tags. addTagsToResource     :: Text -- ^ 'attrResourceARN'     -> AddTagsToResource@@ -121,9 +123,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'attrrsResponseStatus'+-- * 'attrrsResponseStatus' - -- | The response status code. ----- * 'attrrsStatus'+-- * 'attrrsStatus' - The status of the operation. addTagsToResourceResponse     :: Int -- ^ 'attrrsResponseStatus'     -> Text -- ^ 'attrrsStatus'@@ -134,7 +136,7 @@     , _attrrsStatus = pStatus_     } --- | The response status code.+-- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a high-availability partition group. A high-availability partition group is a group of partitions that spans multiple physical HSMs.+--+-- module Network.AWS.CloudHSM.CreateHAPG     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < CreateHapgRequest> action.+-- | Contains the inputs for the 'CreateHapgRequest' action. --+--+-- -- /See:/ 'createHAPG' smart constructor. newtype CreateHAPG = CreateHAPG'     { _chLabel :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chLabel'+-- * 'chLabel' - The label of the new high-availability partition group. createHAPG     :: Text -- ^ 'chLabel'     -> CreateHAPG@@ -98,8 +102,10 @@ instance ToQuery CreateHAPG where         toQuery = const mempty --- | Contains the output of the < CreateHAPartitionGroup> action.+-- | Contains the output of the 'CreateHAPartitionGroup' action. --+--+-- -- /See:/ 'createHAPGResponse' smart constructor. data CreateHAPGResponse = CreateHAPGResponse'     { _chapgrsHAPGARN        :: !(Maybe Text)@@ -110,9 +116,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chapgrsHAPGARN'+-- * 'chapgrsHAPGARN' - The ARN of the high-availability partition group. ----- * 'chapgrsResponseStatus'+-- * 'chapgrsResponseStatus' - -- | The response status code. createHAPGResponse     :: Int -- ^ 'chapgrsResponseStatus'     -> CreateHAPGResponse@@ -126,7 +132,7 @@ chapgrsHAPGARN :: Lens' CreateHAPGResponse (Maybe Text) chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a}); --- | The response status code.+-- | -- | The response status code. chapgrsResponseStatus :: Lens' CreateHAPGResponse Int chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a}); 

@@ -20,9 +20,11 @@ -- -- Creates an uninitialized HSM instance. ----- There is an upfront fee charged for each HSM instance that you create with the < CreateHsm> operation. If you accidentally provision an HSM and want to request a refund, delete the instance using the < DeleteHsm> operation, go to the <https://console.aws.amazon.com/support/home#/ AWS Support Center>, create a new case, and select __Account and Billing Support__. ----- It can take up to 20 minutes to create and provision an HSM. You can monitor the status of the HSM with the < DescribeHsm> operation. The HSM is ready to be initialized when the status changes to 'RUNNING'.+-- There is an upfront fee charged for each HSM instance that you create with the 'CreateHsm' operation. If you accidentally provision an HSM and want to request a refund, delete the instance using the 'DeleteHsm' operation, go to the <https://console.aws.amazon.com/support/home#/ AWS Support Center> , create a new case, and select __Account and Billing Support__ .+--+-- /Important:/ It can take up to 20 minutes to create and provision an HSM. You can monitor the status of the HSM with the 'DescribeHsm' operation. The HSM is ready to be initialized when the status changes to @RUNNING@ .+-- module Network.AWS.CloudHSM.CreateHSM     (     -- * Creating a Request@@ -53,8 +55,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < CreateHsm> operation.+-- | Contains the inputs for the 'CreateHsm' operation. --+--+-- -- /See:/ 'createHSM' smart constructor. data CreateHSM = CreateHSM'     { _chClientToken      :: !(Maybe Text)@@ -71,21 +75,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chClientToken'+-- * 'chClientToken' - A user-defined token to ensure idempotence. Subsequent calls to this operation with the same token will be ignored. ----- * 'chSyslogIP'+-- * 'chSyslogIP' - The IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server. ----- * 'chExternalId'+-- * 'chExternalId' - The external ID from __IamRoleArn__ , if present. ----- * 'chEniIP'+-- * 'chEniIP' - 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. ----- * 'chSubnetId'+-- * 'chSubnetId' - The identifier of the subnet in your VPC in which to place the HSM. ----- * 'chSSHKey'+-- * 'chSSHKey' - The SSH public key to install on the HSM. ----- * 'chIAMRoleARN'+-- * 'chIAMRoleARN' - The ARN of an IAM role to enable the AWS CloudHSM service to allocate an ENI on your behalf. ----- * 'chSubscriptionType'+-- * 'chSubscriptionType' - Undocumented member. createHSM     :: Text -- ^ 'chSubnetId'     -> Text -- ^ 'chSSHKey'@@ -112,13 +116,11 @@ chSyslogIP :: Lens' CreateHSM (Maybe Text) chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a}); --- | The external ID from __IamRoleArn__, if present.+-- | The external ID from __IamRoleArn__ , if present. chExternalId :: Lens' CreateHSM (Maybe Text) 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.+-- | 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}); @@ -179,8 +181,10 @@ instance ToQuery CreateHSM where         toQuery = const mempty --- | Contains the output of the < CreateHsm> operation.+-- | Contains the output of the 'CreateHsm' operation. --+--+-- -- /See:/ 'createHSMResponse' smart constructor. data CreateHSMResponse = CreateHSMResponse'     { _chrsHSMARN         :: !(Maybe Text)@@ -191,9 +195,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chrsHSMARN'+-- * 'chrsHSMARN' - The ARN of the HSM. ----- * 'chrsResponseStatus'+-- * 'chrsResponseStatus' - -- | The response status code. createHSMResponse     :: Int -- ^ 'chrsResponseStatus'     -> CreateHSMResponse@@ -207,7 +211,7 @@ chrsHSMARN :: Lens' CreateHSMResponse (Maybe Text) chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a}); --- | The response status code.+-- | -- | The response status code. chrsResponseStatus :: Lens' CreateHSMResponse Int chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates an HSM client.+--+-- module Network.AWS.CloudHSM.CreateLunaClient     (     -- * Creating a Request@@ -43,8 +45,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < CreateLunaClient> action.+-- | Contains the inputs for the 'CreateLunaClient' action. --+--+-- -- /See:/ 'createLunaClient' smart constructor. data CreateLunaClient = CreateLunaClient'     { _clcLabel       :: !(Maybe Text)@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clcLabel'+-- * 'clcLabel' - The label for the client. ----- * 'clcCertificate'+-- * 'clcCertificate' - The contents of a Base64-Encoded X.509 v3 certificate to be installed on the HSMs used by this client. createLunaClient     :: Text -- ^ 'clcCertificate'     -> CreateLunaClient@@ -111,8 +115,10 @@ instance ToQuery CreateLunaClient where         toQuery = const mempty --- | Contains the output of the < CreateLunaClient> action.+-- | Contains the output of the 'CreateLunaClient' action. --+--+-- -- /See:/ 'createLunaClientResponse' smart constructor. data CreateLunaClientResponse = CreateLunaClientResponse'     { _clcrsClientARN      :: !(Maybe Text)@@ -123,9 +129,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'clcrsClientARN'+-- * 'clcrsClientARN' - The ARN of the client. ----- * 'clcrsResponseStatus'+-- * 'clcrsResponseStatus' - -- | The response status code. createLunaClientResponse     :: Int -- ^ 'clcrsResponseStatus'     -> CreateLunaClientResponse@@ -139,7 +145,7 @@ clcrsClientARN :: Lens' CreateLunaClientResponse (Maybe Text) clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a}); --- | The response status code.+-- | -- | The response status code. clcrsResponseStatus :: Lens' CreateLunaClientResponse Int clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a high-availability partition group.+--+-- module Network.AWS.CloudHSM.DeleteHAPG     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < DeleteHapg> action.+-- | Contains the inputs for the 'DeleteHapg' action. --+--+-- -- /See:/ 'deleteHAPG' smart constructor. newtype DeleteHAPG = DeleteHAPG'     { _dhHAPGARN :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhHAPGARN'+-- * 'dhHAPGARN' - The ARN of the high-availability partition group to delete. deleteHAPG     :: Text -- ^ 'dhHAPGARN'     -> DeleteHAPG@@ -98,8 +102,10 @@ instance ToQuery DeleteHAPG where         toQuery = const mempty --- | Contains the output of the < DeleteHapg> action.+-- | Contains the output of the 'DeleteHapg' action. --+--+-- -- /See:/ 'deleteHAPGResponse' smart constructor. data DeleteHAPGResponse = DeleteHAPGResponse'     { _dhrsResponseStatus :: !Int@@ -110,9 +116,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhrsResponseStatus'+-- * 'dhrsResponseStatus' - -- | The response status code. ----- * 'dhrsStatus'+-- * 'dhrsStatus' - The status of the action. deleteHAPGResponse     :: Int -- ^ 'dhrsResponseStatus'     -> Text -- ^ 'dhrsStatus'@@ -123,7 +129,7 @@     , _dhrsStatus = pStatus_     } --- | The response status code.+-- | -- | The response status code. dhrsResponseStatus :: Lens' DeleteHAPGResponse Int dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes an HSM. After completion, this operation cannot be undone and your key material cannot be recovered.+--+-- module Network.AWS.CloudHSM.DeleteHSM     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < DeleteHsm> operation.+-- | Contains the inputs for the 'DeleteHsm' operation. --+--+-- -- /See:/ 'deleteHSM' smart constructor. newtype DeleteHSM = DeleteHSM'     { _dhHSMARN :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhHSMARN'+-- * 'dhHSMARN' - The ARN of the HSM to delete. deleteHSM     :: Text -- ^ 'dhHSMARN'     -> DeleteHSM@@ -98,8 +102,10 @@ instance ToQuery DeleteHSM where         toQuery = const mempty --- | Contains the output of the < DeleteHsm> operation.+-- | Contains the output of the 'DeleteHsm' operation. --+--+-- -- /See:/ 'deleteHSMResponse' smart constructor. data DeleteHSMResponse = DeleteHSMResponse'     { _dhsmrsResponseStatus :: !Int@@ -110,9 +116,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhsmrsResponseStatus'+-- * 'dhsmrsResponseStatus' - -- | The response status code. ----- * 'dhsmrsStatus'+-- * 'dhsmrsStatus' - The status of the operation. deleteHSMResponse     :: Int -- ^ 'dhsmrsResponseStatus'     -> Text -- ^ 'dhsmrsStatus'@@ -123,7 +129,7 @@     , _dhsmrsStatus = pStatus_     } --- | The response status code.+-- | -- | The response status code. dhsmrsResponseStatus :: Lens' DeleteHSMResponse Int dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a client.+--+-- module Network.AWS.CloudHSM.DeleteLunaClient     (     -- * Creating a Request@@ -51,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dClientARN'+-- * 'dClientARN' - The ARN of the client to delete. deleteLunaClient     :: Text -- ^ 'dClientARN'     -> DeleteLunaClient@@ -108,9 +110,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlcrsResponseStatus'+-- * 'dlcrsResponseStatus' - -- | The response status code. ----- * 'dlcrsStatus'+-- * 'dlcrsStatus' - The status of the action. deleteLunaClientResponse     :: Int -- ^ 'dlcrsResponseStatus'     -> Text -- ^ 'dlcrsStatus'@@ -121,7 +123,7 @@     , _dlcrsStatus = pStatus_     } --- | The response status code.+-- | -- | The response status code. dlcrsResponseStatus :: Lens' DeleteLunaClientResponse Int dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves information about a high-availability partition group.+--+-- module Network.AWS.CloudHSM.DescribeHAPG     (     -- * Creating a Request@@ -50,8 +52,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < DescribeHapg> action.+-- | Contains the inputs for the 'DescribeHapg' action. --+--+-- -- /See:/ 'describeHAPG' smart constructor. newtype DescribeHAPG = DescribeHAPG'     { _dhapgHAPGARN :: Text@@ -61,7 +65,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhapgHAPGARN'+-- * 'dhapgHAPGARN' - The ARN of the high-availability partition group to describe. describeHAPG     :: Text -- ^ 'dhapgHAPGARN'     -> DescribeHAPG@@ -116,8 +120,10 @@ instance ToQuery DescribeHAPG where         toQuery = const mempty --- | Contains the output of the < DescribeHapg> action.+-- | Contains the output of the 'DescribeHapg' action. --+--+-- -- /See:/ 'describeHAPGResponse' smart constructor. data DescribeHAPGResponse = DescribeHAPGResponse'     { _dhapgrsState                   :: !(Maybe CloudHSMObjectState)@@ -136,25 +142,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhapgrsState'+-- * 'dhapgrsState' - The state of the high-availability partition group. ----- * 'dhapgrsLastModifiedTimestamp'+-- * 'dhapgrsLastModifiedTimestamp' - The date and time the high-availability partition group was last modified. ----- * 'dhapgrsHSMsPendingRegistration'+-- * 'dhapgrsHSMsPendingRegistration' - Undocumented member. ----- * 'dhapgrsHSMsPendingDeletion'+-- * 'dhapgrsHSMsPendingDeletion' - Undocumented member. ----- * 'dhapgrsHAPGSerial'+-- * 'dhapgrsHAPGSerial' - The serial number of the high-availability partition group. ----- * 'dhapgrsHSMsLastActionFailed'+-- * 'dhapgrsHSMsLastActionFailed' - Undocumented member. ----- * 'dhapgrsPartitionSerialList'+-- * 'dhapgrsPartitionSerialList' - The list of partition serial numbers that belong to the high-availability partition group. ----- * 'dhapgrsHAPGARN'+-- * 'dhapgrsHAPGARN' - The ARN of the high-availability partition group. ----- * 'dhapgrsLabel'+-- * 'dhapgrsLabel' - The label for the high-availability partition group. ----- * 'dhapgrsResponseStatus'+-- * 'dhapgrsResponseStatus' - -- | The response status code. describeHAPGResponse     :: Int -- ^ 'dhapgrsResponseStatus'     -> DescribeHAPGResponse@@ -208,7 +214,7 @@ dhapgrsLabel :: Lens' DescribeHAPGResponse (Maybe Text) dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a}); --- | The response status code.+-- | -- | The response status code. dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves information about an HSM. You can identify the HSM by its ARN or its serial number.+--+-- module Network.AWS.CloudHSM.DescribeHSM     (     -- * Creating a Request@@ -63,8 +65,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < DescribeHsm> operation.+-- | Contains the inputs for the 'DescribeHsm' operation. --+--+-- -- /See:/ 'describeHSM' smart constructor. data DescribeHSM = DescribeHSM'     { _dhsmHSMSerialNumber :: !(Maybe Text)@@ -75,9 +79,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dhsmHSMSerialNumber'+-- * 'dhsmHSMSerialNumber' - The serial number of the HSM. Either the /HsmArn/ or the /HsmSerialNumber/ parameter must be specified. ----- * 'dhsmHSMARN'+-- * 'dhsmHSMARN' - The ARN of the HSM. Either the /HsmArn/ or the /SerialNumber/ parameter must be specified. describeHSM     :: DescribeHSM describeHSM =@@ -150,8 +154,10 @@ instance ToQuery DescribeHSM where         toQuery = const mempty --- | Contains the output of the < DescribeHsm> operation.+-- | Contains the output of the 'DescribeHsm' operation. --+--+-- -- /See:/ 'describeHSMResponse' smart constructor. data DescribeHSMResponse = DescribeHSMResponse'     { _desrsStatus                :: !(Maybe HSMStatus)@@ -182,49 +188,49 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'desrsStatus'+-- * 'desrsStatus' - The status of the HSM. ----- * 'desrsIAMRoleARN'+-- * 'desrsIAMRoleARN' - The ARN of the IAM role assigned to the HSM. ----- * 'desrsEniId'+-- * 'desrsEniId' - The identifier of the elastic network interface (ENI) attached to the HSM. ----- * 'desrsVPCId'+-- * 'desrsVPCId' - The identifier of the VPC that the HSM is in. ----- * 'desrsSSHKeyLastUpdated'+-- * 'desrsSSHKeyLastUpdated' - The date and time that the SSH key was last updated. ----- * 'desrsSubscriptionEndDate'+-- * 'desrsSubscriptionEndDate' - The subscription end date. ----- * 'desrsServerCertURI'+-- * 'desrsServerCertURI' - The URI of the certificate server. ----- * 'desrsSubscriptionType'+-- * 'desrsSubscriptionType' - Undocumented member. ----- * 'desrsSSHPublicKey'+-- * 'desrsSSHPublicKey' - The public SSH key. ----- * 'desrsSubnetId'+-- * 'desrsSubnetId' - The identifier of the subnet that the HSM is in. ----- * 'desrsStatusDetails'+-- * 'desrsStatusDetails' - Contains additional information about the status of the HSM. ----- * 'desrsPartitions'+-- * 'desrsPartitions' - The list of partitions on the HSM. ----- * 'desrsSubscriptionStartDate'+-- * 'desrsSubscriptionStartDate' - The subscription start date. ----- * 'desrsAvailabilityZone'+-- * 'desrsAvailabilityZone' - The Availability Zone that the HSM is in. ----- * 'desrsServerCertLastUpdated'+-- * 'desrsServerCertLastUpdated' - The date and time that the server certificate was last updated. ----- * 'desrsSoftwareVersion'+-- * 'desrsSoftwareVersion' - The HSM software version. ----- * 'desrsVendorName'+-- * 'desrsVendorName' - The name of the HSM vendor. ----- * 'desrsSerialNumber'+-- * 'desrsSerialNumber' - The serial number of the HSM. ----- * 'desrsHSMARN'+-- * 'desrsHSMARN' - The ARN of the HSM. ----- * 'desrsEniIP'+-- * 'desrsEniIP' - The IP address assigned to the HSM's ENI. ----- * 'desrsHSMType'+-- * 'desrsHSMType' - The HSM model type. ----- * 'desrsResponseStatus'+-- * 'desrsResponseStatus' - -- | The response status code. describeHSMResponse     :: Int -- ^ 'desrsResponseStatus'     -> DescribeHSMResponse@@ -330,7 +336,7 @@ desrsHSMARN :: Lens' DescribeHSMResponse (Maybe Text) desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a}); --- | The IP address assigned to the HSM\'s ENI.+-- | The IP address assigned to the HSM's ENI. desrsEniIP :: Lens' DescribeHSMResponse (Maybe Text) desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a}); @@ -338,7 +344,7 @@ desrsHSMType :: Lens' DescribeHSMResponse (Maybe Text) desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a}); --- | The response status code.+-- | -- | The response status code. desrsResponseStatus :: Lens' DescribeHSMResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves information about an HSM client.+--+-- module Network.AWS.CloudHSM.DescribeLunaClient     (     -- * Creating a Request@@ -57,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlcClientARN'+-- * 'dlcClientARN' - The ARN of the client. ----- * 'dlcCertificateFingerprint'+-- * 'dlcCertificateFingerprint' - The certificate fingerprint. describeLunaClient     :: DescribeLunaClient describeLunaClient =@@ -133,17 +135,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsClientARN'+-- * 'drsClientARN' - The ARN of the client. ----- * 'drsLastModifiedTimestamp'+-- * 'drsLastModifiedTimestamp' - The date and time the client was last modified. ----- * 'drsCertificateFingerprint'+-- * 'drsCertificateFingerprint' - The certificate fingerprint. ----- * 'drsCertificate'+-- * 'drsCertificate' - The certificate installed on the HSMs used by this client. ----- * 'drsLabel'+-- * 'drsLabel' - The label of the client. ----- * 'drsResponseStatus'+-- * 'drsResponseStatus' - -- | The response status code. describeLunaClientResponse     :: Int -- ^ 'drsResponseStatus'     -> DescribeLunaClientResponse@@ -177,7 +179,7 @@ drsLabel :: Lens' DescribeLunaClientResponse (Maybe Text) drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a}); --- | The response status code.+-- | -- | The response status code. drsResponseStatus :: Lens' DescribeLunaClientResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets the configuration files necessary to connect to all high availability partition groups the client is associated with.+--+-- module Network.AWS.CloudHSM.GetConfig     (     -- * Creating a Request@@ -57,11 +59,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcClientARN'+-- * 'gcClientARN' - The ARN of the client. ----- * 'gcClientVersion'+-- * 'gcClientVersion' - The client version. ----- * 'gcHAPGList'+-- * 'gcHAPGList' - A list of ARNs that identify the high-availability partition groups that are associated with the client. getConfig     :: Text -- ^ 'gcClientARN'     -> ClientVersion -- ^ 'gcClientVersion'@@ -135,13 +137,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcrsConfigFile'+-- * 'gcrsConfigFile' - The chrystoki.conf configuration file. ----- * 'gcrsConfigCred'+-- * 'gcrsConfigCred' - The certificate file containing the server.pem files of the HSMs. ----- * 'gcrsConfigType'+-- * 'gcrsConfigType' - The type of credentials. ----- * 'gcrsResponseStatus'+-- * 'gcrsResponseStatus' - -- | The response status code. getConfigResponse     :: Int -- ^ 'gcrsResponseStatus'     -> GetConfigResponse@@ -165,7 +167,7 @@ gcrsConfigType :: Lens' GetConfigResponse (Maybe Text) gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a}); --- | The response status code.+-- | -- | The response status code. gcrsResponseStatus :: Lens' GetConfigResponse Int gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the Availability Zones that have available AWS CloudHSM capacity.+--+-- module Network.AWS.CloudHSM.ListAvailableZones     (     -- * Creating a Request@@ -40,8 +42,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < ListAvailableZones> action.+-- | Contains the inputs for the 'ListAvailableZones' action. --+--+-- -- /See:/ 'listAvailableZones' smart constructor. data ListAvailableZones =     ListAvailableZones'@@ -96,9 +100,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lazrsAZList'+-- * 'lazrsAZList' - The list of Availability Zones that have available AWS CloudHSM capacity. ----- * 'lazrsResponseStatus'+-- * 'lazrsResponseStatus' - -- | The response status code. listAvailableZonesResponse     :: Int -- ^ 'lazrsResponseStatus'     -> ListAvailableZonesResponse@@ -112,7 +116,7 @@ lazrsAZList :: Lens' ListAvailableZonesResponse [Text] lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Lists the high-availability partition groups for the account. ----- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListHapgs> to retrieve the next set of items.+--+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to 'ListHapgs' to retrieve the next set of items.+-- module Network.AWS.CloudHSM.ListHAPGs     (     -- * Creating a Request@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhNextToken'+-- * 'lhNextToken' - The /NextToken/ value from a previous call to 'ListHapgs' . Pass null if this is the first call. listHAPGs     :: ListHAPGs listHAPGs =@@ -62,7 +64,7 @@     { _lhNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListHapgs>. Pass null if this is the first call.+-- | The /NextToken/ value from a previous call to 'ListHapgs' . Pass null if this is the first call. lhNextToken :: Lens' ListHAPGs (Maybe Text) lhNextToken = lens _lhNextToken (\ s a -> s{_lhNextToken = a}); @@ -111,11 +113,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhrsNextToken'+-- * 'lhrsNextToken' - If not null, more results are available. Pass this value to 'ListHapgs' to retrieve the next set of items. ----- * 'lhrsResponseStatus'+-- * 'lhrsResponseStatus' - -- | The response status code. ----- * 'lhrsHAPGList'+-- * 'lhrsHAPGList' - The list of high-availability partition groups. listHAPGsResponse     :: Int -- ^ 'lhrsResponseStatus'     -> ListHAPGsResponse@@ -126,11 +128,11 @@     , _lhrsHAPGList = mempty     } --- | If not null, more results are available. Pass this value to < ListHapgs> to retrieve the next set of items.+-- | If not null, more results are available. Pass this value to 'ListHapgs' to retrieve the next set of items. lhrsNextToken :: Lens' ListHAPGsResponse (Maybe Text) lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. lhrsResponseStatus :: Lens' ListHAPGsResponse Int lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Retrieves the identifiers of all of the HSMs provisioned for the current customer. ----- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListHsms> to retrieve the next set of items.+--+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to 'ListHsms' to retrieve the next set of items.+-- module Network.AWS.CloudHSM.ListHSMs     (     -- * Creating a Request@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhsmNextToken'+-- * 'lhsmNextToken' - The /NextToken/ value from a previous call to 'ListHsms' . Pass null if this is the first call. listHSMs     :: ListHSMs listHSMs =@@ -62,7 +64,7 @@     { _lhsmNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListHsms>. Pass null if this is the first call.+-- | The /NextToken/ value from a previous call to 'ListHsms' . Pass null if this is the first call. lhsmNextToken :: Lens' ListHSMs (Maybe Text) lhsmNextToken = lens _lhsmNextToken (\ s a -> s{_lhsmNextToken = a}); @@ -100,8 +102,10 @@ instance ToQuery ListHSMs where         toQuery = const mempty --- | Contains the output of the < ListHsms> operation.+-- | Contains the output of the 'ListHsms' operation. --+--+-- -- /See:/ 'listHSMsResponse' smart constructor. data ListHSMsResponse = ListHSMsResponse'     { _lhsmrsNextToken      :: !(Maybe Text)@@ -113,11 +117,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lhsmrsNextToken'+-- * 'lhsmrsNextToken' - If not null, more results are available. Pass this value to 'ListHsms' to retrieve the next set of items. ----- * 'lhsmrsHSMList'+-- * 'lhsmrsHSMList' - The list of ARNs that identify the HSMs. ----- * 'lhsmrsResponseStatus'+-- * 'lhsmrsResponseStatus' - -- | The response status code. listHSMsResponse     :: Int -- ^ 'lhsmrsResponseStatus'     -> ListHSMsResponse@@ -128,7 +132,7 @@     , _lhsmrsResponseStatus = pResponseStatus_     } --- | If not null, more results are available. Pass this value to < ListHsms> to retrieve the next set of items.+-- | If not null, more results are available. Pass this value to 'ListHsms' to retrieve the next set of items. lhsmrsNextToken :: Lens' ListHSMsResponse (Maybe Text) lhsmrsNextToken = lens _lhsmrsNextToken (\ s a -> s{_lhsmrsNextToken = a}); @@ -136,7 +140,7 @@ lhsmrsHSMList :: Lens' ListHSMsResponse [Text] lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lhsmrsResponseStatus :: Lens' ListHSMsResponse Int lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Lists all of the clients. ----- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to < ListLunaClients> to retrieve the next set of items.+--+-- This operation supports pagination with the use of the /NextToken/ member. If more results are available, the /NextToken/ member of the response contains a token that you pass in the next call to 'ListLunaClients' to retrieve the next set of items.+-- module Network.AWS.CloudHSM.ListLunaClients     (     -- * Creating a Request@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llcNextToken'+-- * 'llcNextToken' - The /NextToken/ value from a previous call to 'ListLunaClients' . Pass null if this is the first call. listLunaClients     :: ListLunaClients listLunaClients =@@ -62,7 +64,7 @@     { _llcNextToken = Nothing     } --- | The /NextToken/ value from a previous call to < ListLunaClients>. Pass null if this is the first call.+-- | The /NextToken/ value from a previous call to 'ListLunaClients' . Pass null if this is the first call. llcNextToken :: Lens' ListLunaClients (Maybe Text) llcNextToken = lens _llcNextToken (\ s a -> s{_llcNextToken = a}); @@ -112,11 +114,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'llcrsNextToken'+-- * 'llcrsNextToken' - If not null, more results are available. Pass this to 'ListLunaClients' to retrieve the next set of items. ----- * 'llcrsResponseStatus'+-- * 'llcrsResponseStatus' - -- | The response status code. ----- * 'llcrsClientList'+-- * 'llcrsClientList' - The list of clients. listLunaClientsResponse     :: Int -- ^ 'llcrsResponseStatus'     -> ListLunaClientsResponse@@ -127,11 +129,11 @@     , _llcrsClientList = mempty     } --- | If not null, more results are available. Pass this to < ListLunaClients> to retrieve the next set of items.+-- | If not null, more results are available. Pass this to 'ListLunaClients' to retrieve the next set of items. llcrsNextToken :: Lens' ListLunaClientsResponse (Maybe Text) llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. llcrsResponseStatus :: Lens' ListLunaClientsResponse Int llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns a list of all tags for the specified AWS CloudHSM resource.+--+-- module Network.AWS.CloudHSM.ListTagsForResource     (     -- * Creating a Request@@ -51,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltfrResourceARN'+-- * 'ltfrResourceARN' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource. listTagsForResource     :: Text -- ^ 'ltfrResourceARN'     -> ListTagsForResource@@ -110,9 +112,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ltfrrsResponseStatus'+-- * 'ltfrrsResponseStatus' - -- | The response status code. ----- * 'ltfrrsTagList'+-- * 'ltfrrsTagList' - One or more tags. listTagsForResourceResponse     :: Int -- ^ 'ltfrrsResponseStatus'     -> ListTagsForResourceResponse@@ -122,7 +124,7 @@     , _ltfrrsTagList = mempty     } --- | The response status code.+-- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Modifies an existing high-availability partition group.+--+-- module Network.AWS.CloudHSM.ModifyHAPG     (     -- * Creating a Request@@ -55,11 +57,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mhPartitionSerialList'+-- * 'mhPartitionSerialList' - The list of partition serial numbers to make members of the high-availability partition group. ----- * 'mhLabel'+-- * 'mhLabel' - The new label for the high-availability partition group. ----- * 'mhHAPGARN'+-- * 'mhHAPGARN' - The ARN of the high-availability partition group to modify. modifyHAPG     :: Text -- ^ 'mhHAPGARN'     -> ModifyHAPG@@ -129,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mhrsHAPGARN'+-- * 'mhrsHAPGARN' - The ARN of the high-availability partition group. ----- * 'mhrsResponseStatus'+-- * 'mhrsResponseStatus' - -- | The response status code. modifyHAPGResponse     :: Int -- ^ 'mhrsResponseStatus'     -> ModifyHAPGResponse@@ -145,7 +147,7 @@ mhrsHAPGARN :: Lens' ModifyHAPGResponse (Maybe Text) mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a}); --- | The response status code.+-- | -- | The response status code. mhrsResponseStatus :: Lens' ModifyHAPGResponse Int mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Modifies an HSM. ----- This operation can result in the HSM being offline for up to 15 minutes while the AWS CloudHSM service is reconfigured. If you are modifying a production HSM, you should ensure that your AWS CloudHSM service is configured for high availability, and consider executing this operation during a maintenance window.+--+-- /Important:/ This operation can result in the HSM being offline for up to 15 minutes while the AWS CloudHSM service is reconfigured. If you are modifying a production HSM, you should ensure that your AWS CloudHSM service is configured for high availability, and consider executing this operation during a maintenance window.+-- module Network.AWS.CloudHSM.ModifyHSM     (     -- * Creating a Request@@ -49,8 +51,10 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Contains the inputs for the < ModifyHsm> operation.+-- | Contains the inputs for the 'ModifyHsm' operation. --+--+-- -- /See:/ 'modifyHSM' smart constructor. data ModifyHSM = ModifyHSM'     { _mhIAMRoleARN :: !(Maybe Text)@@ -65,17 +69,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mhIAMRoleARN'+-- * 'mhIAMRoleARN' - The new IAM role ARN. ----- * 'mhSubnetId'+-- * 'mhSubnetId' - 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. ----- * 'mhSyslogIP'+-- * 'mhSyslogIP' - The new IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server. ----- * 'mhExternalId'+-- * 'mhExternalId' - The new external ID. ----- * 'mhEniIP'+-- * 'mhEniIP' - 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. ----- * 'mhHSMARN'+-- * 'mhHSMARN' - The ARN of the HSM to modify. modifyHSM     :: Text -- ^ 'mhHSMARN'     -> ModifyHSM@@ -105,9 +109,7 @@ mhExternalId :: Lens' ModifyHSM (Maybe Text) mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a}); --- | The new IP address for the elastic network interface (ENI) attached to the HSM.------ 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.+-- | 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}); @@ -154,8 +156,10 @@ instance ToQuery ModifyHSM where         toQuery = const mempty --- | Contains the output of the < ModifyHsm> operation.+-- | Contains the output of the 'ModifyHsm' operation. --+--+-- -- /See:/ 'modifyHSMResponse' smart constructor. data ModifyHSMResponse = ModifyHSMResponse'     { _mhsmrsHSMARN         :: !(Maybe Text)@@ -166,9 +170,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mhsmrsHSMARN'+-- * 'mhsmrsHSMARN' - The ARN of the HSM. ----- * 'mhsmrsResponseStatus'+-- * 'mhsmrsResponseStatus' - -- | The response status code. modifyHSMResponse     :: Int -- ^ 'mhsmrsResponseStatus'     -> ModifyHSMResponse@@ -182,7 +186,7 @@ mhsmrsHSMARN :: Lens' ModifyHSMResponse (Maybe Text) mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a}); --- | The response status code.+-- | -- | The response status code. mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Modifies the certificate used by the client. ----- This action can potentially start a workflow to install the new certificate on the client\'s HSMs.+--+-- This action can potentially start a workflow to install the new certificate on the client's HSMs.+-- module Network.AWS.CloudHSM.ModifyLunaClient     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mlcClientARN'+-- * 'mlcClientARN' - The ARN of the client. ----- * 'mlcCertificate'+-- * 'mlcCertificate' - The new certificate for the client. modifyLunaClient     :: Text -- ^ 'mlcClientARN'     -> Text -- ^ 'mlcCertificate'@@ -122,9 +124,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mlcrsClientARN'+-- * 'mlcrsClientARN' - The ARN of the client. ----- * 'mlcrsResponseStatus'+-- * 'mlcrsResponseStatus' - -- | The response status code. modifyLunaClientResponse     :: Int -- ^ 'mlcrsResponseStatus'     -> ModifyLunaClientResponse@@ -138,7 +140,7 @@ mlcrsClientARN :: Lens' ModifyLunaClientResponse (Maybe Text) mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a}); --- | The response status code.+-- | -- | The response status code. mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Removes one or more tags from the specified AWS CloudHSM resource. ----- To remove a tag, specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use < AddTagsToResource>.+--+-- To remove a tag, specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use 'AddTagsToResource' .+-- module Network.AWS.CloudHSM.RemoveTagsFromResource     (     -- * Creating a Request@@ -55,9 +57,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtfrResourceARN'+-- * 'rtfrResourceARN' - The Amazon Resource Name (ARN) of the AWS CloudHSM resource. ----- * 'rtfrTagKeyList'+-- * 'rtfrTagKeyList' - 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' . removeTagsFromResource     :: Text -- ^ 'rtfrResourceARN'     -> RemoveTagsFromResource@@ -71,9 +73,7 @@ rtfrResourceARN :: Lens' RemoveTagsFromResource Text 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>.+-- | 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; @@ -124,9 +124,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtfrrsResponseStatus'+-- * 'rtfrrsResponseStatus' - -- | The response status code. ----- * 'rtfrrsStatus'+-- * 'rtfrrsStatus' - The status of the operation. removeTagsFromResourceResponse     :: Int -- ^ 'rtfrrsResponseStatus'     -> Text -- ^ 'rtfrrsStatus'@@ -137,7 +137,7 @@     , _rtfrrsStatus = pStatus_     } --- | The response status code.+-- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}); 

@@ -45,7 +45,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2014-05-30' of the Amazon CloudHSM SDK configuration.+-- | API version @2014-05-30@ of the Amazon CloudHSM SDK configuration. cloudHSM :: Service cloudHSM =     Service@@ -80,14 +80,20 @@       | otherwise = Nothing  -- | Indicates that one or more of the request parameters are not valid.+--+-- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRequestException = _ServiceError . hasCode "InvalidRequestException"  -- | Indicates that an exception occurred in the AWS CloudHSM service.+--+-- _CloudHSMServiceException :: AsError a => Getting (First ServiceError) a ServiceError _CloudHSMServiceException = _ServiceError . hasCode "CloudHsmServiceException"  -- | Indicates that an internal error occurred.+--+-- _CloudHSMInternalException :: AsError a => Getting (First ServiceError) a ServiceError _CloudHSMInternalException =     _ServiceError . hasCode "CloudHsmInternalException"

@@ -23,6 +23,8 @@  -- | A key-value pair that identifies or specifies metadata about an AWS CloudHSM resource. --+--+-- -- /See:/ 'tag' smart constructor. data Tag = Tag'     { _tagKey   :: !Text@@ -33,9 +35,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tagKey'+-- * 'tagKey' - The key of the tag. ----- * 'tagValue'+-- * 'tagValue' - The value of the tag. tag     :: Text -- ^ 'tagKey'     -> Text -- ^ 'tagValue'

@@ -117,8 +117,9 @@  -- | Specifies the type of subscription for the HSM. ----- -   __PRODUCTION__ - The HSM is being used in a production environment.--- -   __TRIAL__ - The HSM is being used in a product trial.+--+--     * __PRODUCTION__ - The HSM is being used in a production environment.    * __TRIAL__ - The HSM is being used in a product trial.+-- data SubscriptionType =     Production     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)