Skip to content
Permalink
Browse files

Regenerating CloudHSM from latest service definition

  • Loading branch information...
brendanhay committed May 4, 2016
1 parent 4c1d244 commit c091447aa1803ec173daa32c01169a89add33e34
@@ -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 @@ addTagsToResource pResourceARN_ =
, _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});

@@ -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 @@ listTagsForResource pResourceARN_ =
{ _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});

@@ -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 @@ removeTagsFromResource pResourceARN_ =
, _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});

@@ -72,6 +72,8 @@ cloudHSM =
| 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.CloudHSM.Types.Sum
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'

0 comments on commit c091447

Please sign in to comment.
You can’t perform that action at this time.