{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.IAM.RemoveClientIDFromOpenIDConnectProvider
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Removes the specified client ID (also known as audience) from the list
-- of client IDs registered for the specified IAM OpenID Connect (OIDC)
-- provider resource object.
--
-- This operation is idempotent; it does not fail or return an error if you
-- try to remove a client ID that does not exist.
module Amazonka.IAM.RemoveClientIDFromOpenIDConnectProvider
  ( -- * Creating a Request
    RemoveClientIDFromOpenIDConnectProvider (..),
    newRemoveClientIDFromOpenIDConnectProvider,

    -- * Request Lenses
    removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn,
    removeClientIDFromOpenIDConnectProvider_clientID,

    -- * Destructuring the Response
    RemoveClientIDFromOpenIDConnectProviderResponse (..),
    newRemoveClientIDFromOpenIDConnectProviderResponse,
  )
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

-- | /See:/ 'newRemoveClientIDFromOpenIDConnectProvider' smart constructor.
data RemoveClientIDFromOpenIDConnectProvider = RemoveClientIDFromOpenIDConnectProvider'
  { -- | The Amazon Resource Name (ARN) of the IAM OIDC provider resource to
    -- remove the client ID from. You can get a list of OIDC provider ARNs by
    -- using the ListOpenIDConnectProviders operation.
    --
    -- For more information about ARNs, see
    -- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
    -- in the /Amazon Web Services General Reference/.
    RemoveClientIDFromOpenIDConnectProvider -> Text
openIDConnectProviderArn :: Prelude.Text,
    -- | The client ID (also known as audience) to remove from the IAM OIDC
    -- provider resource. For more information about client IDs, see
    -- CreateOpenIDConnectProvider.
    RemoveClientIDFromOpenIDConnectProvider -> Text
clientID :: Prelude.Text
  }
  deriving (RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
$c/= :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
== :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
$c== :: RemoveClientIDFromOpenIDConnectProvider
-> RemoveClientIDFromOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
ReadPrec RemoveClientIDFromOpenIDConnectProvider
Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
ReadS [RemoveClientIDFromOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
$creadListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProvider]
readPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProvider
$creadPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProvider
readList :: ReadS [RemoveClientIDFromOpenIDConnectProvider]
$creadList :: ReadS [RemoveClientIDFromOpenIDConnectProvider]
readsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
$creadsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProvider
Prelude.Read, Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
[RemoveClientIDFromOpenIDConnectProvider] -> ShowS
RemoveClientIDFromOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveClientIDFromOpenIDConnectProvider] -> ShowS
$cshowList :: [RemoveClientIDFromOpenIDConnectProvider] -> ShowS
show :: RemoveClientIDFromOpenIDConnectProvider -> String
$cshow :: RemoveClientIDFromOpenIDConnectProvider -> String
showsPrec :: Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> RemoveClientIDFromOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep RemoveClientIDFromOpenIDConnectProvider x
-> RemoveClientIDFromOpenIDConnectProvider
forall x.
RemoveClientIDFromOpenIDConnectProvider
-> Rep RemoveClientIDFromOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveClientIDFromOpenIDConnectProvider x
-> RemoveClientIDFromOpenIDConnectProvider
$cfrom :: forall x.
RemoveClientIDFromOpenIDConnectProvider
-> Rep RemoveClientIDFromOpenIDConnectProvider x
Prelude.Generic)

-- |
-- Create a value of 'RemoveClientIDFromOpenIDConnectProvider' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'openIDConnectProviderArn', 'removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn' - The Amazon Resource Name (ARN) of the IAM OIDC provider resource to
-- remove the client ID from. You can get a list of OIDC provider ARNs by
-- using the ListOpenIDConnectProviders operation.
--
-- For more information about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
-- in the /Amazon Web Services General Reference/.
--
-- 'clientID', 'removeClientIDFromOpenIDConnectProvider_clientID' - The client ID (also known as audience) to remove from the IAM OIDC
-- provider resource. For more information about client IDs, see
-- CreateOpenIDConnectProvider.
newRemoveClientIDFromOpenIDConnectProvider ::
  -- | 'openIDConnectProviderArn'
  Prelude.Text ->
  -- | 'clientID'
  Prelude.Text ->
  RemoveClientIDFromOpenIDConnectProvider
newRemoveClientIDFromOpenIDConnectProvider :: Text -> Text -> RemoveClientIDFromOpenIDConnectProvider
newRemoveClientIDFromOpenIDConnectProvider
  Text
pOpenIDConnectProviderArn_
  Text
pClientID_ =
    RemoveClientIDFromOpenIDConnectProvider'
      { $sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: Text
openIDConnectProviderArn =
          Text
pOpenIDConnectProviderArn_,
        $sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: Text
clientID = Text
pClientID_
      }

-- | The Amazon Resource Name (ARN) of the IAM OIDC provider resource to
-- remove the client ID from. You can get a list of OIDC provider ARNs by
-- using the ListOpenIDConnectProviders operation.
--
-- For more information about ARNs, see
-- <https://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs)>
-- in the /Amazon Web Services General Reference/.
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn :: Lens.Lens' RemoveClientIDFromOpenIDConnectProvider Prelude.Text
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
removeClientIDFromOpenIDConnectProvider_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveClientIDFromOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: RemoveClientIDFromOpenIDConnectProvider
s@RemoveClientIDFromOpenIDConnectProvider' {} Text
a -> RemoveClientIDFromOpenIDConnectProvider
s {$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: Text
openIDConnectProviderArn = Text
a} :: RemoveClientIDFromOpenIDConnectProvider)

