amazonka-cloudformation 0.0.0 → 0.0.1

raw patch · 8 files changed

+78/−68 lines, 8 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-cloudformation.cabal +3/−3
• gen/Network/AWS/CloudFormation/CreateStack.hs +6/−6
• gen/Network/AWS/CloudFormation/GetTemplateSummary.hs +3/−3
• gen/Network/AWS/CloudFormation/ListStacks.hs +4/−4
• gen/Network/AWS/CloudFormation/SignalResource.hs +5/−5
• gen/Network/AWS/CloudFormation/Types.hs +51/−41
• gen/Network/AWS/CloudFormation/UpdateStack.hs +3/−3
• gen/Network/AWS/CloudFormation/ValidateTemplate.hs +3/−3

@@ -1,5 +1,5 @@ name:                  amazonka-cloudformation-version:               0.0.0+version:               0.0.1 synopsis:              Amazon CloudFormation SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -65,5 +65,5 @@     other-modules:      build-depends:-          amazonka-core-        , base          >= 4.7 && < 5+          amazonka-core == 0.0.1.*+        , base          >= 4.7     && < 5

@@ -59,10 +59,10 @@ import qualified GHC.Exts  data CreateStack = CreateStack-    { _csCapabilities     :: List "Capabilities" Text+    { _csCapabilities     :: List "Capabilities" Capability     , _csDisableRollback  :: Maybe Bool     , _csNotificationARNs :: List "NotificationARNs" Text-    , _csOnFailure        :: Maybe Text+    , _csOnFailure        :: Maybe OnFailure     , _csParameters       :: List "Parameters" Parameter     , _csStackName        :: Text     , _csStackPolicyBody  :: Maybe Text@@ -77,13 +77,13 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'csCapabilities' @::@ ['Text']+-- * 'csCapabilities' @::@ ['Capability'] -- -- * 'csDisableRollback' @::@ 'Maybe' 'Bool' -- -- * 'csNotificationARNs' @::@ ['Text'] ----- * 'csOnFailure' @::@ 'Maybe' 'Text'+-- * 'csOnFailure' @::@ 'Maybe' 'OnFailure' -- -- * 'csParameters' @::@ ['Parameter'] --@@ -130,7 +130,7 @@ -- resources, we recommend that you review any permissions associated with -- them. If you don't specify this parameter, this action returns an -- InsufficientCapabilities error.-csCapabilities :: Lens' CreateStack [Text]+csCapabilities :: Lens' CreateStack [Capability] csCapabilities = lens _csCapabilities (\s a -> s { _csCapabilities = a }) . _List  -- | Set to true to disable rollback of the stack if stack creation failed.@@ -151,7 +151,7 @@ -- | Determines what action will be taken if stack creation fails. This must -- be one of: DO_NOTHING, ROLLBACK, or DELETE. You can specify either -- OnFailure or DisableRollback, but not both. Default: ROLLBACK.-csOnFailure :: Lens' CreateStack (Maybe Text)+csOnFailure :: Lens' CreateStack (Maybe OnFailure) csOnFailure = lens _csOnFailure (\s a -> s { _csOnFailure = a })  -- | A list of Parameter structures that specify input parameters for the

@@ -106,7 +106,7 @@ gtsTemplateURL = lens _gtsTemplateURL (\s a -> s { _gtsTemplateURL = a })  data GetTemplateSummaryResponse = GetTemplateSummaryResponse-    { _gtsrCapabilities       :: List "Capabilities" Text+    { _gtsrCapabilities       :: List "Capabilities" Capability     , _gtsrCapabilitiesReason :: Maybe Text     , _gtsrDescription        :: Maybe Text     , _gtsrParameters         :: List "Parameters" ParameterDeclaration@@ -117,7 +117,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'gtsrCapabilities' @::@ ['Text']+-- * 'gtsrCapabilities' @::@ ['Capability'] -- -- * 'gtsrCapabilitiesReason' @::@ 'Maybe' 'Text' --@@ -142,7 +142,7 @@ -- parameter when you use the CreateStack or UpdateStack actions with your -- template; otherwise, those actions return an InsufficientCapabilities -- error.-gtsrCapabilities :: Lens' GetTemplateSummaryResponse [Text]+gtsrCapabilities :: Lens' GetTemplateSummaryResponse [Capability] gtsrCapabilities = lens _gtsrCapabilities (\s a -> s { _gtsrCapabilities = a }) . _List  -- | The capabilities reason found within the template.

@@ -53,8 +53,8 @@  data ListStacks = ListStacks     { _lsNextToken         :: Maybe Text-    , _lsStackStatusFilter :: List "StackStatusFilter" Text-    } deriving (Eq, Ord, Show)+    , _lsStackStatusFilter :: List "StackStatusFilter" StackStatus+    } deriving (Eq, Show)  -- | 'ListStacks' constructor. --@@ -62,7 +62,7 @@ -- -- * 'lsNextToken' @::@ 'Maybe' 'Text' ----- * 'lsStackStatusFilter' @::@ ['Text']+-- * 'lsStackStatusFilter' @::@ ['StackStatus'] -- listStacks :: ListStacks listStacks = ListStacks@@ -79,7 +79,7 @@ -- to list only stacks with the specified status codes. For a complete list -- of stack status codes, see the StackStatus parameter of the Stack data -- type.-lsStackStatusFilter :: Lens' ListStacks [Text]+lsStackStatusFilter :: Lens' ListStacks [StackStatus] lsStackStatusFilter =     lens _lsStackStatusFilter (\s a -> s { _lsStackStatusFilter = a })         . _List

@@ -54,9 +54,9 @@ data SignalResource = SignalResource     { _srLogicalResourceId :: Text     , _srStackName         :: Text-    , _srStatus            :: Text+    , _srStatus            :: ResourceSignalStatus     , _srUniqueId          :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'SignalResource' constructor. --@@ -66,14 +66,14 @@ -- -- * 'srStackName' @::@ 'Text' ----- * 'srStatus' @::@ 'Text'+-- * 'srStatus' @::@ 'ResourceSignalStatus' -- -- * 'srUniqueId' @::@ 'Text' -- signalResource :: Text -- ^ 'srStackName'                -> Text -- ^ 'srLogicalResourceId'                -> Text -- ^ 'srUniqueId'-               -> Text -- ^ 'srStatus'+               -> ResourceSignalStatus -- ^ 'srStatus'                -> SignalResource signalResource p1 p2 p3 p4 = SignalResource     { _srStackName         = p1@@ -95,7 +95,7 @@ -- | The status of the signal, which is either success or failure. A failure -- signal causes AWS CloudFormation to immediately fail the stack creation -- or update.-srStatus :: Lens' SignalResource Text+srStatus :: Lens' SignalResource ResourceSignalStatus srStatus = lens _srStatus (\s a -> s { _srStatus = a })  -- | A unique ID of the signal. When you signal Amazon EC2 instances or Auto

@@ -288,24 +288,26 @@         UpdateRollbackFailed                    -> "UPDATE_ROLLBACK_FAILED"         UpdateRollbackInProgress                -> "UPDATE_ROLLBACK_IN_PROGRESS" +instance ToByteString StackStatus+instance ToHeader     StackStatus+instance ToQuery      StackStatus+ instance FromXML StackStatus where     parseXML = parseXMLText "StackStatus" -instance ToQuery StackStatus where-    toQuery = toQuery . toText  data StackEvent = StackEvent     { _seEventId              :: Text     , _seLogicalResourceId    :: Maybe Text     , _sePhysicalResourceId   :: Maybe Text     , _seResourceProperties   :: Maybe Text-    , _seResourceStatus       :: Maybe Text+    , _seResourceStatus       :: Maybe ResourceStatus     , _seResourceStatusReason :: Maybe Text     , _seResourceType         :: Maybe Text     , _seStackId              :: Text     , _seStackName            :: Text     , _seTimestamp            :: RFC822-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StackEvent' constructor. --@@ -319,7 +321,7 @@ -- -- * 'seResourceProperties' @::@ 'Maybe' 'Text' ----- * 'seResourceStatus' @::@ 'Maybe' 'Text'+-- * 'seResourceStatus' @::@ 'Maybe' 'ResourceStatus' -- -- * 'seResourceStatusReason' @::@ 'Maybe' 'Text' --@@ -370,7 +372,7 @@     lens _seResourceProperties (\s a -> s { _seResourceProperties = a })  -- | Current status of the resource.-seResourceStatus :: Lens' StackEvent (Maybe Text)+seResourceStatus :: Lens' StackEvent (Maybe ResourceStatus) seResourceStatus = lens _seResourceStatus (\s a -> s { _seResourceStatus = a })  -- | Success/failure message associated with the resource.@@ -428,10 +430,10 @@     , _ssLastUpdatedTime     :: Maybe RFC822     , _ssStackId             :: Maybe Text     , _ssStackName           :: Text-    , _ssStackStatus         :: Text+    , _ssStackStatus         :: StackStatus     , _ssStackStatusReason   :: Maybe Text     , _ssTemplateDescription :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StackSummary' constructor. --@@ -447,7 +449,7 @@ -- -- * 'ssStackName' @::@ 'Text' ----- * 'ssStackStatus' @::@ 'Text'+-- * 'ssStackStatus' @::@ 'StackStatus' -- -- * 'ssStackStatusReason' @::@ 'Maybe' 'Text' --@@ -455,7 +457,7 @@ -- stackSummary :: Text -- ^ 'ssStackName'              -> UTCTime -- ^ 'ssCreationTime'-             -> Text -- ^ 'ssStackStatus'+             -> StackStatus -- ^ 'ssStackStatus'              -> StackSummary stackSummary p1 p2 p3 = StackSummary     { _ssStackName           = p1@@ -492,7 +494,7 @@ ssStackName = lens _ssStackName (\s a -> s { _ssStackName = a })  -- | The current status of the stack.-ssStackStatus :: Lens' StackSummary Text+ssStackStatus :: Lens' StackSummary StackStatus ssStackStatus = lens _ssStackStatus (\s a -> s { _ssStackStatus = a })  -- | Success/Failure message associated with the stack status.@@ -534,12 +536,12 @@     , _srdLogicalResourceId    :: Text     , _srdMetadata             :: Maybe Text     , _srdPhysicalResourceId   :: Maybe Text-    , _srdResourceStatus       :: Text+    , _srdResourceStatus       :: ResourceStatus     , _srdResourceStatusReason :: Maybe Text     , _srdResourceType         :: Text     , _srdStackId              :: Maybe Text     , _srdStackName            :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StackResourceDetail' constructor. --@@ -555,7 +557,7 @@ -- -- * 'srdPhysicalResourceId' @::@ 'Maybe' 'Text' ----- * 'srdResourceStatus' @::@ 'Text'+-- * 'srdResourceStatus' @::@ 'ResourceStatus' -- -- * 'srdResourceStatusReason' @::@ 'Maybe' 'Text' --@@ -568,7 +570,7 @@ stackResourceDetail :: Text -- ^ 'srdLogicalResourceId'                     -> Text -- ^ 'srdResourceType'                     -> UTCTime -- ^ 'srdLastUpdatedTimestamp'-                    -> Text -- ^ 'srdResourceStatus'+                    -> ResourceStatus -- ^ 'srdResourceStatus'                     -> StackResourceDetail stackResourceDetail p1 p2 p3 p4 = StackResourceDetail     { _srdLogicalResourceId    = p1@@ -611,7 +613,7 @@     lens _srdPhysicalResourceId (\s a -> s { _srdPhysicalResourceId = a })  -- | Current status of the resource.-srdResourceStatus :: Lens' StackResourceDetail Text+srdResourceStatus :: Lens' StackResourceDetail ResourceStatus srdResourceStatus =     lens _srdResourceStatus (\s a -> s { _srdResourceStatus = a }) @@ -700,11 +702,13 @@         RSUpdateFailed     -> "UPDATE_FAILED"         RSUpdateInProgress -> "UPDATE_IN_PROGRESS" +instance ToByteString ResourceStatus+instance ToHeader     ResourceStatus+instance ToQuery      ResourceStatus+ instance FromXML ResourceStatus where     parseXML = parseXMLText "ResourceStatus" -instance ToQuery ResourceStatus where-    toQuery = toQuery . toText  data TemplateParameter = TemplateParameter     { _tpDefaultValue :: Maybe Text@@ -838,13 +842,13 @@     { _sr1Description          :: Maybe Text     , _sr1LogicalResourceId    :: Text     , _sr1PhysicalResourceId   :: Maybe Text-    , _sr1ResourceStatus       :: Text+    , _sr1ResourceStatus       :: ResourceStatus     , _sr1ResourceStatusReason :: Maybe Text     , _sr1ResourceType         :: Text     , _sr1StackId              :: Maybe Text     , _sr1StackName            :: Maybe Text     , _sr1Timestamp            :: RFC822-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StackResource' constructor. --@@ -856,7 +860,7 @@ -- -- * 'sr1PhysicalResourceId' @::@ 'Maybe' 'Text' ----- * 'sr1ResourceStatus' @::@ 'Text'+-- * 'sr1ResourceStatus' @::@ 'ResourceStatus' -- -- * 'sr1ResourceStatusReason' @::@ 'Maybe' 'Text' --@@ -871,7 +875,7 @@ stackResource :: Text -- ^ 'sr1LogicalResourceId'               -> Text -- ^ 'sr1ResourceType'               -> UTCTime -- ^ 'sr1Timestamp'-              -> Text -- ^ 'sr1ResourceStatus'+              -> ResourceStatus -- ^ 'sr1ResourceStatus'               -> StackResource stackResource p1 p2 p3 p4 = StackResource     { _sr1LogicalResourceId    = p1@@ -901,7 +905,7 @@     lens _sr1PhysicalResourceId (\s a -> s { _sr1PhysicalResourceId = a })  -- | Current status of the resource.-sr1ResourceStatus :: Lens' StackResource Text+sr1ResourceStatus :: Lens' StackResource ResourceStatus sr1ResourceStatus =     lens _sr1ResourceStatus (\s a -> s { _sr1ResourceStatus = a }) @@ -1004,10 +1008,10 @@     { _srsLastUpdatedTimestamp :: RFC822     , _srsLogicalResourceId    :: Text     , _srsPhysicalResourceId   :: Maybe Text-    , _srsResourceStatus       :: Text+    , _srsResourceStatus       :: ResourceStatus     , _srsResourceStatusReason :: Maybe Text     , _srsResourceType         :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StackResourceSummary' constructor. --@@ -1019,7 +1023,7 @@ -- -- * 'srsPhysicalResourceId' @::@ 'Maybe' 'Text' ----- * 'srsResourceStatus' @::@ 'Text'+-- * 'srsResourceStatus' @::@ 'ResourceStatus' -- -- * 'srsResourceStatusReason' @::@ 'Maybe' 'Text' --@@ -1028,7 +1032,7 @@ stackResourceSummary :: Text -- ^ 'srsLogicalResourceId'                      -> Text -- ^ 'srsResourceType'                      -> UTCTime -- ^ 'srsLastUpdatedTimestamp'-                     -> Text -- ^ 'srsResourceStatus'+                     -> ResourceStatus -- ^ 'srsResourceStatus'                      -> StackResourceSummary stackResourceSummary p1 p2 p3 p4 = StackResourceSummary     { _srsLogicalResourceId    = p1@@ -1057,7 +1061,7 @@     lens _srsPhysicalResourceId (\s a -> s { _srsPhysicalResourceId = a })  -- | Current status of the resource.-srsResourceStatus :: Lens' StackResourceSummary Text+srsResourceStatus :: Lens' StackResourceSummary ResourceStatus srsResourceStatus =     lens _srsResourceStatus (\s a -> s { _srsResourceStatus = a }) @@ -1102,11 +1106,13 @@ instance ToText Capability where     toText CapabilityIam = "CAPABILITY_IAM" +instance ToByteString Capability+instance ToHeader     Capability+instance ToQuery      Capability+ instance FromXML Capability where     parseXML = parseXMLText "Capability" -instance ToQuery Capability where-    toQuery = toQuery . toText  data ResourceSignalStatus     = Failure -- ^ FAILURE@@ -1124,14 +1130,16 @@         Failure -> "FAILURE"         Success -> "SUCCESS" +instance ToByteString ResourceSignalStatus+instance ToHeader     ResourceSignalStatus+instance ToQuery      ResourceSignalStatus+ instance FromXML ResourceSignalStatus where     parseXML = parseXMLText "ResourceSignalStatus" -instance ToQuery ResourceSignalStatus where-    toQuery = toQuery . toText  data Stack = Stack-    { _sCapabilities      :: List "Capabilities" Text+    { _sCapabilities      :: List "Capabilities" Capability     , _sCreationTime      :: RFC822     , _sDescription       :: Maybe Text     , _sDisableRollback   :: Maybe Bool@@ -1141,7 +1149,7 @@     , _sParameters        :: List "Parameters" Parameter     , _sStackId           :: Maybe Text     , _sStackName         :: Text-    , _sStackStatus       :: Text+    , _sStackStatus       :: StackStatus     , _sStackStatusReason :: Maybe Text     , _sTags              :: List "Tags" Tag     , _sTimeoutInMinutes  :: Maybe Nat@@ -1151,7 +1159,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'sCapabilities' @::@ ['Text']+-- * 'sCapabilities' @::@ ['Capability'] -- -- * 'sCreationTime' @::@ 'UTCTime' --@@ -1171,7 +1179,7 @@ -- -- * 'sStackName' @::@ 'Text' ----- * 'sStackStatus' @::@ 'Text'+-- * 'sStackStatus' @::@ 'StackStatus' -- -- * 'sStackStatusReason' @::@ 'Maybe' 'Text' --@@ -1181,7 +1189,7 @@ -- stack :: Text -- ^ 'sStackName'       -> UTCTime -- ^ 'sCreationTime'-      -> Text -- ^ 'sStackStatus'+      -> StackStatus -- ^ 'sStackStatus'       -> Stack stack p1 p2 p3 = Stack     { _sStackName         = p1@@ -1201,7 +1209,7 @@     }  -- | The capabilities allowed in the stack.-sCapabilities :: Lens' Stack [Text]+sCapabilities :: Lens' Stack [Capability] sCapabilities = lens _sCapabilities (\s a -> s { _sCapabilities = a }) . _List  -- | Time at which the stack was created.@@ -1245,7 +1253,7 @@ sStackName = lens _sStackName (\s a -> s { _sStackName = a })  -- | Current status of the stack.-sStackStatus :: Lens' Stack Text+sStackStatus :: Lens' Stack StackStatus sStackStatus = lens _sStackStatus (\s a -> s { _sStackStatus = a })  -- | Success/failure message associated with the stack status.@@ -1317,11 +1325,13 @@         DoNothing -> "DO_NOTHING"         Rollback  -> "ROLLBACK" +instance ToByteString OnFailure+instance ToHeader     OnFailure+instance ToQuery      OnFailure+ instance FromXML OnFailure where     parseXML = parseXMLText "OnFailure" -instance ToQuery OnFailure where-    toQuery = toQuery . toText  data Parameter = Parameter     { _pParameterKey     :: Maybe Text

@@ -63,7 +63,7 @@ import qualified GHC.Exts  data UpdateStack = UpdateStack-    { _usCapabilities                :: List "Capabilities" Text+    { _usCapabilities                :: List "Capabilities" Capability     , _usNotificationARNs            :: List "NotificationARNs" Text     , _usParameters                  :: List "Parameters" Parameter     , _usStackName                   :: Text@@ -80,7 +80,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'usCapabilities' @::@ ['Text']+-- * 'usCapabilities' @::@ ['Capability'] -- -- * 'usNotificationARNs' @::@ ['Text'] --@@ -130,7 +130,7 @@ -- resources, we recommend that you review any permissions associated with -- them. If you don't specify this parameter, this action returns an -- InsufficientCapabilities error.-usCapabilities :: Lens' UpdateStack [Text]+usCapabilities :: Lens' UpdateStack [Capability] usCapabilities = lens _usCapabilities (\s a -> s { _usCapabilities = a }) . _List  -- | Update the ARNs for the Amazon SNS topics that are associated with the

@@ -85,7 +85,7 @@ vtTemplateURL = lens _vtTemplateURL (\s a -> s { _vtTemplateURL = a })  data ValidateTemplateResponse = ValidateTemplateResponse-    { _vtrCapabilities       :: List "Capabilities" Text+    { _vtrCapabilities       :: List "Capabilities" Capability     , _vtrCapabilitiesReason :: Maybe Text     , _vtrDescription        :: Maybe Text     , _vtrParameters         :: List "Parameters" TemplateParameter@@ -95,7 +95,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'vtrCapabilities' @::@ ['Text']+-- * 'vtrCapabilities' @::@ ['Capability'] -- -- * 'vtrCapabilitiesReason' @::@ 'Maybe' 'Text' --@@ -117,7 +117,7 @@ -- parameter when you use the CreateStack or UpdateStack actions with your -- template; otherwise, those actions return an InsufficientCapabilities -- error.-vtrCapabilities :: Lens' ValidateTemplateResponse [Text]+vtrCapabilities :: Lens' ValidateTemplateResponse [Capability] vtrCapabilities = lens _vtrCapabilities (\s a -> s { _vtrCapabilities = a }) . _List  -- | The capabilities reason found within the template.