module Network.AWS.ServiceCatalog.ListProvisioningArtifacts
(
listProvisioningArtifacts
, ListProvisioningArtifacts
, lpaAcceptLanguage
, lpaProductId
, listProvisioningArtifactsResponse
, ListProvisioningArtifactsResponse
, lrsNextPageToken
, lrsProvisioningArtifactDetails
, lrsResponseStatus
) 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 ListProvisioningArtifacts = ListProvisioningArtifacts'
{ _lpaAcceptLanguage :: !(Maybe Text)
, _lpaProductId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProvisioningArtifacts
:: Text
-> ListProvisioningArtifacts
listProvisioningArtifacts pProductId_ =
ListProvisioningArtifacts'
{_lpaAcceptLanguage = Nothing, _lpaProductId = pProductId_}
lpaAcceptLanguage :: Lens' ListProvisioningArtifacts (Maybe Text)
lpaAcceptLanguage = lens _lpaAcceptLanguage (\ s a -> s{_lpaAcceptLanguage = a});
lpaProductId :: Lens' ListProvisioningArtifacts Text
lpaProductId = lens _lpaProductId (\ s a -> s{_lpaProductId = a});
instance AWSRequest ListProvisioningArtifacts where
type Rs ListProvisioningArtifacts =
ListProvisioningArtifactsResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
ListProvisioningArtifactsResponse' <$>
(x .?> "NextPageToken") <*>
(x .?> "ProvisioningArtifactDetails" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListProvisioningArtifacts where
instance NFData ListProvisioningArtifacts where
instance ToHeaders ListProvisioningArtifacts where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.ListProvisioningArtifacts"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListProvisioningArtifacts where
toJSON ListProvisioningArtifacts'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _lpaAcceptLanguage,
Just ("ProductId" .= _lpaProductId)])
instance ToPath ListProvisioningArtifacts where
toPath = const "/"
instance ToQuery ListProvisioningArtifacts where
toQuery = const mempty
data ListProvisioningArtifactsResponse = ListProvisioningArtifactsResponse'
{ _lrsNextPageToken :: !(Maybe Text)
, _lrsProvisioningArtifactDetails :: !(Maybe [ProvisioningArtifactDetail])
, _lrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listProvisioningArtifactsResponse
:: Int
-> ListProvisioningArtifactsResponse
listProvisioningArtifactsResponse pResponseStatus_ =
ListProvisioningArtifactsResponse'
{ _lrsNextPageToken = Nothing
, _lrsProvisioningArtifactDetails = Nothing
, _lrsResponseStatus = pResponseStatus_
}
lrsNextPageToken :: Lens' ListProvisioningArtifactsResponse (Maybe Text)
lrsNextPageToken = lens _lrsNextPageToken (\ s a -> s{_lrsNextPageToken = a});
lrsProvisioningArtifactDetails :: Lens' ListProvisioningArtifactsResponse [ProvisioningArtifactDetail]
lrsProvisioningArtifactDetails = lens _lrsProvisioningArtifactDetails (\ s a -> s{_lrsProvisioningArtifactDetails = a}) . _Default . _Coerce;
lrsResponseStatus :: Lens' ListProvisioningArtifactsResponse Int
lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});
instance NFData ListProvisioningArtifactsResponse
where