amazonka-cloudhsm 1.4.0 → 1.4.1

raw patch · 25 files changed

+104/−14 lines, 25 filesdep ~amazonka-cloudhsmdep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudhsm.cabal +5/−5
• gen/Network/AWS/CloudHSM/AddTagsToResource.hs +8/−3
• gen/Network/AWS/CloudHSM/CreateHAPG.hs +4/−0
• gen/Network/AWS/CloudHSM/CreateHSM.hs +4/−0
• gen/Network/AWS/CloudHSM/CreateLunaClient.hs +4/−0
• gen/Network/AWS/CloudHSM/DeleteHAPG.hs +4/−0
• gen/Network/AWS/CloudHSM/DeleteHSM.hs +4/−0
• gen/Network/AWS/CloudHSM/DeleteLunaClient.hs +4/−0
• gen/Network/AWS/CloudHSM/DescribeHAPG.hs +4/−0
• gen/Network/AWS/CloudHSM/DescribeHSM.hs +4/−0
• gen/Network/AWS/CloudHSM/DescribeLunaClient.hs +4/−0
• gen/Network/AWS/CloudHSM/GetConfig.hs +4/−0
• gen/Network/AWS/CloudHSM/ListAvailableZones.hs +4/−0
• gen/Network/AWS/CloudHSM/ListHAPGs.hs +4/−0
• gen/Network/AWS/CloudHSM/ListHSMs.hs +4/−0
• gen/Network/AWS/CloudHSM/ListLunaClients.hs +4/−0
• gen/Network/AWS/CloudHSM/ListTagsForResource.hs +6/−2
• gen/Network/AWS/CloudHSM/ModifyHAPG.hs +4/−0
• gen/Network/AWS/CloudHSM/ModifyHSM.hs +4/−0
• gen/Network/AWS/CloudHSM/ModifyLunaClient.hs +4/−0
• gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs +6/−2
• gen/Network/AWS/CloudHSM/Types.hs +2/−0
• gen/Network/AWS/CloudHSM/Types/Product.hs +4/−1
• gen/Network/AWS/CloudHSM/Types/Sum.hs +4/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

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

@@ -18,9 +18,10 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds or overwrites one or more tags for the specified resource.+-- Adds or overwrites one or more tags for the specified AWS CloudHSM+-- resource. ----- Each tag consists of a key and a value. Tag keys must be unique per+-- Each tag consists of a key and a value. Tag keys must be unique to each -- resource. module Network.AWS.CloudHSM.AddTagsToResource     (@@ -68,7 +69,7 @@     , _attrTagList = mempty     } --- | The Amazon Resource Name (ARN) of the resource to tag.+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag. attrResourceARN :: Lens' AddTagsToResource Text attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a}); @@ -87,6 +88,8 @@  instance Hashable AddTagsToResource +instance NFData AddTagsToResource+ instance ToHeaders AddTagsToResource where         toHeaders           = const@@ -140,3 +143,5 @@ -- | The status of the operation. attrrsStatus :: Lens' AddTagsToResourceResponse Text attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a});++instance NFData AddTagsToResourceResponse

@@ -79,6 +79,8 @@  instance Hashable CreateHAPG +instance NFData CreateHAPG+ instance ToHeaders CreateHAPG where         toHeaders           = const@@ -129,3 +131,5 @@ -- | The response status code. chapgrsResponseStatus :: Lens' CreateHAPGResponse Int chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a});++instance NFData CreateHAPGResponse

@@ -160,6 +160,8 @@  instance Hashable CreateHSM +instance NFData CreateHSM+ instance ToHeaders CreateHSM where         toHeaders           = const@@ -219,3 +221,5 @@ -- | The response status code. chrsResponseStatus :: Lens' CreateHSMResponse Int chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a});++instance NFData CreateHSMResponse

@@ -87,6 +87,8 @@  instance Hashable CreateLunaClient +instance NFData CreateLunaClient+ instance ToHeaders CreateLunaClient where         toHeaders           = const@@ -141,3 +143,5 @@ -- | The response status code. clcrsResponseStatus :: Lens' CreateLunaClientResponse Int clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a});++instance NFData CreateLunaClientResponse

