amazonka-cloudhsm 1.2.0.2 → 1.3.0

raw patch · 21 files changed

+385/−342 lines, 21 filesdep ~amazonka-cloudhsmdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudhsm.cabal +5/−5
• gen/Network/AWS/CloudHSM.hs +15/−15
• gen/Network/AWS/CloudHSM/CreateHAPG.hs +14/−14
• gen/Network/AWS/CloudHSM/CreateHSM.hs +14/−14
• gen/Network/AWS/CloudHSM/CreateLunaClient.hs +9/−9
• gen/Network/AWS/CloudHSM/DeleteHAPG.hs +19/−8
• gen/Network/AWS/CloudHSM/DeleteHSM.hs +19/−8
• gen/Network/AWS/CloudHSM/DeleteLunaClient.hs +19/−8
• gen/Network/AWS/CloudHSM/DescribeHAPG.hs +18/−18
• gen/Network/AWS/CloudHSM/DescribeHSM.hs +61/−51
• gen/Network/AWS/CloudHSM/DescribeLunaClient.hs +19/−19
• gen/Network/AWS/CloudHSM/GetConfig.hs +11/−11
• gen/Network/AWS/CloudHSM/ListAvailableZones.hs +9/−9
• gen/Network/AWS/CloudHSM/ListHAPGs.hs +10/−10
• gen/Network/AWS/CloudHSM/ListHSMs.hs +10/−10
• gen/Network/AWS/CloudHSM/ListLunaClients.hs +10/−10
• gen/Network/AWS/CloudHSM/ModifyHAPG.hs +9/−9
• gen/Network/AWS/CloudHSM/ModifyHSM.hs +9/−9
• gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +9/−9
• test/Test/AWS/Gen/CloudHSM.hs +95/−95

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudhsm-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CloudHSM SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -66,7 +66,7 @@         , Network.AWS.CloudHSM.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudhsm-test@@ -86,9 +86,9 @@         , Test.AWS.CloudHSM.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-cloudhsm == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-cloudhsm == 1.3.0.*         , base         , bytestring         , lens

@@ -37,33 +37,33 @@     -- * Operations     -- $operations -    -- ** ListHAPGs-    , module Network.AWS.CloudHSM.ListHAPGs--    -- ** ListHSMs-    , module Network.AWS.CloudHSM.ListHSMs-     -- ** DeleteHAPG     , module Network.AWS.CloudHSM.DeleteHAPG +    -- ** ListHAPGs+    , module Network.AWS.CloudHSM.ListHAPGs+     -- ** ModifyLunaClient     , module Network.AWS.CloudHSM.ModifyLunaClient +    -- ** ListHSMs+    , module Network.AWS.CloudHSM.ListHSMs+     -- ** DescribeLunaClient     , module Network.AWS.CloudHSM.DescribeLunaClient -    -- ** CreateHSM-    , module Network.AWS.CloudHSM.CreateHSM-     -- ** CreateHAPG     , module Network.AWS.CloudHSM.CreateHAPG -    -- ** CreateLunaClient-    , module Network.AWS.CloudHSM.CreateLunaClient+    -- ** CreateHSM+    , module Network.AWS.CloudHSM.CreateHSM      -- ** DescribeHAPG     , module Network.AWS.CloudHSM.DescribeHAPG +    -- ** CreateLunaClient+    , module Network.AWS.CloudHSM.CreateLunaClient+     -- ** ListLunaClients     , module Network.AWS.CloudHSM.ListLunaClients @@ -79,14 +79,14 @@     -- ** ModifyHAPG     , module Network.AWS.CloudHSM.ModifyHAPG -    -- ** ListAvailableZones-    , module Network.AWS.CloudHSM.ListAvailableZones+    -- ** DeleteLunaClient+    , module Network.AWS.CloudHSM.DeleteLunaClient      -- ** ModifyHSM     , module Network.AWS.CloudHSM.ModifyHSM -    -- ** DeleteLunaClient-    , module Network.AWS.CloudHSM.DeleteLunaClient+    -- ** ListAvailableZones+    , module Network.AWS.CloudHSM.ListAvailableZones      -- * Types 

@@ -35,8 +35,8 @@     , createHAPGResponse     , CreateHAPGResponse     -- * Response Lenses-    , chrsHAPGARN-    , chrsStatus+    , chapgrsHAPGARN+    , chapgrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -101,30 +101,30 @@ -- -- /See:/ 'createHAPGResponse' smart constructor. data CreateHAPGResponse = CreateHAPGResponse'-    { _chrsHAPGARN :: !(Maybe Text)-    , _chrsStatus  :: !Int+    { _chapgrsHAPGARN        :: !(Maybe Text)+    , _chapgrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateHAPGResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chrsHAPGARN'+-- * 'chapgrsHAPGARN' ----- * 'chrsStatus'+-- * 'chapgrsResponseStatus' createHAPGResponse-    :: Int -- ^ 'chrsStatus'+    :: Int -- ^ 'chapgrsResponseStatus'     -> CreateHAPGResponse-createHAPGResponse pStatus_ =+createHAPGResponse pResponseStatus_ =     CreateHAPGResponse'-    { _chrsHAPGARN = Nothing-    , _chrsStatus = pStatus_+    { _chapgrsHAPGARN = Nothing+    , _chapgrsResponseStatus = pResponseStatus_     }  -- | The ARN of the high-availability partition group.-chrsHAPGARN :: Lens' CreateHAPGResponse (Maybe Text)-chrsHAPGARN = lens _chrsHAPGARN (\ s a -> s{_chrsHAPGARN = a});+chapgrsHAPGARN :: Lens' CreateHAPGResponse (Maybe Text)+chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a});  -- | The response status code.-chrsStatus :: Lens' CreateHAPGResponse Int-chrsStatus = lens _chrsStatus (\ s a -> s{_chrsStatus = a});+chapgrsResponseStatus :: Lens' CreateHAPGResponse Int+chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a});

@@ -42,8 +42,8 @@     , createHSMResponse     , CreateHSMResponse     -- * Response Lenses-    , chsmrsHSMARN-    , chsmrsStatus+    , chrsHSMARN+    , chrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -178,30 +178,30 @@ -- -- /See:/ 'createHSMResponse' smart constructor. data CreateHSMResponse = CreateHSMResponse'-    { _chsmrsHSMARN :: !(Maybe Text)-    , _chsmrsStatus :: !Int+    { _chrsHSMARN         :: !(Maybe Text)+    , _chrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateHSMResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'chsmrsHSMARN'+-- * 'chrsHSMARN' ----- * 'chsmrsStatus'+-- * 'chrsResponseStatus' createHSMResponse-    :: Int -- ^ 'chsmrsStatus'+    :: Int -- ^ 'chrsResponseStatus'     -> CreateHSMResponse-createHSMResponse pStatus_ =+createHSMResponse pResponseStatus_ =     CreateHSMResponse'-    { _chsmrsHSMARN = Nothing-    , _chsmrsStatus = pStatus_+    { _chrsHSMARN = Nothing+    , _chrsResponseStatus = pResponseStatus_     }  -- | The ARN of the HSM.-chsmrsHSMARN :: Lens' CreateHSMResponse (Maybe Text)-chsmrsHSMARN = lens _chsmrsHSMARN (\ s a -> s{_chsmrsHSMARN = a});+chrsHSMARN :: Lens' CreateHSMResponse (Maybe Text)+chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a});  -- | The response status code.-chsmrsStatus :: Lens' CreateHSMResponse Int-chsmrsStatus = lens _chsmrsStatus (\ s a -> s{_chsmrsStatus = a});+chrsResponseStatus :: Lens' CreateHSMResponse Int+chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a});

