{-# 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.DeleteOpenIdConnectProvider
(
deleteOpenIdConnectProvider
, DeleteOpenIdConnectProvider
, doicpOpenIdConnectProviderARN
, deleteOpenIdConnectProviderResponse
, DeleteOpenIdConnectProviderResponse
) 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
newtype DeleteOpenIdConnectProvider = DeleteOpenIdConnectProvider'
{ _doicpOpenIdConnectProviderARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteOpenIdConnectProvider
:: Text
-> DeleteOpenIdConnectProvider
deleteOpenIdConnectProvider pOpenIdConnectProviderARN_ =
DeleteOpenIdConnectProvider'
{ _doicpOpenIdConnectProviderARN = pOpenIdConnectProviderARN_
}
doicpOpenIdConnectProviderARN :: Lens' DeleteOpenIdConnectProvider Text
doicpOpenIdConnectProviderARN = lens _doicpOpenIdConnectProviderARN (\ s a -> s{_doicpOpenIdConnectProviderARN = a});
instance AWSRequest DeleteOpenIdConnectProvider where
type Rs DeleteOpenIdConnectProvider =
DeleteOpenIdConnectProviderResponse
request = postQuery iam
response
= receiveNull DeleteOpenIdConnectProviderResponse'
instance Hashable DeleteOpenIdConnectProvider
instance NFData DeleteOpenIdConnectProvider
instance ToHeaders DeleteOpenIdConnectProvider where
toHeaders = const mempty
instance ToPath DeleteOpenIdConnectProvider where
toPath = const "/"
instance ToQuery DeleteOpenIdConnectProvider where
toQuery DeleteOpenIdConnectProvider'{..}
= mconcat
["Action" =:
("DeleteOpenIDConnectProvider" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"OpenIDConnectProviderArn" =:
_doicpOpenIdConnectProviderARN]
data DeleteOpenIdConnectProviderResponse =
DeleteOpenIdConnectProviderResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteOpenIdConnectProviderResponse
:: DeleteOpenIdConnectProviderResponse
deleteOpenIdConnectProviderResponse = DeleteOpenIdConnectProviderResponse'
instance NFData DeleteOpenIdConnectProviderResponse