@@ -77,6 +77,8 @@  instance Hashable DeleteHAPG +instance NFData DeleteHAPG+ instance ToHeaders DeleteHAPG where         toHeaders           = const@@ -128,3 +130,5 @@ -- | The status of the action. dhrsStatus :: Lens' DeleteHAPGResponse Text dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a});++instance NFData DeleteHAPGResponse

@@ -78,6 +78,8 @@  instance Hashable DeleteHSM +instance NFData DeleteHSM+ instance ToHeaders DeleteHSM where         toHeaders           = const@@ -129,3 +131,5 @@ -- | The status of the operation. dhsmrsStatus :: Lens' DeleteHSMResponse Text dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a});++instance NFData DeleteHSMResponse

@@ -75,6 +75,8 @@  instance Hashable DeleteLunaClient +instance NFData DeleteLunaClient+ instance ToHeaders DeleteLunaClient where         toHeaders           = const@@ -126,3 +128,5 @@ -- | The status of the action. dlcrsStatus :: Lens' DeleteLunaClientResponse Text dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a});++instance NFData DeleteLunaClientResponse

@@ -93,6 +93,8 @@  instance Hashable DescribeHAPG +instance NFData DescribeHAPG+ instance ToHeaders DescribeHAPG where         toHeaders           = const@@ -211,3 +213,5 @@ -- | The response status code. dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a});++instance NFData DescribeHAPGResponse

@@ -128,6 +128,8 @@  instance Hashable DescribeHSM +instance NFData DescribeHSM+ instance ToHeaders DescribeHSM where         toHeaders           = const@@ -343,3 +345,5 @@ -- | The response status code. desrsResponseStatus :: Lens' DescribeHSMResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});++instance NFData DescribeHSMResponse

@@ -93,6 +93,8 @@  instance Hashable DescribeLunaClient +instance NFData DescribeLunaClient+ instance ToHeaders DescribeLunaClient where         toHeaders           = const@@ -178,3 +180,5 @@ -- | The response status code. drsResponseStatus :: Lens' DescribeLunaClientResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DescribeLunaClientResponse

@@ -100,6 +100,8 @@  instance Hashable GetConfig +instance NFData GetConfig+ instance ToHeaders GetConfig where         toHeaders           = const@@ -168,3 +170,5 @@ -- | The response status code. gcrsResponseStatus :: Lens' GetConfigResponse Int gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});++instance NFData GetConfigResponse

@@ -65,6 +65,8 @@  instance Hashable ListAvailableZones +instance NFData ListAvailableZones+ instance ToHeaders ListAvailableZones where         toHeaders           = const@@ -114,3 +116,5 @@ -- | The response status code. lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a});++instance NFData ListAvailableZonesResponse

@@ -82,6 +82,8 @@  instance Hashable ListHAPGs +instance NFData ListHAPGs+ instance ToHeaders ListHAPGs where         toHeaders           = const@@ -140,3 +142,5 @@ -- | The list of high-availability partition groups. lhrsHAPGList :: Lens' ListHAPGsResponse [Text] lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce;++instance NFData ListHAPGsResponse

@@ -83,6 +83,8 @@  instance Hashable ListHSMs +instance NFData ListHSMs+ instance ToHeaders ListHSMs where         toHeaders           = const@@ -143,3 +145,5 @@ -- | The response status code. lhsmrsResponseStatus :: Lens' ListHSMsResponse Int lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a});++instance NFData ListHSMsResponse