@@ -35,7 +35,7 @@     , CreateLunaClientResponse     -- * Response Lenses     , clcrsClientARN-    , clcrsStatus+    , clcrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -113,8 +113,8 @@ -- -- /See:/ 'createLunaClientResponse' smart constructor. data CreateLunaClientResponse = CreateLunaClientResponse'-    { _clcrsClientARN :: !(Maybe Text)-    , _clcrsStatus    :: !Int+    { _clcrsClientARN      :: !(Maybe Text)+    , _clcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateLunaClientResponse' with the minimum fields required to make a request.@@ -123,14 +123,14 @@ -- -- * 'clcrsClientARN' ----- * 'clcrsStatus'+-- * 'clcrsResponseStatus' createLunaClientResponse-    :: Int -- ^ 'clcrsStatus'+    :: Int -- ^ 'clcrsResponseStatus'     -> CreateLunaClientResponse-createLunaClientResponse pStatus_ =+createLunaClientResponse pResponseStatus_ =     CreateLunaClientResponse'     { _clcrsClientARN = Nothing-    , _clcrsStatus = pStatus_+    , _clcrsResponseStatus = pResponseStatus_     }  -- | The ARN of the client.@@ -138,5 +138,5 @@ clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a});  -- | The response status code.-clcrsStatus :: Lens' CreateLunaClientResponse Int-clcrsStatus = lens _clcrsStatus (\ s a -> s{_clcrsStatus = a});+clcrsResponseStatus :: Lens' CreateLunaClientResponse Int+clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a});

@@ -33,6 +33,7 @@     , deleteHAPGResponse     , DeleteHAPGResponse     -- * Response Lenses+    , dhrsResponseStatus     , dhrsStatus     ) where @@ -70,9 +71,10 @@         type Rs DeleteHAPG = DeleteHAPGResponse         request = postJSON cloudHSM         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->-                 DeleteHAPGResponse' <$> (pure (fromEnum s)))+                 DeleteHAPGResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Status"))  instance ToHeaders DeleteHAPG where         toHeaders@@ -96,23 +98,32 @@ -- | Contains the output of the DeleteHapg action. -- -- /See:/ 'deleteHAPGResponse' smart constructor.-newtype DeleteHAPGResponse = DeleteHAPGResponse'-    { _dhrsStatus :: Int+data DeleteHAPGResponse = DeleteHAPGResponse'+    { _dhrsResponseStatus :: !Int+    , _dhrsStatus         :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteHAPGResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dhrsResponseStatus'+-- -- * 'dhrsStatus' deleteHAPGResponse-    :: Int -- ^ 'dhrsStatus'+    :: Int -- ^ 'dhrsResponseStatus'+    -> Text -- ^ 'dhrsStatus'     -> DeleteHAPGResponse-deleteHAPGResponse pStatus_ =+deleteHAPGResponse pResponseStatus_ pStatus_ =     DeleteHAPGResponse'-    { _dhrsStatus = pStatus_+    { _dhrsResponseStatus = pResponseStatus_+    , _dhrsStatus = pStatus_     }  -- | The response status code.-dhrsStatus :: Lens' DeleteHAPGResponse Int+dhrsResponseStatus :: Lens' DeleteHAPGResponse Int+dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a});++-- | The status of the action.+dhrsStatus :: Lens' DeleteHAPGResponse Text dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a});

@@ -34,6 +34,7 @@     , deleteHSMResponse     , DeleteHSMResponse     -- * Response Lenses+    , dhsmrsResponseStatus     , dhsmrsStatus     ) where @@ -71,9 +72,10 @@         type Rs DeleteHSM = DeleteHSMResponse         request = postJSON cloudHSM         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->-                 DeleteHSMResponse' <$> (pure (fromEnum s)))+                 DeleteHSMResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Status"))  instance ToHeaders DeleteHSM where         toHeaders@@ -97,23 +99,32 @@ -- | Contains the output of the DeleteHsm action. -- -- /See:/ 'deleteHSMResponse' smart constructor.-newtype DeleteHSMResponse = DeleteHSMResponse'-    { _dhsmrsStatus :: Int+data DeleteHSMResponse = DeleteHSMResponse'+    { _dhsmrsResponseStatus :: !Int+    , _dhsmrsStatus         :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteHSMResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dhsmrsResponseStatus'+-- -- * 'dhsmrsStatus' deleteHSMResponse-    :: Int -- ^ 'dhsmrsStatus'+    :: Int -- ^ 'dhsmrsResponseStatus'+    -> Text -- ^ 'dhsmrsStatus'     -> DeleteHSMResponse-deleteHSMResponse pStatus_ =+deleteHSMResponse pResponseStatus_ pStatus_ =     DeleteHSMResponse'-    { _dhsmrsStatus = pStatus_+    { _dhsmrsResponseStatus = pResponseStatus_+    , _dhsmrsStatus = pStatus_     }  -- | The response status code.-dhsmrsStatus :: Lens' DeleteHSMResponse Int+dhsmrsResponseStatus :: Lens' DeleteHSMResponse Int+dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a});++-- | The status of the action.+dhsmrsStatus :: Lens' DeleteHSMResponse Text dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a});

@@ -33,6 +33,7 @@     , deleteLunaClientResponse     , DeleteLunaClientResponse     -- * Response Lenses+    , dlcrsResponseStatus     , dlcrsStatus     ) where @@ -68,9 +69,10 @@         type Rs DeleteLunaClient = DeleteLunaClientResponse         request = postJSON cloudHSM         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->-                 DeleteLunaClientResponse' <$> (pure (fromEnum s)))+                 DeleteLunaClientResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "Status"))  instance ToHeaders DeleteLunaClient where         toHeaders@@ -94,23 +96,32 @@         toQuery = const mempty  -- | /See:/ 'deleteLunaClientResponse' smart constructor.-newtype DeleteLunaClientResponse = DeleteLunaClientResponse'-    { _dlcrsStatus :: Int+data DeleteLunaClientResponse = DeleteLunaClientResponse'+    { _dlcrsResponseStatus :: !Int+    , _dlcrsStatus         :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteLunaClientResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dlcrsResponseStatus'+-- -- * 'dlcrsStatus' deleteLunaClientResponse-    :: Int -- ^ 'dlcrsStatus'+    :: Int -- ^ 'dlcrsResponseStatus'+    -> Text -- ^ 'dlcrsStatus'     -> DeleteLunaClientResponse-deleteLunaClientResponse pStatus_ =+deleteLunaClientResponse pResponseStatus_ pStatus_ =     DeleteLunaClientResponse'-    { _dlcrsStatus = pStatus_+    { _dlcrsResponseStatus = pResponseStatus_+    , _dlcrsStatus = pStatus_     }  -- | The response status code.-dlcrsStatus :: Lens' DeleteLunaClientResponse Int+dlcrsResponseStatus :: Lens' DeleteLunaClientResponse Int+dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a});++-- | The status of the action.+dlcrsStatus :: Lens' DeleteLunaClientResponse Text dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a});

