{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.SSM.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.SSM.Types.Sum
data Activation = Activation'
{ _aExpired :: !(Maybe Bool)
, _aDefaultInstanceName :: !(Maybe Text)
, _aActivationId :: !(Maybe Text)
, _aCreatedDate :: !(Maybe POSIX)
, _aRegistrationLimit :: !(Maybe Nat)
, _aExpirationDate :: !(Maybe POSIX)
, _aDescription :: !(Maybe Text)
, _aRegistrationsCount :: !(Maybe Nat)
, _aIAMRole :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activation
:: Activation
activation =
Activation'
{ _aExpired = Nothing
, _aDefaultInstanceName = Nothing
, _aActivationId = Nothing
, _aCreatedDate = Nothing
, _aRegistrationLimit = Nothing
, _aExpirationDate = Nothing
, _aDescription = Nothing
, _aRegistrationsCount = Nothing
, _aIAMRole = Nothing
}
aExpired :: Lens' Activation (Maybe Bool)
aExpired = lens _aExpired (\ s a -> s{_aExpired = a})
aDefaultInstanceName :: Lens' Activation (Maybe Text)
aDefaultInstanceName = lens _aDefaultInstanceName (\ s a -> s{_aDefaultInstanceName = a})
aActivationId :: Lens' Activation (Maybe Text)
aActivationId = lens _aActivationId (\ s a -> s{_aActivationId = a})
aCreatedDate :: Lens' Activation (Maybe UTCTime)
aCreatedDate = lens _aCreatedDate (\ s a -> s{_aCreatedDate = a}) . mapping _Time
aRegistrationLimit :: Lens' Activation (Maybe Natural)
aRegistrationLimit = lens _aRegistrationLimit (\ s a -> s{_aRegistrationLimit = a}) . mapping _Nat
aExpirationDate :: Lens' Activation (Maybe UTCTime)
aExpirationDate = lens _aExpirationDate (\ s a -> s{_aExpirationDate = a}) . mapping _Time
aDescription :: Lens' Activation (Maybe Text)
aDescription = lens _aDescription (\ s a -> s{_aDescription = a})
aRegistrationsCount :: Lens' Activation (Maybe Natural)
aRegistrationsCount = lens _aRegistrationsCount (\ s a -> s{_aRegistrationsCount = a}) . mapping _Nat
aIAMRole :: Lens' Activation (Maybe Text)
aIAMRole = lens _aIAMRole (\ s a -> s{_aIAMRole = a})
instance FromJSON Activation where
parseJSON
= withObject "Activation"
(\ x ->
Activation' <$>
(x .:? "Expired") <*> (x .:? "DefaultInstanceName")
<*> (x .:? "ActivationId")
<*> (x .:? "CreatedDate")
<*> (x .:? "RegistrationLimit")
<*> (x .:? "ExpirationDate")
<*> (x .:? "Description")
<*> (x .:? "RegistrationsCount")
<*> (x .:? "IamRole"))
instance Hashable Activation where
instance NFData Activation where
data Association = Association'
{ _aAssociationId :: !(Maybe Text)
, _aInstanceId :: !(Maybe Text)
, _aOverview :: !(Maybe AssociationOverview)
, _aLastExecutionDate :: !(Maybe POSIX)
, _aScheduleExpression :: !(Maybe Text)
, _aName :: !(Maybe Text)
, _aTargets :: !(Maybe [Target])
, _aDocumentVersion :: !(Maybe Text)
, _aAssociationVersion :: !(Maybe Text)
, _aAssociationName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
association
:: Association
association =
Association'
{ _aAssociationId = Nothing
, _aInstanceId = Nothing
, _aOverview = Nothing
, _aLastExecutionDate = Nothing
, _aScheduleExpression = Nothing
, _aName = Nothing
, _aTargets = Nothing
, _aDocumentVersion = Nothing
, _aAssociationVersion = Nothing
, _aAssociationName = Nothing
}
aAssociationId :: Lens' Association (Maybe Text)
aAssociationId = lens _aAssociationId (\ s a -> s{_aAssociationId = a})
aInstanceId :: Lens' Association (Maybe Text)
aInstanceId = lens _aInstanceId (\ s a -> s{_aInstanceId = a})
aOverview :: Lens' Association (Maybe AssociationOverview)
aOverview = lens _aOverview (\ s a -> s{_aOverview = a})
aLastExecutionDate :: Lens' Association (Maybe UTCTime)
aLastExecutionDate = lens _aLastExecutionDate (\ s a -> s{_aLastExecutionDate = a}) . mapping _Time
aScheduleExpression :: Lens' Association (Maybe Text)
aScheduleExpression = lens _aScheduleExpression (\ s a -> s{_aScheduleExpression = a})
aName :: Lens' Association (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a})
aTargets :: Lens' Association [Target]
aTargets = lens _aTargets (\ s a -> s{_aTargets = a}) . _Default . _Coerce
aDocumentVersion :: Lens' Association (Maybe Text)
aDocumentVersion = lens _aDocumentVersion (\ s a -> s{_aDocumentVersion = a})
aAssociationVersion :: Lens' Association (Maybe Text)
aAssociationVersion = lens _aAssociationVersion (\ s a -> s{_aAssociationVersion = a})
aAssociationName :: Lens' Association (Maybe Text)
aAssociationName = lens _aAssociationName (\ s a -> s{_aAssociationName = a})
instance FromJSON Association where
parseJSON
= withObject "Association"
(\ x ->
Association' <$>
(x .:? "AssociationId") <*> (x .:? "InstanceId") <*>
(x .:? "Overview")
<*> (x .:? "LastExecutionDate")
<*> (x .:? "ScheduleExpression")
<*> (x .:? "Name")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "AssociationVersion")
<*> (x .:? "AssociationName"))
instance Hashable Association where
instance NFData Association where
data AssociationDescription = AssociationDescription'
{ _adAssociationId :: !(Maybe Text)
, _adInstanceId :: !(Maybe Text)
, _adStatus :: !(Maybe AssociationStatus)
, _adLastSuccessfulExecutionDate :: !(Maybe POSIX)
, _adOverview :: !(Maybe AssociationOverview)
, _adLastUpdateAssociationDate :: !(Maybe POSIX)
, _adDate :: !(Maybe POSIX)
, _adLastExecutionDate :: !(Maybe POSIX)
, _adScheduleExpression :: !(Maybe Text)
, _adName :: !(Maybe Text)
, _adOutputLocation :: !(Maybe InstanceAssociationOutputLocation)
, _adTargets :: !(Maybe [Target])
, _adParameters :: !(Maybe (Map Text [Text]))
, _adDocumentVersion :: !(Maybe Text)
, _adAssociationVersion :: !(Maybe Text)
, _adAssociationName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associationDescription
:: AssociationDescription
associationDescription =
AssociationDescription'
{ _adAssociationId = Nothing
, _adInstanceId = Nothing
, _adStatus = Nothing
, _adLastSuccessfulExecutionDate = Nothing
, _adOverview = Nothing
, _adLastUpdateAssociationDate = Nothing
, _adDate = Nothing
, _adLastExecutionDate = Nothing
, _adScheduleExpression = Nothing
, _adName = Nothing
, _adOutputLocation = Nothing
, _adTargets = Nothing
, _adParameters = Nothing
, _adDocumentVersion = Nothing
, _adAssociationVersion = Nothing
, _adAssociationName = Nothing
}
adAssociationId :: Lens' AssociationDescription (Maybe Text)
adAssociationId = lens _adAssociationId (\ s a -> s{_adAssociationId = a})
adInstanceId :: Lens' AssociationDescription (Maybe Text)
adInstanceId = lens _adInstanceId (\ s a -> s{_adInstanceId = a})
adStatus :: Lens' AssociationDescription (Maybe AssociationStatus)
adStatus = lens _adStatus (\ s a -> s{_adStatus = a})
adLastSuccessfulExecutionDate :: Lens' AssociationDescription (Maybe UTCTime)
adLastSuccessfulExecutionDate = lens _adLastSuccessfulExecutionDate (\ s a -> s{_adLastSuccessfulExecutionDate = a}) . mapping _Time
adOverview :: Lens' AssociationDescription (Maybe AssociationOverview)
adOverview = lens _adOverview (\ s a -> s{_adOverview = a})
adLastUpdateAssociationDate :: Lens' AssociationDescription (Maybe UTCTime)
adLastUpdateAssociationDate = lens _adLastUpdateAssociationDate (\ s a -> s{_adLastUpdateAssociationDate = a}) . mapping _Time
adDate :: Lens' AssociationDescription (Maybe UTCTime)
adDate = lens _adDate (\ s a -> s{_adDate = a}) . mapping _Time
adLastExecutionDate :: Lens' AssociationDescription (Maybe UTCTime)
adLastExecutionDate = lens _adLastExecutionDate (\ s a -> s{_adLastExecutionDate = a}) . mapping _Time
adScheduleExpression :: Lens' AssociationDescription (Maybe Text)
adScheduleExpression = lens _adScheduleExpression (\ s a -> s{_adScheduleExpression = a})
adName :: Lens' AssociationDescription (Maybe Text)
adName = lens _adName (\ s a -> s{_adName = a})
adOutputLocation :: Lens' AssociationDescription (Maybe InstanceAssociationOutputLocation)
adOutputLocation = lens _adOutputLocation (\ s a -> s{_adOutputLocation = a})
adTargets :: Lens' AssociationDescription [Target]
adTargets = lens _adTargets (\ s a -> s{_adTargets = a}) . _Default . _Coerce
adParameters :: Lens' AssociationDescription (HashMap Text [Text])
adParameters = lens _adParameters (\ s a -> s{_adParameters = a}) . _Default . _Map
adDocumentVersion :: Lens' AssociationDescription (Maybe Text)
adDocumentVersion = lens _adDocumentVersion (\ s a -> s{_adDocumentVersion = a})
adAssociationVersion :: Lens' AssociationDescription (Maybe Text)
adAssociationVersion = lens _adAssociationVersion (\ s a -> s{_adAssociationVersion = a})
adAssociationName :: Lens' AssociationDescription (Maybe Text)
adAssociationName = lens _adAssociationName (\ s a -> s{_adAssociationName = a})
instance FromJSON AssociationDescription where
parseJSON
= withObject "AssociationDescription"
(\ x ->
AssociationDescription' <$>
(x .:? "AssociationId") <*> (x .:? "InstanceId") <*>
(x .:? "Status")
<*> (x .:? "LastSuccessfulExecutionDate")
<*> (x .:? "Overview")
<*> (x .:? "LastUpdateAssociationDate")
<*> (x .:? "Date")
<*> (x .:? "LastExecutionDate")
<*> (x .:? "ScheduleExpression")
<*> (x .:? "Name")
<*> (x .:? "OutputLocation")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "AssociationVersion")
<*> (x .:? "AssociationName"))
instance Hashable AssociationDescription where
instance NFData AssociationDescription where
data AssociationFilter = AssociationFilter'
{ _afKey :: !AssociationFilterKey
, _afValue :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associationFilter
:: AssociationFilterKey
-> Text
-> AssociationFilter
associationFilter pKey_ pValue_ =
AssociationFilter' {_afKey = pKey_, _afValue = pValue_}
afKey :: Lens' AssociationFilter AssociationFilterKey
afKey = lens _afKey (\ s a -> s{_afKey = a})
afValue :: Lens' AssociationFilter Text
afValue = lens _afValue (\ s a -> s{_afValue = a})
instance Hashable AssociationFilter where
instance NFData AssociationFilter where
instance ToJSON AssociationFilter where
toJSON AssociationFilter'{..}
= object
(catMaybes
[Just ("key" .= _afKey), Just ("value" .= _afValue)])
data AssociationOverview = AssociationOverview'
{ _aoDetailedStatus :: !(Maybe Text)
, _aoStatus :: !(Maybe Text)
, _aoAssociationStatusAggregatedCount :: !(Maybe (Map Text Int))
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associationOverview
:: AssociationOverview
associationOverview =
AssociationOverview'
{ _aoDetailedStatus = Nothing
, _aoStatus = Nothing
, _aoAssociationStatusAggregatedCount = Nothing
}
aoDetailedStatus :: Lens' AssociationOverview (Maybe Text)
aoDetailedStatus = lens _aoDetailedStatus (\ s a -> s{_aoDetailedStatus = a})
aoStatus :: Lens' AssociationOverview (Maybe Text)
aoStatus = lens _aoStatus (\ s a -> s{_aoStatus = a})
aoAssociationStatusAggregatedCount :: Lens' AssociationOverview (HashMap Text Int)
aoAssociationStatusAggregatedCount = lens _aoAssociationStatusAggregatedCount (\ s a -> s{_aoAssociationStatusAggregatedCount = a}) . _Default . _Map
instance FromJSON AssociationOverview where
parseJSON
= withObject "AssociationOverview"
(\ x ->
AssociationOverview' <$>
(x .:? "DetailedStatus") <*> (x .:? "Status") <*>
(x .:? "AssociationStatusAggregatedCount" .!=
mempty))
instance Hashable AssociationOverview where
instance NFData AssociationOverview where
data AssociationStatus = AssociationStatus'
{ _asAdditionalInfo :: !(Maybe Text)
, _asDate :: !POSIX
, _asName :: !AssociationStatusName
, _asMessage :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associationStatus
:: UTCTime
-> AssociationStatusName
-> Text
-> AssociationStatus
associationStatus pDate_ pName_ pMessage_ =
AssociationStatus'
{ _asAdditionalInfo = Nothing
, _asDate = _Time # pDate_
, _asName = pName_
, _asMessage = pMessage_
}
asAdditionalInfo :: Lens' AssociationStatus (Maybe Text)
asAdditionalInfo = lens _asAdditionalInfo (\ s a -> s{_asAdditionalInfo = a})
asDate :: Lens' AssociationStatus UTCTime
asDate = lens _asDate (\ s a -> s{_asDate = a}) . _Time
asName :: Lens' AssociationStatus AssociationStatusName
asName = lens _asName (\ s a -> s{_asName = a})
asMessage :: Lens' AssociationStatus Text
asMessage = lens _asMessage (\ s a -> s{_asMessage = a})
instance FromJSON AssociationStatus where
parseJSON
= withObject "AssociationStatus"
(\ x ->
AssociationStatus' <$>
(x .:? "AdditionalInfo") <*> (x .: "Date") <*>
(x .: "Name")
<*> (x .: "Message"))
instance Hashable AssociationStatus where
instance NFData AssociationStatus where
instance ToJSON AssociationStatus where
toJSON AssociationStatus'{..}
= object
(catMaybes
[("AdditionalInfo" .=) <$> _asAdditionalInfo,
Just ("Date" .= _asDate), Just ("Name" .= _asName),
Just ("Message" .= _asMessage)])
data AssociationVersionInfo = AssociationVersionInfo'
{ _aviAssociationId :: !(Maybe Text)
, _aviCreatedDate :: !(Maybe POSIX)
, _aviScheduleExpression :: !(Maybe Text)
, _aviName :: !(Maybe Text)
, _aviOutputLocation :: !(Maybe InstanceAssociationOutputLocation)
, _aviTargets :: !(Maybe [Target])
, _aviParameters :: !(Maybe (Map Text [Text]))
, _aviDocumentVersion :: !(Maybe Text)
, _aviAssociationVersion :: !(Maybe Text)
, _aviAssociationName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
associationVersionInfo
:: AssociationVersionInfo
associationVersionInfo =
AssociationVersionInfo'
{ _aviAssociationId = Nothing
, _aviCreatedDate = Nothing
, _aviScheduleExpression = Nothing
, _aviName = Nothing
, _aviOutputLocation = Nothing
, _aviTargets = Nothing
, _aviParameters = Nothing
, _aviDocumentVersion = Nothing
, _aviAssociationVersion = Nothing
, _aviAssociationName = Nothing
}
aviAssociationId :: Lens' AssociationVersionInfo (Maybe Text)
aviAssociationId = lens _aviAssociationId (\ s a -> s{_aviAssociationId = a})
aviCreatedDate :: Lens' AssociationVersionInfo (Maybe UTCTime)
aviCreatedDate = lens _aviCreatedDate (\ s a -> s{_aviCreatedDate = a}) . mapping _Time
aviScheduleExpression :: Lens' AssociationVersionInfo (Maybe Text)
aviScheduleExpression = lens _aviScheduleExpression (\ s a -> s{_aviScheduleExpression = a})
aviName :: Lens' AssociationVersionInfo (Maybe Text)
aviName = lens _aviName (\ s a -> s{_aviName = a})
aviOutputLocation :: Lens' AssociationVersionInfo (Maybe InstanceAssociationOutputLocation)
aviOutputLocation = lens _aviOutputLocation (\ s a -> s{_aviOutputLocation = a})
aviTargets :: Lens' AssociationVersionInfo [Target]
aviTargets = lens _aviTargets (\ s a -> s{_aviTargets = a}) . _Default . _Coerce
aviParameters :: Lens' AssociationVersionInfo (HashMap Text [Text])
aviParameters = lens _aviParameters (\ s a -> s{_aviParameters = a}) . _Default . _Map
aviDocumentVersion :: Lens' AssociationVersionInfo (Maybe Text)
aviDocumentVersion = lens _aviDocumentVersion (\ s a -> s{_aviDocumentVersion = a})
aviAssociationVersion :: Lens' AssociationVersionInfo (Maybe Text)
aviAssociationVersion = lens _aviAssociationVersion (\ s a -> s{_aviAssociationVersion = a})
aviAssociationName :: Lens' AssociationVersionInfo (Maybe Text)
aviAssociationName = lens _aviAssociationName (\ s a -> s{_aviAssociationName = a})
instance FromJSON AssociationVersionInfo where
parseJSON
= withObject "AssociationVersionInfo"
(\ x ->
AssociationVersionInfo' <$>
(x .:? "AssociationId") <*> (x .:? "CreatedDate") <*>
(x .:? "ScheduleExpression")
<*> (x .:? "Name")
<*> (x .:? "OutputLocation")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "AssociationVersion")
<*> (x .:? "AssociationName"))
instance Hashable AssociationVersionInfo where
instance NFData AssociationVersionInfo where
data AutomationExecution = AutomationExecution'
{ _aeCurrentStepName :: !(Maybe Text)
, _aeTargetParameterName :: !(Maybe Text)
, _aeExecutedBy :: !(Maybe Text)
, _aeDocumentName :: !(Maybe Text)
, _aeExecutionEndTime :: !(Maybe POSIX)
, _aeFailureMessage :: !(Maybe Text)
, _aeMode :: !(Maybe ExecutionMode)
, _aeStepExecutionsTruncated :: !(Maybe Bool)
, _aeAutomationExecutionStatus :: !(Maybe AutomationExecutionStatus)
, _aeParentAutomationExecutionId :: !(Maybe Text)
, _aeOutputs :: !(Maybe (Map Text [Text]))
, _aeMaxErrors :: !(Maybe Text)
, _aeExecutionStartTime :: !(Maybe POSIX)
, _aeCurrentAction :: !(Maybe Text)
, _aeTargets :: !(Maybe [Target])
, _aeResolvedTargets :: !(Maybe ResolvedTargets)
, _aeParameters :: !(Maybe (Map Text [Text]))
, _aeDocumentVersion :: !(Maybe Text)
, _aeAutomationExecutionId :: !(Maybe Text)
, _aeStepExecutions :: !(Maybe [StepExecution])
, _aeMaxConcurrency :: !(Maybe Text)
, _aeTarget :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
automationExecution
:: AutomationExecution
automationExecution =
AutomationExecution'
{ _aeCurrentStepName = Nothing
, _aeTargetParameterName = Nothing
, _aeExecutedBy = Nothing
, _aeDocumentName = Nothing
, _aeExecutionEndTime = Nothing
, _aeFailureMessage = Nothing
, _aeMode = Nothing
, _aeStepExecutionsTruncated = Nothing
, _aeAutomationExecutionStatus = Nothing
, _aeParentAutomationExecutionId = Nothing
, _aeOutputs = Nothing
, _aeMaxErrors = Nothing
, _aeExecutionStartTime = Nothing
, _aeCurrentAction = Nothing
, _aeTargets = Nothing
, _aeResolvedTargets = Nothing
, _aeParameters = Nothing
, _aeDocumentVersion = Nothing
, _aeAutomationExecutionId = Nothing
, _aeStepExecutions = Nothing
, _aeMaxConcurrency = Nothing
, _aeTarget = Nothing
}
aeCurrentStepName :: Lens' AutomationExecution (Maybe Text)
aeCurrentStepName = lens _aeCurrentStepName (\ s a -> s{_aeCurrentStepName = a})
aeTargetParameterName :: Lens' AutomationExecution (Maybe Text)
aeTargetParameterName = lens _aeTargetParameterName (\ s a -> s{_aeTargetParameterName = a})
aeExecutedBy :: Lens' AutomationExecution (Maybe Text)
aeExecutedBy = lens _aeExecutedBy (\ s a -> s{_aeExecutedBy = a})
aeDocumentName :: Lens' AutomationExecution (Maybe Text)
aeDocumentName = lens _aeDocumentName (\ s a -> s{_aeDocumentName = a})
aeExecutionEndTime :: Lens' AutomationExecution (Maybe UTCTime)
aeExecutionEndTime = lens _aeExecutionEndTime (\ s a -> s{_aeExecutionEndTime = a}) . mapping _Time
aeFailureMessage :: Lens' AutomationExecution (Maybe Text)
aeFailureMessage = lens _aeFailureMessage (\ s a -> s{_aeFailureMessage = a})
aeMode :: Lens' AutomationExecution (Maybe ExecutionMode)
aeMode = lens _aeMode (\ s a -> s{_aeMode = a})
aeStepExecutionsTruncated :: Lens' AutomationExecution (Maybe Bool)
aeStepExecutionsTruncated = lens _aeStepExecutionsTruncated (\ s a -> s{_aeStepExecutionsTruncated = a})
aeAutomationExecutionStatus :: Lens' AutomationExecution (Maybe AutomationExecutionStatus)
aeAutomationExecutionStatus = lens _aeAutomationExecutionStatus (\ s a -> s{_aeAutomationExecutionStatus = a})
aeParentAutomationExecutionId :: Lens' AutomationExecution (Maybe Text)
aeParentAutomationExecutionId = lens _aeParentAutomationExecutionId (\ s a -> s{_aeParentAutomationExecutionId = a})
aeOutputs :: Lens' AutomationExecution (HashMap Text [Text])
aeOutputs = lens _aeOutputs (\ s a -> s{_aeOutputs = a}) . _Default . _Map
aeMaxErrors :: Lens' AutomationExecution (Maybe Text)
aeMaxErrors = lens _aeMaxErrors (\ s a -> s{_aeMaxErrors = a})
aeExecutionStartTime :: Lens' AutomationExecution (Maybe UTCTime)
aeExecutionStartTime = lens _aeExecutionStartTime (\ s a -> s{_aeExecutionStartTime = a}) . mapping _Time
aeCurrentAction :: Lens' AutomationExecution (Maybe Text)
aeCurrentAction = lens _aeCurrentAction (\ s a -> s{_aeCurrentAction = a})
aeTargets :: Lens' AutomationExecution [Target]
aeTargets = lens _aeTargets (\ s a -> s{_aeTargets = a}) . _Default . _Coerce
aeResolvedTargets :: Lens' AutomationExecution (Maybe ResolvedTargets)
aeResolvedTargets = lens _aeResolvedTargets (\ s a -> s{_aeResolvedTargets = a})
aeParameters :: Lens' AutomationExecution (HashMap Text [Text])
aeParameters = lens _aeParameters (\ s a -> s{_aeParameters = a}) . _Default . _Map
aeDocumentVersion :: Lens' AutomationExecution (Maybe Text)
aeDocumentVersion = lens _aeDocumentVersion (\ s a -> s{_aeDocumentVersion = a})
aeAutomationExecutionId :: Lens' AutomationExecution (Maybe Text)
aeAutomationExecutionId = lens _aeAutomationExecutionId (\ s a -> s{_aeAutomationExecutionId = a})
aeStepExecutions :: Lens' AutomationExecution [StepExecution]
aeStepExecutions = lens _aeStepExecutions (\ s a -> s{_aeStepExecutions = a}) . _Default . _Coerce
aeMaxConcurrency :: Lens' AutomationExecution (Maybe Text)
aeMaxConcurrency = lens _aeMaxConcurrency (\ s a -> s{_aeMaxConcurrency = a})
aeTarget :: Lens' AutomationExecution (Maybe Text)
aeTarget = lens _aeTarget (\ s a -> s{_aeTarget = a})
instance FromJSON AutomationExecution where
parseJSON
= withObject "AutomationExecution"
(\ x ->
AutomationExecution' <$>
(x .:? "CurrentStepName") <*>
(x .:? "TargetParameterName")
<*> (x .:? "ExecutedBy")
<*> (x .:? "DocumentName")
<*> (x .:? "ExecutionEndTime")
<*> (x .:? "FailureMessage")
<*> (x .:? "Mode")
<*> (x .:? "StepExecutionsTruncated")
<*> (x .:? "AutomationExecutionStatus")
<*> (x .:? "ParentAutomationExecutionId")
<*> (x .:? "Outputs" .!= mempty)
<*> (x .:? "MaxErrors")
<*> (x .:? "ExecutionStartTime")
<*> (x .:? "CurrentAction")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "ResolvedTargets")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "AutomationExecutionId")
<*> (x .:? "StepExecutions" .!= mempty)
<*> (x .:? "MaxConcurrency")
<*> (x .:? "Target"))
instance Hashable AutomationExecution where
instance NFData AutomationExecution where
data AutomationExecutionFilter = AutomationExecutionFilter'
{ _aefKey :: !AutomationExecutionFilterKey
, _aefValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
automationExecutionFilter
:: AutomationExecutionFilterKey
-> NonEmpty Text
-> AutomationExecutionFilter
automationExecutionFilter pKey_ pValues_ =
AutomationExecutionFilter' {_aefKey = pKey_, _aefValues = _List1 # pValues_}
aefKey :: Lens' AutomationExecutionFilter AutomationExecutionFilterKey
aefKey = lens _aefKey (\ s a -> s{_aefKey = a})
aefValues :: Lens' AutomationExecutionFilter (NonEmpty Text)
aefValues = lens _aefValues (\ s a -> s{_aefValues = a}) . _List1
instance Hashable AutomationExecutionFilter where
instance NFData AutomationExecutionFilter where
instance ToJSON AutomationExecutionFilter where
toJSON AutomationExecutionFilter'{..}
= object
(catMaybes
[Just ("Key" .= _aefKey),
Just ("Values" .= _aefValues)])
data AutomationExecutionMetadata = AutomationExecutionMetadata'
{ _aemCurrentStepName :: !(Maybe Text)
, _aemTargetParameterName :: !(Maybe Text)
, _aemLogFile :: !(Maybe Text)
, _aemExecutedBy :: !(Maybe Text)
, _aemDocumentName :: !(Maybe Text)
, _aemExecutionEndTime :: !(Maybe POSIX)
, _aemFailureMessage :: !(Maybe Text)
, _aemMode :: !(Maybe ExecutionMode)
, _aemAutomationExecutionStatus :: !(Maybe AutomationExecutionStatus)
, _aemParentAutomationExecutionId :: !(Maybe Text)
, _aemOutputs :: !(Maybe (Map Text [Text]))
, _aemMaxErrors :: !(Maybe Text)
, _aemExecutionStartTime :: !(Maybe POSIX)
, _aemCurrentAction :: !(Maybe Text)
, _aemTargets :: !(Maybe [Target])
, _aemResolvedTargets :: !(Maybe ResolvedTargets)
, _aemDocumentVersion :: !(Maybe Text)
, _aemAutomationExecutionId :: !(Maybe Text)
, _aemMaxConcurrency :: !(Maybe Text)
, _aemTarget :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
automationExecutionMetadata
:: AutomationExecutionMetadata
automationExecutionMetadata =
AutomationExecutionMetadata'
{ _aemCurrentStepName = Nothing
, _aemTargetParameterName = Nothing
, _aemLogFile = Nothing
, _aemExecutedBy = Nothing
, _aemDocumentName = Nothing
, _aemExecutionEndTime = Nothing
, _aemFailureMessage = Nothing
, _aemMode = Nothing
, _aemAutomationExecutionStatus = Nothing
, _aemParentAutomationExecutionId = Nothing
, _aemOutputs = Nothing
, _aemMaxErrors = Nothing
, _aemExecutionStartTime = Nothing
, _aemCurrentAction = Nothing
, _aemTargets = Nothing
, _aemResolvedTargets = Nothing
, _aemDocumentVersion = Nothing
, _aemAutomationExecutionId = Nothing
, _aemMaxConcurrency = Nothing
, _aemTarget = Nothing
}
aemCurrentStepName :: Lens' AutomationExecutionMetadata (Maybe Text)
aemCurrentStepName = lens _aemCurrentStepName (\ s a -> s{_aemCurrentStepName = a})
aemTargetParameterName :: Lens' AutomationExecutionMetadata (Maybe Text)
aemTargetParameterName = lens _aemTargetParameterName (\ s a -> s{_aemTargetParameterName = a})
aemLogFile :: Lens' AutomationExecutionMetadata (Maybe Text)
aemLogFile = lens _aemLogFile (\ s a -> s{_aemLogFile = a})
aemExecutedBy :: Lens' AutomationExecutionMetadata (Maybe Text)
aemExecutedBy = lens _aemExecutedBy (\ s a -> s{_aemExecutedBy = a})
aemDocumentName :: Lens' AutomationExecutionMetadata (Maybe Text)
aemDocumentName = lens _aemDocumentName (\ s a -> s{_aemDocumentName = a})
aemExecutionEndTime :: Lens' AutomationExecutionMetadata (Maybe UTCTime)
aemExecutionEndTime = lens _aemExecutionEndTime (\ s a -> s{_aemExecutionEndTime = a}) . mapping _Time
aemFailureMessage :: Lens' AutomationExecutionMetadata (Maybe Text)
aemFailureMessage = lens _aemFailureMessage (\ s a -> s{_aemFailureMessage = a})
aemMode :: Lens' AutomationExecutionMetadata (Maybe ExecutionMode)
aemMode = lens _aemMode (\ s a -> s{_aemMode = a})
aemAutomationExecutionStatus :: Lens' AutomationExecutionMetadata (Maybe AutomationExecutionStatus)
aemAutomationExecutionStatus = lens _aemAutomationExecutionStatus (\ s a -> s{_aemAutomationExecutionStatus = a})
aemParentAutomationExecutionId :: Lens' AutomationExecutionMetadata (Maybe Text)
aemParentAutomationExecutionId = lens _aemParentAutomationExecutionId (\ s a -> s{_aemParentAutomationExecutionId = a})
aemOutputs :: Lens' AutomationExecutionMetadata (HashMap Text [Text])
aemOutputs = lens _aemOutputs (\ s a -> s{_aemOutputs = a}) . _Default . _Map
aemMaxErrors :: Lens' AutomationExecutionMetadata (Maybe Text)
aemMaxErrors = lens _aemMaxErrors (\ s a -> s{_aemMaxErrors = a})
aemExecutionStartTime :: Lens' AutomationExecutionMetadata (Maybe UTCTime)
aemExecutionStartTime = lens _aemExecutionStartTime (\ s a -> s{_aemExecutionStartTime = a}) . mapping _Time
aemCurrentAction :: Lens' AutomationExecutionMetadata (Maybe Text)
aemCurrentAction = lens _aemCurrentAction (\ s a -> s{_aemCurrentAction = a})
aemTargets :: Lens' AutomationExecutionMetadata [Target]
aemTargets = lens _aemTargets (\ s a -> s{_aemTargets = a}) . _Default . _Coerce
aemResolvedTargets :: Lens' AutomationExecutionMetadata (Maybe ResolvedTargets)
aemResolvedTargets = lens _aemResolvedTargets (\ s a -> s{_aemResolvedTargets = a})
aemDocumentVersion :: Lens' AutomationExecutionMetadata (Maybe Text)
aemDocumentVersion = lens _aemDocumentVersion (\ s a -> s{_aemDocumentVersion = a})
aemAutomationExecutionId :: Lens' AutomationExecutionMetadata (Maybe Text)
aemAutomationExecutionId = lens _aemAutomationExecutionId (\ s a -> s{_aemAutomationExecutionId = a})
aemMaxConcurrency :: Lens' AutomationExecutionMetadata (Maybe Text)
aemMaxConcurrency = lens _aemMaxConcurrency (\ s a -> s{_aemMaxConcurrency = a})
aemTarget :: Lens' AutomationExecutionMetadata (Maybe Text)
aemTarget = lens _aemTarget (\ s a -> s{_aemTarget = a})
instance FromJSON AutomationExecutionMetadata where
parseJSON
= withObject "AutomationExecutionMetadata"
(\ x ->
AutomationExecutionMetadata' <$>
(x .:? "CurrentStepName") <*>
(x .:? "TargetParameterName")
<*> (x .:? "LogFile")
<*> (x .:? "ExecutedBy")
<*> (x .:? "DocumentName")
<*> (x .:? "ExecutionEndTime")
<*> (x .:? "FailureMessage")
<*> (x .:? "Mode")
<*> (x .:? "AutomationExecutionStatus")
<*> (x .:? "ParentAutomationExecutionId")
<*> (x .:? "Outputs" .!= mempty)
<*> (x .:? "MaxErrors")
<*> (x .:? "ExecutionStartTime")
<*> (x .:? "CurrentAction")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "ResolvedTargets")
<*> (x .:? "DocumentVersion")
<*> (x .:? "AutomationExecutionId")
<*> (x .:? "MaxConcurrency")
<*> (x .:? "Target"))
instance Hashable AutomationExecutionMetadata where
instance NFData AutomationExecutionMetadata where
data Command = Command'
{ _cStatus :: !(Maybe CommandStatus)
, _cExpiresAfter :: !(Maybe POSIX)
, _cNotificationConfig :: !(Maybe NotificationConfig)
, _cTargetCount :: !(Maybe Int)
, _cOutputS3KeyPrefix :: !(Maybe Text)
, _cDocumentName :: !(Maybe Text)
, _cErrorCount :: !(Maybe Int)
, _cStatusDetails :: !(Maybe Text)
, _cMaxErrors :: !(Maybe Text)
, _cInstanceIds :: !(Maybe [Text])
, _cOutputS3Region :: !(Maybe Text)
, _cTargets :: !(Maybe [Target])
, _cCommandId :: !(Maybe Text)
, _cParameters :: !(Maybe (Map Text [Text]))
, _cDocumentVersion :: !(Maybe Text)
, _cComment :: !(Maybe Text)
, _cCompletedCount :: !(Maybe Int)
, _cOutputS3BucketName :: !(Maybe Text)
, _cMaxConcurrency :: !(Maybe Text)
, _cRequestedDateTime :: !(Maybe POSIX)
, _cServiceRole :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
command
:: Command
command =
Command'
{ _cStatus = Nothing
, _cExpiresAfter = Nothing
, _cNotificationConfig = Nothing
, _cTargetCount = Nothing
, _cOutputS3KeyPrefix = Nothing
, _cDocumentName = Nothing
, _cErrorCount = Nothing
, _cStatusDetails = Nothing
, _cMaxErrors = Nothing
, _cInstanceIds = Nothing
, _cOutputS3Region = Nothing
, _cTargets = Nothing
, _cCommandId = Nothing
, _cParameters = Nothing
, _cDocumentVersion = Nothing
, _cComment = Nothing
, _cCompletedCount = Nothing
, _cOutputS3BucketName = Nothing
, _cMaxConcurrency = Nothing
, _cRequestedDateTime = Nothing
, _cServiceRole = Nothing
}
cStatus :: Lens' Command (Maybe CommandStatus)
cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
cExpiresAfter :: Lens' Command (Maybe UTCTime)
cExpiresAfter = lens _cExpiresAfter (\ s a -> s{_cExpiresAfter = a}) . mapping _Time
cNotificationConfig :: Lens' Command (Maybe NotificationConfig)
cNotificationConfig = lens _cNotificationConfig (\ s a -> s{_cNotificationConfig = a})
cTargetCount :: Lens' Command (Maybe Int)
cTargetCount = lens _cTargetCount (\ s a -> s{_cTargetCount = a})
cOutputS3KeyPrefix :: Lens' Command (Maybe Text)
cOutputS3KeyPrefix = lens _cOutputS3KeyPrefix (\ s a -> s{_cOutputS3KeyPrefix = a})
cDocumentName :: Lens' Command (Maybe Text)
cDocumentName = lens _cDocumentName (\ s a -> s{_cDocumentName = a})
cErrorCount :: Lens' Command (Maybe Int)
cErrorCount = lens _cErrorCount (\ s a -> s{_cErrorCount = a})
cStatusDetails :: Lens' Command (Maybe Text)
cStatusDetails = lens _cStatusDetails (\ s a -> s{_cStatusDetails = a})
cMaxErrors :: Lens' Command (Maybe Text)
cMaxErrors = lens _cMaxErrors (\ s a -> s{_cMaxErrors = a})
cInstanceIds :: Lens' Command [Text]
cInstanceIds = lens _cInstanceIds (\ s a -> s{_cInstanceIds = a}) . _Default . _Coerce
cOutputS3Region :: Lens' Command (Maybe Text)
cOutputS3Region = lens _cOutputS3Region (\ s a -> s{_cOutputS3Region = a})
cTargets :: Lens' Command [Target]
cTargets = lens _cTargets (\ s a -> s{_cTargets = a}) . _Default . _Coerce
cCommandId :: Lens' Command (Maybe Text)
cCommandId = lens _cCommandId (\ s a -> s{_cCommandId = a})
cParameters :: Lens' Command (HashMap Text [Text])
cParameters = lens _cParameters (\ s a -> s{_cParameters = a}) . _Default . _Map
cDocumentVersion :: Lens' Command (Maybe Text)
cDocumentVersion = lens _cDocumentVersion (\ s a -> s{_cDocumentVersion = a})
cComment :: Lens' Command (Maybe Text)
cComment = lens _cComment (\ s a -> s{_cComment = a})
cCompletedCount :: Lens' Command (Maybe Int)
cCompletedCount = lens _cCompletedCount (\ s a -> s{_cCompletedCount = a})
cOutputS3BucketName :: Lens' Command (Maybe Text)
cOutputS3BucketName = lens _cOutputS3BucketName (\ s a -> s{_cOutputS3BucketName = a})
cMaxConcurrency :: Lens' Command (Maybe Text)
cMaxConcurrency = lens _cMaxConcurrency (\ s a -> s{_cMaxConcurrency = a})
cRequestedDateTime :: Lens' Command (Maybe UTCTime)
cRequestedDateTime = lens _cRequestedDateTime (\ s a -> s{_cRequestedDateTime = a}) . mapping _Time
cServiceRole :: Lens' Command (Maybe Text)
cServiceRole = lens _cServiceRole (\ s a -> s{_cServiceRole = a})
instance FromJSON Command where
parseJSON
= withObject "Command"
(\ x ->
Command' <$>
(x .:? "Status") <*> (x .:? "ExpiresAfter") <*>
(x .:? "NotificationConfig")
<*> (x .:? "TargetCount")
<*> (x .:? "OutputS3KeyPrefix")
<*> (x .:? "DocumentName")
<*> (x .:? "ErrorCount")
<*> (x .:? "StatusDetails")
<*> (x .:? "MaxErrors")
<*> (x .:? "InstanceIds" .!= mempty)
<*> (x .:? "OutputS3Region")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "CommandId")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "Comment")
<*> (x .:? "CompletedCount")
<*> (x .:? "OutputS3BucketName")
<*> (x .:? "MaxConcurrency")
<*> (x .:? "RequestedDateTime")
<*> (x .:? "ServiceRole"))
instance Hashable Command where
instance NFData Command where
data CommandFilter = CommandFilter'
{ _cfKey :: !CommandFilterKey
, _cfValue :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
commandFilter
:: CommandFilterKey
-> Text
-> CommandFilter
commandFilter pKey_ pValue_ =
CommandFilter' {_cfKey = pKey_, _cfValue = pValue_}
cfKey :: Lens' CommandFilter CommandFilterKey
cfKey = lens _cfKey (\ s a -> s{_cfKey = a})
cfValue :: Lens' CommandFilter Text
cfValue = lens _cfValue (\ s a -> s{_cfValue = a})
instance Hashable CommandFilter where
instance NFData CommandFilter where
instance ToJSON CommandFilter where
toJSON CommandFilter'{..}
= object
(catMaybes
[Just ("key" .= _cfKey), Just ("value" .= _cfValue)])
data CommandInvocation = CommandInvocation'
{ _comInstanceId :: !(Maybe Text)
, _comStatus :: !(Maybe CommandInvocationStatus)
, _comNotificationConfig :: !(Maybe NotificationConfig)
, _comCommandPlugins :: !(Maybe [CommandPlugin])
, _comDocumentName :: !(Maybe Text)
, _comStandardErrorURL :: !(Maybe Text)
, _comStatusDetails :: !(Maybe Text)
, _comStandardOutputURL :: !(Maybe Text)
, _comCommandId :: !(Maybe Text)
, _comDocumentVersion :: !(Maybe Text)
, _comComment :: !(Maybe Text)
, _comTraceOutput :: !(Maybe Text)
, _comInstanceName :: !(Maybe Text)
, _comRequestedDateTime :: !(Maybe POSIX)
, _comServiceRole :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
commandInvocation
:: CommandInvocation
commandInvocation =
CommandInvocation'
{ _comInstanceId = Nothing
, _comStatus = Nothing
, _comNotificationConfig = Nothing
, _comCommandPlugins = Nothing
, _comDocumentName = Nothing
, _comStandardErrorURL = Nothing
, _comStatusDetails = Nothing
, _comStandardOutputURL = Nothing
, _comCommandId = Nothing
, _comDocumentVersion = Nothing
, _comComment = Nothing
, _comTraceOutput = Nothing
, _comInstanceName = Nothing
, _comRequestedDateTime = Nothing
, _comServiceRole = Nothing
}
comInstanceId :: Lens' CommandInvocation (Maybe Text)
comInstanceId = lens _comInstanceId (\ s a -> s{_comInstanceId = a})
comStatus :: Lens' CommandInvocation (Maybe CommandInvocationStatus)
comStatus = lens _comStatus (\ s a -> s{_comStatus = a})
comNotificationConfig :: Lens' CommandInvocation (Maybe NotificationConfig)
comNotificationConfig = lens _comNotificationConfig (\ s a -> s{_comNotificationConfig = a})
comCommandPlugins :: Lens' CommandInvocation [CommandPlugin]
comCommandPlugins = lens _comCommandPlugins (\ s a -> s{_comCommandPlugins = a}) . _Default . _Coerce
comDocumentName :: Lens' CommandInvocation (Maybe Text)
comDocumentName = lens _comDocumentName (\ s a -> s{_comDocumentName = a})
comStandardErrorURL :: Lens' CommandInvocation (Maybe Text)
comStandardErrorURL = lens _comStandardErrorURL (\ s a -> s{_comStandardErrorURL = a})
comStatusDetails :: Lens' CommandInvocation (Maybe Text)
comStatusDetails = lens _comStatusDetails (\ s a -> s{_comStatusDetails = a})
comStandardOutputURL :: Lens' CommandInvocation (Maybe Text)
comStandardOutputURL = lens _comStandardOutputURL (\ s a -> s{_comStandardOutputURL = a})
comCommandId :: Lens' CommandInvocation (Maybe Text)
comCommandId = lens _comCommandId (\ s a -> s{_comCommandId = a})
comDocumentVersion :: Lens' CommandInvocation (Maybe Text)
comDocumentVersion = lens _comDocumentVersion (\ s a -> s{_comDocumentVersion = a})
comComment :: Lens' CommandInvocation (Maybe Text)
comComment = lens _comComment (\ s a -> s{_comComment = a})
comTraceOutput :: Lens' CommandInvocation (Maybe Text)
comTraceOutput = lens _comTraceOutput (\ s a -> s{_comTraceOutput = a})
comInstanceName :: Lens' CommandInvocation (Maybe Text)
comInstanceName = lens _comInstanceName (\ s a -> s{_comInstanceName = a})
comRequestedDateTime :: Lens' CommandInvocation (Maybe UTCTime)
comRequestedDateTime = lens _comRequestedDateTime (\ s a -> s{_comRequestedDateTime = a}) . mapping _Time
comServiceRole :: Lens' CommandInvocation (Maybe Text)
comServiceRole = lens _comServiceRole (\ s a -> s{_comServiceRole = a})
instance FromJSON CommandInvocation where
parseJSON
= withObject "CommandInvocation"
(\ x ->
CommandInvocation' <$>
(x .:? "InstanceId") <*> (x .:? "Status") <*>
(x .:? "NotificationConfig")
<*> (x .:? "CommandPlugins" .!= mempty)
<*> (x .:? "DocumentName")
<*> (x .:? "StandardErrorUrl")
<*> (x .:? "StatusDetails")
<*> (x .:? "StandardOutputUrl")
<*> (x .:? "CommandId")
<*> (x .:? "DocumentVersion")
<*> (x .:? "Comment")
<*> (x .:? "TraceOutput")
<*> (x .:? "InstanceName")
<*> (x .:? "RequestedDateTime")
<*> (x .:? "ServiceRole"))
instance Hashable CommandInvocation where
instance NFData CommandInvocation where
data CommandPlugin = CommandPlugin'
{ _cpStatus :: !(Maybe CommandPluginStatus)
, _cpResponseStartDateTime :: !(Maybe POSIX)
, _cpOutputS3KeyPrefix :: !(Maybe Text)
, _cpStandardErrorURL :: !(Maybe Text)
, _cpResponseCode :: !(Maybe Int)
, _cpStatusDetails :: !(Maybe Text)
, _cpOutput :: !(Maybe Text)
, _cpStandardOutputURL :: !(Maybe Text)
, _cpName :: !(Maybe Text)
, _cpOutputS3Region :: !(Maybe Text)
, _cpOutputS3BucketName :: !(Maybe Text)
, _cpResponseFinishDateTime :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
commandPlugin
:: CommandPlugin
commandPlugin =
CommandPlugin'
{ _cpStatus = Nothing
, _cpResponseStartDateTime = Nothing
, _cpOutputS3KeyPrefix = Nothing
, _cpStandardErrorURL = Nothing
, _cpResponseCode = Nothing
, _cpStatusDetails = Nothing
, _cpOutput = Nothing
, _cpStandardOutputURL = Nothing
, _cpName = Nothing
, _cpOutputS3Region = Nothing
, _cpOutputS3BucketName = Nothing
, _cpResponseFinishDateTime = Nothing
}
cpStatus :: Lens' CommandPlugin (Maybe CommandPluginStatus)
cpStatus = lens _cpStatus (\ s a -> s{_cpStatus = a})
cpResponseStartDateTime :: Lens' CommandPlugin (Maybe UTCTime)
cpResponseStartDateTime = lens _cpResponseStartDateTime (\ s a -> s{_cpResponseStartDateTime = a}) . mapping _Time
cpOutputS3KeyPrefix :: Lens' CommandPlugin (Maybe Text)
cpOutputS3KeyPrefix = lens _cpOutputS3KeyPrefix (\ s a -> s{_cpOutputS3KeyPrefix = a})
cpStandardErrorURL :: Lens' CommandPlugin (Maybe Text)
cpStandardErrorURL = lens _cpStandardErrorURL (\ s a -> s{_cpStandardErrorURL = a})
cpResponseCode :: Lens' CommandPlugin (Maybe Int)
cpResponseCode = lens _cpResponseCode (\ s a -> s{_cpResponseCode = a})
cpStatusDetails :: Lens' CommandPlugin (Maybe Text)
cpStatusDetails = lens _cpStatusDetails (\ s a -> s{_cpStatusDetails = a})
cpOutput :: Lens' CommandPlugin (Maybe Text)
cpOutput = lens _cpOutput (\ s a -> s{_cpOutput = a})
cpStandardOutputURL :: Lens' CommandPlugin (Maybe Text)
cpStandardOutputURL = lens _cpStandardOutputURL (\ s a -> s{_cpStandardOutputURL = a})
cpName :: Lens' CommandPlugin (Maybe Text)
cpName = lens _cpName (\ s a -> s{_cpName = a})
cpOutputS3Region :: Lens' CommandPlugin (Maybe Text)
cpOutputS3Region = lens _cpOutputS3Region (\ s a -> s{_cpOutputS3Region = a})
cpOutputS3BucketName :: Lens' CommandPlugin (Maybe Text)
cpOutputS3BucketName = lens _cpOutputS3BucketName (\ s a -> s{_cpOutputS3BucketName = a})
cpResponseFinishDateTime :: Lens' CommandPlugin (Maybe UTCTime)
cpResponseFinishDateTime = lens _cpResponseFinishDateTime (\ s a -> s{_cpResponseFinishDateTime = a}) . mapping _Time
instance FromJSON CommandPlugin where
parseJSON
= withObject "CommandPlugin"
(\ x ->
CommandPlugin' <$>
(x .:? "Status") <*> (x .:? "ResponseStartDateTime")
<*> (x .:? "OutputS3KeyPrefix")
<*> (x .:? "StandardErrorUrl")
<*> (x .:? "ResponseCode")
<*> (x .:? "StatusDetails")
<*> (x .:? "Output")
<*> (x .:? "StandardOutputUrl")
<*> (x .:? "Name")
<*> (x .:? "OutputS3Region")
<*> (x .:? "OutputS3BucketName")
<*> (x .:? "ResponseFinishDateTime"))
instance Hashable CommandPlugin where
instance NFData CommandPlugin where
data ComplianceExecutionSummary = ComplianceExecutionSummary'
{ _cesExecutionId :: !(Maybe Text)
, _cesExecutionType :: !(Maybe Text)
, _cesExecutionTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
complianceExecutionSummary
:: UTCTime
-> ComplianceExecutionSummary
complianceExecutionSummary pExecutionTime_ =
ComplianceExecutionSummary'
{ _cesExecutionId = Nothing
, _cesExecutionType = Nothing
, _cesExecutionTime = _Time # pExecutionTime_
}
cesExecutionId :: Lens' ComplianceExecutionSummary (Maybe Text)
cesExecutionId = lens _cesExecutionId (\ s a -> s{_cesExecutionId = a})
cesExecutionType :: Lens' ComplianceExecutionSummary (Maybe Text)
cesExecutionType = lens _cesExecutionType (\ s a -> s{_cesExecutionType = a})
cesExecutionTime :: Lens' ComplianceExecutionSummary UTCTime
cesExecutionTime = lens _cesExecutionTime (\ s a -> s{_cesExecutionTime = a}) . _Time
instance FromJSON ComplianceExecutionSummary where
parseJSON
= withObject "ComplianceExecutionSummary"
(\ x ->
ComplianceExecutionSummary' <$>
(x .:? "ExecutionId") <*> (x .:? "ExecutionType") <*>
(x .: "ExecutionTime"))
instance Hashable ComplianceExecutionSummary where
instance NFData ComplianceExecutionSummary where
instance ToJSON ComplianceExecutionSummary where
toJSON ComplianceExecutionSummary'{..}
= object
(catMaybes
[("ExecutionId" .=) <$> _cesExecutionId,
("ExecutionType" .=) <$> _cesExecutionType,
Just ("ExecutionTime" .= _cesExecutionTime)])
data ComplianceItem = ComplianceItem'
{ _ciStatus :: !(Maybe ComplianceStatus)
, _ciResourceId :: !(Maybe Text)
, _ciResourceType :: !(Maybe Text)
, _ciSeverity :: !(Maybe ComplianceSeverity)
, _ciExecutionSummary :: !(Maybe ComplianceExecutionSummary)
, _ciDetails :: !(Maybe (Map Text Text))
, _ciId :: !(Maybe Text)
, _ciComplianceType :: !(Maybe Text)
, _ciTitle :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
complianceItem
:: ComplianceItem
complianceItem =
ComplianceItem'
{ _ciStatus = Nothing
, _ciResourceId = Nothing
, _ciResourceType = Nothing
, _ciSeverity = Nothing
, _ciExecutionSummary = Nothing
, _ciDetails = Nothing
, _ciId = Nothing
, _ciComplianceType = Nothing
, _ciTitle = Nothing
}
ciStatus :: Lens' ComplianceItem (Maybe ComplianceStatus)
ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a})
ciResourceId :: Lens' ComplianceItem (Maybe Text)
ciResourceId = lens _ciResourceId (\ s a -> s{_ciResourceId = a})
ciResourceType :: Lens' ComplianceItem (Maybe Text)
ciResourceType = lens _ciResourceType (\ s a -> s{_ciResourceType = a})
ciSeverity :: Lens' ComplianceItem (Maybe ComplianceSeverity)
ciSeverity = lens _ciSeverity (\ s a -> s{_ciSeverity = a})
ciExecutionSummary :: Lens' ComplianceItem (Maybe ComplianceExecutionSummary)
ciExecutionSummary = lens _ciExecutionSummary (\ s a -> s{_ciExecutionSummary = a})
ciDetails :: Lens' ComplianceItem (HashMap Text Text)
ciDetails = lens _ciDetails (\ s a -> s{_ciDetails = a}) . _Default . _Map
ciId :: Lens' ComplianceItem (Maybe Text)
ciId = lens _ciId (\ s a -> s{_ciId = a})
ciComplianceType :: Lens' ComplianceItem (Maybe Text)
ciComplianceType = lens _ciComplianceType (\ s a -> s{_ciComplianceType = a})
ciTitle :: Lens' ComplianceItem (Maybe Text)
ciTitle = lens _ciTitle (\ s a -> s{_ciTitle = a})
instance FromJSON ComplianceItem where
parseJSON
= withObject "ComplianceItem"
(\ x ->
ComplianceItem' <$>
(x .:? "Status") <*> (x .:? "ResourceId") <*>
(x .:? "ResourceType")
<*> (x .:? "Severity")
<*> (x .:? "ExecutionSummary")
<*> (x .:? "Details" .!= mempty)
<*> (x .:? "Id")
<*> (x .:? "ComplianceType")
<*> (x .:? "Title"))
instance Hashable ComplianceItem where
instance NFData ComplianceItem where
data ComplianceItemEntry = ComplianceItemEntry'
{ _cieDetails :: !(Maybe (Map Text Text))
, _cieId :: !(Maybe Text)
, _cieTitle :: !(Maybe Text)
, _cieSeverity :: !ComplianceSeverity
, _cieStatus :: !ComplianceStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
complianceItemEntry
:: ComplianceSeverity
-> ComplianceStatus
-> ComplianceItemEntry
complianceItemEntry pSeverity_ pStatus_ =
ComplianceItemEntry'
{ _cieDetails = Nothing
, _cieId = Nothing
, _cieTitle = Nothing
, _cieSeverity = pSeverity_
, _cieStatus = pStatus_
}
cieDetails :: Lens' ComplianceItemEntry (HashMap Text Text)
cieDetails = lens _cieDetails (\ s a -> s{_cieDetails = a}) . _Default . _Map
cieId :: Lens' ComplianceItemEntry (Maybe Text)
cieId = lens _cieId (\ s a -> s{_cieId = a})
cieTitle :: Lens' ComplianceItemEntry (Maybe Text)
cieTitle = lens _cieTitle (\ s a -> s{_cieTitle = a})
cieSeverity :: Lens' ComplianceItemEntry ComplianceSeverity
cieSeverity = lens _cieSeverity (\ s a -> s{_cieSeverity = a})
cieStatus :: Lens' ComplianceItemEntry ComplianceStatus
cieStatus = lens _cieStatus (\ s a -> s{_cieStatus = a})
instance Hashable ComplianceItemEntry where
instance NFData ComplianceItemEntry where
instance ToJSON ComplianceItemEntry where
toJSON ComplianceItemEntry'{..}
= object
(catMaybes
[("Details" .=) <$> _cieDetails,
("Id" .=) <$> _cieId, ("Title" .=) <$> _cieTitle,
Just ("Severity" .= _cieSeverity),
Just ("Status" .= _cieStatus)])
data ComplianceStringFilter = ComplianceStringFilter'
{ _csfValues :: !(Maybe (List1 Text))
, _csfKey :: !(Maybe Text)
, _csfType :: !(Maybe ComplianceQueryOperatorType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
complianceStringFilter
:: ComplianceStringFilter
complianceStringFilter =
ComplianceStringFilter'
{_csfValues = Nothing, _csfKey = Nothing, _csfType = Nothing}
csfValues :: Lens' ComplianceStringFilter (Maybe (NonEmpty Text))
csfValues = lens _csfValues (\ s a -> s{_csfValues = a}) . mapping _List1
csfKey :: Lens' ComplianceStringFilter (Maybe Text)
csfKey = lens _csfKey (\ s a -> s{_csfKey = a})
csfType :: Lens' ComplianceStringFilter (Maybe ComplianceQueryOperatorType)
csfType = lens _csfType (\ s a -> s{_csfType = a})
instance Hashable ComplianceStringFilter where
instance NFData ComplianceStringFilter where
instance ToJSON ComplianceStringFilter where
toJSON ComplianceStringFilter'{..}
= object
(catMaybes
[("Values" .=) <$> _csfValues,
("Key" .=) <$> _csfKey, ("Type" .=) <$> _csfType])
data ComplianceSummaryItem = ComplianceSummaryItem'
{ _csiNonCompliantSummary :: !(Maybe NonCompliantSummary)
, _csiCompliantSummary :: !(Maybe CompliantSummary)
, _csiComplianceType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
complianceSummaryItem
:: ComplianceSummaryItem
complianceSummaryItem =
ComplianceSummaryItem'
{ _csiNonCompliantSummary = Nothing
, _csiCompliantSummary = Nothing
, _csiComplianceType = Nothing
}
csiNonCompliantSummary :: Lens' ComplianceSummaryItem (Maybe NonCompliantSummary)
csiNonCompliantSummary = lens _csiNonCompliantSummary (\ s a -> s{_csiNonCompliantSummary = a})
csiCompliantSummary :: Lens' ComplianceSummaryItem (Maybe CompliantSummary)
csiCompliantSummary = lens _csiCompliantSummary (\ s a -> s{_csiCompliantSummary = a})
csiComplianceType :: Lens' ComplianceSummaryItem (Maybe Text)
csiComplianceType = lens _csiComplianceType (\ s a -> s{_csiComplianceType = a})
instance FromJSON ComplianceSummaryItem where
parseJSON
= withObject "ComplianceSummaryItem"
(\ x ->
ComplianceSummaryItem' <$>
(x .:? "NonCompliantSummary") <*>
(x .:? "CompliantSummary")
<*> (x .:? "ComplianceType"))
instance Hashable ComplianceSummaryItem where
instance NFData ComplianceSummaryItem where
data CompliantSummary = CompliantSummary'
{ _csCompliantCount :: !(Maybe Int)
, _csSeveritySummary :: !(Maybe SeveritySummary)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
compliantSummary
:: CompliantSummary
compliantSummary =
CompliantSummary' {_csCompliantCount = Nothing, _csSeveritySummary = Nothing}
csCompliantCount :: Lens' CompliantSummary (Maybe Int)
csCompliantCount = lens _csCompliantCount (\ s a -> s{_csCompliantCount = a})
csSeveritySummary :: Lens' CompliantSummary (Maybe SeveritySummary)
csSeveritySummary = lens _csSeveritySummary (\ s a -> s{_csSeveritySummary = a})
instance FromJSON CompliantSummary where
parseJSON
= withObject "CompliantSummary"
(\ x ->
CompliantSummary' <$>
(x .:? "CompliantCount") <*>
(x .:? "SeveritySummary"))
instance Hashable CompliantSummary where
instance NFData CompliantSummary where
data CreateAssociationBatchRequestEntry = CreateAssociationBatchRequestEntry'
{ _cabreInstanceId :: !(Maybe Text)
, _cabreScheduleExpression :: !(Maybe Text)
, _cabreOutputLocation :: !(Maybe InstanceAssociationOutputLocation)
, _cabreTargets :: !(Maybe [Target])
, _cabreParameters :: !(Maybe (Map Text [Text]))
, _cabreDocumentVersion :: !(Maybe Text)
, _cabreAssociationName :: !(Maybe Text)
, _cabreName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createAssociationBatchRequestEntry
:: Text
-> CreateAssociationBatchRequestEntry
createAssociationBatchRequestEntry pName_ =
CreateAssociationBatchRequestEntry'
{ _cabreInstanceId = Nothing
, _cabreScheduleExpression = Nothing
, _cabreOutputLocation = Nothing
, _cabreTargets = Nothing
, _cabreParameters = Nothing
, _cabreDocumentVersion = Nothing
, _cabreAssociationName = Nothing
, _cabreName = pName_
}
cabreInstanceId :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreInstanceId = lens _cabreInstanceId (\ s a -> s{_cabreInstanceId = a})
cabreScheduleExpression :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreScheduleExpression = lens _cabreScheduleExpression (\ s a -> s{_cabreScheduleExpression = a})
cabreOutputLocation :: Lens' CreateAssociationBatchRequestEntry (Maybe InstanceAssociationOutputLocation)
cabreOutputLocation = lens _cabreOutputLocation (\ s a -> s{_cabreOutputLocation = a})
cabreTargets :: Lens' CreateAssociationBatchRequestEntry [Target]
cabreTargets = lens _cabreTargets (\ s a -> s{_cabreTargets = a}) . _Default . _Coerce
cabreParameters :: Lens' CreateAssociationBatchRequestEntry (HashMap Text [Text])
cabreParameters = lens _cabreParameters (\ s a -> s{_cabreParameters = a}) . _Default . _Map
cabreDocumentVersion :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreDocumentVersion = lens _cabreDocumentVersion (\ s a -> s{_cabreDocumentVersion = a})
cabreAssociationName :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreAssociationName = lens _cabreAssociationName (\ s a -> s{_cabreAssociationName = a})
cabreName :: Lens' CreateAssociationBatchRequestEntry Text
cabreName = lens _cabreName (\ s a -> s{_cabreName = a})
instance FromJSON CreateAssociationBatchRequestEntry
where
parseJSON
= withObject "CreateAssociationBatchRequestEntry"
(\ x ->
CreateAssociationBatchRequestEntry' <$>
(x .:? "InstanceId") <*> (x .:? "ScheduleExpression")
<*> (x .:? "OutputLocation")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "AssociationName")
<*> (x .: "Name"))
instance Hashable CreateAssociationBatchRequestEntry
where
instance NFData CreateAssociationBatchRequestEntry
where
instance ToJSON CreateAssociationBatchRequestEntry
where
toJSON CreateAssociationBatchRequestEntry'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _cabreInstanceId,
("ScheduleExpression" .=) <$>
_cabreScheduleExpression,
("OutputLocation" .=) <$> _cabreOutputLocation,
("Targets" .=) <$> _cabreTargets,
("Parameters" .=) <$> _cabreParameters,
("DocumentVersion" .=) <$> _cabreDocumentVersion,
("AssociationName" .=) <$> _cabreAssociationName,
Just ("Name" .= _cabreName)])
data DescribeActivationsFilter = DescribeActivationsFilter'
{ _dafFilterKey :: !(Maybe DescribeActivationsFilterKeys)
, _dafFilterValues :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeActivationsFilter
:: DescribeActivationsFilter
describeActivationsFilter =
DescribeActivationsFilter'
{_dafFilterKey = Nothing, _dafFilterValues = Nothing}
dafFilterKey :: Lens' DescribeActivationsFilter (Maybe DescribeActivationsFilterKeys)
dafFilterKey = lens _dafFilterKey (\ s a -> s{_dafFilterKey = a})
dafFilterValues :: Lens' DescribeActivationsFilter [Text]
dafFilterValues = lens _dafFilterValues (\ s a -> s{_dafFilterValues = a}) . _Default . _Coerce
instance Hashable DescribeActivationsFilter where
instance NFData DescribeActivationsFilter where
instance ToJSON DescribeActivationsFilter where
toJSON DescribeActivationsFilter'{..}
= object
(catMaybes
[("FilterKey" .=) <$> _dafFilterKey,
("FilterValues" .=) <$> _dafFilterValues])
data DocumentDefaultVersionDescription = DocumentDefaultVersionDescription'
{ _ddvdDefaultVersion :: !(Maybe Text)
, _ddvdName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentDefaultVersionDescription
:: DocumentDefaultVersionDescription
documentDefaultVersionDescription =
DocumentDefaultVersionDescription'
{_ddvdDefaultVersion = Nothing, _ddvdName = Nothing}
ddvdDefaultVersion :: Lens' DocumentDefaultVersionDescription (Maybe Text)
ddvdDefaultVersion = lens _ddvdDefaultVersion (\ s a -> s{_ddvdDefaultVersion = a})
ddvdName :: Lens' DocumentDefaultVersionDescription (Maybe Text)
ddvdName = lens _ddvdName (\ s a -> s{_ddvdName = a})
instance FromJSON DocumentDefaultVersionDescription
where
parseJSON
= withObject "DocumentDefaultVersionDescription"
(\ x ->
DocumentDefaultVersionDescription' <$>
(x .:? "DefaultVersion") <*> (x .:? "Name"))
instance Hashable DocumentDefaultVersionDescription
where
instance NFData DocumentDefaultVersionDescription
where
data DocumentDescription = DocumentDescription'
{ _dStatus :: !(Maybe DocumentStatus)
, _dDocumentType :: !(Maybe DocumentType)
, _dHash :: !(Maybe Text)
, _dSchemaVersion :: !(Maybe Text)
, _dSha1 :: !(Maybe Text)
, _dDefaultVersion :: !(Maybe Text)
, _dTargetType :: !(Maybe Text)
, _dOwner :: !(Maybe Text)
, _dPlatformTypes :: !(Maybe [PlatformType])
, _dCreatedDate :: !(Maybe POSIX)
, _dDocumentFormat :: !(Maybe DocumentFormat)
, _dName :: !(Maybe Text)
, _dHashType :: !(Maybe DocumentHashType)
, _dParameters :: !(Maybe [DocumentParameter])
, _dDocumentVersion :: !(Maybe Text)
, _dDescription :: !(Maybe Text)
, _dTags :: !(Maybe [Tag])
, _dLatestVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentDescription
:: DocumentDescription
documentDescription =
DocumentDescription'
{ _dStatus = Nothing
, _dDocumentType = Nothing
, _dHash = Nothing
, _dSchemaVersion = Nothing
, _dSha1 = Nothing
, _dDefaultVersion = Nothing
, _dTargetType = Nothing
, _dOwner = Nothing
, _dPlatformTypes = Nothing
, _dCreatedDate = Nothing
, _dDocumentFormat = Nothing
, _dName = Nothing
, _dHashType = Nothing
, _dParameters = Nothing
, _dDocumentVersion = Nothing
, _dDescription = Nothing
, _dTags = Nothing
, _dLatestVersion = Nothing
}
dStatus :: Lens' DocumentDescription (Maybe DocumentStatus)
dStatus = lens _dStatus (\ s a -> s{_dStatus = a})
dDocumentType :: Lens' DocumentDescription (Maybe DocumentType)
dDocumentType = lens _dDocumentType (\ s a -> s{_dDocumentType = a})
dHash :: Lens' DocumentDescription (Maybe Text)
dHash = lens _dHash (\ s a -> s{_dHash = a})
dSchemaVersion :: Lens' DocumentDescription (Maybe Text)
dSchemaVersion = lens _dSchemaVersion (\ s a -> s{_dSchemaVersion = a})
dSha1 :: Lens' DocumentDescription (Maybe Text)
dSha1 = lens _dSha1 (\ s a -> s{_dSha1 = a})
dDefaultVersion :: Lens' DocumentDescription (Maybe Text)
dDefaultVersion = lens _dDefaultVersion (\ s a -> s{_dDefaultVersion = a})
dTargetType :: Lens' DocumentDescription (Maybe Text)
dTargetType = lens _dTargetType (\ s a -> s{_dTargetType = a})
dOwner :: Lens' DocumentDescription (Maybe Text)
dOwner = lens _dOwner (\ s a -> s{_dOwner = a})
dPlatformTypes :: Lens' DocumentDescription [PlatformType]
dPlatformTypes = lens _dPlatformTypes (\ s a -> s{_dPlatformTypes = a}) . _Default . _Coerce
dCreatedDate :: Lens' DocumentDescription (Maybe UTCTime)
dCreatedDate = lens _dCreatedDate (\ s a -> s{_dCreatedDate = a}) . mapping _Time
dDocumentFormat :: Lens' DocumentDescription (Maybe DocumentFormat)
dDocumentFormat = lens _dDocumentFormat (\ s a -> s{_dDocumentFormat = a})
dName :: Lens' DocumentDescription (Maybe Text)
dName = lens _dName (\ s a -> s{_dName = a})
dHashType :: Lens' DocumentDescription (Maybe DocumentHashType)
dHashType = lens _dHashType (\ s a -> s{_dHashType = a})
dParameters :: Lens' DocumentDescription [DocumentParameter]
dParameters = lens _dParameters (\ s a -> s{_dParameters = a}) . _Default . _Coerce
dDocumentVersion :: Lens' DocumentDescription (Maybe Text)
dDocumentVersion = lens _dDocumentVersion (\ s a -> s{_dDocumentVersion = a})
dDescription :: Lens' DocumentDescription (Maybe Text)
dDescription = lens _dDescription (\ s a -> s{_dDescription = a})
dTags :: Lens' DocumentDescription [Tag]
dTags = lens _dTags (\ s a -> s{_dTags = a}) . _Default . _Coerce
dLatestVersion :: Lens' DocumentDescription (Maybe Text)
dLatestVersion = lens _dLatestVersion (\ s a -> s{_dLatestVersion = a})
instance FromJSON DocumentDescription where
parseJSON
= withObject "DocumentDescription"
(\ x ->
DocumentDescription' <$>
(x .:? "Status") <*> (x .:? "DocumentType") <*>
(x .:? "Hash")
<*> (x .:? "SchemaVersion")
<*> (x .:? "Sha1")
<*> (x .:? "DefaultVersion")
<*> (x .:? "TargetType")
<*> (x .:? "Owner")
<*> (x .:? "PlatformTypes" .!= mempty)
<*> (x .:? "CreatedDate")
<*> (x .:? "DocumentFormat")
<*> (x .:? "Name")
<*> (x .:? "HashType")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentVersion")
<*> (x .:? "Description")
<*> (x .:? "Tags" .!= mempty)
<*> (x .:? "LatestVersion"))
instance Hashable DocumentDescription where
instance NFData DocumentDescription where
data DocumentFilter = DocumentFilter'
{ _dfKey :: !DocumentFilterKey
, _dfValue :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentFilter
:: DocumentFilterKey
-> Text
-> DocumentFilter
documentFilter pKey_ pValue_ =
DocumentFilter' {_dfKey = pKey_, _dfValue = pValue_}
dfKey :: Lens' DocumentFilter DocumentFilterKey
dfKey = lens _dfKey (\ s a -> s{_dfKey = a})
dfValue :: Lens' DocumentFilter Text
dfValue = lens _dfValue (\ s a -> s{_dfValue = a})
instance Hashable DocumentFilter where
instance NFData DocumentFilter where
instance ToJSON DocumentFilter where
toJSON DocumentFilter'{..}
= object
(catMaybes
[Just ("key" .= _dfKey), Just ("value" .= _dfValue)])
data DocumentIdentifier = DocumentIdentifier'
{ _diDocumentType :: !(Maybe DocumentType)
, _diSchemaVersion :: !(Maybe Text)
, _diTargetType :: !(Maybe Text)
, _diOwner :: !(Maybe Text)
, _diPlatformTypes :: !(Maybe [PlatformType])
, _diDocumentFormat :: !(Maybe DocumentFormat)
, _diName :: !(Maybe Text)
, _diDocumentVersion :: !(Maybe Text)
, _diTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentIdentifier
:: DocumentIdentifier
documentIdentifier =
DocumentIdentifier'
{ _diDocumentType = Nothing
, _diSchemaVersion = Nothing
, _diTargetType = Nothing
, _diOwner = Nothing
, _diPlatformTypes = Nothing
, _diDocumentFormat = Nothing
, _diName = Nothing
, _diDocumentVersion = Nothing
, _diTags = Nothing
}
diDocumentType :: Lens' DocumentIdentifier (Maybe DocumentType)
diDocumentType = lens _diDocumentType (\ s a -> s{_diDocumentType = a})
diSchemaVersion :: Lens' DocumentIdentifier (Maybe Text)
diSchemaVersion = lens _diSchemaVersion (\ s a -> s{_diSchemaVersion = a})
diTargetType :: Lens' DocumentIdentifier (Maybe Text)
diTargetType = lens _diTargetType (\ s a -> s{_diTargetType = a})
diOwner :: Lens' DocumentIdentifier (Maybe Text)
diOwner = lens _diOwner (\ s a -> s{_diOwner = a})
diPlatformTypes :: Lens' DocumentIdentifier [PlatformType]
diPlatformTypes = lens _diPlatformTypes (\ s a -> s{_diPlatformTypes = a}) . _Default . _Coerce
diDocumentFormat :: Lens' DocumentIdentifier (Maybe DocumentFormat)
diDocumentFormat = lens _diDocumentFormat (\ s a -> s{_diDocumentFormat = a})
diName :: Lens' DocumentIdentifier (Maybe Text)
diName = lens _diName (\ s a -> s{_diName = a})
diDocumentVersion :: Lens' DocumentIdentifier (Maybe Text)
diDocumentVersion = lens _diDocumentVersion (\ s a -> s{_diDocumentVersion = a})
diTags :: Lens' DocumentIdentifier [Tag]
diTags = lens _diTags (\ s a -> s{_diTags = a}) . _Default . _Coerce
instance FromJSON DocumentIdentifier where
parseJSON
= withObject "DocumentIdentifier"
(\ x ->
DocumentIdentifier' <$>
(x .:? "DocumentType") <*> (x .:? "SchemaVersion")
<*> (x .:? "TargetType")
<*> (x .:? "Owner")
<*> (x .:? "PlatformTypes" .!= mempty)
<*> (x .:? "DocumentFormat")
<*> (x .:? "Name")
<*> (x .:? "DocumentVersion")
<*> (x .:? "Tags" .!= mempty))
instance Hashable DocumentIdentifier where
instance NFData DocumentIdentifier where
data DocumentKeyValuesFilter = DocumentKeyValuesFilter'
{ _dkvfValues :: !(Maybe [Text])
, _dkvfKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentKeyValuesFilter
:: DocumentKeyValuesFilter
documentKeyValuesFilter =
DocumentKeyValuesFilter' {_dkvfValues = Nothing, _dkvfKey = Nothing}
dkvfValues :: Lens' DocumentKeyValuesFilter [Text]
dkvfValues = lens _dkvfValues (\ s a -> s{_dkvfValues = a}) . _Default . _Coerce
dkvfKey :: Lens' DocumentKeyValuesFilter (Maybe Text)
dkvfKey = lens _dkvfKey (\ s a -> s{_dkvfKey = a})
instance Hashable DocumentKeyValuesFilter where
instance NFData DocumentKeyValuesFilter where
instance ToJSON DocumentKeyValuesFilter where
toJSON DocumentKeyValuesFilter'{..}
= object
(catMaybes
[("Values" .=) <$> _dkvfValues,
("Key" .=) <$> _dkvfKey])
data DocumentParameter = DocumentParameter'
{ _dpName :: !(Maybe Text)
, _dpDefaultValue :: !(Maybe Text)
, _dpType :: !(Maybe DocumentParameterType)
, _dpDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentParameter
:: DocumentParameter
documentParameter =
DocumentParameter'
{ _dpName = Nothing
, _dpDefaultValue = Nothing
, _dpType = Nothing
, _dpDescription = Nothing
}
dpName :: Lens' DocumentParameter (Maybe Text)
dpName = lens _dpName (\ s a -> s{_dpName = a})
dpDefaultValue :: Lens' DocumentParameter (Maybe Text)
dpDefaultValue = lens _dpDefaultValue (\ s a -> s{_dpDefaultValue = a})
dpType :: Lens' DocumentParameter (Maybe DocumentParameterType)
dpType = lens _dpType (\ s a -> s{_dpType = a})
dpDescription :: Lens' DocumentParameter (Maybe Text)
dpDescription = lens _dpDescription (\ s a -> s{_dpDescription = a})
instance FromJSON DocumentParameter where
parseJSON
= withObject "DocumentParameter"
(\ x ->
DocumentParameter' <$>
(x .:? "Name") <*> (x .:? "DefaultValue") <*>
(x .:? "Type")
<*> (x .:? "Description"))
instance Hashable DocumentParameter where
instance NFData DocumentParameter where
data DocumentVersionInfo = DocumentVersionInfo'
{ _dviCreatedDate :: !(Maybe POSIX)
, _dviDocumentFormat :: !(Maybe DocumentFormat)
, _dviName :: !(Maybe Text)
, _dviDocumentVersion :: !(Maybe Text)
, _dviIsDefaultVersion :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
documentVersionInfo
:: DocumentVersionInfo
documentVersionInfo =
DocumentVersionInfo'
{ _dviCreatedDate = Nothing
, _dviDocumentFormat = Nothing
, _dviName = Nothing
, _dviDocumentVersion = Nothing
, _dviIsDefaultVersion = Nothing
}
dviCreatedDate :: Lens' DocumentVersionInfo (Maybe UTCTime)
dviCreatedDate = lens _dviCreatedDate (\ s a -> s{_dviCreatedDate = a}) . mapping _Time
dviDocumentFormat :: Lens' DocumentVersionInfo (Maybe DocumentFormat)
dviDocumentFormat = lens _dviDocumentFormat (\ s a -> s{_dviDocumentFormat = a})
dviName :: Lens' DocumentVersionInfo (Maybe Text)
dviName = lens _dviName (\ s a -> s{_dviName = a})
dviDocumentVersion :: Lens' DocumentVersionInfo (Maybe Text)
dviDocumentVersion = lens _dviDocumentVersion (\ s a -> s{_dviDocumentVersion = a})
dviIsDefaultVersion :: Lens' DocumentVersionInfo (Maybe Bool)
dviIsDefaultVersion = lens _dviIsDefaultVersion (\ s a -> s{_dviIsDefaultVersion = a})
instance FromJSON DocumentVersionInfo where
parseJSON
= withObject "DocumentVersionInfo"
(\ x ->
DocumentVersionInfo' <$>
(x .:? "CreatedDate") <*> (x .:? "DocumentFormat")
<*> (x .:? "Name")
<*> (x .:? "DocumentVersion")
<*> (x .:? "IsDefaultVersion"))
instance Hashable DocumentVersionInfo where
instance NFData DocumentVersionInfo where
data EffectivePatch = EffectivePatch'
{ _epPatch :: !(Maybe Patch)
, _epPatchStatus :: !(Maybe PatchStatus)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
effectivePatch
:: EffectivePatch
effectivePatch = EffectivePatch' {_epPatch = Nothing, _epPatchStatus = Nothing}
epPatch :: Lens' EffectivePatch (Maybe Patch)
epPatch = lens _epPatch (\ s a -> s{_epPatch = a})
epPatchStatus :: Lens' EffectivePatch (Maybe PatchStatus)
epPatchStatus = lens _epPatchStatus (\ s a -> s{_epPatchStatus = a})
instance FromJSON EffectivePatch where
parseJSON
= withObject "EffectivePatch"
(\ x ->
EffectivePatch' <$>
(x .:? "Patch") <*> (x .:? "PatchStatus"))
instance Hashable EffectivePatch where
instance NFData EffectivePatch where
data FailedCreateAssociation = FailedCreateAssociation'
{ _fcaEntry :: !(Maybe CreateAssociationBatchRequestEntry)
, _fcaFault :: !(Maybe Fault)
, _fcaMessage :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
failedCreateAssociation
:: FailedCreateAssociation
failedCreateAssociation =
FailedCreateAssociation'
{_fcaEntry = Nothing, _fcaFault = Nothing, _fcaMessage = Nothing}
fcaEntry :: Lens' FailedCreateAssociation (Maybe CreateAssociationBatchRequestEntry)
fcaEntry = lens _fcaEntry (\ s a -> s{_fcaEntry = a})
fcaFault :: Lens' FailedCreateAssociation (Maybe Fault)
fcaFault = lens _fcaFault (\ s a -> s{_fcaFault = a})
fcaMessage :: Lens' FailedCreateAssociation (Maybe Text)
fcaMessage = lens _fcaMessage (\ s a -> s{_fcaMessage = a})
instance FromJSON FailedCreateAssociation where
parseJSON
= withObject "FailedCreateAssociation"
(\ x ->
FailedCreateAssociation' <$>
(x .:? "Entry") <*> (x .:? "Fault") <*>
(x .:? "Message"))
instance Hashable FailedCreateAssociation where
instance NFData FailedCreateAssociation where
data FailureDetails = FailureDetails'
{ _fdFailureType :: !(Maybe Text)
, _fdFailureStage :: !(Maybe Text)
, _fdDetails :: !(Maybe (Map Text [Text]))
} deriving (Eq, Read, Show, Data, Typeable, Generic)
failureDetails
:: FailureDetails
failureDetails =
FailureDetails'
{_fdFailureType = Nothing, _fdFailureStage = Nothing, _fdDetails = Nothing}
fdFailureType :: Lens' FailureDetails (Maybe Text)
fdFailureType = lens _fdFailureType (\ s a -> s{_fdFailureType = a})
fdFailureStage :: Lens' FailureDetails (Maybe Text)
fdFailureStage = lens _fdFailureStage (\ s a -> s{_fdFailureStage = a})
fdDetails :: Lens' FailureDetails (HashMap Text [Text])
fdDetails = lens _fdDetails (\ s a -> s{_fdDetails = a}) . _Default . _Map
instance FromJSON FailureDetails where
parseJSON
= withObject "FailureDetails"
(\ x ->
FailureDetails' <$>
(x .:? "FailureType") <*> (x .:? "FailureStage") <*>
(x .:? "Details" .!= mempty))
instance Hashable FailureDetails where
instance NFData FailureDetails where
data InstanceAggregatedAssociationOverview = InstanceAggregatedAssociationOverview'
{ _iaaoDetailedStatus :: !(Maybe Text)
, _iaaoInstanceAssociationStatusAggregatedCount :: !(Maybe (Map Text Int))
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceAggregatedAssociationOverview
:: InstanceAggregatedAssociationOverview
instanceAggregatedAssociationOverview =
InstanceAggregatedAssociationOverview'
{ _iaaoDetailedStatus = Nothing
, _iaaoInstanceAssociationStatusAggregatedCount = Nothing
}
iaaoDetailedStatus :: Lens' InstanceAggregatedAssociationOverview (Maybe Text)
iaaoDetailedStatus = lens _iaaoDetailedStatus (\ s a -> s{_iaaoDetailedStatus = a})
iaaoInstanceAssociationStatusAggregatedCount :: Lens' InstanceAggregatedAssociationOverview (HashMap Text Int)
iaaoInstanceAssociationStatusAggregatedCount = lens _iaaoInstanceAssociationStatusAggregatedCount (\ s a -> s{_iaaoInstanceAssociationStatusAggregatedCount = a}) . _Default . _Map
instance FromJSON
InstanceAggregatedAssociationOverview
where
parseJSON
= withObject "InstanceAggregatedAssociationOverview"
(\ x ->
InstanceAggregatedAssociationOverview' <$>
(x .:? "DetailedStatus") <*>
(x .:? "InstanceAssociationStatusAggregatedCount" .!=
mempty))
instance Hashable
InstanceAggregatedAssociationOverview
where
instance NFData InstanceAggregatedAssociationOverview
where
data InstanceAssociation = InstanceAssociation'
{ _iaAssociationId :: !(Maybe Text)
, _iaInstanceId :: !(Maybe Text)
, _iaContent :: !(Maybe Text)
, _iaAssociationVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceAssociation
:: InstanceAssociation
instanceAssociation =
InstanceAssociation'
{ _iaAssociationId = Nothing
, _iaInstanceId = Nothing
, _iaContent = Nothing
, _iaAssociationVersion = Nothing
}
iaAssociationId :: Lens' InstanceAssociation (Maybe Text)
iaAssociationId = lens _iaAssociationId (\ s a -> s{_iaAssociationId = a})
iaInstanceId :: Lens' InstanceAssociation (Maybe Text)
iaInstanceId = lens _iaInstanceId (\ s a -> s{_iaInstanceId = a})
iaContent :: Lens' InstanceAssociation (Maybe Text)
iaContent = lens _iaContent (\ s a -> s{_iaContent = a})
iaAssociationVersion :: Lens' InstanceAssociation (Maybe Text)
iaAssociationVersion = lens _iaAssociationVersion (\ s a -> s{_iaAssociationVersion = a})
instance FromJSON InstanceAssociation where
parseJSON
= withObject "InstanceAssociation"
(\ x ->
InstanceAssociation' <$>
(x .:? "AssociationId") <*> (x .:? "InstanceId") <*>
(x .:? "Content")
<*> (x .:? "AssociationVersion"))
instance Hashable InstanceAssociation where
instance NFData InstanceAssociation where
newtype InstanceAssociationOutputLocation = InstanceAssociationOutputLocation'
{ _iaolS3Location :: Maybe S3OutputLocation
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceAssociationOutputLocation
:: InstanceAssociationOutputLocation
instanceAssociationOutputLocation =
InstanceAssociationOutputLocation' {_iaolS3Location = Nothing}
iaolS3Location :: Lens' InstanceAssociationOutputLocation (Maybe S3OutputLocation)
iaolS3Location = lens _iaolS3Location (\ s a -> s{_iaolS3Location = a})
instance FromJSON InstanceAssociationOutputLocation
where
parseJSON
= withObject "InstanceAssociationOutputLocation"
(\ x ->
InstanceAssociationOutputLocation' <$>
(x .:? "S3Location"))
instance Hashable InstanceAssociationOutputLocation
where
instance NFData InstanceAssociationOutputLocation
where
instance ToJSON InstanceAssociationOutputLocation
where
toJSON InstanceAssociationOutputLocation'{..}
= object
(catMaybes [("S3Location" .=) <$> _iaolS3Location])
newtype InstanceAssociationOutputURL = InstanceAssociationOutputURL'
{ _iaouS3OutputURL :: Maybe S3OutputURL
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceAssociationOutputURL
:: InstanceAssociationOutputURL
instanceAssociationOutputURL =
InstanceAssociationOutputURL' {_iaouS3OutputURL = Nothing}
iaouS3OutputURL :: Lens' InstanceAssociationOutputURL (Maybe S3OutputURL)
iaouS3OutputURL = lens _iaouS3OutputURL (\ s a -> s{_iaouS3OutputURL = a})
instance FromJSON InstanceAssociationOutputURL where
parseJSON
= withObject "InstanceAssociationOutputURL"
(\ x ->
InstanceAssociationOutputURL' <$>
(x .:? "S3OutputUrl"))
instance Hashable InstanceAssociationOutputURL where
instance NFData InstanceAssociationOutputURL where
data InstanceAssociationStatusInfo = InstanceAssociationStatusInfo'
{ _iasiAssociationId :: !(Maybe Text)
, _iasiInstanceId :: !(Maybe Text)
, _iasiDetailedStatus :: !(Maybe Text)
, _iasiStatus :: !(Maybe Text)
, _iasiOutputURL :: !(Maybe InstanceAssociationOutputURL)
, _iasiExecutionSummary :: !(Maybe Text)
, _iasiName :: !(Maybe Text)
, _iasiErrorCode :: !(Maybe Text)
, _iasiDocumentVersion :: !(Maybe Text)
, _iasiAssociationVersion :: !(Maybe Text)
, _iasiExecutionDate :: !(Maybe POSIX)
, _iasiAssociationName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceAssociationStatusInfo
:: InstanceAssociationStatusInfo
instanceAssociationStatusInfo =
InstanceAssociationStatusInfo'
{ _iasiAssociationId = Nothing
, _iasiInstanceId = Nothing
, _iasiDetailedStatus = Nothing
, _iasiStatus = Nothing
, _iasiOutputURL = Nothing
, _iasiExecutionSummary = Nothing
, _iasiName = Nothing
, _iasiErrorCode = Nothing
, _iasiDocumentVersion = Nothing
, _iasiAssociationVersion = Nothing
, _iasiExecutionDate = Nothing
, _iasiAssociationName = Nothing
}
iasiAssociationId :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiAssociationId = lens _iasiAssociationId (\ s a -> s{_iasiAssociationId = a})
iasiInstanceId :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiInstanceId = lens _iasiInstanceId (\ s a -> s{_iasiInstanceId = a})
iasiDetailedStatus :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiDetailedStatus = lens _iasiDetailedStatus (\ s a -> s{_iasiDetailedStatus = a})
iasiStatus :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiStatus = lens _iasiStatus (\ s a -> s{_iasiStatus = a})
iasiOutputURL :: Lens' InstanceAssociationStatusInfo (Maybe InstanceAssociationOutputURL)
iasiOutputURL = lens _iasiOutputURL (\ s a -> s{_iasiOutputURL = a})
iasiExecutionSummary :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiExecutionSummary = lens _iasiExecutionSummary (\ s a -> s{_iasiExecutionSummary = a})
iasiName :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiName = lens _iasiName (\ s a -> s{_iasiName = a})
iasiErrorCode :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiErrorCode = lens _iasiErrorCode (\ s a -> s{_iasiErrorCode = a})
iasiDocumentVersion :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiDocumentVersion = lens _iasiDocumentVersion (\ s a -> s{_iasiDocumentVersion = a})
iasiAssociationVersion :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiAssociationVersion = lens _iasiAssociationVersion (\ s a -> s{_iasiAssociationVersion = a})
iasiExecutionDate :: Lens' InstanceAssociationStatusInfo (Maybe UTCTime)
iasiExecutionDate = lens _iasiExecutionDate (\ s a -> s{_iasiExecutionDate = a}) . mapping _Time
iasiAssociationName :: Lens' InstanceAssociationStatusInfo (Maybe Text)
iasiAssociationName = lens _iasiAssociationName (\ s a -> s{_iasiAssociationName = a})
instance FromJSON InstanceAssociationStatusInfo where
parseJSON
= withObject "InstanceAssociationStatusInfo"
(\ x ->
InstanceAssociationStatusInfo' <$>
(x .:? "AssociationId") <*> (x .:? "InstanceId") <*>
(x .:? "DetailedStatus")
<*> (x .:? "Status")
<*> (x .:? "OutputUrl")
<*> (x .:? "ExecutionSummary")
<*> (x .:? "Name")
<*> (x .:? "ErrorCode")
<*> (x .:? "DocumentVersion")
<*> (x .:? "AssociationVersion")
<*> (x .:? "ExecutionDate")
<*> (x .:? "AssociationName"))
instance Hashable InstanceAssociationStatusInfo where
instance NFData InstanceAssociationStatusInfo where
data InstanceInformation = InstanceInformation'
{ _iiInstanceId :: !(Maybe Text)
, _iiPingStatus :: !(Maybe PingStatus)
, _iiIPAddress :: !(Maybe Text)
, _iiResourceType :: !(Maybe ResourceType)
, _iiRegistrationDate :: !(Maybe POSIX)
, _iiPlatformVersion :: !(Maybe Text)
, _iiIsLatestVersion :: !(Maybe Bool)
, _iiAgentVersion :: !(Maybe Text)
, _iiLastPingDateTime :: !(Maybe POSIX)
, _iiLastSuccessfulAssociationExecutionDate :: !(Maybe POSIX)
, _iiActivationId :: !(Maybe Text)
, _iiName :: !(Maybe Text)
, _iiPlatformType :: !(Maybe PlatformType)
, _iiAssociationOverview :: !(Maybe InstanceAggregatedAssociationOverview)
, _iiAssociationStatus :: !(Maybe Text)
, _iiLastAssociationExecutionDate :: !(Maybe POSIX)
, _iiPlatformName :: !(Maybe Text)
, _iiComputerName :: !(Maybe Text)
, _iiIAMRole :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceInformation
:: InstanceInformation
instanceInformation =
InstanceInformation'
{ _iiInstanceId = Nothing
, _iiPingStatus = Nothing
, _iiIPAddress = Nothing
, _iiResourceType = Nothing
, _iiRegistrationDate = Nothing
, _iiPlatformVersion = Nothing
, _iiIsLatestVersion = Nothing
, _iiAgentVersion = Nothing
, _iiLastPingDateTime = Nothing
, _iiLastSuccessfulAssociationExecutionDate = Nothing
, _iiActivationId = Nothing
, _iiName = Nothing
, _iiPlatformType = Nothing
, _iiAssociationOverview = Nothing
, _iiAssociationStatus = Nothing
, _iiLastAssociationExecutionDate = Nothing
, _iiPlatformName = Nothing
, _iiComputerName = Nothing
, _iiIAMRole = Nothing
}
iiInstanceId :: Lens' InstanceInformation (Maybe Text)
iiInstanceId = lens _iiInstanceId (\ s a -> s{_iiInstanceId = a})
iiPingStatus :: Lens' InstanceInformation (Maybe PingStatus)
iiPingStatus = lens _iiPingStatus (\ s a -> s{_iiPingStatus = a})
iiIPAddress :: Lens' InstanceInformation (Maybe Text)
iiIPAddress = lens _iiIPAddress (\ s a -> s{_iiIPAddress = a})
iiResourceType :: Lens' InstanceInformation (Maybe ResourceType)
iiResourceType = lens _iiResourceType (\ s a -> s{_iiResourceType = a})
iiRegistrationDate :: Lens' InstanceInformation (Maybe UTCTime)
iiRegistrationDate = lens _iiRegistrationDate (\ s a -> s{_iiRegistrationDate = a}) . mapping _Time
iiPlatformVersion :: Lens' InstanceInformation (Maybe Text)
iiPlatformVersion = lens _iiPlatformVersion (\ s a -> s{_iiPlatformVersion = a})
iiIsLatestVersion :: Lens' InstanceInformation (Maybe Bool)
iiIsLatestVersion = lens _iiIsLatestVersion (\ s a -> s{_iiIsLatestVersion = a})
iiAgentVersion :: Lens' InstanceInformation (Maybe Text)
iiAgentVersion = lens _iiAgentVersion (\ s a -> s{_iiAgentVersion = a})
iiLastPingDateTime :: Lens' InstanceInformation (Maybe UTCTime)
iiLastPingDateTime = lens _iiLastPingDateTime (\ s a -> s{_iiLastPingDateTime = a}) . mapping _Time
iiLastSuccessfulAssociationExecutionDate :: Lens' InstanceInformation (Maybe UTCTime)
iiLastSuccessfulAssociationExecutionDate = lens _iiLastSuccessfulAssociationExecutionDate (\ s a -> s{_iiLastSuccessfulAssociationExecutionDate = a}) . mapping _Time
iiActivationId :: Lens' InstanceInformation (Maybe Text)
iiActivationId = lens _iiActivationId (\ s a -> s{_iiActivationId = a})
iiName :: Lens' InstanceInformation (Maybe Text)
iiName = lens _iiName (\ s a -> s{_iiName = a})
iiPlatformType :: Lens' InstanceInformation (Maybe PlatformType)
iiPlatformType = lens _iiPlatformType (\ s a -> s{_iiPlatformType = a})
iiAssociationOverview :: Lens' InstanceInformation (Maybe InstanceAggregatedAssociationOverview)
iiAssociationOverview = lens _iiAssociationOverview (\ s a -> s{_iiAssociationOverview = a})
iiAssociationStatus :: Lens' InstanceInformation (Maybe Text)
iiAssociationStatus = lens _iiAssociationStatus (\ s a -> s{_iiAssociationStatus = a})
iiLastAssociationExecutionDate :: Lens' InstanceInformation (Maybe UTCTime)
iiLastAssociationExecutionDate = lens _iiLastAssociationExecutionDate (\ s a -> s{_iiLastAssociationExecutionDate = a}) . mapping _Time
iiPlatformName :: Lens' InstanceInformation (Maybe Text)
iiPlatformName = lens _iiPlatformName (\ s a -> s{_iiPlatformName = a})
iiComputerName :: Lens' InstanceInformation (Maybe Text)
iiComputerName = lens _iiComputerName (\ s a -> s{_iiComputerName = a})
iiIAMRole :: Lens' InstanceInformation (Maybe Text)
iiIAMRole = lens _iiIAMRole (\ s a -> s{_iiIAMRole = a})
instance FromJSON InstanceInformation where
parseJSON
= withObject "InstanceInformation"
(\ x ->
InstanceInformation' <$>
(x .:? "InstanceId") <*> (x .:? "PingStatus") <*>
(x .:? "IPAddress")
<*> (x .:? "ResourceType")
<*> (x .:? "RegistrationDate")
<*> (x .:? "PlatformVersion")
<*> (x .:? "IsLatestVersion")
<*> (x .:? "AgentVersion")
<*> (x .:? "LastPingDateTime")
<*> (x .:? "LastSuccessfulAssociationExecutionDate")
<*> (x .:? "ActivationId")
<*> (x .:? "Name")
<*> (x .:? "PlatformType")
<*> (x .:? "AssociationOverview")
<*> (x .:? "AssociationStatus")
<*> (x .:? "LastAssociationExecutionDate")
<*> (x .:? "PlatformName")
<*> (x .:? "ComputerName")
<*> (x .:? "IamRole"))
instance Hashable InstanceInformation where
instance NFData InstanceInformation where
data InstanceInformationFilter = InstanceInformationFilter'
{ _iifKey :: !InstanceInformationFilterKey
, _iifValueSet :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceInformationFilter
:: InstanceInformationFilterKey
-> NonEmpty Text
-> InstanceInformationFilter
instanceInformationFilter pKey_ pValueSet_ =
InstanceInformationFilter'
{_iifKey = pKey_, _iifValueSet = _List1 # pValueSet_}
iifKey :: Lens' InstanceInformationFilter InstanceInformationFilterKey
iifKey = lens _iifKey (\ s a -> s{_iifKey = a})
iifValueSet :: Lens' InstanceInformationFilter (NonEmpty Text)
iifValueSet = lens _iifValueSet (\ s a -> s{_iifValueSet = a}) . _List1
instance Hashable InstanceInformationFilter where
instance NFData InstanceInformationFilter where
instance ToJSON InstanceInformationFilter where
toJSON InstanceInformationFilter'{..}
= object
(catMaybes
[Just ("key" .= _iifKey),
Just ("valueSet" .= _iifValueSet)])
data InstanceInformationStringFilter = InstanceInformationStringFilter'
{ _iisfKey :: !Text
, _iisfValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instanceInformationStringFilter
:: Text
-> NonEmpty Text
-> InstanceInformationStringFilter
instanceInformationStringFilter pKey_ pValues_ =
InstanceInformationStringFilter'
{_iisfKey = pKey_, _iisfValues = _List1 # pValues_}
iisfKey :: Lens' InstanceInformationStringFilter Text
iisfKey = lens _iisfKey (\ s a -> s{_iisfKey = a})
iisfValues :: Lens' InstanceInformationStringFilter (NonEmpty Text)
iisfValues = lens _iisfValues (\ s a -> s{_iisfValues = a}) . _List1
instance Hashable InstanceInformationStringFilter
where
instance NFData InstanceInformationStringFilter where
instance ToJSON InstanceInformationStringFilter where
toJSON InstanceInformationStringFilter'{..}
= object
(catMaybes
[Just ("Key" .= _iisfKey),
Just ("Values" .= _iisfValues)])
data InstancePatchState = InstancePatchState'
{ _ipsOwnerInformation :: !(Maybe (Sensitive Text))
, _ipsFailedCount :: !(Maybe Int)
, _ipsInstalledOtherCount :: !(Maybe Int)
, _ipsMissingCount :: !(Maybe Int)
, _ipsNotApplicableCount :: !(Maybe Int)
, _ipsInstalledCount :: !(Maybe Int)
, _ipsSnapshotId :: !(Maybe Text)
, _ipsInstanceId :: !Text
, _ipsPatchGroup :: !Text
, _ipsBaselineId :: !Text
, _ipsOperationStartTime :: !POSIX
, _ipsOperationEndTime :: !POSIX
, _ipsOperation :: !PatchOperationType
} deriving (Eq, Show, Data, Typeable, Generic)
instancePatchState
:: Text
-> Text
-> Text
-> UTCTime
-> UTCTime
-> PatchOperationType
-> InstancePatchState
instancePatchState pInstanceId_ pPatchGroup_ pBaselineId_ pOperationStartTime_ pOperationEndTime_ pOperation_ =
InstancePatchState'
{ _ipsOwnerInformation = Nothing
, _ipsFailedCount = Nothing
, _ipsInstalledOtherCount = Nothing
, _ipsMissingCount = Nothing
, _ipsNotApplicableCount = Nothing
, _ipsInstalledCount = Nothing
, _ipsSnapshotId = Nothing
, _ipsInstanceId = pInstanceId_
, _ipsPatchGroup = pPatchGroup_
, _ipsBaselineId = pBaselineId_
, _ipsOperationStartTime = _Time # pOperationStartTime_
, _ipsOperationEndTime = _Time # pOperationEndTime_
, _ipsOperation = pOperation_
}
ipsOwnerInformation :: Lens' InstancePatchState (Maybe Text)
ipsOwnerInformation = lens _ipsOwnerInformation (\ s a -> s{_ipsOwnerInformation = a}) . mapping _Sensitive
ipsFailedCount :: Lens' InstancePatchState (Maybe Int)
ipsFailedCount = lens _ipsFailedCount (\ s a -> s{_ipsFailedCount = a})
ipsInstalledOtherCount :: Lens' InstancePatchState (Maybe Int)
ipsInstalledOtherCount = lens _ipsInstalledOtherCount (\ s a -> s{_ipsInstalledOtherCount = a})
ipsMissingCount :: Lens' InstancePatchState (Maybe Int)
ipsMissingCount = lens _ipsMissingCount (\ s a -> s{_ipsMissingCount = a})
ipsNotApplicableCount :: Lens' InstancePatchState (Maybe Int)
ipsNotApplicableCount = lens _ipsNotApplicableCount (\ s a -> s{_ipsNotApplicableCount = a})
ipsInstalledCount :: Lens' InstancePatchState (Maybe Int)
ipsInstalledCount = lens _ipsInstalledCount (\ s a -> s{_ipsInstalledCount = a})
ipsSnapshotId :: Lens' InstancePatchState (Maybe Text)
ipsSnapshotId = lens _ipsSnapshotId (\ s a -> s{_ipsSnapshotId = a})
ipsInstanceId :: Lens' InstancePatchState Text
ipsInstanceId = lens _ipsInstanceId (\ s a -> s{_ipsInstanceId = a})
ipsPatchGroup :: Lens' InstancePatchState Text
ipsPatchGroup = lens _ipsPatchGroup (\ s a -> s{_ipsPatchGroup = a})
ipsBaselineId :: Lens' InstancePatchState Text
ipsBaselineId = lens _ipsBaselineId (\ s a -> s{_ipsBaselineId = a})
ipsOperationStartTime :: Lens' InstancePatchState UTCTime
ipsOperationStartTime = lens _ipsOperationStartTime (\ s a -> s{_ipsOperationStartTime = a}) . _Time
ipsOperationEndTime :: Lens' InstancePatchState UTCTime
ipsOperationEndTime = lens _ipsOperationEndTime (\ s a -> s{_ipsOperationEndTime = a}) . _Time
ipsOperation :: Lens' InstancePatchState PatchOperationType
ipsOperation = lens _ipsOperation (\ s a -> s{_ipsOperation = a})
instance FromJSON InstancePatchState where
parseJSON
= withObject "InstancePatchState"
(\ x ->
InstancePatchState' <$>
(x .:? "OwnerInformation") <*> (x .:? "FailedCount")
<*> (x .:? "InstalledOtherCount")
<*> (x .:? "MissingCount")
<*> (x .:? "NotApplicableCount")
<*> (x .:? "InstalledCount")
<*> (x .:? "SnapshotId")
<*> (x .: "InstanceId")
<*> (x .: "PatchGroup")
<*> (x .: "BaselineId")
<*> (x .: "OperationStartTime")
<*> (x .: "OperationEndTime")
<*> (x .: "Operation"))
instance Hashable InstancePatchState where
instance NFData InstancePatchState where
data InstancePatchStateFilter = InstancePatchStateFilter'
{ _ipsfKey :: !Text
, _ipsfValues :: !(List1 Text)
, _ipsfType :: !InstancePatchStateOperatorType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
instancePatchStateFilter
:: Text
-> NonEmpty Text
-> InstancePatchStateOperatorType
-> InstancePatchStateFilter
instancePatchStateFilter pKey_ pValues_ pType_ =
InstancePatchStateFilter'
{_ipsfKey = pKey_, _ipsfValues = _List1 # pValues_, _ipsfType = pType_}
ipsfKey :: Lens' InstancePatchStateFilter Text
ipsfKey = lens _ipsfKey (\ s a -> s{_ipsfKey = a})
ipsfValues :: Lens' InstancePatchStateFilter (NonEmpty Text)
ipsfValues = lens _ipsfValues (\ s a -> s{_ipsfValues = a}) . _List1
ipsfType :: Lens' InstancePatchStateFilter InstancePatchStateOperatorType
ipsfType = lens _ipsfType (\ s a -> s{_ipsfType = a})
instance Hashable InstancePatchStateFilter where
instance NFData InstancePatchStateFilter where
instance ToJSON InstancePatchStateFilter where
toJSON InstancePatchStateFilter'{..}
= object
(catMaybes
[Just ("Key" .= _ipsfKey),
Just ("Values" .= _ipsfValues),
Just ("Type" .= _ipsfType)])
data InventoryAggregator = InventoryAggregator'
{ _iaAggregators :: !(Maybe (List1 InventoryAggregator))
, _iaExpression :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryAggregator
:: InventoryAggregator
inventoryAggregator =
InventoryAggregator' {_iaAggregators = Nothing, _iaExpression = Nothing}
iaAggregators :: Lens' InventoryAggregator (Maybe (NonEmpty InventoryAggregator))
iaAggregators = lens _iaAggregators (\ s a -> s{_iaAggregators = a}) . mapping _List1
iaExpression :: Lens' InventoryAggregator (Maybe Text)
iaExpression = lens _iaExpression (\ s a -> s{_iaExpression = a})
instance Hashable InventoryAggregator where
instance NFData InventoryAggregator where
instance ToJSON InventoryAggregator where
toJSON InventoryAggregator'{..}
= object
(catMaybes
[("Aggregators" .=) <$> _iaAggregators,
("Expression" .=) <$> _iaExpression])
data InventoryDeletionStatusItem = InventoryDeletionStatusItem'
{ _idsiTypeName :: !(Maybe Text)
, _idsiLastStatusUpdateTime :: !(Maybe POSIX)
, _idsiLastStatusMessage :: !(Maybe Text)
, _idsiDeletionSummary :: !(Maybe InventoryDeletionSummary)
, _idsiLastStatus :: !(Maybe InventoryDeletionStatus)
, _idsiDeletionStartTime :: !(Maybe POSIX)
, _idsiDeletionId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryDeletionStatusItem
:: InventoryDeletionStatusItem
inventoryDeletionStatusItem =
InventoryDeletionStatusItem'
{ _idsiTypeName = Nothing
, _idsiLastStatusUpdateTime = Nothing
, _idsiLastStatusMessage = Nothing
, _idsiDeletionSummary = Nothing
, _idsiLastStatus = Nothing
, _idsiDeletionStartTime = Nothing
, _idsiDeletionId = Nothing
}
idsiTypeName :: Lens' InventoryDeletionStatusItem (Maybe Text)
idsiTypeName = lens _idsiTypeName (\ s a -> s{_idsiTypeName = a})
idsiLastStatusUpdateTime :: Lens' InventoryDeletionStatusItem (Maybe UTCTime)
idsiLastStatusUpdateTime = lens _idsiLastStatusUpdateTime (\ s a -> s{_idsiLastStatusUpdateTime = a}) . mapping _Time
idsiLastStatusMessage :: Lens' InventoryDeletionStatusItem (Maybe Text)
idsiLastStatusMessage = lens _idsiLastStatusMessage (\ s a -> s{_idsiLastStatusMessage = a})
idsiDeletionSummary :: Lens' InventoryDeletionStatusItem (Maybe InventoryDeletionSummary)
idsiDeletionSummary = lens _idsiDeletionSummary (\ s a -> s{_idsiDeletionSummary = a})
idsiLastStatus :: Lens' InventoryDeletionStatusItem (Maybe InventoryDeletionStatus)
idsiLastStatus = lens _idsiLastStatus (\ s a -> s{_idsiLastStatus = a})
idsiDeletionStartTime :: Lens' InventoryDeletionStatusItem (Maybe UTCTime)
idsiDeletionStartTime = lens _idsiDeletionStartTime (\ s a -> s{_idsiDeletionStartTime = a}) . mapping _Time
idsiDeletionId :: Lens' InventoryDeletionStatusItem (Maybe Text)
idsiDeletionId = lens _idsiDeletionId (\ s a -> s{_idsiDeletionId = a})
instance FromJSON InventoryDeletionStatusItem where
parseJSON
= withObject "InventoryDeletionStatusItem"
(\ x ->
InventoryDeletionStatusItem' <$>
(x .:? "TypeName") <*> (x .:? "LastStatusUpdateTime")
<*> (x .:? "LastStatusMessage")
<*> (x .:? "DeletionSummary")
<*> (x .:? "LastStatus")
<*> (x .:? "DeletionStartTime")
<*> (x .:? "DeletionId"))
instance Hashable InventoryDeletionStatusItem where
instance NFData InventoryDeletionStatusItem where
data InventoryDeletionSummary = InventoryDeletionSummary'
{ _idsRemainingCount :: !(Maybe Int)
, _idsSummaryItems :: !(Maybe [InventoryDeletionSummaryItem])
, _idsTotalCount :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryDeletionSummary
:: InventoryDeletionSummary
inventoryDeletionSummary =
InventoryDeletionSummary'
{ _idsRemainingCount = Nothing
, _idsSummaryItems = Nothing
, _idsTotalCount = Nothing
}
idsRemainingCount :: Lens' InventoryDeletionSummary (Maybe Int)
idsRemainingCount = lens _idsRemainingCount (\ s a -> s{_idsRemainingCount = a})
idsSummaryItems :: Lens' InventoryDeletionSummary [InventoryDeletionSummaryItem]
idsSummaryItems = lens _idsSummaryItems (\ s a -> s{_idsSummaryItems = a}) . _Default . _Coerce
idsTotalCount :: Lens' InventoryDeletionSummary (Maybe Int)
idsTotalCount = lens _idsTotalCount (\ s a -> s{_idsTotalCount = a})
instance FromJSON InventoryDeletionSummary where
parseJSON
= withObject "InventoryDeletionSummary"
(\ x ->
InventoryDeletionSummary' <$>
(x .:? "RemainingCount") <*>
(x .:? "SummaryItems" .!= mempty)
<*> (x .:? "TotalCount"))
instance Hashable InventoryDeletionSummary where
instance NFData InventoryDeletionSummary where
data InventoryDeletionSummaryItem = InventoryDeletionSummaryItem'
{ _idsiRemainingCount :: !(Maybe Int)
, _idsiCount :: !(Maybe Int)
, _idsiVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryDeletionSummaryItem
:: InventoryDeletionSummaryItem
inventoryDeletionSummaryItem =
InventoryDeletionSummaryItem'
{ _idsiRemainingCount = Nothing
, _idsiCount = Nothing
, _idsiVersion = Nothing
}
idsiRemainingCount :: Lens' InventoryDeletionSummaryItem (Maybe Int)
idsiRemainingCount = lens _idsiRemainingCount (\ s a -> s{_idsiRemainingCount = a})
idsiCount :: Lens' InventoryDeletionSummaryItem (Maybe Int)
idsiCount = lens _idsiCount (\ s a -> s{_idsiCount = a})
idsiVersion :: Lens' InventoryDeletionSummaryItem (Maybe Text)
idsiVersion = lens _idsiVersion (\ s a -> s{_idsiVersion = a})
instance FromJSON InventoryDeletionSummaryItem where
parseJSON
= withObject "InventoryDeletionSummaryItem"
(\ x ->
InventoryDeletionSummaryItem' <$>
(x .:? "RemainingCount") <*> (x .:? "Count") <*>
(x .:? "Version"))
instance Hashable InventoryDeletionSummaryItem where
instance NFData InventoryDeletionSummaryItem where
data InventoryFilter = InventoryFilter'
{ _ifType :: !(Maybe InventoryQueryOperatorType)
, _ifKey :: !Text
, _ifValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryFilter
:: Text
-> NonEmpty Text
-> InventoryFilter
inventoryFilter pKey_ pValues_ =
InventoryFilter'
{_ifType = Nothing, _ifKey = pKey_, _ifValues = _List1 # pValues_}
ifType :: Lens' InventoryFilter (Maybe InventoryQueryOperatorType)
ifType = lens _ifType (\ s a -> s{_ifType = a})
ifKey :: Lens' InventoryFilter Text
ifKey = lens _ifKey (\ s a -> s{_ifKey = a})
ifValues :: Lens' InventoryFilter (NonEmpty Text)
ifValues = lens _ifValues (\ s a -> s{_ifValues = a}) . _List1
instance Hashable InventoryFilter where
instance NFData InventoryFilter where
instance ToJSON InventoryFilter where
toJSON InventoryFilter'{..}
= object
(catMaybes
[("Type" .=) <$> _ifType, Just ("Key" .= _ifKey),
Just ("Values" .= _ifValues)])
data InventoryItem = InventoryItem'
{ _iiContext :: !(Maybe (Map Text Text))
, _iiContentHash :: !(Maybe Text)
, _iiContent :: !(Maybe [Map Text Text])
, _iiTypeName :: !Text
, _iiSchemaVersion :: !Text
, _iiCaptureTime :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryItem
:: Text
-> Text
-> Text
-> InventoryItem
inventoryItem pTypeName_ pSchemaVersion_ pCaptureTime_ =
InventoryItem'
{ _iiContext = Nothing
, _iiContentHash = Nothing
, _iiContent = Nothing
, _iiTypeName = pTypeName_
, _iiSchemaVersion = pSchemaVersion_
, _iiCaptureTime = pCaptureTime_
}
iiContext :: Lens' InventoryItem (HashMap Text Text)
iiContext = lens _iiContext (\ s a -> s{_iiContext = a}) . _Default . _Map
iiContentHash :: Lens' InventoryItem (Maybe Text)
iiContentHash = lens _iiContentHash (\ s a -> s{_iiContentHash = a})
iiContent :: Lens' InventoryItem [HashMap Text Text]
iiContent = lens _iiContent (\ s a -> s{_iiContent = a}) . _Default . _Coerce
iiTypeName :: Lens' InventoryItem Text
iiTypeName = lens _iiTypeName (\ s a -> s{_iiTypeName = a})
iiSchemaVersion :: Lens' InventoryItem Text
iiSchemaVersion = lens _iiSchemaVersion (\ s a -> s{_iiSchemaVersion = a})
iiCaptureTime :: Lens' InventoryItem Text
iiCaptureTime = lens _iiCaptureTime (\ s a -> s{_iiCaptureTime = a})
instance Hashable InventoryItem where
instance NFData InventoryItem where
instance ToJSON InventoryItem where
toJSON InventoryItem'{..}
= object
(catMaybes
[("Context" .=) <$> _iiContext,
("ContentHash" .=) <$> _iiContentHash,
("Content" .=) <$> _iiContent,
Just ("TypeName" .= _iiTypeName),
Just ("SchemaVersion" .= _iiSchemaVersion),
Just ("CaptureTime" .= _iiCaptureTime)])
data InventoryItemAttribute = InventoryItemAttribute'
{ _iiaName :: !Text
, _iiaDataType :: !InventoryAttributeDataType
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryItemAttribute
:: Text
-> InventoryAttributeDataType
-> InventoryItemAttribute
inventoryItemAttribute pName_ pDataType_ =
InventoryItemAttribute' {_iiaName = pName_, _iiaDataType = pDataType_}
iiaName :: Lens' InventoryItemAttribute Text
iiaName = lens _iiaName (\ s a -> s{_iiaName = a})
iiaDataType :: Lens' InventoryItemAttribute InventoryAttributeDataType
iiaDataType = lens _iiaDataType (\ s a -> s{_iiaDataType = a})
instance FromJSON InventoryItemAttribute where
parseJSON
= withObject "InventoryItemAttribute"
(\ x ->
InventoryItemAttribute' <$>
(x .: "Name") <*> (x .: "DataType"))
instance Hashable InventoryItemAttribute where
instance NFData InventoryItemAttribute where
data InventoryItemSchema = InventoryItemSchema'
{ _iisVersion :: !(Maybe Text)
, _iisDisplayName :: !(Maybe Text)
, _iisTypeName :: !Text
, _iisAttributes :: !(List1 InventoryItemAttribute)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryItemSchema
:: Text
-> NonEmpty InventoryItemAttribute
-> InventoryItemSchema
inventoryItemSchema pTypeName_ pAttributes_ =
InventoryItemSchema'
{ _iisVersion = Nothing
, _iisDisplayName = Nothing
, _iisTypeName = pTypeName_
, _iisAttributes = _List1 # pAttributes_
}
iisVersion :: Lens' InventoryItemSchema (Maybe Text)
iisVersion = lens _iisVersion (\ s a -> s{_iisVersion = a})
iisDisplayName :: Lens' InventoryItemSchema (Maybe Text)
iisDisplayName = lens _iisDisplayName (\ s a -> s{_iisDisplayName = a})
iisTypeName :: Lens' InventoryItemSchema Text
iisTypeName = lens _iisTypeName (\ s a -> s{_iisTypeName = a})
iisAttributes :: Lens' InventoryItemSchema (NonEmpty InventoryItemAttribute)
iisAttributes = lens _iisAttributes (\ s a -> s{_iisAttributes = a}) . _List1
instance FromJSON InventoryItemSchema where
parseJSON
= withObject "InventoryItemSchema"
(\ x ->
InventoryItemSchema' <$>
(x .:? "Version") <*> (x .:? "DisplayName") <*>
(x .: "TypeName")
<*> (x .: "Attributes"))
instance Hashable InventoryItemSchema where
instance NFData InventoryItemSchema where
data InventoryResultEntity = InventoryResultEntity'
{ _ireData :: !(Maybe (Map Text InventoryResultItem))
, _ireId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryResultEntity
:: InventoryResultEntity
inventoryResultEntity =
InventoryResultEntity' {_ireData = Nothing, _ireId = Nothing}
ireData :: Lens' InventoryResultEntity (HashMap Text InventoryResultItem)
ireData = lens _ireData (\ s a -> s{_ireData = a}) . _Default . _Map
ireId :: Lens' InventoryResultEntity (Maybe Text)
ireId = lens _ireId (\ s a -> s{_ireId = a})
instance FromJSON InventoryResultEntity where
parseJSON
= withObject "InventoryResultEntity"
(\ x ->
InventoryResultEntity' <$>
(x .:? "Data" .!= mempty) <*> (x .:? "Id"))
instance Hashable InventoryResultEntity where
instance NFData InventoryResultEntity where
data InventoryResultItem = InventoryResultItem'
{ _iriContentHash :: !(Maybe Text)
, _iriCaptureTime :: !(Maybe Text)
, _iriTypeName :: !Text
, _iriSchemaVersion :: !Text
, _iriContent :: ![Map Text Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
inventoryResultItem
:: Text
-> Text
-> InventoryResultItem
inventoryResultItem pTypeName_ pSchemaVersion_ =
InventoryResultItem'
{ _iriContentHash = Nothing
, _iriCaptureTime = Nothing
, _iriTypeName = pTypeName_
, _iriSchemaVersion = pSchemaVersion_
, _iriContent = mempty
}
iriContentHash :: Lens' InventoryResultItem (Maybe Text)
iriContentHash = lens _iriContentHash (\ s a -> s{_iriContentHash = a})
iriCaptureTime :: Lens' InventoryResultItem (Maybe Text)
iriCaptureTime = lens _iriCaptureTime (\ s a -> s{_iriCaptureTime = a})
iriTypeName :: Lens' InventoryResultItem Text
iriTypeName = lens _iriTypeName (\ s a -> s{_iriTypeName = a})
iriSchemaVersion :: Lens' InventoryResultItem Text
iriSchemaVersion = lens _iriSchemaVersion (\ s a -> s{_iriSchemaVersion = a})
iriContent :: Lens' InventoryResultItem [HashMap Text Text]
iriContent = lens _iriContent (\ s a -> s{_iriContent = a}) . _Coerce
instance FromJSON InventoryResultItem where
parseJSON
= withObject "InventoryResultItem"
(\ x ->
InventoryResultItem' <$>
(x .:? "ContentHash") <*> (x .:? "CaptureTime") <*>
(x .: "TypeName")
<*> (x .: "SchemaVersion")
<*> (x .:? "Content" .!= mempty))
instance Hashable InventoryResultItem where
instance NFData InventoryResultItem where
data LoggingInfo = LoggingInfo'
{ _liS3KeyPrefix :: !(Maybe Text)
, _liS3BucketName :: !Text
, _liS3Region :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
loggingInfo
:: Text
-> Text
-> LoggingInfo
loggingInfo pS3BucketName_ pS3Region_ =
LoggingInfo'
{ _liS3KeyPrefix = Nothing
, _liS3BucketName = pS3BucketName_
, _liS3Region = pS3Region_
}
liS3KeyPrefix :: Lens' LoggingInfo (Maybe Text)
liS3KeyPrefix = lens _liS3KeyPrefix (\ s a -> s{_liS3KeyPrefix = a})
liS3BucketName :: Lens' LoggingInfo Text
liS3BucketName = lens _liS3BucketName (\ s a -> s{_liS3BucketName = a})
liS3Region :: Lens' LoggingInfo Text
liS3Region = lens _liS3Region (\ s a -> s{_liS3Region = a})
instance FromJSON LoggingInfo where
parseJSON
= withObject "LoggingInfo"
(\ x ->
LoggingInfo' <$>
(x .:? "S3KeyPrefix") <*> (x .: "S3BucketName") <*>
(x .: "S3Region"))
instance Hashable LoggingInfo where
instance NFData LoggingInfo where
instance ToJSON LoggingInfo where
toJSON LoggingInfo'{..}
= object
(catMaybes
[("S3KeyPrefix" .=) <$> _liS3KeyPrefix,
Just ("S3BucketName" .= _liS3BucketName),
Just ("S3Region" .= _liS3Region)])
data MaintenanceWindowAutomationParameters = MaintenanceWindowAutomationParameters'
{ _mwapParameters :: !(Maybe (Map Text [Text]))
, _mwapDocumentVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maintenanceWindowAutomationParameters
:: MaintenanceWindowAutomationParameters
maintenanceWindowAutomationParameters =
MaintenanceWindowAutomationParameters'
{_mwapParameters = Nothing, _mwapDocumentVersion = Nothing}
mwapParameters :: Lens' MaintenanceWindowAutomationParameters (HashMap Text [Text])
mwapParameters = lens _mwapParameters (\ s a -> s{_mwapParameters = a}) . _Default . _Map
mwapDocumentVersion :: Lens' MaintenanceWindowAutomationParameters (Maybe Text)
mwapDocumentVersion = lens _mwapDocumentVersion (\ s a -> s{_mwapDocumentVersion = a})
instance FromJSON
MaintenanceWindowAutomationParameters
where
parseJSON
= withObject "MaintenanceWindowAutomationParameters"
(\ x ->
MaintenanceWindowAutomationParameters' <$>
(x .:? "Parameters" .!= mempty) <*>
(x .:? "DocumentVersion"))
instance Hashable
MaintenanceWindowAutomationParameters
where
instance NFData MaintenanceWindowAutomationParameters
where
instance ToJSON MaintenanceWindowAutomationParameters
where
toJSON MaintenanceWindowAutomationParameters'{..}
= object
(catMaybes
[("Parameters" .=) <$> _mwapParameters,
("DocumentVersion" .=) <$> _mwapDocumentVersion])
data MaintenanceWindowExecution = MaintenanceWindowExecution'
{ _mweStatus :: !(Maybe MaintenanceWindowExecutionStatus)
, _mweStartTime :: !(Maybe POSIX)
, _mweWindowExecutionId :: !(Maybe Text)
, _mweStatusDetails :: !(Maybe Text)
, _mweEndTime :: !(Maybe POSIX)
, _mweWindowId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maintenanceWindowExecution
:: MaintenanceWindowExecution
maintenanceWindowExecution =
MaintenanceWindowExecution'
{ _mweStatus = Nothing
, _mweStartTime = Nothing
, _mweWindowExecutionId = Nothing
, _mweStatusDetails = Nothing
, _mweEndTime = Nothing
, _mweWindowId = Nothing
}
mweStatus :: Lens' MaintenanceWindowExecution (Maybe MaintenanceWindowExecutionStatus)
mweStatus = lens _mweStatus (\ s a -> s{_mweStatus = a})
mweStartTime :: Lens' MaintenanceWindowExecution (Maybe UTCTime)
mweStartTime = lens _mweStartTime (\ s a -> s{_mweStartTime = a}) . mapping _Time
mweWindowExecutionId :: Lens' MaintenanceWindowExecution (Maybe Text)
mweWindowExecutionId = lens _mweWindowExecutionId (\ s a -> s{_mweWindowExecutionId = a})
mweStatusDetails :: Lens' MaintenanceWindowExecution (Maybe Text)
mweStatusDetails = lens _mweStatusDetails (\ s a -> s{_mweStatusDetails = a})
mweEndTime :: Lens' MaintenanceWindowExecution (Maybe UTCTime)
mweEndTime = lens _mweEndTime (\ s a -> s{_mweEndTime = a}) . mapping _Time
mweWindowId :: Lens' MaintenanceWindowExecution (Maybe Text)
mweWindowId = lens _mweWindowId (\ s a -> s{_mweWindowId = a})
instance FromJSON MaintenanceWindowExecution where
parseJSON
= withObject "MaintenanceWindowExecution"
(\ x ->
MaintenanceWindowExecution' <$>
(x .:? "Status") <*> (x .:? "StartTime") <*>
(x .:? "WindowExecutionId")
<*> (x .:? "StatusDetails")
<*> (x .:? "EndTime")
<*> (x .:? "WindowId"))
instance Hashable MaintenanceWindowExecution where
instance NFData MaintenanceWindowExecution where
data MaintenanceWindowExecutionTaskIdentity = MaintenanceWindowExecutionTaskIdentity'
{ _mwetiStatus :: !(Maybe MaintenanceWindowExecutionStatus)
, _mwetiTaskExecutionId :: !(Maybe Text)
, _mwetiStartTime :: !(Maybe POSIX)
, _mwetiTaskType :: !(Maybe MaintenanceWindowTaskType)
, _mwetiTaskARN :: !(Maybe Text)
, _mwetiWindowExecutionId :: !(Maybe Text)
, _mwetiStatusDetails :: !(Maybe Text)
, _mwetiEndTime :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maintenanceWindowExecutionTaskIdentity
:: MaintenanceWindowExecutionTaskIdentity
maintenanceWindowExecutionTaskIdentity =
MaintenanceWindowExecutionTaskIdentity'
{ _mwetiStatus = Nothing
, _mwetiTaskExecutionId = Nothing
, _mwetiStartTime = Nothing
, _mwetiTaskType = Nothing
, _mwetiTaskARN = Nothing
, _mwetiWindowExecutionId = Nothing
, _mwetiStatusDetails = Nothing
, _mwetiEndTime = Nothing
}
mwetiStatus :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe MaintenanceWindowExecutionStatus)
mwetiStatus = lens _mwetiStatus (\ s a -> s{_mwetiStatus = a})
mwetiTaskExecutionId :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe Text)
mwetiTaskExecutionId = lens _mwetiTaskExecutionId (\ s a -> s{_mwetiTaskExecutionId = a})
mwetiStartTime :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe UTCTime)
mwetiStartTime = lens _mwetiStartTime (\ s a -> s{_mwetiStartTime = a}) . mapping _Time
mwetiTaskType :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe MaintenanceWindowTaskType)
mwetiTaskType = lens _mwetiTaskType (\ s a -> s{_mwetiTaskType = a})
mwetiTaskARN :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe Text)
mwetiTaskARN = lens _mwetiTaskARN (\ s a -> s{_mwetiTaskARN = a})
mwetiWindowExecutionId :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe Text)
mwetiWindowExecutionId = lens _mwetiWindowExecutionId (\ s a -> s{_mwetiWindowExecutionId = a})
mwetiStatusDetails :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe Text)
mwetiStatusDetails = lens _mwetiStatusDetails (\ s a -> s{_mwetiStatusDetails = a})
mwetiEndTime :: Lens' MaintenanceWindowExecutionTaskIdentity (Maybe UTCTime)
mwetiEndTime = lens _mwetiEndTime (\ s a -> s{_mwetiEndTime = a}) . mapping _Time
instance FromJSON
MaintenanceWindowExecutionTaskIdentity
where
parseJSON
= withObject "MaintenanceWindowExecutionTaskIdentity"
(\ x ->
MaintenanceWindowExecutionTaskIdentity' <$>
(x .:? "Status") <*> (x .:? "TaskExecutionId") <*>
(x .:? "StartTime")
<*> (x .:? "TaskType")
<*> (x .:? "TaskArn")
<*> (x .:? "WindowExecutionId")
<*> (x .:? "StatusDetails")
<*> (x .:? "EndTime"))
instance Hashable
MaintenanceWindowExecutionTaskIdentity
where
instance NFData
MaintenanceWindowExecutionTaskIdentity
where
data MaintenanceWindowExecutionTaskInvocationIdentity = MaintenanceWindowExecutionTaskInvocationIdentity'
{ _mwetiiStatus :: !(Maybe MaintenanceWindowExecutionStatus)
, _mwetiiExecutionId :: !(Maybe Text)
, _mwetiiTaskExecutionId :: !(Maybe Text)
, _mwetiiStartTime :: !(Maybe POSIX)
, _mwetiiInvocationId :: !(Maybe Text)
, _mwetiiOwnerInformation :: !(Maybe (Sensitive Text))
, _mwetiiTaskType :: !(Maybe MaintenanceWindowTaskType)
, _mwetiiWindowTargetId :: !(Maybe Text)
, _mwetiiWindowExecutionId :: !(Maybe Text)
, _mwetiiStatusDetails :: !(Maybe Text)
, _mwetiiEndTime :: !(Maybe POSIX)
, _mwetiiParameters :: !(Maybe (Sensitive Text))
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowExecutionTaskInvocationIdentity
:: MaintenanceWindowExecutionTaskInvocationIdentity
maintenanceWindowExecutionTaskInvocationIdentity =
MaintenanceWindowExecutionTaskInvocationIdentity'
{ _mwetiiStatus = Nothing
, _mwetiiExecutionId = Nothing
, _mwetiiTaskExecutionId = Nothing
, _mwetiiStartTime = Nothing
, _mwetiiInvocationId = Nothing
, _mwetiiOwnerInformation = Nothing
, _mwetiiTaskType = Nothing
, _mwetiiWindowTargetId = Nothing
, _mwetiiWindowExecutionId = Nothing
, _mwetiiStatusDetails = Nothing
, _mwetiiEndTime = Nothing
, _mwetiiParameters = Nothing
}
mwetiiStatus :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe MaintenanceWindowExecutionStatus)
mwetiiStatus = lens _mwetiiStatus (\ s a -> s{_mwetiiStatus = a})
mwetiiExecutionId :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiExecutionId = lens _mwetiiExecutionId (\ s a -> s{_mwetiiExecutionId = a})
mwetiiTaskExecutionId :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiTaskExecutionId = lens _mwetiiTaskExecutionId (\ s a -> s{_mwetiiTaskExecutionId = a})
mwetiiStartTime :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe UTCTime)
mwetiiStartTime = lens _mwetiiStartTime (\ s a -> s{_mwetiiStartTime = a}) . mapping _Time
mwetiiInvocationId :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiInvocationId = lens _mwetiiInvocationId (\ s a -> s{_mwetiiInvocationId = a})
mwetiiOwnerInformation :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiOwnerInformation = lens _mwetiiOwnerInformation (\ s a -> s{_mwetiiOwnerInformation = a}) . mapping _Sensitive
mwetiiTaskType :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe MaintenanceWindowTaskType)
mwetiiTaskType = lens _mwetiiTaskType (\ s a -> s{_mwetiiTaskType = a})
mwetiiWindowTargetId :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiWindowTargetId = lens _mwetiiWindowTargetId (\ s a -> s{_mwetiiWindowTargetId = a})
mwetiiWindowExecutionId :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiWindowExecutionId = lens _mwetiiWindowExecutionId (\ s a -> s{_mwetiiWindowExecutionId = a})
mwetiiStatusDetails :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiStatusDetails = lens _mwetiiStatusDetails (\ s a -> s{_mwetiiStatusDetails = a})
mwetiiEndTime :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe UTCTime)
mwetiiEndTime = lens _mwetiiEndTime (\ s a -> s{_mwetiiEndTime = a}) . mapping _Time
mwetiiParameters :: Lens' MaintenanceWindowExecutionTaskInvocationIdentity (Maybe Text)
mwetiiParameters = lens _mwetiiParameters (\ s a -> s{_mwetiiParameters = a}) . mapping _Sensitive
instance FromJSON
MaintenanceWindowExecutionTaskInvocationIdentity
where
parseJSON
= withObject
"MaintenanceWindowExecutionTaskInvocationIdentity"
(\ x ->
MaintenanceWindowExecutionTaskInvocationIdentity' <$>
(x .:? "Status") <*> (x .:? "ExecutionId") <*>
(x .:? "TaskExecutionId")
<*> (x .:? "StartTime")
<*> (x .:? "InvocationId")
<*> (x .:? "OwnerInformation")
<*> (x .:? "TaskType")
<*> (x .:? "WindowTargetId")
<*> (x .:? "WindowExecutionId")
<*> (x .:? "StatusDetails")
<*> (x .:? "EndTime")
<*> (x .:? "Parameters"))
instance Hashable
MaintenanceWindowExecutionTaskInvocationIdentity
where
instance NFData
MaintenanceWindowExecutionTaskInvocationIdentity
where
data MaintenanceWindowFilter = MaintenanceWindowFilter'
{ _mwfValues :: !(Maybe [Text])
, _mwfKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maintenanceWindowFilter
:: MaintenanceWindowFilter
maintenanceWindowFilter =
MaintenanceWindowFilter' {_mwfValues = Nothing, _mwfKey = Nothing}
mwfValues :: Lens' MaintenanceWindowFilter [Text]
mwfValues = lens _mwfValues (\ s a -> s{_mwfValues = a}) . _Default . _Coerce
mwfKey :: Lens' MaintenanceWindowFilter (Maybe Text)
mwfKey = lens _mwfKey (\ s a -> s{_mwfKey = a})
instance Hashable MaintenanceWindowFilter where
instance NFData MaintenanceWindowFilter where
instance ToJSON MaintenanceWindowFilter where
toJSON MaintenanceWindowFilter'{..}
= object
(catMaybes
[("Values" .=) <$> _mwfValues,
("Key" .=) <$> _mwfKey])
data MaintenanceWindowIdentity = MaintenanceWindowIdentity'
{ _mwiEnabled :: !(Maybe Bool)
, _mwiName :: !(Maybe Text)
, _mwiCutoff :: !(Maybe Nat)
, _mwiDescription :: !(Maybe (Sensitive Text))
, _mwiDuration :: !(Maybe Nat)
, _mwiWindowId :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowIdentity
:: MaintenanceWindowIdentity
maintenanceWindowIdentity =
MaintenanceWindowIdentity'
{ _mwiEnabled = Nothing
, _mwiName = Nothing
, _mwiCutoff = Nothing
, _mwiDescription = Nothing
, _mwiDuration = Nothing
, _mwiWindowId = Nothing
}
mwiEnabled :: Lens' MaintenanceWindowIdentity (Maybe Bool)
mwiEnabled = lens _mwiEnabled (\ s a -> s{_mwiEnabled = a})
mwiName :: Lens' MaintenanceWindowIdentity (Maybe Text)
mwiName = lens _mwiName (\ s a -> s{_mwiName = a})
mwiCutoff :: Lens' MaintenanceWindowIdentity (Maybe Natural)
mwiCutoff = lens _mwiCutoff (\ s a -> s{_mwiCutoff = a}) . mapping _Nat
mwiDescription :: Lens' MaintenanceWindowIdentity (Maybe Text)
mwiDescription = lens _mwiDescription (\ s a -> s{_mwiDescription = a}) . mapping _Sensitive
mwiDuration :: Lens' MaintenanceWindowIdentity (Maybe Natural)
mwiDuration = lens _mwiDuration (\ s a -> s{_mwiDuration = a}) . mapping _Nat
mwiWindowId :: Lens' MaintenanceWindowIdentity (Maybe Text)
mwiWindowId = lens _mwiWindowId (\ s a -> s{_mwiWindowId = a})
instance FromJSON MaintenanceWindowIdentity where
parseJSON
= withObject "MaintenanceWindowIdentity"
(\ x ->
MaintenanceWindowIdentity' <$>
(x .:? "Enabled") <*> (x .:? "Name") <*>
(x .:? "Cutoff")
<*> (x .:? "Description")
<*> (x .:? "Duration")
<*> (x .:? "WindowId"))
instance Hashable MaintenanceWindowIdentity where
instance NFData MaintenanceWindowIdentity where
data MaintenanceWindowLambdaParameters = MaintenanceWindowLambdaParameters'
{ _mwlpPayload :: !(Maybe (Sensitive Base64))
, _mwlpQualifier :: !(Maybe Text)
, _mwlpClientContext :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowLambdaParameters
:: MaintenanceWindowLambdaParameters
maintenanceWindowLambdaParameters =
MaintenanceWindowLambdaParameters'
{ _mwlpPayload = Nothing
, _mwlpQualifier = Nothing
, _mwlpClientContext = Nothing
}
mwlpPayload :: Lens' MaintenanceWindowLambdaParameters (Maybe ByteString)
mwlpPayload = lens _mwlpPayload (\ s a -> s{_mwlpPayload = a}) . mapping (_Sensitive . _Base64)
mwlpQualifier :: Lens' MaintenanceWindowLambdaParameters (Maybe Text)
mwlpQualifier = lens _mwlpQualifier (\ s a -> s{_mwlpQualifier = a})
mwlpClientContext :: Lens' MaintenanceWindowLambdaParameters (Maybe Text)
mwlpClientContext = lens _mwlpClientContext (\ s a -> s{_mwlpClientContext = a})
instance FromJSON MaintenanceWindowLambdaParameters
where
parseJSON
= withObject "MaintenanceWindowLambdaParameters"
(\ x ->
MaintenanceWindowLambdaParameters' <$>
(x .:? "Payload") <*> (x .:? "Qualifier") <*>
(x .:? "ClientContext"))
instance Hashable MaintenanceWindowLambdaParameters
where
instance NFData MaintenanceWindowLambdaParameters
where
instance ToJSON MaintenanceWindowLambdaParameters
where
toJSON MaintenanceWindowLambdaParameters'{..}
= object
(catMaybes
[("Payload" .=) <$> _mwlpPayload,
("Qualifier" .=) <$> _mwlpQualifier,
("ClientContext" .=) <$> _mwlpClientContext])
data MaintenanceWindowRunCommandParameters = MaintenanceWindowRunCommandParameters'
{ _mwrcpServiceRoleARN :: !(Maybe Text)
, _mwrcpNotificationConfig :: !(Maybe NotificationConfig)
, _mwrcpDocumentHashType :: !(Maybe DocumentHashType)
, _mwrcpOutputS3KeyPrefix :: !(Maybe Text)
, _mwrcpParameters :: !(Maybe (Map Text [Text]))
, _mwrcpDocumentHash :: !(Maybe Text)
, _mwrcpTimeoutSeconds :: !(Maybe Nat)
, _mwrcpComment :: !(Maybe Text)
, _mwrcpOutputS3BucketName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
maintenanceWindowRunCommandParameters
:: MaintenanceWindowRunCommandParameters
maintenanceWindowRunCommandParameters =
MaintenanceWindowRunCommandParameters'
{ _mwrcpServiceRoleARN = Nothing
, _mwrcpNotificationConfig = Nothing
, _mwrcpDocumentHashType = Nothing
, _mwrcpOutputS3KeyPrefix = Nothing
, _mwrcpParameters = Nothing
, _mwrcpDocumentHash = Nothing
, _mwrcpTimeoutSeconds = Nothing
, _mwrcpComment = Nothing
, _mwrcpOutputS3BucketName = Nothing
}
mwrcpServiceRoleARN :: Lens' MaintenanceWindowRunCommandParameters (Maybe Text)
mwrcpServiceRoleARN = lens _mwrcpServiceRoleARN (\ s a -> s{_mwrcpServiceRoleARN = a})
mwrcpNotificationConfig :: Lens' MaintenanceWindowRunCommandParameters (Maybe NotificationConfig)
mwrcpNotificationConfig = lens _mwrcpNotificationConfig (\ s a -> s{_mwrcpNotificationConfig = a})
mwrcpDocumentHashType :: Lens' MaintenanceWindowRunCommandParameters (Maybe DocumentHashType)
mwrcpDocumentHashType = lens _mwrcpDocumentHashType (\ s a -> s{_mwrcpDocumentHashType = a})
mwrcpOutputS3KeyPrefix :: Lens' MaintenanceWindowRunCommandParameters (Maybe Text)
mwrcpOutputS3KeyPrefix = lens _mwrcpOutputS3KeyPrefix (\ s a -> s{_mwrcpOutputS3KeyPrefix = a})
mwrcpParameters :: Lens' MaintenanceWindowRunCommandParameters (HashMap Text [Text])
mwrcpParameters = lens _mwrcpParameters (\ s a -> s{_mwrcpParameters = a}) . _Default . _Map
mwrcpDocumentHash :: Lens' MaintenanceWindowRunCommandParameters (Maybe Text)
mwrcpDocumentHash = lens _mwrcpDocumentHash (\ s a -> s{_mwrcpDocumentHash = a})
mwrcpTimeoutSeconds :: Lens' MaintenanceWindowRunCommandParameters (Maybe Natural)
mwrcpTimeoutSeconds = lens _mwrcpTimeoutSeconds (\ s a -> s{_mwrcpTimeoutSeconds = a}) . mapping _Nat
mwrcpComment :: Lens' MaintenanceWindowRunCommandParameters (Maybe Text)
mwrcpComment = lens _mwrcpComment (\ s a -> s{_mwrcpComment = a})
mwrcpOutputS3BucketName :: Lens' MaintenanceWindowRunCommandParameters (Maybe Text)
mwrcpOutputS3BucketName = lens _mwrcpOutputS3BucketName (\ s a -> s{_mwrcpOutputS3BucketName = a})
instance FromJSON
MaintenanceWindowRunCommandParameters
where
parseJSON
= withObject "MaintenanceWindowRunCommandParameters"
(\ x ->
MaintenanceWindowRunCommandParameters' <$>
(x .:? "ServiceRoleArn") <*>
(x .:? "NotificationConfig")
<*> (x .:? "DocumentHashType")
<*> (x .:? "OutputS3KeyPrefix")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "DocumentHash")
<*> (x .:? "TimeoutSeconds")
<*> (x .:? "Comment")
<*> (x .:? "OutputS3BucketName"))
instance Hashable
MaintenanceWindowRunCommandParameters
where
instance NFData MaintenanceWindowRunCommandParameters
where
instance ToJSON MaintenanceWindowRunCommandParameters
where
toJSON MaintenanceWindowRunCommandParameters'{..}
= object
(catMaybes
[("ServiceRoleArn" .=) <$> _mwrcpServiceRoleARN,
("NotificationConfig" .=) <$>
_mwrcpNotificationConfig,
("DocumentHashType" .=) <$> _mwrcpDocumentHashType,
("OutputS3KeyPrefix" .=) <$> _mwrcpOutputS3KeyPrefix,
("Parameters" .=) <$> _mwrcpParameters,
("DocumentHash" .=) <$> _mwrcpDocumentHash,
("TimeoutSeconds" .=) <$> _mwrcpTimeoutSeconds,
("Comment" .=) <$> _mwrcpComment,
("OutputS3BucketName" .=) <$>
_mwrcpOutputS3BucketName])
data MaintenanceWindowStepFunctionsParameters = MaintenanceWindowStepFunctionsParameters'
{ _mwsfpInput :: !(Maybe (Sensitive Text))
, _mwsfpName :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowStepFunctionsParameters
:: MaintenanceWindowStepFunctionsParameters
maintenanceWindowStepFunctionsParameters =
MaintenanceWindowStepFunctionsParameters'
{_mwsfpInput = Nothing, _mwsfpName = Nothing}
mwsfpInput :: Lens' MaintenanceWindowStepFunctionsParameters (Maybe Text)
mwsfpInput = lens _mwsfpInput (\ s a -> s{_mwsfpInput = a}) . mapping _Sensitive
mwsfpName :: Lens' MaintenanceWindowStepFunctionsParameters (Maybe Text)
mwsfpName = lens _mwsfpName (\ s a -> s{_mwsfpName = a})
instance FromJSON
MaintenanceWindowStepFunctionsParameters
where
parseJSON
= withObject
"MaintenanceWindowStepFunctionsParameters"
(\ x ->
MaintenanceWindowStepFunctionsParameters' <$>
(x .:? "Input") <*> (x .:? "Name"))
instance Hashable
MaintenanceWindowStepFunctionsParameters
where
instance NFData
MaintenanceWindowStepFunctionsParameters
where
instance ToJSON
MaintenanceWindowStepFunctionsParameters
where
toJSON MaintenanceWindowStepFunctionsParameters'{..}
= object
(catMaybes
[("Input" .=) <$> _mwsfpInput,
("Name" .=) <$> _mwsfpName])
data MaintenanceWindowTarget = MaintenanceWindowTarget'
{ _mResourceType :: !(Maybe MaintenanceWindowResourceType)
, _mOwnerInformation :: !(Maybe (Sensitive Text))
, _mWindowTargetId :: !(Maybe Text)
, _mName :: !(Maybe Text)
, _mTargets :: !(Maybe [Target])
, _mDescription :: !(Maybe (Sensitive Text))
, _mWindowId :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowTarget
:: MaintenanceWindowTarget
maintenanceWindowTarget =
MaintenanceWindowTarget'
{ _mResourceType = Nothing
, _mOwnerInformation = Nothing
, _mWindowTargetId = Nothing
, _mName = Nothing
, _mTargets = Nothing
, _mDescription = Nothing
, _mWindowId = Nothing
}
mResourceType :: Lens' MaintenanceWindowTarget (Maybe MaintenanceWindowResourceType)
mResourceType = lens _mResourceType (\ s a -> s{_mResourceType = a})
mOwnerInformation :: Lens' MaintenanceWindowTarget (Maybe Text)
mOwnerInformation = lens _mOwnerInformation (\ s a -> s{_mOwnerInformation = a}) . mapping _Sensitive
mWindowTargetId :: Lens' MaintenanceWindowTarget (Maybe Text)
mWindowTargetId = lens _mWindowTargetId (\ s a -> s{_mWindowTargetId = a})
mName :: Lens' MaintenanceWindowTarget (Maybe Text)
mName = lens _mName (\ s a -> s{_mName = a})
mTargets :: Lens' MaintenanceWindowTarget [Target]
mTargets = lens _mTargets (\ s a -> s{_mTargets = a}) . _Default . _Coerce
mDescription :: Lens' MaintenanceWindowTarget (Maybe Text)
mDescription = lens _mDescription (\ s a -> s{_mDescription = a}) . mapping _Sensitive
mWindowId :: Lens' MaintenanceWindowTarget (Maybe Text)
mWindowId = lens _mWindowId (\ s a -> s{_mWindowId = a})
instance FromJSON MaintenanceWindowTarget where
parseJSON
= withObject "MaintenanceWindowTarget"
(\ x ->
MaintenanceWindowTarget' <$>
(x .:? "ResourceType") <*> (x .:? "OwnerInformation")
<*> (x .:? "WindowTargetId")
<*> (x .:? "Name")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "Description")
<*> (x .:? "WindowId"))
instance Hashable MaintenanceWindowTarget where
instance NFData MaintenanceWindowTarget where
data MaintenanceWindowTask = MaintenanceWindowTask'
{ _mwtServiceRoleARN :: !(Maybe Text)
, _mwtWindowTaskId :: !(Maybe Text)
, _mwtTaskParameters :: !(Maybe (Sensitive (Map Text (Sensitive MaintenanceWindowTaskParameterValueExpression))))
, _mwtPriority :: !(Maybe Nat)
, _mwtTaskARN :: !(Maybe Text)
, _mwtMaxErrors :: !(Maybe Text)
, _mwtName :: !(Maybe Text)
, _mwtTargets :: !(Maybe [Target])
, _mwtLoggingInfo :: !(Maybe LoggingInfo)
, _mwtType :: !(Maybe MaintenanceWindowTaskType)
, _mwtDescription :: !(Maybe (Sensitive Text))
, _mwtMaxConcurrency :: !(Maybe Text)
, _mwtWindowId :: !(Maybe Text)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowTask
:: MaintenanceWindowTask
maintenanceWindowTask =
MaintenanceWindowTask'
{ _mwtServiceRoleARN = Nothing
, _mwtWindowTaskId = Nothing
, _mwtTaskParameters = Nothing
, _mwtPriority = Nothing
, _mwtTaskARN = Nothing
, _mwtMaxErrors = Nothing
, _mwtName = Nothing
, _mwtTargets = Nothing
, _mwtLoggingInfo = Nothing
, _mwtType = Nothing
, _mwtDescription = Nothing
, _mwtMaxConcurrency = Nothing
, _mwtWindowId = Nothing
}
mwtServiceRoleARN :: Lens' MaintenanceWindowTask (Maybe Text)
mwtServiceRoleARN = lens _mwtServiceRoleARN (\ s a -> s{_mwtServiceRoleARN = a})
mwtWindowTaskId :: Lens' MaintenanceWindowTask (Maybe Text)
mwtWindowTaskId = lens _mwtWindowTaskId (\ s a -> s{_mwtWindowTaskId = a})
mwtTaskParameters :: Lens' MaintenanceWindowTask (Maybe (HashMap Text MaintenanceWindowTaskParameterValueExpression))
mwtTaskParameters = lens _mwtTaskParameters (\ s a -> s{_mwtTaskParameters = a}) . mapping (_Sensitive . _Map)
mwtPriority :: Lens' MaintenanceWindowTask (Maybe Natural)
mwtPriority = lens _mwtPriority (\ s a -> s{_mwtPriority = a}) . mapping _Nat
mwtTaskARN :: Lens' MaintenanceWindowTask (Maybe Text)
mwtTaskARN = lens _mwtTaskARN (\ s a -> s{_mwtTaskARN = a})
mwtMaxErrors :: Lens' MaintenanceWindowTask (Maybe Text)
mwtMaxErrors = lens _mwtMaxErrors (\ s a -> s{_mwtMaxErrors = a})
mwtName :: Lens' MaintenanceWindowTask (Maybe Text)
mwtName = lens _mwtName (\ s a -> s{_mwtName = a})
mwtTargets :: Lens' MaintenanceWindowTask [Target]
mwtTargets = lens _mwtTargets (\ s a -> s{_mwtTargets = a}) . _Default . _Coerce
mwtLoggingInfo :: Lens' MaintenanceWindowTask (Maybe LoggingInfo)
mwtLoggingInfo = lens _mwtLoggingInfo (\ s a -> s{_mwtLoggingInfo = a})
mwtType :: Lens' MaintenanceWindowTask (Maybe MaintenanceWindowTaskType)
mwtType = lens _mwtType (\ s a -> s{_mwtType = a})
mwtDescription :: Lens' MaintenanceWindowTask (Maybe Text)
mwtDescription = lens _mwtDescription (\ s a -> s{_mwtDescription = a}) . mapping _Sensitive
mwtMaxConcurrency :: Lens' MaintenanceWindowTask (Maybe Text)
mwtMaxConcurrency = lens _mwtMaxConcurrency (\ s a -> s{_mwtMaxConcurrency = a})
mwtWindowId :: Lens' MaintenanceWindowTask (Maybe Text)
mwtWindowId = lens _mwtWindowId (\ s a -> s{_mwtWindowId = a})
instance FromJSON MaintenanceWindowTask where
parseJSON
= withObject "MaintenanceWindowTask"
(\ x ->
MaintenanceWindowTask' <$>
(x .:? "ServiceRoleArn") <*> (x .:? "WindowTaskId")
<*> (x .:? "TaskParameters" .!= mempty)
<*> (x .:? "Priority")
<*> (x .:? "TaskArn")
<*> (x .:? "MaxErrors")
<*> (x .:? "Name")
<*> (x .:? "Targets" .!= mempty)
<*> (x .:? "LoggingInfo")
<*> (x .:? "Type")
<*> (x .:? "Description")
<*> (x .:? "MaxConcurrency")
<*> (x .:? "WindowId"))
instance Hashable MaintenanceWindowTask where
instance NFData MaintenanceWindowTask where
data MaintenanceWindowTaskInvocationParameters = MaintenanceWindowTaskInvocationParameters'
{ _mwtipAutomation :: !(Maybe MaintenanceWindowAutomationParameters)
, _mwtipStepFunctions :: !(Maybe MaintenanceWindowStepFunctionsParameters)
, _mwtipRunCommand :: !(Maybe MaintenanceWindowRunCommandParameters)
, _mwtipLambda :: !(Maybe MaintenanceWindowLambdaParameters)
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowTaskInvocationParameters
:: MaintenanceWindowTaskInvocationParameters
maintenanceWindowTaskInvocationParameters =
MaintenanceWindowTaskInvocationParameters'
{ _mwtipAutomation = Nothing
, _mwtipStepFunctions = Nothing
, _mwtipRunCommand = Nothing
, _mwtipLambda = Nothing
}
mwtipAutomation :: Lens' MaintenanceWindowTaskInvocationParameters (Maybe MaintenanceWindowAutomationParameters)
mwtipAutomation = lens _mwtipAutomation (\ s a -> s{_mwtipAutomation = a})
mwtipStepFunctions :: Lens' MaintenanceWindowTaskInvocationParameters (Maybe MaintenanceWindowStepFunctionsParameters)
mwtipStepFunctions = lens _mwtipStepFunctions (\ s a -> s{_mwtipStepFunctions = a})
mwtipRunCommand :: Lens' MaintenanceWindowTaskInvocationParameters (Maybe MaintenanceWindowRunCommandParameters)
mwtipRunCommand = lens _mwtipRunCommand (\ s a -> s{_mwtipRunCommand = a})
mwtipLambda :: Lens' MaintenanceWindowTaskInvocationParameters (Maybe MaintenanceWindowLambdaParameters)
mwtipLambda = lens _mwtipLambda (\ s a -> s{_mwtipLambda = a})
instance FromJSON
MaintenanceWindowTaskInvocationParameters
where
parseJSON
= withObject
"MaintenanceWindowTaskInvocationParameters"
(\ x ->
MaintenanceWindowTaskInvocationParameters' <$>
(x .:? "Automation") <*> (x .:? "StepFunctions") <*>
(x .:? "RunCommand")
<*> (x .:? "Lambda"))
instance Hashable
MaintenanceWindowTaskInvocationParameters
where
instance NFData
MaintenanceWindowTaskInvocationParameters
where
instance ToJSON
MaintenanceWindowTaskInvocationParameters
where
toJSON MaintenanceWindowTaskInvocationParameters'{..}
= object
(catMaybes
[("Automation" .=) <$> _mwtipAutomation,
("StepFunctions" .=) <$> _mwtipStepFunctions,
("RunCommand" .=) <$> _mwtipRunCommand,
("Lambda" .=) <$> _mwtipLambda])
newtype MaintenanceWindowTaskParameterValueExpression = MaintenanceWindowTaskParameterValueExpression'
{ _mwtpveValues :: Maybe (Sensitive [Sensitive Text])
} deriving (Eq, Show, Data, Typeable, Generic)
maintenanceWindowTaskParameterValueExpression
:: MaintenanceWindowTaskParameterValueExpression
maintenanceWindowTaskParameterValueExpression =
MaintenanceWindowTaskParameterValueExpression' {_mwtpveValues = Nothing}
mwtpveValues :: Lens' MaintenanceWindowTaskParameterValueExpression (Maybe [Text])
mwtpveValues = lens _mwtpveValues (\ s a -> s{_mwtpveValues = a}) . mapping (_Sensitive . _Coerce)
instance FromJSON
MaintenanceWindowTaskParameterValueExpression
where
parseJSON
= withObject
"MaintenanceWindowTaskParameterValueExpression"
(\ x ->
MaintenanceWindowTaskParameterValueExpression' <$>
(x .:? "Values" .!= mempty))
instance Hashable
MaintenanceWindowTaskParameterValueExpression
where
instance NFData
MaintenanceWindowTaskParameterValueExpression
where
instance ToJSON
MaintenanceWindowTaskParameterValueExpression
where
toJSON
MaintenanceWindowTaskParameterValueExpression'{..}
= object
(catMaybes [("Values" .=) <$> _mwtpveValues])
data NonCompliantSummary = NonCompliantSummary'
{ _ncsNonCompliantCount :: !(Maybe Int)
, _ncsSeveritySummary :: !(Maybe SeveritySummary)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
nonCompliantSummary
:: NonCompliantSummary
nonCompliantSummary =
NonCompliantSummary'
{_ncsNonCompliantCount = Nothing, _ncsSeveritySummary = Nothing}
ncsNonCompliantCount :: Lens' NonCompliantSummary (Maybe Int)
ncsNonCompliantCount = lens _ncsNonCompliantCount (\ s a -> s{_ncsNonCompliantCount = a})
ncsSeveritySummary :: Lens' NonCompliantSummary (Maybe SeveritySummary)
ncsSeveritySummary = lens _ncsSeveritySummary (\ s a -> s{_ncsSeveritySummary = a})
instance FromJSON NonCompliantSummary where
parseJSON
= withObject "NonCompliantSummary"
(\ x ->
NonCompliantSummary' <$>
(x .:? "NonCompliantCount") <*>
(x .:? "SeveritySummary"))
instance Hashable NonCompliantSummary where
instance NFData NonCompliantSummary where
data NotificationConfig = NotificationConfig'
{ _ncNotificationEvents :: !(Maybe [NotificationEvent])
, _ncNotificationType :: !(Maybe NotificationType)
, _ncNotificationARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
notificationConfig
:: NotificationConfig
notificationConfig =
NotificationConfig'
{ _ncNotificationEvents = Nothing
, _ncNotificationType = Nothing
, _ncNotificationARN = Nothing
}
ncNotificationEvents :: Lens' NotificationConfig [NotificationEvent]
ncNotificationEvents = lens _ncNotificationEvents (\ s a -> s{_ncNotificationEvents = a}) . _Default . _Coerce
ncNotificationType :: Lens' NotificationConfig (Maybe NotificationType)
ncNotificationType = lens _ncNotificationType (\ s a -> s{_ncNotificationType = a})
ncNotificationARN :: Lens' NotificationConfig (Maybe Text)
ncNotificationARN = lens _ncNotificationARN (\ s a -> s{_ncNotificationARN = a})
instance FromJSON NotificationConfig where
parseJSON
= withObject "NotificationConfig"
(\ x ->
NotificationConfig' <$>
(x .:? "NotificationEvents" .!= mempty) <*>
(x .:? "NotificationType")
<*> (x .:? "NotificationArn"))
instance Hashable NotificationConfig where
instance NFData NotificationConfig where
instance ToJSON NotificationConfig where
toJSON NotificationConfig'{..}
= object
(catMaybes
[("NotificationEvents" .=) <$> _ncNotificationEvents,
("NotificationType" .=) <$> _ncNotificationType,
("NotificationArn" .=) <$> _ncNotificationARN])
data Parameter = Parameter'
{ _pValue :: !(Maybe Text)
, _pName :: !(Maybe Text)
, _pVersion :: !(Maybe Integer)
, _pType :: !(Maybe ParameterType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameter
:: Parameter
parameter =
Parameter'
{_pValue = Nothing, _pName = Nothing, _pVersion = Nothing, _pType = Nothing}
pValue :: Lens' Parameter (Maybe Text)
pValue = lens _pValue (\ s a -> s{_pValue = a})
pName :: Lens' Parameter (Maybe Text)
pName = lens _pName (\ s a -> s{_pName = a})
pVersion :: Lens' Parameter (Maybe Integer)
pVersion = lens _pVersion (\ s a -> s{_pVersion = a})
pType :: Lens' Parameter (Maybe ParameterType)
pType = lens _pType (\ s a -> s{_pType = a})
instance FromJSON Parameter where
parseJSON
= withObject "Parameter"
(\ x ->
Parameter' <$>
(x .:? "Value") <*> (x .:? "Name") <*>
(x .:? "Version")
<*> (x .:? "Type"))
instance Hashable Parameter where
instance NFData Parameter where
data ParameterHistory = ParameterHistory'
{ _phLastModifiedDate :: !(Maybe POSIX)
, _phKeyId :: !(Maybe Text)
, _phValue :: !(Maybe Text)
, _phName :: !(Maybe Text)
, _phVersion :: !(Maybe Integer)
, _phLastModifiedUser :: !(Maybe Text)
, _phAllowedPattern :: !(Maybe Text)
, _phType :: !(Maybe ParameterType)
, _phDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameterHistory
:: ParameterHistory
parameterHistory =
ParameterHistory'
{ _phLastModifiedDate = Nothing
, _phKeyId = Nothing
, _phValue = Nothing
, _phName = Nothing
, _phVersion = Nothing
, _phLastModifiedUser = Nothing
, _phAllowedPattern = Nothing
, _phType = Nothing
, _phDescription = Nothing
}
phLastModifiedDate :: Lens' ParameterHistory (Maybe UTCTime)
phLastModifiedDate = lens _phLastModifiedDate (\ s a -> s{_phLastModifiedDate = a}) . mapping _Time
phKeyId :: Lens' ParameterHistory (Maybe Text)
phKeyId = lens _phKeyId (\ s a -> s{_phKeyId = a})
phValue :: Lens' ParameterHistory (Maybe Text)
phValue = lens _phValue (\ s a -> s{_phValue = a})
phName :: Lens' ParameterHistory (Maybe Text)
phName = lens _phName (\ s a -> s{_phName = a})
phVersion :: Lens' ParameterHistory (Maybe Integer)
phVersion = lens _phVersion (\ s a -> s{_phVersion = a})
phLastModifiedUser :: Lens' ParameterHistory (Maybe Text)
phLastModifiedUser = lens _phLastModifiedUser (\ s a -> s{_phLastModifiedUser = a})
phAllowedPattern :: Lens' ParameterHistory (Maybe Text)
phAllowedPattern = lens _phAllowedPattern (\ s a -> s{_phAllowedPattern = a})
phType :: Lens' ParameterHistory (Maybe ParameterType)
phType = lens _phType (\ s a -> s{_phType = a})
phDescription :: Lens' ParameterHistory (Maybe Text)
phDescription = lens _phDescription (\ s a -> s{_phDescription = a})
instance FromJSON ParameterHistory where
parseJSON
= withObject "ParameterHistory"
(\ x ->
ParameterHistory' <$>
(x .:? "LastModifiedDate") <*> (x .:? "KeyId") <*>
(x .:? "Value")
<*> (x .:? "Name")
<*> (x .:? "Version")
<*> (x .:? "LastModifiedUser")
<*> (x .:? "AllowedPattern")
<*> (x .:? "Type")
<*> (x .:? "Description"))
instance Hashable ParameterHistory where
instance NFData ParameterHistory where
data ParameterMetadata = ParameterMetadata'
{ _pmLastModifiedDate :: !(Maybe POSIX)
, _pmKeyId :: !(Maybe Text)
, _pmName :: !(Maybe Text)
, _pmVersion :: !(Maybe Integer)
, _pmLastModifiedUser :: !(Maybe Text)
, _pmAllowedPattern :: !(Maybe Text)
, _pmType :: !(Maybe ParameterType)
, _pmDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameterMetadata
:: ParameterMetadata
parameterMetadata =
ParameterMetadata'
{ _pmLastModifiedDate = Nothing
, _pmKeyId = Nothing
, _pmName = Nothing
, _pmVersion = Nothing
, _pmLastModifiedUser = Nothing
, _pmAllowedPattern = Nothing
, _pmType = Nothing
, _pmDescription = Nothing
}
pmLastModifiedDate :: Lens' ParameterMetadata (Maybe UTCTime)
pmLastModifiedDate = lens _pmLastModifiedDate (\ s a -> s{_pmLastModifiedDate = a}) . mapping _Time
pmKeyId :: Lens' ParameterMetadata (Maybe Text)
pmKeyId = lens _pmKeyId (\ s a -> s{_pmKeyId = a})
pmName :: Lens' ParameterMetadata (Maybe Text)
pmName = lens _pmName (\ s a -> s{_pmName = a})
pmVersion :: Lens' ParameterMetadata (Maybe Integer)
pmVersion = lens _pmVersion (\ s a -> s{_pmVersion = a})
pmLastModifiedUser :: Lens' ParameterMetadata (Maybe Text)
pmLastModifiedUser = lens _pmLastModifiedUser (\ s a -> s{_pmLastModifiedUser = a})
pmAllowedPattern :: Lens' ParameterMetadata (Maybe Text)
pmAllowedPattern = lens _pmAllowedPattern (\ s a -> s{_pmAllowedPattern = a})
pmType :: Lens' ParameterMetadata (Maybe ParameterType)
pmType = lens _pmType (\ s a -> s{_pmType = a})
pmDescription :: Lens' ParameterMetadata (Maybe Text)
pmDescription = lens _pmDescription (\ s a -> s{_pmDescription = a})
instance FromJSON ParameterMetadata where
parseJSON
= withObject "ParameterMetadata"
(\ x ->
ParameterMetadata' <$>
(x .:? "LastModifiedDate") <*> (x .:? "KeyId") <*>
(x .:? "Name")
<*> (x .:? "Version")
<*> (x .:? "LastModifiedUser")
<*> (x .:? "AllowedPattern")
<*> (x .:? "Type")
<*> (x .:? "Description"))
instance Hashable ParameterMetadata where
instance NFData ParameterMetadata where
data ParameterStringFilter = ParameterStringFilter'
{ _psfValues :: !(Maybe (List1 Text))
, _psfOption :: !(Maybe Text)
, _psfKey :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameterStringFilter
:: Text
-> ParameterStringFilter
parameterStringFilter pKey_ =
ParameterStringFilter'
{_psfValues = Nothing, _psfOption = Nothing, _psfKey = pKey_}
psfValues :: Lens' ParameterStringFilter (Maybe (NonEmpty Text))
psfValues = lens _psfValues (\ s a -> s{_psfValues = a}) . mapping _List1
psfOption :: Lens' ParameterStringFilter (Maybe Text)
psfOption = lens _psfOption (\ s a -> s{_psfOption = a})
psfKey :: Lens' ParameterStringFilter Text
psfKey = lens _psfKey (\ s a -> s{_psfKey = a})
instance Hashable ParameterStringFilter where
instance NFData ParameterStringFilter where
instance ToJSON ParameterStringFilter where
toJSON ParameterStringFilter'{..}
= object
(catMaybes
[("Values" .=) <$> _psfValues,
("Option" .=) <$> _psfOption,
Just ("Key" .= _psfKey)])
data ParametersFilter = ParametersFilter'
{ _pKey :: !ParametersFilterKey
, _pValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parametersFilter
:: ParametersFilterKey
-> NonEmpty Text
-> ParametersFilter
parametersFilter pKey_ pValues_ =
ParametersFilter' {_pKey = pKey_, _pValues = _List1 # pValues_}
pKey :: Lens' ParametersFilter ParametersFilterKey
pKey = lens _pKey (\ s a -> s{_pKey = a})
pValues :: Lens' ParametersFilter (NonEmpty Text)
pValues = lens _pValues (\ s a -> s{_pValues = a}) . _List1
instance Hashable ParametersFilter where
instance NFData ParametersFilter where
instance ToJSON ParametersFilter where
toJSON ParametersFilter'{..}
= object
(catMaybes
[Just ("Key" .= _pKey), Just ("Values" .= _pValues)])
data Patch = Patch'
{ _pVendor :: !(Maybe Text)
, _pMsrcSeverity :: !(Maybe Text)
, _pProductFamily :: !(Maybe Text)
, _pClassification :: !(Maybe Text)
, _pMsrcNumber :: !(Maybe Text)
, _pLanguage :: !(Maybe Text)
, _pKbNumber :: !(Maybe Text)
, _pContentURL :: !(Maybe Text)
, _pId :: !(Maybe Text)
, _pReleaseDate :: !(Maybe POSIX)
, _pTitle :: !(Maybe Text)
, _pProduct :: !(Maybe Text)
, _pDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patch
:: Patch
patch =
Patch'
{ _pVendor = Nothing
, _pMsrcSeverity = Nothing
, _pProductFamily = Nothing
, _pClassification = Nothing
, _pMsrcNumber = Nothing
, _pLanguage = Nothing
, _pKbNumber = Nothing
, _pContentURL = Nothing
, _pId = Nothing
, _pReleaseDate = Nothing
, _pTitle = Nothing
, _pProduct = Nothing
, _pDescription = Nothing
}
pVendor :: Lens' Patch (Maybe Text)
pVendor = lens _pVendor (\ s a -> s{_pVendor = a})
pMsrcSeverity :: Lens' Patch (Maybe Text)
pMsrcSeverity = lens _pMsrcSeverity (\ s a -> s{_pMsrcSeverity = a})
pProductFamily :: Lens' Patch (Maybe Text)
pProductFamily = lens _pProductFamily (\ s a -> s{_pProductFamily = a})
pClassification :: Lens' Patch (Maybe Text)
pClassification = lens _pClassification (\ s a -> s{_pClassification = a})
pMsrcNumber :: Lens' Patch (Maybe Text)
pMsrcNumber = lens _pMsrcNumber (\ s a -> s{_pMsrcNumber = a})
pLanguage :: Lens' Patch (Maybe Text)
pLanguage = lens _pLanguage (\ s a -> s{_pLanguage = a})
pKbNumber :: Lens' Patch (Maybe Text)
pKbNumber = lens _pKbNumber (\ s a -> s{_pKbNumber = a})
pContentURL :: Lens' Patch (Maybe Text)
pContentURL = lens _pContentURL (\ s a -> s{_pContentURL = a})
pId :: Lens' Patch (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
pReleaseDate :: Lens' Patch (Maybe UTCTime)
pReleaseDate = lens _pReleaseDate (\ s a -> s{_pReleaseDate = a}) . mapping _Time
pTitle :: Lens' Patch (Maybe Text)
pTitle = lens _pTitle (\ s a -> s{_pTitle = a})
pProduct :: Lens' Patch (Maybe Text)
pProduct = lens _pProduct (\ s a -> s{_pProduct = a})
pDescription :: Lens' Patch (Maybe Text)
pDescription = lens _pDescription (\ s a -> s{_pDescription = a})
instance FromJSON Patch where
parseJSON
= withObject "Patch"
(\ x ->
Patch' <$>
(x .:? "Vendor") <*> (x .:? "MsrcSeverity") <*>
(x .:? "ProductFamily")
<*> (x .:? "Classification")
<*> (x .:? "MsrcNumber")
<*> (x .:? "Language")
<*> (x .:? "KbNumber")
<*> (x .:? "ContentUrl")
<*> (x .:? "Id")
<*> (x .:? "ReleaseDate")
<*> (x .:? "Title")
<*> (x .:? "Product")
<*> (x .:? "Description"))
instance Hashable Patch where
instance NFData Patch where
data PatchBaselineIdentity = PatchBaselineIdentity'
{ _pbiBaselineName :: !(Maybe Text)
, _pbiBaselineDescription :: !(Maybe Text)
, _pbiOperatingSystem :: !(Maybe OperatingSystem)
, _pbiDefaultBaseline :: !(Maybe Bool)
, _pbiBaselineId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchBaselineIdentity
:: PatchBaselineIdentity
patchBaselineIdentity =
PatchBaselineIdentity'
{ _pbiBaselineName = Nothing
, _pbiBaselineDescription = Nothing
, _pbiOperatingSystem = Nothing
, _pbiDefaultBaseline = Nothing
, _pbiBaselineId = Nothing
}
pbiBaselineName :: Lens' PatchBaselineIdentity (Maybe Text)
pbiBaselineName = lens _pbiBaselineName (\ s a -> s{_pbiBaselineName = a})
pbiBaselineDescription :: Lens' PatchBaselineIdentity (Maybe Text)
pbiBaselineDescription = lens _pbiBaselineDescription (\ s a -> s{_pbiBaselineDescription = a})
pbiOperatingSystem :: Lens' PatchBaselineIdentity (Maybe OperatingSystem)
pbiOperatingSystem = lens _pbiOperatingSystem (\ s a -> s{_pbiOperatingSystem = a})
pbiDefaultBaseline :: Lens' PatchBaselineIdentity (Maybe Bool)
pbiDefaultBaseline = lens _pbiDefaultBaseline (\ s a -> s{_pbiDefaultBaseline = a})
pbiBaselineId :: Lens' PatchBaselineIdentity (Maybe Text)
pbiBaselineId = lens _pbiBaselineId (\ s a -> s{_pbiBaselineId = a})
instance FromJSON PatchBaselineIdentity where
parseJSON
= withObject "PatchBaselineIdentity"
(\ x ->
PatchBaselineIdentity' <$>
(x .:? "BaselineName") <*>
(x .:? "BaselineDescription")
<*> (x .:? "OperatingSystem")
<*> (x .:? "DefaultBaseline")
<*> (x .:? "BaselineId"))
instance Hashable PatchBaselineIdentity where
instance NFData PatchBaselineIdentity where
data PatchComplianceData = PatchComplianceData'
{ _pcdTitle :: !Text
, _pcdKBId :: !Text
, _pcdClassification :: !Text
, _pcdSeverity :: !Text
, _pcdState :: !PatchComplianceDataState
, _pcdInstalledTime :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchComplianceData
:: Text
-> Text
-> Text
-> Text
-> PatchComplianceDataState
-> UTCTime
-> PatchComplianceData
patchComplianceData pTitle_ pKBId_ pClassification_ pSeverity_ pState_ pInstalledTime_ =
PatchComplianceData'
{ _pcdTitle = pTitle_
, _pcdKBId = pKBId_
, _pcdClassification = pClassification_
, _pcdSeverity = pSeverity_
, _pcdState = pState_
, _pcdInstalledTime = _Time # pInstalledTime_
}
pcdTitle :: Lens' PatchComplianceData Text
pcdTitle = lens _pcdTitle (\ s a -> s{_pcdTitle = a})
pcdKBId :: Lens' PatchComplianceData Text
pcdKBId = lens _pcdKBId (\ s a -> s{_pcdKBId = a})
pcdClassification :: Lens' PatchComplianceData Text
pcdClassification = lens _pcdClassification (\ s a -> s{_pcdClassification = a})
pcdSeverity :: Lens' PatchComplianceData Text
pcdSeverity = lens _pcdSeverity (\ s a -> s{_pcdSeverity = a})
pcdState :: Lens' PatchComplianceData PatchComplianceDataState
pcdState = lens _pcdState (\ s a -> s{_pcdState = a})
pcdInstalledTime :: Lens' PatchComplianceData UTCTime
pcdInstalledTime = lens _pcdInstalledTime (\ s a -> s{_pcdInstalledTime = a}) . _Time
instance FromJSON PatchComplianceData where
parseJSON
= withObject "PatchComplianceData"
(\ x ->
PatchComplianceData' <$>
(x .: "Title") <*> (x .: "KBId") <*>
(x .: "Classification")
<*> (x .: "Severity")
<*> (x .: "State")
<*> (x .: "InstalledTime"))
instance Hashable PatchComplianceData where
instance NFData PatchComplianceData where
data PatchFilter = PatchFilter'
{ _pfKey :: !PatchFilterKey
, _pfValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchFilter
:: PatchFilterKey
-> NonEmpty Text
-> PatchFilter
patchFilter pKey_ pValues_ =
PatchFilter' {_pfKey = pKey_, _pfValues = _List1 # pValues_}
pfKey :: Lens' PatchFilter PatchFilterKey
pfKey = lens _pfKey (\ s a -> s{_pfKey = a})
pfValues :: Lens' PatchFilter (NonEmpty Text)
pfValues = lens _pfValues (\ s a -> s{_pfValues = a}) . _List1
instance FromJSON PatchFilter where
parseJSON
= withObject "PatchFilter"
(\ x ->
PatchFilter' <$> (x .: "Key") <*> (x .: "Values"))
instance Hashable PatchFilter where
instance NFData PatchFilter where
instance ToJSON PatchFilter where
toJSON PatchFilter'{..}
= object
(catMaybes
[Just ("Key" .= _pfKey),
Just ("Values" .= _pfValues)])
newtype PatchFilterGroup = PatchFilterGroup'
{ _pfgPatchFilters :: [PatchFilter]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchFilterGroup
:: PatchFilterGroup
patchFilterGroup = PatchFilterGroup' {_pfgPatchFilters = mempty}
pfgPatchFilters :: Lens' PatchFilterGroup [PatchFilter]
pfgPatchFilters = lens _pfgPatchFilters (\ s a -> s{_pfgPatchFilters = a}) . _Coerce
instance FromJSON PatchFilterGroup where
parseJSON
= withObject "PatchFilterGroup"
(\ x ->
PatchFilterGroup' <$>
(x .:? "PatchFilters" .!= mempty))
instance Hashable PatchFilterGroup where
instance NFData PatchFilterGroup where
instance ToJSON PatchFilterGroup where
toJSON PatchFilterGroup'{..}
= object
(catMaybes
[Just ("PatchFilters" .= _pfgPatchFilters)])
data PatchGroupPatchBaselineMapping = PatchGroupPatchBaselineMapping'
{ _pgpbmBaselineIdentity :: !(Maybe PatchBaselineIdentity)
, _pgpbmPatchGroup :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchGroupPatchBaselineMapping
:: PatchGroupPatchBaselineMapping
patchGroupPatchBaselineMapping =
PatchGroupPatchBaselineMapping'
{_pgpbmBaselineIdentity = Nothing, _pgpbmPatchGroup = Nothing}
pgpbmBaselineIdentity :: Lens' PatchGroupPatchBaselineMapping (Maybe PatchBaselineIdentity)
pgpbmBaselineIdentity = lens _pgpbmBaselineIdentity (\ s a -> s{_pgpbmBaselineIdentity = a})
pgpbmPatchGroup :: Lens' PatchGroupPatchBaselineMapping (Maybe Text)
pgpbmPatchGroup = lens _pgpbmPatchGroup (\ s a -> s{_pgpbmPatchGroup = a})
instance FromJSON PatchGroupPatchBaselineMapping
where
parseJSON
= withObject "PatchGroupPatchBaselineMapping"
(\ x ->
PatchGroupPatchBaselineMapping' <$>
(x .:? "BaselineIdentity") <*> (x .:? "PatchGroup"))
instance Hashable PatchGroupPatchBaselineMapping
where
instance NFData PatchGroupPatchBaselineMapping where
data PatchOrchestratorFilter = PatchOrchestratorFilter'
{ _pofValues :: !(Maybe [Text])
, _pofKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchOrchestratorFilter
:: PatchOrchestratorFilter
patchOrchestratorFilter =
PatchOrchestratorFilter' {_pofValues = Nothing, _pofKey = Nothing}
pofValues :: Lens' PatchOrchestratorFilter [Text]
pofValues = lens _pofValues (\ s a -> s{_pofValues = a}) . _Default . _Coerce
pofKey :: Lens' PatchOrchestratorFilter (Maybe Text)
pofKey = lens _pofKey (\ s a -> s{_pofKey = a})
instance Hashable PatchOrchestratorFilter where
instance NFData PatchOrchestratorFilter where
instance ToJSON PatchOrchestratorFilter where
toJSON PatchOrchestratorFilter'{..}
= object
(catMaybes
[("Values" .=) <$> _pofValues,
("Key" .=) <$> _pofKey])
data PatchRule = PatchRule'
{ _prEnableNonSecurity :: !(Maybe Bool)
, _prComplianceLevel :: !(Maybe PatchComplianceLevel)
, _prPatchFilterGroup :: !PatchFilterGroup
, _prApproveAfterDays :: !Nat
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchRule
:: PatchFilterGroup
-> Natural
-> PatchRule
patchRule pPatchFilterGroup_ pApproveAfterDays_ =
PatchRule'
{ _prEnableNonSecurity = Nothing
, _prComplianceLevel = Nothing
, _prPatchFilterGroup = pPatchFilterGroup_
, _prApproveAfterDays = _Nat # pApproveAfterDays_
}
prEnableNonSecurity :: Lens' PatchRule (Maybe Bool)
prEnableNonSecurity = lens _prEnableNonSecurity (\ s a -> s{_prEnableNonSecurity = a})
prComplianceLevel :: Lens' PatchRule (Maybe PatchComplianceLevel)
prComplianceLevel = lens _prComplianceLevel (\ s a -> s{_prComplianceLevel = a})
prPatchFilterGroup :: Lens' PatchRule PatchFilterGroup
prPatchFilterGroup = lens _prPatchFilterGroup (\ s a -> s{_prPatchFilterGroup = a})
prApproveAfterDays :: Lens' PatchRule Natural
prApproveAfterDays = lens _prApproveAfterDays (\ s a -> s{_prApproveAfterDays = a}) . _Nat
instance FromJSON PatchRule where
parseJSON
= withObject "PatchRule"
(\ x ->
PatchRule' <$>
(x .:? "EnableNonSecurity") <*>
(x .:? "ComplianceLevel")
<*> (x .: "PatchFilterGroup")
<*> (x .: "ApproveAfterDays"))
instance Hashable PatchRule where
instance NFData PatchRule where
instance ToJSON PatchRule where
toJSON PatchRule'{..}
= object
(catMaybes
[("EnableNonSecurity" .=) <$> _prEnableNonSecurity,
("ComplianceLevel" .=) <$> _prComplianceLevel,
Just ("PatchFilterGroup" .= _prPatchFilterGroup),
Just ("ApproveAfterDays" .= _prApproveAfterDays)])
newtype PatchRuleGroup = PatchRuleGroup'
{ _prgPatchRules :: [PatchRule]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchRuleGroup
:: PatchRuleGroup
patchRuleGroup = PatchRuleGroup' {_prgPatchRules = mempty}
prgPatchRules :: Lens' PatchRuleGroup [PatchRule]
prgPatchRules = lens _prgPatchRules (\ s a -> s{_prgPatchRules = a}) . _Coerce
instance FromJSON PatchRuleGroup where
parseJSON
= withObject "PatchRuleGroup"
(\ x ->
PatchRuleGroup' <$> (x .:? "PatchRules" .!= mempty))
instance Hashable PatchRuleGroup where
instance NFData PatchRuleGroup where
instance ToJSON PatchRuleGroup where
toJSON PatchRuleGroup'{..}
= object
(catMaybes [Just ("PatchRules" .= _prgPatchRules)])
data PatchSource = PatchSource'
{ _psName :: !Text
, _psProducts :: !(List1 Text)
, _psConfiguration :: !(Sensitive Text)
} deriving (Eq, Show, Data, Typeable, Generic)
patchSource
:: Text
-> NonEmpty Text
-> Text
-> PatchSource
patchSource pName_ pProducts_ pConfiguration_ =
PatchSource'
{ _psName = pName_
, _psProducts = _List1 # pProducts_
, _psConfiguration = _Sensitive # pConfiguration_
}
psName :: Lens' PatchSource Text
psName = lens _psName (\ s a -> s{_psName = a})
psProducts :: Lens' PatchSource (NonEmpty Text)
psProducts = lens _psProducts (\ s a -> s{_psProducts = a}) . _List1
psConfiguration :: Lens' PatchSource Text
psConfiguration = lens _psConfiguration (\ s a -> s{_psConfiguration = a}) . _Sensitive
instance FromJSON PatchSource where
parseJSON
= withObject "PatchSource"
(\ x ->
PatchSource' <$>
(x .: "Name") <*> (x .: "Products") <*>
(x .: "Configuration"))
instance Hashable PatchSource where
instance NFData PatchSource where
instance ToJSON PatchSource where
toJSON PatchSource'{..}
= object
(catMaybes
[Just ("Name" .= _psName),
Just ("Products" .= _psProducts),
Just ("Configuration" .= _psConfiguration)])
data PatchStatus = PatchStatus'
{ _psApprovalDate :: !(Maybe POSIX)
, _psDeploymentStatus :: !(Maybe PatchDeploymentStatus)
, _psComplianceLevel :: !(Maybe PatchComplianceLevel)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
patchStatus
:: PatchStatus
patchStatus =
PatchStatus'
{ _psApprovalDate = Nothing
, _psDeploymentStatus = Nothing
, _psComplianceLevel = Nothing
}
psApprovalDate :: Lens' PatchStatus (Maybe UTCTime)
psApprovalDate = lens _psApprovalDate (\ s a -> s{_psApprovalDate = a}) . mapping _Time
psDeploymentStatus :: Lens' PatchStatus (Maybe PatchDeploymentStatus)
psDeploymentStatus = lens _psDeploymentStatus (\ s a -> s{_psDeploymentStatus = a})
psComplianceLevel :: Lens' PatchStatus (Maybe PatchComplianceLevel)
psComplianceLevel = lens _psComplianceLevel (\ s a -> s{_psComplianceLevel = a})
instance FromJSON PatchStatus where
parseJSON
= withObject "PatchStatus"
(\ x ->
PatchStatus' <$>
(x .:? "ApprovalDate") <*> (x .:? "DeploymentStatus")
<*> (x .:? "ComplianceLevel"))
instance Hashable PatchStatus where
instance NFData PatchStatus where
data ResolvedTargets = ResolvedTargets'
{ _rtTruncated :: !(Maybe Bool)
, _rtParameterValues :: !(Maybe [Text])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resolvedTargets
:: ResolvedTargets
resolvedTargets =
ResolvedTargets' {_rtTruncated = Nothing, _rtParameterValues = Nothing}
rtTruncated :: Lens' ResolvedTargets (Maybe Bool)
rtTruncated = lens _rtTruncated (\ s a -> s{_rtTruncated = a})
rtParameterValues :: Lens' ResolvedTargets [Text]
rtParameterValues = lens _rtParameterValues (\ s a -> s{_rtParameterValues = a}) . _Default . _Coerce
instance FromJSON ResolvedTargets where
parseJSON
= withObject "ResolvedTargets"
(\ x ->
ResolvedTargets' <$>
(x .:? "Truncated") <*>
(x .:? "ParameterValues" .!= mempty))
instance Hashable ResolvedTargets where
instance NFData ResolvedTargets where
data ResourceComplianceSummaryItem = ResourceComplianceSummaryItem'
{ _rcsiNonCompliantSummary :: !(Maybe NonCompliantSummary)
, _rcsiStatus :: !(Maybe ComplianceStatus)
, _rcsiResourceId :: !(Maybe Text)
, _rcsiResourceType :: !(Maybe Text)
, _rcsiCompliantSummary :: !(Maybe CompliantSummary)
, _rcsiExecutionSummary :: !(Maybe ComplianceExecutionSummary)
, _rcsiOverallSeverity :: !(Maybe ComplianceSeverity)
, _rcsiComplianceType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceComplianceSummaryItem
:: ResourceComplianceSummaryItem
resourceComplianceSummaryItem =
ResourceComplianceSummaryItem'
{ _rcsiNonCompliantSummary = Nothing
, _rcsiStatus = Nothing
, _rcsiResourceId = Nothing
, _rcsiResourceType = Nothing
, _rcsiCompliantSummary = Nothing
, _rcsiExecutionSummary = Nothing
, _rcsiOverallSeverity = Nothing
, _rcsiComplianceType = Nothing
}
rcsiNonCompliantSummary :: Lens' ResourceComplianceSummaryItem (Maybe NonCompliantSummary)
rcsiNonCompliantSummary = lens _rcsiNonCompliantSummary (\ s a -> s{_rcsiNonCompliantSummary = a})
rcsiStatus :: Lens' ResourceComplianceSummaryItem (Maybe ComplianceStatus)
rcsiStatus = lens _rcsiStatus (\ s a -> s{_rcsiStatus = a})
rcsiResourceId :: Lens' ResourceComplianceSummaryItem (Maybe Text)
rcsiResourceId = lens _rcsiResourceId (\ s a -> s{_rcsiResourceId = a})
rcsiResourceType :: Lens' ResourceComplianceSummaryItem (Maybe Text)
rcsiResourceType = lens _rcsiResourceType (\ s a -> s{_rcsiResourceType = a})
rcsiCompliantSummary :: Lens' ResourceComplianceSummaryItem (Maybe CompliantSummary)
rcsiCompliantSummary = lens _rcsiCompliantSummary (\ s a -> s{_rcsiCompliantSummary = a})
rcsiExecutionSummary :: Lens' ResourceComplianceSummaryItem (Maybe ComplianceExecutionSummary)
rcsiExecutionSummary = lens _rcsiExecutionSummary (\ s a -> s{_rcsiExecutionSummary = a})
rcsiOverallSeverity :: Lens' ResourceComplianceSummaryItem (Maybe ComplianceSeverity)
rcsiOverallSeverity = lens _rcsiOverallSeverity (\ s a -> s{_rcsiOverallSeverity = a})
rcsiComplianceType :: Lens' ResourceComplianceSummaryItem (Maybe Text)
rcsiComplianceType = lens _rcsiComplianceType (\ s a -> s{_rcsiComplianceType = a})
instance FromJSON ResourceComplianceSummaryItem where
parseJSON
= withObject "ResourceComplianceSummaryItem"
(\ x ->
ResourceComplianceSummaryItem' <$>
(x .:? "NonCompliantSummary") <*> (x .:? "Status")
<*> (x .:? "ResourceId")
<*> (x .:? "ResourceType")
<*> (x .:? "CompliantSummary")
<*> (x .:? "ExecutionSummary")
<*> (x .:? "OverallSeverity")
<*> (x .:? "ComplianceType"))
instance Hashable ResourceComplianceSummaryItem where
instance NFData ResourceComplianceSummaryItem where
data ResourceDataSyncItem = ResourceDataSyncItem'
{ _rdsiLastSyncStatusMessage :: !(Maybe Text)
, _rdsiSyncCreatedTime :: !(Maybe POSIX)
, _rdsiLastSyncTime :: !(Maybe POSIX)
, _rdsiSyncName :: !(Maybe Text)
, _rdsiLastStatus :: !(Maybe LastResourceDataSyncStatus)
, _rdsiS3Destination :: !(Maybe ResourceDataSyncS3Destination)
, _rdsiLastSuccessfulSyncTime :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceDataSyncItem
:: ResourceDataSyncItem
resourceDataSyncItem =
ResourceDataSyncItem'
{ _rdsiLastSyncStatusMessage = Nothing
, _rdsiSyncCreatedTime = Nothing
, _rdsiLastSyncTime = Nothing
, _rdsiSyncName = Nothing
, _rdsiLastStatus = Nothing
, _rdsiS3Destination = Nothing
, _rdsiLastSuccessfulSyncTime = Nothing
}
rdsiLastSyncStatusMessage :: Lens' ResourceDataSyncItem (Maybe Text)
rdsiLastSyncStatusMessage = lens _rdsiLastSyncStatusMessage (\ s a -> s{_rdsiLastSyncStatusMessage = a})
rdsiSyncCreatedTime :: Lens' ResourceDataSyncItem (Maybe UTCTime)
rdsiSyncCreatedTime = lens _rdsiSyncCreatedTime (\ s a -> s{_rdsiSyncCreatedTime = a}) . mapping _Time
rdsiLastSyncTime :: Lens' ResourceDataSyncItem (Maybe UTCTime)
rdsiLastSyncTime = lens _rdsiLastSyncTime (\ s a -> s{_rdsiLastSyncTime = a}) . mapping _Time
rdsiSyncName :: Lens' ResourceDataSyncItem (Maybe Text)
rdsiSyncName = lens _rdsiSyncName (\ s a -> s{_rdsiSyncName = a})
rdsiLastStatus :: Lens' ResourceDataSyncItem (Maybe LastResourceDataSyncStatus)
rdsiLastStatus = lens _rdsiLastStatus (\ s a -> s{_rdsiLastStatus = a})
rdsiS3Destination :: Lens' ResourceDataSyncItem (Maybe ResourceDataSyncS3Destination)
rdsiS3Destination = lens _rdsiS3Destination (\ s a -> s{_rdsiS3Destination = a})
rdsiLastSuccessfulSyncTime :: Lens' ResourceDataSyncItem (Maybe UTCTime)
rdsiLastSuccessfulSyncTime = lens _rdsiLastSuccessfulSyncTime (\ s a -> s{_rdsiLastSuccessfulSyncTime = a}) . mapping _Time
instance FromJSON ResourceDataSyncItem where
parseJSON
= withObject "ResourceDataSyncItem"
(\ x ->
ResourceDataSyncItem' <$>
(x .:? "LastSyncStatusMessage") <*>
(x .:? "SyncCreatedTime")
<*> (x .:? "LastSyncTime")
<*> (x .:? "SyncName")
<*> (x .:? "LastStatus")
<*> (x .:? "S3Destination")
<*> (x .:? "LastSuccessfulSyncTime"))
instance Hashable ResourceDataSyncItem where
instance NFData ResourceDataSyncItem where
data ResourceDataSyncS3Destination = ResourceDataSyncS3Destination'
{ _rdssdPrefix :: !(Maybe Text)
, _rdssdAWSKMSKeyARN :: !(Maybe Text)
, _rdssdBucketName :: !Text
, _rdssdSyncFormat :: !ResourceDataSyncS3Format
, _rdssdRegion :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceDataSyncS3Destination
:: Text
-> ResourceDataSyncS3Format
-> Text
-> ResourceDataSyncS3Destination
resourceDataSyncS3Destination pBucketName_ pSyncFormat_ pRegion_ =
ResourceDataSyncS3Destination'
{ _rdssdPrefix = Nothing
, _rdssdAWSKMSKeyARN = Nothing
, _rdssdBucketName = pBucketName_
, _rdssdSyncFormat = pSyncFormat_
, _rdssdRegion = pRegion_
}
rdssdPrefix :: Lens' ResourceDataSyncS3Destination (Maybe Text)
rdssdPrefix = lens _rdssdPrefix (\ s a -> s{_rdssdPrefix = a})
rdssdAWSKMSKeyARN :: Lens' ResourceDataSyncS3Destination (Maybe Text)
rdssdAWSKMSKeyARN = lens _rdssdAWSKMSKeyARN (\ s a -> s{_rdssdAWSKMSKeyARN = a})
rdssdBucketName :: Lens' ResourceDataSyncS3Destination Text
rdssdBucketName = lens _rdssdBucketName (\ s a -> s{_rdssdBucketName = a})
rdssdSyncFormat :: Lens' ResourceDataSyncS3Destination ResourceDataSyncS3Format
rdssdSyncFormat = lens _rdssdSyncFormat (\ s a -> s{_rdssdSyncFormat = a})
rdssdRegion :: Lens' ResourceDataSyncS3Destination Text
rdssdRegion = lens _rdssdRegion (\ s a -> s{_rdssdRegion = a})
instance FromJSON ResourceDataSyncS3Destination where
parseJSON
= withObject "ResourceDataSyncS3Destination"
(\ x ->
ResourceDataSyncS3Destination' <$>
(x .:? "Prefix") <*> (x .:? "AWSKMSKeyARN") <*>
(x .: "BucketName")
<*> (x .: "SyncFormat")
<*> (x .: "Region"))
instance Hashable ResourceDataSyncS3Destination where
instance NFData ResourceDataSyncS3Destination where
instance ToJSON ResourceDataSyncS3Destination where
toJSON ResourceDataSyncS3Destination'{..}
= object
(catMaybes
[("Prefix" .=) <$> _rdssdPrefix,
("AWSKMSKeyARN" .=) <$> _rdssdAWSKMSKeyARN,
Just ("BucketName" .= _rdssdBucketName),
Just ("SyncFormat" .= _rdssdSyncFormat),
Just ("Region" .= _rdssdRegion)])
newtype ResultAttribute = ResultAttribute'
{ _raTypeName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resultAttribute
:: Text
-> ResultAttribute
resultAttribute pTypeName_ = ResultAttribute' {_raTypeName = pTypeName_}
raTypeName :: Lens' ResultAttribute Text
raTypeName = lens _raTypeName (\ s a -> s{_raTypeName = a})
instance Hashable ResultAttribute where
instance NFData ResultAttribute where
instance ToJSON ResultAttribute where
toJSON ResultAttribute'{..}
= object
(catMaybes [Just ("TypeName" .= _raTypeName)])
data S3OutputLocation = S3OutputLocation'
{ _solOutputS3KeyPrefix :: !(Maybe Text)
, _solOutputS3Region :: !(Maybe Text)
, _solOutputS3BucketName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
s3OutputLocation
:: S3OutputLocation
s3OutputLocation =
S3OutputLocation'
{ _solOutputS3KeyPrefix = Nothing
, _solOutputS3Region = Nothing
, _solOutputS3BucketName = Nothing
}
solOutputS3KeyPrefix :: Lens' S3OutputLocation (Maybe Text)
solOutputS3KeyPrefix = lens _solOutputS3KeyPrefix (\ s a -> s{_solOutputS3KeyPrefix = a})
solOutputS3Region :: Lens' S3OutputLocation (Maybe Text)
solOutputS3Region = lens _solOutputS3Region (\ s a -> s{_solOutputS3Region = a})
solOutputS3BucketName :: Lens' S3OutputLocation (Maybe Text)
solOutputS3BucketName = lens _solOutputS3BucketName (\ s a -> s{_solOutputS3BucketName = a})
instance FromJSON S3OutputLocation where
parseJSON
= withObject "S3OutputLocation"
(\ x ->
S3OutputLocation' <$>
(x .:? "OutputS3KeyPrefix") <*>
(x .:? "OutputS3Region")
<*> (x .:? "OutputS3BucketName"))
instance Hashable S3OutputLocation where
instance NFData S3OutputLocation where
instance ToJSON S3OutputLocation where
toJSON S3OutputLocation'{..}
= object
(catMaybes
[("OutputS3KeyPrefix" .=) <$> _solOutputS3KeyPrefix,
("OutputS3Region" .=) <$> _solOutputS3Region,
("OutputS3BucketName" .=) <$>
_solOutputS3BucketName])
newtype S3OutputURL = S3OutputURL'
{ _souOutputURL :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
s3OutputURL
:: S3OutputURL
s3OutputURL = S3OutputURL' {_souOutputURL = Nothing}
souOutputURL :: Lens' S3OutputURL (Maybe Text)
souOutputURL = lens _souOutputURL (\ s a -> s{_souOutputURL = a})
instance FromJSON S3OutputURL where
parseJSON
= withObject "S3OutputURL"
(\ x -> S3OutputURL' <$> (x .:? "OutputUrl"))
instance Hashable S3OutputURL where
instance NFData S3OutputURL where
data SeveritySummary = SeveritySummary'
{ _ssLowCount :: !(Maybe Int)
, _ssUnspecifiedCount :: !(Maybe Int)
, _ssHighCount :: !(Maybe Int)
, _ssMediumCount :: !(Maybe Int)
, _ssInformationalCount :: !(Maybe Int)
, _ssCriticalCount :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
severitySummary
:: SeveritySummary
severitySummary =
SeveritySummary'
{ _ssLowCount = Nothing
, _ssUnspecifiedCount = Nothing
, _ssHighCount = Nothing
, _ssMediumCount = Nothing
, _ssInformationalCount = Nothing
, _ssCriticalCount = Nothing
}
ssLowCount :: Lens' SeveritySummary (Maybe Int)
ssLowCount = lens _ssLowCount (\ s a -> s{_ssLowCount = a})
ssUnspecifiedCount :: Lens' SeveritySummary (Maybe Int)
ssUnspecifiedCount = lens _ssUnspecifiedCount (\ s a -> s{_ssUnspecifiedCount = a})
ssHighCount :: Lens' SeveritySummary (Maybe Int)
ssHighCount = lens _ssHighCount (\ s a -> s{_ssHighCount = a})
ssMediumCount :: Lens' SeveritySummary (Maybe Int)
ssMediumCount = lens _ssMediumCount (\ s a -> s{_ssMediumCount = a})
ssInformationalCount :: Lens' SeveritySummary (Maybe Int)
ssInformationalCount = lens _ssInformationalCount (\ s a -> s{_ssInformationalCount = a})
ssCriticalCount :: Lens' SeveritySummary (Maybe Int)
ssCriticalCount = lens _ssCriticalCount (\ s a -> s{_ssCriticalCount = a})
instance FromJSON SeveritySummary where
parseJSON
= withObject "SeveritySummary"
(\ x ->
SeveritySummary' <$>
(x .:? "LowCount") <*> (x .:? "UnspecifiedCount") <*>
(x .:? "HighCount")
<*> (x .:? "MediumCount")
<*> (x .:? "InformationalCount")
<*> (x .:? "CriticalCount"))
instance Hashable SeveritySummary where
instance NFData SeveritySummary where
data StepExecution = StepExecution'
{ _seFailureDetails :: !(Maybe FailureDetails)
, _seInputs :: !(Maybe (Map Text Text))
, _seStepName :: !(Maybe Text)
, _seExecutionEndTime :: !(Maybe POSIX)
, _seFailureMessage :: !(Maybe Text)
, _seResponse :: !(Maybe Text)
, _seAction :: !(Maybe Text)
, _seResponseCode :: !(Maybe Text)
, _seStepStatus :: !(Maybe AutomationExecutionStatus)
, _seOverriddenParameters :: !(Maybe (Map Text [Text]))
, _seOutputs :: !(Maybe (Map Text [Text]))
, _seExecutionStartTime :: !(Maybe POSIX)
, _seMaxAttempts :: !(Maybe Int)
, _seStepExecutionId :: !(Maybe Text)
, _seTimeoutSeconds :: !(Maybe Integer)
, _seOnFailure :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stepExecution
:: StepExecution
stepExecution =
StepExecution'
{ _seFailureDetails = Nothing
, _seInputs = Nothing
, _seStepName = Nothing
, _seExecutionEndTime = Nothing
, _seFailureMessage = Nothing
, _seResponse = Nothing
, _seAction = Nothing
, _seResponseCode = Nothing
, _seStepStatus = Nothing
, _seOverriddenParameters = Nothing
, _seOutputs = Nothing
, _seExecutionStartTime = Nothing
, _seMaxAttempts = Nothing
, _seStepExecutionId = Nothing
, _seTimeoutSeconds = Nothing
, _seOnFailure = Nothing
}
seFailureDetails :: Lens' StepExecution (Maybe FailureDetails)
seFailureDetails = lens _seFailureDetails (\ s a -> s{_seFailureDetails = a})
seInputs :: Lens' StepExecution (HashMap Text Text)
seInputs = lens _seInputs (\ s a -> s{_seInputs = a}) . _Default . _Map
seStepName :: Lens' StepExecution (Maybe Text)
seStepName = lens _seStepName (\ s a -> s{_seStepName = a})
seExecutionEndTime :: Lens' StepExecution (Maybe UTCTime)
seExecutionEndTime = lens _seExecutionEndTime (\ s a -> s{_seExecutionEndTime = a}) . mapping _Time
seFailureMessage :: Lens' StepExecution (Maybe Text)
seFailureMessage = lens _seFailureMessage (\ s a -> s{_seFailureMessage = a})
seResponse :: Lens' StepExecution (Maybe Text)
seResponse = lens _seResponse (\ s a -> s{_seResponse = a})
seAction :: Lens' StepExecution (Maybe Text)
seAction = lens _seAction (\ s a -> s{_seAction = a})
seResponseCode :: Lens' StepExecution (Maybe Text)
seResponseCode = lens _seResponseCode (\ s a -> s{_seResponseCode = a})
seStepStatus :: Lens' StepExecution (Maybe AutomationExecutionStatus)
seStepStatus = lens _seStepStatus (\ s a -> s{_seStepStatus = a})
seOverriddenParameters :: Lens' StepExecution (HashMap Text [Text])
seOverriddenParameters = lens _seOverriddenParameters (\ s a -> s{_seOverriddenParameters = a}) . _Default . _Map
seOutputs :: Lens' StepExecution (HashMap Text [Text])
seOutputs = lens _seOutputs (\ s a -> s{_seOutputs = a}) . _Default . _Map
seExecutionStartTime :: Lens' StepExecution (Maybe UTCTime)
seExecutionStartTime = lens _seExecutionStartTime (\ s a -> s{_seExecutionStartTime = a}) . mapping _Time
seMaxAttempts :: Lens' StepExecution (Maybe Int)
seMaxAttempts = lens _seMaxAttempts (\ s a -> s{_seMaxAttempts = a})
seStepExecutionId :: Lens' StepExecution (Maybe Text)
seStepExecutionId = lens _seStepExecutionId (\ s a -> s{_seStepExecutionId = a})
seTimeoutSeconds :: Lens' StepExecution (Maybe Integer)
seTimeoutSeconds = lens _seTimeoutSeconds (\ s a -> s{_seTimeoutSeconds = a})
seOnFailure :: Lens' StepExecution (Maybe Text)
seOnFailure = lens _seOnFailure (\ s a -> s{_seOnFailure = a})
instance FromJSON StepExecution where
parseJSON
= withObject "StepExecution"
(\ x ->
StepExecution' <$>
(x .:? "FailureDetails") <*>
(x .:? "Inputs" .!= mempty)
<*> (x .:? "StepName")
<*> (x .:? "ExecutionEndTime")
<*> (x .:? "FailureMessage")
<*> (x .:? "Response")
<*> (x .:? "Action")
<*> (x .:? "ResponseCode")
<*> (x .:? "StepStatus")
<*> (x .:? "OverriddenParameters" .!= mempty)
<*> (x .:? "Outputs" .!= mempty)
<*> (x .:? "ExecutionStartTime")
<*> (x .:? "MaxAttempts")
<*> (x .:? "StepExecutionId")
<*> (x .:? "TimeoutSeconds")
<*> (x .:? "OnFailure"))
instance Hashable StepExecution where
instance NFData StepExecution where
data StepExecutionFilter = StepExecutionFilter'
{ _sefKey :: !StepExecutionFilterKey
, _sefValues :: !(List1 Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stepExecutionFilter
:: StepExecutionFilterKey
-> NonEmpty Text
-> StepExecutionFilter
stepExecutionFilter pKey_ pValues_ =
StepExecutionFilter' {_sefKey = pKey_, _sefValues = _List1 # pValues_}
sefKey :: Lens' StepExecutionFilter StepExecutionFilterKey
sefKey = lens _sefKey (\ s a -> s{_sefKey = a})
sefValues :: Lens' StepExecutionFilter (NonEmpty Text)
sefValues = lens _sefValues (\ s a -> s{_sefValues = a}) . _List1
instance Hashable StepExecutionFilter where
instance NFData StepExecutionFilter where
instance ToJSON StepExecutionFilter where
toJSON StepExecutionFilter'{..}
= object
(catMaybes
[Just ("Key" .= _sefKey),
Just ("Values" .= _sefValues)])
data Tag = Tag'
{ _tagKey :: !Text
, _tagValue :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tag
:: Text
-> Text
-> Tag
tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}
tagKey :: Lens' Tag Text
tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
tagValue :: Lens' Tag Text
tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
instance FromJSON Tag where
parseJSON
= withObject "Tag"
(\ x -> Tag' <$> (x .: "Key") <*> (x .: "Value"))
instance Hashable Tag where
instance NFData Tag where
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[Just ("Key" .= _tagKey),
Just ("Value" .= _tagValue)])
data Target = Target'
{ _tValues :: !(Maybe [Text])
, _tKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
target
:: Target
target = Target' {_tValues = Nothing, _tKey = Nothing}
tValues :: Lens' Target [Text]
tValues = lens _tValues (\ s a -> s{_tValues = a}) . _Default . _Coerce
tKey :: Lens' Target (Maybe Text)
tKey = lens _tKey (\ s a -> s{_tKey = a})
instance FromJSON Target where
parseJSON
= withObject "Target"
(\ x ->
Target' <$>
(x .:? "Values" .!= mempty) <*> (x .:? "Key"))
instance Hashable Target where
instance NFData Target where
instance ToJSON Target where
toJSON Target'{..}
= object
(catMaybes
[("Values" .=) <$> _tValues, ("Key" .=) <$> _tKey])