{-# 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.TagOpenIDConnectProvider
(
TagOpenIDConnectProvider (..),
newTagOpenIDConnectProvider,
tagOpenIDConnectProvider_openIDConnectProviderArn,
tagOpenIDConnectProvider_tags,
TagOpenIDConnectProviderResponse (..),
newTagOpenIDConnectProviderResponse,
)
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 TagOpenIDConnectProvider = TagOpenIDConnectProvider'
{
TagOpenIDConnectProvider -> Text
openIDConnectProviderArn :: Prelude.Text,
TagOpenIDConnectProvider -> [Tag]
tags :: [Tag]
}
deriving (TagOpenIDConnectProvider -> TagOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TagOpenIDConnectProvider -> TagOpenIDConnectProvider -> Bool
$c/= :: TagOpenIDConnectProvider -> TagOpenIDConnectProvider -> Bool
== :: TagOpenIDConnectProvider -> TagOpenIDConnectProvider -> Bool
$c== :: TagOpenIDConnectProvider -> TagOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [TagOpenIDConnectProvider]
ReadPrec TagOpenIDConnectProvider
Int -> ReadS TagOpenIDConnectProvider
ReadS [TagOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TagOpenIDConnectProvider]
$creadListPrec :: ReadPrec [TagOpenIDConnectProvider]
readPrec :: ReadPrec TagOpenIDConnectProvider
$creadPrec :: ReadPrec TagOpenIDConnectProvider
readList :: ReadS [TagOpenIDConnectProvider]
$creadList :: ReadS [TagOpenIDConnectProvider]
readsPrec :: Int -> ReadS TagOpenIDConnectProvider
$creadsPrec :: Int -> ReadS TagOpenIDConnectProvider
Prelude.Read, Int -> TagOpenIDConnectProvider -> ShowS
[TagOpenIDConnectProvider] -> ShowS
TagOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TagOpenIDConnectProvider] -> ShowS
$cshowList :: [TagOpenIDConnectProvider] -> ShowS
show :: TagOpenIDConnectProvider -> String
$cshow :: TagOpenIDConnectProvider -> String
showsPrec :: Int -> TagOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> TagOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep TagOpenIDConnectProvider x -> TagOpenIDConnectProvider
forall x.
TagOpenIDConnectProvider -> Rep TagOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep TagOpenIDConnectProvider x -> TagOpenIDConnectProvider
$cfrom :: forall x.
TagOpenIDConnectProvider -> Rep TagOpenIDConnectProvider x
Prelude.Generic)
newTagOpenIDConnectProvider ::
Prelude.Text ->
TagOpenIDConnectProvider
newTagOpenIDConnectProvider :: Text -> TagOpenIDConnectProvider
newTagOpenIDConnectProvider
Text
pOpenIDConnectProviderArn_ =
TagOpenIDConnectProvider'
{ $sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: Text
openIDConnectProviderArn =
Text
pOpenIDConnectProviderArn_,
$sel:tags:TagOpenIDConnectProvider' :: [Tag]
tags = forall a. Monoid a => a
Prelude.mempty
}
tagOpenIDConnectProvider_openIDConnectProviderArn :: Lens.Lens' TagOpenIDConnectProvider Prelude.Text
tagOpenIDConnectProvider_openIDConnectProviderArn :: Lens' TagOpenIDConnectProvider Text
tagOpenIDConnectProvider_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TagOpenIDConnectProvider' {Text
openIDConnectProviderArn :: Text
$sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> Text
openIDConnectProviderArn} -> Text
openIDConnectProviderArn) (\s :: TagOpenIDConnectProvider
s@TagOpenIDConnectProvider' {} Text
a -> TagOpenIDConnectProvider
s {$sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: Text
openIDConnectProviderArn = Text
a} :: TagOpenIDConnectProvider)
tagOpenIDConnectProvider_tags :: Lens.Lens' TagOpenIDConnectProvider [Tag]
tagOpenIDConnectProvider_tags :: Lens' TagOpenIDConnectProvider [Tag]
tagOpenIDConnectProvider_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TagOpenIDConnectProvider' {[Tag]
tags :: [Tag]
$sel:tags:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> [Tag]
tags} -> [Tag]
tags) (\s :: TagOpenIDConnectProvider
s@TagOpenIDConnectProvider' {} [Tag]
a -> TagOpenIDConnectProvider
s {$sel:tags:TagOpenIDConnectProvider' :: [Tag]
tags = [Tag]
a} :: TagOpenIDConnectProvider) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest TagOpenIDConnectProvider where
type
AWSResponse TagOpenIDConnectProvider =
TagOpenIDConnectProviderResponse
request :: (Service -> Service)
-> TagOpenIDConnectProvider -> Request TagOpenIDConnectProvider
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 TagOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse TagOpenIDConnectProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
TagOpenIDConnectProviderResponse
TagOpenIDConnectProviderResponse'
instance Prelude.Hashable TagOpenIDConnectProvider where
hashWithSalt :: Int -> TagOpenIDConnectProvider -> Int
hashWithSalt Int
_salt TagOpenIDConnectProvider' {[Tag]
Text
tags :: [Tag]
openIDConnectProviderArn :: Text
$sel:tags:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> [Tag]
$sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
openIDConnectProviderArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Tag]
tags
instance Prelude.NFData TagOpenIDConnectProvider where
rnf :: TagOpenIDConnectProvider -> ()
rnf TagOpenIDConnectProvider' {[Tag]
Text
tags :: [Tag]
openIDConnectProviderArn :: Text
$sel:tags:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> [Tag]
$sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> 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 [Tag]
tags
instance Data.ToHeaders TagOpenIDConnectProvider where
toHeaders :: TagOpenIDConnectProvider -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath TagOpenIDConnectProvider where
toPath :: TagOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery TagOpenIDConnectProvider where
toQuery :: TagOpenIDConnectProvider -> QueryString
toQuery TagOpenIDConnectProvider' {[Tag]
Text
tags :: [Tag]
openIDConnectProviderArn :: Text
$sel:tags:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> [Tag]
$sel:openIDConnectProviderArn:TagOpenIDConnectProvider' :: TagOpenIDConnectProvider -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"TagOpenIDConnectProvider" :: 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
"Tags" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Tag]
tags
]
data TagOpenIDConnectProviderResponse = TagOpenIDConnectProviderResponse'
{
}
deriving (TagOpenIDConnectProviderResponse
-> TagOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TagOpenIDConnectProviderResponse
-> TagOpenIDConnectProviderResponse -> Bool
$c/= :: TagOpenIDConnectProviderResponse
-> TagOpenIDConnectProviderResponse -> Bool
== :: TagOpenIDConnectProviderResponse
-> TagOpenIDConnectProviderResponse -> Bool
$c== :: TagOpenIDConnectProviderResponse
-> TagOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [TagOpenIDConnectProviderResponse]
ReadPrec TagOpenIDConnectProviderResponse
Int -> ReadS TagOpenIDConnectProviderResponse
ReadS [TagOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TagOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [TagOpenIDConnectProviderResponse]
readPrec :: ReadPrec TagOpenIDConnectProviderResponse
$creadPrec :: ReadPrec TagOpenIDConnectProviderResponse
readList :: ReadS [TagOpenIDConnectProviderResponse]
$creadList :: ReadS [TagOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS TagOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS TagOpenIDConnectProviderResponse
Prelude.Read, Int -> TagOpenIDConnectProviderResponse -> ShowS
[TagOpenIDConnectProviderResponse] -> ShowS
TagOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TagOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [TagOpenIDConnectProviderResponse] -> ShowS
show :: TagOpenIDConnectProviderResponse -> String
$cshow :: TagOpenIDConnectProviderResponse -> String
showsPrec :: Int -> TagOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> TagOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep TagOpenIDConnectProviderResponse x
-> TagOpenIDConnectProviderResponse
forall x.
TagOpenIDConnectProviderResponse
-> Rep TagOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep TagOpenIDConnectProviderResponse x
-> TagOpenIDConnectProviderResponse
$cfrom :: forall x.
TagOpenIDConnectProviderResponse
-> Rep TagOpenIDConnectProviderResponse x
Prelude.Generic)
newTagOpenIDConnectProviderResponse ::
TagOpenIDConnectProviderResponse
newTagOpenIDConnectProviderResponse :: TagOpenIDConnectProviderResponse
newTagOpenIDConnectProviderResponse =
TagOpenIDConnectProviderResponse
TagOpenIDConnectProviderResponse'
instance
Prelude.NFData
TagOpenIDConnectProviderResponse
where
rnf :: TagOpenIDConnectProviderResponse -> ()
rnf TagOpenIDConnectProviderResponse
_ = ()