@@ -36,13 +36,13 @@     , dhapgrsState     , dhapgrsLastModifiedTimestamp     , dhapgrsHSMsPendingRegistration-    , dhapgrsHAPGSerial     , dhapgrsHSMsPendingDeletion+    , dhapgrsHAPGSerial     , dhapgrsHSMsLastActionFailed     , dhapgrsPartitionSerialList     , dhapgrsHAPGARN     , dhapgrsLabel-    , dhapgrsStatus+    , dhapgrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -84,8 +84,8 @@                  DescribeHAPGResponse' <$>                    (x .?> "State") <*> (x .?> "LastModifiedTimestamp")                      <*> (x .?> "HsmsPendingRegistration" .!@ mempty)-                     <*> (x .?> "HapgSerial")                      <*> (x .?> "HsmsPendingDeletion" .!@ mempty)+                     <*> (x .?> "HapgSerial")                      <*> (x .?> "HsmsLastActionFailed" .!@ mempty)                      <*> (x .?> "PartitionSerialList" .!@ mempty)                      <*> (x .?> "HapgArn")@@ -120,13 +120,13 @@     { _dhapgrsState                   :: !(Maybe CloudHSMObjectState)     , _dhapgrsLastModifiedTimestamp   :: !(Maybe Text)     , _dhapgrsHSMsPendingRegistration :: !(Maybe [Text])-    , _dhapgrsHAPGSerial              :: !(Maybe Text)     , _dhapgrsHSMsPendingDeletion     :: !(Maybe [Text])+    , _dhapgrsHAPGSerial              :: !(Maybe Text)     , _dhapgrsHSMsLastActionFailed    :: !(Maybe [Text])     , _dhapgrsPartitionSerialList     :: !(Maybe [Text])     , _dhapgrsHAPGARN                 :: !(Maybe Text)     , _dhapgrsLabel                   :: !(Maybe Text)-    , _dhapgrsStatus                  :: !Int+    , _dhapgrsResponseStatus          :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeHAPGResponse' with the minimum fields required to make a request.@@ -139,10 +139,10 @@ -- -- * 'dhapgrsHSMsPendingRegistration' ----- * 'dhapgrsHAPGSerial'--- -- * 'dhapgrsHSMsPendingDeletion' --+-- * 'dhapgrsHAPGSerial'+-- -- * 'dhapgrsHSMsLastActionFailed' -- -- * 'dhapgrsPartitionSerialList'@@ -151,22 +151,22 @@ -- -- * 'dhapgrsLabel' ----- * 'dhapgrsStatus'+-- * 'dhapgrsResponseStatus' describeHAPGResponse-    :: Int -- ^ 'dhapgrsStatus'+    :: Int -- ^ 'dhapgrsResponseStatus'     -> DescribeHAPGResponse-describeHAPGResponse pStatus_ =+describeHAPGResponse pResponseStatus_ =     DescribeHAPGResponse'     { _dhapgrsState = Nothing     , _dhapgrsLastModifiedTimestamp = Nothing     , _dhapgrsHSMsPendingRegistration = Nothing-    , _dhapgrsHAPGSerial = Nothing     , _dhapgrsHSMsPendingDeletion = Nothing+    , _dhapgrsHAPGSerial = Nothing     , _dhapgrsHSMsLastActionFailed = Nothing     , _dhapgrsPartitionSerialList = Nothing     , _dhapgrsHAPGARN = Nothing     , _dhapgrsLabel = Nothing-    , _dhapgrsStatus = pStatus_+    , _dhapgrsResponseStatus = pResponseStatus_     }  -- | The state of the high-availability partition group.@@ -182,14 +182,14 @@ dhapgrsHSMsPendingRegistration :: Lens' DescribeHAPGResponse [Text] dhapgrsHSMsPendingRegistration = lens _dhapgrsHSMsPendingRegistration (\ s a -> s{_dhapgrsHSMsPendingRegistration = a}) . _Default . _Coerce; --- | The serial number of the high-availability partition group.-dhapgrsHAPGSerial :: Lens' DescribeHAPGResponse (Maybe Text)-dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a});- -- | Undocumented member. dhapgrsHSMsPendingDeletion :: Lens' DescribeHAPGResponse [Text] dhapgrsHSMsPendingDeletion = lens _dhapgrsHSMsPendingDeletion (\ s a -> s{_dhapgrsHSMsPendingDeletion = a}) . _Default . _Coerce; +-- | The serial number of the high-availability partition group.+dhapgrsHAPGSerial :: Lens' DescribeHAPGResponse (Maybe Text)+dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a});+ -- | Undocumented member. dhapgrsHSMsLastActionFailed :: Lens' DescribeHAPGResponse [Text] dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce;@@ -208,5 +208,5 @@ dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a});  -- | The response status code.-dhapgrsStatus :: Lens' DescribeHAPGResponse Int-dhapgrsStatus = lens _dhapgrsStatus (\ s a -> s{_dhapgrsStatus = a});+dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int+dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a});

