amazonka-cloudhsmv2 1.5.0 → 1.6.0

raw patch · 21 files changed

+242/−212 lines, 21 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudhsmv2.cabal +5/−5
• gen/Network/AWS/CloudHSMv2.hs +4/−4
• gen/Network/AWS/CloudHSMv2/CreateCluster.hs +11/−11
• gen/Network/AWS/CloudHSMv2/CreateHSM.hs +11/−11
• gen/Network/AWS/CloudHSMv2/DeleteCluster.hs +5/−5
• gen/Network/AWS/CloudHSMv2/DeleteHSM.hs +13/−13
• gen/Network/AWS/CloudHSMv2/DescribeBackups.hs +22/−12
• gen/Network/AWS/CloudHSMv2/DescribeClusters.hs +22/−12
• gen/Network/AWS/CloudHSMv2/InitializeCluster.hs +15/−15
• gen/Network/AWS/CloudHSMv2/ListTags.hs +29/−20
• gen/Network/AWS/CloudHSMv2/TagResource.hs +8/−9
• gen/Network/AWS/CloudHSMv2/Types.hs +18/−16
• gen/Network/AWS/CloudHSMv2/Types/Product.hs +67/−67
• gen/Network/AWS/CloudHSMv2/Types/Sum.hs +1/−1
• gen/Network/AWS/CloudHSMv2/UntagResource.hs +5/−5
• gen/Network/AWS/CloudHSMv2/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/CloudHSMv2.hs +1/−1
• test/Test/AWS/CloudHSMv2/Internal.hs +1/−1
• test/Test/AWS/Gen/CloudHSMv2.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudhsmv2-version:               1.5.0+version:               1.6.0 synopsis:              Amazon CloudHSM V2 SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -63,7 +63,7 @@         , Network.AWS.CloudHSMv2.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudhsmv2-test@@ -83,8 +83,8 @@         , Test.AWS.CloudHSMv2.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-cloudhsmv2         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2--- 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@@ -43,7 +43,7 @@     -- * Operations     -- $operations -    -- ** DescribeClusters+    -- ** DescribeClusters (Paginated)     , module Network.AWS.CloudHSMv2.DescribeClusters      -- ** InitializeCluster@@ -52,7 +52,7 @@     -- ** CreateHSM     , module Network.AWS.CloudHSMv2.CreateHSM -    -- ** DescribeBackups+    -- ** DescribeBackups (Paginated)     , module Network.AWS.CloudHSMv2.DescribeBackups      -- ** DeleteCluster@@ -67,7 +67,7 @@     -- ** TagResource     , module Network.AWS.CloudHSMv2.TagResource -    -- ** ListTags+    -- ** ListTags (Paginated)     , module Network.AWS.CloudHSMv2.ListTags      -- ** UntagResource

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.CreateCluster--- 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,23 +69,23 @@     -> CreateCluster createCluster pSubnetIds_ pHSMType_ =   CreateCluster'-  { _ccSourceBackupId = Nothing-  , _ccSubnetIds = _List1 # pSubnetIds_-  , _ccHSMType = pHSMType_-  }+    { _ccSourceBackupId = Nothing+    , _ccSubnetIds = _List1 # pSubnetIds_+    , _ccHSMType = pHSMType_+    }   -- | The identifier (ID) of the cluster backup to restore. Use this value to restore the cluster from a backup instead of creating a new cluster. To find the backup ID, use 'DescribeBackups' . ccSourceBackupId :: Lens' CreateCluster (Maybe Text)-ccSourceBackupId = lens _ccSourceBackupId (\ s a -> s{_ccSourceBackupId = a});+ccSourceBackupId = lens _ccSourceBackupId (\ s a -> s{_ccSourceBackupId = a})  -- | The identifiers (IDs) of the subnets where you are creating the cluster. You must specify at least one subnet. If you specify multiple subnets, they must meet the following criteria:     * All subnets must be in the same virtual private cloud (VPC).     * You can specify only one subnet per Availability Zone. ccSubnetIds :: Lens' CreateCluster (NonEmpty Text)-ccSubnetIds = lens _ccSubnetIds (\ s a -> s{_ccSubnetIds = a}) . _List1;+ccSubnetIds = lens _ccSubnetIds (\ s a -> s{_ccSubnetIds = a}) . _List1  -- | The type of HSM to use in the cluster. Currently the only allowed value is @hsm1.medium@ . ccHSMType :: Lens' CreateCluster Text-ccHSMType = lens _ccHSMType (\ s a -> s{_ccHSMType = a});+ccHSMType = lens _ccHSMType (\ s a -> s{_ccHSMType = a})  instance AWSRequest CreateCluster where         type Rs CreateCluster = CreateClusterResponse@@ -142,15 +142,15 @@     -> CreateClusterResponse createClusterResponse pResponseStatus_ =   CreateClusterResponse'-  {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}+    {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}   -- | Information about the cluster that was created. ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a});+ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a})  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateClusterResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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@@ -69,23 +69,23 @@     -> CreateHSM createHSM pClusterId_ pAvailabilityZone_ =   CreateHSM'-  { _chIPAddress = Nothing-  , _chClusterId = pClusterId_-  , _chAvailabilityZone = pAvailabilityZone_-  }+    { _chIPAddress = Nothing+    , _chClusterId = pClusterId_+    , _chAvailabilityZone = pAvailabilityZone_+    }   -- | The HSM's IP address. If you specify an IP address, use an available address from the subnet that maps to the Availability Zone where you are creating the HSM. If you don't specify an IP address, one is chosen for you from that subnet. chIPAddress :: Lens' CreateHSM (Maybe Text)-chIPAddress = lens _chIPAddress (\ s a -> s{_chIPAddress = a});+chIPAddress = lens _chIPAddress (\ s a -> s{_chIPAddress = a})  -- | The identifier (ID) of the HSM's cluster. To find the cluster ID, use 'DescribeClusters' . chClusterId :: Lens' CreateHSM Text-chClusterId = lens _chClusterId (\ s a -> s{_chClusterId = a});+chClusterId = lens _chClusterId (\ s a -> s{_chClusterId = a})  -- | The Availability Zone where you are creating the HSM. To find the cluster's Availability Zones, use 'DescribeClusters' . chAvailabilityZone :: Lens' CreateHSM Text-chAvailabilityZone = lens _chAvailabilityZone (\ s a -> s{_chAvailabilityZone = a});+chAvailabilityZone = lens _chAvailabilityZone (\ s a -> s{_chAvailabilityZone = a})  instance AWSRequest CreateHSM where         type Rs CreateHSM = CreateHSMResponse@@ -142,15 +142,15 @@     -> CreateHSMResponse createHSMResponse pResponseStatus_ =   CreateHSMResponse'-  {_chrsHSM = Nothing, _chrsResponseStatus = pResponseStatus_}+    {_chrsHSM = Nothing, _chrsResponseStatus = pResponseStatus_}   -- | Information about the HSM that was created. chrsHSM :: Lens' CreateHSMResponse (Maybe HSM)-chrsHSM = lens _chrsHSM (\ s a -> s{_chrsHSM = a});+chrsHSM = lens _chrsHSM (\ s a -> s{_chrsHSM = 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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.DeleteCluster--- 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@@ -63,7 +63,7 @@  -- | The identifier (ID) of the cluster that you are deleting. To find the cluster ID, use 'DescribeClusters' . dcClusterId :: Lens' DeleteCluster Text-dcClusterId = lens _dcClusterId (\ s a -> s{_dcClusterId = a});+dcClusterId = lens _dcClusterId (\ s a -> s{_dcClusterId = a})  instance AWSRequest DeleteCluster where         type Rs DeleteCluster = DeleteClusterResponse@@ -117,15 +117,15 @@     -> DeleteClusterResponse deleteClusterResponse pResponseStatus_ =   DeleteClusterResponse'-  {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}   -- | Information about the cluster that was deleted. drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)-drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a});+drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteClusterResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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@@ -72,28 +72,28 @@     -> DeleteHSM deleteHSM pClusterId_ =   DeleteHSM'-  { _dhEniId = Nothing-  , _dhHSMId = Nothing-  , _dhEniIP = Nothing-  , _dhClusterId = pClusterId_-  }+    { _dhEniId = Nothing+    , _dhHSMId = Nothing+    , _dhEniIP = Nothing+    , _dhClusterId = pClusterId_+    }   -- | The identifier (ID) of the elastic network interface (ENI) of the HSM that you are deleting. dhEniId :: Lens' DeleteHSM (Maybe Text)-dhEniId = lens _dhEniId (\ s a -> s{_dhEniId = a});+dhEniId = lens _dhEniId (\ s a -> s{_dhEniId = a})  -- | The identifier (ID) of the HSM that you are deleting. dhHSMId :: Lens' DeleteHSM (Maybe Text)-dhHSMId = lens _dhHSMId (\ s a -> s{_dhHSMId = a});+dhHSMId = lens _dhHSMId (\ s a -> s{_dhHSMId = a})  -- | The IP address of the elastic network interface (ENI) of the HSM that you are deleting. dhEniIP :: Lens' DeleteHSM (Maybe Text)-dhEniIP = lens _dhEniIP (\ s a -> s{_dhEniIP = a});+dhEniIP = lens _dhEniIP (\ s a -> s{_dhEniIP = a})  -- | The identifier (ID) of the cluster that contains the HSM that you are deleting. dhClusterId :: Lens' DeleteHSM Text-dhClusterId = lens _dhClusterId (\ s a -> s{_dhClusterId = a});+dhClusterId = lens _dhClusterId (\ s a -> s{_dhClusterId = a})  instance AWSRequest DeleteHSM where         type Rs DeleteHSM = DeleteHSMResponse@@ -150,15 +150,15 @@     -> DeleteHSMResponse deleteHSMResponse pResponseStatus_ =   DeleteHSMResponse'-  {_dhrsHSMId = Nothing, _dhrsResponseStatus = pResponseStatus_}+    {_dhrsHSMId = Nothing, _dhrsResponseStatus = pResponseStatus_}   -- | The identifier (ID) of the HSM that was deleted. dhrsHSMId :: Lens' DeleteHSMResponse (Maybe Text)-dhrsHSMId = lens _dhrsHSMId (\ s a -> s{_dhrsHSMId = a});+dhrsHSMId = lens _dhrsHSMId (\ s a -> s{_dhrsHSMId = a})  -- | -- | The response status code. dhrsResponseStatus :: Lens' DeleteHSMResponse Int-dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a});+dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a})  instance NFData DeleteHSMResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.DescribeBackups--- 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@@ -23,6 +23,8 @@ -- -- This is a paginated operation, which means that each response might contain only a subset of all the backups. When the response contains only a subset of backups, it includes a @NextToken@ value. Use this value in a subsequent @DescribeBackups@ request to get more backups. When you receive a response with no @NextToken@ (or an empty or null value), that means there are no more backups to get. --+--+-- This operation returns paginated results. module Network.AWS.CloudHSMv2.DescribeBackups     (     -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.CloudHSMv2.Types import Network.AWS.CloudHSMv2.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -70,21 +73,28 @@     :: DescribeBackups describeBackups =   DescribeBackups'-  {_dbFilters = Nothing, _dbNextToken = Nothing, _dbMaxResults = Nothing}+    {_dbFilters = Nothing, _dbNextToken = Nothing, _dbMaxResults = Nothing}   -- | One or more filters to limit the items returned in the response. Use the @backupIds@ filter to return only the specified backups. Specify backups by their backup identifier (ID). Use the @clusterIds@ filter to return only the backups for the specified clusters. Specify clusters by their cluster identifier (ID). Use the @states@ filter to return only backups that match the specified state. dbFilters :: Lens' DescribeBackups (HashMap Text [Text])-dbFilters = lens _dbFilters (\ s a -> s{_dbFilters = a}) . _Default . _Map;+dbFilters = lens _dbFilters (\ s a -> s{_dbFilters = a}) . _Default . _Map  -- | The @NextToken@ value that you received in the previous response. Use this value to get more backups. dbNextToken :: Lens' DescribeBackups (Maybe Text)-dbNextToken = lens _dbNextToken (\ s a -> s{_dbNextToken = a});+dbNextToken = lens _dbNextToken (\ s a -> s{_dbNextToken = a})  -- | The maximum number of backups to return in the response. When there are more backups than the number you specify, the response contains a @NextToken@ value. dbMaxResults :: Lens' DescribeBackups (Maybe Natural)-dbMaxResults = lens _dbMaxResults (\ s a -> s{_dbMaxResults = a}) . mapping _Nat;+dbMaxResults = lens _dbMaxResults (\ s a -> s{_dbMaxResults = a}) . mapping _Nat +instance AWSPager DescribeBackups where+        page rq rs+          | stop (rs ^. dbrsNextToken) = Nothing+          | stop (rs ^. dbrsBackups) = Nothing+          | otherwise =+            Just $ rq & dbNextToken .~ rs ^. dbrsNextToken+ instance AWSRequest DescribeBackups where         type Rs DescribeBackups = DescribeBackupsResponse         request = postJSON cloudHSMv2@@ -144,22 +154,22 @@     -> DescribeBackupsResponse describeBackupsResponse pResponseStatus_ =   DescribeBackupsResponse'-  { _dbrsBackups = Nothing-  , _dbrsNextToken = Nothing-  , _dbrsResponseStatus = pResponseStatus_-  }+    { _dbrsBackups = Nothing+    , _dbrsNextToken = Nothing+    , _dbrsResponseStatus = pResponseStatus_+    }   -- | A list of backups. dbrsBackups :: Lens' DescribeBackupsResponse [Backup]-dbrsBackups = lens _dbrsBackups (\ s a -> s{_dbrsBackups = a}) . _Default . _Coerce;+dbrsBackups = lens _dbrsBackups (\ s a -> s{_dbrsBackups = a}) . _Default . _Coerce  -- | An opaque string that indicates that the response contains only a subset of backups. Use this value in a subsequent @DescribeBackups@ request to get more backups. dbrsNextToken :: Lens' DescribeBackupsResponse (Maybe Text)-dbrsNextToken = lens _dbrsNextToken (\ s a -> s{_dbrsNextToken = a});+dbrsNextToken = lens _dbrsNextToken (\ s a -> s{_dbrsNextToken = a})  -- | -- | The response status code. dbrsResponseStatus :: Lens' DescribeBackupsResponse Int-dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a});+dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a})  instance NFData DescribeBackupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.DescribeClusters--- 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@@ -23,6 +23,8 @@ -- -- This is a paginated operation, which means that each response might contain only a subset of all the clusters. When the response contains only a subset of clusters, it includes a @NextToken@ value. Use this value in a subsequent @DescribeClusters@ request to get more clusters. When you receive a response with no @NextToken@ (or an empty or null value), that means there are no more clusters to get. --+--+-- This operation returns paginated results. module Network.AWS.CloudHSMv2.DescribeClusters     (     -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.CloudHSMv2.Types import Network.AWS.CloudHSMv2.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -70,21 +73,28 @@     :: DescribeClusters describeClusters =   DescribeClusters'-  {_dcFilters = Nothing, _dcNextToken = Nothing, _dcMaxResults = Nothing}+    {_dcFilters = Nothing, _dcNextToken = Nothing, _dcMaxResults = Nothing}   -- | One or more filters to limit the items returned in the response. Use the @clusterIds@ filter to return only the specified clusters. Specify clusters by their cluster identifier (ID). Use the @vpcIds@ filter to return only the clusters in the specified virtual private clouds (VPCs). Specify VPCs by their VPC identifier (ID). Use the @states@ filter to return only clusters that match the specified state. dcFilters :: Lens' DescribeClusters (HashMap Text [Text])-dcFilters = lens _dcFilters (\ s a -> s{_dcFilters = a}) . _Default . _Map;+dcFilters = lens _dcFilters (\ s a -> s{_dcFilters = a}) . _Default . _Map  -- | The @NextToken@ value that you received in the previous response. Use this value to get more clusters. dcNextToken :: Lens' DescribeClusters (Maybe Text)-dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});+dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a})  -- | The maximum number of clusters to return in the response. When there are more clusters than the number you specify, the response contains a @NextToken@ value. dcMaxResults :: Lens' DescribeClusters (Maybe Natural)-dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a}) . mapping _Nat;+dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a}) . mapping _Nat +instance AWSPager DescribeClusters where+        page rq rs+          | stop (rs ^. dcrsNextToken) = Nothing+          | stop (rs ^. dcrsClusters) = Nothing+          | otherwise =+            Just $ rq & dcNextToken .~ rs ^. dcrsNextToken+ instance AWSRequest DescribeClusters where         type Rs DescribeClusters = DescribeClustersResponse         request = postJSON cloudHSMv2@@ -144,22 +154,22 @@     -> DescribeClustersResponse describeClustersResponse pResponseStatus_ =   DescribeClustersResponse'-  { _dcrsNextToken = Nothing-  , _dcrsClusters = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsNextToken = Nothing+    , _dcrsClusters = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | An opaque string that indicates that the response contains only a subset of clusters. Use this value in a subsequent @DescribeClusters@ request to get more clusters. dcrsNextToken :: Lens' DescribeClustersResponse (Maybe Text)-dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a});+dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a})  -- | A list of clusters. dcrsClusters :: Lens' DescribeClustersResponse [Cluster]-dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce;+dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeClustersResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeClustersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.InitializeCluster--- 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,23 +71,23 @@     -> InitializeCluster initializeCluster pClusterId_ pSignedCert_ pTrustAnchor_ =   InitializeCluster'-  { _icClusterId = pClusterId_-  , _icSignedCert = pSignedCert_-  , _icTrustAnchor = pTrustAnchor_-  }+    { _icClusterId = pClusterId_+    , _icSignedCert = pSignedCert_+    , _icTrustAnchor = pTrustAnchor_+    }   -- | The identifier (ID) of the cluster that you are claiming. To find the cluster ID, use 'DescribeClusters' . icClusterId :: Lens' InitializeCluster Text-icClusterId = lens _icClusterId (\ s a -> s{_icClusterId = a});+icClusterId = lens _icClusterId (\ s a -> s{_icClusterId = a})  -- | The cluster certificate issued (signed) by your issuing certificate authority (CA). The certificate must be in PEM format and can contain a maximum of 5000 characters. icSignedCert :: Lens' InitializeCluster Text-icSignedCert = lens _icSignedCert (\ s a -> s{_icSignedCert = a});+icSignedCert = lens _icSignedCert (\ s a -> s{_icSignedCert = a})  -- | The issuing certificate of the issuing certificate authority (CA) that issued (signed) the cluster certificate. This can be a root (self-signed) certificate or a certificate chain that begins with the certificate that issued the cluster certificate and ends with a root certificate. The certificate or certificate chain must be in PEM format and can contain a maximum of 5000 characters. icTrustAnchor :: Lens' InitializeCluster Text-icTrustAnchor = lens _icTrustAnchor (\ s a -> s{_icTrustAnchor = a});+icTrustAnchor = lens _icTrustAnchor (\ s a -> s{_icTrustAnchor = a})  instance AWSRequest InitializeCluster where         type Rs InitializeCluster = InitializeClusterResponse@@ -148,22 +148,22 @@     -> InitializeClusterResponse initializeClusterResponse pResponseStatus_ =   InitializeClusterResponse'-  { _icrsStateMessage = Nothing-  , _icrsState = Nothing-  , _icrsResponseStatus = pResponseStatus_-  }+    { _icrsStateMessage = Nothing+    , _icrsState = Nothing+    , _icrsResponseStatus = pResponseStatus_+    }   -- | A description of the cluster's state. icrsStateMessage :: Lens' InitializeClusterResponse (Maybe Text)-icrsStateMessage = lens _icrsStateMessage (\ s a -> s{_icrsStateMessage = a});+icrsStateMessage = lens _icrsStateMessage (\ s a -> s{_icrsStateMessage = a})  -- | The cluster's state. icrsState :: Lens' InitializeClusterResponse (Maybe ClusterState)-icrsState = lens _icrsState (\ s a -> s{_icrsState = a});+icrsState = lens _icrsState (\ s a -> s{_icrsState = a})  -- | -- | The response status code. icrsResponseStatus :: Lens' InitializeClusterResponse Int-icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a});+icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a})  instance NFData InitializeClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.ListTags--- 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@@ -23,6 +23,8 @@ -- -- This is a paginated operation, which means that each response might contain only a subset of all the tags. When the response contains only a subset of tags, it includes a @NextToken@ value. Use this value in a subsequent @ListTags@ request to get more tags. When you receive a response with no @NextToken@ (or an empty or null value), that means there are no more tags to get. --+--+-- This operation returns paginated results. module Network.AWS.CloudHSMv2.ListTags     (     -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.CloudHSMv2.Types import Network.AWS.CloudHSMv2.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -71,24 +74,31 @@     -> ListTags listTags pResourceId_ =   ListTags'-  { _ltNextToken = Nothing-  , _ltMaxResults = Nothing-  , _ltResourceId = pResourceId_-  }+    { _ltNextToken = Nothing+    , _ltMaxResults = Nothing+    , _ltResourceId = pResourceId_+    }   -- | The @NextToken@ value that you received in the previous response. Use this value to get more tags. ltNextToken :: Lens' ListTags (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})  -- | The maximum number of tags to return in the response. When there are more tags than the number you specify, the response contains a @NextToken@ value. ltMaxResults :: Lens' ListTags (Maybe Natural)-ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat;+ltMaxResults = lens _ltMaxResults (\ s a -> s{_ltMaxResults = a}) . mapping _Nat  -- | The cluster identifier (ID) for the cluster whose tags you are getting. To find the cluster ID, use 'DescribeClusters' . ltResourceId :: Lens' ListTags Text-ltResourceId = lens _ltResourceId (\ s a -> s{_ltResourceId = a});+ltResourceId = lens _ltResourceId (\ s a -> s{_ltResourceId = a}) +instance AWSPager ListTags where+        page rq rs+          | stop (rs ^. ltrsNextToken) = Nothing+          | stop (rs ^. ltrsTagList) = Nothing+          | otherwise =+            Just $ rq & ltNextToken .~ rs ^. ltrsNextToken+ instance AWSRequest ListTags where         type Rs ListTags = ListTagsResponse         request = postJSON cloudHSMv2@@ -97,7 +107,7 @@               (\ s h x ->                  ListTagsResponse' <$>                    (x .?> "NextToken") <*> (pure (fromEnum s)) <*>-                     (x .:> "TagList"))+                     (x .?> "TagList" .!@ mempty))  instance Hashable ListTags where @@ -130,7 +140,7 @@ data ListTagsResponse = ListTagsResponse'   { _ltrsNextToken      :: !(Maybe Text)   , _ltrsResponseStatus :: !Int-  , _ltrsTagList        :: !(List1 Tag)+  , _ltrsTagList        :: ![Tag]   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -145,26 +155,25 @@ -- * 'ltrsTagList' - A list of tags. listTagsResponse     :: Int -- ^ 'ltrsResponseStatus'-    -> NonEmpty Tag -- ^ 'ltrsTagList'     -> ListTagsResponse-listTagsResponse pResponseStatus_ pTagList_ =+listTagsResponse pResponseStatus_ =   ListTagsResponse'-  { _ltrsNextToken = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  , _ltrsTagList = _List1 # pTagList_-  }+    { _ltrsNextToken = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    , _ltrsTagList = mempty+    }   -- | An opaque string that indicates that the response contains only a subset of tags. Use this value in a subsequent @ListTags@ request to get more tags. ltrsNextToken :: Lens' ListTagsResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTagsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  -- | A list of tags.-ltrsTagList :: Lens' ListTagsResponse (NonEmpty Tag)-ltrsTagList = lens _ltrsTagList (\ s a -> s{_ltrsTagList = a}) . _List1;+ltrsTagList :: Lens' ListTagsResponse [Tag]+ltrsTagList = lens _ltrsTagList (\ s a -> s{_ltrsTagList = a}) . _Coerce  instance NFData ListTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.TagResource--- 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@@ -47,7 +47,7 @@ -- | /See:/ 'tagResource' smart constructor. data TagResource = TagResource'   { _trResourceId :: !Text-  , _trTagList    :: !(List1 Tag)+  , _trTagList    :: ![Tag]   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -60,19 +60,18 @@ -- * 'trTagList' - A list of one or more tags. tagResource     :: Text -- ^ 'trResourceId'-    -> NonEmpty Tag -- ^ 'trTagList'     -> TagResource-tagResource pResourceId_ pTagList_ =-  TagResource' {_trResourceId = pResourceId_, _trTagList = _List1 # pTagList_}+tagResource pResourceId_ =+  TagResource' {_trResourceId = pResourceId_, _trTagList = mempty}   -- | The cluster identifier (ID) for the cluster that you are tagging. To find the cluster ID, use 'DescribeClusters' . trResourceId :: Lens' TagResource Text-trResourceId = lens _trResourceId (\ s a -> s{_trResourceId = a});+trResourceId = lens _trResourceId (\ s a -> s{_trResourceId = a})  -- | A list of one or more tags.-trTagList :: Lens' TagResource (NonEmpty Tag)-trTagList = lens _trTagList (\ s a -> s{_trTagList = a}) . _List1;+trTagList :: Lens' TagResource [Tag]+trTagList = lens _trTagList (\ s a -> s{_trTagList = a}) . _Coerce  instance AWSRequest TagResource where         type Rs TagResource = TagResourceResponse@@ -128,6 +127,6 @@  -- | -- | The response status code. trrsResponseStatus :: Lens' TagResourceResponse Int-trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a})  instance NFData TagResourceResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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@@ -97,24 +97,24 @@ cloudHSMv2 :: Service cloudHSMv2 =   Service-  { _svcAbbrev = "CloudHSMv2"-  , _svcSigner = v4-  , _svcPrefix = "cloudhsmv2"-  , _svcVersion = "2017-04-28"-  , _svcEndpoint = defaultEndpoint cloudHSMv2-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "CloudHSMv2"-  , _svcRetry = retry-  }+    { _svcAbbrev = "CloudHSMv2"+    , _svcSigner = v4+    , _svcPrefix = "cloudhsmv2"+    , _svcVersion = "2017-04-28"+    , _svcEndpoint = defaultEndpoint cloudHSMv2+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "CloudHSMv2"+    , _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"@@ -123,6 +123,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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@@ -50,28 +50,28 @@     -> Backup backup pBackupId_ =   Backup'-  { _bClusterId = Nothing-  , _bCreateTimestamp = Nothing-  , _bBackupState = Nothing-  , _bBackupId = pBackupId_-  }+    { _bClusterId = Nothing+    , _bCreateTimestamp = Nothing+    , _bBackupState = Nothing+    , _bBackupId = pBackupId_+    }   -- | The identifier (ID) of the cluster that was backed up. bClusterId :: Lens' Backup (Maybe Text)-bClusterId = lens _bClusterId (\ s a -> s{_bClusterId = a});+bClusterId = lens _bClusterId (\ s a -> s{_bClusterId = a})  -- | The date and time when the backup was created. bCreateTimestamp :: Lens' Backup (Maybe UTCTime)-bCreateTimestamp = lens _bCreateTimestamp (\ s a -> s{_bCreateTimestamp = a}) . mapping _Time;+bCreateTimestamp = lens _bCreateTimestamp (\ s a -> s{_bCreateTimestamp = a}) . mapping _Time  -- | The state of the backup. bBackupState :: Lens' Backup (Maybe BackupState)-bBackupState = lens _bBackupState (\ s a -> s{_bBackupState = a});+bBackupState = lens _bBackupState (\ s a -> s{_bBackupState = a})  -- | The identifier (ID) of the backup. bBackupId :: Lens' Backup Text-bBackupId = lens _bBackupId (\ s a -> s{_bBackupId = a});+bBackupId = lens _bBackupId (\ s a -> s{_bBackupId = a})  instance FromJSON Backup where         parseJSON@@ -117,33 +117,33 @@     :: Certificates certificates =   Certificates'-  { _cManufacturerHardwareCertificate = Nothing-  , _cClusterCSR = Nothing-  , _cHSMCertificate = Nothing-  , _cClusterCertificate = Nothing-  , _cAWSHardwareCertificate = Nothing-  }+    { _cManufacturerHardwareCertificate = Nothing+    , _cClusterCSR = Nothing+    , _cHSMCertificate = Nothing+    , _cClusterCertificate = Nothing+    , _cAWSHardwareCertificate = Nothing+    }   -- | The HSM hardware certificate issued (signed) by the hardware manufacturer. cManufacturerHardwareCertificate :: Lens' Certificates (Maybe Text)-cManufacturerHardwareCertificate = lens _cManufacturerHardwareCertificate (\ s a -> s{_cManufacturerHardwareCertificate = a});+cManufacturerHardwareCertificate = lens _cManufacturerHardwareCertificate (\ s a -> s{_cManufacturerHardwareCertificate = a})  -- | The cluster's certificate signing request (CSR). The CSR exists only when the cluster's state is @UNINITIALIZED@ . cClusterCSR :: Lens' Certificates (Maybe Text)-cClusterCSR = lens _cClusterCSR (\ s a -> s{_cClusterCSR = a});+cClusterCSR = lens _cClusterCSR (\ s a -> s{_cClusterCSR = a})  -- | The HSM certificate issued (signed) by the HSM hardware. cHSMCertificate :: Lens' Certificates (Maybe Text)-cHSMCertificate = lens _cHSMCertificate (\ s a -> s{_cHSMCertificate = a});+cHSMCertificate = lens _cHSMCertificate (\ s a -> s{_cHSMCertificate = a})  -- | The cluster certificate issued (signed) by the issuing certificate authority (CA) of the cluster's owner. cClusterCertificate :: Lens' Certificates (Maybe Text)-cClusterCertificate = lens _cClusterCertificate (\ s a -> s{_cClusterCertificate = a});+cClusterCertificate = lens _cClusterCertificate (\ s a -> s{_cClusterCertificate = a})  -- | The HSM hardware certificate issued (signed) by AWS CloudHSM. cAWSHardwareCertificate :: Lens' Certificates (Maybe Text)-cAWSHardwareCertificate = lens _cAWSHardwareCertificate (\ s a -> s{_cAWSHardwareCertificate = a});+cAWSHardwareCertificate = lens _cAWSHardwareCertificate (\ s a -> s{_cAWSHardwareCertificate = a})  instance FromJSON Certificates where         parseJSON@@ -215,73 +215,73 @@     :: Cluster cluster =   Cluster'-  { _cPreCoPassword = Nothing-  , _cStateMessage = Nothing-  , _cState = Nothing-  , _cSubnetMapping = Nothing-  , _cHSMs = Nothing-  , _cVPCId = Nothing-  , _cSourceBackupId = Nothing-  , _cCertificates = Nothing-  , _cSecurityGroup = Nothing-  , _cClusterId = Nothing-  , _cCreateTimestamp = Nothing-  , _cBackupPolicy = Nothing-  , _cHSMType = Nothing-  }+    { _cPreCoPassword = Nothing+    , _cStateMessage = Nothing+    , _cState = Nothing+    , _cSubnetMapping = Nothing+    , _cHSMs = Nothing+    , _cVPCId = Nothing+    , _cSourceBackupId = Nothing+    , _cCertificates = Nothing+    , _cSecurityGroup = Nothing+    , _cClusterId = Nothing+    , _cCreateTimestamp = Nothing+    , _cBackupPolicy = Nothing+    , _cHSMType = Nothing+    }   -- | The default password for the cluster's Pre-Crypto Officer (PRECO) user. cPreCoPassword :: Lens' Cluster (Maybe Text)-cPreCoPassword = lens _cPreCoPassword (\ s a -> s{_cPreCoPassword = a});+cPreCoPassword = lens _cPreCoPassword (\ s a -> s{_cPreCoPassword = a})  -- | A description of the cluster's state. cStateMessage :: Lens' Cluster (Maybe Text)-cStateMessage = lens _cStateMessage (\ s a -> s{_cStateMessage = a});+cStateMessage = lens _cStateMessage (\ s a -> s{_cStateMessage = a})  -- | The cluster's state. cState :: Lens' Cluster (Maybe ClusterState)-cState = lens _cState (\ s a -> s{_cState = a});+cState = lens _cState (\ s a -> s{_cState = a})  -- | A map of the cluster's subnets and their corresponding Availability Zones. cSubnetMapping :: Lens' Cluster (HashMap Text Text)-cSubnetMapping = lens _cSubnetMapping (\ s a -> s{_cSubnetMapping = a}) . _Default . _Map;+cSubnetMapping = lens _cSubnetMapping (\ s a -> s{_cSubnetMapping = a}) . _Default . _Map  -- | Contains information about the HSMs in the cluster. cHSMs :: Lens' Cluster [HSM]-cHSMs = lens _cHSMs (\ s a -> s{_cHSMs = a}) . _Default . _Coerce;+cHSMs = lens _cHSMs (\ s a -> s{_cHSMs = a}) . _Default . _Coerce  -- | The identifier (ID) of the virtual private cloud (VPC) that contains the cluster. cVPCId :: Lens' Cluster (Maybe Text)-cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a});+cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a})  -- | The identifier (ID) of the backup used to create the cluster. This value exists only when the cluster was created from a backup. cSourceBackupId :: Lens' Cluster (Maybe Text)-cSourceBackupId = lens _cSourceBackupId (\ s a -> s{_cSourceBackupId = a});+cSourceBackupId = lens _cSourceBackupId (\ s a -> s{_cSourceBackupId = a})  -- | Contains one or more certificates or a certificate signing request (CSR). cCertificates :: Lens' Cluster (Maybe Certificates)-cCertificates = lens _cCertificates (\ s a -> s{_cCertificates = a});+cCertificates = lens _cCertificates (\ s a -> s{_cCertificates = a})  -- | The identifier (ID) of the cluster's security group. cSecurityGroup :: Lens' Cluster (Maybe Text)-cSecurityGroup = lens _cSecurityGroup (\ s a -> s{_cSecurityGroup = a});+cSecurityGroup = lens _cSecurityGroup (\ s a -> s{_cSecurityGroup = a})  -- | The cluster's identifier (ID). cClusterId :: Lens' Cluster (Maybe Text)-cClusterId = lens _cClusterId (\ s a -> s{_cClusterId = a});+cClusterId = lens _cClusterId (\ s a -> s{_cClusterId = a})  -- | The date and time when the cluster was created. cCreateTimestamp :: Lens' Cluster (Maybe UTCTime)-cCreateTimestamp = lens _cCreateTimestamp (\ s a -> s{_cCreateTimestamp = a}) . mapping _Time;+cCreateTimestamp = lens _cCreateTimestamp (\ s a -> s{_cCreateTimestamp = a}) . mapping _Time  -- | The cluster's backup policy. cBackupPolicy :: Lens' Cluster (Maybe BackupPolicy)-cBackupPolicy = lens _cBackupPolicy (\ s a -> s{_cBackupPolicy = a});+cBackupPolicy = lens _cBackupPolicy (\ s a -> s{_cBackupPolicy = a})  -- | The type of HSM that the cluster contains. cHSMType :: Lens' Cluster (Maybe Text)-cHSMType = lens _cHSMType (\ s a -> s{_cHSMType = a});+cHSMType = lens _cHSMType (\ s a -> s{_cHSMType = a})  instance FromJSON Cluster where         parseJSON@@ -346,48 +346,48 @@     -> HSM hsm pHSMId_ =   HSM'-  { _hsmStateMessage = Nothing-  , _hsmState = Nothing-  , _hsmEniId = Nothing-  , _hsmSubnetId = Nothing-  , _hsmAvailabilityZone = Nothing-  , _hsmClusterId = Nothing-  , _hsmEniIP = Nothing-  , _hsmHSMId = pHSMId_-  }+    { _hsmStateMessage = Nothing+    , _hsmState = Nothing+    , _hsmEniId = Nothing+    , _hsmSubnetId = Nothing+    , _hsmAvailabilityZone = Nothing+    , _hsmClusterId = Nothing+    , _hsmEniIP = Nothing+    , _hsmHSMId = pHSMId_+    }   -- | A description of the HSM's state. hsmStateMessage :: Lens' HSM (Maybe Text)-hsmStateMessage = lens _hsmStateMessage (\ s a -> s{_hsmStateMessage = a});+hsmStateMessage = lens _hsmStateMessage (\ s a -> s{_hsmStateMessage = a})  -- | The HSM's state. hsmState :: Lens' HSM (Maybe HSMState)-hsmState = lens _hsmState (\ s a -> s{_hsmState = a});+hsmState = lens _hsmState (\ s a -> s{_hsmState = a})  -- | The identifier (ID) of the HSM's elastic network interface (ENI). hsmEniId :: Lens' HSM (Maybe Text)-hsmEniId = lens _hsmEniId (\ s a -> s{_hsmEniId = a});+hsmEniId = lens _hsmEniId (\ s a -> s{_hsmEniId = a})  -- | The subnet that contains the HSM's elastic network interface (ENI). hsmSubnetId :: Lens' HSM (Maybe Text)-hsmSubnetId = lens _hsmSubnetId (\ s a -> s{_hsmSubnetId = a});+hsmSubnetId = lens _hsmSubnetId (\ s a -> s{_hsmSubnetId = a})  -- | The Availability Zone that contains the HSM. hsmAvailabilityZone :: Lens' HSM (Maybe Text)-hsmAvailabilityZone = lens _hsmAvailabilityZone (\ s a -> s{_hsmAvailabilityZone = a});+hsmAvailabilityZone = lens _hsmAvailabilityZone (\ s a -> s{_hsmAvailabilityZone = a})  -- | The identifier (ID) of the cluster that contains the HSM. hsmClusterId :: Lens' HSM (Maybe Text)-hsmClusterId = lens _hsmClusterId (\ s a -> s{_hsmClusterId = a});+hsmClusterId = lens _hsmClusterId (\ s a -> s{_hsmClusterId = a})  -- | The IP address of the HSM's elastic network interface (ENI). hsmEniIP :: Lens' HSM (Maybe Text)-hsmEniIP = lens _hsmEniIP (\ s a -> s{_hsmEniIP = a});+hsmEniIP = lens _hsmEniIP (\ s a -> s{_hsmEniIP = a})  -- | The HSM's identifier (ID). hsmHSMId :: Lens' HSM Text-hsmHSMId = lens _hsmHSMId (\ s a -> s{_hsmHSMId = a});+hsmHSMId = lens _hsmHSMId (\ s a -> s{_hsmHSMId = a})  instance FromJSON HSM where         parseJSON@@ -433,11 +433,11 @@  -- | The key of the tag. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  -- | The value of the tag. tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  instance FromJSON Tag where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.UntagResource--- 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@@ -64,16 +64,16 @@     -> UntagResource untagResource pResourceId_ pTagKeyList_ =   UntagResource'-  {_urResourceId = pResourceId_, _urTagKeyList = _List1 # pTagKeyList_}+    {_urResourceId = pResourceId_, _urTagKeyList = _List1 # pTagKeyList_}   -- | The cluster identifier (ID) for the cluster whose tags you are removing. To find the cluster ID, use 'DescribeClusters' . urResourceId :: Lens' UntagResource Text-urResourceId = lens _urResourceId (\ s a -> s{_urResourceId = a});+urResourceId = lens _urResourceId (\ s a -> s{_urResourceId = a})  -- | A list of one or more tag keys for the tags that you are removing. Specify only the tag keys, not the tag values. urTagKeyList :: Lens' UntagResource (NonEmpty Text)-urTagKeyList = lens _urTagKeyList (\ s a -> s{_urTagKeyList = a}) . _List1;+urTagKeyList = lens _urTagKeyList (\ s a -> s{_urTagKeyList = a}) . _List1  instance AWSRequest UntagResource where         type Rs UntagResource = UntagResourceResponse@@ -129,6 +129,6 @@  -- | -- | The response status code. urrsResponseStatus :: Lens' UntagResourceResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})  instance NFData UntagResourceResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.CloudHSMv2.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

@@ -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

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.CloudHSMv2--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.CloudHSMv2.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.CloudHSMv2--- 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