{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
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])
newtype CloudWatchDashboard = CloudWatchDashboard'
{ _cwdName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cloudWatchDashboard
:: CloudWatchDashboard
cloudWatchDashboard = CloudWatchDashboard' {_cwdName = Nothing}
cwdName :: Lens' CloudWatchDashboard (Maybe Text)
cwdName = lens _cwdName (\ s a -> s{_cwdName = a})
instance FromJSON CloudWatchDashboard where
parseJSON
= withObject "CloudWatchDashboard"
(\ x -> CloudWatchDashboard' <$> (x .:? "Name"))
instance Hashable CloudWatchDashboard where
instance NFData CloudWatchDashboard where
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 ProvisionedProductAttribute = ProvisionedProductAttribute'
{ _ppaIdempotencyToken :: !(Maybe Text)
, _ppaStatus :: !(Maybe ProvisionedProductStatus)
, _ppaProvisioningArtifactId :: !(Maybe Text)
, _ppaARN :: !(Maybe Text)
, _ppaCreatedTime :: !(Maybe POSIX)
, _ppaUserARN :: !(Maybe Text)
, _ppaStatusMessage :: !(Maybe Text)
, _ppaName :: !(Maybe Text)
, _ppaLastRecordId :: !(Maybe Text)
, _ppaUserARNSession :: !(Maybe Text)
, _ppaId :: !(Maybe Text)
, _ppaType :: !(Maybe Text)
, _ppaPhysicalId :: !(Maybe Text)
, _ppaProductId :: !(Maybe Text)
, _ppaTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisionedProductAttribute
:: ProvisionedProductAttribute
provisionedProductAttribute =
ProvisionedProductAttribute'
{ _ppaIdempotencyToken = Nothing
, _ppaStatus = Nothing
, _ppaProvisioningArtifactId = Nothing
, _ppaARN = Nothing
, _ppaCreatedTime = Nothing
, _ppaUserARN = Nothing
, _ppaStatusMessage = Nothing
, _ppaName = Nothing
, _ppaLastRecordId = Nothing
, _ppaUserARNSession = Nothing
, _ppaId = Nothing
, _ppaType = Nothing
, _ppaPhysicalId = Nothing
, _ppaProductId = Nothing
, _ppaTags = Nothing
}
ppaIdempotencyToken :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaIdempotencyToken = lens _ppaIdempotencyToken (\ s a -> s{_ppaIdempotencyToken = a})
ppaStatus :: Lens' ProvisionedProductAttribute (Maybe ProvisionedProductStatus)
ppaStatus = lens _ppaStatus (\ s a -> s{_ppaStatus = a})
ppaProvisioningArtifactId :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaProvisioningArtifactId = lens _ppaProvisioningArtifactId (\ s a -> s{_ppaProvisioningArtifactId = a})
ppaARN :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaARN = lens _ppaARN (\ s a -> s{_ppaARN = a})
ppaCreatedTime :: Lens' ProvisionedProductAttribute (Maybe UTCTime)
ppaCreatedTime = lens _ppaCreatedTime (\ s a -> s{_ppaCreatedTime = a}) . mapping _Time
ppaUserARN :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaUserARN = lens _ppaUserARN (\ s a -> s{_ppaUserARN = a})
ppaStatusMessage :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaStatusMessage = lens _ppaStatusMessage (\ s a -> s{_ppaStatusMessage = a})
ppaName :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaName = lens _ppaName (\ s a -> s{_ppaName = a})
ppaLastRecordId :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaLastRecordId = lens _ppaLastRecordId (\ s a -> s{_ppaLastRecordId = a})
ppaUserARNSession :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaUserARNSession = lens _ppaUserARNSession (\ s a -> s{_ppaUserARNSession = a})
ppaId :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaId = lens _ppaId (\ s a -> s{_ppaId = a})
ppaType :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaType = lens _ppaType (\ s a -> s{_ppaType = a})
ppaPhysicalId :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaPhysicalId = lens _ppaPhysicalId (\ s a -> s{_ppaPhysicalId = a})
ppaProductId :: Lens' ProvisionedProductAttribute (Maybe Text)
ppaProductId = lens _ppaProductId (\ s a -> s{_ppaProductId = a})
ppaTags :: Lens' ProvisionedProductAttribute [Tag]
ppaTags = lens _ppaTags (\ s a -> s{_ppaTags = a}) . _Default . _Coerce
instance FromJSON ProvisionedProductAttribute where
parseJSON
= withObject "ProvisionedProductAttribute"
(\ x ->
ProvisionedProductAttribute' <$>
(x .:? "IdempotencyToken") <*> (x .:? "Status") <*>
(x .:? "ProvisioningArtifactId")
<*> (x .:? "Arn")
<*> (x .:? "CreatedTime")
<*> (x .:? "UserArn")
<*> (x .:? "StatusMessage")
<*> (x .:? "Name")
<*> (x .:? "LastRecordId")
<*> (x .:? "UserArnSession")
<*> (x .:? "Id")
<*> (x .:? "Type")
<*> (x .:? "PhysicalId")
<*> (x .:? "ProductId")
<*> (x .:? "Tags" .!= mempty))
instance Hashable ProvisionedProductAttribute where
instance NFData ProvisionedProductAttribute 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 ProvisionedProductPlanDetails = ProvisionedProductPlanDetails'
{ _pppdStatus :: !(Maybe ProvisionedProductPlanStatus)
, _pppdProvisionProductId :: !(Maybe Text)
, _pppdProvisioningArtifactId :: !(Maybe Text)
, _pppdProvisionProductName :: !(Maybe Text)
, _pppdCreatedTime :: !(Maybe POSIX)
, _pppdNotificationARNs :: !(Maybe [Text])
, _pppdPlanId :: !(Maybe Text)
, _pppdPlanName :: !(Maybe Text)
, _pppdStatusMessage :: !(Maybe Text)
, _pppdUpdatedTime :: !(Maybe POSIX)
, _pppdPathId :: !(Maybe Text)
, _pppdProvisioningParameters :: !(Maybe [UpdateProvisioningParameter])
, _pppdPlanType :: !(Maybe ProvisionedProductPlanType)
, _pppdProductId :: !(Maybe Text)
, _pppdTags :: !(Maybe [Tag])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisionedProductPlanDetails
:: ProvisionedProductPlanDetails
provisionedProductPlanDetails =
ProvisionedProductPlanDetails'
{ _pppdStatus = Nothing
, _pppdProvisionProductId = Nothing
, _pppdProvisioningArtifactId = Nothing
, _pppdProvisionProductName = Nothing
, _pppdCreatedTime = Nothing
, _pppdNotificationARNs = Nothing
, _pppdPlanId = Nothing
, _pppdPlanName = Nothing
, _pppdStatusMessage = Nothing
, _pppdUpdatedTime = Nothing
, _pppdPathId = Nothing
, _pppdProvisioningParameters = Nothing
, _pppdPlanType = Nothing
, _pppdProductId = Nothing
, _pppdTags = Nothing
}
pppdStatus :: Lens' ProvisionedProductPlanDetails (Maybe ProvisionedProductPlanStatus)
pppdStatus = lens _pppdStatus (\ s a -> s{_pppdStatus = a})
pppdProvisionProductId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdProvisionProductId = lens _pppdProvisionProductId (\ s a -> s{_pppdProvisionProductId = a})
pppdProvisioningArtifactId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdProvisioningArtifactId = lens _pppdProvisioningArtifactId (\ s a -> s{_pppdProvisioningArtifactId = a})
pppdProvisionProductName :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdProvisionProductName = lens _pppdProvisionProductName (\ s a -> s{_pppdProvisionProductName = a})
pppdCreatedTime :: Lens' ProvisionedProductPlanDetails (Maybe UTCTime)
pppdCreatedTime = lens _pppdCreatedTime (\ s a -> s{_pppdCreatedTime = a}) . mapping _Time
pppdNotificationARNs :: Lens' ProvisionedProductPlanDetails [Text]
pppdNotificationARNs = lens _pppdNotificationARNs (\ s a -> s{_pppdNotificationARNs = a}) . _Default . _Coerce
pppdPlanId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdPlanId = lens _pppdPlanId (\ s a -> s{_pppdPlanId = a})
pppdPlanName :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdPlanName = lens _pppdPlanName (\ s a -> s{_pppdPlanName = a})
pppdStatusMessage :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdStatusMessage = lens _pppdStatusMessage (\ s a -> s{_pppdStatusMessage = a})
pppdUpdatedTime :: Lens' ProvisionedProductPlanDetails (Maybe UTCTime)
pppdUpdatedTime = lens _pppdUpdatedTime (\ s a -> s{_pppdUpdatedTime = a}) . mapping _Time
pppdPathId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdPathId = lens _pppdPathId (\ s a -> s{_pppdPathId = a})
pppdProvisioningParameters :: Lens' ProvisionedProductPlanDetails [UpdateProvisioningParameter]
pppdProvisioningParameters = lens _pppdProvisioningParameters (\ s a -> s{_pppdProvisioningParameters = a}) . _Default . _Coerce
pppdPlanType :: Lens' ProvisionedProductPlanDetails (Maybe ProvisionedProductPlanType)
pppdPlanType = lens _pppdPlanType (\ s a -> s{_pppdPlanType = a})
pppdProductId :: Lens' ProvisionedProductPlanDetails (Maybe Text)
pppdProductId = lens _pppdProductId (\ s a -> s{_pppdProductId = a})
pppdTags :: Lens' ProvisionedProductPlanDetails [Tag]
pppdTags = lens _pppdTags (\ s a -> s{_pppdTags = a}) . _Default . _Coerce
instance FromJSON ProvisionedProductPlanDetails where
parseJSON
= withObject "ProvisionedProductPlanDetails"
(\ x ->
ProvisionedProductPlanDetails' <$>
(x .:? "Status") <*> (x .:? "ProvisionProductId") <*>
(x .:? "ProvisioningArtifactId")
<*> (x .:? "ProvisionProductName")
<*> (x .:? "CreatedTime")
<*> (x .:? "NotificationArns" .!= mempty)
<*> (x .:? "PlanId")
<*> (x .:? "PlanName")
<*> (x .:? "StatusMessage")
<*> (x .:? "UpdatedTime")
<*> (x .:? "PathId")
<*> (x .:? "ProvisioningParameters" .!= mempty)
<*> (x .:? "PlanType")
<*> (x .:? "ProductId")
<*> (x .:? "Tags" .!= mempty))
instance Hashable ProvisionedProductPlanDetails where
instance NFData ProvisionedProductPlanDetails where
data ProvisionedProductPlanSummary = ProvisionedProductPlanSummary'
{ _pppsProvisionProductId :: !(Maybe Text)
, _pppsProvisioningArtifactId :: !(Maybe Text)
, _pppsProvisionProductName :: !(Maybe Text)
, _pppsPlanId :: !(Maybe Text)
, _pppsPlanName :: !(Maybe Text)
, _pppsPlanType :: !(Maybe ProvisionedProductPlanType)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
provisionedProductPlanSummary
:: ProvisionedProductPlanSummary
provisionedProductPlanSummary =
ProvisionedProductPlanSummary'
{ _pppsProvisionProductId = Nothing
, _pppsProvisioningArtifactId = Nothing
, _pppsProvisionProductName = Nothing
, _pppsPlanId = Nothing
, _pppsPlanName = Nothing
, _pppsPlanType = Nothing
}
pppsProvisionProductId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
pppsProvisionProductId = lens _pppsProvisionProductId (\ s a -> s{_pppsProvisionProductId = a})
pppsProvisioningArtifactId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
pppsProvisioningArtifactId = lens _pppsProvisioningArtifactId (\ s a -> s{_pppsProvisioningArtifactId = a})
pppsProvisionProductName :: Lens' ProvisionedProductPlanSummary (Maybe Text)
pppsProvisionProductName = lens _pppsProvisionProductName (\ s a -> s{_pppsProvisionProductName = a})
pppsPlanId :: Lens' ProvisionedProductPlanSummary (Maybe Text)
pppsPlanId = lens _pppsPlanId (\ s a -> s{_pppsPlanId = a})
pppsPlanName :: Lens' ProvisionedProductPlanSummary (Maybe Text)
pppsPlanName = lens _pppsPlanName (\ s a -> s{_pppsPlanName = a})
pppsPlanType :: Lens' ProvisionedProductPlanSummary (Maybe ProvisionedProductPlanType)
pppsPlanType = lens _pppsPlanType (\ s a -> s{_pppsPlanType = a})
instance FromJSON ProvisionedProductPlanSummary where
parseJSON
= withObject "ProvisionedProductPlanSummary"
(\ x ->
ProvisionedProductPlanSummary' <$>
(x .:? "ProvisionProductId") <*>
(x .:? "ProvisioningArtifactId")
<*> (x .:? "ProvisionProductName")
<*> (x .:? "PlanId")
<*> (x .:? "PlanName")
<*> (x .:? "PlanType"))
instance Hashable ProvisionedProductPlanSummary where
instance NFData ProvisionedProductPlanSummary 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)
, _padActive :: !(Maybe Bool)
, _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
, _padActive = Nothing
, _padName = Nothing
, _padId = Nothing
, _padType = Nothing
, _padDescription = Nothing
}
padCreatedTime :: Lens' ProvisioningArtifactDetail (Maybe UTCTime)
padCreatedTime = lens _padCreatedTime (\ s a -> s{_padCreatedTime = a}) . mapping _Time
padActive :: Lens' ProvisioningArtifactDetail (Maybe Bool)
padActive = lens _padActive (\ s a -> s{_padActive = a})
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 .:? "Active") <*>
(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 ResourceChange = ResourceChange'
{ _rcLogicalResourceId :: !(Maybe Text)
, _rcPhysicalResourceId :: !(Maybe Text)
, _rcResourceType :: !(Maybe Text)
, _rcAction :: !(Maybe ChangeAction)
, _rcScope :: !(Maybe [ResourceAttribute])
, _rcDetails :: !(Maybe [ResourceChangeDetail])
, _rcReplacement :: !(Maybe Replacement)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceChange
:: ResourceChange
resourceChange =
ResourceChange'
{ _rcLogicalResourceId = Nothing
, _rcPhysicalResourceId = Nothing
, _rcResourceType = Nothing
, _rcAction = Nothing
, _rcScope = Nothing
, _rcDetails = Nothing
, _rcReplacement = Nothing
}
rcLogicalResourceId :: Lens' ResourceChange (Maybe Text)
rcLogicalResourceId = lens _rcLogicalResourceId (\ s a -> s{_rcLogicalResourceId = a})
rcPhysicalResourceId :: Lens' ResourceChange (Maybe Text)
rcPhysicalResourceId = lens _rcPhysicalResourceId (\ s a -> s{_rcPhysicalResourceId = a})
rcResourceType :: Lens' ResourceChange (Maybe Text)
rcResourceType = lens _rcResourceType (\ s a -> s{_rcResourceType = a})
rcAction :: Lens' ResourceChange (Maybe ChangeAction)
rcAction = lens _rcAction (\ s a -> s{_rcAction = a})
rcScope :: Lens' ResourceChange [ResourceAttribute]
rcScope = lens _rcScope (\ s a -> s{_rcScope = a}) . _Default . _Coerce
rcDetails :: Lens' ResourceChange [ResourceChangeDetail]
rcDetails = lens _rcDetails (\ s a -> s{_rcDetails = a}) . _Default . _Coerce
rcReplacement :: Lens' ResourceChange (Maybe Replacement)
rcReplacement = lens _rcReplacement (\ s a -> s{_rcReplacement = a})
instance FromJSON ResourceChange where
parseJSON
= withObject "ResourceChange"
(\ x ->
ResourceChange' <$>
(x .:? "LogicalResourceId") <*>
(x .:? "PhysicalResourceId")
<*> (x .:? "ResourceType")
<*> (x .:? "Action")
<*> (x .:? "Scope" .!= mempty)
<*> (x .:? "Details" .!= mempty)
<*> (x .:? "Replacement"))
instance Hashable ResourceChange where
instance NFData ResourceChange where
data ResourceChangeDetail = ResourceChangeDetail'
{ _rcdCausingEntity :: !(Maybe Text)
, _rcdEvaluation :: !(Maybe EvaluationType)
, _rcdTarget :: !(Maybe ResourceTargetDefinition)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceChangeDetail
:: ResourceChangeDetail
resourceChangeDetail =
ResourceChangeDetail'
{ _rcdCausingEntity = Nothing
, _rcdEvaluation = Nothing
, _rcdTarget = Nothing
}
rcdCausingEntity :: Lens' ResourceChangeDetail (Maybe Text)
rcdCausingEntity = lens _rcdCausingEntity (\ s a -> s{_rcdCausingEntity = a})
rcdEvaluation :: Lens' ResourceChangeDetail (Maybe EvaluationType)
rcdEvaluation = lens _rcdEvaluation (\ s a -> s{_rcdEvaluation = a})
rcdTarget :: Lens' ResourceChangeDetail (Maybe ResourceTargetDefinition)
rcdTarget = lens _rcdTarget (\ s a -> s{_rcdTarget = a})
instance FromJSON ResourceChangeDetail where
parseJSON
= withObject "ResourceChangeDetail"
(\ x ->
ResourceChangeDetail' <$>
(x .:? "CausingEntity") <*> (x .:? "Evaluation") <*>
(x .:? "Target"))
instance Hashable ResourceChangeDetail where
instance NFData ResourceChangeDetail 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 ResourceTargetDefinition = ResourceTargetDefinition'
{ _rtdAttribute :: !(Maybe ResourceAttribute)
, _rtdRequiresRecreation :: !(Maybe RequiresRecreation)
, _rtdName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
resourceTargetDefinition
:: ResourceTargetDefinition
resourceTargetDefinition =
ResourceTargetDefinition'
{ _rtdAttribute = Nothing
, _rtdRequiresRecreation = Nothing
, _rtdName = Nothing
}
rtdAttribute :: Lens' ResourceTargetDefinition (Maybe ResourceAttribute)
rtdAttribute = lens _rtdAttribute (\ s a -> s{_rtdAttribute = a})
rtdRequiresRecreation :: Lens' ResourceTargetDefinition (Maybe RequiresRecreation)
rtdRequiresRecreation = lens _rtdRequiresRecreation (\ s a -> s{_rtdRequiresRecreation = a})
rtdName :: Lens' ResourceTargetDefinition (Maybe Text)
rtdName = lens _rtdName (\ s a -> s{_rtdName = a})
instance FromJSON ResourceTargetDefinition where
parseJSON
= withObject "ResourceTargetDefinition"
(\ x ->
ResourceTargetDefinition' <$>
(x .:? "Attribute") <*> (x .:? "RequiresRecreation")
<*> (x .:? "Name"))
instance Hashable ResourceTargetDefinition where
instance NFData ResourceTargetDefinition 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 FromJSON UpdateProvisioningParameter where
parseJSON
= withObject "UpdateProvisioningParameter"
(\ x ->
UpdateProvisioningParameter' <$>
(x .:? "Value") <*> (x .:? "Key") <*>
(x .:? "UsePreviousValue"))
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