@@ -35,27 +35,28 @@     , describeHSMResponse     , DescribeHSMResponse     -- * Response Lenses+    , desrsStatus     , desrsIAMRoleARN     , desrsEniId-    , desrsSubscriptionEndDate     , desrsVPCId     , desrsSSHKeyLastUpdated+    , desrsSubscriptionEndDate     , desrsServerCertURI     , desrsSubscriptionType-    , desrsStatusDetails     , desrsSSHPublicKey     , desrsSubnetId+    , desrsStatusDetails     , desrsPartitions-    , desrsAvailabilityZone     , desrsSubscriptionStartDate+    , desrsAvailabilityZone     , desrsServerCertLastUpdated     , desrsSoftwareVersion-    , desrsSerialNumber     , desrsVendorName+    , desrsSerialNumber     , desrsHSMARN     , desrsEniIP     , desrsHSMType-    , desrsStatus+    , desrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -104,22 +105,23 @@           = receiveJSON               (\ s h x ->                  DescribeHSMResponse' <$>-                   (x .?> "IamRoleArn") <*> (x .?> "EniId") <*>-                     (x .?> "SubscriptionEndDate")+                   (x .?> "Status") <*> (x .?> "IamRoleArn") <*>+                     (x .?> "EniId")                      <*> (x .?> "VpcId")                      <*> (x .?> "SshKeyLastUpdated")+                     <*> (x .?> "SubscriptionEndDate")                      <*> (x .?> "ServerCertUri")                      <*> (x .?> "SubscriptionType")-                     <*> (x .?> "StatusDetails")                      <*> (x .?> "SshPublicKey")                      <*> (x .?> "SubnetId")+                     <*> (x .?> "StatusDetails")                      <*> (x .?> "Partitions" .!@ mempty)-                     <*> (x .?> "AvailabilityZone")                      <*> (x .?> "SubscriptionStartDate")+                     <*> (x .?> "AvailabilityZone")                      <*> (x .?> "ServerCertLastUpdated")                      <*> (x .?> "SoftwareVersion")-                     <*> (x .?> "SerialNumber")                      <*> (x .?> "VendorName")+                     <*> (x .?> "SerialNumber")                      <*> (x .?> "HsmArn")                      <*> (x .?> "EniIp")                      <*> (x .?> "HsmType")@@ -152,102 +154,110 @@ -- -- /See:/ 'describeHSMResponse' smart constructor. data DescribeHSMResponse = DescribeHSMResponse'-    { _desrsIAMRoleARN            :: !(Maybe Text)+    { _desrsStatus                :: !(Maybe HSMStatus)+    , _desrsIAMRoleARN            :: !(Maybe Text)     , _desrsEniId                 :: !(Maybe Text)-    , _desrsSubscriptionEndDate   :: !(Maybe Text)     , _desrsVPCId                 :: !(Maybe Text)     , _desrsSSHKeyLastUpdated     :: !(Maybe Text)+    , _desrsSubscriptionEndDate   :: !(Maybe Text)     , _desrsServerCertURI         :: !(Maybe Text)     , _desrsSubscriptionType      :: !(Maybe SubscriptionType)-    , _desrsStatusDetails         :: !(Maybe Text)     , _desrsSSHPublicKey          :: !(Maybe Text)     , _desrsSubnetId              :: !(Maybe Text)+    , _desrsStatusDetails         :: !(Maybe Text)     , _desrsPartitions            :: !(Maybe [Text])-    , _desrsAvailabilityZone      :: !(Maybe Text)     , _desrsSubscriptionStartDate :: !(Maybe Text)+    , _desrsAvailabilityZone      :: !(Maybe Text)     , _desrsServerCertLastUpdated :: !(Maybe Text)     , _desrsSoftwareVersion       :: !(Maybe Text)-    , _desrsSerialNumber          :: !(Maybe Text)     , _desrsVendorName            :: !(Maybe Text)+    , _desrsSerialNumber          :: !(Maybe Text)     , _desrsHSMARN                :: !(Maybe Text)     , _desrsEniIP                 :: !(Maybe Text)     , _desrsHSMType               :: !(Maybe Text)-    , _desrsStatus                :: !Int+    , _desrsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeHSMResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'desrsStatus'+-- -- * 'desrsIAMRoleARN' -- -- * 'desrsEniId' ----- * 'desrsSubscriptionEndDate'--- -- * 'desrsVPCId' -- -- * 'desrsSSHKeyLastUpdated' --+-- * 'desrsSubscriptionEndDate'+-- -- * 'desrsServerCertURI' -- -- * 'desrsSubscriptionType' ----- * 'desrsStatusDetails'--- -- * 'desrsSSHPublicKey' -- -- * 'desrsSubnetId' ----- * 'desrsPartitions'+-- * 'desrsStatusDetails' ----- * 'desrsAvailabilityZone'+-- * 'desrsPartitions' -- -- * 'desrsSubscriptionStartDate' --+-- * 'desrsAvailabilityZone'+-- -- * 'desrsServerCertLastUpdated' -- -- * 'desrsSoftwareVersion' ----- * 'desrsSerialNumber'--- -- * 'desrsVendorName' --+-- * 'desrsSerialNumber'+-- -- * 'desrsHSMARN' -- -- * 'desrsEniIP' -- -- * 'desrsHSMType' ----- * 'desrsStatus'+-- * 'desrsResponseStatus' describeHSMResponse-    :: Int -- ^ 'desrsStatus'+    :: Int -- ^ 'desrsResponseStatus'     -> DescribeHSMResponse-describeHSMResponse pStatus_ =+describeHSMResponse pResponseStatus_ =     DescribeHSMResponse'-    { _desrsIAMRoleARN = Nothing+    { _desrsStatus = Nothing+    , _desrsIAMRoleARN = Nothing     , _desrsEniId = Nothing-    , _desrsSubscriptionEndDate = Nothing     , _desrsVPCId = Nothing     , _desrsSSHKeyLastUpdated = Nothing+    , _desrsSubscriptionEndDate = Nothing     , _desrsServerCertURI = Nothing     , _desrsSubscriptionType = Nothing-    , _desrsStatusDetails = Nothing     , _desrsSSHPublicKey = Nothing     , _desrsSubnetId = Nothing+    , _desrsStatusDetails = Nothing     , _desrsPartitions = Nothing-    , _desrsAvailabilityZone = Nothing     , _desrsSubscriptionStartDate = Nothing+    , _desrsAvailabilityZone = Nothing     , _desrsServerCertLastUpdated = Nothing     , _desrsSoftwareVersion = Nothing-    , _desrsSerialNumber = Nothing     , _desrsVendorName = Nothing+    , _desrsSerialNumber = Nothing     , _desrsHSMARN = Nothing     , _desrsEniIP = Nothing     , _desrsHSMType = Nothing-    , _desrsStatus = pStatus_+    , _desrsResponseStatus = pResponseStatus_     } +-- | The status of the HSM.+desrsStatus :: Lens' DescribeHSMResponse (Maybe HSMStatus)+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+ -- | The ARN of the IAM role assigned to the HSM. desrsIAMRoleARN :: Lens' DescribeHSMResponse (Maybe Text) desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a});@@ -257,10 +267,6 @@ desrsEniId :: Lens' DescribeHSMResponse (Maybe Text) desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a}); --- | The subscription end date.-desrsSubscriptionEndDate :: Lens' DescribeHSMResponse (Maybe Text)-desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a});- -- | The identifier of the VPC that the HSM is in. desrsVPCId :: Lens' DescribeHSMResponse (Maybe Text) desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a});@@ -269,6 +275,10 @@ desrsSSHKeyLastUpdated :: Lens' DescribeHSMResponse (Maybe Text) desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a}); +-- | The subscription end date.+desrsSubscriptionEndDate :: Lens' DescribeHSMResponse (Maybe Text)+desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a});+ -- | The URI of the certificate server. desrsServerCertURI :: Lens' DescribeHSMResponse (Maybe Text) desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a});@@ -277,10 +287,6 @@ desrsSubscriptionType :: Lens' DescribeHSMResponse (Maybe SubscriptionType) desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a}); --- | Contains additional information about the status of the HSM.-desrsStatusDetails :: Lens' DescribeHSMResponse (Maybe Text)-desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a});- -- | The public SSH key. desrsSSHPublicKey :: Lens' DescribeHSMResponse (Maybe Text) desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a});@@ -289,18 +295,22 @@ desrsSubnetId :: Lens' DescribeHSMResponse (Maybe Text) desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a}); +-- | Contains additional information about the status of the HSM.+desrsStatusDetails :: Lens' DescribeHSMResponse (Maybe Text)+desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a});+ -- | The list of partitions on the HSM. desrsPartitions :: Lens' DescribeHSMResponse [Text] desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce; --- | The Availability Zone that the HSM is in.-desrsAvailabilityZone :: Lens' DescribeHSMResponse (Maybe Text)-desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a});- -- | The subscription start date. desrsSubscriptionStartDate :: Lens' DescribeHSMResponse (Maybe Text) desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a}); +-- | The Availability Zone that the HSM is in.+desrsAvailabilityZone :: Lens' DescribeHSMResponse (Maybe Text)+desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a});+ -- | The date and time the server certificate was last updated. desrsServerCertLastUpdated :: Lens' DescribeHSMResponse (Maybe Text) desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a});@@ -309,14 +319,14 @@ desrsSoftwareVersion :: Lens' DescribeHSMResponse (Maybe Text) desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a}); --- | The serial number of the HSM.-desrsSerialNumber :: Lens' DescribeHSMResponse (Maybe Text)-desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a});- -- | The name of the HSM vendor. desrsVendorName :: Lens' DescribeHSMResponse (Maybe Text) desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a}); +-- | The serial number of the HSM.+desrsSerialNumber :: Lens' DescribeHSMResponse (Maybe Text)+desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a});+ -- | The ARN of the HSM. desrsHSMARN :: Lens' DescribeHSMResponse (Maybe Text) desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a});@@ -330,5 +340,5 @@ desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a});  -- | The response status code.-desrsStatus :: Lens' DescribeHSMResponse Int-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+desrsResponseStatus :: Lens' DescribeHSMResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});

