{-# 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
instance NFData AccessLevelFilter
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
instance NFData ConstraintDetail
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
instance NFData ConstraintSummary
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
instance NFData LaunchPathSummary
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
instance NFData ListRecordHistorySearchFilter
instance ToJSON ListRecordHistorySearchFilter where
toJSON ListRecordHistorySearchFilter'{..}
= object
(catMaybes
[("Value" .=) <$> _lrhsfValue,
("Key" .=) <$> _lrhsfKey])
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
instance NFData ParameterConstraints
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
instance NFData PortfolioDetail
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
instance NFData Principal
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
instance NFData ProductViewAggregationValue
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
instance NFData ProductViewDetail
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
instance NFData ProductViewSummary
data ProvisionedProductDetail = ProvisionedProductDetail'
{ _ppdIdempotencyToken :: !(Maybe Text)
, _ppdStatus :: !(Maybe RecordStatus)
, _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 RecordStatus)
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
instance NFData ProvisionedProductDetail
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
instance NFData ProvisioningArtifact
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
instance NFData ProvisioningArtifactDetail
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
instance NFData ProvisioningArtifactParameter
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
instance NFData ProvisioningArtifactProperties
instance ToJSON ProvisioningArtifactProperties where
toJSON ProvisioningArtifactProperties'{..}
= object
(catMaybes
[("Name" .=) <$> _papName, ("Type" .=) <$> _papType,
("Description" .=) <$> _papDescription,
Just ("Info" .= _papInfo)])
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
instance NFData ProvisioningParameter
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
instance NFData RecordDetail
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
instance NFData RecordError
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
instance NFData RecordOutput
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
instance NFData RecordTag
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
instance NFData Tag
instance ToJSON Tag where
toJSON Tag'{..}
= object
(catMaybes
[Just ("Key" .= _tagKey),
Just ("Value" .= _tagValue)])
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
instance NFData UpdateProvisioningParameter
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
instance NFData UsageInstruction