@@ -82,6 +82,8 @@  instance Hashable ListLunaClients +instance NFData ListLunaClients+ instance ToHeaders ListLunaClients where         toHeaders           = const@@ -141,3 +143,5 @@ -- | The list of clients. llcrsClientList :: Lens' ListLunaClientsResponse [Text] llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce;++instance NFData ListLunaClientsResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of all tags for the specified resource.+-- Returns a list of all tags for the specified AWS CloudHSM resource. module Network.AWS.CloudHSM.ListTagsForResource     (     -- * Creating a Request@@ -60,7 +60,7 @@     { _ltfrResourceARN = pResourceARN_     } --- | The Amazon Resource Name (ARN) of the resource.+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource. ltfrResourceARN :: Lens' ListTagsForResource Text ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a}); @@ -76,6 +76,8 @@  instance Hashable ListTagsForResource +instance NFData ListTagsForResource+ instance ToHeaders ListTagsForResource where         toHeaders           = const@@ -127,3 +129,5 @@ -- | One or more tags. ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag] ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce;++instance NFData ListTagsForResourceResponse

@@ -94,6 +94,8 @@  instance Hashable ModifyHAPG +instance NFData ModifyHAPG+ instance ToHeaders ModifyHAPG where         toHeaders           = const@@ -147,3 +149,5 @@ -- | The response status code. mhrsResponseStatus :: Lens' ModifyHAPGResponse Int mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});++instance NFData ModifyHAPGResponse

@@ -135,6 +135,8 @@  instance Hashable ModifyHSM +instance NFData ModifyHSM+ instance ToHeaders ModifyHSM where         toHeaders           = const@@ -192,3 +194,5 @@ -- | The response status code. mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a});++instance NFData ModifyHSMResponse

@@ -88,6 +88,8 @@  instance Hashable ModifyLunaClient +instance NFData ModifyLunaClient+ instance ToHeaders ModifyLunaClient where         toHeaders           = const@@ -140,3 +142,5 @@ -- | The response status code. mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a});++instance NFData ModifyLunaClientResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes one or more tags from the specified resource.+-- Removes one or more tags from the specified AWS CloudHSM resource. -- -- To remove a tag, specify only the tag key to remove (not the value). To -- overwrite the value for an existing tag, use < AddTagsToResource>.@@ -68,7 +68,7 @@     , _rtfrTagKeyList = mempty     } --- | The Amazon Resource Name (ARN) of the resource.+-- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource. rtfrResourceARN :: Lens' RemoveTagsFromResource Text rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a}); @@ -91,6 +91,8 @@  instance Hashable RemoveTagsFromResource +instance NFData RemoveTagsFromResource+ instance ToHeaders RemoveTagsFromResource where         toHeaders           = const@@ -144,3 +146,5 @@ -- | The status of the operation. rtfrrsStatus :: Lens' RemoveTagsFromResourceResponse Text rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a});++instance NFData RemoveTagsFromResourceResponse

@@ -72,6 +72,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -21,7 +21,8 @@ import           Network.AWS.Lens import           Network.AWS.Prelude --- | A key-value pair that identifies or specifies metadata about a resource.+-- | A key-value pair that identifies or specifies metadata about an AWS+-- CloudHSM resource. -- -- /See:/ 'tag' smart constructor. data Tag = Tag'@@ -60,6 +61,8 @@               (\ x -> Tag' <$> (x .: "Key") <*> (x .: "Value"))  instance Hashable Tag++instance NFData Tag  instance ToJSON Tag where         toJSON Tag'{..}

@@ -37,6 +37,7 @@         VD5_3 -> "5.3"  instance Hashable     ClientVersion+instance NFData       ClientVersion instance ToByteString ClientVersion instance ToQuery      ClientVersion instance ToHeader     ClientVersion@@ -65,6 +66,7 @@         Updating -> "UPDATING"  instance Hashable     CloudHSMObjectState+instance NFData       CloudHSMObjectState instance ToByteString CloudHSMObjectState instance ToQuery      CloudHSMObjectState instance ToHeader     CloudHSMObjectState@@ -105,6 +107,7 @@         HSUpdating -> "UPDATING"  instance Hashable     HSMStatus+instance NFData       HSMStatus instance ToByteString HSMStatus instance ToQuery      HSMStatus instance ToHeader     HSMStatus@@ -131,6 +134,7 @@         Production -> "PRODUCTION"  instance Hashable     SubscriptionType+instance NFData       SubscriptionType instance ToByteString SubscriptionType instance ToQuery      SubscriptionType instance ToHeader     SubscriptionType