{-# LANGUAGE OverloadedStrings #-} -- 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 Configuration cloudFormation -- * Errors , _InsufficientCapabilitiesException , _AlreadyExistsException , _LimitExceededException -- * Capability , Capability (..) -- * OnFailure , OnFailure (..) -- * ResourceSignalStatus , ResourceSignalStatus (..) -- * ResourceStatus , ResourceStatus (..) -- * StackStatus , StackStatus (..) -- * AccountLimit , AccountLimit , accountLimit , alValue , alName -- * 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 , sDescription , sCapabilities , sTags , sTimeoutInMinutes , sStackName , sCreationTime , sStackStatus -- * StackEvent , StackEvent , stackEvent , seLogicalResourceId , sePhysicalResourceId , seResourceType , seResourceStatusReason , seResourceProperties , seResourceStatus , seStackId , seEventId , seStackName , seTimestamp -- * StackResource , StackResource , stackResource , srPhysicalResourceId , srResourceStatusReason , srStackId , srDescription , srStackName , srLogicalResourceId , srResourceType , srTimestamp , srResourceStatus -- * StackResourceDetail , StackResourceDetail , stackResourceDetail , srdPhysicalResourceId , srdResourceStatusReason , srdMetadata , srdStackId , srdDescription , srdStackName , srdLogicalResourceId , srdResourceType , srdLastUpdatedTimestamp , srdResourceStatus -- * StackResourceSummary , StackResourceSummary , stackResourceSummary , srsPhysicalResourceId , srsResourceStatusReason , srsLogicalResourceId , srsResourceType , srsLastUpdatedTimestamp , srsResourceStatus -- * StackSummary , StackSummary , stackSummary , ssLastUpdatedTime , ssStackStatusReason , ssTemplateDescription , 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 -- | API version '2010-05-15' of the Amazon CloudFormation SDK configuration. cloudFormation :: Service cloudFormation = Service { _svcAbbrev = "CloudFormation" , _svcSigner = v4 , _svcPrefix = "cloudformation" , _svcVersion = "2010-05-15" , _svcEndpoint = defaultEndpoint cloudFormation , _svcTimeout = Just 70 , _svcCheck = statusSuccess , _svcError = parseXMLError , _svcRetry = retry } where 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" -- | 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"