diff --git a/amazonka-cloudformation.cabal b/amazonka-cloudformation.cabal --- a/amazonka-cloudformation.cabal +++ b/amazonka-cloudformation.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudformation -version: 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 diff --git a/gen/Network/AWS/CloudFormation/CreateStack.hs b/gen/Network/AWS/CloudFormation/CreateStack.hs --- a/gen/Network/AWS/CloudFormation/CreateStack.hs +++ b/gen/Network/AWS/CloudFormation/CreateStack.hs @@ -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 diff --git a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs --- a/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs +++ b/gen/Network/AWS/CloudFormation/GetTemplateSummary.hs @@ -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. diff --git a/gen/Network/AWS/CloudFormation/ListStacks.hs b/gen/Network/AWS/CloudFormation/ListStacks.hs --- a/gen/Network/AWS/CloudFormation/ListStacks.hs +++ b/gen/Network/AWS/CloudFormation/ListStacks.hs @@ -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 diff --git a/gen/Network/AWS/CloudFormation/SignalResource.hs b/gen/Network/AWS/CloudFormation/SignalResource.hs --- a/gen/Network/AWS/CloudFormation/SignalResource.hs +++ b/gen/Network/AWS/CloudFormation/SignalResource.hs @@ -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 diff --git a/gen/Network/AWS/CloudFormation/Types.hs b/gen/Network/AWS/CloudFormation/Types.hs --- a/gen/Network/AWS/CloudFormation/Types.hs +++ b/gen/Network/AWS/CloudFormation/Types.hs @@ -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 diff --git a/gen/Network/AWS/CloudFormation/UpdateStack.hs b/gen/Network/AWS/CloudFormation/UpdateStack.hs --- a/gen/Network/AWS/CloudFormation/UpdateStack.hs +++ b/gen/Network/AWS/CloudFormation/UpdateStack.hs @@ -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 diff --git a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs --- a/gen/Network/AWS/CloudFormation/ValidateTemplate.hs +++ b/gen/Network/AWS/CloudFormation/ValidateTemplate.hs @@ -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.