{-# 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.DescribeProvisionedProductPlan
(
describeProvisionedProductPlan
, DescribeProvisionedProductPlan
, dpppAcceptLanguage
, dpppPageToken
, dpppPageSize
, dpppPlanId
, describeProvisionedProductPlanResponse
, DescribeProvisionedProductPlanResponse
, dpppprsNextPageToken
, dpppprsProvisionedProductPlanDetails
, dpppprsResourceChanges
, dpppprsResponseStatus
) 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 DescribeProvisionedProductPlan = DescribeProvisionedProductPlan'
{ _dpppAcceptLanguage :: !(Maybe Text)
, _dpppPageToken :: !(Maybe Text)
, _dpppPageSize :: !(Maybe Nat)
, _dpppPlanId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeProvisionedProductPlan
:: Text
-> DescribeProvisionedProductPlan
describeProvisionedProductPlan pPlanId_ =
DescribeProvisionedProductPlan'
{ _dpppAcceptLanguage = Nothing
, _dpppPageToken = Nothing
, _dpppPageSize = Nothing
, _dpppPlanId = pPlanId_
}
dpppAcceptLanguage :: Lens' DescribeProvisionedProductPlan (Maybe Text)
dpppAcceptLanguage = lens _dpppAcceptLanguage (\ s a -> s{_dpppAcceptLanguage = a})
dpppPageToken :: Lens' DescribeProvisionedProductPlan (Maybe Text)
dpppPageToken = lens _dpppPageToken (\ s a -> s{_dpppPageToken = a})
dpppPageSize :: Lens' DescribeProvisionedProductPlan (Maybe Natural)
dpppPageSize = lens _dpppPageSize (\ s a -> s{_dpppPageSize = a}) . mapping _Nat
dpppPlanId :: Lens' DescribeProvisionedProductPlan Text
dpppPlanId = lens _dpppPlanId (\ s a -> s{_dpppPlanId = a})
instance AWSRequest DescribeProvisionedProductPlan
where
type Rs DescribeProvisionedProductPlan =
DescribeProvisionedProductPlanResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
DescribeProvisionedProductPlanResponse' <$>
(x .?> "NextPageToken") <*>
(x .?> "ProvisionedProductPlanDetails")
<*> (x .?> "ResourceChanges" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeProvisionedProductPlan
where
instance NFData DescribeProvisionedProductPlan where
instance ToHeaders DescribeProvisionedProductPlan
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.DescribeProvisionedProductPlan"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeProvisionedProductPlan where
toJSON DescribeProvisionedProductPlan'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _dpppAcceptLanguage,
("PageToken" .=) <$> _dpppPageToken,
("PageSize" .=) <$> _dpppPageSize,
Just ("PlanId" .= _dpppPlanId)])
instance ToPath DescribeProvisionedProductPlan where
toPath = const "/"
instance ToQuery DescribeProvisionedProductPlan where
toQuery = const mempty
data DescribeProvisionedProductPlanResponse = DescribeProvisionedProductPlanResponse'
{ _dpppprsNextPageToken :: !(Maybe Text)
, _dpppprsProvisionedProductPlanDetails :: !(Maybe ProvisionedProductPlanDetails)
, _dpppprsResourceChanges :: !(Maybe [ResourceChange])
, _dpppprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeProvisionedProductPlanResponse
:: Int
-> DescribeProvisionedProductPlanResponse
describeProvisionedProductPlanResponse pResponseStatus_ =
DescribeProvisionedProductPlanResponse'
{ _dpppprsNextPageToken = Nothing
, _dpppprsProvisionedProductPlanDetails = Nothing
, _dpppprsResourceChanges = Nothing
, _dpppprsResponseStatus = pResponseStatus_
}
dpppprsNextPageToken :: Lens' DescribeProvisionedProductPlanResponse (Maybe Text)
dpppprsNextPageToken = lens _dpppprsNextPageToken (\ s a -> s{_dpppprsNextPageToken = a})
dpppprsProvisionedProductPlanDetails :: Lens' DescribeProvisionedProductPlanResponse (Maybe ProvisionedProductPlanDetails)
dpppprsProvisionedProductPlanDetails = lens _dpppprsProvisionedProductPlanDetails (\ s a -> s{_dpppprsProvisionedProductPlanDetails = a})
dpppprsResourceChanges :: Lens' DescribeProvisionedProductPlanResponse [ResourceChange]
dpppprsResourceChanges = lens _dpppprsResourceChanges (\ s a -> s{_dpppprsResourceChanges = a}) . _Default . _Coerce
dpppprsResponseStatus :: Lens' DescribeProvisionedProductPlanResponse Int
dpppprsResponseStatus = lens _dpppprsResponseStatus (\ s a -> s{_dpppprsResponseStatus = a})
instance NFData
DescribeProvisionedProductPlanResponse
where