{-# 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.ListPrincipalsForPortfolio
(
listPrincipalsForPortfolio
, ListPrincipalsForPortfolio
, lpfpAcceptLanguage
, lpfpPageToken
, lpfpPageSize
, lpfpPortfolioId
, listPrincipalsForPortfolioResponse
, ListPrincipalsForPortfolioResponse
, lisrsNextPageToken
, lisrsPrincipals
, lisrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.ServiceCatalog.Types
import Network.AWS.ServiceCatalog.Types.Product
data ListPrincipalsForPortfolio = ListPrincipalsForPortfolio'
{ _lpfpAcceptLanguage :: !(Maybe Text)
, _lpfpPageToken :: !(Maybe Text)
, _lpfpPageSize :: !(Maybe Nat)
, _lpfpPortfolioId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPrincipalsForPortfolio
:: Text
-> ListPrincipalsForPortfolio
listPrincipalsForPortfolio pPortfolioId_ =
ListPrincipalsForPortfolio'
{ _lpfpAcceptLanguage = Nothing
, _lpfpPageToken = Nothing
, _lpfpPageSize = Nothing
, _lpfpPortfolioId = pPortfolioId_
}
lpfpAcceptLanguage :: Lens' ListPrincipalsForPortfolio (Maybe Text)
lpfpAcceptLanguage = lens _lpfpAcceptLanguage (\ s a -> s{_lpfpAcceptLanguage = a})
lpfpPageToken :: Lens' ListPrincipalsForPortfolio (Maybe Text)
lpfpPageToken = lens _lpfpPageToken (\ s a -> s{_lpfpPageToken = a})
lpfpPageSize :: Lens' ListPrincipalsForPortfolio (Maybe Natural)
lpfpPageSize = lens _lpfpPageSize (\ s a -> s{_lpfpPageSize = a}) . mapping _Nat
lpfpPortfolioId :: Lens' ListPrincipalsForPortfolio Text
lpfpPortfolioId = lens _lpfpPortfolioId (\ s a -> s{_lpfpPortfolioId = a})
instance AWSPager ListPrincipalsForPortfolio where
page rq rs
| stop (rs ^. lisrsNextPageToken) = Nothing
| stop (rs ^. lisrsPrincipals) = Nothing
| otherwise =
Just $ rq & lpfpPageToken .~ rs ^. lisrsNextPageToken
instance AWSRequest ListPrincipalsForPortfolio where
type Rs ListPrincipalsForPortfolio =
ListPrincipalsForPortfolioResponse
request = postJSON serviceCatalog
response
= receiveJSON
(\ s h x ->
ListPrincipalsForPortfolioResponse' <$>
(x .?> "NextPageToken") <*>
(x .?> "Principals" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListPrincipalsForPortfolio where
instance NFData ListPrincipalsForPortfolio where
instance ToHeaders ListPrincipalsForPortfolio where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWS242ServiceCatalogService.ListPrincipalsForPortfolio"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListPrincipalsForPortfolio where
toJSON ListPrincipalsForPortfolio'{..}
= object
(catMaybes
[("AcceptLanguage" .=) <$> _lpfpAcceptLanguage,
("PageToken" .=) <$> _lpfpPageToken,
("PageSize" .=) <$> _lpfpPageSize,
Just ("PortfolioId" .= _lpfpPortfolioId)])
instance ToPath ListPrincipalsForPortfolio where
toPath = const "/"
instance ToQuery ListPrincipalsForPortfolio where
toQuery = const mempty
data ListPrincipalsForPortfolioResponse = ListPrincipalsForPortfolioResponse'
{ _lisrsNextPageToken :: !(Maybe Text)
, _lisrsPrincipals :: !(Maybe [Principal])
, _lisrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listPrincipalsForPortfolioResponse
:: Int
-> ListPrincipalsForPortfolioResponse
listPrincipalsForPortfolioResponse pResponseStatus_ =
ListPrincipalsForPortfolioResponse'
{ _lisrsNextPageToken = Nothing
, _lisrsPrincipals = Nothing
, _lisrsResponseStatus = pResponseStatus_
}
lisrsNextPageToken :: Lens' ListPrincipalsForPortfolioResponse (Maybe Text)
lisrsNextPageToken = lens _lisrsNextPageToken (\ s a -> s{_lisrsNextPageToken = a})
lisrsPrincipals :: Lens' ListPrincipalsForPortfolioResponse [Principal]
lisrsPrincipals = lens _lisrsPrincipals (\ s a -> s{_lisrsPrincipals = a}) . _Default . _Coerce
lisrsResponseStatus :: Lens' ListPrincipalsForPortfolioResponse Int
lisrsResponseStatus = lens _lisrsResponseStatus (\ s a -> s{_lisrsResponseStatus = a})
instance NFData ListPrincipalsForPortfolioResponse
where