summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2015-09-03 13:55:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-09-03 13:55:00 (GMT)
commit704372386c2a10846b0135a99247a11cd5f7707c (patch)
treee33f1a83e693def83a66b0cb15e5e307e86d2ff3
parent3c0a63adf0124581416013d9abac40b6069d6d07 (diff)
version 1.3.01.3.0
-rw-r--r--README.md2
-rw-r--r--amazonka-cloudformation.cabal10
-rw-r--r--gen/Network/AWS/CloudFormation.hs38
-rw-r--r--gen/Network/AWS/CloudFormation/CreateStack.hs18
-rw-r--r--gen/Network/AWS/CloudFormation/DescribeStackEvents.hs20
-rw-r--r--gen/Network/AWS/CloudFormation/DescribeStackResource.hs16
-rw-r--r--gen/Network/AWS/CloudFormation/DescribeStackResources.hs16
-rw-r--r--gen/Network/AWS/CloudFormation/DescribeStacks.hs20
-rw-r--r--gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs18
-rw-r--r--gen/Network/AWS/CloudFormation/GetStackPolicy.hs16
-rw-r--r--gen/Network/AWS/CloudFormation/GetTemplate.hs18
-rw-r--r--gen/Network/AWS/CloudFormation/GetTemplateSummary.hs60
-rw-r--r--gen/Network/AWS/CloudFormation/ListStackResources.hs16
-rw-r--r--gen/Network/AWS/CloudFormation/ListStacks.hs46
-rw-r--r--gen/Network/AWS/CloudFormation/Types.hs26
-rw-r--r--gen/Network/AWS/CloudFormation/Types/Product.hs140
-rw-r--r--gen/Network/AWS/CloudFormation/UpdateStack.hs18
-rw-r--r--gen/Network/AWS/CloudFormation/ValidateTemplate.hs62
-rw-r--r--test/Test/AWS/Gen/CloudFormation.hs108
19 files changed, 334 insertions, 334 deletions
diff --git a/README.md b/README.md
index 140e8e2..a9e364b 100644
--- 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
index 083f69b..ef9066a 100644
--- 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 @@ library
, 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-suite amazonka-cloudformation-test
, 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
index acc4e6e..68d356b 100644
--- a/gen/Network/AWS/CloudFormation.hs
+++ b/gen/Network/AWS/CloudFormation.hs
@@ -46,12 +46,12 @@ module Network.AWS.CloudFormation
-- ** InsufficientCapabilitiesException
, _InsufficientCapabilitiesException
- -- ** LimitExceededException
- , _LimitExceededException
-
-- ** AlreadyExistsException
, _AlreadyExistsException
+ -- ** LimitExceededException
+ , _LimitExceededException
+
-- * Waiters
-- $waiters
@@ -70,36 +70,36 @@ module Network.AWS.CloudFormation
-- ** 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 @@ module Network.AWS.CloudFormation
, sOutputs
, sParameters
, sStackId
- , sCapabilities
, sDescription
+ , sCapabilities
, sTags
, sTimeoutInMinutes
, sStackName
@@ -177,9 +177,9 @@ module Network.AWS.CloudFormation
, StackEvent
, stackEvent
, seLogicalResourceId
- , seResourceStatusReason
- , seResourceType
, sePhysicalResourceId
+ , seResourceType
+ , seResourceStatusReason
, seResourceProperties
, seResourceStatus
, seStackId
@@ -190,8 +190,8 @@ module Network.AWS.CloudFormation
-- ** StackResource
, StackResource
, stackResource
- , srResourceStatusReason
, srPhysicalResourceId
+ , srResourceStatusReason
, srStackId
, srDescription
, srStackName
@@ -203,8 +203,8 @@ module Network.AWS.CloudFormation
-- ** StackResourceDetail
, StackResourceDetail
, stackResourceDetail
- , srdResourceStatusReason
, srdPhysicalResourceId
+ , srdResourceStatusReason
, srdMetadata
, srdStackId
, srdDescription
@@ -217,8 +217,8 @@ module Network.AWS.CloudFormation
-- ** StackResourceSummary
, StackResourceSummary
, stackResourceSummary
- , srsResourceStatusReason
, srsPhysicalResourceId
+ , srsResourceStatusReason
, srsLogicalResourceId
, srsResourceType
, srsLastUpdatedTimestamp
@@ -228,8 +228,8 @@ module Network.AWS.CloudFormation
, 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
index 6609c99..6c7079e 100644
--- a/gen/Network/AWS/CloudFormation/CreateStack.hs
+++ b/gen/Network/AWS/CloudFormation/CreateStack.hs
@@ -47,7 +47,7 @@ module Network.AWS.CloudFormation.CreateStack
, CreateStackResponse
-- * Response Lenses
, csrsStackId
- , csrsStatus
+ , csrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -267,8 +267,8 @@ instance ToQuery CreateStack where
--
-- /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 @@ data CreateStackResponse = CreateStackResponse'
--
-- * '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' CreateStackResponse (Maybe Text)
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
index cd594de..b4531a9 100644
--- a/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs
+++ b/gen/Network/AWS/CloudFormation/DescribeStackEvents.hs
@@ -44,7 +44,7 @@ module Network.AWS.CloudFormation.DescribeStackEvents
-- * Response Lenses
, dsersNextToken
, dsersStackEvents
- , dsersStatus
+ , dsersResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -133,9 +133,9 @@ instance ToQuery DescribeStackEvents where
--
-- /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 @@ data DescribeStackEventsResponse = DescribeStackEventsResponse'
--
-- * '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' DescribeStackEventsResponse [StackEvent]
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
index 2e99675..a0f0141 100644
--- a/gen/Network/AWS/CloudFormation/DescribeStackResource.hs
+++ b/gen/Network/AWS/CloudFormation/DescribeStackResource.hs
@@ -38,7 +38,7 @@ module Network.AWS.CloudFormation.DescribeStackResource
, DescribeStackResourceResponse
-- * Response Lenses
, dsrrsStackResourceDetail
- , dsrrsStatus
+ , dsrrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -119,7 +119,7 @@ instance ToQuery DescribeStackResource where
-- /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 @@ data DescribeStackResourceResponse = DescribeStackResourceResponse'
--
-- * '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' DescribeStackResourceResponse (Maybe StackReso
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
index e9ddfca..ca04adb 100644
--- a/gen/Network/AWS/CloudFormation/DescribeStackResources.hs
+++ b/gen/Network/AWS/CloudFormation/DescribeStackResources.hs
@@ -55,7 +55,7 @@ module Network.AWS.CloudFormation.DescribeStackResources
, DescribeStackResourcesResponse
-- * Response Lenses
, drsStackResources
- , drsStatus
+ , drsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -159,7 +159,7 @@ instance ToQuery DescribeStackResources where
-- /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 @@ data DescribeStackResourcesResponse = DescribeStackResourcesResponse'
--
-- * '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' DescribeStackResourcesResponse [StackResource]
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
index 788cf64..678d811 100644
--- a/gen/Network/AWS/CloudFormation/DescribeStacks.hs
+++ b/gen/Network/AWS/CloudFormation/DescribeStacks.hs
@@ -39,7 +39,7 @@ module Network.AWS.CloudFormation.DescribeStacks
-- * Response Lenses
, dsrsNextToken
, dsrsStacks
- , dsrsStatus
+ , dsrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -125,9 +125,9 @@ instance ToQuery DescribeStacks where
--
-- /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 @@ data DescribeStacksResponse = DescribeStacksResponse'
--
-- * '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' DescribeStacksResponse [Stack]
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
index 16f2b9d..bad3fa8 100644
--- a/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs
+++ b/gen/Network/AWS/CloudFormation/EstimateTemplateCost.hs
@@ -38,7 +38,7 @@ module Network.AWS.CloudFormation.EstimateTemplateCost
, EstimateTemplateCostResponse
-- * Response Lenses
, etcrsURL
- , etcrsStatus
+ , etcrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -127,8 +127,8 @@ instance ToQuery EstimateTemplateCost where
--
-- /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 @@ data EstimateTemplateCostResponse = EstimateTemplateCostResponse'
--
-- * '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' EstimateTemplateCostResponse (Maybe Text)
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
index f8c3660..686d013 100644
--- a/gen/Network/AWS/CloudFormation/GetStackPolicy.hs
+++ b/gen/Network/AWS/CloudFormation/GetStackPolicy.hs
@@ -35,7 +35,7 @@ module Network.AWS.CloudFormation.GetStackPolicy
, GetStackPolicyResponse
-- * Response Lenses
, gsprsStackPolicyBody
- , gsprsStatus
+ , gsprsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -96,7 +96,7 @@ instance ToQuery GetStackPolicy where
-- /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 @@ data GetStackPolicyResponse = GetStackPolicyResponse'
--
-- * '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' GetStackPolicyResponse (Maybe Text)
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
index 15a39f4..9a03304 100644
--- a/gen/Network/AWS/CloudFormation/GetTemplate.hs
+++ b/gen/Network/AWS/CloudFormation/GetTemplate.hs
@@ -40,7 +40,7 @@ module Network.AWS.CloudFormation.GetTemplate
, GetTemplateResponse
-- * Response Lenses
, gtrsTemplateBody
- , gtrsStatus
+ , gtrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -106,8 +106,8 @@ instance ToQuery GetTemplate where
--
-- /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 @@ data GetTemplateResponse = GetTemplateResponse'
--
-- * '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' GetTemplateResponse (Maybe Text)
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
index 5abf2e6..d00a53e 100644
--- a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs
+++ b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs
@@ -46,12 +46,12 @@ module Network.AWS.CloudFormation.GetTemplateSummary
, GetTemplateSummaryResponse
-- * Response Lenses
, gtsrsVersion
- , gtsrsParameters
, gtsrsCapabilitiesReason
+ , gtsrsParameters
, gtsrsMetadata
- , gtsrsCapabilities
, gtsrsDescription
- , gtsrsStatus
+ , gtsrsCapabilities
+ , gtsrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -127,15 +127,15 @@ instance AWSRequest GetTemplateSummary where
= 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 @@ instance ToQuery GetTemplateSummary where
-- /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 @@ data GetTemplateSummaryResponse = GetTemplateSummaryResponse'
--
-- * '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 @@ getTemplateSummaryResponse pStatus_ =
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 @@ gtsrsMetadata = lens _gtsrsMetadata (\ s a -> s{_gtsrsMetadata = a});
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
index 691dcab..8b71b3c 100644
--- a/gen/Network/AWS/CloudFormation/ListStackResources.hs
+++ b/gen/Network/AWS/CloudFormation/ListStackResources.hs
@@ -41,7 +41,7 @@ module Network.AWS.CloudFormation.ListStackResources
-- * Response Lenses
, lsrrsNextToken
, lsrrsStackResourceSummaries
- , lsrrsStatus
+ , lsrrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -133,7 +133,7 @@ instance ToQuery ListStackResources where
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 @@ data ListStackResourcesResponse = ListStackResourcesResponse'
--
-- * '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' ListStackResourcesResponse [StackResourceSu
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
index 596216f..b6643a6 100644
--- a/gen/Network/AWS/CloudFormation/ListStacks.hs
+++ b/gen/Network/AWS/CloudFormation/ListStacks.hs
@@ -40,9 +40,9 @@ module Network.AWS.CloudFormation.ListStacks
, listStacksResponse
, ListStacksResponse
-- * Response Lenses
- , lsrsStackSummaries
, lsrsNextToken
- , lsrsStatus
+ , lsrsStackSummaries
+ , lsrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -103,9 +103,9 @@ instance AWSRequest ListStacks where
= 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 @@ instance ToQuery ListStacks where
--
-- /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
index fe47177..8067035 100644
--- a/gen/Network/AWS/CloudFormation/Types.hs
+++ b/gen/Network/AWS/CloudFormation/Types.hs
@@ -17,8 +17,8 @@ module Network.AWS.CloudFormation.Types
-- * Errors
, _InsufficientCapabilitiesException
- , _LimitExceededException
, _AlreadyExistsException
+ , _LimitExceededException
-- * Capability
, Capability (..)
@@ -74,8 +74,8 @@ module Network.AWS.CloudFormation.Types
, sOutputs
, sParameters
, sStackId
- , sCapabilities
, sDescription
+ , sCapabilities
, sTags
, sTimeoutInMinutes
, sStackName
@@ -86,9 +86,9 @@ module Network.AWS.CloudFormation.Types
, StackEvent
, stackEvent
, seLogicalResourceId
- , seResourceStatusReason
- , seResourceType
, sePhysicalResourceId
+ , seResourceType
+ , seResourceStatusReason
, seResourceProperties
, seResourceStatus
, seStackId
@@ -99,8 +99,8 @@ module Network.AWS.CloudFormation.Types
-- * StackResource
, StackResource
, stackResource
- , srResourceStatusReason
, srPhysicalResourceId
+ , srResourceStatusReason
, srStackId
, srDescription
, srStackName
@@ -112,8 +112,8 @@ module Network.AWS.CloudFormation.Types
-- * StackResourceDetail
, StackResourceDetail
, stackResourceDetail
- , srdResourceStatusReason
, srdPhysicalResourceId
+ , srdResourceStatusReason
, srdMetadata
, srdStackId
, srdDescription
@@ -126,8 +126,8 @@ module Network.AWS.CloudFormation.Types
-- * StackResourceSummary
, StackResourceSummary
, stackResourceSummary
- , srsResourceStatusReason
, srsPhysicalResourceId
+ , srsResourceStatusReason
, srsLogicalResourceId
, srsResourceType
, srsLastUpdatedTimestamp
@@ -137,8 +137,8 @@ module Network.AWS.CloudFormation.Types
, StackSummary
, stackSummary
, ssLastUpdatedTime
- , ssTemplateDescription
, ssStackStatusReason
+ , ssTemplateDescription
, ssDeletionTime
, ssStackId
, ssStackName
@@ -202,12 +202,12 @@ _InsufficientCapabilitiesException :: AsError a => Getting (First ServiceError)
_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
index 6aebb3d..723bfdb 100644
--- a/gen/Network/AWS/CloudFormation/Types/Product.hs
+++ b/gen/Network/AWS/CloudFormation/Types/Product.hs
@@ -236,8 +236,8 @@ data Stack = Stack'
, _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 @@ data Stack = Stack'
--
-- * 'sStackId'
--
--- * 'sCapabilities'
---
-- * 'sDescription'
--
+-- * 'sCapabilities'
+--
-- * 'sTags'
--
-- * 'sTimeoutInMinutes'
@@ -290,8 +290,8 @@ stack pStackName_ pCreationTime_ pStackStatus_ =
, _sOutputs = Nothing
, _sParameters = Nothing
, _sStackId = Nothing
- , _sCapabilities = Nothing
, _sDescription = Nothing
+ , _sCapabilities = Nothing
, _sTags = Nothing
, _sTimeoutInMinutes = Nothing
, _sStackName = pStackName_
@@ -331,14 +331,14 @@ sParameters = lens _sParameters (\ s a -> s{_sParameters = a}) . _Default . _Coe
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 @@ instance FromXML Stack where
(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 @@ instance FromXML Stack where
-- /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 @@ data StackEvent = StackEvent'
--
-- * 'seLogicalResourceId'
--
--- * 'seResourceStatusReason'
+-- * 'sePhysicalResourceId'
--
-- * 'seResourceType'
--
--- * 'sePhysicalResourceId'
+-- * 'seResourceStatusReason'
--
-- * 'seResourceProperties'
--
@@ -435,9 +435,9 @@ stackEvent
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 @@ stackEvent pStackId_ pEventId_ pStackName_ pTimestamp_ =
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 @@ seResourceStatusReason = lens _seResourceStatusReason (\ s a -> s{_seResourceSta
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 @@ instance FromXML StackEvent where
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 @@ instance FromXML StackEvent where
--
-- /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 @@ data StackResource = StackResource'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'srResourceStatusReason'
---
-- * 'srPhysicalResourceId'
--
+-- * 'srResourceStatusReason'
+--
-- * 'srStackId'
--
-- * 'srDescription'
@@ -547,8 +547,8 @@ stackResource
-> 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 @@ stackResource pLogicalResourceId_ pResourceType_ pTimestamp_ pResourceStatus_ =
, _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 @@ srResourceStatus = lens _srResourceStatus (\ s a -> s{_srResourceStatus = a});
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 @@ instance FromXML StackResource where
--
-- /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 @@ data StackResourceDetail = StackResourceDetail'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'srdResourceStatusReason'
---
-- * 'srdPhysicalResourceId'
--
+-- * 'srdResourceStatusReason'
+--
-- * 'srdMetadata'
--
-- * 'srdStackId'
@@ -657,8 +657,8 @@ stackResourceDetail
-> 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 @@ stackResourceDetail pLogicalResourceId_ pResourceType_ pLastUpdatedTimestamp_ pR
, _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 @@ srdResourceStatus = lens _srdResourceStatus (\ s a -> s{_srdResourceStatus = a})
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 @@ instance FromXML StackResourceDetail where
--
-- /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 @@ data StackResourceSummary = StackResourceSummary'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'srsResourceStatusReason'
---
-- * 'srsPhysicalResourceId'
--
+-- * 'srsResourceStatusReason'
+--
-- * 'srsLogicalResourceId'
--
-- * 'srsResourceType'
@@ -764,23 +764,23 @@ stackResourceSummary
-> 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 @@ srsResourceStatus = lens _srsResourceStatus (\ s a -> s{_srsResourceStatus = a})
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 @@ instance FromXML StackResourceSummary where
-- /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 @@ data StackSummary = StackSummary'
--
-- * 'ssLastUpdatedTime'
--
--- * 'ssTemplateDescription'
---
-- * 'ssStackStatusReason'
--
+-- * 'ssTemplateDescription'
+--
-- * 'ssDeletionTime'
--
-- * 'ssStackId'
@@ -850,8 +850,8 @@ stackSummary
stackSummary pStackName_ pCreationTime_ pStackStatus_ =
StackSummary'
{ _ssLastUpdatedTime = Nothing
- , _ssTemplateDescription = Nothing
, _ssStackStatusReason = Nothing
+ , _ssTemplateDescription = Nothing
, _ssDeletionTime = Nothing
, _ssStackId = Nothing
, _ssStackName = pStackName_
@@ -864,14 +864,14 @@ stackSummary pStackName_ pCreationTime_ pStackStatus_ =
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 @@ instance FromXML StackSummary where
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
index 79e520c..6289467 100644
--- a/gen/Network/AWS/CloudFormation/UpdateStack.hs
+++ b/gen/Network/AWS/CloudFormation/UpdateStack.hs
@@ -56,7 +56,7 @@ module Network.AWS.CloudFormation.UpdateStack
, UpdateStackResponse
-- * Response Lenses
, usrsStackId
- , usrsStatus
+ , usrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -275,8 +275,8 @@ instance ToQuery UpdateStack where
--
-- /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 @@ data UpdateStackResponse = UpdateStackResponse'
--
-- * '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' UpdateStackResponse (Maybe Text)
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
index f253f8e..b58285b 100644
--- a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs
+++ b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs
@@ -34,11 +34,11 @@ module Network.AWS.CloudFormation.ValidateTemplate
, validateTemplateResponse
, ValidateTemplateResponse
-- * Response Lenses
- , vtrsParameters
, vtrsCapabilitiesReason
- , vtrsCapabilities
+ , vtrsParameters
, vtrsDescription
- , vtrsStatus
+ , vtrsCapabilities
+ , vtrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
@@ -98,13 +98,13 @@ instance AWSRequest ValidateTemplate where
= 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 @@ instance ToQuery ValidateTemplate where
--
-- /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 @@ vtrsCapabilitiesReason = lens _vtrsCapabilitiesReason (\ s a -> s{_vtrsCapabilit
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
index 04fca56..71bd216 100644
--- a/test/Test/AWS/Gen/CloudFormation.hs
+++ b/test/Test/AWS/Gen/CloudFormation.hs
@@ -40,36 +40,36 @@ import Test.AWS.CloudFormation.Internal
-- , 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 @@ import Test.AWS.CloudFormation.Internal
-- , 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 @@ testListStackResources = req
"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 @@ testCancelUpdateStack = req
"CancelUpdateStack"
"fixture/CancelUpdateStack.yaml"
-testSetStackPolicy :: SetStackPolicy -> TestTree
-testSetStackPolicy = req
- "SetStackPolicy"
- "fixture/SetStackPolicy.yaml"
-
testDescribeStackEvents :: DescribeStackEvents -> TestTree
testDescribeStackEvents = req
"DescribeStackEvents"
@@ -193,21 +188,26 @@ testSignalResource = req
"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 @@ testListStackResourcesResponse = res
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 @@ testGetStackPolicyResponse = res
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 @@ testCancelUpdateStackResponse = res
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 @@ testSignalResourceResponse = res
cloudFormation
(Proxy :: Proxy SignalResource)
+testSetStackPolicyResponse :: SetStackPolicyResponse -> TestTree
+testSetStackPolicyResponse = res
+ "SetStackPolicyResponse"
+ "fixture/SetStackPolicyResponse.proto"
+ cloudFormation
+ (Proxy :: Proxy SetStackPolicy)
+
testListStacksResponse :: ListStacksResponse -> TestTree
testListStacksResponse = res
"ListStacksResponse"
@@ -309,13 +309,6 @@ testListStacksResponse = res
cloudFormation
(Proxy :: Proxy ListStacks)
-testCreateStackResponse :: CreateStackResponse -> TestTree
-testCreateStackResponse = res
- "CreateStackResponse"
- "fixture/CreateStackResponse.proto"
- cloudFormation
- (Proxy :: Proxy CreateStack)
-
testDescribeStackResourcesResponse :: DescribeStackResourcesResponse -> TestTree
testDescribeStackResourcesResponse = res
"DescribeStackResourcesResponse"
@@ -323,6 +316,13 @@ testDescribeStackResourcesResponse = res
cloudFormation
(Proxy :: Proxy DescribeStackResources)
+testCreateStackResponse :: CreateStackResponse -> TestTree
+testCreateStackResponse = res
+ "CreateStackResponse"
+ "fixture/CreateStackResponse.proto"
+ cloudFormation
+ (Proxy :: Proxy CreateStack)
+
testEstimateTemplateCostResponse :: EstimateTemplateCostResponse -> TestTree
testEstimateTemplateCostResponse = res
"EstimateTemplateCostResponse"