{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.OpsWorks.Types
(
opsWorks
, _ValidationException
, _ResourceNotFoundException
, AppAttributesKeys (..)
, AppType (..)
, Architecture (..)
, AutoScalingType (..)
, CloudWatchLogsEncoding (..)
, CloudWatchLogsInitialPosition (..)
, CloudWatchLogsTimeZone (..)
, DeploymentCommandName (..)
, LayerAttributesKeys (..)
, LayerType (..)
, RootDeviceType (..)
, SourceType (..)
, StackAttributesKeys (..)
, VirtualizationType (..)
, VolumeType (..)
, AgentVersion
, agentVersion
, avVersion
, avConfigurationManager
, App
, app
, appSSLConfiguration
, appEnvironment
, appEnableSSL
, appCreatedAt
, appShortname
, appDataSources
, appAppSource
, appAppId
, appAttributes
, appName
, appType
, appStackId
, appDomains
, appDescription
, AutoScalingThresholds
, autoScalingThresholds
, astInstanceCount
, astIgnoreMetricsTime
, astLoadThreshold
, astThresholdsWaitTime
, astAlarms
, astMemoryThreshold
, astCPUThreshold
, BlockDeviceMapping
, blockDeviceMapping
, bdmVirtualName
, bdmNoDevice
, bdmEBS
, bdmDeviceName
, ChefConfiguration
, chefConfiguration
, ccBerkshelfVersion
, ccManageBerkshelf
, CloudWatchLogsConfiguration
, cloudWatchLogsConfiguration
, cwlcEnabled
, cwlcLogStreams
, CloudWatchLogsLogStream
, cloudWatchLogsLogStream
, cwllsBatchCount
, cwllsFileFingerprintLines
, cwllsBufferDuration
, cwllsBatchSize
, cwllsLogGroupName
, cwllsMultiLineStartPattern
, cwllsInitialPosition
, cwllsDatetimeFormat
, cwllsEncoding
, cwllsTimeZone
, cwllsFile
, Command
, command
, cDeploymentId
, cInstanceId
, cStatus
, cLogURL
, cCreatedAt
, cCommandId
, cExitCode
, cType
, cCompletedAt
, cAcknowledgedAt
, DataSource
, dataSource
, dsARN
, dsDatabaseName
, dsType
, Deployment
, deployment
, dDeploymentId
, dStatus
, dCommand
, dCreatedAt
, dCustomJSON
, dIAMUserARN
, dAppId
, dInstanceIds
, dCompletedAt
, dStackId
, dComment
, dDuration
, DeploymentCommand
, deploymentCommand
, dcArgs
, dcName
, EBSBlockDevice
, ebsBlockDevice
, ebdDeleteOnTermination
, ebdVolumeSize
, ebdIOPS
, ebdVolumeType
, ebdSnapshotId
, EcsCluster
, ecsCluster
, ecEcsClusterARN
, ecEcsClusterName
, ecRegisteredAt
, ecStackId
, ElasticIP
, elasticIP
, eiInstanceId
, eiDomain
, eiIP
, eiName
, eiRegion
, ElasticLoadBalancer
, elasticLoadBalancer
, elbSubnetIds
, elbVPCId
, elbAvailabilityZones
, elbRegion
, elbElasticLoadBalancerName
, elbStackId
, elbEC2InstanceIds
, elbLayerId
, elbDNSName
, EnvironmentVariable
, environmentVariable
, evSecure
, evKey
, evValue
, Instance
, instance'
, iPrivateDNS
, iReportedAgentVersion
, iInstanceId
, iStatus
, iPrivateIP
, iInstallUpdatesOnBoot
, iVirtualizationType
, iInstanceProfileARN
, iPlatform
, iHostname
, iSSHHostRsaKeyFingerprint
, iSecurityGroupIds
, iEcsClusterARN
, iARN
, iCreatedAt
, iEC2InstanceId
, iSSHKeyName
, iAgentVersion
, iRootDeviceVolumeId
, iSubnetId
, iInfrastructureClass
, iSSHHostDsaKeyFingerprint
, iInstanceType
, iEBSOptimized
, iElasticIP
, iOS
, iAvailabilityZone
, iLastServiceErrorId
, iTenancy
, iAutoScalingType
, iLayerIds
, iArchitecture
, iPublicDNS
, iAMIId
, iPublicIP
, iReportedOS
, iRegisteredBy
, iStackId
, iRootDeviceType
, iEcsContainerInstanceARN
, iBlockDeviceMappings
, InstanceIdentity
, instanceIdentity
, iiSignature
, iiDocument
, InstancesCount
, instancesCount
, icTerminating
, icPending
, icOnline
, icUnassigning
, icDeregistering
, icRunningSetup
, icRequested
, icStopFailed
, icBooting
, icStopped
, icRebooting
, icAssigning
, icShuttingDown
, icSetupFailed
, icConnectionLost
, icTerminated
, icStopping
, icRegistered
, icStartFailed
, icRegistering
, Layer
, layer
, lCustomInstanceProfileARN
, lCustomSecurityGroupIds
, lInstallUpdatesOnBoot
, lCloudWatchLogsConfiguration
, lLifecycleEventConfiguration
, lARN
, lCreatedAt
, lShortname
, lDefaultRecipes
, lCustomRecipes
, lCustomJSON
, lVolumeConfigurations
, lEnableAutoHealing
, lPackages
, lAttributes
, lName
, lAutoAssignPublicIPs
, lType
, lUseEBSOptimizedInstances
, lStackId
, lLayerId
, lDefaultSecurityGroupNames
, lAutoAssignElasticIPs
, LifecycleEventConfiguration
, lifecycleEventConfiguration
, lecShutdown
, LoadBasedAutoScalingConfiguration
, loadBasedAutoScalingConfiguration
, lbascUpScaling
, lbascEnable
, lbascDownScaling
, lbascLayerId
, OperatingSystem
, operatingSystem
, osReportedVersion
, osSupported
, osName
, osId
, osConfigurationManagers
, osType
, osReportedName
, OperatingSystemConfigurationManager
, operatingSystemConfigurationManager
, oscmName
, oscmVersion
, Permission
, permission
, pIAMUserARN
, pAllowSudo
, pStackId
, pLevel
, pAllowSSH
, RAIdArray
, rAIdArray
, raiaInstanceId
, raiaSize
, raiaIOPS
, raiaCreatedAt
, raiaRAIdLevel
, raiaDevice
, raiaNumberOfDisks
, raiaAvailabilityZone
, raiaName
, raiaRAIdArrayId
, raiaVolumeType
, raiaStackId
, raiaMountPoint
, RDSDBInstance
, rdsDBInstance
, rdiRDSDBInstanceARN
, rdiDBUser
, rdiMissingOnRDS
, rdiEngine
, rdiAddress
, rdiDBInstanceIdentifier
, rdiRegion
, rdiStackId
, rdiDBPassword
, Recipes
, recipes
, rSetup
, rShutdown
, rUndeploy
, rConfigure
, rDeploy
, ReportedOS
, reportedOS
, roFamily
, roName
, roVersion
, SSLConfiguration
, sslConfiguration
, scPrivateKey
, scCertificate
, scChain
, SelfUserProfile
, selfUserProfile
, supSSHPublicKey
, supSSHUsername
, supIAMUserARN
, supName
, ServiceError'
, serviceError'
, seInstanceId
, seCreatedAt
, seServiceErrorId
, seType
, seStackId
, seMessage
, ShutdownEventConfiguration
, shutdownEventConfiguration
, secExecutionTimeout
, secDelayUntilElbConnectionsDrained
, Source
, source
, sURL
, sUsername
, sSSHKey
, sPassword
, sType
, sRevision
, Stack
, stack
, sDefaultInstanceProfileARN
, sServiceRoleARN
, sDefaultRootDeviceType
, sARN
, sCreatedAt
, sVPCId
, sChefConfiguration
, sAgentVersion
, sDefaultSSHKeyName
, sCustomJSON
, sCustomCookbooksSource
, sDefaultAvailabilityZone
, sAttributes
, sName
, sDefaultOS
, sUseOpsworksSecurityGroups
, sUseCustomCookbooks
, sDefaultSubnetId
, sRegion
, sConfigurationManager
, sStackId
, sHostnameTheme
, StackConfigurationManager
, stackConfigurationManager
, scmName
, scmVersion
, StackSummary
, stackSummary
, ssARN
, ssAppsCount
, ssName
, ssStackId
, ssLayersCount
, ssInstancesCount
, TemporaryCredential
, temporaryCredential
, tcInstanceId
, tcUsername
, tcPassword
, tcValidForInMinutes
, TimeBasedAutoScalingConfiguration
, timeBasedAutoScalingConfiguration
, tbascInstanceId
, tbascAutoScalingSchedule
, UserProfile
, userProfile
, upAllowSelfManagement
, upSSHPublicKey
, upSSHUsername
, upIAMUserARN
, upName
, Volume
, volume
, vInstanceId
, vStatus
, vSize
, vIOPS
, vDevice
, vEncrypted
, vAvailabilityZone
, vName
, vRAIdArrayId
, vVolumeId
, vRegion
, vVolumeType
, vEC2VolumeId
, vMountPoint
, VolumeConfiguration
, volumeConfiguration
, vcIOPS
, vcRAIdLevel
, vcEncrypted
, vcVolumeType
, vcMountPoint
, vcNumberOfDisks
, vcSize
, WeeklyAutoScalingSchedule
, weeklyAutoScalingSchedule
, wassThursday
, wassWednesday
, wassSaturday
, wassMonday
, wassFriday
, wassSunday
, wassTuesday
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.OpsWorks.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
opsWorks :: Service
opsWorks =
Service
{ _svcAbbrev = "OpsWorks"
, _svcSigner = v4
, _svcPrefix = "opsworks"
, _svcVersion = "2013-02-18"
, _svcEndpoint = defaultEndpoint opsWorks
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "OpsWorks"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasCode "RequestThrottledException" . hasStatus 400) e =
Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError
_ValidationException = _MatchServiceError opsWorks "ValidationException"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_MatchServiceError opsWorks "ResourceNotFoundException"