{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.ServiceCatalog.DescribeProvisioningParameters
(
describeProvisioningParameters
, DescribeProvisioningParameters
, dppAcceptLanguage
, dppPathId
, dppProductId
, dppProvisioningArtifactId
, describeProvisioningParametersResponse
, DescribeProvisioningParametersResponse
, dpprsProvisioningArtifactParameters
, dpprsUsageInstructions
, dpprsConstraintSummaries
, 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'
{ _dppAcceptLanguage :: !(Maybe Text)
, _dppPathId :: !(Maybe Text)
, _dppProductId :: !Text
, _dppProvisioningArtifactId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeProvisioningParameters
:: Text
-> Text
-> DescribeProvisioningParameters
describeProvisioningParameters pProductId_ pProvisioningArtifactId_ =
DescribeProvisioningParameters'
{ _dppAcceptLanguage = Nothing
, _dppPathId = Nothing
, _dppProductId = pProductId_
, _dppProvisioningArtifactId = pProvisioningArtifactId_
}
dppAcceptLanguage :: Lens' DescribeProvisioningParameters (Maybe Text)
dppAcceptLanguage = lens _dppAcceptLanguage (\ s a -> s{_dppAcceptLanguage = a});
dppPathId :: Lens' DescribeProvisioningParameters (Maybe Text)
dppPathId = lens _dppPathId (\ s a -> s{_dppPathId = a});
dppProductId :: Lens' DescribeProvisioningParameters Text
dppProductId = lens _dppProductId (\ s a -> s{_dppProductId = a});
dppProvisioningArtifactId :: Lens' DescribeProvisioningParameters Text
dppProvisioningArtifactId = lens _dppProvisioningArtifactId (\ s a -> s{_dppProvisioningArtifactId = 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)
<*> (pure (fromEnum s)))
instance Hashable DescribeProvisioningParameters
instance NFData DescribeProvisioningParameters
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" .=) <$> _dppAcceptLanguage,
("PathId" .=) <$> _dppPathId,
Just ("ProductId" .= _dppProductId),
Just
("ProvisioningArtifactId" .=
_dppProvisioningArtifactId)])
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])
, _dpprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeProvisioningParametersResponse
:: Int
-> DescribeProvisioningParametersResponse
describeProvisioningParametersResponse pResponseStatus_ =
DescribeProvisioningParametersResponse'
{ _dpprsProvisioningArtifactParameters = Nothing
, _dpprsUsageInstructions = Nothing
, _dpprsConstraintSummaries = 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;
dpprsResponseStatus :: Lens' DescribeProvisioningParametersResponse Int
dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a});
instance NFData
DescribeProvisioningParametersResponse