module Network.AWS.ServiceCatalog.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.ServiceCatalog.Types.Sum
data AccessLevelFilter = AccessLevelFilter'
{ _alfValue :: !(Maybe Text)
, _alfKey :: !(Maybe AccessLevelFilterKey)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
accessLevelFilter
:: AccessLevelFilter
accessLevelFilter = AccessLevelFilter' {_alfValue = Nothing, _alfKey = Nothing}
alfValue :: Lens' AccessLevelFilter (Maybe Text)
alfValue = lens _alfValue (\ s a -> s{_alfValue = a});
alfKey :: Lens' AccessLevelFilter (Maybe AccessLevelFilterKey)
alfKey = lens _alfKey (\ s a -> s{_alfKey = a});
instance Hashable AccessLevelFilter where
instance NFData AccessLevelFilter where
instance ToJSON AccessLevelFilter where
toJSON AccessLevelFilter'{..}
= object
(catMaybes
[("Value" .=) <$> _alfValue, ("Key" .=) <$> _alfKey])
data ConstraintDetail = ConstraintDetail'
{ _cdConstraintId :: !(Maybe Text)
, _cdOwner :: !(Maybe Text)
, _cdType :: !(Maybe Text)
, _cdDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
constraintDetail
:: ConstraintDetail
constraintDetail =
ConstraintDetail'
{ _cdConstraintId = Nothing
, _cdOwner = Nothing
, _cdType = Nothing
, _cdDescription = Nothing
}
cdConstraintId :: Lens' ConstraintDetail (Maybe Text)
cdConstraintId = lens _cdConstraintId (\ s a -> s{_cdConstraintId = a});
cdOwner :: Lens' ConstraintDetail (Maybe Text)
cdOwner = lens _cdOwner (\ s a -> s{_cdOwner = a});
cdType :: Lens' ConstraintDetail (Maybe Text)
cdType = lens _cdType (\ s a -> s{_cdType = a});
cdDescription :: Lens' ConstraintDetail (Maybe Text)
cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a});
instance FromJSON ConstraintDetail where
parseJSON
= withObject "ConstraintDetail"
(\ x ->
ConstraintDetail' <$>
(x .:? "ConstraintId") <*> (x .:? "Owner") <*>
(x .:? "Type")
<*> (x .:? "Description"))
instance Hashable ConstraintDetail where
instance NFData ConstraintDetail where
data ConstraintSummary = ConstraintSummary'
{ _csType :: !(Maybe Text)
, _csDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
constraintSummary
:: ConstraintSummary
constraintSummary =
ConstraintSummary' {_csType = Nothing, _csDescription = Nothing}
csType :: Lens' ConstraintSummary (Maybe Text)
csType = lens _csType (\ s a -> s{_csType = a});
csDescription :: Lens' ConstraintSummary (Maybe Text)
csDescription = lens _csDescription (\ s a -> s{_csDescription = a});
instance FromJSON ConstraintSummary where
parseJSON
= withObject "ConstraintSummary"
(\ x ->
ConstraintSummary' <$>
(x .:? "Type") <*> (x .:? "Description"))
instance Hashable ConstraintSummary where
instance NFData ConstraintSummary where
data LaunchPathSummary = LaunchPathSummary'
{ _lpsConstraintSummaries :: !(Maybe [ConstraintSummary])
, _lpsName :: !(Maybe Text)
, _lpsId :: !(Maybe Text)
, _lpsTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
launchPathSummary
:: LaunchPathSummary
launchPathSummary =
LaunchPathSummary'
{ _lpsConstraintSummaries = Nothing
, _lpsName = Nothing
, _lpsId = Nothing
, _lpsTags = Nothing
}
lpsConstraintSummaries :: Lens' LaunchPathSummary [ConstraintSummary]
lpsConstraintSummaries = lens _lpsConstraintSummaries (\ s a -> s{_lpsConstraintSummaries = a}) . _Default . _Coerce;
lpsName :: Lens' LaunchPathSummary (Maybe Text)
lpsName = lens _lpsName (\ s a -> s{_lpsName = a});
lpsId :: Lens' LaunchPathSummary (Maybe Text)
lpsId = lens _lpsId (\ s a -> s{_lpsId = a});
lpsTags :: Lens' LaunchPathSummary [Tag]
lpsTags = lens _lpsTags (\ s a -> s{_lpsTags = a}) . _Default . _Coerce;
instance FromJSON LaunchPathSummary where
parseJSON
= withObject "LaunchPathSummary"
(\ x ->
LaunchPathSummary' <$>
(x .:? "ConstraintSummaries" .!= mempty) <*>
(x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Tags" .!= mempty))
instance Hashable LaunchPathSummary where
instance NFData LaunchPathSummary where
data ListRecordHistorySearchFilter = ListRecordHistorySearchFilter'
{ _lrhsfValue :: !(Maybe Text)
, _lrhsfKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listRecordHistorySearchFilter
:: ListRecordHistorySearchFilter
listRecordHistorySearchFilter =
ListRecordHistorySearchFilter' {_lrhsfValue = Nothing, _lrhsfKey = Nothing}
lrhsfValue :: Lens' ListRecordHistorySearchFilter (Maybe Text)
lrhsfValue = lens _lrhsfValue (\ s a -> s{_lrhsfValue = a});
lrhsfKey :: Lens' ListRecordHistorySearchFilter (Maybe Text)
lrhsfKey = lens _lrhsfKey (\ s a -> s{_lrhsfKey = a});
instance Hashable ListRecordHistorySearchFilter where
instance NFData ListRecordHistorySearchFilter where
instance ToJSON ListRecordHistorySearchFilter where
toJSON ListRecordHistorySearchFilter'{..}
= object
(catMaybes
[("Value" .=) <$> _lrhsfValue,
("Key" .=) <$> _lrhsfKey])
data ListTagOptionsFilters = ListTagOptionsFilters'
{ _ltofValue :: !(Maybe Text)
, _ltofActive :: !(Maybe Bool)
, _ltofKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listTagOptionsFilters
:: ListTagOptionsFilters
listTagOptionsFilters =
ListTagOptionsFilters'
{_ltofValue = Nothing, _ltofActive = Nothing, _ltofKey = Nothing}
ltofValue :: Lens' ListTagOptionsFilters (Maybe Text)
ltofValue = lens _ltofValue (\ s a -> s{_ltofValue = a});
ltofActive :: Lens' ListTagOptionsFilters (Maybe Bool)
ltofActive = lens _ltofActive (\ s a -> s{_ltofActive = a});
ltofKey :: Lens' ListTagOptionsFilters (Maybe Text)
ltofKey = lens _ltofKey (\ s a -> s{_ltofKey = a});
instance Hashable ListTagOptionsFilters where
instance NFData ListTagOptionsFilters where
instance ToJSON ListTagOptionsFilters where
toJSON ListTagOptionsFilters'{..}
= object
(catMaybes
[("Value" .=) <$> _ltofValue,
("Active" .=) <$> _ltofActive,
("Key" .=) <$> _ltofKey])
newtype ParameterConstraints = ParameterConstraints'
{ _pcAllowedValues :: Maybe [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
parameterConstraints
:: ParameterConstraints
parameterConstraints = ParameterConstraints' {_pcAllowedValues = Nothing}
pcAllowedValues :: Lens' ParameterConstraints [Text]
pcAllowedValues = lens _pcAllowedValues (\ s a -> s{_pcAllowedValues = a}) . _Default . _Coerce;
instance FromJSON ParameterConstraints where
parseJSON
= withObject "ParameterConstraints"
(\ x ->
ParameterConstraints' <$>
(x .:? "AllowedValues" .!= mempty))
instance Hashable ParameterConstraints where
instance NFData ParameterConstraints where
data PortfolioDetail = PortfolioDetail'
{ _pdARN :: !(Maybe Text)
, _pdCreatedTime :: !(Maybe POSIX)
, _pdId :: !(Maybe Text)
, _pdDisplayName :: !(Maybe Text)
, _pdDescription :: !(Maybe Text)
, _pdProviderName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
portfolioDetail
:: PortfolioDetail
portfolioDetail =
PortfolioDetail'
{ _pdARN = Nothing
, _pdCreatedTime = Nothing
, _pdId = Nothing
, _pdDisplayName = Nothing
, _pdDescription = Nothing
, _pdProviderName = Nothing
}
pdARN :: Lens' PortfolioDetail (Maybe Text)
pdARN = lens _pdARN (\ s a -> s{_pdARN = a});
pdCreatedTime :: Lens' PortfolioDetail (Maybe UTCTime)
pdCreatedTime = lens _pdCreatedTime (\ s a -> s{_pdCreatedTime = a}) . mapping _Time;
pdId :: Lens' PortfolioDetail (Maybe Text)
pdId = lens _pdId (\ s a -> s{_pdId = a});
pdDisplayName :: Lens' PortfolioDetail (Maybe Text)
pdDisplayName = lens _pdDisplayName (\ s a -> s{_pdDisplayName = a});
pdDescription :: Lens' PortfolioDetail (Maybe Text)
pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a});
pdProviderName :: Lens' PortfolioDetail (Maybe Text)
pdProviderName = lens _pdProviderName (\ s a -> s{_pdProviderName = a});
instance FromJSON PortfolioDetail where
parseJSON
= withObject "PortfolioDetail"
(\ x ->
PortfolioDetail' <$>
(x .:? "ARN") <*> (x .:? "CreatedTime") <*>
(x .:? "Id")
<*> (x .:? "DisplayName")
<*> (x .:? "Description")
<*> (x .:? "ProviderName"))
instance Hashable PortfolioDetail where
instance NFData PortfolioDetail where
data Principal = Principal'
{ _pPrincipalType :: !(Maybe PrincipalType)
, _pPrincipalARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
principal
:: Principal
principal = Principal' {_pPrincipalType = Nothing, _pPrincipalARN = Nothing}
pPrincipalType :: Lens' Principal (Maybe PrincipalType)
pPrincipalType = lens _pPrincipalType (\ s a -> s{_pPrincipalType = a});
pPrincipalARN :: Lens' Principal (Maybe Text)
pPrincipalARN = lens _pPrincipalARN (\ s a -> s{_pPrincipalARN = a});
instance FromJSON Principal where
parseJSON
= withObject "Principal"
(\ x ->
Principal' <$>
(x .:? "PrincipalType") <*> (x .:? "PrincipalARN"))
instance Hashable Principal where
instance NFData Principal where
data ProductViewAggregationValue = ProductViewAggregationValue'
{ _pvavValue :: !(Maybe Text)
, _pvavApproximateCount :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
productViewAggregationValue
:: ProductViewAggregationValue
productViewAggregationValue =
ProductViewAggregationValue'
{_pvavValue = Nothing, _pvavApproximateCount = Nothing}
pvavValue :: Lens' ProductViewAggregationValue (Maybe Text)
pvavValue = lens _pvavValue (\ s a -> s{_pvavValue = a});
pvavApproximateCount :: Lens' ProductViewAggregationValue (Maybe Int)
pvavApproximateCount = lens _pvavApproximateCount (\ s a -> s{_pvavApproximateCount = a});
instance FromJSON ProductViewAggregationValue where
parseJSON
= withObject "ProductViewAggregationValue"
(\ x ->
ProductViewAggregationValue' <$>
(x .:? "Value") <*> (x .:? "ApproximateCount"))
instance Hashable ProductViewAggregationValue where
instance NFData ProductViewAggregationValue where
data ProductViewDetail = ProductViewDetail'
{ _pvdStatus :: !(Maybe RequestStatus)
, _pvdProductViewSummary :: !(Maybe ProductViewSummary)
, _pvdCreatedTime :: !(Maybe POSIX)
, _pvdProductARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
productViewDetail
:: ProductViewDetail
productViewDetail =
ProductViewDetail'
{ _pvdStatus = Nothing
, _pvdProductViewSummary = Nothing
, _pvdCreatedTime = Nothing
, _pvdProductARN = Nothing
}
pvdStatus :: Lens' ProductViewDetail (Maybe RequestStatus)
pvdStatus = lens _pvdStatus (\ s a -> s{_pvdStatus = a});
pvdProductViewSummary :: Lens' ProductViewDetail (Maybe ProductViewSummary)
pvdProductViewSummary = lens _pvdProductViewSummary (\ s a -> s{_pvdProductViewSummary = a});
pvdCreatedTime :: Lens' ProductViewDetail (Maybe UTCTime)
pvdCreatedTime = lens _pvdCreatedTime (\ s a -> s{_pvdCreatedTime = a}) . mapping _Time;
pvdProductARN :: Lens' ProductViewDetail (Maybe Text)
pvdProductARN = lens _pvdProductARN (\ s a -> s{_pvdProductARN = a});
instance FromJSON ProductViewDetail where
parseJSON
= withObject "ProductViewDetail"
(\ x ->
ProductViewDetail' <$>
(x .:? "Status") <*> (x .:? "ProductViewSummary") <*>
(x .:? "CreatedTime")
<*> (x .:? "ProductARN"))
instance Hashable ProductViewDetail where
instance NFData ProductViewDetail where
data ProductViewSummary = ProductViewSummary'
{ _pvsOwner :: !(Maybe Text)
, _pvsSupportURL :: !(Maybe Text)
, _pvsShortDescription :: !(Maybe Text)
, _pvsHasDefaultPath :: !(Maybe Bool)
, _pvsDistributor :: !(Maybe Text)
, _pvsName :: !(Maybe Text)
, _pvsId :: !(Maybe Text)
, _pvsType :: !(Maybe ProductType)
, _pvsSupportEmail :: !(Maybe Text)
, _pvsProductId :: !(Maybe Text)
, _pvsSupportDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
productViewSummary
:: ProductViewSummary
productViewSummary =
ProductViewSummary'
{ _pvsOwner = Nothing
, _pvsSupportURL = Nothing
, _pvsShortDescription = Nothing
, _pvsHasDefaultPath = Nothing
, _pvsDistributor = Nothing
, _pvsName = Nothing
, _pvsId = Nothing
, _pvsType = Nothing
, _pvsSupportEmail = Nothing
, _pvsProductId = Nothing
, _pvsSupportDescription = Nothing
}
pvsOwner :: Lens' ProductViewSummary (Maybe Text)
pvsOwner = lens _pvsOwner (\ s a -> s{_pvsOwner = a});
pvsSupportURL :: Lens' ProductViewSummary (Maybe Text)
pvsSupportURL = lens _pvsSupportURL (\ s a -> s{_pvsSupportURL = a});
pvsShortDescription :: Lens' ProductViewSummary (Maybe Text)
pvsShortDescription = lens _pvsShortDescription (\ s a -> s{_pvsShortDescription = a});
pvsHasDefaultPath :: Lens' ProductViewSummary (Maybe Bool)
pvsHasDefaultPath = lens _pvsHasDefaultPath (\ s a -> s{_pvsHasDefaultPath = a});
pvsDistributor :: Lens' ProductViewSummary (Maybe Text)
pvsDistributor = lens _pvsDistributor (\ s a -> s{_pvsDistributor = a});
pvsName :: Lens' ProductViewSummary (Maybe Text)
pvsName = lens _pvsName (\ s a -> s{_pvsName = a});
pvsId :: Lens' ProductViewSummary (Maybe Text)
pvsId = lens _pvsId (\ s a -> s{_pvsId = a});
pvsType :: Lens' ProductViewSummary (Maybe ProductType)
pvsType = lens _pvsType (\ s a -> s{_pvsType = a});
pvsSupportEmail :: Lens' ProductViewSummary (Maybe Text)
pvsSupportEmail = lens _pvsSupportEmail (\ s a -> s{_pvsSupportEmail = a});
pvsProductId :: Lens' ProductViewSummary (Maybe Text)
pvsProductId = lens _pvsProductId (\ s a -> s{_pvsProductId = a});
pvsSupportDescription :: Lens' ProductViewSummary (Maybe Text)
pvsSupportDescription = lens _pvsSupportDescription (\ s a -> s{_pvsSupportDescription = a});
instance FromJSON ProductViewSummary where
parseJSON
= withObject "ProductViewSummary"
(\ x ->
ProductViewSummary' <$>
(x .:? "Owner") <*> (x .:? "SupportUrl") <*>
(x .:? "ShortDescription")
<*> (x .:? "HasDefaultPath")
<*> (x .:? "Distributor")
<*> (x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Type")
<*> (x .:? "SupportEmail")
<*> (x .:? "ProductId")
<*> (x .:? "SupportDescription"))
instance Hashable ProductViewSummary where
instance NFData ProductViewSummary where
data ProvisionedProductDetail = ProvisionedProductDetail'
{ _ppdIdempotencyToken :: !(Maybe Text)
, _ppdStatus :: !(Maybe ProvisionedProductStatus)
, _ppdARN :: !(Maybe Text)
, _ppdCreatedTime :: !(Maybe POSIX)
, _ppdStatusMessage :: !(Maybe Text)
, _ppdName :: !(Maybe Text)
, _ppdLastRecordId :: !(Maybe Text)
, _ppdId :: !(Maybe Text)
, _ppdType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisionedProductDetail
:: ProvisionedProductDetail
provisionedProductDetail =
ProvisionedProductDetail'
{ _ppdIdempotencyToken = Nothing
, _ppdStatus = Nothing
, _ppdARN = Nothing
, _ppdCreatedTime = Nothing
, _ppdStatusMessage = Nothing
, _ppdName = Nothing
, _ppdLastRecordId = Nothing
, _ppdId = Nothing
, _ppdType = Nothing
}
ppdIdempotencyToken :: Lens' ProvisionedProductDetail (Maybe Text)
ppdIdempotencyToken = lens _ppdIdempotencyToken (\ s a -> s{_ppdIdempotencyToken = a});
ppdStatus :: Lens' ProvisionedProductDetail (Maybe ProvisionedProductStatus)
ppdStatus = lens _ppdStatus (\ s a -> s{_ppdStatus = a});
ppdARN :: Lens' ProvisionedProductDetail (Maybe Text)
ppdARN = lens _ppdARN (\ s a -> s{_ppdARN = a});
ppdCreatedTime :: Lens' ProvisionedProductDetail (Maybe UTCTime)
ppdCreatedTime = lens _ppdCreatedTime (\ s a -> s{_ppdCreatedTime = a}) . mapping _Time;
ppdStatusMessage :: Lens' ProvisionedProductDetail (Maybe Text)
ppdStatusMessage = lens _ppdStatusMessage (\ s a -> s{_ppdStatusMessage = a});
ppdName :: Lens' ProvisionedProductDetail (Maybe Text)
ppdName = lens _ppdName (\ s a -> s{_ppdName = a});
ppdLastRecordId :: Lens' ProvisionedProductDetail (Maybe Text)
ppdLastRecordId = lens _ppdLastRecordId (\ s a -> s{_ppdLastRecordId = a});
ppdId :: Lens' ProvisionedProductDetail (Maybe Text)
ppdId = lens _ppdId (\ s a -> s{_ppdId = a});
ppdType :: Lens' ProvisionedProductDetail (Maybe Text)
ppdType = lens _ppdType (\ s a -> s{_ppdType = a});
instance FromJSON ProvisionedProductDetail where
parseJSON
= withObject "ProvisionedProductDetail"
(\ x ->
ProvisionedProductDetail' <$>
(x .:? "IdempotencyToken") <*> (x .:? "Status") <*>
(x .:? "Arn")
<*> (x .:? "CreatedTime")
<*> (x .:? "StatusMessage")
<*> (x .:? "Name")
<*> (x .:? "LastRecordId")
<*> (x .:? "Id")
<*> (x .:? "Type"))
instance Hashable ProvisionedProductDetail where
instance NFData ProvisionedProductDetail where
data ProvisioningArtifact = ProvisioningArtifact'
{ _paCreatedTime :: !(Maybe POSIX)
, _paName :: !(Maybe Text)
, _paId :: !(Maybe Text)
, _paDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningArtifact
:: ProvisioningArtifact
provisioningArtifact =
ProvisioningArtifact'
{ _paCreatedTime = Nothing
, _paName = Nothing
, _paId = Nothing
, _paDescription = Nothing
}
paCreatedTime :: Lens' ProvisioningArtifact (Maybe UTCTime)
paCreatedTime = lens _paCreatedTime (\ s a -> s{_paCreatedTime = a}) . mapping _Time;
paName :: Lens' ProvisioningArtifact (Maybe Text)
paName = lens _paName (\ s a -> s{_paName = a});
paId :: Lens' ProvisioningArtifact (Maybe Text)
paId = lens _paId (\ s a -> s{_paId = a});
paDescription :: Lens' ProvisioningArtifact (Maybe Text)
paDescription = lens _paDescription (\ s a -> s{_paDescription = a});
instance FromJSON ProvisioningArtifact where
parseJSON
= withObject "ProvisioningArtifact"
(\ x ->
ProvisioningArtifact' <$>
(x .:? "CreatedTime") <*> (x .:? "Name") <*>
(x .:? "Id")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifact where
instance NFData ProvisioningArtifact where
data ProvisioningArtifactDetail = ProvisioningArtifactDetail'
{ _padCreatedTime :: !(Maybe POSIX)
, _padName :: !(Maybe Text)
, _padId :: !(Maybe Text)
, _padType :: !(Maybe ProvisioningArtifactType)
, _padDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningArtifactDetail
:: ProvisioningArtifactDetail
provisioningArtifactDetail =
ProvisioningArtifactDetail'
{ _padCreatedTime = Nothing
, _padName = Nothing
, _padId = Nothing
, _padType = Nothing
, _padDescription = Nothing
}
padCreatedTime :: Lens' ProvisioningArtifactDetail (Maybe UTCTime)
padCreatedTime = lens _padCreatedTime (\ s a -> s{_padCreatedTime = a}) . mapping _Time;
padName :: Lens' ProvisioningArtifactDetail (Maybe Text)
padName = lens _padName (\ s a -> s{_padName = a});
padId :: Lens' ProvisioningArtifactDetail (Maybe Text)
padId = lens _padId (\ s a -> s{_padId = a});
padType :: Lens' ProvisioningArtifactDetail (Maybe ProvisioningArtifactType)
padType = lens _padType (\ s a -> s{_padType = a});
padDescription :: Lens' ProvisioningArtifactDetail (Maybe Text)
padDescription = lens _padDescription (\ s a -> s{_padDescription = a});
instance FromJSON ProvisioningArtifactDetail where
parseJSON
= withObject "ProvisioningArtifactDetail"
(\ x ->
ProvisioningArtifactDetail' <$>
(x .:? "CreatedTime") <*> (x .:? "Name") <*>
(x .:? "Id")
<*> (x .:? "Type")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifactDetail where
instance NFData ProvisioningArtifactDetail where
data ProvisioningArtifactParameter = ProvisioningArtifactParameter'
{ _pIsNoEcho :: !(Maybe Bool)
, _pParameterKey :: !(Maybe Text)
, _pParameterType :: !(Maybe Text)
, _pParameterConstraints :: !(Maybe ParameterConstraints)
, _pDefaultValue :: !(Maybe Text)
, _pDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningArtifactParameter
:: ProvisioningArtifactParameter
provisioningArtifactParameter =
ProvisioningArtifactParameter'
{ _pIsNoEcho = Nothing
, _pParameterKey = Nothing
, _pParameterType = Nothing
, _pParameterConstraints = Nothing
, _pDefaultValue = Nothing
, _pDescription = Nothing
}
pIsNoEcho :: Lens' ProvisioningArtifactParameter (Maybe Bool)
pIsNoEcho = lens _pIsNoEcho (\ s a -> s{_pIsNoEcho = a});
pParameterKey :: Lens' ProvisioningArtifactParameter (Maybe Text)
pParameterKey = lens _pParameterKey (\ s a -> s{_pParameterKey = a});
pParameterType :: Lens' ProvisioningArtifactParameter (Maybe Text)
pParameterType = lens _pParameterType (\ s a -> s{_pParameterType = a});
pParameterConstraints :: Lens' ProvisioningArtifactParameter (Maybe ParameterConstraints)
pParameterConstraints = lens _pParameterConstraints (\ s a -> s{_pParameterConstraints = a});
pDefaultValue :: Lens' ProvisioningArtifactParameter (Maybe Text)
pDefaultValue = lens _pDefaultValue (\ s a -> s{_pDefaultValue = a});
pDescription :: Lens' ProvisioningArtifactParameter (Maybe Text)
pDescription = lens _pDescription (\ s a -> s{_pDescription = a});
instance FromJSON ProvisioningArtifactParameter where
parseJSON
= withObject "ProvisioningArtifactParameter"
(\ x ->
ProvisioningArtifactParameter' <$>
(x .:? "IsNoEcho") <*> (x .:? "ParameterKey") <*>
(x .:? "ParameterType")
<*> (x .:? "ParameterConstraints")
<*> (x .:? "DefaultValue")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifactParameter where
instance NFData ProvisioningArtifactParameter where
data ProvisioningArtifactProperties = ProvisioningArtifactProperties'
{ _papName :: !(Maybe Text)
, _papType :: !(Maybe ProvisioningArtifactType)
, _papDescription :: !(Maybe Text)
, _papInfo :: !(Map Text Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningArtifactProperties
:: ProvisioningArtifactProperties
provisioningArtifactProperties =
ProvisioningArtifactProperties'
{ _papName = Nothing
, _papType = Nothing
, _papDescription = Nothing
, _papInfo = mempty
}
papName :: Lens' ProvisioningArtifactProperties (Maybe Text)
papName = lens _papName (\ s a -> s{_papName = a});
papType :: Lens' ProvisioningArtifactProperties (Maybe ProvisioningArtifactType)
papType = lens _papType (\ s a -> s{_papType = a});
papDescription :: Lens' ProvisioningArtifactProperties (Maybe Text)
papDescription = lens _papDescription (\ s a -> s{_papDescription = a});
papInfo :: Lens' ProvisioningArtifactProperties (HashMap Text Text)
papInfo = lens _papInfo (\ s a -> s{_papInfo = a}) . _Map;
instance Hashable ProvisioningArtifactProperties
where
instance NFData ProvisioningArtifactProperties where
instance ToJSON ProvisioningArtifactProperties where
toJSON ProvisioningArtifactProperties'{..}
= object
(catMaybes
[("Name" .=) <$> _papName, ("Type" .=) <$> _papType,
("Description" .=) <$> _papDescription,
Just ("Info" .= _papInfo)])
data ProvisioningArtifactSummary = ProvisioningArtifactSummary'
{ _pasProvisioningArtifactMetadata :: !(Maybe (Map Text Text))
, _pasCreatedTime :: !(Maybe POSIX)
, _pasName :: !(Maybe Text)
, _pasId :: !(Maybe Text)
, _pasDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningArtifactSummary
:: ProvisioningArtifactSummary
provisioningArtifactSummary =
ProvisioningArtifactSummary'
{ _pasProvisioningArtifactMetadata = Nothing
, _pasCreatedTime = Nothing
, _pasName = Nothing
, _pasId = Nothing
, _pasDescription = Nothing
}
pasProvisioningArtifactMetadata :: Lens' ProvisioningArtifactSummary (HashMap Text Text)
pasProvisioningArtifactMetadata = lens _pasProvisioningArtifactMetadata (\ s a -> s{_pasProvisioningArtifactMetadata = a}) . _Default . _Map;
pasCreatedTime :: Lens' ProvisioningArtifactSummary (Maybe UTCTime)
pasCreatedTime = lens _pasCreatedTime (\ s a -> s{_pasCreatedTime = a}) . mapping _Time;
pasName :: Lens' ProvisioningArtifactSummary (Maybe Text)
pasName = lens _pasName (\ s a -> s{_pasName = a});
pasId :: Lens' ProvisioningArtifactSummary (Maybe Text)
pasId = lens _pasId (\ s a -> s{_pasId = a});
pasDescription :: Lens' ProvisioningArtifactSummary (Maybe Text)
pasDescription = lens _pasDescription (\ s a -> s{_pasDescription = a});
instance FromJSON ProvisioningArtifactSummary where
parseJSON
= withObject "ProvisioningArtifactSummary"
(\ x ->
ProvisioningArtifactSummary' <$>
(x .:? "ProvisioningArtifactMetadata" .!= mempty) <*>
(x .:? "CreatedTime")
<*> (x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Description"))
instance Hashable ProvisioningArtifactSummary where
instance NFData ProvisioningArtifactSummary where
data ProvisioningParameter = ProvisioningParameter'
{ _ppValue :: !(Maybe Text)
, _ppKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisioningParameter
:: ProvisioningParameter
provisioningParameter =
ProvisioningParameter' {_ppValue = Nothing, _ppKey = Nothing}
ppValue :: Lens' ProvisioningParameter (Maybe Text)
ppValue = lens _ppValue (\ s a -> s{_ppValue = a});
ppKey :: Lens' ProvisioningParameter (Maybe Text)
ppKey = lens _ppKey (\ s a -> s{_ppKey = a});
instance Hashable ProvisioningParameter where
instance NFData ProvisioningParameter where
instance ToJSON ProvisioningParameter where
toJSON ProvisioningParameter'{..}
= object
(catMaybes
[("Value" .=) <$> _ppValue, ("Key" .=) <$> _ppKey])
data RecordDetail = RecordDetail'
{ _rdStatus :: !(Maybe RecordStatus)
, _rdRecordTags :: !(Maybe [RecordTag])
, _rdProvisionedProductName :: !(Maybe Text)
, _rdProvisioningArtifactId :: !(Maybe Text)
, _rdCreatedTime :: !(Maybe POSIX)
, _rdRecordType :: !(Maybe Text)
, _rdRecordId :: !(Maybe Text)
, _rdProvisionedProductType :: !(Maybe Text)
, _rdUpdatedTime :: !(Maybe POSIX)
, _rdPathId :: !(Maybe Text)
, _rdProvisionedProductId :: !(Maybe Text)
, _rdRecordErrors :: !(Maybe [RecordError])
, _rdProductId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
recordDetail
:: RecordDetail
recordDetail =
RecordDetail'
{ _rdStatus = Nothing
, _rdRecordTags = Nothing
, _rdProvisionedProductName = Nothing
, _rdProvisioningArtifactId = Nothing
, _rdCreatedTime = Nothing
, _rdRecordType = Nothing
, _rdRecordId = Nothing
, _rdProvisionedProductType = Nothing
, _rdUpdatedTime = Nothing
, _rdPathId = Nothing
, _rdProvisionedProductId = Nothing
, _rdRecordErrors = Nothing
, _rdProductId = Nothing
}
rdStatus :: Lens' RecordDetail (Maybe RecordStatus)
rdStatus = lens _rdStatus (\ s a -> s{_rdStatus = a});
rdRecordTags :: Lens' RecordDetail [RecordTag]
rdRecordTags = lens _rdRecordTags (\ s a -> s{_rdRecordTags = a}) . _Default . _Coerce;
rdProvisionedProductName :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductName = lens _rdProvisionedProductName (\ s a -> s{_rdProvisionedProductName = a});
rdProvisioningArtifactId :: Lens' RecordDetail (Maybe Text)
rdProvisioningArtifactId = lens _rdProvisioningArtifactId (\ s a -> s{_rdProvisioningArtifactId = a});
rdCreatedTime :: Lens' RecordDetail (Maybe UTCTime)
rdCreatedTime = lens _rdCreatedTime (\ s a -> s{_rdCreatedTime = a}) . mapping _Time;
rdRecordType :: Lens' RecordDetail (Maybe Text)
rdRecordType = lens _rdRecordType (\ s a -> s{_rdRecordType = a});
rdRecordId :: Lens' RecordDetail (Maybe Text)
rdRecordId = lens _rdRecordId (\ s a -> s{_rdRecordId = a});
rdProvisionedProductType :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductType = lens _rdProvisionedProductType (\ s a -> s{_rdProvisionedProductType = a});
rdUpdatedTime :: Lens' RecordDetail (Maybe UTCTime)
rdUpdatedTime = lens _rdUpdatedTime (\ s a -> s{_rdUpdatedTime = a}) . mapping _Time;
rdPathId :: Lens' RecordDetail (Maybe Text)
rdPathId = lens _rdPathId (\ s a -> s{_rdPathId = a});
rdProvisionedProductId :: Lens' RecordDetail (Maybe Text)
rdProvisionedProductId = lens _rdProvisionedProductId (\ s a -> s{_rdProvisionedProductId = a});
rdRecordErrors :: Lens' RecordDetail [RecordError]
rdRecordErrors = lens _rdRecordErrors (\ s a -> s{_rdRecordErrors = a}) . _Default . _Coerce;
rdProductId :: Lens' RecordDetail (Maybe Text)
rdProductId = lens _rdProductId (\ s a -> s{_rdProductId = a});
instance FromJSON RecordDetail where
parseJSON
= withObject "RecordDetail"
(\ x ->
RecordDetail' <$>
(x .:? "Status") <*> (x .:? "RecordTags" .!= mempty)
<*> (x .:? "ProvisionedProductName")
<*> (x .:? "ProvisioningArtifactId")
<*> (x .:? "CreatedTime")
<*> (x .:? "RecordType")
<*> (x .:? "RecordId")
<*> (x .:? "ProvisionedProductType")
<*> (x .:? "UpdatedTime")
<*> (x .:? "PathId")
<*> (x .:? "ProvisionedProductId")
<*> (x .:? "RecordErrors" .!= mempty)
<*> (x .:? "ProductId"))
instance Hashable RecordDetail where
instance NFData RecordDetail where
data RecordError = RecordError'
{ _reCode :: !(Maybe Text)
, _reDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
recordError
:: RecordError
recordError = RecordError' {_reCode = Nothing, _reDescription = Nothing}
reCode :: Lens' RecordError (Maybe Text)
reCode = lens _reCode (\ s a -> s{_reCode = a});
reDescription :: Lens' RecordError (Maybe Text)
reDescription = lens _reDescription (\ s a -> s{_reDescription = a});
instance FromJSON RecordError where
parseJSON
= withObject "RecordError"
(\ x ->
RecordError' <$>
(x .:? "Code") <*> (x .:? "Description"))
instance Hashable RecordError where
instance NFData RecordError where
data RecordOutput = RecordOutput'
{ _roOutputValue :: !(Maybe Text)
, _roOutputKey :: !(Maybe Text)
, _roDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
recordOutput
:: RecordOutput
recordOutput =
RecordOutput'
{_roOutputValue = Nothing, _roOutputKey = Nothing, _roDescription = Nothing}
roOutputValue :: Lens' RecordOutput (Maybe Text)
roOutputValue = lens _roOutputValue (\ s a -> s{_roOutputValue = a});
roOutputKey :: Lens' RecordOutput (Maybe Text)
roOutputKey = lens _roOutputKey (\ s a -> s{_roOutputKey = a});
roDescription :: Lens' RecordOutput (Maybe Text)
roDescription = lens _roDescription (\ s a -> s{_roDescription = a});
instance FromJSON RecordOutput where
parseJSON
= withObject "RecordOutput"
(\ x ->
RecordOutput' <$>
(x .:? "OutputValue") <*> (x .:? "OutputKey") <*>
(x .:? "Description"))
instance Hashable RecordOutput where
instance NFData RecordOutput where
data RecordTag = RecordTag'
{ _rtValue :: !(Maybe Text)
, _rtKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
recordTag
:: RecordTag
recordTag = RecordTag' {_rtValue = Nothing, _rtKey = Nothing}
rtValue :: Lens' RecordTag (Maybe Text)
rtValue = lens _rtValue (\ s a -> s{_rtValue = a});
rtKey :: Lens' RecordTag (Maybe Text)
rtKey = lens _rtKey (\ s a -> s{_rtKey = a});
instance FromJSON RecordTag where
parseJSON
= withObject "RecordTag"
(\ x ->
RecordTag' <$> (x .:? "Value") <*> (x .:? "Key"))
instance Hashable RecordTag where
instance NFData RecordTag where
data ResourceDetail = ResourceDetail'
{ _rARN :: !(Maybe Text)
, _rCreatedTime :: !(Maybe POSIX)
, _rName :: !(Maybe Text)
, _rId :: !(Maybe Text)
, _rDescription :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceDetail
:: ResourceDetail
resourceDetail =
ResourceDetail'
{ _rARN = Nothing
, _rCreatedTime = Nothing
, _rName = Nothing
, _rId = Nothing
, _rDescription = Nothing
}
rARN :: Lens' ResourceDetail (Maybe Text)
rARN = lens _rARN (\ s a -> s{_rARN = a});
rCreatedTime :: Lens' ResourceDetail (Maybe UTCTime)
rCreatedTime = lens _rCreatedTime (\ s a -> s{_rCreatedTime = a}) . mapping _Time;
rName :: Lens' ResourceDetail (Maybe Text)
rName = lens _rName (\ s a -> s{_rName = a});
rId :: Lens' ResourceDetail (Maybe Text)
rId = lens _rId (\ s a -> s{_rId = a});
rDescription :: Lens' ResourceDetail (Maybe Text)
rDescription = lens _rDescription (\ s a -> s{_rDescription = a});
instance FromJSON ResourceDetail where
parseJSON
= withObject "ResourceDetail"
(\ x ->
ResourceDetail' <$>
(x .:? "ARN") <*> (x .:? "CreatedTime") <*>
(x .:? "Name")
<*> (x .:? "Id")
<*> (x .:? "Description"))
instance Hashable ResourceDetail where
instance NFData ResourceDetail where
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 TagOptionDetail = TagOptionDetail'
{ _todValue :: !(Maybe Text)
, _todActive :: !(Maybe Bool)
, _todKey :: !(Maybe Text)
, _todId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tagOptionDetail
:: TagOptionDetail
tagOptionDetail =
TagOptionDetail'
{ _todValue = Nothing
, _todActive = Nothing
, _todKey = Nothing
, _todId = Nothing
}
todValue :: Lens' TagOptionDetail (Maybe Text)
todValue = lens _todValue (\ s a -> s{_todValue = a});
todActive :: Lens' TagOptionDetail (Maybe Bool)
todActive = lens _todActive (\ s a -> s{_todActive = a});
todKey :: Lens' TagOptionDetail (Maybe Text)
todKey = lens _todKey (\ s a -> s{_todKey = a});
todId :: Lens' TagOptionDetail (Maybe Text)
todId = lens _todId (\ s a -> s{_todId = a});
instance FromJSON TagOptionDetail where
parseJSON
= withObject "TagOptionDetail"
(\ x ->
TagOptionDetail' <$>
(x .:? "Value") <*> (x .:? "Active") <*>
(x .:? "Key")
<*> (x .:? "Id"))
instance Hashable TagOptionDetail where
instance NFData TagOptionDetail where
data TagOptionSummary = TagOptionSummary'
{ _tosValues :: !(Maybe [Text])
, _tosKey :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
tagOptionSummary
:: TagOptionSummary
tagOptionSummary = TagOptionSummary' {_tosValues = Nothing, _tosKey = Nothing}
tosValues :: Lens' TagOptionSummary [Text]
tosValues = lens _tosValues (\ s a -> s{_tosValues = a}) . _Default . _Coerce;
tosKey :: Lens' TagOptionSummary (Maybe Text)
tosKey = lens _tosKey (\ s a -> s{_tosKey = a});
instance FromJSON TagOptionSummary where
parseJSON
= withObject "TagOptionSummary"
(\ x ->
TagOptionSummary' <$>
(x .:? "Values" .!= mempty) <*> (x .:? "Key"))
instance Hashable TagOptionSummary where
instance NFData TagOptionSummary where
data UpdateProvisioningParameter = UpdateProvisioningParameter'
{ _uppValue :: !(Maybe Text)
, _uppKey :: !(Maybe Text)
, _uppUsePreviousValue :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateProvisioningParameter
:: UpdateProvisioningParameter
updateProvisioningParameter =
UpdateProvisioningParameter'
{_uppValue = Nothing, _uppKey = Nothing, _uppUsePreviousValue = Nothing}
uppValue :: Lens' UpdateProvisioningParameter (Maybe Text)
uppValue = lens _uppValue (\ s a -> s{_uppValue = a});
uppKey :: Lens' UpdateProvisioningParameter (Maybe Text)
uppKey = lens _uppKey (\ s a -> s{_uppKey = a});
uppUsePreviousValue :: Lens' UpdateProvisioningParameter (Maybe Bool)
uppUsePreviousValue = lens _uppUsePreviousValue (\ s a -> s{_uppUsePreviousValue = a});
instance Hashable UpdateProvisioningParameter where
instance NFData UpdateProvisioningParameter where
instance ToJSON UpdateProvisioningParameter where
toJSON UpdateProvisioningParameter'{..}
= object
(catMaybes
[("Value" .=) <$> _uppValue, ("Key" .=) <$> _uppKey,
("UsePreviousValue" .=) <$> _uppUsePreviousValue])
data UsageInstruction = UsageInstruction'
{ _uiValue :: !(Maybe Text)
, _uiType :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
usageInstruction
:: UsageInstruction
usageInstruction = UsageInstruction' {_uiValue = Nothing, _uiType = Nothing}
uiValue :: Lens' UsageInstruction (Maybe Text)
uiValue = lens _uiValue (\ s a -> s{_uiValue = a});
uiType :: Lens' UsageInstruction (Maybe Text)
uiType = lens _uiType (\ s a -> s{_uiType = a});
instance FromJSON UsageInstruction where
parseJSON
= withObject "UsageInstruction"
(\ x ->
UsageInstruction' <$>
(x .:? "Value") <*> (x .:? "Type"))
instance Hashable UsageInstruction where
instance NFData UsageInstruction where