@@ -35,11 +35,11 @@     , DescribeLunaClientResponse     -- * Response Lenses     , drsClientARN-    , drsCertificateFingerprint     , drsLastModifiedTimestamp+    , drsCertificateFingerprint     , drsCertificate     , drsLabel-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -86,8 +86,8 @@               (\ s h x ->                  DescribeLunaClientResponse' <$>                    (x .?> "ClientArn") <*>-                     (x .?> "CertificateFingerprint")-                     <*> (x .?> "LastModifiedTimestamp")+                     (x .?> "LastModifiedTimestamp")+                     <*> (x .?> "CertificateFingerprint")                      <*> (x .?> "Certificate")                      <*> (x .?> "Label")                      <*> (pure (fromEnum s)))@@ -119,11 +119,11 @@ -- | /See:/ 'describeLunaClientResponse' smart constructor. data DescribeLunaClientResponse = DescribeLunaClientResponse'     { _drsClientARN              :: !(Maybe Text)-    , _drsCertificateFingerprint :: !(Maybe Text)     , _drsLastModifiedTimestamp  :: !(Maybe Text)+    , _drsCertificateFingerprint :: !(Maybe Text)     , _drsCertificate            :: !(Maybe Text)     , _drsLabel                  :: !(Maybe Text)-    , _drsStatus                 :: !Int+    , _drsResponseStatus         :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeLunaClientResponse' with the minimum fields required to make a request.@@ -132,40 +132,40 @@ -- -- * 'drsClientARN' ----- * 'drsCertificateFingerprint'--- -- * 'drsLastModifiedTimestamp' --+-- * 'drsCertificateFingerprint'+-- -- * 'drsCertificate' -- -- * 'drsLabel' ----- * 'drsStatus'+-- * 'drsResponseStatus' describeLunaClientResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DescribeLunaClientResponse-describeLunaClientResponse pStatus_ =+describeLunaClientResponse pResponseStatus_ =     DescribeLunaClientResponse'     { _drsClientARN = Nothing-    , _drsCertificateFingerprint = Nothing     , _drsLastModifiedTimestamp = Nothing+    , _drsCertificateFingerprint = Nothing     , _drsCertificate = Nothing     , _drsLabel = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | The ARN of the client. drsClientARN :: Lens' DescribeLunaClientResponse (Maybe Text) drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a}); --- | The certificate fingerprint.-drsCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)-drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a});- -- | The date and time the client was last modified. drsLastModifiedTimestamp :: Lens' DescribeLunaClientResponse (Maybe Text) drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a}); +-- | The certificate fingerprint.+drsCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)+drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a});+ -- | The certificate installed on the HSMs used by this client. drsCertificate :: Lens' DescribeLunaClientResponse (Maybe Text) drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a});@@ -175,5 +175,5 @@ drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a});  -- | The response status code.-drsStatus :: Lens' DescribeLunaClientResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DescribeLunaClientResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -39,7 +39,7 @@     , gcrsConfigFile     , gcrsConfigCred     , gcrsConfigType-    , gcrsStatus+    , gcrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -124,10 +124,10 @@  -- | /See:/ 'getConfigResponse' smart constructor. data GetConfigResponse = GetConfigResponse'-    { _gcrsConfigFile :: !(Maybe Text)-    , _gcrsConfigCred :: !(Maybe Text)-    , _gcrsConfigType :: !(Maybe Text)-    , _gcrsStatus     :: !Int+    { _gcrsConfigFile     :: !(Maybe Text)+    , _gcrsConfigCred     :: !(Maybe Text)+    , _gcrsConfigType     :: !(Maybe Text)+    , _gcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetConfigResponse' with the minimum fields required to make a request.@@ -140,16 +140,16 @@ -- -- * 'gcrsConfigType' ----- * 'gcrsStatus'+-- * 'gcrsResponseStatus' getConfigResponse-    :: Int -- ^ 'gcrsStatus'+    :: Int -- ^ 'gcrsResponseStatus'     -> GetConfigResponse-getConfigResponse pStatus_ =+getConfigResponse pResponseStatus_ =     GetConfigResponse'     { _gcrsConfigFile = Nothing     , _gcrsConfigCred = Nothing     , _gcrsConfigType = Nothing-    , _gcrsStatus = pStatus_+    , _gcrsResponseStatus = pResponseStatus_     }  -- | The chrystoki.conf configuration file.@@ -165,5 +165,5 @@ gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a});  -- | The response status code.-gcrsStatus :: Lens' GetConfigResponse Int-gcrsStatus = lens _gcrsStatus (\ s a -> s{_gcrsStatus = a});+gcrsResponseStatus :: Lens' GetConfigResponse Int+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});

@@ -32,7 +32,7 @@     , ListAvailableZonesResponse     -- * Response Lenses     , lazrsAZList-    , lazrsStatus+    , lazrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -85,8 +85,8 @@  -- | /See:/ 'listAvailableZonesResponse' smart constructor. data ListAvailableZonesResponse = ListAvailableZonesResponse'-    { _lazrsAZList :: !(Maybe [Text])-    , _lazrsStatus :: !Int+    { _lazrsAZList         :: !(Maybe [Text])+    , _lazrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListAvailableZonesResponse' with the minimum fields required to make a request.@@ -95,14 +95,14 @@ -- -- * 'lazrsAZList' ----- * 'lazrsStatus'+-- * 'lazrsResponseStatus' listAvailableZonesResponse-    :: Int -- ^ 'lazrsStatus'+    :: Int -- ^ 'lazrsResponseStatus'     -> ListAvailableZonesResponse-listAvailableZonesResponse pStatus_ =+listAvailableZonesResponse pResponseStatus_ =     ListAvailableZonesResponse'     { _lazrsAZList = Nothing-    , _lazrsStatus = pStatus_+    , _lazrsResponseStatus = pResponseStatus_     }  -- | The list of Availability Zones that have available AWS CloudHSM@@ -111,5 +111,5 @@ lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce;  -- | The response status code.-lazrsStatus :: Lens' ListAvailableZonesResponse Int-lazrsStatus = lens _lazrsStatus (\ s a -> s{_lazrsStatus = a});+lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int+lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a});

