{-# 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.CreatePortfolio
(
createPortfolio
, CreatePortfolio
, cAcceptLanguage
, cDescription
, cTags
, cDisplayName
, cProviderName
, cIdempotencyToken
, createPortfolioResponse
, CreatePortfolioResponse
, crsPortfolioDetail
, crsTags
, crsResponseStatus
) 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 CreatePortfolio = CreatePortfolio'
{ _cAcceptLanguage :: !(Maybe Text)
, _cDescription :: !(Maybe Text)
, _cTags :: !(Maybe [Tag])
, _cDisplayName :: !Text
, _cProviderName :: !Text
, _cIdempotencyToken :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createPortfolio
:: Text
-> Text
-> Text
-> CreatePortfolio
createPortfolio pDisplayName_ pProviderName_ pIdempotencyToken_ =
CreatePortfolio'
{ _cAcceptLanguage = Nothing
, _cDescription = Nothing
, _cTags = Nothing
, _cDisplayName = pDisplayName_
, _cProviderName = pProviderName_
, _cIdempotencyToken = pIdempotencyToken_
}
cAcceptLanguage :: Lens' CreatePortfolio (Maybe Text)
cAcceptLanguage = lens _cAcceptLanguage (\ s a -> s{_cAcceptLanguage = a});
cDescription :: Lens' CreatePortfolio (Maybe Text)
cDescription = lens _cDescription (\ s a -> s{_cDescription = a});
cTags :: Lens' CreatePortfolio [Tag]
cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce;
cDisplayName :: Lens' CreatePortfolio Text
cDisplayName = lens _cDisplayName (\ s a -> s{_cDisplayName = a});
cProviderName :: Lens' CreatePortfolio Text
cProviderName = lens _cProviderName (\ s a -> s{_cProviderName = a});
cIdempotencyToken :: Lens' CreatePortfolio Text
cIdempotencyToken = lens _cIdempotencyToken (\ s a -> s{_cIdempotencyToken = a});
instance AWSRequest CreatePortfolio where
type Rs CreatePortfolio = CreatePortfolioResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
CreatePortfolioResponse' <$>
(x .?> "PortfolioDetail") <*>
(x .?> "Tags" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable CreatePortfolio
instance NFData CreatePortfolio
instance ToHeaders CreatePortfolio where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.CreatePortfolio" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreatePortfolio where
toJSON CreatePortfolio'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _cAcceptLanguage,
("Description" .=) <$> _cDescription,
("Tags" .=) <$> _cTags,
Just ("DisplayName" .= _cDisplayName),
Just ("ProviderName" .= _cProviderName),
Just ("IdempotencyToken" .= _cIdempotencyToken)])
instance ToPath CreatePortfolio where
toPath = const "/"
instance ToQuery CreatePortfolio where
toQuery = const mempty
data CreatePortfolioResponse = CreatePortfolioResponse'
{ _crsPortfolioDetail :: !(Maybe PortfolioDetail)
, _crsTags :: !(Maybe [Tag])
, _crsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createPortfolioResponse
:: Int
-> CreatePortfolioResponse
createPortfolioResponse pResponseStatus_ =
CreatePortfolioResponse'
{ _crsPortfolioDetail = Nothing
, _crsTags = Nothing
, _crsResponseStatus = pResponseStatus_
}
crsPortfolioDetail :: Lens' CreatePortfolioResponse (Maybe PortfolioDetail)
crsPortfolioDetail = lens _crsPortfolioDetail (\ s a -> s{_crsPortfolioDetail = a});
crsTags :: Lens' CreatePortfolioResponse [Tag]
crsTags = lens _crsTags (\ s a -> s{_crsTags = a}) . _Default . _Coerce;
crsResponseStatus :: Lens' CreatePortfolioResponse Int
crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});
instance NFData CreatePortfolioResponse