module Network.AWS.IAM.ListOpenIdConnectProviders
(
listOpenIdConnectProviders
, ListOpenIdConnectProviders
, listOpenIdConnectProvidersResponse
, ListOpenIdConnectProvidersResponse
, loicprsOpenIdConnectProviderList
, loicprsStatus
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListOpenIdConnectProviders =
ListOpenIdConnectProviders'
deriving (Eq,Read,Show,Data,Typeable,Generic)
listOpenIdConnectProviders
:: ListOpenIdConnectProviders
listOpenIdConnectProviders = ListOpenIdConnectProviders'
instance AWSRequest ListOpenIdConnectProviders where
type Sv ListOpenIdConnectProviders = IAM
type Rs ListOpenIdConnectProviders =
ListOpenIdConnectProvidersResponse
request = postQuery
response
= receiveXMLWrapper
"ListOpenIDConnectProvidersResult"
(\ s h x ->
ListOpenIdConnectProvidersResponse' <$>
(x .@? "OpenIDConnectProviderList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders ListOpenIdConnectProviders where
toHeaders = const mempty
instance ToPath ListOpenIdConnectProviders where
toPath = const "/"
instance ToQuery ListOpenIdConnectProviders where
toQuery
= const
(mconcat
["Action" =:
("ListOpenIDConnectProviders" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString)])
data ListOpenIdConnectProvidersResponse = ListOpenIdConnectProvidersResponse'
{ _loicprsOpenIdConnectProviderList :: !(Maybe [OpenIdConnectProviderListEntry])
, _loicprsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listOpenIdConnectProvidersResponse
:: Int
-> ListOpenIdConnectProvidersResponse
listOpenIdConnectProvidersResponse pStatus_ =
ListOpenIdConnectProvidersResponse'
{ _loicprsOpenIdConnectProviderList = Nothing
, _loicprsStatus = pStatus_
}
loicprsOpenIdConnectProviderList :: Lens' ListOpenIdConnectProvidersResponse [OpenIdConnectProviderListEntry]
loicprsOpenIdConnectProviderList = lens _loicprsOpenIdConnectProviderList (\ s a -> s{_loicprsOpenIdConnectProviderList = a}) . _Default . _Coerce;
loicprsStatus :: Lens' ListOpenIdConnectProvidersResponse Int
loicprsStatus = lens _loicprsStatus (\ s a -> s{_loicprsStatus = a});