@@ -39,7 +39,7 @@     , ListHAPGsResponse     -- * Response Lenses     , lhrsNextToken-    , lhrsStatus+    , lhrsResponseStatus     , lhrsHAPGList     ) where @@ -103,9 +103,9 @@  -- | /See:/ 'listHAPGsResponse' smart constructor. data ListHAPGsResponse = ListHAPGsResponse'-    { _lhrsNextToken :: !(Maybe Text)-    , _lhrsStatus    :: !Int-    , _lhrsHAPGList  :: ![Text]+    { _lhrsNextToken      :: !(Maybe Text)+    , _lhrsResponseStatus :: !Int+    , _lhrsHAPGList       :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHAPGsResponse' with the minimum fields required to make a request.@@ -114,16 +114,16 @@ -- -- * 'lhrsNextToken' ----- * 'lhrsStatus'+-- * 'lhrsResponseStatus' -- -- * 'lhrsHAPGList' listHAPGsResponse-    :: Int -- ^ 'lhrsStatus'+    :: Int -- ^ 'lhrsResponseStatus'     -> ListHAPGsResponse-listHAPGsResponse pStatus_ =+listHAPGsResponse pResponseStatus_ =     ListHAPGsResponse'     { _lhrsNextToken = Nothing-    , _lhrsStatus = pStatus_+    , _lhrsResponseStatus = pResponseStatus_     , _lhrsHAPGList = mempty     } @@ -133,8 +133,8 @@ lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a});  -- | The response status code.-lhrsStatus :: Lens' ListHAPGsResponse Int-lhrsStatus = lens _lhrsStatus (\ s a -> s{_lhrsStatus = a});+lhrsResponseStatus :: Lens' ListHAPGsResponse Int+lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a});  -- | The list of high-availability partition groups. lhrsHAPGList :: Lens' ListHAPGsResponse [Text]

@@ -41,7 +41,7 @@     -- * Response Lenses     , lhsmrsNextToken     , lhsmrsHSMList-    , lhsmrsStatus+    , lhsmrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -106,9 +106,9 @@ -- -- /See:/ 'listHSMsResponse' smart constructor. data ListHSMsResponse = ListHSMsResponse'-    { _lhsmrsNextToken :: !(Maybe Text)-    , _lhsmrsHSMList   :: !(Maybe [Text])-    , _lhsmrsStatus    :: !Int+    { _lhsmrsNextToken      :: !(Maybe Text)+    , _lhsmrsHSMList        :: !(Maybe [Text])+    , _lhsmrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListHSMsResponse' with the minimum fields required to make a request.@@ -119,15 +119,15 @@ -- -- * 'lhsmrsHSMList' ----- * 'lhsmrsStatus'+-- * 'lhsmrsResponseStatus' listHSMsResponse-    :: Int -- ^ 'lhsmrsStatus'+    :: Int -- ^ 'lhsmrsResponseStatus'     -> ListHSMsResponse-listHSMsResponse pStatus_ =+listHSMsResponse pResponseStatus_ =     ListHSMsResponse'     { _lhsmrsNextToken = Nothing     , _lhsmrsHSMList = Nothing-    , _lhsmrsStatus = pStatus_+    , _lhsmrsResponseStatus = pResponseStatus_     }  -- | If not null, more results are available. Pass this value to ListHsms to@@ -140,5 +140,5 @@ lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce;  -- | The response status code.-lhsmrsStatus :: Lens' ListHSMsResponse Int-lhsmrsStatus = lens _lhsmrsStatus (\ s a -> s{_lhsmrsStatus = a});+lhsmrsResponseStatus :: Lens' ListHSMsResponse Int+lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a});

@@ -39,7 +39,7 @@     , ListLunaClientsResponse     -- * Response Lenses     , llcrsNextToken-    , llcrsStatus+    , llcrsResponseStatus     , llcrsClientList     ) where @@ -104,9 +104,9 @@  -- | /See:/ 'listLunaClientsResponse' smart constructor. data ListLunaClientsResponse = ListLunaClientsResponse'-    { _llcrsNextToken  :: !(Maybe Text)-    , _llcrsStatus     :: !Int-    , _llcrsClientList :: ![Text]+    { _llcrsNextToken      :: !(Maybe Text)+    , _llcrsResponseStatus :: !Int+    , _llcrsClientList     :: ![Text]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListLunaClientsResponse' with the minimum fields required to make a request.@@ -115,16 +115,16 @@ -- -- * 'llcrsNextToken' ----- * 'llcrsStatus'+-- * 'llcrsResponseStatus' -- -- * 'llcrsClientList' listLunaClientsResponse-    :: Int -- ^ 'llcrsStatus'+    :: Int -- ^ 'llcrsResponseStatus'     -> ListLunaClientsResponse-listLunaClientsResponse pStatus_ =+listLunaClientsResponse pResponseStatus_ =     ListLunaClientsResponse'     { _llcrsNextToken = Nothing-    , _llcrsStatus = pStatus_+    , _llcrsResponseStatus = pResponseStatus_     , _llcrsClientList = mempty     } @@ -134,8 +134,8 @@ llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a});  -- | The response status code.-llcrsStatus :: Lens' ListLunaClientsResponse Int-llcrsStatus = lens _llcrsStatus (\ s a -> s{_llcrsStatus = a});+llcrsResponseStatus :: Lens' ListLunaClientsResponse Int+llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a});  -- | The list of clients. llcrsClientList :: Lens' ListLunaClientsResponse [Text]

@@ -36,7 +36,7 @@     , ModifyHAPGResponse     -- * Response Lenses     , mhrsHAPGARN-    , mhrsStatus+    , mhrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -119,8 +119,8 @@  -- | /See:/ 'modifyHAPGResponse' smart constructor. data ModifyHAPGResponse = ModifyHAPGResponse'-    { _mhrsHAPGARN :: !(Maybe Text)-    , _mhrsStatus  :: !Int+    { _mhrsHAPGARN        :: !(Maybe Text)+    , _mhrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyHAPGResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'mhrsHAPGARN' ----- * 'mhrsStatus'+-- * 'mhrsResponseStatus' modifyHAPGResponse-    :: Int -- ^ 'mhrsStatus'+    :: Int -- ^ 'mhrsResponseStatus'     -> ModifyHAPGResponse-modifyHAPGResponse pStatus_ =+modifyHAPGResponse pResponseStatus_ =     ModifyHAPGResponse'     { _mhrsHAPGARN = Nothing-    , _mhrsStatus = pStatus_+    , _mhrsResponseStatus = pResponseStatus_     }  -- | The ARN of the high-availability partition group.@@ -144,5 +144,5 @@ mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a});  -- | The response status code.-mhrsStatus :: Lens' ModifyHAPGResponse Int-mhrsStatus = lens _mhrsStatus (\ s a -> s{_mhrsStatus = a});+mhrsResponseStatus :: Lens' ModifyHAPGResponse Int+mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});

