amazonka-cloudformation 1.2.0.2 → 1.3.0

raw patch · 19 files changed

+334/−334 lines, 19 filesdep ~amazonka-cloudformationdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudformation.cabal +5/−5
• gen/Network/AWS/CloudFormation.hs +19/−19
• gen/Network/AWS/CloudFormation/CreateStack.hs +9/−9
• gen/Network/AWS/CloudFormation/DescribeStackEvents.hs +10/−10
• gen/Network/AWS/CloudFormation/DescribeStackResource.hs +8/−8
• gen/Network/AWS/CloudFormation/DescribeStackResources.hs +8/−8
• gen/Network/AWS/CloudFormation/DescribeStacks.hs +10/−10
• gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs +9/−9
• gen/Network/AWS/CloudFormation/GetStackPolicy.hs +8/−8
• gen/Network/AWS/CloudFormation/GetTemplate.hs +9/−9
• gen/Network/AWS/CloudFormation/GetTemplateSummary.hs +30/−30
• gen/Network/AWS/CloudFormation/ListStackResources.hs +8/−8
• gen/Network/AWS/CloudFormation/ListStacks.hs +23/−23
• gen/Network/AWS/CloudFormation/Types.hs +13/−13
• gen/Network/AWS/CloudFormation/Types/Product.hs +70/−70
• gen/Network/AWS/CloudFormation/UpdateStack.hs +9/−9
• gen/Network/AWS/CloudFormation/ValidateTemplate.hs +31/−31
• test/Test/AWS/Gen/CloudFormation.hs +54/−54

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

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

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

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

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

@@ -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 -- <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-template-resource-type-ref.html AWS Resource Types Reference>@@ -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 -- <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-attribute-metadata.html Metadata Attribute>@@ -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")

@@ -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});

@@ -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});

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