module Network.AWS.ServiceCatalog.DescribeProvisioningParameters
(
describeProvisioningParameters
, DescribeProvisioningParameters
, dppsAcceptLanguage
, dppsPathId
, dppsProductId
, dppsProvisioningArtifactId
, describeProvisioningParametersResponse
, DescribeProvisioningParametersResponse
, dpprsProvisioningArtifactParameters
, dpprsUsageInstructions
, dpprsConstraintSummaries
, dpprsTagOptions
, dpprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.ServiceCatalog.Types
import Network.AWS.ServiceCatalog.Types.Product
data DescribeProvisioningParameters = DescribeProvisioningParameters'
{ _dppsAcceptLanguage :: !(Maybe Text)
, _dppsPathId :: !(Maybe Text)
, _dppsProductId :: !Text
, _dppsProvisioningArtifactId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeProvisioningParameters
:: Text
-> Text
-> DescribeProvisioningParameters
describeProvisioningParameters pProductId_ pProvisioningArtifactId_ =
DescribeProvisioningParameters'
{ _dppsAcceptLanguage = Nothing
, _dppsPathId = Nothing
, _dppsProductId = pProductId_
, _dppsProvisioningArtifactId = pProvisioningArtifactId_
}
dppsAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text)
dppsAcceptLanguage = lens _dppsAcceptLanguage (\ s a -> s{_dppsAcceptLanguage = a});
dppsPathId :: Lens' DescribeProvisioningParameters (Maybe Text)
dppsPathId = lens _dppsPathId (\ s a -> s{_dppsPathId = a});
dppsProductId :: Lens' DescribeProvisioningParameters Text
dppsProductId = lens _dppsProductId (\ s a -> s{_dppsProductId = a});
dppsProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text
dppsProvisioningArtifactId = lens _dppsProvisioningArtifactId (\ s a -> s{_dppsProvisioningArtifactId = a});
instance AWSRequest DescribeProvisioningParameters
where
type Rs DescribeProvisioningParameters =
DescribeProvisioningParametersResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
DescribeProvisioningParametersResponse' <$>
(x .?> "ProvisioningArtifactParameters" .!@ mempty)
<*> (x .?> "UsageInstructions" .!@ mempty)
<*> (x .?> "ConstraintSummaries" .!@ mempty)
<*> (x .?> "TagOptions" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeProvisioningParameters
where
instance NFData DescribeProvisioningParameters where
instance ToHeaders DescribeProvisioningParameters
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.DescribeProvisioningParameters"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeProvisioningParameters where
toJSON DescribeProvisioningParameters'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _dppsAcceptLanguage,
("PathId" .=) <$> _dppsPathId,
Just ("ProductId" .= _dppsProductId),
Just
("ProvisioningArtifactId" .=
_dppsProvisioningArtifactId)])
instance ToPath DescribeProvisioningParameters where
toPath = const "/"
instance ToQuery DescribeProvisioningParameters where
toQuery = const mempty
data DescribeProvisioningParametersResponse = DescribeProvisioningParametersResponse'
{ _dpprsProvisioningArtifactParameters :: !(Maybe [ProvisioningArtifactParameter])
, _dpprsUsageInstructions :: !(Maybe [UsageInstruction])
, _dpprsConstraintSummaries :: !(Maybe [ConstraintSummary])
, _dpprsTagOptions :: !(Maybe [TagOptionSummary])
, _dpprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeProvisioningParametersResponse
:: Int
-> DescribeProvisioningParametersResponse
describeProvisioningParametersResponse pResponseStatus_ =
DescribeProvisioningParametersResponse'
{ _dpprsProvisioningArtifactParameters = Nothing
, _dpprsUsageInstructions = Nothing
, _dpprsConstraintSummaries = Nothing
, _dpprsTagOptions = Nothing
, _dpprsResponseStatus = pResponseStatus_
}
dpprsProvisioningArtifactParameters :: Lens' DescribeProvisioningParametersResponse [ProvisioningArtifactParameter]
dpprsProvisioningArtifactParameters = lens _dpprsProvisioningArtifactParameters (\ s a -> s{_dpprsProvisioningArtifactParameters = a}) . _Default . _Coerce;
dpprsUsageInstructions :: Lens' DescribeProvisioningParametersResponse [UsageInstruction]
dpprsUsageInstructions = lens _dpprsUsageInstructions (\ s a -> s{_dpprsUsageInstructions = a}) . _Default . _Coerce;
dpprsConstraintSummaries :: Lens' DescribeProvisioningParametersResponse [ConstraintSummary]
dpprsConstraintSummaries = lens _dpprsConstraintSummaries (\ s a -> s{_dpprsConstraintSummaries = a}) . _Default . _Coerce;
dpprsTagOptions :: Lens' DescribeProvisioningParametersResponse [TagOptionSummary]
dpprsTagOptions = lens _dpprsTagOptions (\ s a -> s{_dpprsTagOptions = a}) . _Default . _Coerce;
dpprsResponseStatus :: Lens' DescribeProvisioningParametersResponse Int
dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a});
instance NFData
DescribeProvisioningParametersResponse
where