@@ -39,7 +39,7 @@     , ModifyHSMResponse     -- * Response Lenses     , mhsmrsHSMARN-    , mhsmrsStatus+    , mhsmrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -152,8 +152,8 @@ -- -- /See:/ 'modifyHSMResponse' smart constructor. data ModifyHSMResponse = ModifyHSMResponse'-    { _mhsmrsHSMARN :: !(Maybe Text)-    , _mhsmrsStatus :: !Int+    { _mhsmrsHSMARN         :: !(Maybe Text)+    , _mhsmrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyHSMResponse' with the minimum fields required to make a request.@@ -162,14 +162,14 @@ -- -- * 'mhsmrsHSMARN' ----- * 'mhsmrsStatus'+-- * 'mhsmrsResponseStatus' modifyHSMResponse-    :: Int -- ^ 'mhsmrsStatus'+    :: Int -- ^ 'mhsmrsResponseStatus'     -> ModifyHSMResponse-modifyHSMResponse pStatus_ =+modifyHSMResponse pResponseStatus_ =     ModifyHSMResponse'     { _mhsmrsHSMARN = Nothing-    , _mhsmrsStatus = pStatus_+    , _mhsmrsResponseStatus = pResponseStatus_     }  -- | The ARN of the HSM.@@ -177,5 +177,5 @@ mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a});  -- | The response status code.-mhsmrsStatus :: Lens' ModifyHSMResponse Int-mhsmrsStatus = lens _mhsmrsStatus (\ s a -> s{_mhsmrsStatus = a});+mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int+mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a});

@@ -38,7 +38,7 @@     , ModifyLunaClientResponse     -- * Response Lenses     , mlcrsClientARN-    , mlcrsStatus+    , mlcrsResponseStatus     ) where  import           Network.AWS.CloudHSM.Types@@ -112,8 +112,8 @@  -- | /See:/ 'modifyLunaClientResponse' smart constructor. data ModifyLunaClientResponse = ModifyLunaClientResponse'-    { _mlcrsClientARN :: !(Maybe Text)-    , _mlcrsStatus    :: !Int+    { _mlcrsClientARN      :: !(Maybe Text)+    , _mlcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyLunaClientResponse' with the minimum fields required to make a request.@@ -122,14 +122,14 @@ -- -- * 'mlcrsClientARN' ----- * 'mlcrsStatus'+-- * 'mlcrsResponseStatus' modifyLunaClientResponse-    :: Int -- ^ 'mlcrsStatus'+    :: Int -- ^ 'mlcrsResponseStatus'     -> ModifyLunaClientResponse-modifyLunaClientResponse pStatus_ =+modifyLunaClientResponse pResponseStatus_ =     ModifyLunaClientResponse'     { _mlcrsClientARN = Nothing-    , _mlcrsStatus = pStatus_+    , _mlcrsResponseStatus = pResponseStatus_     }  -- | The ARN of the client.@@ -137,5 +137,5 @@ mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a});  -- | The response status code.-mlcrsStatus :: Lens' ModifyLunaClientResponse Int-mlcrsStatus = lens _mlcrsStatus (\ s a -> s{_mlcrsStatus = a});+mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int+mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a});

