module Network.AWS.SSM.Types.Product where
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"))
data AssociationDescription = AssociationDescription'
{ _adInstanceId :: !(Maybe Text)
, _adStatus :: !(Maybe AssociationStatus)
, _adDate :: !(Maybe POSIX)
, _adName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
associationDescription
:: AssociationDescription
associationDescription =
AssociationDescription'
{ _adInstanceId = Nothing
, _adStatus = Nothing
, _adDate = Nothing
, _adName = 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});
instance FromJSON AssociationDescription where
parseJSON
= withObject "AssociationDescription"
(\ x ->
AssociationDescription' <$>
(x .:? "InstanceId") <*> (x .:? "Status") <*>
(x .:? "Date")
<*> (x .:? "Name"))
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 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 ToJSON AssociationStatus where
toJSON AssociationStatus'{..}
= object
(catMaybes
[("AdditionalInfo" .=) <$> _asAdditionalInfo,
Just ("Date" .= _asDate), Just ("Name" .= _asName),
Just ("Message" .= _asMessage)])
data CreateAssociationBatchRequestEntry = CreateAssociationBatchRequestEntry'
{ _cabreInstanceId :: !(Maybe Text)
, _cabreName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAssociationBatchRequestEntry
:: CreateAssociationBatchRequestEntry
createAssociationBatchRequestEntry =
CreateAssociationBatchRequestEntry'
{ _cabreInstanceId = Nothing
, _cabreName = 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});
instance FromJSON CreateAssociationBatchRequestEntry
where
parseJSON
= withObject "CreateAssociationBatchRequestEntry"
(\ x ->
CreateAssociationBatchRequestEntry' <$>
(x .:? "InstanceId") <*> (x .:? "Name"))
instance ToJSON CreateAssociationBatchRequestEntry
where
toJSON CreateAssociationBatchRequestEntry'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _cabreInstanceId,
("Name" .=) <$> _cabreName])
data DocumentDescription = DocumentDescription'
{ _dStatus :: !(Maybe DocumentStatus)
, _dSha1 :: !(Maybe Text)
, _dCreatedDate :: !(Maybe POSIX)
, _dName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
documentDescription
:: DocumentDescription
documentDescription =
DocumentDescription'
{ _dStatus = Nothing
, _dSha1 = Nothing
, _dCreatedDate = Nothing
, _dName = 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});
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});
instance FromJSON DocumentDescription where
parseJSON
= withObject "DocumentDescription"
(\ x ->
DocumentDescription' <$>
(x .:? "Status") <*> (x .:? "Sha1") <*>
(x .:? "CreatedDate")
<*> (x .:? "Name"))
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 ToJSON DocumentFilter where
toJSON DocumentFilter'{..}
= object
(catMaybes
[Just ("key" .= _dfKey), Just ("value" .= _dfValue)])
newtype DocumentIdentifier = DocumentIdentifier'
{ _diName :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
documentIdentifier
:: DocumentIdentifier
documentIdentifier =
DocumentIdentifier'
{ _diName = Nothing
}
diName :: Lens' DocumentIdentifier (Maybe Text)
diName = lens _diName (\ s a -> s{_diName = a});
instance FromJSON DocumentIdentifier where
parseJSON
= withObject "DocumentIdentifier"
(\ x -> DocumentIdentifier' <$> (x .:? "Name"))
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"))