module Network.AWS.SSM.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.SSM.Types.Sum
data Association = Association'
{ _aInstanceId :: !(Maybe Text)
, _aName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
association
:: Association
association =
Association'
{ _aInstanceId = Nothing
, _aName = Nothing
}
aInstanceId :: Lens' Association (Maybe Text)
aInstanceId = lens _aInstanceId (\ s a -> s{_aInstanceId = a});
aName :: Lens' Association (Maybe Text)
aName = lens _aName (\ s a -> s{_aName = a});
instance FromJSON Association where
parseJSON
= withObject "Association"
(\ x ->
Association' <$>
(x .:? "InstanceId") <*> (x .:? "Name"))
instance Hashable Association
instance NFData Association
data AssociationDescription = AssociationDescription'
{ _adInstanceId :: !(Maybe Text)
, _adStatus :: !(Maybe AssociationStatus)
, _adDate :: !(Maybe POSIX)
, _adName :: !(Maybe Text)
, _adParameters :: !(Maybe (Map Text [Text]))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
associationDescription
:: AssociationDescription
associationDescription =
AssociationDescription'
{ _adInstanceId = Nothing
, _adStatus = Nothing
, _adDate = Nothing
, _adName = Nothing
, _adParameters = Nothing
}
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});
adDate :: Lens' AssociationDescription (Maybe UTCTime)
adDate = lens _adDate (\ s a -> s{_adDate = a}) . mapping _Time;
adName :: Lens' AssociationDescription (Maybe Text)
adName = lens _adName (\ s a -> s{_adName = a});
adParameters :: Lens' AssociationDescription (HashMap Text [Text])
adParameters = lens _adParameters (\ s a -> s{_adParameters = a}) . _Default . _Map;
instance FromJSON AssociationDescription where
parseJSON
= withObject "AssociationDescription"
(\ x ->
AssociationDescription' <$>
(x .:? "InstanceId") <*> (x .:? "Status") <*>
(x .:? "Date")
<*> (x .:? "Name")
<*> (x .:? "Parameters" .!= mempty))
instance Hashable AssociationDescription
instance NFData AssociationDescription
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
instance NFData AssociationFilter
instance ToJSON AssociationFilter where
toJSON AssociationFilter'{..}
= object
(catMaybes
[Just ("key" .= _afKey), Just ("value" .= _afValue)])
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
instance NFData AssociationStatus
instance ToJSON AssociationStatus where
toJSON AssociationStatus'{..}
= object
(catMaybes
[("AdditionalInfo" .=) <$> _asAdditionalInfo,
Just ("Date" .= _asDate), Just ("Name" .= _asName),
Just ("Message" .= _asMessage)])
data Command = Command'
{ _cStatus :: !(Maybe CommandStatus)
, _cExpiresAfter :: !(Maybe POSIX)
, _cOutputS3KeyPrefix :: !(Maybe Text)
, _cDocumentName :: !(Maybe Text)
, _cInstanceIds :: !(Maybe (List1 Text))
, _cCommandId :: !(Maybe Text)
, _cParameters :: !(Maybe (Map Text [Text]))
, _cComment :: !(Maybe Text)
, _cOutputS3BucketName :: !(Maybe Text)
, _cRequestedDateTime :: !(Maybe POSIX)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
command
:: Command
command =
Command'
{ _cStatus = Nothing
, _cExpiresAfter = Nothing
, _cOutputS3KeyPrefix = Nothing
, _cDocumentName = Nothing
, _cInstanceIds = Nothing
, _cCommandId = Nothing
, _cParameters = Nothing
, _cComment = Nothing
, _cOutputS3BucketName = Nothing
, _cRequestedDateTime = 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;
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});
cInstanceIds :: Lens' Command (Maybe (NonEmpty Text))
cInstanceIds = lens _cInstanceIds (\ s a -> s{_cInstanceIds = a}) . mapping _List1;
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;
cComment :: Lens' Command (Maybe Text)
cComment = lens _cComment (\ s a -> s{_cComment = a});
cOutputS3BucketName :: Lens' Command (Maybe Text)
cOutputS3BucketName = lens _cOutputS3BucketName (\ s a -> s{_cOutputS3BucketName = a});
cRequestedDateTime :: Lens' Command (Maybe UTCTime)
cRequestedDateTime = lens _cRequestedDateTime (\ s a -> s{_cRequestedDateTime = a}) . mapping _Time;
instance FromJSON Command where
parseJSON
= withObject "Command"
(\ x ->
Command' <$>
(x .:? "Status") <*> (x .:? "ExpiresAfter") <*>
(x .:? "OutputS3KeyPrefix")
<*> (x .:? "DocumentName")
<*> (x .:? "InstanceIds")
<*> (x .:? "CommandId")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "Comment")
<*> (x .:? "OutputS3BucketName")
<*> (x .:? "RequestedDateTime"))
instance Hashable Command
instance NFData Command
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
instance NFData CommandFilter
instance ToJSON CommandFilter where
toJSON CommandFilter'{..}
= object
(catMaybes
[Just ("key" .= _cfKey), Just ("value" .= _cfValue)])
data CommandInvocation = CommandInvocation'
{ _ciInstanceId :: !(Maybe Text)
, _ciStatus :: !(Maybe CommandInvocationStatus)
, _ciCommandPlugins :: !(Maybe [CommandPlugin])
, _ciDocumentName :: !(Maybe Text)
, _ciCommandId :: !(Maybe Text)
, _ciComment :: !(Maybe Text)
, _ciTraceOutput :: !(Maybe Text)
, _ciRequestedDateTime :: !(Maybe POSIX)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
commandInvocation
:: CommandInvocation
commandInvocation =
CommandInvocation'
{ _ciInstanceId = Nothing
, _ciStatus = Nothing
, _ciCommandPlugins = Nothing
, _ciDocumentName = Nothing
, _ciCommandId = Nothing
, _ciComment = Nothing
, _ciTraceOutput = Nothing
, _ciRequestedDateTime = Nothing
}
ciInstanceId :: Lens' CommandInvocation (Maybe Text)
ciInstanceId = lens _ciInstanceId (\ s a -> s{_ciInstanceId = a});
ciStatus :: Lens' CommandInvocation (Maybe CommandInvocationStatus)
ciStatus = lens _ciStatus (\ s a -> s{_ciStatus = a});
ciCommandPlugins :: Lens' CommandInvocation [CommandPlugin]
ciCommandPlugins = lens _ciCommandPlugins (\ s a -> s{_ciCommandPlugins = a}) . _Default . _Coerce;
ciDocumentName :: Lens' CommandInvocation (Maybe Text)
ciDocumentName = lens _ciDocumentName (\ s a -> s{_ciDocumentName = a});
ciCommandId :: Lens' CommandInvocation (Maybe Text)
ciCommandId = lens _ciCommandId (\ s a -> s{_ciCommandId = a});
ciComment :: Lens' CommandInvocation (Maybe Text)
ciComment = lens _ciComment (\ s a -> s{_ciComment = a});
ciTraceOutput :: Lens' CommandInvocation (Maybe Text)
ciTraceOutput = lens _ciTraceOutput (\ s a -> s{_ciTraceOutput = a});
ciRequestedDateTime :: Lens' CommandInvocation (Maybe UTCTime)
ciRequestedDateTime = lens _ciRequestedDateTime (\ s a -> s{_ciRequestedDateTime = a}) . mapping _Time;
instance FromJSON CommandInvocation where
parseJSON
= withObject "CommandInvocation"
(\ x ->
CommandInvocation' <$>
(x .:? "InstanceId") <*> (x .:? "Status") <*>
(x .:? "CommandPlugins" .!= mempty)
<*> (x .:? "DocumentName")
<*> (x .:? "CommandId")
<*> (x .:? "Comment")
<*> (x .:? "TraceOutput")
<*> (x .:? "RequestedDateTime"))
instance Hashable CommandInvocation
instance NFData CommandInvocation
data CommandPlugin = CommandPlugin'
{ _cpStatus :: !(Maybe CommandPluginStatus)
, _cpResponseStartDateTime :: !(Maybe POSIX)
, _cpOutputS3KeyPrefix :: !(Maybe Text)
, _cpResponseCode :: !(Maybe Int)
, _cpOutput :: !(Maybe Text)
, _cpName :: !(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
, _cpResponseCode = Nothing
, _cpOutput = Nothing
, _cpName = 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});
cpResponseCode :: Lens' CommandPlugin (Maybe Int)
cpResponseCode = lens _cpResponseCode (\ s a -> s{_cpResponseCode = a});
cpOutput :: Lens' CommandPlugin (Maybe Text)
cpOutput = lens _cpOutput (\ s a -> s{_cpOutput = a});
cpName :: Lens' CommandPlugin (Maybe Text)
cpName = lens _cpName (\ s a -> s{_cpName = 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 .:? "ResponseCode")
<*> (x .:? "Output")
<*> (x .:? "Name")
<*> (x .:? "OutputS3BucketName")
<*> (x .:? "ResponseFinishDateTime"))
instance Hashable CommandPlugin
instance NFData CommandPlugin
data CreateAssociationBatchRequestEntry = CreateAssociationBatchRequestEntry'
{ _cabreInstanceId :: !(Maybe Text)
, _cabreName :: !(Maybe Text)
, _cabreParameters :: !(Maybe (Map Text [Text]))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAssociationBatchRequestEntry
:: CreateAssociationBatchRequestEntry
createAssociationBatchRequestEntry =
CreateAssociationBatchRequestEntry'
{ _cabreInstanceId = Nothing
, _cabreName = Nothing
, _cabreParameters = Nothing
}
cabreInstanceId :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreInstanceId = lens _cabreInstanceId (\ s a -> s{_cabreInstanceId = a});
cabreName :: Lens' CreateAssociationBatchRequestEntry (Maybe Text)
cabreName = lens _cabreName (\ s a -> s{_cabreName = a});
cabreParameters :: Lens' CreateAssociationBatchRequestEntry (HashMap Text [Text])
cabreParameters = lens _cabreParameters (\ s a -> s{_cabreParameters = a}) . _Default . _Map;
instance FromJSON CreateAssociationBatchRequestEntry
where
parseJSON
= withObject "CreateAssociationBatchRequestEntry"
(\ x ->
CreateAssociationBatchRequestEntry' <$>
(x .:? "InstanceId") <*> (x .:? "Name") <*>
(x .:? "Parameters" .!= mempty))
instance Hashable CreateAssociationBatchRequestEntry
instance NFData CreateAssociationBatchRequestEntry
instance ToJSON CreateAssociationBatchRequestEntry
where
toJSON CreateAssociationBatchRequestEntry'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _cabreInstanceId,
("Name" .=) <$> _cabreName,
("Parameters" .=) <$> _cabreParameters])
data DocumentDescription = DocumentDescription'
{ _dStatus :: !(Maybe DocumentStatus)
, _dSha1 :: !(Maybe Text)
, _dPlatformTypes :: !(Maybe [PlatformType])
, _dCreatedDate :: !(Maybe POSIX)
, _dName :: !(Maybe Text)
, _dParameters :: !(Maybe [DocumentParameter])
, _dDescription :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
documentDescription
:: DocumentDescription
documentDescription =
DocumentDescription'
{ _dStatus = Nothing
, _dSha1 = Nothing
, _dPlatformTypes = Nothing
, _dCreatedDate = Nothing
, _dName = Nothing
, _dParameters = Nothing
, _dDescription = Nothing
}
dStatus :: Lens' DocumentDescription (Maybe DocumentStatus)
dStatus = lens _dStatus (\ s a -> s{_dStatus = a});
dSha1 :: Lens' DocumentDescription (Maybe Text)
dSha1 = lens _dSha1 (\ s a -> s{_dSha1 = 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;
dName :: Lens' DocumentDescription (Maybe Text)
dName = lens _dName (\ s a -> s{_dName = a});
dParameters :: Lens' DocumentDescription [DocumentParameter]
dParameters = lens _dParameters (\ s a -> s{_dParameters = a}) . _Default . _Coerce;
dDescription :: Lens' DocumentDescription (Maybe Text)
dDescription = lens _dDescription (\ s a -> s{_dDescription = a});
instance FromJSON DocumentDescription where
parseJSON
= withObject "DocumentDescription"
(\ x ->
DocumentDescription' <$>
(x .:? "Status") <*> (x .:? "Sha1") <*>
(x .:? "PlatformTypes" .!= mempty)
<*> (x .:? "CreatedDate")
<*> (x .:? "Name")
<*> (x .:? "Parameters" .!= mempty)
<*> (x .:? "Description"))
instance Hashable DocumentDescription
instance NFData DocumentDescription
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
instance NFData DocumentFilter
instance ToJSON DocumentFilter where
toJSON DocumentFilter'{..}
= object
(catMaybes
[Just ("key" .= _dfKey), Just ("value" .= _dfValue)])
data DocumentIdentifier = DocumentIdentifier'
{ _diPlatformTypes :: !(Maybe [PlatformType])
, _diName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
documentIdentifier
:: DocumentIdentifier
documentIdentifier =
DocumentIdentifier'
{ _diPlatformTypes = Nothing
, _diName = Nothing
}
diPlatformTypes :: Lens' DocumentIdentifier [PlatformType]
diPlatformTypes = lens _diPlatformTypes (\ s a -> s{_diPlatformTypes = a}) . _Default . _Coerce;
diName :: Lens' DocumentIdentifier (Maybe Text)
diName = lens _diName (\ s a -> s{_diName = a});
instance FromJSON DocumentIdentifier where
parseJSON
= withObject "DocumentIdentifier"
(\ x ->
DocumentIdentifier' <$>
(x .:? "PlatformTypes" .!= mempty) <*>
(x .:? "Name"))
instance Hashable DocumentIdentifier
instance NFData DocumentIdentifier
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
instance NFData DocumentParameter
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
instance NFData FailedCreateAssociation
data InstanceInformation = InstanceInformation'
{ _iiInstanceId :: !(Maybe Text)
, _iiPingStatus :: !(Maybe PingStatus)
, _iiPlatformVersion :: !(Maybe Text)
, _iiIsLatestVersion :: !(Maybe Bool)
, _iiAgentVersion :: !(Maybe Text)
, _iiLastPingDateTime :: !(Maybe POSIX)
, _iiPlatformType :: !(Maybe PlatformType)
, _iiPlatformName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
instanceInformation
:: InstanceInformation
instanceInformation =
InstanceInformation'
{ _iiInstanceId = Nothing
, _iiPingStatus = Nothing
, _iiPlatformVersion = Nothing
, _iiIsLatestVersion = Nothing
, _iiAgentVersion = Nothing
, _iiLastPingDateTime = Nothing
, _iiPlatformType = Nothing
, _iiPlatformName = 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});
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;
iiPlatformType :: Lens' InstanceInformation (Maybe PlatformType)
iiPlatformType = lens _iiPlatformType (\ s a -> s{_iiPlatformType = a});
iiPlatformName :: Lens' InstanceInformation (Maybe Text)
iiPlatformName = lens _iiPlatformName (\ s a -> s{_iiPlatformName = a});
instance FromJSON InstanceInformation where
parseJSON
= withObject "InstanceInformation"
(\ x ->
InstanceInformation' <$>
(x .:? "InstanceId") <*> (x .:? "PingStatus") <*>
(x .:? "PlatformVersion")
<*> (x .:? "IsLatestVersion")
<*> (x .:? "AgentVersion")
<*> (x .:? "LastPingDateTime")
<*> (x .:? "PlatformType")
<*> (x .:? "PlatformName"))
instance Hashable InstanceInformation
instance NFData InstanceInformation
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
instance NFData InstanceInformationFilter
instance ToJSON InstanceInformationFilter where
toJSON InstanceInformationFilter'{..}
= object
(catMaybes
[Just ("key" .= _iifKey),
Just ("valueSet" .= _iifValueSet)])