@@ -28,33 +28,33 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testListHAPGs $---             listHAPGs------         , testListHSMs $---             listHSMs------         , testDeleteHAPG $+--         [ testDeleteHAPG $ --             deleteHAPG --+--         , testListHAPGs $+--             listHAPGs+-- --         , testModifyLunaClient $ --             modifyLunaClient --+--         , testListHSMs $+--             listHSMs+-- --         , testDescribeLunaClient $ --             describeLunaClient -----         , testCreateHSM $---             createHSM--- --         , testCreateHAPG $ --             createHAPG -----         , testCreateLunaClient $---             createLunaClient+--         , testCreateHSM $+--             createHSM -- --         , testDescribeHAPG $ --             describeHAPG --+--         , testCreateLunaClient $+--             createLunaClient+-- --         , testListLunaClients $ --             listLunaClients --@@ -70,45 +70,45 @@ --         , testModifyHAPG $ --             modifyHAPG -----         , testListAvailableZones $---             listAvailableZones+--         , testDeleteLunaClient $+--             deleteLunaClient -- --         , testModifyHSM $ --             modifyHSM -----         , testDeleteLunaClient $---             deleteLunaClient+--         , testListAvailableZones $+--             listAvailableZones -- --           ]  --     , testGroup "response"---         [ testListHAPGsResponse $---             listHAPGsResponse------         , testListHSMsResponse $---             listHSMsResponse------         , testDeleteHAPGResponse $+--         [ testDeleteHAPGResponse $ --             deleteHAPGResponse --+--         , testListHAPGsResponse $+--             listHAPGsResponse+-- --         , testModifyLunaClientResponse $ --             modifyLunaClientResponse --+--         , testListHSMsResponse $+--             listHSMsResponse+-- --         , testDescribeLunaClientResponse $ --             describeLunaClientResponse -----         , testCreateHSMResponse $---             createHSMResponse--- --         , testCreateHAPGResponse $ --             createHAPGResponse -----         , testCreateLunaClientResponse $---             createLunaClientResponse+--         , testCreateHSMResponse $+--             createHSMResponse -- --         , testDescribeHAPGResponse $ --             describeHAPGResponse --+--         , testCreateLunaClientResponse $+--             createLunaClientResponse+-- --         , testListLunaClientsResponse $ --             listLunaClientsResponse --@@ -124,65 +124,65 @@ --         , testModifyHAPGResponse $ --             modifyHAPGResponse -----         , testListAvailableZonesResponse $---             listAvailableZonesResponse+--         , testDeleteLunaClientResponse $+--             deleteLunaClientResponse -- --         , testModifyHSMResponse $ --             modifyHSMResponse -----         , testDeleteLunaClientResponse $---             deleteLunaClientResponse+--         , testListAvailableZonesResponse $+--             listAvailableZonesResponse -- --           ] --     ]  -- Requests -testListHAPGs :: ListHAPGs -> TestTree-testListHAPGs = req-    "ListHAPGs"-    "fixture/ListHAPGs.yaml"--testListHSMs :: ListHSMs -> TestTree-testListHSMs = req-    "ListHSMs"-    "fixture/ListHSMs.yaml"- testDeleteHAPG :: DeleteHAPG -> TestTree testDeleteHAPG = req     "DeleteHAPG"     "fixture/DeleteHAPG.yaml" +testListHAPGs :: ListHAPGs -> TestTree+testListHAPGs = req+    "ListHAPGs"+    "fixture/ListHAPGs.yaml"+ testModifyLunaClient :: ModifyLunaClient -> TestTree testModifyLunaClient = req     "ModifyLunaClient"     "fixture/ModifyLunaClient.yaml" +testListHSMs :: ListHSMs -> TestTree+testListHSMs = req+    "ListHSMs"+    "fixture/ListHSMs.yaml"+ testDescribeLunaClient :: DescribeLunaClient -> TestTree testDescribeLunaClient = req     "DescribeLunaClient"     "fixture/DescribeLunaClient.yaml" -testCreateHSM :: CreateHSM -> TestTree-testCreateHSM = req-    "CreateHSM"-    "fixture/CreateHSM.yaml"- testCreateHAPG :: CreateHAPG -> TestTree testCreateHAPG = req     "CreateHAPG"     "fixture/CreateHAPG.yaml" -testCreateLunaClient :: CreateLunaClient -> TestTree-testCreateLunaClient = req-    "CreateLunaClient"-    "fixture/CreateLunaClient.yaml"+testCreateHSM :: CreateHSM -> TestTree+testCreateHSM = req+    "CreateHSM"+    "fixture/CreateHSM.yaml"  testDescribeHAPG :: DescribeHAPG -> TestTree testDescribeHAPG = req     "DescribeHAPG"     "fixture/DescribeHAPG.yaml" +testCreateLunaClient :: CreateLunaClient -> TestTree+testCreateLunaClient = req+    "CreateLunaClient"+    "fixture/CreateLunaClient.yaml"+ testListLunaClients :: ListLunaClients -> TestTree testListLunaClients = req     "ListLunaClients"@@ -208,37 +208,23 @@     "ModifyHAPG"     "fixture/ModifyHAPG.yaml" -testListAvailableZones :: ListAvailableZones -> TestTree-testListAvailableZones = req-    "ListAvailableZones"-    "fixture/ListAvailableZones.yaml"+testDeleteLunaClient :: DeleteLunaClient -> TestTree+testDeleteLunaClient = req+    "DeleteLunaClient"+    "fixture/DeleteLunaClient.yaml"  testModifyHSM :: ModifyHSM -> TestTree testModifyHSM = req     "ModifyHSM"     "fixture/ModifyHSM.yaml" -testDeleteLunaClient :: DeleteLunaClient -> TestTree-testDeleteLunaClient = req-    "DeleteLunaClient"-    "fixture/DeleteLunaClient.yaml"+testListAvailableZones :: ListAvailableZones -> TestTree+testListAvailableZones = req+    "ListAvailableZones"+    "fixture/ListAvailableZones.yaml"  -- Responses -testListHAPGsResponse :: ListHAPGsResponse -> TestTree-testListHAPGsResponse = res-    "ListHAPGsResponse"-    "fixture/ListHAPGsResponse.proto"-    cloudHSM-    (Proxy :: Proxy ListHAPGs)--testListHSMsResponse :: ListHSMsResponse -> TestTree-testListHSMsResponse = res-    "ListHSMsResponse"-    "fixture/ListHSMsResponse.proto"-    cloudHSM-    (Proxy :: Proxy ListHSMs)- testDeleteHAPGResponse :: DeleteHAPGResponse -> TestTree testDeleteHAPGResponse = res     "DeleteHAPGResponse"@@ -246,6 +232,13 @@     cloudHSM     (Proxy :: Proxy DeleteHAPG) +testListHAPGsResponse :: ListHAPGsResponse -> TestTree+testListHAPGsResponse = res+    "ListHAPGsResponse"+    "fixture/ListHAPGsResponse.proto"+    cloudHSM+    (Proxy :: Proxy ListHAPGs)+ testModifyLunaClientResponse :: ModifyLunaClientResponse -> TestTree testModifyLunaClientResponse = res     "ModifyLunaClientResponse"@@ -253,6 +246,13 @@     cloudHSM     (Proxy :: Proxy ModifyLunaClient) +testListHSMsResponse :: ListHSMsResponse -> TestTree+testListHSMsResponse = res+    "ListHSMsResponse"+    "fixture/ListHSMsResponse.proto"+    cloudHSM+    (Proxy :: Proxy ListHSMs)+ testDescribeLunaClientResponse :: DescribeLunaClientResponse -> TestTree testDescribeLunaClientResponse = res     "DescribeLunaClientResponse"@@ -260,13 +260,6 @@     cloudHSM     (Proxy :: Proxy DescribeLunaClient) -testCreateHSMResponse :: CreateHSMResponse -> TestTree-testCreateHSMResponse = res-    "CreateHSMResponse"-    "fixture/CreateHSMResponse.proto"-    cloudHSM-    (Proxy :: Proxy CreateHSM)- testCreateHAPGResponse :: CreateHAPGResponse -> TestTree testCreateHAPGResponse = res     "CreateHAPGResponse"@@ -274,12 +267,12 @@     cloudHSM     (Proxy :: Proxy CreateHAPG) -testCreateLunaClientResponse :: CreateLunaClientResponse -> TestTree-testCreateLunaClientResponse = res-    "CreateLunaClientResponse"-    "fixture/CreateLunaClientResponse.proto"+testCreateHSMResponse :: CreateHSMResponse -> TestTree+testCreateHSMResponse = res+    "CreateHSMResponse"+    "fixture/CreateHSMResponse.proto"     cloudHSM-    (Proxy :: Proxy CreateLunaClient)+    (Proxy :: Proxy CreateHSM)  testDescribeHAPGResponse :: DescribeHAPGResponse -> TestTree testDescribeHAPGResponse = res@@ -288,6 +281,13 @@     cloudHSM     (Proxy :: Proxy DescribeHAPG) +testCreateLunaClientResponse :: CreateLunaClientResponse -> TestTree+testCreateLunaClientResponse = res+    "CreateLunaClientResponse"+    "fixture/CreateLunaClientResponse.proto"+    cloudHSM+    (Proxy :: Proxy CreateLunaClient)+ testListLunaClientsResponse :: ListLunaClientsResponse -> TestTree testListLunaClientsResponse = res     "ListLunaClientsResponse"@@ -323,12 +323,12 @@     cloudHSM     (Proxy :: Proxy ModifyHAPG) -testListAvailableZonesResponse :: ListAvailableZonesResponse -> TestTree-testListAvailableZonesResponse = res-    "ListAvailableZonesResponse"-    "fixture/ListAvailableZonesResponse.proto"+testDeleteLunaClientResponse :: DeleteLunaClientResponse -> TestTree+testDeleteLunaClientResponse = res+    "DeleteLunaClientResponse"+    "fixture/DeleteLunaClientResponse.proto"     cloudHSM-    (Proxy :: Proxy ListAvailableZones)+    (Proxy :: Proxy DeleteLunaClient)  testModifyHSMResponse :: ModifyHSMResponse -> TestTree testModifyHSMResponse = res@@ -337,9 +337,9 @@     cloudHSM     (Proxy :: Proxy ModifyHSM) -testDeleteLunaClientResponse :: DeleteLunaClientResponse -> TestTree-testDeleteLunaClientResponse = res-    "DeleteLunaClientResponse"-    "fixture/DeleteLunaClientResponse.proto"+testListAvailableZonesResponse :: ListAvailableZonesResponse -> TestTree+testListAvailableZonesResponse = res+    "ListAvailableZonesResponse"+    "fixture/ListAvailableZonesResponse.proto"     cloudHSM-    (Proxy :: Proxy DeleteLunaClient)+    (Proxy :: Proxy ListAvailableZones)