{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.IAM.DeleteOpenIDConnectProvider
(
DeleteOpenIDConnectProvider (..),
newDeleteOpenIDConnectProvider,
deleteOpenIDConnectProvider_openIDConnectProviderArn,
DeleteOpenIDConnectProviderResponse (..),
newDeleteOpenIDConnectProviderResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteOpenIDConnectProvider = DeleteOpenIDConnectProvider'
{
DeleteOpenIDConnectProvider -> Text
openIDConnectProviderArn :: Prelude.Text
}
deriving (DeleteOpenIDConnectProvider -> DeleteOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOpenIDConnectProvider -> DeleteOpenIDConnectProvider -> Bool
$c/= :: DeleteOpenIDConnectProvider -> DeleteOpenIDConnectProvider -> Bool
== :: DeleteOpenIDConnectProvider -> DeleteOpenIDConnectProvider -> Bool
$c== :: DeleteOpenIDConnectProvider -> DeleteOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [DeleteOpenIDConnectProvider]
ReadPrec DeleteOpenIDConnectProvider
Int -> ReadS DeleteOpenIDConnectProvider
ReadS [DeleteOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOpenIDConnectProvider]
$creadListPrec :: ReadPrec [DeleteOpenIDConnectProvider]
readPrec :: ReadPrec DeleteOpenIDConnectProvider
$creadPrec :: ReadPrec DeleteOpenIDConnectProvider
readList :: ReadS [DeleteOpenIDConnectProvider]
$creadList :: ReadS [DeleteOpenIDConnectProvider]
readsPrec :: Int -> ReadS DeleteOpenIDConnectProvider
$creadsPrec :: Int -> ReadS DeleteOpenIDConnectProvider
Prelude.Read, Int -> DeleteOpenIDConnectProvider -> ShowS
[DeleteOpenIDConnectProvider] -> ShowS
DeleteOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOpenIDConnectProvider] -> ShowS
$cshowList :: [DeleteOpenIDConnectProvider] -> ShowS
show :: DeleteOpenIDConnectProvider -> String
$cshow :: DeleteOpenIDConnectProvider -> String
showsPrec :: Int -> DeleteOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> DeleteOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep DeleteOpenIDConnectProvider x -> DeleteOpenIDConnectProvider
forall x.
DeleteOpenIDConnectProvider -> Rep DeleteOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteOpenIDConnectProvider x -> DeleteOpenIDConnectProvider
$cfrom :: forall x.
DeleteOpenIDConnectProvider -> Rep DeleteOpenIDConnectProvider x
Prelude.Generic)
newDeleteOpenIDConnectProvider ::
Prelude.Text ->
DeleteOpenIDConnectProvider
newDeleteOpenIDConnectProvider :: Text -> DeleteOpenIDConnectProvider
newDeleteOpenIDConnectProvider
Text
pOpenIDConnectProviderArn_ =
DeleteOpenIDConnectProvider'
{ $sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: Text
openIDConnectProviderArn =
Text
pOpenIDConnectProviderArn_
}
deleteOpenIDConnectProvider_openIDConnectProviderArn :: Lens.Lens' DeleteOpenIDConnectProvider Prelude.Text
deleteOpenIDConnectProvider_openIDConnectProviderArn :: Lens' DeleteOpenIDConnectProvider Text
deleteOpenIDConnectProvider_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: DeleteOpenIDConnectProvider -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: DeleteOpenIDConnectProvider
s@DeleteOpenIDConnectProvider' {} Text
a -> DeleteOpenIDConnectProvider
s {$sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: Text
openIDConnectProviderArn = Text
a} :: DeleteOpenIDConnectProvider)
instance Core.AWSRequest DeleteOpenIDConnectProvider where
type
AWSResponse DeleteOpenIDConnectProvider =
DeleteOpenIDConnectProviderResponse
request :: (Service -> Service)
-> DeleteOpenIDConnectProvider
-> Request DeleteOpenIDConnectProvider
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteOpenIDConnectProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteOpenIDConnectProviderResponse
DeleteOpenIDConnectProviderResponse'
instance Prelude.Hashable DeleteOpenIDConnectProvider where
hashWithSalt :: Int -> DeleteOpenIDConnectProvider -> Int
hashWithSalt Int
_salt DeleteOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: DeleteOpenIDConnectProvider -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
openIDConnectProviderArn
instance Prelude.NFData DeleteOpenIDConnectProvider where
rnf :: DeleteOpenIDConnectProvider -> ()
rnf DeleteOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: DeleteOpenIDConnectProvider -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
openIDConnectProviderArn
instance Data.ToHeaders DeleteOpenIDConnectProvider where
toHeaders :: DeleteOpenIDConnectProvider -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteOpenIDConnectProvider where
toPath :: DeleteOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteOpenIDConnectProvider where
toQuery :: DeleteOpenIDConnectProvider -> QueryString
toQuery DeleteOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:DeleteOpenIDConnectProvider' :: DeleteOpenIDConnectProvider -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteOpenIDConnectProvider" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"OpenIDConnectProviderArn"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
openIDConnectProviderArn
]
data DeleteOpenIDConnectProviderResponse = DeleteOpenIDConnectProviderResponse'
{
}
deriving (DeleteOpenIDConnectProviderResponse
-> DeleteOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOpenIDConnectProviderResponse
-> DeleteOpenIDConnectProviderResponse -> Bool
$c/= :: DeleteOpenIDConnectProviderResponse
-> DeleteOpenIDConnectProviderResponse -> Bool
== :: DeleteOpenIDConnectProviderResponse
-> DeleteOpenIDConnectProviderResponse -> Bool
$c== :: DeleteOpenIDConnectProviderResponse
-> DeleteOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [DeleteOpenIDConnectProviderResponse]
ReadPrec DeleteOpenIDConnectProviderResponse
Int -> ReadS DeleteOpenIDConnectProviderResponse
ReadS [DeleteOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [DeleteOpenIDConnectProviderResponse]
readPrec :: ReadPrec DeleteOpenIDConnectProviderResponse
$creadPrec :: ReadPrec DeleteOpenIDConnectProviderResponse
readList :: ReadS [DeleteOpenIDConnectProviderResponse]
$creadList :: ReadS [DeleteOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS DeleteOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS DeleteOpenIDConnectProviderResponse
Prelude.Read, Int -> DeleteOpenIDConnectProviderResponse -> ShowS
[DeleteOpenIDConnectProviderResponse] -> ShowS
DeleteOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [DeleteOpenIDConnectProviderResponse] -> ShowS
show :: DeleteOpenIDConnectProviderResponse -> String
$cshow :: DeleteOpenIDConnectProviderResponse -> String
showsPrec :: Int -> DeleteOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> DeleteOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteOpenIDConnectProviderResponse x
-> DeleteOpenIDConnectProviderResponse
forall x.
DeleteOpenIDConnectProviderResponse
-> Rep DeleteOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteOpenIDConnectProviderResponse x
-> DeleteOpenIDConnectProviderResponse
$cfrom :: forall x.
DeleteOpenIDConnectProviderResponse
-> Rep DeleteOpenIDConnectProviderResponse x
Prelude.Generic)
newDeleteOpenIDConnectProviderResponse ::
DeleteOpenIDConnectProviderResponse
newDeleteOpenIDConnectProviderResponse :: DeleteOpenIDConnectProviderResponse
newDeleteOpenIDConnectProviderResponse =
DeleteOpenIDConnectProviderResponse
DeleteOpenIDConnectProviderResponse'
instance
Prelude.NFData
DeleteOpenIDConnectProviderResponse
where
rnf :: DeleteOpenIDConnectProviderResponse -> ()
rnf DeleteOpenIDConnectProviderResponse
_ = ()