module Network.AWS.ServiceCatalog.UpdatePortfolio
(
updatePortfolio
, UpdatePortfolio
, uRemoveTags
, uAcceptLanguage
, uDisplayName
, uAddTags
, uDescription
, uProviderName
, uId
, updatePortfolioResponse
, UpdatePortfolioResponse
, uprsPortfolioDetail
, uprsTags
, uprsResponseStatus
) 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 UpdatePortfolio = UpdatePortfolio'
{ _uRemoveTags :: !(Maybe [Text])
, _uAcceptLanguage :: !(Maybe Text)
, _uDisplayName :: !(Maybe Text)
, _uAddTags :: !(Maybe [Tag])
, _uDescription :: !(Maybe Text)
, _uProviderName :: !(Maybe Text)
, _uId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePortfolio
:: Text
-> UpdatePortfolio
updatePortfolio pId_ =
UpdatePortfolio'
{ _uRemoveTags = Nothing
, _uAcceptLanguage = Nothing
, _uDisplayName = Nothing
, _uAddTags = Nothing
, _uDescription = Nothing
, _uProviderName = Nothing
, _uId = pId_
}
uRemoveTags :: Lens' UpdatePortfolio [Text]
uRemoveTags = lens _uRemoveTags (\ s a -> s{_uRemoveTags = a}) . _Default . _Coerce;
uAcceptLanguage :: Lens' UpdatePortfolio (Maybe Text)
uAcceptLanguage = lens _uAcceptLanguage (\ s a -> s{_uAcceptLanguage = a});
uDisplayName :: Lens' UpdatePortfolio (Maybe Text)
uDisplayName = lens _uDisplayName (\ s a -> s{_uDisplayName = a});
uAddTags :: Lens' UpdatePortfolio [Tag]
uAddTags = lens _uAddTags (\ s a -> s{_uAddTags = a}) . _Default . _Coerce;
uDescription :: Lens' UpdatePortfolio (Maybe Text)
uDescription = lens _uDescription (\ s a -> s{_uDescription = a});
uProviderName :: Lens' UpdatePortfolio (Maybe Text)
uProviderName = lens _uProviderName (\ s a -> s{_uProviderName = a});
uId :: Lens' UpdatePortfolio Text
uId = lens _uId (\ s a -> s{_uId = a});
instance AWSRequest UpdatePortfolio where
type Rs UpdatePortfolio = UpdatePortfolioResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
UpdatePortfolioResponse' <$>
(x .?> "PortfolioDetail") <*>
(x .?> "Tags" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable UpdatePortfolio where
instance NFData UpdatePortfolio where
instance ToHeaders UpdatePortfolio where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.UpdatePortfolio" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdatePortfolio where
toJSON UpdatePortfolio'{..}
= object
(catMaybes
[("RemoveTags" .=) <$> _uRemoveTags,
("AcceptLanguage" .=) <$> _uAcceptLanguage,
("DisplayName" .=) <$> _uDisplayName,
("AddTags" .=) <$> _uAddTags,
("Description" .=) <$> _uDescription,
("ProviderName" .=) <$> _uProviderName,
Just ("Id" .= _uId)])
instance ToPath UpdatePortfolio where
toPath = const "/"
instance ToQuery UpdatePortfolio where
toQuery = const mempty
data UpdatePortfolioResponse = UpdatePortfolioResponse'
{ _uprsPortfolioDetail :: !(Maybe PortfolioDetail)
, _uprsTags :: !(Maybe [Tag])
, _uprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updatePortfolioResponse
:: Int
-> UpdatePortfolioResponse
updatePortfolioResponse pResponseStatus_ =
UpdatePortfolioResponse'
{ _uprsPortfolioDetail = Nothing
, _uprsTags = Nothing
, _uprsResponseStatus = pResponseStatus_
}
uprsPortfolioDetail :: Lens' UpdatePortfolioResponse (Maybe PortfolioDetail)
uprsPortfolioDetail = lens _uprsPortfolioDetail (\ s a -> s{_uprsPortfolioDetail = a});
uprsTags :: Lens' UpdatePortfolioResponse [Tag]
uprsTags = lens _uprsTags (\ s a -> s{_uprsTags = a}) . _Default . _Coerce;
uprsResponseStatus :: Lens' UpdatePortfolioResponse Int
uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});
instance NFData UpdatePortfolioResponse where