diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-cloudformation.cabal b/amazonka-cloudformation.cabal --- a/amazonka-cloudformation.cabal +++ b/amazonka-cloudformation.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudformation -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon CloudFormation SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -87,7 +87,7 @@ , Network.AWS.CloudFormation.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudformation-test @@ -107,9 +107,9 @@ , Test.AWS.CloudFormation.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-cloudformation == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-cloudformation == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/CloudFormation.hs b/gen/Network/AWS/CloudFormation.hs --- a/gen/Network/AWS/CloudFormation.hs +++ b/gen/Network/AWS/CloudFormation.hs @@ -46,12 +46,12 @@ -- ** InsufficientCapabilitiesException , _InsufficientCapabilitiesException - -- ** LimitExceededException - , _LimitExceededException - -- ** AlreadyExistsException , _AlreadyExistsException + -- ** LimitExceededException + , _LimitExceededException + -- * Waiters -- $waiters @@ -70,36 +70,36 @@ -- ** ListStackResources (Paginated) , module Network.AWS.CloudFormation.ListStackResources - -- ** DescribeStacks (Paginated) - , module Network.AWS.CloudFormation.DescribeStacks - -- ** GetStackPolicy , module Network.AWS.CloudFormation.GetStackPolicy + -- ** DescribeStacks (Paginated) + , module Network.AWS.CloudFormation.DescribeStacks + -- ** ValidateTemplate , module Network.AWS.CloudFormation.ValidateTemplate -- ** CancelUpdateStack , module Network.AWS.CloudFormation.CancelUpdateStack - -- ** SetStackPolicy - , module Network.AWS.CloudFormation.SetStackPolicy - -- ** DescribeStackEvents (Paginated) , module Network.AWS.CloudFormation.DescribeStackEvents -- ** SignalResource , module Network.AWS.CloudFormation.SignalResource + -- ** SetStackPolicy + , module Network.AWS.CloudFormation.SetStackPolicy + -- ** ListStacks (Paginated) , module Network.AWS.CloudFormation.ListStacks - -- ** CreateStack - , module Network.AWS.CloudFormation.CreateStack - -- ** DescribeStackResources , module Network.AWS.CloudFormation.DescribeStackResources + -- ** CreateStack + , module Network.AWS.CloudFormation.CreateStack + -- ** EstimateTemplateCost , module Network.AWS.CloudFormation.EstimateTemplateCost @@ -165,8 +165,8 @@ , sOutputs , sParameters , sStackId - , sCapabilities , sDescription + , sCapabilities , sTags , sTimeoutInMinutes , sStackName @@ -177,9 +177,9 @@ , StackEvent , stackEvent , seLogicalResourceId - , seResourceStatusReason - , seResourceType , sePhysicalResourceId + , seResourceType + , seResourceStatusReason , seResourceProperties , seResourceStatus , seStackId @@ -190,8 +190,8 @@ -- ** StackResource , StackResource , stackResource - , srResourceStatusReason , srPhysicalResourceId + , srResourceStatusReason , srStackId , srDescription , srStackName @@ -203,8 +203,8 @@ -- ** StackResourceDetail , StackResourceDetail , stackResourceDetail - , srdResourceStatusReason , srdPhysicalResourceId + , srdResourceStatusReason , srdMetadata , srdStackId , srdDescription @@ -217,8 +217,8 @@ -- ** StackResourceSummary , StackResourceSummary , stackResourceSummary - , srsResourceStatusReason , srsPhysicalResourceId + , srsResourceStatusReason , srsLogicalResourceId , srsResourceType , srsLastUpdatedTimestamp @@ -228,8 +228,8 @@ , StackSummary , stackSummary , ssLastUpdatedTime - , ssTemplateDescription , ssStackStatusReason + , ssTemplateDescription , ssDeletionTime , ssStackId , ssStackName diff --git a/gen/Network/AWS/CloudFormation/CreateStack.hs b/gen/Network/AWS/CloudFormation/CreateStack.hs --- a/gen/Network/AWS/CloudFormation/CreateStack.hs +++ b/gen/Network/AWS/CloudFormation/CreateStack.hs @@ -47,7 +47,7 @@ , CreateStackResponse -- * Response Lenses , csrsStackId - , csrsStatus + , csrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -267,8 +267,8 @@ -- -- /See:/ 'createStackResponse' smart constructor. data CreateStackResponse = CreateStackResponse' - { _csrsStackId :: !(Maybe Text) - , _csrsStatus :: !Int + { _csrsStackId :: !(Maybe Text) + , _csrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateStackResponse' with the minimum fields required to make a request. @@ -277,14 +277,14 @@ -- -- * 'csrsStackId' -- --- * 'csrsStatus' +-- * 'csrsResponseStatus' createStackResponse - :: Int -- ^ 'csrsStatus' + :: Int -- ^ 'csrsResponseStatus' -> CreateStackResponse -createStackResponse pStatus_ = +createStackResponse pResponseStatus_ = CreateStackResponse' { _csrsStackId = Nothing - , _csrsStatus = pStatus_ + , _csrsResponseStatus = pResponseStatus_ } -- | Unique identifier of the stack. @@ -292,5 +292,5 @@ csrsStackId = lens _csrsStackId (\ s a -> s{_csrsStackId = a}); -- | The response status code. -csrsStatus :: Lens' CreateStackResponse Int -csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a}); +csrsResponseStatus :: Lens' CreateStackResponse Int +csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs b/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs --- a/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs +++ b/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs @@ -44,7 +44,7 @@ -- * Response Lenses , dsersNextToken , dsersStackEvents - , dsersStatus + , dsersResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -133,9 +133,9 @@ -- -- /See:/ 'describeStackEventsResponse' smart constructor. data DescribeStackEventsResponse = DescribeStackEventsResponse' - { _dsersNextToken :: !(Maybe Text) - , _dsersStackEvents :: !(Maybe [StackEvent]) - , _dsersStatus :: !Int + { _dsersNextToken :: !(Maybe Text) + , _dsersStackEvents :: !(Maybe [StackEvent]) + , _dsersResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeStackEventsResponse' with the minimum fields required to make a request. @@ -146,15 +146,15 @@ -- -- * 'dsersStackEvents' -- --- * 'dsersStatus' +-- * 'dsersResponseStatus' describeStackEventsResponse - :: Int -- ^ 'dsersStatus' + :: Int -- ^ 'dsersResponseStatus' -> DescribeStackEventsResponse -describeStackEventsResponse pStatus_ = +describeStackEventsResponse pResponseStatus_ = DescribeStackEventsResponse' { _dsersNextToken = Nothing , _dsersStackEvents = Nothing - , _dsersStatus = pStatus_ + , _dsersResponseStatus = pResponseStatus_ } -- | String that identifies the start of the next list of events, if there is @@ -167,5 +167,5 @@ dsersStackEvents = lens _dsersStackEvents (\ s a -> s{_dsersStackEvents = a}) . _Default . _Coerce; -- | The response status code. -dsersStatus :: Lens' DescribeStackEventsResponse Int -dsersStatus = lens _dsersStatus (\ s a -> s{_dsersStatus = a}); +dsersResponseStatus :: Lens' DescribeStackEventsResponse Int +dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/DescribeStackResource.hs b/gen/Network/AWS/CloudFormation/DescribeStackResource.hs --- a/gen/Network/AWS/CloudFormation/DescribeStackResource.hs +++ b/gen/Network/AWS/CloudFormation/DescribeStackResource.hs @@ -38,7 +38,7 @@ , DescribeStackResourceResponse -- * Response Lenses , dsrrsStackResourceDetail - , dsrrsStatus + , dsrrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -119,7 +119,7 @@ -- /See:/ 'describeStackResourceResponse' smart constructor. data DescribeStackResourceResponse = DescribeStackResourceResponse' { _dsrrsStackResourceDetail :: !(Maybe StackResourceDetail) - , _dsrrsStatus :: !Int + , _dsrrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeStackResourceResponse' with the minimum fields required to make a request. @@ -128,14 +128,14 @@ -- -- * 'dsrrsStackResourceDetail' -- --- * 'dsrrsStatus' +-- * 'dsrrsResponseStatus' describeStackResourceResponse - :: Int -- ^ 'dsrrsStatus' + :: Int -- ^ 'dsrrsResponseStatus' -> DescribeStackResourceResponse -describeStackResourceResponse pStatus_ = +describeStackResourceResponse pResponseStatus_ = DescribeStackResourceResponse' { _dsrrsStackResourceDetail = Nothing - , _dsrrsStatus = pStatus_ + , _dsrrsResponseStatus = pResponseStatus_ } -- | A 'StackResourceDetail' structure containing the description of the @@ -144,5 +144,5 @@ dsrrsStackResourceDetail = lens _dsrrsStackResourceDetail (\ s a -> s{_dsrrsStackResourceDetail = a}); -- | The response status code. -dsrrsStatus :: Lens' DescribeStackResourceResponse Int -dsrrsStatus = lens _dsrrsStatus (\ s a -> s{_dsrrsStatus = a}); +dsrrsResponseStatus :: Lens' DescribeStackResourceResponse Int +dsrrsResponseStatus = lens _dsrrsResponseStatus (\ s a -> s{_dsrrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/DescribeStackResources.hs b/gen/Network/AWS/CloudFormation/DescribeStackResources.hs --- a/gen/Network/AWS/CloudFormation/DescribeStackResources.hs +++ b/gen/Network/AWS/CloudFormation/DescribeStackResources.hs @@ -55,7 +55,7 @@ , DescribeStackResourcesResponse -- * Response Lenses , drsStackResources - , drsStatus + , drsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -159,7 +159,7 @@ -- /See:/ 'describeStackResourcesResponse' smart constructor. data DescribeStackResourcesResponse = DescribeStackResourcesResponse' { _drsStackResources :: !(Maybe [StackResource]) - , _drsStatus :: !Int + , _drsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeStackResourcesResponse' with the minimum fields required to make a request. @@ -168,14 +168,14 @@ -- -- * 'drsStackResources' -- --- * 'drsStatus' +-- * 'drsResponseStatus' describeStackResourcesResponse - :: Int -- ^ 'drsStatus' + :: Int -- ^ 'drsResponseStatus' -> DescribeStackResourcesResponse -describeStackResourcesResponse pStatus_ = +describeStackResourcesResponse pResponseStatus_ = DescribeStackResourcesResponse' { _drsStackResources = Nothing - , _drsStatus = pStatus_ + , _drsResponseStatus = pResponseStatus_ } -- | A list of 'StackResource' structures. @@ -183,5 +183,5 @@ drsStackResources = lens _drsStackResources (\ s a -> s{_drsStackResources = a}) . _Default . _Coerce; -- | The response status code. -drsStatus :: Lens' DescribeStackResourcesResponse Int -drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); +drsResponseStatus :: Lens' DescribeStackResourcesResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/DescribeStacks.hs b/gen/Network/AWS/CloudFormation/DescribeStacks.hs --- a/gen/Network/AWS/CloudFormation/DescribeStacks.hs +++ b/gen/Network/AWS/CloudFormation/DescribeStacks.hs @@ -39,7 +39,7 @@ -- * Response Lenses , dsrsNextToken , dsrsStacks - , dsrsStatus + , dsrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -125,9 +125,9 @@ -- -- /See:/ 'describeStacksResponse' smart constructor. data DescribeStacksResponse = DescribeStacksResponse' - { _dsrsNextToken :: !(Maybe Text) - , _dsrsStacks :: !(Maybe [Stack]) - , _dsrsStatus :: !Int + { _dsrsNextToken :: !(Maybe Text) + , _dsrsStacks :: !(Maybe [Stack]) + , _dsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeStacksResponse' with the minimum fields required to make a request. @@ -138,15 +138,15 @@ -- -- * 'dsrsStacks' -- --- * 'dsrsStatus' +-- * 'dsrsResponseStatus' describeStacksResponse - :: Int -- ^ 'dsrsStatus' + :: Int -- ^ 'dsrsResponseStatus' -> DescribeStacksResponse -describeStacksResponse pStatus_ = +describeStacksResponse pResponseStatus_ = DescribeStacksResponse' { _dsrsNextToken = Nothing , _dsrsStacks = Nothing - , _dsrsStatus = pStatus_ + , _dsrsResponseStatus = pResponseStatus_ } -- | String that identifies the start of the next list of stacks, if there is @@ -159,5 +159,5 @@ dsrsStacks = lens _dsrsStacks (\ s a -> s{_dsrsStacks = a}) . _Default . _Coerce; -- | The response status code. -dsrsStatus :: Lens' DescribeStacksResponse Int -dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a}); +dsrsResponseStatus :: Lens' DescribeStacksResponse Int +dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs b/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs --- a/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs +++ b/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs @@ -38,7 +38,7 @@ , EstimateTemplateCostResponse -- * Response Lenses , etcrsURL - , etcrsStatus + , etcrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -127,8 +127,8 @@ -- -- /See:/ 'estimateTemplateCostResponse' smart constructor. data EstimateTemplateCostResponse = EstimateTemplateCostResponse' - { _etcrsURL :: !(Maybe Text) - , _etcrsStatus :: !Int + { _etcrsURL :: !(Maybe Text) + , _etcrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'EstimateTemplateCostResponse' with the minimum fields required to make a request. @@ -137,14 +137,14 @@ -- -- * 'etcrsURL' -- --- * 'etcrsStatus' +-- * 'etcrsResponseStatus' estimateTemplateCostResponse - :: Int -- ^ 'etcrsStatus' + :: Int -- ^ 'etcrsResponseStatus' -> EstimateTemplateCostResponse -estimateTemplateCostResponse pStatus_ = +estimateTemplateCostResponse pResponseStatus_ = EstimateTemplateCostResponse' { _etcrsURL = Nothing - , _etcrsStatus = pStatus_ + , _etcrsResponseStatus = pResponseStatus_ } -- | An AWS Simple Monthly Calculator URL with a query string that describes @@ -153,5 +153,5 @@ etcrsURL = lens _etcrsURL (\ s a -> s{_etcrsURL = a}); -- | The response status code. -etcrsStatus :: Lens' EstimateTemplateCostResponse Int -etcrsStatus = lens _etcrsStatus (\ s a -> s{_etcrsStatus = a}); +etcrsResponseStatus :: Lens' EstimateTemplateCostResponse Int +etcrsResponseStatus = lens _etcrsResponseStatus (\ s a -> s{_etcrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/GetStackPolicy.hs b/gen/Network/AWS/CloudFormation/GetStackPolicy.hs --- a/gen/Network/AWS/CloudFormation/GetStackPolicy.hs +++ b/gen/Network/AWS/CloudFormation/GetStackPolicy.hs @@ -35,7 +35,7 @@ , GetStackPolicyResponse -- * Response Lenses , gsprsStackPolicyBody - , gsprsStatus + , gsprsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -96,7 +96,7 @@ -- /See:/ 'getStackPolicyResponse' smart constructor. data GetStackPolicyResponse = GetStackPolicyResponse' { _gsprsStackPolicyBody :: !(Maybe Text) - , _gsprsStatus :: !Int + , _gsprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetStackPolicyResponse' with the minimum fields required to make a request. @@ -105,14 +105,14 @@ -- -- * 'gsprsStackPolicyBody' -- --- * 'gsprsStatus' +-- * 'gsprsResponseStatus' getStackPolicyResponse - :: Int -- ^ 'gsprsStatus' + :: Int -- ^ 'gsprsResponseStatus' -> GetStackPolicyResponse -getStackPolicyResponse pStatus_ = +getStackPolicyResponse pResponseStatus_ = GetStackPolicyResponse' { _gsprsStackPolicyBody = Nothing - , _gsprsStatus = pStatus_ + , _gsprsResponseStatus = pResponseStatus_ } -- | Structure containing the stack policy body. (For more information, go to @@ -122,5 +122,5 @@ gsprsStackPolicyBody = lens _gsprsStackPolicyBody (\ s a -> s{_gsprsStackPolicyBody = a}); -- | The response status code. -gsprsStatus :: Lens' GetStackPolicyResponse Int -gsprsStatus = lens _gsprsStatus (\ s a -> s{_gsprsStatus = a}); +gsprsResponseStatus :: Lens' GetStackPolicyResponse Int +gsprsResponseStatus = lens _gsprsResponseStatus (\ s a -> s{_gsprsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/GetTemplate.hs b/gen/Network/AWS/CloudFormation/GetTemplate.hs --- a/gen/Network/AWS/CloudFormation/GetTemplate.hs +++ b/gen/Network/AWS/CloudFormation/GetTemplate.hs @@ -40,7 +40,7 @@ , GetTemplateResponse -- * Response Lenses , gtrsTemplateBody - , gtrsStatus + , gtrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -106,8 +106,8 @@ -- -- /See:/ 'getTemplateResponse' smart constructor. data GetTemplateResponse = GetTemplateResponse' - { _gtrsTemplateBody :: !(Maybe Text) - , _gtrsStatus :: !Int + { _gtrsTemplateBody :: !(Maybe Text) + , _gtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetTemplateResponse' with the minimum fields required to make a request. @@ -116,14 +116,14 @@ -- -- * 'gtrsTemplateBody' -- --- * 'gtrsStatus' +-- * 'gtrsResponseStatus' getTemplateResponse - :: Int -- ^ 'gtrsStatus' + :: Int -- ^ 'gtrsResponseStatus' -> GetTemplateResponse -getTemplateResponse pStatus_ = +getTemplateResponse pResponseStatus_ = GetTemplateResponse' { _gtrsTemplateBody = Nothing - , _gtrsStatus = pStatus_ + , _gtrsResponseStatus = pResponseStatus_ } -- | Structure containing the template body. (For more information, go to @@ -133,5 +133,5 @@ gtrsTemplateBody = lens _gtrsTemplateBody (\ s a -> s{_gtrsTemplateBody = a}); -- | The response status code. -gtrsStatus :: Lens' GetTemplateResponse Int -gtrsStatus = lens _gtrsStatus (\ s a -> s{_gtrsStatus = a}); +gtrsResponseStatus :: Lens' GetTemplateResponse Int +gtrsResponseStatus = lens _gtrsResponseStatus (\ s a -> s{_gtrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs --- a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs +++ b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs @@ -46,12 +46,12 @@ , GetTemplateSummaryResponse -- * Response Lenses , gtsrsVersion - , gtsrsParameters , gtsrsCapabilitiesReason + , gtsrsParameters , gtsrsMetadata - , gtsrsCapabilities , gtsrsDescription - , gtsrsStatus + , gtsrsCapabilities + , gtsrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -127,15 +127,15 @@ = receiveXMLWrapper "GetTemplateSummaryResult" (\ s h x -> GetTemplateSummaryResponse' <$> - (x .@? "Version") <*> + (x .@? "Version") <*> (x .@? "CapabilitiesReason") + <*> (x .@? "Parameters" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "CapabilitiesReason") <*> (x .@? "Metadata") + <*> (x .@? "Description") <*> (x .@? "Capabilities" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "Description") <*> (pure (fromEnum s))) instance ToHeaders GetTemplateSummary where @@ -158,12 +158,12 @@ -- /See:/ 'getTemplateSummaryResponse' smart constructor. data GetTemplateSummaryResponse = GetTemplateSummaryResponse' { _gtsrsVersion :: !(Maybe Text) - , _gtsrsParameters :: !(Maybe [ParameterDeclaration]) , _gtsrsCapabilitiesReason :: !(Maybe Text) + , _gtsrsParameters :: !(Maybe [ParameterDeclaration]) , _gtsrsMetadata :: !(Maybe Text) - , _gtsrsCapabilities :: !(Maybe [Capability]) , _gtsrsDescription :: !(Maybe Text) - , _gtsrsStatus :: !Int + , _gtsrsCapabilities :: !(Maybe [Capability]) + , _gtsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetTemplateSummaryResponse' with the minimum fields required to make a request. @@ -172,29 +172,29 @@ -- -- * 'gtsrsVersion' -- --- * 'gtsrsParameters' --- -- * 'gtsrsCapabilitiesReason' -- --- * 'gtsrsMetadata' +-- * 'gtsrsParameters' -- --- * 'gtsrsCapabilities' +-- * 'gtsrsMetadata' -- -- * 'gtsrsDescription' -- --- * 'gtsrsStatus' +-- * 'gtsrsCapabilities' +-- +-- * 'gtsrsResponseStatus' getTemplateSummaryResponse - :: Int -- ^ 'gtsrsStatus' + :: Int -- ^ 'gtsrsResponseStatus' -> GetTemplateSummaryResponse -getTemplateSummaryResponse pStatus_ = +getTemplateSummaryResponse pResponseStatus_ = GetTemplateSummaryResponse' { _gtsrsVersion = Nothing - , _gtsrsParameters = Nothing , _gtsrsCapabilitiesReason = Nothing + , _gtsrsParameters = Nothing , _gtsrsMetadata = Nothing - , _gtsrsCapabilities = Nothing , _gtsrsDescription = Nothing - , _gtsrsStatus = pStatus_ + , _gtsrsCapabilities = Nothing + , _gtsrsResponseStatus = pResponseStatus_ } -- | The AWS template format version, which identifies the capabilities of @@ -202,20 +202,24 @@ gtsrsVersion :: Lens' GetTemplateSummaryResponse (Maybe Text) gtsrsVersion = lens _gtsrsVersion (\ s a -> s{_gtsrsVersion = a}); --- | A list of parameter declarations that describe various properties for --- each parameter. -gtsrsParameters :: Lens' GetTemplateSummaryResponse [ParameterDeclaration] -gtsrsParameters = lens _gtsrsParameters (\ s a -> s{_gtsrsParameters = a}) . _Default . _Coerce; - -- | The list of resources that generated the values in the 'Capabilities' -- response element. gtsrsCapabilitiesReason :: Lens' GetTemplateSummaryResponse (Maybe Text) gtsrsCapabilitiesReason = lens _gtsrsCapabilitiesReason (\ s a -> s{_gtsrsCapabilitiesReason = a}); +-- | A list of parameter declarations that describe various properties for +-- each parameter. +gtsrsParameters :: Lens' GetTemplateSummaryResponse [ParameterDeclaration] +gtsrsParameters = lens _gtsrsParameters (\ s a -> s{_gtsrsParameters = a}) . _Default . _Coerce; + -- | The value that is defined for the 'Metadata' property of the template. gtsrsMetadata :: Lens' GetTemplateSummaryResponse (Maybe Text) gtsrsMetadata = lens _gtsrsMetadata (\ s a -> s{_gtsrsMetadata = a}); +-- | The value that is defined in the 'Description' property of the template. +gtsrsDescription :: Lens' GetTemplateSummaryResponse (Maybe Text) +gtsrsDescription = lens _gtsrsDescription (\ s a -> s{_gtsrsDescription = a}); + -- | The capabilities found within the template. Currently, AWS -- CloudFormation supports only the CAPABILITY_IAM capability. If your -- template contains IAM resources, you must specify the CAPABILITY_IAM @@ -225,10 +229,6 @@ gtsrsCapabilities :: Lens' GetTemplateSummaryResponse [Capability] gtsrsCapabilities = lens _gtsrsCapabilities (\ s a -> s{_gtsrsCapabilities = a}) . _Default . _Coerce; --- | The value that is defined in the 'Description' property of the template. -gtsrsDescription :: Lens' GetTemplateSummaryResponse (Maybe Text) -gtsrsDescription = lens _gtsrsDescription (\ s a -> s{_gtsrsDescription = a}); - -- | The response status code. -gtsrsStatus :: Lens' GetTemplateSummaryResponse Int -gtsrsStatus = lens _gtsrsStatus (\ s a -> s{_gtsrsStatus = a}); +gtsrsResponseStatus :: Lens' GetTemplateSummaryResponse Int +gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/ListStackResources.hs b/gen/Network/AWS/CloudFormation/ListStackResources.hs --- a/gen/Network/AWS/CloudFormation/ListStackResources.hs +++ b/gen/Network/AWS/CloudFormation/ListStackResources.hs @@ -41,7 +41,7 @@ -- * Response Lenses , lsrrsNextToken , lsrrsStackResourceSummaries - , lsrrsStatus + , lsrrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -133,7 +133,7 @@ data ListStackResourcesResponse = ListStackResourcesResponse' { _lsrrsNextToken :: !(Maybe Text) , _lsrrsStackResourceSummaries :: !(Maybe [StackResourceSummary]) - , _lsrrsStatus :: !Int + , _lsrrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListStackResourcesResponse' with the minimum fields required to make a request. @@ -144,15 +144,15 @@ -- -- * 'lsrrsStackResourceSummaries' -- --- * 'lsrrsStatus' +-- * 'lsrrsResponseStatus' listStackResourcesResponse - :: Int -- ^ 'lsrrsStatus' + :: Int -- ^ 'lsrrsResponseStatus' -> ListStackResourcesResponse -listStackResourcesResponse pStatus_ = +listStackResourcesResponse pResponseStatus_ = ListStackResourcesResponse' { _lsrrsNextToken = Nothing , _lsrrsStackResourceSummaries = Nothing - , _lsrrsStatus = pStatus_ + , _lsrrsResponseStatus = pResponseStatus_ } -- | String that identifies the start of the next list of stack resources, if @@ -165,5 +165,5 @@ lsrrsStackResourceSummaries = lens _lsrrsStackResourceSummaries (\ s a -> s{_lsrrsStackResourceSummaries = a}) . _Default . _Coerce; -- | The response status code. -lsrrsStatus :: Lens' ListStackResourcesResponse Int -lsrrsStatus = lens _lsrrsStatus (\ s a -> s{_lsrrsStatus = a}); +lsrrsResponseStatus :: Lens' ListStackResourcesResponse Int +lsrrsResponseStatus = lens _lsrrsResponseStatus (\ s a -> s{_lsrrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/ListStacks.hs b/gen/Network/AWS/CloudFormation/ListStacks.hs --- a/gen/Network/AWS/CloudFormation/ListStacks.hs +++ b/gen/Network/AWS/CloudFormation/ListStacks.hs @@ -40,9 +40,9 @@ , listStacksResponse , ListStacksResponse -- * Response Lenses - , lsrsStackSummaries , lsrsNextToken - , lsrsStatus + , lsrsStackSummaries + , lsrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -103,9 +103,9 @@ = receiveXMLWrapper "ListStacksResult" (\ s h x -> ListStacksResponse' <$> - (x .@? "StackSummaries" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "NextToken") + (x .@? "NextToken") <*> + (x .@? "StackSummaries" .!@ mempty >>= + may (parseXMLList "member")) <*> (pure (fromEnum s))) instance ToHeaders ListStacks where @@ -128,40 +128,40 @@ -- -- /See:/ 'listStacksResponse' smart constructor. data ListStacksResponse = ListStacksResponse' - { _lsrsStackSummaries :: !(Maybe [StackSummary]) - , _lsrsNextToken :: !(Maybe Text) - , _lsrsStatus :: !Int + { _lsrsNextToken :: !(Maybe Text) + , _lsrsStackSummaries :: !(Maybe [StackSummary]) + , _lsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListStacksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lsrsStackSummaries' --- -- * 'lsrsNextToken' -- --- * 'lsrsStatus' +-- * 'lsrsStackSummaries' +-- +-- * 'lsrsResponseStatus' listStacksResponse - :: Int -- ^ 'lsrsStatus' + :: Int -- ^ 'lsrsResponseStatus' -> ListStacksResponse -listStacksResponse pStatus_ = +listStacksResponse pResponseStatus_ = ListStacksResponse' - { _lsrsStackSummaries = Nothing - , _lsrsNextToken = Nothing - , _lsrsStatus = pStatus_ + { _lsrsNextToken = Nothing + , _lsrsStackSummaries = Nothing + , _lsrsResponseStatus = pResponseStatus_ } --- | A list of 'StackSummary' structures containing information about the --- specified stacks. -lsrsStackSummaries :: Lens' ListStacksResponse [StackSummary] -lsrsStackSummaries = lens _lsrsStackSummaries (\ s a -> s{_lsrsStackSummaries = a}) . _Default . _Coerce; - -- | String that identifies the start of the next list of stacks, if there is -- one. lsrsNextToken :: Lens' ListStacksResponse (Maybe Text) lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a}); +-- | A list of 'StackSummary' structures containing information about the +-- specified stacks. +lsrsStackSummaries :: Lens' ListStacksResponse [StackSummary] +lsrsStackSummaries = lens _lsrsStackSummaries (\ s a -> s{_lsrsStackSummaries = a}) . _Default . _Coerce; + -- | The response status code. -lsrsStatus :: Lens' ListStacksResponse Int -lsrsStatus = lens _lsrsStatus (\ s a -> s{_lsrsStatus = a}); +lsrsResponseStatus :: Lens' ListStacksResponse Int +lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/Types.hs b/gen/Network/AWS/CloudFormation/Types.hs --- a/gen/Network/AWS/CloudFormation/Types.hs +++ b/gen/Network/AWS/CloudFormation/Types.hs @@ -17,8 +17,8 @@ -- * Errors , _InsufficientCapabilitiesException - , _LimitExceededException , _AlreadyExistsException + , _LimitExceededException -- * Capability , Capability (..) @@ -74,8 +74,8 @@ , sOutputs , sParameters , sStackId - , sCapabilities , sDescription + , sCapabilities , sTags , sTimeoutInMinutes , sStackName @@ -86,9 +86,9 @@ , StackEvent , stackEvent , seLogicalResourceId - , seResourceStatusReason - , seResourceType , sePhysicalResourceId + , seResourceType + , seResourceStatusReason , seResourceProperties , seResourceStatus , seStackId @@ -99,8 +99,8 @@ -- * StackResource , StackResource , stackResource - , srResourceStatusReason , srPhysicalResourceId + , srResourceStatusReason , srStackId , srDescription , srStackName @@ -112,8 +112,8 @@ -- * StackResourceDetail , StackResourceDetail , stackResourceDetail - , srdResourceStatusReason , srdPhysicalResourceId + , srdResourceStatusReason , srdMetadata , srdStackId , srdDescription @@ -126,8 +126,8 @@ -- * StackResourceSummary , StackResourceSummary , stackResourceSummary - , srsResourceStatusReason , srsPhysicalResourceId + , srsResourceStatusReason , srsLogicalResourceId , srsResourceType , srsLastUpdatedTimestamp @@ -137,8 +137,8 @@ , StackSummary , stackSummary , ssLastUpdatedTime - , ssTemplateDescription , ssStackStatusReason + , ssTemplateDescription , ssDeletionTime , ssStackId , ssStackName @@ -202,12 +202,12 @@ _InsufficientCapabilitiesException = _ServiceError . hasStatus 400 . hasCode "InsufficientCapabilitiesException" --- | Quota for the resource has already been reached. -_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError -_LimitExceededException = - _ServiceError . hasStatus 400 . hasCode "LimitExceededException" - -- | Resource with the name requested already exists. _AlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _AlreadyExistsException = _ServiceError . hasStatus 400 . hasCode "AlreadyExistsException" + +-- | Quota for the resource has already been reached. +_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError +_LimitExceededException = + _ServiceError . hasStatus 400 . hasCode "LimitExceededException" diff --git a/gen/Network/AWS/CloudFormation/Types/Product.hs b/gen/Network/AWS/CloudFormation/Types/Product.hs --- a/gen/Network/AWS/CloudFormation/Types/Product.hs +++ b/gen/Network/AWS/CloudFormation/Types/Product.hs @@ -236,8 +236,8 @@ , _sOutputs :: !(Maybe [Output]) , _sParameters :: !(Maybe [Parameter]) , _sStackId :: !(Maybe Text) - , _sCapabilities :: !(Maybe [Capability]) , _sDescription :: !(Maybe Text) + , _sCapabilities :: !(Maybe [Capability]) , _sTags :: !(Maybe [Tag]) , _sTimeoutInMinutes :: !(Maybe Nat) , _sStackName :: !Text @@ -263,10 +263,10 @@ -- -- * 'sStackId' -- --- * 'sCapabilities' --- -- * 'sDescription' -- +-- * 'sCapabilities' +-- -- * 'sTags' -- -- * 'sTimeoutInMinutes' @@ -290,8 +290,8 @@ , _sOutputs = Nothing , _sParameters = Nothing , _sStackId = Nothing - , _sCapabilities = Nothing , _sDescription = Nothing + , _sCapabilities = Nothing , _sTags = Nothing , _sTimeoutInMinutes = Nothing , _sStackName = pStackName_ @@ -331,14 +331,14 @@ sStackId :: Lens' Stack (Maybe Text) sStackId = lens _sStackId (\ s a -> s{_sStackId = a}); --- | The capabilities allowed in the stack. -sCapabilities :: Lens' Stack [Capability] -sCapabilities = lens _sCapabilities (\ s a -> s{_sCapabilities = a}) . _Default . _Coerce; - -- | User defined description associated with the stack. sDescription :: Lens' Stack (Maybe Text) sDescription = lens _sDescription (\ s a -> s{_sDescription = a}); +-- | The capabilities allowed in the stack. +sCapabilities :: Lens' Stack [Capability] +sCapabilities = lens _sCapabilities (\ s a -> s{_sCapabilities = a}) . _Default . _Coerce; + -- | A list of 'Tag's that specify cost allocation information for the stack. sTags :: Lens' Stack [Tag] sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce; @@ -375,10 +375,10 @@ (x .@? "Parameters" .!@ mempty >>= may (parseXMLList "member")) <*> (x .@? "StackId") + <*> (x .@? "Description") <*> (x .@? "Capabilities" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "Description") <*> (x .@? "Tags" .!@ mempty >>= may (parseXMLList "member")) @@ -392,9 +392,9 @@ -- /See:/ 'stackEvent' smart constructor. data StackEvent = StackEvent' { _seLogicalResourceId :: !(Maybe Text) - , _seResourceStatusReason :: !(Maybe Text) - , _seResourceType :: !(Maybe Text) , _sePhysicalResourceId :: !(Maybe Text) + , _seResourceType :: !(Maybe Text) + , _seResourceStatusReason :: !(Maybe Text) , _seResourceProperties :: !(Maybe Text) , _seResourceStatus :: !(Maybe ResourceStatus) , _seStackId :: !Text @@ -409,11 +409,11 @@ -- -- * 'seLogicalResourceId' -- --- * 'seResourceStatusReason' +-- * 'sePhysicalResourceId' -- -- * 'seResourceType' -- --- * 'sePhysicalResourceId' +-- * 'seResourceStatusReason' -- -- * 'seResourceProperties' -- @@ -435,9 +435,9 @@ stackEvent pStackId_ pEventId_ pStackName_ pTimestamp_ = StackEvent' { _seLogicalResourceId = Nothing - , _seResourceStatusReason = Nothing - , _seResourceType = Nothing , _sePhysicalResourceId = Nothing + , _seResourceType = Nothing + , _seResourceStatusReason = Nothing , _seResourceProperties = Nothing , _seResourceStatus = Nothing , _seStackId = pStackId_ @@ -450,9 +450,10 @@ seLogicalResourceId :: Lens' StackEvent (Maybe Text) seLogicalResourceId = lens _seLogicalResourceId (\ s a -> s{_seLogicalResourceId = a}); --- | Success\/failure message associated with the resource. -seResourceStatusReason :: Lens' StackEvent (Maybe Text) -seResourceStatusReason = lens _seResourceStatusReason (\ s a -> s{_seResourceStatusReason = a}); +-- | The name or unique identifier associated with the physical instance of +-- the resource. +sePhysicalResourceId :: Lens' StackEvent (Maybe Text) +sePhysicalResourceId = lens _sePhysicalResourceId (\ s a -> s{_sePhysicalResourceId = a}); -- | Type of resource. (For more information, go to -- @@ -460,10 +461,9 @@ seResourceType :: Lens' StackEvent (Maybe Text) seResourceType = lens _seResourceType (\ s a -> s{_seResourceType = a}); --- | The name or unique identifier associated with the physical instance of --- the resource. -sePhysicalResourceId :: Lens' StackEvent (Maybe Text) -sePhysicalResourceId = lens _sePhysicalResourceId (\ s a -> s{_sePhysicalResourceId = a}); +-- | Success\/failure message associated with the resource. +seResourceStatusReason :: Lens' StackEvent (Maybe Text) +seResourceStatusReason = lens _seResourceStatusReason (\ s a -> s{_seResourceStatusReason = a}); -- | BLOB of the properties used to create the resource. seResourceProperties :: Lens' StackEvent (Maybe Text) @@ -493,9 +493,9 @@ parseXML x = StackEvent' <$> (x .@? "LogicalResourceId") <*> - (x .@? "ResourceStatusReason") + (x .@? "PhysicalResourceId") <*> (x .@? "ResourceType") - <*> (x .@? "PhysicalResourceId") + <*> (x .@? "ResourceStatusReason") <*> (x .@? "ResourceProperties") <*> (x .@? "ResourceStatus") <*> (x .@ "StackId") @@ -507,8 +507,8 @@ -- -- /See:/ 'stackResource' smart constructor. data StackResource = StackResource' - { _srResourceStatusReason :: !(Maybe Text) - , _srPhysicalResourceId :: !(Maybe Text) + { _srPhysicalResourceId :: !(Maybe Text) + , _srResourceStatusReason :: !(Maybe Text) , _srStackId :: !(Maybe Text) , _srDescription :: !(Maybe Text) , _srStackName :: !(Maybe Text) @@ -522,10 +522,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'srResourceStatusReason' --- -- * 'srPhysicalResourceId' -- +-- * 'srResourceStatusReason' +-- -- * 'srStackId' -- -- * 'srDescription' @@ -547,8 +547,8 @@ -> StackResource stackResource pLogicalResourceId_ pResourceType_ pTimestamp_ pResourceStatus_ = StackResource' - { _srResourceStatusReason = Nothing - , _srPhysicalResourceId = Nothing + { _srPhysicalResourceId = Nothing + , _srResourceStatusReason = Nothing , _srStackId = Nothing , _srDescription = Nothing , _srStackName = Nothing @@ -558,15 +558,15 @@ , _srResourceStatus = pResourceStatus_ } --- | Success\/failure message associated with the resource. -srResourceStatusReason :: Lens' StackResource (Maybe Text) -srResourceStatusReason = lens _srResourceStatusReason (\ s a -> s{_srResourceStatusReason = a}); - -- | The name or unique identifier that corresponds to a physical instance ID -- of a resource supported by AWS CloudFormation. srPhysicalResourceId :: Lens' StackResource (Maybe Text) srPhysicalResourceId = lens _srPhysicalResourceId (\ s a -> s{_srPhysicalResourceId = a}); +-- | Success\/failure message associated with the resource. +srResourceStatusReason :: Lens' StackResource (Maybe Text) +srResourceStatusReason = lens _srResourceStatusReason (\ s a -> s{_srResourceStatusReason = a}); + -- | Unique identifier of the stack. srStackId :: Lens' StackResource (Maybe Text) srStackId = lens _srStackId (\ s a -> s{_srStackId = a}); @@ -600,8 +600,8 @@ instance FromXML StackResource where parseXML x = StackResource' <$> - (x .@? "ResourceStatusReason") <*> - (x .@? "PhysicalResourceId") + (x .@? "PhysicalResourceId") <*> + (x .@? "ResourceStatusReason") <*> (x .@? "StackId") <*> (x .@? "Description") <*> (x .@? "StackName") @@ -614,8 +614,8 @@ -- -- /See:/ 'stackResourceDetail' smart constructor. data StackResourceDetail = StackResourceDetail' - { _srdResourceStatusReason :: !(Maybe Text) - , _srdPhysicalResourceId :: !(Maybe Text) + { _srdPhysicalResourceId :: !(Maybe Text) + , _srdResourceStatusReason :: !(Maybe Text) , _srdMetadata :: !(Maybe Text) , _srdStackId :: !(Maybe Text) , _srdDescription :: !(Maybe Text) @@ -630,10 +630,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'srdResourceStatusReason' --- -- * 'srdPhysicalResourceId' -- +-- * 'srdResourceStatusReason' +-- -- * 'srdMetadata' -- -- * 'srdStackId' @@ -657,8 +657,8 @@ -> StackResourceDetail stackResourceDetail pLogicalResourceId_ pResourceType_ pLastUpdatedTimestamp_ pResourceStatus_ = StackResourceDetail' - { _srdResourceStatusReason = Nothing - , _srdPhysicalResourceId = Nothing + { _srdPhysicalResourceId = Nothing + , _srdResourceStatusReason = Nothing , _srdMetadata = Nothing , _srdStackId = Nothing , _srdDescription = Nothing @@ -669,15 +669,15 @@ , _srdResourceStatus = pResourceStatus_ } --- | Success\/failure message associated with the resource. -srdResourceStatusReason :: Lens' StackResourceDetail (Maybe Text) -srdResourceStatusReason = lens _srdResourceStatusReason (\ s a -> s{_srdResourceStatusReason = a}); - -- | The name or unique identifier that corresponds to a physical instance ID -- of a resource supported by AWS CloudFormation. srdPhysicalResourceId :: Lens' StackResourceDetail (Maybe Text) srdPhysicalResourceId = lens _srdPhysicalResourceId (\ s a -> s{_srdPhysicalResourceId = a}); +-- | Success\/failure message associated with the resource. +srdResourceStatusReason :: Lens' StackResourceDetail (Maybe Text) +srdResourceStatusReason = lens _srdResourceStatusReason (\ s a -> s{_srdResourceStatusReason = a}); + -- | The JSON format content of the 'Metadata' attribute declared for the -- resource. For more information, see -- @@ -718,8 +718,8 @@ instance FromXML StackResourceDetail where parseXML x = StackResourceDetail' <$> - (x .@? "ResourceStatusReason") <*> - (x .@? "PhysicalResourceId") + (x .@? "PhysicalResourceId") <*> + (x .@? "ResourceStatusReason") <*> (x .@? "Metadata") <*> (x .@? "StackId") <*> (x .@? "Description") @@ -733,8 +733,8 @@ -- -- /See:/ 'stackResourceSummary' smart constructor. data StackResourceSummary = StackResourceSummary' - { _srsResourceStatusReason :: !(Maybe Text) - , _srsPhysicalResourceId :: !(Maybe Text) + { _srsPhysicalResourceId :: !(Maybe Text) + , _srsResourceStatusReason :: !(Maybe Text) , _srsLogicalResourceId :: !Text , _srsResourceType :: !Text , _srsLastUpdatedTimestamp :: !ISO8601 @@ -745,10 +745,10 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'srsResourceStatusReason' --- -- * 'srsPhysicalResourceId' -- +-- * 'srsResourceStatusReason' +-- -- * 'srsLogicalResourceId' -- -- * 'srsResourceType' @@ -764,23 +764,23 @@ -> StackResourceSummary stackResourceSummary pLogicalResourceId_ pResourceType_ pLastUpdatedTimestamp_ pResourceStatus_ = StackResourceSummary' - { _srsResourceStatusReason = Nothing - , _srsPhysicalResourceId = Nothing + { _srsPhysicalResourceId = Nothing + , _srsResourceStatusReason = Nothing , _srsLogicalResourceId = pLogicalResourceId_ , _srsResourceType = pResourceType_ , _srsLastUpdatedTimestamp = _Time # pLastUpdatedTimestamp_ , _srsResourceStatus = pResourceStatus_ } --- | Success\/failure message associated with the resource. -srsResourceStatusReason :: Lens' StackResourceSummary (Maybe Text) -srsResourceStatusReason = lens _srsResourceStatusReason (\ s a -> s{_srsResourceStatusReason = a}); - -- | The name or unique identifier that corresponds to a physical instance ID -- of the resource. srsPhysicalResourceId :: Lens' StackResourceSummary (Maybe Text) srsPhysicalResourceId = lens _srsPhysicalResourceId (\ s a -> s{_srsPhysicalResourceId = a}); +-- | Success\/failure message associated with the resource. +srsResourceStatusReason :: Lens' StackResourceSummary (Maybe Text) +srsResourceStatusReason = lens _srsResourceStatusReason (\ s a -> s{_srsResourceStatusReason = a}); + -- | The logical name of the resource specified in the template. srsLogicalResourceId :: Lens' StackResourceSummary Text srsLogicalResourceId = lens _srsLogicalResourceId (\ s a -> s{_srsLogicalResourceId = a}); @@ -802,8 +802,8 @@ instance FromXML StackResourceSummary where parseXML x = StackResourceSummary' <$> - (x .@? "ResourceStatusReason") <*> - (x .@? "PhysicalResourceId") + (x .@? "PhysicalResourceId") <*> + (x .@? "ResourceStatusReason") <*> (x .@ "LogicalResourceId") <*> (x .@ "ResourceType") <*> (x .@ "LastUpdatedTimestamp") @@ -814,8 +814,8 @@ -- /See:/ 'stackSummary' smart constructor. data StackSummary = StackSummary' { _ssLastUpdatedTime :: !(Maybe ISO8601) - , _ssTemplateDescription :: !(Maybe Text) , _ssStackStatusReason :: !(Maybe Text) + , _ssTemplateDescription :: !(Maybe Text) , _ssDeletionTime :: !(Maybe ISO8601) , _ssStackId :: !(Maybe Text) , _ssStackName :: !Text @@ -829,10 +829,10 @@ -- -- * 'ssLastUpdatedTime' -- --- * 'ssTemplateDescription' --- -- * 'ssStackStatusReason' -- +-- * 'ssTemplateDescription' +-- -- * 'ssDeletionTime' -- -- * 'ssStackId' @@ -850,8 +850,8 @@ stackSummary pStackName_ pCreationTime_ pStackStatus_ = StackSummary' { _ssLastUpdatedTime = Nothing - , _ssTemplateDescription = Nothing , _ssStackStatusReason = Nothing + , _ssTemplateDescription = Nothing , _ssDeletionTime = Nothing , _ssStackId = Nothing , _ssStackName = pStackName_ @@ -864,14 +864,14 @@ ssLastUpdatedTime :: Lens' StackSummary (Maybe UTCTime) ssLastUpdatedTime = lens _ssLastUpdatedTime (\ s a -> s{_ssLastUpdatedTime = a}) . mapping _Time; --- | The template description of the template used to create the stack. -ssTemplateDescription :: Lens' StackSummary (Maybe Text) -ssTemplateDescription = lens _ssTemplateDescription (\ s a -> s{_ssTemplateDescription = a}); - -- | Success\/Failure message associated with the stack status. ssStackStatusReason :: Lens' StackSummary (Maybe Text) ssStackStatusReason = lens _ssStackStatusReason (\ s a -> s{_ssStackStatusReason = a}); +-- | The template description of the template used to create the stack. +ssTemplateDescription :: Lens' StackSummary (Maybe Text) +ssTemplateDescription = lens _ssTemplateDescription (\ s a -> s{_ssTemplateDescription = a}); + -- | The time the stack was deleted. ssDeletionTime :: Lens' StackSummary (Maybe UTCTime) ssDeletionTime = lens _ssDeletionTime (\ s a -> s{_ssDeletionTime = a}) . mapping _Time; @@ -896,8 +896,8 @@ parseXML x = StackSummary' <$> (x .@? "LastUpdatedTime") <*> - (x .@? "TemplateDescription") - <*> (x .@? "StackStatusReason") + (x .@? "StackStatusReason") + <*> (x .@? "TemplateDescription") <*> (x .@? "DeletionTime") <*> (x .@? "StackId") <*> (x .@ "StackName") diff --git a/gen/Network/AWS/CloudFormation/UpdateStack.hs b/gen/Network/AWS/CloudFormation/UpdateStack.hs --- a/gen/Network/AWS/CloudFormation/UpdateStack.hs +++ b/gen/Network/AWS/CloudFormation/UpdateStack.hs @@ -56,7 +56,7 @@ , UpdateStackResponse -- * Response Lenses , usrsStackId - , usrsStatus + , usrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -275,8 +275,8 @@ -- -- /See:/ 'updateStackResponse' smart constructor. data UpdateStackResponse = UpdateStackResponse' - { _usrsStackId :: !(Maybe Text) - , _usrsStatus :: !Int + { _usrsStackId :: !(Maybe Text) + , _usrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateStackResponse' with the minimum fields required to make a request. @@ -285,14 +285,14 @@ -- -- * 'usrsStackId' -- --- * 'usrsStatus' +-- * 'usrsResponseStatus' updateStackResponse - :: Int -- ^ 'usrsStatus' + :: Int -- ^ 'usrsResponseStatus' -> UpdateStackResponse -updateStackResponse pStatus_ = +updateStackResponse pResponseStatus_ = UpdateStackResponse' { _usrsStackId = Nothing - , _usrsStatus = pStatus_ + , _usrsResponseStatus = pResponseStatus_ } -- | Unique identifier of the stack. @@ -300,5 +300,5 @@ usrsStackId = lens _usrsStackId (\ s a -> s{_usrsStackId = a}); -- | The response status code. -usrsStatus :: Lens' UpdateStackResponse Int -usrsStatus = lens _usrsStatus (\ s a -> s{_usrsStatus = a}); +usrsResponseStatus :: Lens' UpdateStackResponse Int +usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs --- a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs +++ b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs @@ -34,11 +34,11 @@ , validateTemplateResponse , ValidateTemplateResponse -- * Response Lenses - , vtrsParameters , vtrsCapabilitiesReason - , vtrsCapabilities + , vtrsParameters , vtrsDescription - , vtrsStatus + , vtrsCapabilities + , vtrsResponseStatus ) where import Network.AWS.CloudFormation.Types @@ -98,13 +98,13 @@ = receiveXMLWrapper "ValidateTemplateResult" (\ s h x -> ValidateTemplateResponse' <$> - (x .@? "Parameters" .!@ mempty >>= - may (parseXMLList "member")) - <*> (x .@? "CapabilitiesReason") + (x .@? "CapabilitiesReason") <*> + (x .@? "Parameters" .!@ mempty >>= + may (parseXMLList "member")) + <*> (x .@? "Description") <*> (x .@? "Capabilities" .!@ mempty >>= may (parseXMLList "member")) - <*> (x .@? "Description") <*> (pure (fromEnum s))) instance ToHeaders ValidateTemplate where @@ -125,47 +125,51 @@ -- -- /See:/ 'validateTemplateResponse' smart constructor. data ValidateTemplateResponse = ValidateTemplateResponse' - { _vtrsParameters :: !(Maybe [TemplateParameter]) - , _vtrsCapabilitiesReason :: !(Maybe Text) - , _vtrsCapabilities :: !(Maybe [Capability]) + { _vtrsCapabilitiesReason :: !(Maybe Text) + , _vtrsParameters :: !(Maybe [TemplateParameter]) , _vtrsDescription :: !(Maybe Text) - , _vtrsStatus :: !Int + , _vtrsCapabilities :: !(Maybe [Capability]) + , _vtrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ValidateTemplateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'vtrsParameters' --- -- * 'vtrsCapabilitiesReason' -- --- * 'vtrsCapabilities' +-- * 'vtrsParameters' -- -- * 'vtrsDescription' -- --- * 'vtrsStatus' +-- * 'vtrsCapabilities' +-- +-- * 'vtrsResponseStatus' validateTemplateResponse - :: Int -- ^ 'vtrsStatus' + :: Int -- ^ 'vtrsResponseStatus' -> ValidateTemplateResponse -validateTemplateResponse pStatus_ = +validateTemplateResponse pResponseStatus_ = ValidateTemplateResponse' - { _vtrsParameters = Nothing - , _vtrsCapabilitiesReason = Nothing - , _vtrsCapabilities = Nothing + { _vtrsCapabilitiesReason = Nothing + , _vtrsParameters = Nothing , _vtrsDescription = Nothing - , _vtrsStatus = pStatus_ + , _vtrsCapabilities = Nothing + , _vtrsResponseStatus = pResponseStatus_ } --- | A list of 'TemplateParameter' structures. -vtrsParameters :: Lens' ValidateTemplateResponse [TemplateParameter] -vtrsParameters = lens _vtrsParameters (\ s a -> s{_vtrsParameters = a}) . _Default . _Coerce; - -- | The list of resources that generated the values in the 'Capabilities' -- response element. vtrsCapabilitiesReason :: Lens' ValidateTemplateResponse (Maybe Text) vtrsCapabilitiesReason = lens _vtrsCapabilitiesReason (\ s a -> s{_vtrsCapabilitiesReason = a}); +-- | A list of 'TemplateParameter' structures. +vtrsParameters :: Lens' ValidateTemplateResponse [TemplateParameter] +vtrsParameters = lens _vtrsParameters (\ s a -> s{_vtrsParameters = a}) . _Default . _Coerce; + +-- | The description found within the template. +vtrsDescription :: Lens' ValidateTemplateResponse (Maybe Text) +vtrsDescription = lens _vtrsDescription (\ s a -> s{_vtrsDescription = a}); + -- | The capabilities found within the template. Currently, AWS -- CloudFormation supports only the CAPABILITY_IAM capability. If your -- template contains IAM resources, you must specify the CAPABILITY_IAM @@ -175,10 +179,6 @@ vtrsCapabilities :: Lens' ValidateTemplateResponse [Capability] vtrsCapabilities = lens _vtrsCapabilities (\ s a -> s{_vtrsCapabilities = a}) . _Default . _Coerce; --- | The description found within the template. -vtrsDescription :: Lens' ValidateTemplateResponse (Maybe Text) -vtrsDescription = lens _vtrsDescription (\ s a -> s{_vtrsDescription = a}); - -- | The response status code. -vtrsStatus :: Lens' ValidateTemplateResponse Int -vtrsStatus = lens _vtrsStatus (\ s a -> s{_vtrsStatus = a}); +vtrsResponseStatus :: Lens' ValidateTemplateResponse Int +vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/CloudFormation.hs b/test/Test/AWS/Gen/CloudFormation.hs --- a/test/Test/AWS/Gen/CloudFormation.hs +++ b/test/Test/AWS/Gen/CloudFormation.hs @@ -40,36 +40,36 @@ -- , testListStackResources $ -- listStackResources -- --- , testDescribeStacks $ --- describeStacks --- -- , testGetStackPolicy $ -- getStackPolicy -- +-- , testDescribeStacks $ +-- describeStacks +-- -- , testValidateTemplate $ -- validateTemplate -- -- , testCancelUpdateStack $ -- cancelUpdateStack -- --- , testSetStackPolicy $ --- setStackPolicy --- -- , testDescribeStackEvents $ -- describeStackEvents -- -- , testSignalResource $ -- signalResource -- +-- , testSetStackPolicy $ +-- setStackPolicy +-- -- , testListStacks $ -- listStacks -- --- , testCreateStack $ --- createStack --- -- , testDescribeStackResources $ -- describeStackResources -- +-- , testCreateStack $ +-- createStack +-- -- , testEstimateTemplateCost $ -- estimateTemplateCost -- @@ -94,36 +94,36 @@ -- , testListStackResourcesResponse $ -- listStackResourcesResponse -- --- , testDescribeStacksResponse $ --- describeStacksResponse --- -- , testGetStackPolicyResponse $ -- getStackPolicyResponse -- +-- , testDescribeStacksResponse $ +-- describeStacksResponse +-- -- , testValidateTemplateResponse $ -- validateTemplateResponse -- -- , testCancelUpdateStackResponse $ -- cancelUpdateStackResponse -- --- , testSetStackPolicyResponse $ --- setStackPolicyResponse --- -- , testDescribeStackEventsResponse $ -- describeStackEventsResponse -- -- , testSignalResourceResponse $ -- signalResourceResponse -- +-- , testSetStackPolicyResponse $ +-- setStackPolicyResponse +-- -- , testListStacksResponse $ -- listStacksResponse -- --- , testCreateStackResponse $ --- createStackResponse --- -- , testDescribeStackResourcesResponse $ -- describeStackResourcesResponse -- +-- , testCreateStackResponse $ +-- createStackResponse +-- -- , testEstimateTemplateCostResponse $ -- estimateTemplateCostResponse -- @@ -158,16 +158,16 @@ "ListStackResources" "fixture/ListStackResources.yaml" -testDescribeStacks :: DescribeStacks -> TestTree -testDescribeStacks = req - "DescribeStacks" - "fixture/DescribeStacks.yaml" - testGetStackPolicy :: GetStackPolicy -> TestTree testGetStackPolicy = req "GetStackPolicy" "fixture/GetStackPolicy.yaml" +testDescribeStacks :: DescribeStacks -> TestTree +testDescribeStacks = req + "DescribeStacks" + "fixture/DescribeStacks.yaml" + testValidateTemplate :: ValidateTemplate -> TestTree testValidateTemplate = req "ValidateTemplate" @@ -178,11 +178,6 @@ "CancelUpdateStack" "fixture/CancelUpdateStack.yaml" -testSetStackPolicy :: SetStackPolicy -> TestTree -testSetStackPolicy = req - "SetStackPolicy" - "fixture/SetStackPolicy.yaml" - testDescribeStackEvents :: DescribeStackEvents -> TestTree testDescribeStackEvents = req "DescribeStackEvents" @@ -193,21 +188,26 @@ "SignalResource" "fixture/SignalResource.yaml" +testSetStackPolicy :: SetStackPolicy -> TestTree +testSetStackPolicy = req + "SetStackPolicy" + "fixture/SetStackPolicy.yaml" + testListStacks :: ListStacks -> TestTree testListStacks = req "ListStacks" "fixture/ListStacks.yaml" -testCreateStack :: CreateStack -> TestTree -testCreateStack = req - "CreateStack" - "fixture/CreateStack.yaml" - testDescribeStackResources :: DescribeStackResources -> TestTree testDescribeStackResources = req "DescribeStackResources" "fixture/DescribeStackResources.yaml" +testCreateStack :: CreateStack -> TestTree +testCreateStack = req + "CreateStack" + "fixture/CreateStack.yaml" + testEstimateTemplateCost :: EstimateTemplateCost -> TestTree testEstimateTemplateCost = req "EstimateTemplateCost" @@ -253,13 +253,6 @@ cloudFormation (Proxy :: Proxy ListStackResources) -testDescribeStacksResponse :: DescribeStacksResponse -> TestTree -testDescribeStacksResponse = res - "DescribeStacksResponse" - "fixture/DescribeStacksResponse.proto" - cloudFormation - (Proxy :: Proxy DescribeStacks) - testGetStackPolicyResponse :: GetStackPolicyResponse -> TestTree testGetStackPolicyResponse = res "GetStackPolicyResponse" @@ -267,6 +260,13 @@ cloudFormation (Proxy :: Proxy GetStackPolicy) +testDescribeStacksResponse :: DescribeStacksResponse -> TestTree +testDescribeStacksResponse = res + "DescribeStacksResponse" + "fixture/DescribeStacksResponse.proto" + cloudFormation + (Proxy :: Proxy DescribeStacks) + testValidateTemplateResponse :: ValidateTemplateResponse -> TestTree testValidateTemplateResponse = res "ValidateTemplateResponse" @@ -281,13 +281,6 @@ cloudFormation (Proxy :: Proxy CancelUpdateStack) -testSetStackPolicyResponse :: SetStackPolicyResponse -> TestTree -testSetStackPolicyResponse = res - "SetStackPolicyResponse" - "fixture/SetStackPolicyResponse.proto" - cloudFormation - (Proxy :: Proxy SetStackPolicy) - testDescribeStackEventsResponse :: DescribeStackEventsResponse -> TestTree testDescribeStackEventsResponse = res "DescribeStackEventsResponse" @@ -302,6 +295,13 @@ cloudFormation (Proxy :: Proxy SignalResource) +testSetStackPolicyResponse :: SetStackPolicyResponse -> TestTree +testSetStackPolicyResponse = res + "SetStackPolicyResponse" + "fixture/SetStackPolicyResponse.proto" + cloudFormation + (Proxy :: Proxy SetStackPolicy) + testListStacksResponse :: ListStacksResponse -> TestTree testListStacksResponse = res "ListStacksResponse" @@ -309,19 +309,19 @@ cloudFormation (Proxy :: Proxy ListStacks) -testCreateStackResponse :: CreateStackResponse -> TestTree -testCreateStackResponse = res - "CreateStackResponse" - "fixture/CreateStackResponse.proto" - cloudFormation - (Proxy :: Proxy CreateStack) - testDescribeStackResourcesResponse :: DescribeStackResourcesResponse -> TestTree testDescribeStackResourcesResponse = res "DescribeStackResourcesResponse" "fixture/DescribeStackResourcesResponse.proto" cloudFormation (Proxy :: Proxy DescribeStackResources) + +testCreateStackResponse :: CreateStackResponse -> TestTree +testCreateStackResponse = res + "CreateStackResponse" + "fixture/CreateStackResponse.proto" + cloudFormation + (Proxy :: Proxy CreateStack) testEstimateTemplateCostResponse :: EstimateTemplateCostResponse -> TestTree testEstimateTemplateCostResponse = res