{-# 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.UpdateOpenIDConnectProviderThumbprint
(
UpdateOpenIDConnectProviderThumbprint (..),
newUpdateOpenIDConnectProviderThumbprint,
updateOpenIDConnectProviderThumbprint_openIDConnectProviderArn,
updateOpenIDConnectProviderThumbprint_thumbprintList,
UpdateOpenIDConnectProviderThumbprintResponse (..),
newUpdateOpenIDConnectProviderThumbprintResponse,
)
where
import qualified Amazonka.Core as Core
import Amazonka.IAM.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateOpenIDConnectProviderThumbprint = UpdateOpenIDConnectProviderThumbprint'
{
UpdateOpenIDConnectProviderThumbprint -> Text
openIDConnectProviderArn :: Prelude.Text,
UpdateOpenIDConnectProviderThumbprint -> [Text]
thumbprintList :: [Prelude.Text]
}
deriving (UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool
(UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool)
-> (UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool)
-> Eq UpdateOpenIDConnectProviderThumbprint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool
$c/= :: UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool
== :: UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool
$c== :: UpdateOpenIDConnectProviderThumbprint
-> UpdateOpenIDConnectProviderThumbprint -> Bool
Prelude.Eq, ReadPrec [UpdateOpenIDConnectProviderThumbprint]
ReadPrec UpdateOpenIDConnectProviderThumbprint
Int -> ReadS UpdateOpenIDConnectProviderThumbprint
ReadS [UpdateOpenIDConnectProviderThumbprint]
(Int -> ReadS UpdateOpenIDConnectProviderThumbprint)
-> ReadS [UpdateOpenIDConnectProviderThumbprint]
-> ReadPrec UpdateOpenIDConnectProviderThumbprint
-> ReadPrec [UpdateOpenIDConnectProviderThumbprint]
-> Read UpdateOpenIDConnectProviderThumbprint
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateOpenIDConnectProviderThumbprint]
$creadListPrec :: ReadPrec [UpdateOpenIDConnectProviderThumbprint]
readPrec :: ReadPrec UpdateOpenIDConnectProviderThumbprint
$creadPrec :: ReadPrec UpdateOpenIDConnectProviderThumbprint
readList :: ReadS [UpdateOpenIDConnectProviderThumbprint]
$creadList :: ReadS [UpdateOpenIDConnectProviderThumbprint]
readsPrec :: Int -> ReadS UpdateOpenIDConnectProviderThumbprint
$creadsPrec :: Int -> ReadS UpdateOpenIDConnectProviderThumbprint
Prelude.Read, Int -> UpdateOpenIDConnectProviderThumbprint -> ShowS
[UpdateOpenIDConnectProviderThumbprint] -> ShowS
UpdateOpenIDConnectProviderThumbprint -> String
(Int -> UpdateOpenIDConnectProviderThumbprint -> ShowS)
-> (UpdateOpenIDConnectProviderThumbprint -> String)
-> ([UpdateOpenIDConnectProviderThumbprint] -> ShowS)
-> Show UpdateOpenIDConnectProviderThumbprint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateOpenIDConnectProviderThumbprint] -> ShowS
$cshowList :: [UpdateOpenIDConnectProviderThumbprint] -> ShowS
show :: UpdateOpenIDConnectProviderThumbprint -> String
$cshow :: UpdateOpenIDConnectProviderThumbprint -> String
showsPrec :: Int -> UpdateOpenIDConnectProviderThumbprint -> ShowS
$cshowsPrec :: Int -> UpdateOpenIDConnectProviderThumbprint -> ShowS
Prelude.Show, (forall x.
UpdateOpenIDConnectProviderThumbprint
-> Rep UpdateOpenIDConnectProviderThumbprint x)
-> (forall x.
Rep UpdateOpenIDConnectProviderThumbprint x
-> UpdateOpenIDConnectProviderThumbprint)
-> Generic UpdateOpenIDConnectProviderThumbprint
forall x.
Rep UpdateOpenIDConnectProviderThumbprint x
-> UpdateOpenIDConnectProviderThumbprint
forall x.
UpdateOpenIDConnectProviderThumbprint
-> Rep UpdateOpenIDConnectProviderThumbprint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateOpenIDConnectProviderThumbprint x
-> UpdateOpenIDConnectProviderThumbprint
$cfrom :: forall x.
UpdateOpenIDConnectProviderThumbprint
-> Rep UpdateOpenIDConnectProviderThumbprint x
Prelude.Generic)
newUpdateOpenIDConnectProviderThumbprint ::
Prelude.Text ->
UpdateOpenIDConnectProviderThumbprint
newUpdateOpenIDConnectProviderThumbprint :: Text -> UpdateOpenIDConnectProviderThumbprint
newUpdateOpenIDConnectProviderThumbprint
Text
pOpenIDConnectProviderArn_ =
UpdateOpenIDConnectProviderThumbprint' :: Text -> [Text] -> UpdateOpenIDConnectProviderThumbprint
UpdateOpenIDConnectProviderThumbprint'
{ $sel:openIDConnectProviderArn:UpdateOpenIDConnectProviderThumbprint' :: Text
openIDConnectProviderArn =
Text
pOpenIDConnectProviderArn_,
$sel:thumbprintList:UpdateOpenIDConnectProviderThumbprint' :: [Text]
thumbprintList = [Text]
forall a. Monoid a => a
Prelude.mempty
}
updateOpenIDConnectProviderThumbprint_openIDConnectProviderArn :: Lens.Lens' UpdateOpenIDConnectProviderThumbprint Prelude.Text
updateOpenIDConnectProviderThumbprint_openIDConnectProviderArn :: (Text -> f Text)
-> UpdateOpenIDConnectProviderThumbprint
-> f UpdateOpenIDConnectProviderThumbprint
updateOpenIDConnectProviderThumbprint_openIDConnectProviderArn = (UpdateOpenIDConnectProviderThumbprint -> Text)
-> (UpdateOpenIDConnectProviderThumbprint
-> Text -> UpdateOpenIDConnectProviderThumbprint)
-> Lens
UpdateOpenIDConnectProviderThumbprint
UpdateOpenIDConnectProviderThumbprint
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOpenIDConnectProviderThumbprint' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:UpdateOpenIDConnectProviderThumbprint' :: UpdateOpenIDConnectProviderThumbprint -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: UpdateOpenIDConnectProviderThumbprint
s@UpdateOpenIDConnectProviderThumbprint' {} Text
a -> UpdateOpenIDConnectProviderThumbprint
s {$sel:openIDConnectProviderArn:UpdateOpenIDConnectProviderThumbprint' :: Text
openIDConnectProviderArn = Text
a} :: UpdateOpenIDConnectProviderThumbprint)
updateOpenIDConnectProviderThumbprint_thumbprintList :: Lens.Lens' UpdateOpenIDConnectProviderThumbprint [Prelude.Text]
updateOpenIDConnectProviderThumbprint_thumbprintList :: ([Text] -> f [Text])
-> UpdateOpenIDConnectProviderThumbprint
-> f UpdateOpenIDConnectProviderThumbprint
updateOpenIDConnectProviderThumbprint_thumbprintList = (UpdateOpenIDConnectProviderThumbprint -> [Text])
-> (UpdateOpenIDConnectProviderThumbprint
-> [Text] -> UpdateOpenIDConnectProviderThumbprint)
-> Lens
UpdateOpenIDConnectProviderThumbprint
UpdateOpenIDConnectProviderThumbprint
[Text]
[Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOpenIDConnectProviderThumbprint' {[Text]
thumbprintList :: [Text]
$sel:thumbprintList:UpdateOpenIDConnectProviderThumbprint' :: UpdateOpenIDConnectProviderThumbprint -> [Text]
thumbprintList} -> [Text]
thumbprintList) (\s :: UpdateOpenIDConnectProviderThumbprint
s@UpdateOpenIDConnectProviderThumbprint' {} [Text]
a -> UpdateOpenIDConnectProviderThumbprint
s {$sel:thumbprintList:UpdateOpenIDConnectProviderThumbprint' :: [Text]
thumbprintList = [Text]
a} :: UpdateOpenIDConnectProviderThumbprint) (([Text] -> f [Text])
-> UpdateOpenIDConnectProviderThumbprint
-> f UpdateOpenIDConnectProviderThumbprint)
-> (([Text] -> f [Text]) -> [Text] -> f [Text])
-> ([Text] -> f [Text])
-> UpdateOpenIDConnectProviderThumbprint
-> f UpdateOpenIDConnectProviderThumbprint
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Text] -> f [Text]) -> [Text] -> f [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Core.AWSRequest
UpdateOpenIDConnectProviderThumbprint
where
type
AWSResponse
UpdateOpenIDConnectProviderThumbprint =
UpdateOpenIDConnectProviderThumbprintResponse
request :: UpdateOpenIDConnectProviderThumbprint
-> Request UpdateOpenIDConnectProviderThumbprint
request = Service
-> UpdateOpenIDConnectProviderThumbprint
-> Request UpdateOpenIDConnectProviderThumbprint
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery Service
defaultService
response :: Logger
-> Service
-> Proxy UpdateOpenIDConnectProviderThumbprint
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse UpdateOpenIDConnectProviderThumbprint)))
response =
AWSResponse UpdateOpenIDConnectProviderThumbprint
-> Logger
-> Service
-> Proxy UpdateOpenIDConnectProviderThumbprint
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse UpdateOpenIDConnectProviderThumbprint)))
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
AWSResponse UpdateOpenIDConnectProviderThumbprint
UpdateOpenIDConnectProviderThumbprintResponse
UpdateOpenIDConnectProviderThumbprintResponse'
instance
Prelude.Hashable
UpdateOpenIDConnectProviderThumbprint
instance
Prelude.NFData
UpdateOpenIDConnectProviderThumbprint
instance
Core.ToHeaders
UpdateOpenIDConnectProviderThumbprint
where
toHeaders :: UpdateOpenIDConnectProviderThumbprint -> [Header]
toHeaders = [Header] -> UpdateOpenIDConnectProviderThumbprint -> [Header]
forall a b. a -> b -> a
Prelude.const [Header]
forall a. Monoid a => a
Prelude.mempty
instance
Core.ToPath
UpdateOpenIDConnectProviderThumbprint
where
toPath :: UpdateOpenIDConnectProviderThumbprint -> ByteString
toPath = ByteString -> UpdateOpenIDConnectProviderThumbprint -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Core.ToQuery
UpdateOpenIDConnectProviderThumbprint
where
toQuery :: UpdateOpenIDConnectProviderThumbprint -> QueryString
toQuery UpdateOpenIDConnectProviderThumbprint' {[Text]
Text
thumbprintList :: [Text]
openIDConnectProviderArn :: Text
$sel:thumbprintList:UpdateOpenIDConnectProviderThumbprint' :: UpdateOpenIDConnectProviderThumbprint -> [Text]
$sel:openIDConnectProviderArn:UpdateOpenIDConnectProviderThumbprint' :: UpdateOpenIDConnectProviderThumbprint -> Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: ( ByteString
"UpdateOpenIDConnectProviderThumbprint" ::
Prelude.ByteString
),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"OpenIDConnectProviderArn"
ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Text
openIDConnectProviderArn,
ByteString
"ThumbprintList"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"member" [Text]
thumbprintList
]
data UpdateOpenIDConnectProviderThumbprintResponse = UpdateOpenIDConnectProviderThumbprintResponse'
{
}
deriving (UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool
(UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool)
-> (UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool)
-> Eq UpdateOpenIDConnectProviderThumbprintResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool
$c/= :: UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool
== :: UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool
$c== :: UpdateOpenIDConnectProviderThumbprintResponse
-> UpdateOpenIDConnectProviderThumbprintResponse -> Bool
Prelude.Eq, ReadPrec [UpdateOpenIDConnectProviderThumbprintResponse]
ReadPrec UpdateOpenIDConnectProviderThumbprintResponse
Int -> ReadS UpdateOpenIDConnectProviderThumbprintResponse
ReadS [UpdateOpenIDConnectProviderThumbprintResponse]
(Int -> ReadS UpdateOpenIDConnectProviderThumbprintResponse)
-> ReadS [UpdateOpenIDConnectProviderThumbprintResponse]
-> ReadPrec UpdateOpenIDConnectProviderThumbprintResponse
-> ReadPrec [UpdateOpenIDConnectProviderThumbprintResponse]
-> Read UpdateOpenIDConnectProviderThumbprintResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateOpenIDConnectProviderThumbprintResponse]
$creadListPrec :: ReadPrec [UpdateOpenIDConnectProviderThumbprintResponse]
readPrec :: ReadPrec UpdateOpenIDConnectProviderThumbprintResponse
$creadPrec :: ReadPrec UpdateOpenIDConnectProviderThumbprintResponse
readList :: ReadS [UpdateOpenIDConnectProviderThumbprintResponse]
$creadList :: ReadS [UpdateOpenIDConnectProviderThumbprintResponse]
readsPrec :: Int -> ReadS UpdateOpenIDConnectProviderThumbprintResponse
$creadsPrec :: Int -> ReadS UpdateOpenIDConnectProviderThumbprintResponse
Prelude.Read, Int -> UpdateOpenIDConnectProviderThumbprintResponse -> ShowS
[UpdateOpenIDConnectProviderThumbprintResponse] -> ShowS
UpdateOpenIDConnectProviderThumbprintResponse -> String
(Int -> UpdateOpenIDConnectProviderThumbprintResponse -> ShowS)
-> (UpdateOpenIDConnectProviderThumbprintResponse -> String)
-> ([UpdateOpenIDConnectProviderThumbprintResponse] -> ShowS)
-> Show UpdateOpenIDConnectProviderThumbprintResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateOpenIDConnectProviderThumbprintResponse] -> ShowS
$cshowList :: [UpdateOpenIDConnectProviderThumbprintResponse] -> ShowS
show :: UpdateOpenIDConnectProviderThumbprintResponse -> String
$cshow :: UpdateOpenIDConnectProviderThumbprintResponse -> String
showsPrec :: Int -> UpdateOpenIDConnectProviderThumbprintResponse -> ShowS
$cshowsPrec :: Int -> UpdateOpenIDConnectProviderThumbprintResponse -> ShowS
Prelude.Show, (forall x.
UpdateOpenIDConnectProviderThumbprintResponse
-> Rep UpdateOpenIDConnectProviderThumbprintResponse x)
-> (forall x.
Rep UpdateOpenIDConnectProviderThumbprintResponse x
-> UpdateOpenIDConnectProviderThumbprintResponse)
-> Generic UpdateOpenIDConnectProviderThumbprintResponse
forall x.
Rep UpdateOpenIDConnectProviderThumbprintResponse x
-> UpdateOpenIDConnectProviderThumbprintResponse
forall x.
UpdateOpenIDConnectProviderThumbprintResponse
-> Rep UpdateOpenIDConnectProviderThumbprintResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateOpenIDConnectProviderThumbprintResponse x
-> UpdateOpenIDConnectProviderThumbprintResponse
$cfrom :: forall x.
UpdateOpenIDConnectProviderThumbprintResponse
-> Rep UpdateOpenIDConnectProviderThumbprintResponse x
Prelude.Generic)
newUpdateOpenIDConnectProviderThumbprintResponse ::
UpdateOpenIDConnectProviderThumbprintResponse
newUpdateOpenIDConnectProviderThumbprintResponse :: UpdateOpenIDConnectProviderThumbprintResponse
newUpdateOpenIDConnectProviderThumbprintResponse =
UpdateOpenIDConnectProviderThumbprintResponse
UpdateOpenIDConnectProviderThumbprintResponse'
instance
Prelude.NFData
UpdateOpenIDConnectProviderThumbprintResponse