module Network.AWS.ElasticBeanstalk.Types.Product where
import Network.AWS.ElasticBeanstalk.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
data ApplicationDescription = ApplicationDescription'
{ _adVersions :: !(Maybe [Text])
, _adDateUpdated :: !(Maybe ISO8601)
, _adDateCreated :: !(Maybe ISO8601)
, _adApplicationName :: !(Maybe Text)
, _adConfigurationTemplates :: !(Maybe [Text])
, _adDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
applicationDescription
:: ApplicationDescription
applicationDescription =
ApplicationDescription'
{ _adVersions = Nothing
, _adDateUpdated = Nothing
, _adDateCreated = Nothing
, _adApplicationName = Nothing
, _adConfigurationTemplates = Nothing
, _adDescription = Nothing
}
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;
adDescription :: Lens' ApplicationDescription (Maybe Text)
adDescription = lens _adDescription (\ s a -> s{_adDescription = a});
instance FromXML ApplicationDescription where
parseXML x
= ApplicationDescription' <$>
(x .@? "Versions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "DateUpdated")
<*> (x .@? "DateCreated")
<*> (x .@? "ApplicationName")
<*>
(x .@? "ConfigurationTemplates" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Description")
instance Hashable ApplicationDescription
instance NFData ApplicationDescription
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
instance NFData ApplicationDescriptionMessage
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
instance NFData ApplicationMetrics
data ApplicationVersionDescription = ApplicationVersionDescription'
{ _avdStatus :: !(Maybe ApplicationVersionStatus)
, _avdSourceBundle :: !(Maybe S3Location)
, _avdDateUpdated :: !(Maybe ISO8601)
, _avdDateCreated :: !(Maybe ISO8601)
, _avdVersionLabel :: !(Maybe Text)
, _avdApplicationName :: !(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
, _avdApplicationName = 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});
avdApplicationName :: Lens' ApplicationVersionDescription (Maybe Text)
avdApplicationName = lens _avdApplicationName (\ s a -> s{_avdApplicationName = 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 .@? "ApplicationName")
<*> (x .@? "Description")
instance Hashable ApplicationVersionDescription
instance NFData ApplicationVersionDescription
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
instance NFData ApplicationVersionDescriptionMessage
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
instance NFData AutoScalingGroup
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
instance NFData CPUUtilization
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
instance NFData ConfigurationOptionDescription
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
instance NFData ConfigurationOptionSetting
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)
, _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
, _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;
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 .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "DeploymentStatus")
<*> (x .@? "SolutionStackName")
<*> (x .@? "Description")
instance Hashable ConfigurationSettingsDescription
instance NFData ConfigurationSettingsDescription
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
instance NFData Deployment
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)
, _eTier :: !(Maybe EnvironmentTier)
, _eEnvironmentName :: !(Maybe Text)
, _eApplicationName :: !(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
, _eTier = Nothing
, _eEnvironmentName = Nothing
, _eApplicationName = 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});
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});
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 .@? "Tier")
<*> (x .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "SolutionStackName")
<*> (x .@? "EnvironmentId")
<*> (x .@? "HealthStatus")
<*>
(x .@? "EnvironmentLinks" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "Description")
instance Hashable EnvironmentDescription
instance NFData EnvironmentDescription
newtype EnvironmentDescriptionsMessage = EnvironmentDescriptionsMessage'
{ _edmEnvironments :: Maybe [EnvironmentDescription]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
environmentDescriptionsMessage
:: EnvironmentDescriptionsMessage
environmentDescriptionsMessage =
EnvironmentDescriptionsMessage'
{ _edmEnvironments = Nothing
}
edmEnvironments :: Lens' EnvironmentDescriptionsMessage [EnvironmentDescription]
edmEnvironments = lens _edmEnvironments (\ s a -> s{_edmEnvironments = a}) . _Default . _Coerce;
instance FromXML EnvironmentDescriptionsMessage where
parseXML x
= EnvironmentDescriptionsMessage' <$>
(x .@? "Environments" .!@ mempty >>=
may (parseXMLList "member"))
instance Hashable EnvironmentDescriptionsMessage
instance NFData EnvironmentDescriptionsMessage
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
instance NFData EnvironmentInfoDescription
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
instance NFData EnvironmentLink
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
instance NFData EnvironmentResourceDescription
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
instance NFData EnvironmentResourcesDescription
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
instance NFData EnvironmentTier
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)
, _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
, _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});
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 .@? "EnvironmentName")
<*> (x .@? "ApplicationName")
<*> (x .@? "EventDate")
<*> (x .@? "Message")
instance Hashable EventDescription
instance NFData EventDescription
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
instance NFData Instance
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
instance NFData InstanceHealthSummary
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
instance NFData Latency
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
instance NFData LaunchConfiguration
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
instance NFData Listener
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
instance NFData LoadBalancer
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
instance NFData LoadBalancerDescription
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
instance NFData ManagedAction
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
instance NFData ManagedActionHistoryItem
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
instance NFData OptionRestrictionRegex
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
instance NFData OptionSpecification
instance ToQuery OptionSpecification where
toQuery OptionSpecification'{..}
= mconcat
["OptionName" =: _osOptionName,
"ResourceName" =: _osResourceName,
"Namespace" =: _osNamespace]
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
instance NFData Queue
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
instance NFData S3Location
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
instance NFData SingleInstanceHealth
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
instance NFData SolutionStackDescription
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
instance NFData SourceConfiguration
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
instance NFData StatusCodes
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
instance NFData SystemStatus
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 Hashable Tag
instance NFData Tag
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
instance NFData Trigger
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
instance NFData ValidationMessage