{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.CloudFormation.Types -- Copyright : (c) 2013-2015 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudFormation.Types ( -- * Service CloudFormation -- * Errors , _InsufficientCapabilitiesException , _LimitExceededException , _AlreadyExistsException -- * Capability , Capability (..) -- * OnFailure , OnFailure (..) -- * ResourceSignalStatus , ResourceSignalStatus (..) -- * ResourceStatus , ResourceStatus (..) -- * StackStatus , StackStatus (..) -- * Output , Output , output , oOutputValue , oOutputKey , oDescription -- * Parameter , Parameter , parameter , pParameterValue , pParameterKey , pUsePreviousValue -- * ParameterConstraints , ParameterConstraints , parameterConstraints , pcAllowedValues -- * ParameterDeclaration , ParameterDeclaration , parameterDeclaration , pdParameterKey , pdParameterType , pdParameterConstraints , pdDefaultValue , pdNoEcho , pdDescription -- * Stack , Stack , stack , sDisableRollback , sLastUpdatedTime , sNotificationARNs , sStackStatusReason , sOutputs , sParameters , sStackId , sCapabilities , sDescription , sTags , sTimeoutInMinutes , sStackName , sCreationTime , sStackStatus -- * StackEvent , StackEvent , stackEvent , seLogicalResourceId , seResourceStatusReason , seResourceType , sePhysicalResourceId , seResourceProperties , seResourceStatus , seStackId , seEventId , seStackName , seTimestamp -- * StackResource , StackResource , stackResource , srResourceStatusReason , srPhysicalResourceId , srStackId , srDescription , srStackName , srLogicalResourceId , srResourceType , srTimestamp , srResourceStatus -- * StackResourceDetail , StackResourceDetail , stackResourceDetail , srdResourceStatusReason , srdPhysicalResourceId , srdMetadata , srdStackId , srdDescription , srdStackName , srdLogicalResourceId , srdResourceType , srdLastUpdatedTimestamp , srdResourceStatus -- * StackResourceSummary , StackResourceSummary , stackResourceSummary , srsResourceStatusReason , srsPhysicalResourceId , srsLogicalResourceId , srsResourceType , srsLastUpdatedTimestamp , srsResourceStatus -- * StackSummary , StackSummary , stackSummary , ssLastUpdatedTime , ssTemplateDescription , ssStackStatusReason , ssDeletionTime , ssStackId , ssStackName , ssCreationTime , ssStackStatus -- * Tag , Tag , tag , tagValue , tagKey -- * TemplateParameter , TemplateParameter , templateParameter , tpParameterKey , tpDefaultValue , tpNoEcho , tpDescription ) where import Network.AWS.CloudFormation.Types.Product import Network.AWS.CloudFormation.Types.Sum import Network.AWS.Prelude import Network.AWS.Sign.V4 -- | Version @2010-05-15@ of the Amazon CloudFormation SDK. data CloudFormation instance AWSService CloudFormation where type Sg CloudFormation = V4 service = const svc where svc = Service { _svcAbbrev = "CloudFormation" , _svcPrefix = "cloudformation" , _svcVersion = "2010-05-15" , _svcEndpoint = defaultEndpoint svc , _svcTimeout = Just 70 , _svcStatus = statusSuccess , _svcError = parseXMLError , _svcRetry = retry } retry = Exponential { _retryBase = 5.0e-2 , _retryGrowth = 2 , _retryAttempts = 5 , _retryCheck = check } check e | has (hasCode "ThrottlingException" . hasStatus 400) e = Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error" | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing -- | The template contains resources with capabilities that were not -- specified in the Capabilities parameter. _InsufficientCapabilitiesException :: AsError a => Getting (First ServiceError) a 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"