{-# 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.IAM.ListSAMLProviders
(
listSAMLProviders
, ListSAMLProviders
, listSAMLProvidersResponse
, ListSAMLProvidersResponse
, lsamlprsSAMLProviderList
, lsamlprsResponseStatus
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListSAMLProviders =
ListSAMLProviders'
deriving (Eq,Read,Show,Data,Typeable,Generic)
listSAMLProviders
:: ListSAMLProviders
listSAMLProviders = ListSAMLProviders'
instance AWSRequest ListSAMLProviders where
type Rs ListSAMLProviders = ListSAMLProvidersResponse
request = postQuery iam
response
= receiveXMLWrapper "ListSAMLProvidersResult"
(\ s h x ->
ListSAMLProvidersResponse' <$>
(x .@? "SAMLProviderList" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable ListSAMLProviders
instance NFData ListSAMLProviders
instance ToHeaders ListSAMLProviders where
toHeaders = const mempty
instance ToPath ListSAMLProviders where
toPath = const "/"
instance ToQuery ListSAMLProviders where
toQuery
= const
(mconcat
["Action" =: ("ListSAMLProviders" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString)])
data ListSAMLProvidersResponse = ListSAMLProvidersResponse'
{ _lsamlprsSAMLProviderList :: !(Maybe [SAMLProviderListEntry])
, _lsamlprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSAMLProvidersResponse
:: Int
-> ListSAMLProvidersResponse
listSAMLProvidersResponse pResponseStatus_ =
ListSAMLProvidersResponse'
{ _lsamlprsSAMLProviderList = Nothing
, _lsamlprsResponseStatus = pResponseStatus_
}
lsamlprsSAMLProviderList :: Lens' ListSAMLProvidersResponse [SAMLProviderListEntry]
lsamlprsSAMLProviderList = lens _lsamlprsSAMLProviderList (\ s a -> s{_lsamlprsSAMLProviderList = a}) . _Default . _Coerce;
lsamlprsResponseStatus :: Lens' ListSAMLProvidersResponse Int
lsamlprsResponseStatus = lens _lsamlprsResponseStatus (\ s a -> s{_lsamlprsResponseStatus = a});
instance NFData ListSAMLProvidersResponse