-- | The client ID (also known as audience) to remove from the IAM OIDC
-- provider resource. For more information about client IDs, see
-- CreateOpenIDConnectProvider.
removeClientIDFromOpenIDConnectProvider_clientID :: Lens.Lens' RemoveClientIDFromOpenIDConnectProvider Prelude.Text
removeClientIDFromOpenIDConnectProvider_clientID :: Lens' RemoveClientIDFromOpenIDConnectProvider Text
removeClientIDFromOpenIDConnectProvider_clientID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
clientID} -> Text
clientID) (\s :: RemoveClientIDFromOpenIDConnectProvider
s@RemoveClientIDFromOpenIDConnectProvider' {} Text
a -> RemoveClientIDFromOpenIDConnectProvider
s {$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: Text
clientID = Text
a} :: RemoveClientIDFromOpenIDConnectProvider)

instance
  Core.AWSRequest
    RemoveClientIDFromOpenIDConnectProvider
  where
  type
    AWSResponse
      RemoveClientIDFromOpenIDConnectProvider =
      RemoveClientIDFromOpenIDConnectProviderResponse
  request :: (Service -> Service)
-> RemoveClientIDFromOpenIDConnectProvider
-> Request RemoveClientIDFromOpenIDConnectProvider
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 RemoveClientIDFromOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse
           (AWSResponse RemoveClientIDFromOpenIDConnectProvider)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
      RemoveClientIDFromOpenIDConnectProviderResponse
RemoveClientIDFromOpenIDConnectProviderResponse'

instance
  Prelude.Hashable
    RemoveClientIDFromOpenIDConnectProvider
  where
  hashWithSalt :: Int -> RemoveClientIDFromOpenIDConnectProvider -> Int
hashWithSalt
    Int
_salt
    RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
      Int
_salt
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
openIDConnectProviderArn
        forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
clientID

instance
  Prelude.NFData
    RemoveClientIDFromOpenIDConnectProvider
  where
  rnf :: RemoveClientIDFromOpenIDConnectProvider -> ()
rnf RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
openIDConnectProviderArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
clientID

instance
  Data.ToHeaders
    RemoveClientIDFromOpenIDConnectProvider
  where
  toHeaders :: RemoveClientIDFromOpenIDConnectProvider -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

instance
  Data.ToPath
    RemoveClientIDFromOpenIDConnectProvider
  where
  toPath :: RemoveClientIDFromOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance
  Data.ToQuery
    RemoveClientIDFromOpenIDConnectProvider
  where
  toQuery :: RemoveClientIDFromOpenIDConnectProvider -> QueryString
toQuery RemoveClientIDFromOpenIDConnectProvider' {Text
clientID :: Text
openIDConnectProviderArn :: Text
$sel:clientID:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
$sel:openIDConnectProviderArn:RemoveClientIDFromOpenIDConnectProvider' :: RemoveClientIDFromOpenIDConnectProvider -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"RemoveClientIDFromOpenIDConnectProvider" ::
                      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,
        ByteString
"ClientID" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
clientID
      ]

-- | /See:/ 'newRemoveClientIDFromOpenIDConnectProviderResponse' smart constructor.
data RemoveClientIDFromOpenIDConnectProviderResponse = RemoveClientIDFromOpenIDConnectProviderResponse'
  {
  }
  deriving (RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
$c/= :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
== :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
$c== :: RemoveClientIDFromOpenIDConnectProviderResponse
-> RemoveClientIDFromOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [RemoveClientIDFromOpenIDConnectProviderResponse]
readPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
$creadPrec :: ReadPrec RemoveClientIDFromOpenIDConnectProviderResponse
readList :: ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
$creadList :: ReadS [RemoveClientIDFromOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS RemoveClientIDFromOpenIDConnectProviderResponse
Prelude.Read, Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
[RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
RemoveClientIDFromOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [RemoveClientIDFromOpenIDConnectProviderResponse] -> ShowS
show :: RemoveClientIDFromOpenIDConnectProviderResponse -> String
$cshow :: RemoveClientIDFromOpenIDConnectProviderResponse -> String
showsPrec :: Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> RemoveClientIDFromOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep RemoveClientIDFromOpenIDConnectProviderResponse x
-> RemoveClientIDFromOpenIDConnectProviderResponse
forall x.
RemoveClientIDFromOpenIDConnectProviderResponse
-> Rep RemoveClientIDFromOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RemoveClientIDFromOpenIDConnectProviderResponse x
-> RemoveClientIDFromOpenIDConnectProviderResponse
$cfrom :: forall x.
RemoveClientIDFromOpenIDConnectProviderResponse
-> Rep RemoveClientIDFromOpenIDConnectProviderResponse x
Prelude.Generic)

-- |
-- Create a value of 'RemoveClientIDFromOpenIDConnectProviderResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newRemoveClientIDFromOpenIDConnectProviderResponse ::
  RemoveClientIDFromOpenIDConnectProviderResponse
newRemoveClientIDFromOpenIDConnectProviderResponse :: RemoveClientIDFromOpenIDConnectProviderResponse
newRemoveClientIDFromOpenIDConnectProviderResponse =
  RemoveClientIDFromOpenIDConnectProviderResponse
RemoveClientIDFromOpenIDConnectProviderResponse'

instance
  Prelude.NFData
    RemoveClientIDFromOpenIDConnectProviderResponse
  where
  rnf :: RemoveClientIDFromOpenIDConnectProviderResponse -> ()
rnf RemoveClientIDFromOpenIDConnectProviderResponse
_ = ()