{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ElasticBeanstalk.Types.Product where
import Network.AWS.ElasticBeanstalk.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
data ApplicationDescription = ApplicationDescription'
{ _adApplicationARN :: !(Maybe Text)
, _adVersions :: !(Maybe [Text])
, _adDateUpdated :: !(Maybe ISO8601)
, _adDateCreated :: !(Maybe ISO8601)
, _adApplicationName :: !(Maybe Text)
, _adConfigurationTemplates :: !(Maybe [Text])
, _adResourceLifecycleConfig :: !(Maybe ApplicationResourceLifecycleConfig)
, _adDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationDescription
:: ApplicationDescription
applicationDescription =
ApplicationDescription'
{ _adApplicationARN = Nothing
, _adVersions = Nothing
, _adDateUpdated = Nothing
, _adDateCreated = Nothing
, _adApplicationName = Nothing
, _adConfigurationTemplates = Nothing
, _adResourceLifecycleConfig = Nothing
, _adDescription = Nothing
}
adApplicationARN :: Lens' ApplicationDescription (Maybe Text)
adApplicationARN = lens _adApplicationARN (\ s a -> s{_adApplicationARN = a})
adVersions :: Lens' ApplicationDescription [Text]
adVersions = lens _adVersions (\ s a -> s{_adVersions = a}) . _Default . _Coerce
adDateUpdated :: Lens' ApplicationDescription (Maybe UTCTime)
adDateUpdated = lens _adDateUpdated (\ s a -> s{_adDateUpdated = a}) . mapping _Time
adDateCreated :: Lens' ApplicationDescription (Maybe UTCTime)
adDateCreated = lens _adDateCreated (\ s a -> s{_adDateCreated = a}) . mapping _Time
adApplicationName :: Lens' ApplicationDescription (Maybe Text)
adApplicationName = lens _adApplicationName (\ s a -> s{_adApplicationName = a})
adConfigurationTemplates :: Lens' ApplicationDescription [Text]
adConfigurationTemplates = lens _adConfigurationTemplates (\ s a -> s{_adConfigurationTemplates = a}) . _Default . _Coerce
adResourceLifecycleConfig :: Lens' ApplicationDescription (Maybe ApplicationResourceLifecycleConfig)
adResourceLifecycleConfig = lens _adResourceLifecycleConfig (\ s a -> s{_adResourceLifecycleConfig = a})
adDescription :: Lens' ApplicationDescription (Maybe Text)
adDescription = lens _adDescription (\ s a -> s{_adDescription = a})
instance FromXML ApplicationDescription where
parseXML x
= ApplicationDescription' <$>
(x .@? "ApplicationArn") <*>
(x .@? "Versions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "DateUpdated")
<*> (x .@? "DateCreated")
<*> (x .@? "ApplicationName")
<*>
(x .@? "ConfigurationTemplates" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "ResourceLifecycleConfig")
<*> (x .@? "Description")
instance Hashable ApplicationDescription where
instance NFData ApplicationDescription where
newtype ApplicationDescriptionMessage = ApplicationDescriptionMessage'
{ _admApplication :: Maybe ApplicationDescription
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationDescriptionMessage
:: ApplicationDescriptionMessage
applicationDescriptionMessage =
ApplicationDescriptionMessage' {_admApplication = Nothing}
admApplication :: Lens' ApplicationDescriptionMessage (Maybe ApplicationDescription)
admApplication = lens _admApplication (\ s a -> s{_admApplication = a})
instance FromXML ApplicationDescriptionMessage where
parseXML x
= ApplicationDescriptionMessage' <$>
(x .@? "Application")
instance Hashable ApplicationDescriptionMessage where
instance NFData ApplicationDescriptionMessage where
data ApplicationMetrics = ApplicationMetrics'
{ _amRequestCount :: !(Maybe Int)
, _amLatency :: !(Maybe Latency)
, _amStatusCodes :: !(Maybe StatusCodes)
, _amDuration :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationMetrics
:: ApplicationMetrics
applicationMetrics =
ApplicationMetrics'
{ _amRequestCount = Nothing
, _amLatency = Nothing
, _amStatusCodes = Nothing
, _amDuration = Nothing
}
amRequestCount :: Lens' ApplicationMetrics (Maybe Int)
amRequestCount = lens _amRequestCount (\ s a -> s{_amRequestCount = a})
amLatency :: Lens' ApplicationMetrics (Maybe Latency)
amLatency = lens _amLatency (\ s a -> s{_amLatency = a})
amStatusCodes :: Lens' ApplicationMetrics (Maybe StatusCodes)
amStatusCodes = lens _amStatusCodes (\ s a -> s{_amStatusCodes = a})
amDuration :: Lens' ApplicationMetrics (Maybe Int)
amDuration = lens _amDuration (\ s a -> s{_amDuration = a})
instance FromXML ApplicationMetrics where
parseXML x
= ApplicationMetrics' <$>
(x .@? "RequestCount") <*> (x .@? "Latency") <*>
(x .@? "StatusCodes")
<*> (x .@? "Duration")
instance Hashable ApplicationMetrics where
instance NFData ApplicationMetrics where
data ApplicationResourceLifecycleConfig = ApplicationResourceLifecycleConfig'
{ _arlcVersionLifecycleConfig :: !(Maybe ApplicationVersionLifecycleConfig)
, _arlcServiceRole :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationResourceLifecycleConfig
:: ApplicationResourceLifecycleConfig
applicationResourceLifecycleConfig =
ApplicationResourceLifecycleConfig'
{_arlcVersionLifecycleConfig = Nothing, _arlcServiceRole = Nothing}
arlcVersionLifecycleConfig :: Lens' ApplicationResourceLifecycleConfig (Maybe ApplicationVersionLifecycleConfig)
arlcVersionLifecycleConfig = lens _arlcVersionLifecycleConfig (\ s a -> s{_arlcVersionLifecycleConfig = a})
arlcServiceRole :: Lens' ApplicationResourceLifecycleConfig (Maybe Text)
arlcServiceRole = lens _arlcServiceRole (\ s a -> s{_arlcServiceRole = a})
instance FromXML ApplicationResourceLifecycleConfig
where
parseXML x
= ApplicationResourceLifecycleConfig' <$>
(x .@? "VersionLifecycleConfig") <*>
(x .@? "ServiceRole")
instance Hashable ApplicationResourceLifecycleConfig
where
instance NFData ApplicationResourceLifecycleConfig
where
instance ToQuery ApplicationResourceLifecycleConfig
where
toQuery ApplicationResourceLifecycleConfig'{..}
= mconcat
["VersionLifecycleConfig" =:
_arlcVersionLifecycleConfig,
"ServiceRole" =: _arlcServiceRole]
data ApplicationVersionDescription = ApplicationVersionDescription'
{ _avdStatus :: !(Maybe ApplicationVersionStatus)
, _avdSourceBundle :: !(Maybe S3Location)
, _avdDateUpdated :: !(Maybe ISO8601)
, _avdDateCreated :: !(Maybe ISO8601)
, _avdVersionLabel :: !(Maybe Text)
, _avdSourceBuildInformation :: !(Maybe SourceBuildInformation)
, _avdApplicationName :: !(Maybe Text)
, _avdApplicationVersionARN :: !(Maybe Text)
, _avdBuildARN :: !(Maybe Text)
, _avdDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationVersionDescription
:: ApplicationVersionDescription
applicationVersionDescription =
ApplicationVersionDescription'
{ _avdStatus = Nothing
, _avdSourceBundle = Nothing
, _avdDateUpdated = Nothing
, _avdDateCreated = Nothing
, _avdVersionLabel = Nothing
, _avdSourceBuildInformation = Nothing
, _avdApplicationName = Nothing
, _avdApplicationVersionARN = Nothing
, _avdBuildARN = Nothing
, _avdDescription = Nothing
}
avdStatus :: Lens' ApplicationVersionDescription (Maybe ApplicationVersionStatus)
avdStatus = lens _avdStatus (\ s a -> s{_avdStatus = a})
avdSourceBundle :: Lens' ApplicationVersionDescription (Maybe S3Location)
avdSourceBundle = lens _avdSourceBundle (\ s a -> s{_avdSourceBundle = a})
avdDateUpdated :: Lens' ApplicationVersionDescription (Maybe UTCTime)
avdDateUpdated = lens _avdDateUpdated (\ s a -> s{_avdDateUpdated = a}) . mapping _Time
avdDateCreated :: Lens' ApplicationVersionDescription (Maybe UTCTime)
avdDateCreated = lens _avdDateCreated (\ s a -> s{_avdDateCreated = a}) . mapping _Time
avdVersionLabel :: Lens' ApplicationVersionDescription (Maybe Text)
avdVersionLabel = lens _avdVersionLabel (\ s a -> s{_avdVersionLabel = a})
avdSourceBuildInformation :: Lens' ApplicationVersionDescription (Maybe SourceBuildInformation)
avdSourceBuildInformation = lens _avdSourceBuildInformation (\ s a -> s{_avdSourceBuildInformation = a})
avdApplicationName :: Lens' ApplicationVersionDescription (Maybe Text)
avdApplicationName = lens _avdApplicationName (\ s a -> s{_avdApplicationName = a})
avdApplicationVersionARN :: Lens' ApplicationVersionDescription (Maybe Text)
avdApplicationVersionARN = lens _avdApplicationVersionARN (\ s a -> s{_avdApplicationVersionARN = a})
avdBuildARN :: Lens' ApplicationVersionDescription (Maybe Text)
avdBuildARN = lens _avdBuildARN (\ s a -> s{_avdBuildARN = a})
avdDescription :: Lens' ApplicationVersionDescription (Maybe Text)
avdDescription = lens _avdDescription (\ s a -> s{_avdDescription = a})
instance FromXML ApplicationVersionDescription where
parseXML x
= ApplicationVersionDescription' <$>
(x .@? "Status") <*> (x .@? "SourceBundle") <*>
(x .@? "DateUpdated")
<*> (x .@? "DateCreated")
<*> (x .@? "VersionLabel")
<*> (x .@? "SourceBuildInformation")
<*> (x .@? "ApplicationName")
<*> (x .@? "ApplicationVersionArn")
<*> (x .@? "BuildArn")
<*> (x .@? "Description")
instance Hashable ApplicationVersionDescription where
instance NFData ApplicationVersionDescription where
newtype ApplicationVersionDescriptionMessage = ApplicationVersionDescriptionMessage'
{ _avdmApplicationVersion :: Maybe ApplicationVersionDescription
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationVersionDescriptionMessage
:: ApplicationVersionDescriptionMessage
applicationVersionDescriptionMessage =
ApplicationVersionDescriptionMessage' {_avdmApplicationVersion = Nothing}
avdmApplicationVersion :: Lens' ApplicationVersionDescriptionMessage (Maybe ApplicationVersionDescription)
avdmApplicationVersion = lens _avdmApplicationVersion (\ s a -> s{_avdmApplicationVersion = a})
instance FromXML ApplicationVersionDescriptionMessage
where
parseXML x
= ApplicationVersionDescriptionMessage' <$>
(x .@? "ApplicationVersion")
instance Hashable
ApplicationVersionDescriptionMessage
where
instance NFData ApplicationVersionDescriptionMessage
where
data ApplicationVersionLifecycleConfig = ApplicationVersionLifecycleConfig'
{ _avlcMaxAgeRule :: !(Maybe MaxAgeRule)
, _avlcMaxCountRule :: !(Maybe MaxCountRule)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
applicationVersionLifecycleConfig
:: ApplicationVersionLifecycleConfig
applicationVersionLifecycleConfig =
ApplicationVersionLifecycleConfig'
{_avlcMaxAgeRule = Nothing, _avlcMaxCountRule = Nothing}
avlcMaxAgeRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxAgeRule)
avlcMaxAgeRule = lens _avlcMaxAgeRule (\ s a -> s{_avlcMaxAgeRule = a})
avlcMaxCountRule :: Lens' ApplicationVersionLifecycleConfig (Maybe MaxCountRule)
avlcMaxCountRule = lens _avlcMaxCountRule (\ s a -> s{_avlcMaxCountRule = a})
instance FromXML ApplicationVersionLifecycleConfig
where
parseXML x
= ApplicationVersionLifecycleConfig' <$>
(x .@? "MaxAgeRule") <*> (x .@? "MaxCountRule")
instance Hashable ApplicationVersionLifecycleConfig
where
instance NFData ApplicationVersionLifecycleConfig
where
instance ToQuery ApplicationVersionLifecycleConfig
where
toQuery ApplicationVersionLifecycleConfig'{..}
= mconcat
["MaxAgeRule" =: _avlcMaxAgeRule,
"MaxCountRule" =: _avlcMaxCountRule]
newtype AutoScalingGroup = AutoScalingGroup'
{ _asgName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
autoScalingGroup
:: AutoScalingGroup
autoScalingGroup = AutoScalingGroup' {_asgName = Nothing}
asgName :: Lens' AutoScalingGroup (Maybe Text)
asgName = lens _asgName (\ s a -> s{_asgName = a})
instance FromXML AutoScalingGroup where
parseXML x = AutoScalingGroup' <$> (x .@? "Name")
instance Hashable AutoScalingGroup where
instance NFData AutoScalingGroup where
data BuildConfiguration = BuildConfiguration'
{ _bcArtifactName :: !(Maybe Text)
, _bcComputeType :: !(Maybe ComputeType)
, _bcTimeoutInMinutes :: !(Maybe Int)
, _bcCodeBuildServiceRole :: !Text
, _bcImage :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
buildConfiguration
:: Text
-> Text
-> BuildConfiguration
buildConfiguration pCodeBuildServiceRole_ pImage_ =
BuildConfiguration'
{ _bcArtifactName = Nothing
, _bcComputeType = Nothing
, _bcTimeoutInMinutes = Nothing
, _bcCodeBuildServiceRole = pCodeBuildServiceRole_
, _bcImage = pImage_
}
bcArtifactName :: Lens' BuildConfiguration (Maybe Text)
bcArtifactName = lens _bcArtifactName (\ s a -> s{_bcArtifactName = a})
bcComputeType :: Lens' BuildConfiguration (Maybe ComputeType)
bcComputeType = lens _bcComputeType (\ s a -> s{_bcComputeType = a})
bcTimeoutInMinutes :: Lens' BuildConfiguration (Maybe Int)
bcTimeoutInMinutes = lens _bcTimeoutInMinutes (\ s a -> s{_bcTimeoutInMinutes = a})
bcCodeBuildServiceRole :: Lens' BuildConfiguration Text
bcCodeBuildServiceRole = lens _bcCodeBuildServiceRole (\ s a -> s{_bcCodeBuildServiceRole = a})
bcImage :: Lens' BuildConfiguration Text
bcImage = lens _bcImage (\ s a -> s{_bcImage = a})
instance Hashable BuildConfiguration where
instance NFData BuildConfiguration where
instance ToQuery BuildConfiguration where
toQuery BuildConfiguration'{..}
= mconcat
["ArtifactName" =: _bcArtifactName,
"ComputeType" =: _bcComputeType,
"TimeoutInMinutes" =: _bcTimeoutInMinutes,
"CodeBuildServiceRole" =: _bcCodeBuildServiceRole,
"Image" =: _bcImage]
newtype Builder = Builder'
{ _bARN :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
builder
:: Builder
builder = Builder' {_bARN = Nothing}
bARN :: Lens' Builder (Maybe Text)
bARN = lens _bARN (\ s a -> s{_bARN = a})
instance FromXML Builder where
parseXML x = Builder' <$> (x .@? "ARN")
instance Hashable Builder where
instance NFData Builder where
data CPUUtilization = CPUUtilization'
{ _cuSoftIRQ :: !(Maybe Double)
, _cuIdle :: !(Maybe Double)
, _cuIRQ :: !(Maybe Double)
, _cuSystem :: !(Maybe Double)
, _cuUser :: !(Maybe Double)
, _cuIOWait :: !(Maybe Double)
, _cuNice :: !(Maybe Double)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cpuUtilization
:: CPUUtilization
cpuUtilization =
CPUUtilization'
{ _cuSoftIRQ = Nothing
, _cuIdle = Nothing
, _cuIRQ = Nothing
, _cuSystem = Nothing
, _cuUser = Nothing
, _cuIOWait = Nothing
, _cuNice = Nothing
}
cuSoftIRQ :: Lens' CPUUtilization (Maybe Double)
cuSoftIRQ = lens _cuSoftIRQ (\ s a -> s{_cuSoftIRQ = a})
cuIdle :: Lens' CPUUtilization (Maybe Double)
cuIdle = lens _cuIdle (\ s a -> s{_cuIdle = a})
cuIRQ :: Lens' CPUUtilization (Maybe Double)
cuIRQ = lens _cuIRQ (\ s a -> s{_cuIRQ = a})
cuSystem :: Lens' CPUUtilization (Maybe Double)
cuSystem = lens _cuSystem (\ s a -> s{_cuSystem = a})
cuUser :: Lens' CPUUtilization (Maybe Double)
cuUser = lens _cuUser (\ s a -> s{_cuUser = a})
cuIOWait :: Lens' CPUUtilization (Maybe Double)
cuIOWait = lens _cuIOWait (\ s a -> s{_cuIOWait = a})
cuNice :: Lens' CPUUtilization (Maybe Double)
cuNice = lens _cuNice (\ s a -> s{_cuNice = a})
instance FromXML CPUUtilization where
parseXML x
= CPUUtilization' <$>
(x .@? "SoftIRQ") <*> (x .@? "Idle") <*>
(x .@? "IRQ")
<*> (x .@? "System")
<*> (x .@? "User")
<*> (x .@? "IOWait")
<*> (x .@? "Nice")
instance Hashable CPUUtilization where
instance NFData CPUUtilization where
data ConfigurationOptionDescription = ConfigurationOptionDescription'
{ _codMaxValue :: !(Maybe Int)
, _codRegex :: !(Maybe OptionRestrictionRegex)
, _codMaxLength :: !(Maybe Int)
, _codUserDefined :: !(Maybe Bool)
, _codNamespace :: !(Maybe Text)
, _codValueOptions :: !(Maybe [Text])
, _codName :: !(Maybe Text)
, _codChangeSeverity :: !(Maybe Text)
, _codDefaultValue :: !(Maybe Text)
, _codValueType :: !(Maybe ConfigurationOptionValueType)
, _codMinValue :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
configurationOptionDescription
:: ConfigurationOptionDescription
configurationOptionDescription =
ConfigurationOptionDescription'
{ _codMaxValue = Nothing
, _codRegex = Nothing
, _codMaxLength = Nothing
, _codUserDefined = Nothing
, _codNamespace = Nothing
, _codValueOptions = Nothing
, _codName = Nothing
, _codChangeSeverity = Nothing
, _codDefaultValue = Nothing
, _codValueType = Nothing
, _codMinValue = Nothing
}
codMaxValue :: Lens' ConfigurationOptionDescription (Maybe Int)
codMaxValue = lens _codMaxValue (\ s a -> s{_codMaxValue = a})
codRegex :: Lens' ConfigurationOptionDescription (Maybe OptionRestrictionRegex)
codRegex = lens _codRegex (\ s a -> s{_codRegex = a})
codMaxLength :: Lens' ConfigurationOptionDescription (Maybe Int)
codMaxLength = lens _codMaxLength (\ s a -> s{_codMaxLength = a})
codUserDefined :: Lens' ConfigurationOptionDescription (Maybe Bool)
codUserDefined = lens _codUserDefined (\ s a -> s{_codUserDefined = a})
codNamespace :: Lens' ConfigurationOptionDescription (Maybe Text)
codNamespace = lens _codNamespace (\ s a -> s{_codNamespace = a})
codValueOptions :: Lens' ConfigurationOptionDescription [Text]
codValueOptions = lens _codValueOptions (\ s a -> s{_codValueOptions = a}) . _Default . _Coerce
codName :: Lens' ConfigurationOptionDescription (Maybe Text)
codName = lens _codName (\ s a -> s{_codName = a})
codChangeSeverity :: Lens' ConfigurationOptionDescription (Maybe Text)
codChangeSeverity = lens _codChangeSeverity (\ s a -> s{_codChangeSeverity = a})
codDefaultValue :: Lens' ConfigurationOptionDescription (Maybe Text)
codDefaultValue = lens _codDefaultValue (\ s a -> s{_codDefaultValue = a})
codValueType :: Lens' ConfigurationOptionDescription (Maybe ConfigurationOptionValueType)
codValueType = lens _codValueType (\ s a -> s{_codValueType = a})
codMinValue :: Lens' ConfigurationOptionDescription (Maybe Int)
codMinValue = lens _codMinValue (\ s a -> s{_codMinValue = a})
instance FromXML ConfigurationOptionDescription where
parseXML x
= ConfigurationOptionDescription' <$>
(x .@? "MaxValue") <*> (x .@? "Regex") <*>
(x .@? "MaxLength")
<*> (x .@? "UserDefined")
<*> (x .@? "Namespace")
<*>
(x .@? "ValueOptions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Name")
<*> (x .@? "ChangeSeverity")
<*> (x .@? "DefaultValue")
<*> (x .@? "ValueType")
<*> (x .@? "MinValue")
instance Hashable ConfigurationOptionDescription
where
instance NFData ConfigurationOptionDescription where
data ConfigurationOptionSetting = ConfigurationOptionSetting'
{ _cosOptionName :: !(Maybe Text)
, _cosResourceName :: !(Maybe Text)
, _cosNamespace :: !(Maybe Text)
, _cosValue :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
configurationOptionSetting
:: ConfigurationOptionSetting
configurationOptionSetting =
ConfigurationOptionSetting'
{ _cosOptionName = Nothing
, _cosResourceName = Nothing
, _cosNamespace = Nothing
, _cosValue = Nothing
}
cosOptionName :: Lens' ConfigurationOptionSetting (Maybe Text)
cosOptionName = lens _cosOptionName (\ s a -> s{_cosOptionName = a})
cosResourceName :: Lens' ConfigurationOptionSetting (Maybe Text)
cosResourceName = lens _cosResourceName (\ s a -> s{_cosResourceName = a})
cosNamespace :: Lens' ConfigurationOptionSetting (Maybe Text)
cosNamespace = lens _cosNamespace (\ s a -> s{_cosNamespace = a})
cosValue :: Lens' ConfigurationOptionSetting (Maybe Text)
cosValue = lens _cosValue (\ s a -> s{_cosValue = a})
instance FromXML ConfigurationOptionSetting where
parseXML x
= ConfigurationOptionSetting' <$>
(x .@? "OptionName") <*> (x .@? "ResourceName") <*>
(x .@? "Namespace")
<*> (x .@? "Value")
instance Hashable ConfigurationOptionSetting where
instance NFData ConfigurationOptionSetting where
instance ToQuery ConfigurationOptionSetting where
toQuery ConfigurationOptionSetting'{..}
= mconcat
["OptionName" =: _cosOptionName,
"ResourceName" =: _cosResourceName,
"Namespace" =: _cosNamespace, "Value" =: _cosValue]
data ConfigurationSettingsDescription = ConfigurationSettingsDescription'
{ _csdTemplateName :: !(Maybe Text)
, _csdOptionSettings :: !(Maybe [ConfigurationOptionSetting])
, _csdDateUpdated :: !(Maybe ISO8601)
, _csdDateCreated :: !(Maybe ISO8601)
, _csdPlatformARN :: !(Maybe Text)
, _csdEnvironmentName :: !(Maybe Text)
, _csdApplicationName :: !(Maybe Text)
, _csdDeploymentStatus :: !(Maybe ConfigurationDeploymentStatus)
, _csdSolutionStackName :: !(Maybe Text)
, _csdDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
configurationSettingsDescription
:: ConfigurationSettingsDescription
configurationSettingsDescription =
ConfigurationSettingsDescription'
{ _csdTemplateName = Nothing
, _csdOptionSettings = Nothing
, _csdDateUpdated = Nothing
, _csdDateCreated = Nothing
, _csdPlatformARN = Nothing
, _csdEnvironmentName = Nothing
, _csdApplicationName = Nothing
, _csdDeploymentStatus = Nothing
, _csdSolutionStackName = Nothing
, _csdDescription = Nothing
}
csdTemplateName :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdTemplateName = lens _csdTemplateName (\ s a -> s{_csdTemplateName = a})
csdOptionSettings :: Lens' ConfigurationSettingsDescription [ConfigurationOptionSetting]
csdOptionSettings = lens _csdOptionSettings (\ s a -> s{_csdOptionSettings = a}) . _Default . _Coerce
csdDateUpdated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)
csdDateUpdated = lens _csdDateUpdated (\ s a -> s{_csdDateUpdated = a}) . mapping _Time
csdDateCreated :: Lens' ConfigurationSettingsDescription (Maybe UTCTime)
csdDateCreated = lens _csdDateCreated (\ s a -> s{_csdDateCreated = a}) . mapping _Time
csdPlatformARN :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdPlatformARN = lens _csdPlatformARN (\ s a -> s{_csdPlatformARN = a})
csdEnvironmentName :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdEnvironmentName = lens _csdEnvironmentName (\ s a -> s{_csdEnvironmentName = a})
csdApplicationName :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdApplicationName = lens _csdApplicationName (\ s a -> s{_csdApplicationName = a})
csdDeploymentStatus :: Lens' ConfigurationSettingsDescription (Maybe ConfigurationDeploymentStatus)
csdDeploymentStatus = lens _csdDeploymentStatus (\ s a -> s{_csdDeploymentStatus = a})
csdSolutionStackName :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdSolutionStackName = lens _csdSolutionStackName (\ s a -> s{_csdSolutionStackName = a})
csdDescription :: Lens' ConfigurationSettingsDescription (Maybe Text)
csdDescription = lens _csdDescription (\ s a -> s{_csdDescription = a})
instance FromXML ConfigurationSettingsDescription
where
parseXML x
= ConfigurationSettingsDescription' <$>
(x .@? "TemplateName") <*>
(x .@? "OptionSettings" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "DateUpdated")
<*> (x .@? "DateCreated")
<*> (x .@? "PlatformArn")
<*> (x .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "DeploymentStatus")
<*> (x .@? "SolutionStackName")
<*> (x .@? "Description")
instance Hashable ConfigurationSettingsDescription
where
instance NFData ConfigurationSettingsDescription
where
data CustomAMI = CustomAMI'
{ _caVirtualizationType :: !(Maybe Text)
, _caImageId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
customAMI
:: CustomAMI
customAMI = CustomAMI' {_caVirtualizationType = Nothing, _caImageId = Nothing}
caVirtualizationType :: Lens' CustomAMI (Maybe Text)
caVirtualizationType = lens _caVirtualizationType (\ s a -> s{_caVirtualizationType = a})
caImageId :: Lens' CustomAMI (Maybe Text)
caImageId = lens _caImageId (\ s a -> s{_caImageId = a})
instance FromXML CustomAMI where
parseXML x
= CustomAMI' <$>
(x .@? "VirtualizationType") <*> (x .@? "ImageId")
instance Hashable CustomAMI where
instance NFData CustomAMI where
data Deployment = Deployment'
{ _dDeploymentId :: !(Maybe Integer)
, _dStatus :: !(Maybe Text)
, _dDeploymentTime :: !(Maybe ISO8601)
, _dVersionLabel :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deployment
:: Deployment
deployment =
Deployment'
{ _dDeploymentId = Nothing
, _dStatus = Nothing
, _dDeploymentTime = Nothing
, _dVersionLabel = Nothing
}
dDeploymentId :: Lens' Deployment (Maybe Integer)
dDeploymentId = lens _dDeploymentId (\ s a -> s{_dDeploymentId = a})
dStatus :: Lens' Deployment (Maybe Text)
dStatus = lens _dStatus (\ s a -> s{_dStatus = a})
dDeploymentTime :: Lens' Deployment (Maybe UTCTime)
dDeploymentTime = lens _dDeploymentTime (\ s a -> s{_dDeploymentTime = a}) . mapping _Time
dVersionLabel :: Lens' Deployment (Maybe Text)
dVersionLabel = lens _dVersionLabel (\ s a -> s{_dVersionLabel = a})
instance FromXML Deployment where
parseXML x
= Deployment' <$>
(x .@? "DeploymentId") <*> (x .@? "Status") <*>
(x .@? "DeploymentTime")
<*> (x .@? "VersionLabel")
instance Hashable Deployment where
instance NFData Deployment where
data EnvironmentDescription = EnvironmentDescription'
{ _eStatus :: !(Maybe EnvironmentStatus)
, _eCNAME :: !(Maybe Text)
, _eTemplateName :: !(Maybe Text)
, _eAbortableOperationInProgress :: !(Maybe Bool)
, _eEndpointURL :: !(Maybe Text)
, _eResources :: !(Maybe EnvironmentResourcesDescription)
, _eDateUpdated :: !(Maybe ISO8601)
, _eDateCreated :: !(Maybe ISO8601)
, _eHealth :: !(Maybe EnvironmentHealth)
, _eVersionLabel :: !(Maybe Text)
, _ePlatformARN :: !(Maybe Text)
, _eTier :: !(Maybe EnvironmentTier)
, _eEnvironmentName :: !(Maybe Text)
, _eApplicationName :: !(Maybe Text)
, _eEnvironmentARN :: !(Maybe Text)
, _eSolutionStackName :: !(Maybe Text)
, _eEnvironmentId :: !(Maybe Text)
, _eHealthStatus :: !(Maybe EnvironmentHealthStatus)
, _eEnvironmentLinks :: !(Maybe [EnvironmentLink])
, _eDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentDescription
:: EnvironmentDescription
environmentDescription =
EnvironmentDescription'
{ _eStatus = Nothing
, _eCNAME = Nothing
, _eTemplateName = Nothing
, _eAbortableOperationInProgress = Nothing
, _eEndpointURL = Nothing
, _eResources = Nothing
, _eDateUpdated = Nothing
, _eDateCreated = Nothing
, _eHealth = Nothing
, _eVersionLabel = Nothing
, _ePlatformARN = Nothing
, _eTier = Nothing
, _eEnvironmentName = Nothing
, _eApplicationName = Nothing
, _eEnvironmentARN = Nothing
, _eSolutionStackName = Nothing
, _eEnvironmentId = Nothing
, _eHealthStatus = Nothing
, _eEnvironmentLinks = Nothing
, _eDescription = Nothing
}
eStatus :: Lens' EnvironmentDescription (Maybe EnvironmentStatus)
eStatus = lens _eStatus (\ s a -> s{_eStatus = a})
eCNAME :: Lens' EnvironmentDescription (Maybe Text)
eCNAME = lens _eCNAME (\ s a -> s{_eCNAME = a})
eTemplateName :: Lens' EnvironmentDescription (Maybe Text)
eTemplateName = lens _eTemplateName (\ s a -> s{_eTemplateName = a})
eAbortableOperationInProgress :: Lens' EnvironmentDescription (Maybe Bool)
eAbortableOperationInProgress = lens _eAbortableOperationInProgress (\ s a -> s{_eAbortableOperationInProgress = a})
eEndpointURL :: Lens' EnvironmentDescription (Maybe Text)
eEndpointURL = lens _eEndpointURL (\ s a -> s{_eEndpointURL = a})
eResources :: Lens' EnvironmentDescription (Maybe EnvironmentResourcesDescription)
eResources = lens _eResources (\ s a -> s{_eResources = a})
eDateUpdated :: Lens' EnvironmentDescription (Maybe UTCTime)
eDateUpdated = lens _eDateUpdated (\ s a -> s{_eDateUpdated = a}) . mapping _Time
eDateCreated :: Lens' EnvironmentDescription (Maybe UTCTime)
eDateCreated = lens _eDateCreated (\ s a -> s{_eDateCreated = a}) . mapping _Time
eHealth :: Lens' EnvironmentDescription (Maybe EnvironmentHealth)
eHealth = lens _eHealth (\ s a -> s{_eHealth = a})
eVersionLabel :: Lens' EnvironmentDescription (Maybe Text)
eVersionLabel = lens _eVersionLabel (\ s a -> s{_eVersionLabel = a})
ePlatformARN :: Lens' EnvironmentDescription (Maybe Text)
ePlatformARN = lens _ePlatformARN (\ s a -> s{_ePlatformARN = a})
eTier :: Lens' EnvironmentDescription (Maybe EnvironmentTier)
eTier = lens _eTier (\ s a -> s{_eTier = a})
eEnvironmentName :: Lens' EnvironmentDescription (Maybe Text)
eEnvironmentName = lens _eEnvironmentName (\ s a -> s{_eEnvironmentName = a})
eApplicationName :: Lens' EnvironmentDescription (Maybe Text)
eApplicationName = lens _eApplicationName (\ s a -> s{_eApplicationName = a})
eEnvironmentARN :: Lens' EnvironmentDescription (Maybe Text)
eEnvironmentARN = lens _eEnvironmentARN (\ s a -> s{_eEnvironmentARN = a})
eSolutionStackName :: Lens' EnvironmentDescription (Maybe Text)
eSolutionStackName = lens _eSolutionStackName (\ s a -> s{_eSolutionStackName = a})
eEnvironmentId :: Lens' EnvironmentDescription (Maybe Text)
eEnvironmentId = lens _eEnvironmentId (\ s a -> s{_eEnvironmentId = a})
eHealthStatus :: Lens' EnvironmentDescription (Maybe EnvironmentHealthStatus)
eHealthStatus = lens _eHealthStatus (\ s a -> s{_eHealthStatus = a})
eEnvironmentLinks :: Lens' EnvironmentDescription [EnvironmentLink]
eEnvironmentLinks = lens _eEnvironmentLinks (\ s a -> s{_eEnvironmentLinks = a}) . _Default . _Coerce
eDescription :: Lens' EnvironmentDescription (Maybe Text)
eDescription = lens _eDescription (\ s a -> s{_eDescription = a})
instance FromXML EnvironmentDescription where
parseXML x
= EnvironmentDescription' <$>
(x .@? "Status") <*> (x .@? "CNAME") <*>
(x .@? "TemplateName")
<*> (x .@? "AbortableOperationInProgress")
<*> (x .@? "EndpointURL")
<*> (x .@? "Resources")
<*> (x .@? "DateUpdated")
<*> (x .@? "DateCreated")
<*> (x .@? "Health")
<*> (x .@? "VersionLabel")
<*> (x .@? "PlatformArn")
<*> (x .@? "Tier")
<*> (x .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "EnvironmentArn")
<*> (x .@? "SolutionStackName")
<*> (x .@? "EnvironmentId")
<*> (x .@? "HealthStatus")
<*>
(x .@? "EnvironmentLinks" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Description")
instance Hashable EnvironmentDescription where
instance NFData EnvironmentDescription where
data EnvironmentDescriptionsMessage = EnvironmentDescriptionsMessage'
{ _edmNextToken :: !(Maybe Text)
, _edmEnvironments :: !(Maybe [EnvironmentDescription])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentDescriptionsMessage
:: EnvironmentDescriptionsMessage
environmentDescriptionsMessage =
EnvironmentDescriptionsMessage'
{_edmNextToken = Nothing, _edmEnvironments = Nothing}
edmNextToken :: Lens' EnvironmentDescriptionsMessage (Maybe Text)
edmNextToken = lens _edmNextToken (\ s a -> s{_edmNextToken = a})
edmEnvironments :: Lens' EnvironmentDescriptionsMessage [EnvironmentDescription]
edmEnvironments = lens _edmEnvironments (\ s a -> s{_edmEnvironments = a}) . _Default . _Coerce
instance FromXML EnvironmentDescriptionsMessage where
parseXML x
= EnvironmentDescriptionsMessage' <$>
(x .@? "NextToken") <*>
(x .@? "Environments" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable EnvironmentDescriptionsMessage
where
instance NFData EnvironmentDescriptionsMessage where
data EnvironmentInfoDescription = EnvironmentInfoDescription'
{ _eidSampleTimestamp :: !(Maybe ISO8601)
, _eidEC2InstanceId :: !(Maybe Text)
, _eidInfoType :: !(Maybe EnvironmentInfoType)
, _eidMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentInfoDescription
:: EnvironmentInfoDescription
environmentInfoDescription =
EnvironmentInfoDescription'
{ _eidSampleTimestamp = Nothing
, _eidEC2InstanceId = Nothing
, _eidInfoType = Nothing
, _eidMessage = Nothing
}
eidSampleTimestamp :: Lens' EnvironmentInfoDescription (Maybe UTCTime)
eidSampleTimestamp = lens _eidSampleTimestamp (\ s a -> s{_eidSampleTimestamp = a}) . mapping _Time
eidEC2InstanceId :: Lens' EnvironmentInfoDescription (Maybe Text)
eidEC2InstanceId = lens _eidEC2InstanceId (\ s a -> s{_eidEC2InstanceId = a})
eidInfoType :: Lens' EnvironmentInfoDescription (Maybe EnvironmentInfoType)
eidInfoType = lens _eidInfoType (\ s a -> s{_eidInfoType = a})
eidMessage :: Lens' EnvironmentInfoDescription (Maybe Text)
eidMessage = lens _eidMessage (\ s a -> s{_eidMessage = a})
instance FromXML EnvironmentInfoDescription where
parseXML x
= EnvironmentInfoDescription' <$>
(x .@? "SampleTimestamp") <*> (x .@? "Ec2InstanceId")
<*> (x .@? "InfoType")
<*> (x .@? "Message")
instance Hashable EnvironmentInfoDescription where
instance NFData EnvironmentInfoDescription where
data EnvironmentLink = EnvironmentLink'
{ _elLinkName :: !(Maybe Text)
, _elEnvironmentName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentLink
:: EnvironmentLink
environmentLink =
EnvironmentLink' {_elLinkName = Nothing, _elEnvironmentName = Nothing}
elLinkName :: Lens' EnvironmentLink (Maybe Text)
elLinkName = lens _elLinkName (\ s a -> s{_elLinkName = a})
elEnvironmentName :: Lens' EnvironmentLink (Maybe Text)
elEnvironmentName = lens _elEnvironmentName (\ s a -> s{_elEnvironmentName = a})
instance FromXML EnvironmentLink where
parseXML x
= EnvironmentLink' <$>
(x .@? "LinkName") <*> (x .@? "EnvironmentName")
instance Hashable EnvironmentLink where
instance NFData EnvironmentLink where
data EnvironmentResourceDescription = EnvironmentResourceDescription'
{ _erdQueues :: !(Maybe [Queue])
, _erdTriggers :: !(Maybe [Trigger])
, _erdLoadBalancers :: !(Maybe [LoadBalancer])
, _erdEnvironmentName :: !(Maybe Text)
, _erdInstances :: !(Maybe [Instance])
, _erdLaunchConfigurations :: !(Maybe [LaunchConfiguration])
, _erdAutoScalingGroups :: !(Maybe [AutoScalingGroup])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentResourceDescription
:: EnvironmentResourceDescription
environmentResourceDescription =
EnvironmentResourceDescription'
{ _erdQueues = Nothing
, _erdTriggers = Nothing
, _erdLoadBalancers = Nothing
, _erdEnvironmentName = Nothing
, _erdInstances = Nothing
, _erdLaunchConfigurations = Nothing
, _erdAutoScalingGroups = Nothing
}
erdQueues :: Lens' EnvironmentResourceDescription [Queue]
erdQueues = lens _erdQueues (\ s a -> s{_erdQueues = a}) . _Default . _Coerce
erdTriggers :: Lens' EnvironmentResourceDescription [Trigger]
erdTriggers = lens _erdTriggers (\ s a -> s{_erdTriggers = a}) . _Default . _Coerce
erdLoadBalancers :: Lens' EnvironmentResourceDescription [LoadBalancer]
erdLoadBalancers = lens _erdLoadBalancers (\ s a -> s{_erdLoadBalancers = a}) . _Default . _Coerce
erdEnvironmentName :: Lens' EnvironmentResourceDescription (Maybe Text)
erdEnvironmentName = lens _erdEnvironmentName (\ s a -> s{_erdEnvironmentName = a})
erdInstances :: Lens' EnvironmentResourceDescription [Instance]
erdInstances = lens _erdInstances (\ s a -> s{_erdInstances = a}) . _Default . _Coerce
erdLaunchConfigurations :: Lens' EnvironmentResourceDescription [LaunchConfiguration]
erdLaunchConfigurations = lens _erdLaunchConfigurations (\ s a -> s{_erdLaunchConfigurations = a}) . _Default . _Coerce
erdAutoScalingGroups :: Lens' EnvironmentResourceDescription [AutoScalingGroup]
erdAutoScalingGroups = lens _erdAutoScalingGroups (\ s a -> s{_erdAutoScalingGroups = a}) . _Default . _Coerce
instance FromXML EnvironmentResourceDescription where
parseXML x
= EnvironmentResourceDescription' <$>
(x .@? "Queues" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "Triggers" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "LoadBalancers" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "EnvironmentName")
<*>
(x .@? "Instances" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "LaunchConfigurations" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "AutoScalingGroups" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable EnvironmentResourceDescription
where
instance NFData EnvironmentResourceDescription where
newtype EnvironmentResourcesDescription = EnvironmentResourcesDescription'
{ _erdLoadBalancer :: Maybe LoadBalancerDescription
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentResourcesDescription
:: EnvironmentResourcesDescription
environmentResourcesDescription =
EnvironmentResourcesDescription' {_erdLoadBalancer = Nothing}
erdLoadBalancer :: Lens' EnvironmentResourcesDescription (Maybe LoadBalancerDescription)
erdLoadBalancer = lens _erdLoadBalancer (\ s a -> s{_erdLoadBalancer = a})
instance FromXML EnvironmentResourcesDescription
where
parseXML x
= EnvironmentResourcesDescription' <$>
(x .@? "LoadBalancer")
instance Hashable EnvironmentResourcesDescription
where
instance NFData EnvironmentResourcesDescription where
data EnvironmentTier = EnvironmentTier'
{ _etName :: !(Maybe Text)
, _etVersion :: !(Maybe Text)
, _etType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
environmentTier
:: EnvironmentTier
environmentTier =
EnvironmentTier' {_etName = Nothing, _etVersion = Nothing, _etType = Nothing}
etName :: Lens' EnvironmentTier (Maybe Text)
etName = lens _etName (\ s a -> s{_etName = a})
etVersion :: Lens' EnvironmentTier (Maybe Text)
etVersion = lens _etVersion (\ s a -> s{_etVersion = a})
etType :: Lens' EnvironmentTier (Maybe Text)
etType = lens _etType (\ s a -> s{_etType = a})
instance FromXML EnvironmentTier where
parseXML x
= EnvironmentTier' <$>
(x .@? "Name") <*> (x .@? "Version") <*>
(x .@? "Type")
instance Hashable EnvironmentTier where
instance NFData EnvironmentTier where
instance ToQuery EnvironmentTier where
toQuery EnvironmentTier'{..}
= mconcat
["Name" =: _etName, "Version" =: _etVersion,
"Type" =: _etType]
data EventDescription = EventDescription'
{ _edRequestId :: !(Maybe Text)
, _edTemplateName :: !(Maybe Text)
, _edSeverity :: !(Maybe EventSeverity)
, _edVersionLabel :: !(Maybe Text)
, _edPlatformARN :: !(Maybe Text)
, _edEnvironmentName :: !(Maybe Text)
, _edApplicationName :: !(Maybe Text)
, _edEventDate :: !(Maybe ISO8601)
, _edMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
eventDescription
:: EventDescription
eventDescription =
EventDescription'
{ _edRequestId = Nothing
, _edTemplateName = Nothing
, _edSeverity = Nothing
, _edVersionLabel = Nothing
, _edPlatformARN = Nothing
, _edEnvironmentName = Nothing
, _edApplicationName = Nothing
, _edEventDate = Nothing
, _edMessage = Nothing
}
edRequestId :: Lens' EventDescription (Maybe Text)
edRequestId = lens _edRequestId (\ s a -> s{_edRequestId = a})
edTemplateName :: Lens' EventDescription (Maybe Text)
edTemplateName = lens _edTemplateName (\ s a -> s{_edTemplateName = a})
edSeverity :: Lens' EventDescription (Maybe EventSeverity)
edSeverity = lens _edSeverity (\ s a -> s{_edSeverity = a})
edVersionLabel :: Lens' EventDescription (Maybe Text)
edVersionLabel = lens _edVersionLabel (\ s a -> s{_edVersionLabel = a})
edPlatformARN :: Lens' EventDescription (Maybe Text)
edPlatformARN = lens _edPlatformARN (\ s a -> s{_edPlatformARN = a})
edEnvironmentName :: Lens' EventDescription (Maybe Text)
edEnvironmentName = lens _edEnvironmentName (\ s a -> s{_edEnvironmentName = a})
edApplicationName :: Lens' EventDescription (Maybe Text)
edApplicationName = lens _edApplicationName (\ s a -> s{_edApplicationName = a})
edEventDate :: Lens' EventDescription (Maybe UTCTime)
edEventDate = lens _edEventDate (\ s a -> s{_edEventDate = a}) . mapping _Time
edMessage :: Lens' EventDescription (Maybe Text)
edMessage = lens _edMessage (\ s a -> s{_edMessage = a})
instance FromXML EventDescription where
parseXML x
= EventDescription' <$>
(x .@? "RequestId") <*> (x .@? "TemplateName") <*>
(x .@? "Severity")
<*> (x .@? "VersionLabel")
<*> (x .@? "PlatformArn")
<*> (x .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "EventDate")
<*> (x .@? "Message")
instance Hashable EventDescription where
instance NFData EventDescription where
newtype Instance = Instance'
{ _iId :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instance'
:: Instance
instance' = Instance' {_iId = Nothing}
iId :: Lens' Instance (Maybe Text)
iId = lens _iId (\ s a -> s{_iId = a})
instance FromXML Instance where
parseXML x = Instance' <$> (x .@? "Id")
instance Hashable Instance where
instance NFData Instance where
data InstanceHealthSummary = InstanceHealthSummary'
{ _ihsOK :: !(Maybe Int)
, _ihsPending :: !(Maybe Int)
, _ihsSevere :: !(Maybe Int)
, _ihsUnknown :: !(Maybe Int)
, _ihsNoData :: !(Maybe Int)
, _ihsWarning :: !(Maybe Int)
, _ihsDegraded :: !(Maybe Int)
, _ihsInfo :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceHealthSummary
:: InstanceHealthSummary
instanceHealthSummary =
InstanceHealthSummary'
{ _ihsOK = Nothing
, _ihsPending = Nothing
, _ihsSevere = Nothing
, _ihsUnknown = Nothing
, _ihsNoData = Nothing
, _ihsWarning = Nothing
, _ihsDegraded = Nothing
, _ihsInfo = Nothing
}
ihsOK :: Lens' InstanceHealthSummary (Maybe Int)
ihsOK = lens _ihsOK (\ s a -> s{_ihsOK = a})
ihsPending :: Lens' InstanceHealthSummary (Maybe Int)
ihsPending = lens _ihsPending (\ s a -> s{_ihsPending = a})
ihsSevere :: Lens' InstanceHealthSummary (Maybe Int)
ihsSevere = lens _ihsSevere (\ s a -> s{_ihsSevere = a})
ihsUnknown :: Lens' InstanceHealthSummary (Maybe Int)
ihsUnknown = lens _ihsUnknown (\ s a -> s{_ihsUnknown = a})
ihsNoData :: Lens' InstanceHealthSummary (Maybe Int)
ihsNoData = lens _ihsNoData (\ s a -> s{_ihsNoData = a})
ihsWarning :: Lens' InstanceHealthSummary (Maybe Int)
ihsWarning = lens _ihsWarning (\ s a -> s{_ihsWarning = a})
ihsDegraded :: Lens' InstanceHealthSummary (Maybe Int)
ihsDegraded = lens _ihsDegraded (\ s a -> s{_ihsDegraded = a})
ihsInfo :: Lens' InstanceHealthSummary (Maybe Int)
ihsInfo = lens _ihsInfo (\ s a -> s{_ihsInfo = a})
instance FromXML InstanceHealthSummary where
parseXML x
= InstanceHealthSummary' <$>
(x .@? "Ok") <*> (x .@? "Pending") <*>
(x .@? "Severe")
<*> (x .@? "Unknown")
<*> (x .@? "NoData")
<*> (x .@? "Warning")
<*> (x .@? "Degraded")
<*> (x .@? "Info")
instance Hashable InstanceHealthSummary where
instance NFData InstanceHealthSummary where
data Latency = Latency'
{ _lP75 :: !(Maybe Double)
, _lP50 :: !(Maybe Double)
, _lP85 :: !(Maybe Double)
, _lP999 :: !(Maybe Double)
, _lP90 :: !(Maybe Double)
, _lP95 :: !(Maybe Double)
, _lP99 :: !(Maybe Double)
, _lP10 :: !(Maybe Double)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
latency
:: Latency
latency =
Latency'
{ _lP75 = Nothing
, _lP50 = Nothing
, _lP85 = Nothing
, _lP999 = Nothing
, _lP90 = Nothing
, _lP95 = Nothing
, _lP99 = Nothing
, _lP10 = Nothing
}
lP75 :: Lens' Latency (Maybe Double)
lP75 = lens _lP75 (\ s a -> s{_lP75 = a})
lP50 :: Lens' Latency (Maybe Double)
lP50 = lens _lP50 (\ s a -> s{_lP50 = a})
lP85 :: Lens' Latency (Maybe Double)
lP85 = lens _lP85 (\ s a -> s{_lP85 = a})
lP999 :: Lens' Latency (Maybe Double)
lP999 = lens _lP999 (\ s a -> s{_lP999 = a})
lP90 :: Lens' Latency (Maybe Double)
lP90 = lens _lP90 (\ s a -> s{_lP90 = a})
lP95 :: Lens' Latency (Maybe Double)
lP95 = lens _lP95 (\ s a -> s{_lP95 = a})
lP99 :: Lens' Latency (Maybe Double)
lP99 = lens _lP99 (\ s a -> s{_lP99 = a})
lP10 :: Lens' Latency (Maybe Double)
lP10 = lens _lP10 (\ s a -> s{_lP10 = a})
instance FromXML Latency where
parseXML x
= Latency' <$>
(x .@? "P75") <*> (x .@? "P50") <*> (x .@? "P85") <*>
(x .@? "P999")
<*> (x .@? "P90")
<*> (x .@? "P95")
<*> (x .@? "P99")
<*> (x .@? "P10")
instance Hashable Latency where
instance NFData Latency where
newtype LaunchConfiguration = LaunchConfiguration'
{ _lcName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
launchConfiguration
:: LaunchConfiguration
launchConfiguration = LaunchConfiguration' {_lcName = Nothing}
lcName :: Lens' LaunchConfiguration (Maybe Text)
lcName = lens _lcName (\ s a -> s{_lcName = a})
instance FromXML LaunchConfiguration where
parseXML x = LaunchConfiguration' <$> (x .@? "Name")
instance Hashable LaunchConfiguration where
instance NFData LaunchConfiguration where
data Listener = Listener'
{ _lProtocol :: !(Maybe Text)
, _lPort :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listener
:: Listener
listener = Listener' {_lProtocol = Nothing, _lPort = Nothing}
lProtocol :: Lens' Listener (Maybe Text)
lProtocol = lens _lProtocol (\ s a -> s{_lProtocol = a})
lPort :: Lens' Listener (Maybe Int)
lPort = lens _lPort (\ s a -> s{_lPort = a})
instance FromXML Listener where
parseXML x
= Listener' <$> (x .@? "Protocol") <*> (x .@? "Port")
instance Hashable Listener where
instance NFData Listener where
newtype LoadBalancer = LoadBalancer'
{ _lbName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
loadBalancer
:: LoadBalancer
loadBalancer = LoadBalancer' {_lbName = Nothing}
lbName :: Lens' LoadBalancer (Maybe Text)
lbName = lens _lbName (\ s a -> s{_lbName = a})
instance FromXML LoadBalancer where
parseXML x = LoadBalancer' <$> (x .@? "Name")
instance Hashable LoadBalancer where
instance NFData LoadBalancer where
data LoadBalancerDescription = LoadBalancerDescription'
{ _lbdLoadBalancerName :: !(Maybe Text)
, _lbdDomain :: !(Maybe Text)
, _lbdListeners :: !(Maybe [Listener])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
loadBalancerDescription
:: LoadBalancerDescription
loadBalancerDescription =
LoadBalancerDescription'
{ _lbdLoadBalancerName = Nothing
, _lbdDomain = Nothing
, _lbdListeners = Nothing
}
lbdLoadBalancerName :: Lens' LoadBalancerDescription (Maybe Text)
lbdLoadBalancerName = lens _lbdLoadBalancerName (\ s a -> s{_lbdLoadBalancerName = a})
lbdDomain :: Lens' LoadBalancerDescription (Maybe Text)
lbdDomain = lens _lbdDomain (\ s a -> s{_lbdDomain = a})
lbdListeners :: Lens' LoadBalancerDescription [Listener]
lbdListeners = lens _lbdListeners (\ s a -> s{_lbdListeners = a}) . _Default . _Coerce
instance FromXML LoadBalancerDescription where
parseXML x
= LoadBalancerDescription' <$>
(x .@? "LoadBalancerName") <*> (x .@? "Domain") <*>
(x .@? "Listeners" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable LoadBalancerDescription where
instance NFData LoadBalancerDescription where
data ManagedAction = ManagedAction'
{ _maStatus :: !(Maybe ActionStatus)
, _maActionId :: !(Maybe Text)
, _maWindowStartTime :: !(Maybe ISO8601)
, _maActionDescription :: !(Maybe Text)
, _maActionType :: !(Maybe ActionType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
managedAction
:: ManagedAction
managedAction =
ManagedAction'
{ _maStatus = Nothing
, _maActionId = Nothing
, _maWindowStartTime = Nothing
, _maActionDescription = Nothing
, _maActionType = Nothing
}
maStatus :: Lens' ManagedAction (Maybe ActionStatus)
maStatus = lens _maStatus (\ s a -> s{_maStatus = a})
maActionId :: Lens' ManagedAction (Maybe Text)
maActionId = lens _maActionId (\ s a -> s{_maActionId = a})
maWindowStartTime :: Lens' ManagedAction (Maybe UTCTime)
maWindowStartTime = lens _maWindowStartTime (\ s a -> s{_maWindowStartTime = a}) . mapping _Time
maActionDescription :: Lens' ManagedAction (Maybe Text)
maActionDescription = lens _maActionDescription (\ s a -> s{_maActionDescription = a})
maActionType :: Lens' ManagedAction (Maybe ActionType)
maActionType = lens _maActionType (\ s a -> s{_maActionType = a})
instance FromXML ManagedAction where
parseXML x
= ManagedAction' <$>
(x .@? "Status") <*> (x .@? "ActionId") <*>
(x .@? "WindowStartTime")
<*> (x .@? "ActionDescription")
<*> (x .@? "ActionType")
instance Hashable ManagedAction where
instance NFData ManagedAction where
data ManagedActionHistoryItem = ManagedActionHistoryItem'
{ _mahiStatus :: !(Maybe ActionHistoryStatus)
, _mahiFailureType :: !(Maybe FailureType)
, _mahiActionId :: !(Maybe Text)
, _mahiFailureDescription :: !(Maybe Text)
, _mahiFinishedTime :: !(Maybe ISO8601)
, _mahiActionDescription :: !(Maybe Text)
, _mahiExecutedTime :: !(Maybe ISO8601)
, _mahiActionType :: !(Maybe ActionType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
managedActionHistoryItem
:: ManagedActionHistoryItem
managedActionHistoryItem =
ManagedActionHistoryItem'
{ _mahiStatus = Nothing
, _mahiFailureType = Nothing
, _mahiActionId = Nothing
, _mahiFailureDescription = Nothing
, _mahiFinishedTime = Nothing
, _mahiActionDescription = Nothing
, _mahiExecutedTime = Nothing
, _mahiActionType = Nothing
}
mahiStatus :: Lens' ManagedActionHistoryItem (Maybe ActionHistoryStatus)
mahiStatus = lens _mahiStatus (\ s a -> s{_mahiStatus = a})
mahiFailureType :: Lens' ManagedActionHistoryItem (Maybe FailureType)
mahiFailureType = lens _mahiFailureType (\ s a -> s{_mahiFailureType = a})
mahiActionId :: Lens' ManagedActionHistoryItem (Maybe Text)
mahiActionId = lens _mahiActionId (\ s a -> s{_mahiActionId = a})
mahiFailureDescription :: Lens' ManagedActionHistoryItem (Maybe Text)
mahiFailureDescription = lens _mahiFailureDescription (\ s a -> s{_mahiFailureDescription = a})
mahiFinishedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)
mahiFinishedTime = lens _mahiFinishedTime (\ s a -> s{_mahiFinishedTime = a}) . mapping _Time
mahiActionDescription :: Lens' ManagedActionHistoryItem (Maybe Text)
mahiActionDescription = lens _mahiActionDescription (\ s a -> s{_mahiActionDescription = a})
mahiExecutedTime :: Lens' ManagedActionHistoryItem (Maybe UTCTime)
mahiExecutedTime = lens _mahiExecutedTime (\ s a -> s{_mahiExecutedTime = a}) . mapping _Time
mahiActionType :: Lens' ManagedActionHistoryItem (Maybe ActionType)
mahiActionType = lens _mahiActionType (\ s a -> s{_mahiActionType = a})
instance FromXML ManagedActionHistoryItem where
parseXML x
= ManagedActionHistoryItem' <$>
(x .@? "Status") <*> (x .@? "FailureType") <*>
(x .@? "ActionId")
<*> (x .@? "FailureDescription")
<*> (x .@? "FinishedTime")
<*> (x .@? "ActionDescription")
<*> (x .@? "ExecutedTime")
<*> (x .@? "ActionType")
instance Hashable ManagedActionHistoryItem where
instance NFData ManagedActionHistoryItem where
data MaxAgeRule = MaxAgeRule'
{ _marDeleteSourceFromS3 :: !(Maybe Bool)
, _marMaxAgeInDays :: !(Maybe Int)
, _marEnabled :: !Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maxAgeRule
:: Bool
-> MaxAgeRule
maxAgeRule pEnabled_ =
MaxAgeRule'
{ _marDeleteSourceFromS3 = Nothing
, _marMaxAgeInDays = Nothing
, _marEnabled = pEnabled_
}
marDeleteSourceFromS3 :: Lens' MaxAgeRule (Maybe Bool)
marDeleteSourceFromS3 = lens _marDeleteSourceFromS3 (\ s a -> s{_marDeleteSourceFromS3 = a})
marMaxAgeInDays :: Lens' MaxAgeRule (Maybe Int)
marMaxAgeInDays = lens _marMaxAgeInDays (\ s a -> s{_marMaxAgeInDays = a})
marEnabled :: Lens' MaxAgeRule Bool
marEnabled = lens _marEnabled (\ s a -> s{_marEnabled = a})
instance FromXML MaxAgeRule where
parseXML x
= MaxAgeRule' <$>
(x .@? "DeleteSourceFromS3") <*>
(x .@? "MaxAgeInDays")
<*> (x .@ "Enabled")
instance Hashable MaxAgeRule where
instance NFData MaxAgeRule where
instance ToQuery MaxAgeRule where
toQuery MaxAgeRule'{..}
= mconcat
["DeleteSourceFromS3" =: _marDeleteSourceFromS3,
"MaxAgeInDays" =: _marMaxAgeInDays,
"Enabled" =: _marEnabled]
data MaxCountRule = MaxCountRule'
{ _mcrMaxCount :: !(Maybe Int)
, _mcrDeleteSourceFromS3 :: !(Maybe Bool)
, _mcrEnabled :: !Bool
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maxCountRule
:: Bool
-> MaxCountRule
maxCountRule pEnabled_ =
MaxCountRule'
{ _mcrMaxCount = Nothing
, _mcrDeleteSourceFromS3 = Nothing
, _mcrEnabled = pEnabled_
}
mcrMaxCount :: Lens' MaxCountRule (Maybe Int)
mcrMaxCount = lens _mcrMaxCount (\ s a -> s{_mcrMaxCount = a})
mcrDeleteSourceFromS3 :: Lens' MaxCountRule (Maybe Bool)
mcrDeleteSourceFromS3 = lens _mcrDeleteSourceFromS3 (\ s a -> s{_mcrDeleteSourceFromS3 = a})
mcrEnabled :: Lens' MaxCountRule Bool
mcrEnabled = lens _mcrEnabled (\ s a -> s{_mcrEnabled = a})
instance FromXML MaxCountRule where
parseXML x
= MaxCountRule' <$>
(x .@? "MaxCount") <*> (x .@? "DeleteSourceFromS3")
<*> (x .@ "Enabled")
instance Hashable MaxCountRule where
instance NFData MaxCountRule where
instance ToQuery MaxCountRule where
toQuery MaxCountRule'{..}
= mconcat
["MaxCount" =: _mcrMaxCount,
"DeleteSourceFromS3" =: _mcrDeleteSourceFromS3,
"Enabled" =: _mcrEnabled]
data OptionRestrictionRegex = OptionRestrictionRegex'
{ _orrPattern :: !(Maybe Text)
, _orrLabel :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
optionRestrictionRegex
:: OptionRestrictionRegex
optionRestrictionRegex =
OptionRestrictionRegex' {_orrPattern = Nothing, _orrLabel = Nothing}
orrPattern :: Lens' OptionRestrictionRegex (Maybe Text)
orrPattern = lens _orrPattern (\ s a -> s{_orrPattern = a})
orrLabel :: Lens' OptionRestrictionRegex (Maybe Text)
orrLabel = lens _orrLabel (\ s a -> s{_orrLabel = a})
instance FromXML OptionRestrictionRegex where
parseXML x
= OptionRestrictionRegex' <$>
(x .@? "Pattern") <*> (x .@? "Label")
instance Hashable OptionRestrictionRegex where
instance NFData OptionRestrictionRegex where
data OptionSpecification = OptionSpecification'
{ _osOptionName :: !(Maybe Text)
, _osResourceName :: !(Maybe Text)
, _osNamespace :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
optionSpecification
:: OptionSpecification
optionSpecification =
OptionSpecification'
{_osOptionName = Nothing, _osResourceName = Nothing, _osNamespace = Nothing}
osOptionName :: Lens' OptionSpecification (Maybe Text)
osOptionName = lens _osOptionName (\ s a -> s{_osOptionName = a})
osResourceName :: Lens' OptionSpecification (Maybe Text)
osResourceName = lens _osResourceName (\ s a -> s{_osResourceName = a})
osNamespace :: Lens' OptionSpecification (Maybe Text)
osNamespace = lens _osNamespace (\ s a -> s{_osNamespace = a})
instance Hashable OptionSpecification where
instance NFData OptionSpecification where
instance ToQuery OptionSpecification where
toQuery OptionSpecification'{..}
= mconcat
["OptionName" =: _osOptionName,
"ResourceName" =: _osResourceName,
"Namespace" =: _osNamespace]
data PlatformDescription = PlatformDescription'
{ _pdSupportedAddonList :: !(Maybe [Text])
, _pdPlatformCategory :: !(Maybe Text)
, _pdPlatformVersion :: !(Maybe Text)
, _pdPlatformStatus :: !(Maybe PlatformStatus)
, _pdMaintainer :: !(Maybe Text)
, _pdPlatformOwner :: !(Maybe Text)
, _pdDateUpdated :: !(Maybe ISO8601)
, _pdCustomAMIList :: !(Maybe [CustomAMI])
, _pdDateCreated :: !(Maybe ISO8601)
, _pdOperatingSystemName :: !(Maybe Text)
, _pdFrameworks :: !(Maybe [PlatformFramework])
, _pdPlatformARN :: !(Maybe Text)
, _pdOperatingSystemVersion :: !(Maybe Text)
, _pdProgrammingLanguages :: !(Maybe [PlatformProgrammingLanguage])
, _pdSolutionStackName :: !(Maybe Text)
, _pdPlatformName :: !(Maybe Text)
, _pdDescription :: !(Maybe Text)
, _pdSupportedTierList :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
platformDescription
:: PlatformDescription
platformDescription =
PlatformDescription'
{ _pdSupportedAddonList = Nothing
, _pdPlatformCategory = Nothing
, _pdPlatformVersion = Nothing
, _pdPlatformStatus = Nothing
, _pdMaintainer = Nothing
, _pdPlatformOwner = Nothing
, _pdDateUpdated = Nothing
, _pdCustomAMIList = Nothing
, _pdDateCreated = Nothing
, _pdOperatingSystemName = Nothing
, _pdFrameworks = Nothing
, _pdPlatformARN = Nothing
, _pdOperatingSystemVersion = Nothing
, _pdProgrammingLanguages = Nothing
, _pdSolutionStackName = Nothing
, _pdPlatformName = Nothing
, _pdDescription = Nothing
, _pdSupportedTierList = Nothing
}
pdSupportedAddonList :: Lens' PlatformDescription [Text]
pdSupportedAddonList = lens _pdSupportedAddonList (\ s a -> s{_pdSupportedAddonList = a}) . _Default . _Coerce
pdPlatformCategory :: Lens' PlatformDescription (Maybe Text)
pdPlatformCategory = lens _pdPlatformCategory (\ s a -> s{_pdPlatformCategory = a})
pdPlatformVersion :: Lens' PlatformDescription (Maybe Text)
pdPlatformVersion = lens _pdPlatformVersion (\ s a -> s{_pdPlatformVersion = a})
pdPlatformStatus :: Lens' PlatformDescription (Maybe PlatformStatus)
pdPlatformStatus = lens _pdPlatformStatus (\ s a -> s{_pdPlatformStatus = a})
pdMaintainer :: Lens' PlatformDescription (Maybe Text)
pdMaintainer = lens _pdMaintainer (\ s a -> s{_pdMaintainer = a})
pdPlatformOwner :: Lens' PlatformDescription (Maybe Text)
pdPlatformOwner = lens _pdPlatformOwner (\ s a -> s{_pdPlatformOwner = a})
pdDateUpdated :: Lens' PlatformDescription (Maybe UTCTime)
pdDateUpdated = lens _pdDateUpdated (\ s a -> s{_pdDateUpdated = a}) . mapping _Time
pdCustomAMIList :: Lens' PlatformDescription [CustomAMI]
pdCustomAMIList = lens _pdCustomAMIList (\ s a -> s{_pdCustomAMIList = a}) . _Default . _Coerce
pdDateCreated :: Lens' PlatformDescription (Maybe UTCTime)
pdDateCreated = lens _pdDateCreated (\ s a -> s{_pdDateCreated = a}) . mapping _Time
pdOperatingSystemName :: Lens' PlatformDescription (Maybe Text)
pdOperatingSystemName = lens _pdOperatingSystemName (\ s a -> s{_pdOperatingSystemName = a})
pdFrameworks :: Lens' PlatformDescription [PlatformFramework]
pdFrameworks = lens _pdFrameworks (\ s a -> s{_pdFrameworks = a}) . _Default . _Coerce
pdPlatformARN :: Lens' PlatformDescription (Maybe Text)
pdPlatformARN = lens _pdPlatformARN (\ s a -> s{_pdPlatformARN = a})
pdOperatingSystemVersion :: Lens' PlatformDescription (Maybe Text)
pdOperatingSystemVersion = lens _pdOperatingSystemVersion (\ s a -> s{_pdOperatingSystemVersion = a})
pdProgrammingLanguages :: Lens' PlatformDescription [PlatformProgrammingLanguage]
pdProgrammingLanguages = lens _pdProgrammingLanguages (\ s a -> s{_pdProgrammingLanguages = a}) . _Default . _Coerce
pdSolutionStackName :: Lens' PlatformDescription (Maybe Text)
pdSolutionStackName = lens _pdSolutionStackName (\ s a -> s{_pdSolutionStackName = a})
pdPlatformName :: Lens' PlatformDescription (Maybe Text)
pdPlatformName = lens _pdPlatformName (\ s a -> s{_pdPlatformName = a})
pdDescription :: Lens' PlatformDescription (Maybe Text)
pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a})
pdSupportedTierList :: Lens' PlatformDescription [Text]
pdSupportedTierList = lens _pdSupportedTierList (\ s a -> s{_pdSupportedTierList = a}) . _Default . _Coerce
instance FromXML PlatformDescription where
parseXML x
= PlatformDescription' <$>
(x .@? "SupportedAddonList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "PlatformCategory")
<*> (x .@? "PlatformVersion")
<*> (x .@? "PlatformStatus")
<*> (x .@? "Maintainer")
<*> (x .@? "PlatformOwner")
<*> (x .@? "DateUpdated")
<*>
(x .@? "CustomAmiList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "DateCreated")
<*> (x .@? "OperatingSystemName")
<*>
(x .@? "Frameworks" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "PlatformArn")
<*> (x .@? "OperatingSystemVersion")
<*>
(x .@? "ProgrammingLanguages" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "SolutionStackName")
<*> (x .@? "PlatformName")
<*> (x .@? "Description")
<*>
(x .@? "SupportedTierList" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable PlatformDescription where
instance NFData PlatformDescription where
data PlatformFilter = PlatformFilter'
{ _pfValues :: !(Maybe [Text])
, _pfOperator :: !(Maybe Text)
, _pfType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
platformFilter
:: PlatformFilter
platformFilter =
PlatformFilter'
{_pfValues = Nothing, _pfOperator = Nothing, _pfType = Nothing}
pfValues :: Lens' PlatformFilter [Text]
pfValues = lens _pfValues (\ s a -> s{_pfValues = a}) . _Default . _Coerce
pfOperator :: Lens' PlatformFilter (Maybe Text)
pfOperator = lens _pfOperator (\ s a -> s{_pfOperator = a})
pfType :: Lens' PlatformFilter (Maybe Text)
pfType = lens _pfType (\ s a -> s{_pfType = a})
instance Hashable PlatformFilter where
instance NFData PlatformFilter where
instance ToQuery PlatformFilter where
toQuery PlatformFilter'{..}
= mconcat
["Values" =:
toQuery (toQueryList "member" <$> _pfValues),
"Operator" =: _pfOperator, "Type" =: _pfType]
data PlatformFramework = PlatformFramework'
{ _pfName :: !(Maybe Text)
, _pfVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
platformFramework
:: PlatformFramework
platformFramework = PlatformFramework' {_pfName = Nothing, _pfVersion = Nothing}
pfName :: Lens' PlatformFramework (Maybe Text)
pfName = lens _pfName (\ s a -> s{_pfName = a})
pfVersion :: Lens' PlatformFramework (Maybe Text)
pfVersion = lens _pfVersion (\ s a -> s{_pfVersion = a})
instance FromXML PlatformFramework where
parseXML x
= PlatformFramework' <$>
(x .@? "Name") <*> (x .@? "Version")
instance Hashable PlatformFramework where
instance NFData PlatformFramework where
data PlatformProgrammingLanguage = PlatformProgrammingLanguage'
{ _pplName :: !(Maybe Text)
, _pplVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
platformProgrammingLanguage
:: PlatformProgrammingLanguage
platformProgrammingLanguage =
PlatformProgrammingLanguage' {_pplName = Nothing, _pplVersion = Nothing}
pplName :: Lens' PlatformProgrammingLanguage (Maybe Text)
pplName = lens _pplName (\ s a -> s{_pplName = a})
pplVersion :: Lens' PlatformProgrammingLanguage (Maybe Text)
pplVersion = lens _pplVersion (\ s a -> s{_pplVersion = a})
instance FromXML PlatformProgrammingLanguage where
parseXML x
= PlatformProgrammingLanguage' <$>
(x .@? "Name") <*> (x .@? "Version")
instance Hashable PlatformProgrammingLanguage where
instance NFData PlatformProgrammingLanguage where
data PlatformSummary = PlatformSummary'
{ _psSupportedAddonList :: !(Maybe [Text])
, _psPlatformCategory :: !(Maybe Text)
, _psPlatformStatus :: !(Maybe PlatformStatus)
, _psPlatformOwner :: !(Maybe Text)
, _psOperatingSystemName :: !(Maybe Text)
, _psPlatformARN :: !(Maybe Text)
, _psOperatingSystemVersion :: !(Maybe Text)
, _psSupportedTierList :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
platformSummary
:: PlatformSummary
platformSummary =
PlatformSummary'
{ _psSupportedAddonList = Nothing
, _psPlatformCategory = Nothing
, _psPlatformStatus = Nothing
, _psPlatformOwner = Nothing
, _psOperatingSystemName = Nothing
, _psPlatformARN = Nothing
, _psOperatingSystemVersion = Nothing
, _psSupportedTierList = Nothing
}
psSupportedAddonList :: Lens' PlatformSummary [Text]
psSupportedAddonList = lens _psSupportedAddonList (\ s a -> s{_psSupportedAddonList = a}) . _Default . _Coerce
psPlatformCategory :: Lens' PlatformSummary (Maybe Text)
psPlatformCategory = lens _psPlatformCategory (\ s a -> s{_psPlatformCategory = a})
psPlatformStatus :: Lens' PlatformSummary (Maybe PlatformStatus)
psPlatformStatus = lens _psPlatformStatus (\ s a -> s{_psPlatformStatus = a})
psPlatformOwner :: Lens' PlatformSummary (Maybe Text)
psPlatformOwner = lens _psPlatformOwner (\ s a -> s{_psPlatformOwner = a})
psOperatingSystemName :: Lens' PlatformSummary (Maybe Text)
psOperatingSystemName = lens _psOperatingSystemName (\ s a -> s{_psOperatingSystemName = a})
psPlatformARN :: Lens' PlatformSummary (Maybe Text)
psPlatformARN = lens _psPlatformARN (\ s a -> s{_psPlatformARN = a})
psOperatingSystemVersion :: Lens' PlatformSummary (Maybe Text)
psOperatingSystemVersion = lens _psOperatingSystemVersion (\ s a -> s{_psOperatingSystemVersion = a})
psSupportedTierList :: Lens' PlatformSummary [Text]
psSupportedTierList = lens _psSupportedTierList (\ s a -> s{_psSupportedTierList = a}) . _Default . _Coerce
instance FromXML PlatformSummary where
parseXML x
= PlatformSummary' <$>
(x .@? "SupportedAddonList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "PlatformCategory")
<*> (x .@? "PlatformStatus")
<*> (x .@? "PlatformOwner")
<*> (x .@? "OperatingSystemName")
<*> (x .@? "PlatformArn")
<*> (x .@? "OperatingSystemVersion")
<*>
(x .@? "SupportedTierList" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable PlatformSummary where
instance NFData PlatformSummary where
data Queue = Queue'
{ _qURL :: !(Maybe Text)
, _qName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
queue
:: Queue
queue = Queue' {_qURL = Nothing, _qName = Nothing}
qURL :: Lens' Queue (Maybe Text)
qURL = lens _qURL (\ s a -> s{_qURL = a})
qName :: Lens' Queue (Maybe Text)
qName = lens _qName (\ s a -> s{_qName = a})
instance FromXML Queue where
parseXML x
= Queue' <$> (x .@? "URL") <*> (x .@? "Name")
instance Hashable Queue where
instance NFData Queue where
newtype ResourceQuota = ResourceQuota'
{ _rqMaximum :: Maybe Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceQuota
:: ResourceQuota
resourceQuota = ResourceQuota' {_rqMaximum = Nothing}
rqMaximum :: Lens' ResourceQuota (Maybe Int)
rqMaximum = lens _rqMaximum (\ s a -> s{_rqMaximum = a})
instance FromXML ResourceQuota where
parseXML x = ResourceQuota' <$> (x .@? "Maximum")
instance Hashable ResourceQuota where
instance NFData ResourceQuota where
data ResourceQuotas = ResourceQuotas'
{ _rqApplicationQuota :: !(Maybe ResourceQuota)
, _rqCustomPlatformQuota :: !(Maybe ResourceQuota)
, _rqApplicationVersionQuota :: !(Maybe ResourceQuota)
, _rqEnvironmentQuota :: !(Maybe ResourceQuota)
, _rqConfigurationTemplateQuota :: !(Maybe ResourceQuota)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceQuotas
:: ResourceQuotas
resourceQuotas =
ResourceQuotas'
{ _rqApplicationQuota = Nothing
, _rqCustomPlatformQuota = Nothing
, _rqApplicationVersionQuota = Nothing
, _rqEnvironmentQuota = Nothing
, _rqConfigurationTemplateQuota = Nothing
}
rqApplicationQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)
rqApplicationQuota = lens _rqApplicationQuota (\ s a -> s{_rqApplicationQuota = a})
rqCustomPlatformQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)
rqCustomPlatformQuota = lens _rqCustomPlatformQuota (\ s a -> s{_rqCustomPlatformQuota = a})
rqApplicationVersionQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)
rqApplicationVersionQuota = lens _rqApplicationVersionQuota (\ s a -> s{_rqApplicationVersionQuota = a})
rqEnvironmentQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)
rqEnvironmentQuota = lens _rqEnvironmentQuota (\ s a -> s{_rqEnvironmentQuota = a})
rqConfigurationTemplateQuota :: Lens' ResourceQuotas (Maybe ResourceQuota)
rqConfigurationTemplateQuota = lens _rqConfigurationTemplateQuota (\ s a -> s{_rqConfigurationTemplateQuota = a})
instance FromXML ResourceQuotas where
parseXML x
= ResourceQuotas' <$>
(x .@? "ApplicationQuota") <*>
(x .@? "CustomPlatformQuota")
<*> (x .@? "ApplicationVersionQuota")
<*> (x .@? "EnvironmentQuota")
<*> (x .@? "ConfigurationTemplateQuota")
instance Hashable ResourceQuotas where
instance NFData ResourceQuotas where
data S3Location = S3Location'
{ _slS3Key :: !(Maybe Text)
, _slS3Bucket :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
s3Location
:: S3Location
s3Location = S3Location' {_slS3Key = Nothing, _slS3Bucket = Nothing}
slS3Key :: Lens' S3Location (Maybe Text)
slS3Key = lens _slS3Key (\ s a -> s{_slS3Key = a})
slS3Bucket :: Lens' S3Location (Maybe Text)
slS3Bucket = lens _slS3Bucket (\ s a -> s{_slS3Bucket = a})
instance FromXML S3Location where
parseXML x
= S3Location' <$>
(x .@? "S3Key") <*> (x .@? "S3Bucket")
instance Hashable S3Location where
instance NFData S3Location where
instance ToQuery S3Location where
toQuery S3Location'{..}
= mconcat
["S3Key" =: _slS3Key, "S3Bucket" =: _slS3Bucket]
data SingleInstanceHealth = SingleInstanceHealth'
{ _sihInstanceId :: !(Maybe Text)
, _sihCauses :: !(Maybe [Text])
, _sihSystem :: !(Maybe SystemStatus)
, _sihApplicationMetrics :: !(Maybe ApplicationMetrics)
, _sihColor :: !(Maybe Text)
, _sihInstanceType :: !(Maybe Text)
, _sihAvailabilityZone :: !(Maybe Text)
, _sihHealthStatus :: !(Maybe Text)
, _sihDeployment :: !(Maybe Deployment)
, _sihLaunchedAt :: !(Maybe ISO8601)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
singleInstanceHealth
:: SingleInstanceHealth
singleInstanceHealth =
SingleInstanceHealth'
{ _sihInstanceId = Nothing
, _sihCauses = Nothing
, _sihSystem = Nothing
, _sihApplicationMetrics = Nothing
, _sihColor = Nothing
, _sihInstanceType = Nothing
, _sihAvailabilityZone = Nothing
, _sihHealthStatus = Nothing
, _sihDeployment = Nothing
, _sihLaunchedAt = Nothing
}
sihInstanceId :: Lens' SingleInstanceHealth (Maybe Text)
sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a})
sihCauses :: Lens' SingleInstanceHealth [Text]
sihCauses = lens _sihCauses (\ s a -> s{_sihCauses = a}) . _Default . _Coerce
sihSystem :: Lens' SingleInstanceHealth (Maybe SystemStatus)
sihSystem = lens _sihSystem (\ s a -> s{_sihSystem = a})
sihApplicationMetrics :: Lens' SingleInstanceHealth (Maybe ApplicationMetrics)
sihApplicationMetrics = lens _sihApplicationMetrics (\ s a -> s{_sihApplicationMetrics = a})
sihColor :: Lens' SingleInstanceHealth (Maybe Text)
sihColor = lens _sihColor (\ s a -> s{_sihColor = a})
sihInstanceType :: Lens' SingleInstanceHealth (Maybe Text)
sihInstanceType = lens _sihInstanceType (\ s a -> s{_sihInstanceType = a})
sihAvailabilityZone :: Lens' SingleInstanceHealth (Maybe Text)
sihAvailabilityZone = lens _sihAvailabilityZone (\ s a -> s{_sihAvailabilityZone = a})
sihHealthStatus :: Lens' SingleInstanceHealth (Maybe Text)
sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a})
sihDeployment :: Lens' SingleInstanceHealth (Maybe Deployment)
sihDeployment = lens _sihDeployment (\ s a -> s{_sihDeployment = a})
sihLaunchedAt :: Lens' SingleInstanceHealth (Maybe UTCTime)
sihLaunchedAt = lens _sihLaunchedAt (\ s a -> s{_sihLaunchedAt = a}) . mapping _Time
instance FromXML SingleInstanceHealth where
parseXML x
= SingleInstanceHealth' <$>
(x .@? "InstanceId") <*>
(x .@? "Causes" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "System")
<*> (x .@? "ApplicationMetrics")
<*> (x .@? "Color")
<*> (x .@? "InstanceType")
<*> (x .@? "AvailabilityZone")
<*> (x .@? "HealthStatus")
<*> (x .@? "Deployment")
<*> (x .@? "LaunchedAt")
instance Hashable SingleInstanceHealth where
instance NFData SingleInstanceHealth where
data SolutionStackDescription = SolutionStackDescription'
{ _ssdPermittedFileTypes :: !(Maybe [Text])
, _ssdSolutionStackName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
solutionStackDescription
:: SolutionStackDescription
solutionStackDescription =
SolutionStackDescription'
{_ssdPermittedFileTypes = Nothing, _ssdSolutionStackName = Nothing}
ssdPermittedFileTypes :: Lens' SolutionStackDescription [Text]
ssdPermittedFileTypes = lens _ssdPermittedFileTypes (\ s a -> s{_ssdPermittedFileTypes = a}) . _Default . _Coerce
ssdSolutionStackName :: Lens' SolutionStackDescription (Maybe Text)
ssdSolutionStackName = lens _ssdSolutionStackName (\ s a -> s{_ssdSolutionStackName = a})
instance FromXML SolutionStackDescription where
parseXML x
= SolutionStackDescription' <$>
(x .@? "PermittedFileTypes" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "SolutionStackName")
instance Hashable SolutionStackDescription where
instance NFData SolutionStackDescription where
data SourceBuildInformation = SourceBuildInformation'
{ _sbiSourceType :: !SourceType
, _sbiSourceRepository :: !SourceRepository
, _sbiSourceLocation :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sourceBuildInformation
:: SourceType
-> SourceRepository
-> Text
-> SourceBuildInformation
sourceBuildInformation pSourceType_ pSourceRepository_ pSourceLocation_ =
SourceBuildInformation'
{ _sbiSourceType = pSourceType_
, _sbiSourceRepository = pSourceRepository_
, _sbiSourceLocation = pSourceLocation_
}
sbiSourceType :: Lens' SourceBuildInformation SourceType
sbiSourceType = lens _sbiSourceType (\ s a -> s{_sbiSourceType = a})
sbiSourceRepository :: Lens' SourceBuildInformation SourceRepository
sbiSourceRepository = lens _sbiSourceRepository (\ s a -> s{_sbiSourceRepository = a})
sbiSourceLocation :: Lens' SourceBuildInformation Text
sbiSourceLocation = lens _sbiSourceLocation (\ s a -> s{_sbiSourceLocation = a})
instance FromXML SourceBuildInformation where
parseXML x
= SourceBuildInformation' <$>
(x .@ "SourceType") <*> (x .@ "SourceRepository") <*>
(x .@ "SourceLocation")
instance Hashable SourceBuildInformation where
instance NFData SourceBuildInformation where
instance ToQuery SourceBuildInformation where
toQuery SourceBuildInformation'{..}
= mconcat
["SourceType" =: _sbiSourceType,
"SourceRepository" =: _sbiSourceRepository,
"SourceLocation" =: _sbiSourceLocation]
data SourceConfiguration = SourceConfiguration'
{ _scTemplateName :: !(Maybe Text)
, _scApplicationName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sourceConfiguration
:: SourceConfiguration
sourceConfiguration =
SourceConfiguration' {_scTemplateName = Nothing, _scApplicationName = Nothing}
scTemplateName :: Lens' SourceConfiguration (Maybe Text)
scTemplateName = lens _scTemplateName (\ s a -> s{_scTemplateName = a})
scApplicationName :: Lens' SourceConfiguration (Maybe Text)
scApplicationName = lens _scApplicationName (\ s a -> s{_scApplicationName = a})
instance Hashable SourceConfiguration where
instance NFData SourceConfiguration where
instance ToQuery SourceConfiguration where
toQuery SourceConfiguration'{..}
= mconcat
["TemplateName" =: _scTemplateName,
"ApplicationName" =: _scApplicationName]
data StatusCodes = StatusCodes'
{ _scStatus2xx :: !(Maybe Int)
, _scStatus3xx :: !(Maybe Int)
, _scStatus4xx :: !(Maybe Int)
, _scStatus5xx :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
statusCodes
:: StatusCodes
statusCodes =
StatusCodes'
{ _scStatus2xx = Nothing
, _scStatus3xx = Nothing
, _scStatus4xx = Nothing
, _scStatus5xx = Nothing
}
scStatus2xx :: Lens' StatusCodes (Maybe Int)
scStatus2xx = lens _scStatus2xx (\ s a -> s{_scStatus2xx = a})
scStatus3xx :: Lens' StatusCodes (Maybe Int)
scStatus3xx = lens _scStatus3xx (\ s a -> s{_scStatus3xx = a})
scStatus4xx :: Lens' StatusCodes (Maybe Int)
scStatus4xx = lens _scStatus4xx (\ s a -> s{_scStatus4xx = a})
scStatus5xx :: Lens' StatusCodes (Maybe Int)
scStatus5xx = lens _scStatus5xx (\ s a -> s{_scStatus5xx = a})
instance FromXML StatusCodes where
parseXML x
= StatusCodes' <$>
(x .@? "Status2xx") <*> (x .@? "Status3xx") <*>
(x .@? "Status4xx")
<*> (x .@? "Status5xx")
instance Hashable StatusCodes where
instance NFData StatusCodes where
data SystemStatus = SystemStatus'
{ _ssCPUUtilization :: !(Maybe CPUUtilization)
, _ssLoadAverage :: !(Maybe [Double])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
systemStatus
:: SystemStatus
systemStatus =
SystemStatus' {_ssCPUUtilization = Nothing, _ssLoadAverage = Nothing}
ssCPUUtilization :: Lens' SystemStatus (Maybe CPUUtilization)
ssCPUUtilization = lens _ssCPUUtilization (\ s a -> s{_ssCPUUtilization = a})
ssLoadAverage :: Lens' SystemStatus [Double]
ssLoadAverage = lens _ssLoadAverage (\ s a -> s{_ssLoadAverage = a}) . _Default . _Coerce
instance FromXML SystemStatus where
parseXML x
= SystemStatus' <$>
(x .@? "CPUUtilization") <*>
(x .@? "LoadAverage" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable SystemStatus where
instance NFData SystemStatus where
data Tag = Tag'
{ _tagValue :: !(Maybe Text)
, _tagKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tag
:: Tag
tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}
tagValue :: Lens' Tag (Maybe Text)
tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
tagKey :: Lens' Tag (Maybe Text)
tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
instance FromXML Tag where
parseXML x
= Tag' <$> (x .@? "Value") <*> (x .@? "Key")
instance Hashable Tag where
instance NFData Tag where
instance ToQuery Tag where
toQuery Tag'{..}
= mconcat ["Value" =: _tagValue, "Key" =: _tagKey]
newtype Trigger = Trigger'
{ _tName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
trigger
:: Trigger
trigger = Trigger' {_tName = Nothing}
tName :: Lens' Trigger (Maybe Text)
tName = lens _tName (\ s a -> s{_tName = a})
instance FromXML Trigger where
parseXML x = Trigger' <$> (x .@? "Name")
instance Hashable Trigger where
instance NFData Trigger where
data ValidationMessage = ValidationMessage'
{ _vmOptionName :: !(Maybe Text)
, _vmSeverity :: !(Maybe ValidationSeverity)
, _vmNamespace :: !(Maybe Text)
, _vmMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
validationMessage
:: ValidationMessage
validationMessage =
ValidationMessage'
{ _vmOptionName = Nothing
, _vmSeverity = Nothing
, _vmNamespace = Nothing
, _vmMessage = Nothing
}
vmOptionName :: Lens' ValidationMessage (Maybe Text)
vmOptionName = lens _vmOptionName (\ s a -> s{_vmOptionName = a})
vmSeverity :: Lens' ValidationMessage (Maybe ValidationSeverity)
vmSeverity = lens _vmSeverity (\ s a -> s{_vmSeverity = a})
vmNamespace :: Lens' ValidationMessage (Maybe Text)
vmNamespace = lens _vmNamespace (\ s a -> s{_vmNamespace = a})
vmMessage :: Lens' ValidationMessage (Maybe Text)
vmMessage = lens _vmMessage (\ s a -> s{_vmMessage = a})
instance FromXML ValidationMessage where
parseXML x
= ValidationMessage' <$>
(x .@? "OptionName") <*> (x .@? "Severity") <*>
(x .@? "Namespace")
<*> (x .@? "Message")
instance Hashable ValidationMessage where
instance NFData ValidationMessage where