{-# 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.CreateOpenIDConnectProvider
(
CreateOpenIDConnectProvider (..),
newCreateOpenIDConnectProvider,
createOpenIDConnectProvider_clientIDList,
createOpenIDConnectProvider_tags,
createOpenIDConnectProvider_url,
createOpenIDConnectProvider_thumbprintList,
CreateOpenIDConnectProviderResponse (..),
newCreateOpenIDConnectProviderResponse,
createOpenIDConnectProviderResponse_openIDConnectProviderArn,
createOpenIDConnectProviderResponse_tags,
createOpenIDConnectProviderResponse_httpStatus,
)
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 CreateOpenIDConnectProvider = CreateOpenIDConnectProvider'
{
CreateOpenIDConnectProvider -> Maybe [Text]
clientIDList :: Prelude.Maybe [Prelude.Text],
CreateOpenIDConnectProvider -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateOpenIDConnectProvider -> Text
url :: Prelude.Text,
CreateOpenIDConnectProvider -> [Text]
thumbprintList :: [Prelude.Text]
}
deriving (CreateOpenIDConnectProvider -> CreateOpenIDConnectProvider -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateOpenIDConnectProvider -> CreateOpenIDConnectProvider -> Bool
$c/= :: CreateOpenIDConnectProvider -> CreateOpenIDConnectProvider -> Bool
== :: CreateOpenIDConnectProvider -> CreateOpenIDConnectProvider -> Bool
$c== :: CreateOpenIDConnectProvider -> CreateOpenIDConnectProvider -> Bool
Prelude.Eq, ReadPrec [CreateOpenIDConnectProvider]
ReadPrec CreateOpenIDConnectProvider
Int -> ReadS CreateOpenIDConnectProvider
ReadS [CreateOpenIDConnectProvider]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateOpenIDConnectProvider]
$creadListPrec :: ReadPrec [CreateOpenIDConnectProvider]
readPrec :: ReadPrec CreateOpenIDConnectProvider
$creadPrec :: ReadPrec CreateOpenIDConnectProvider
readList :: ReadS [CreateOpenIDConnectProvider]
$creadList :: ReadS [CreateOpenIDConnectProvider]
readsPrec :: Int -> ReadS CreateOpenIDConnectProvider
$creadsPrec :: Int -> ReadS CreateOpenIDConnectProvider
Prelude.Read, Int -> CreateOpenIDConnectProvider -> ShowS
[CreateOpenIDConnectProvider] -> ShowS
CreateOpenIDConnectProvider -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateOpenIDConnectProvider] -> ShowS
$cshowList :: [CreateOpenIDConnectProvider] -> ShowS
show :: CreateOpenIDConnectProvider -> String
$cshow :: CreateOpenIDConnectProvider -> String
showsPrec :: Int -> CreateOpenIDConnectProvider -> ShowS
$cshowsPrec :: Int -> CreateOpenIDConnectProvider -> ShowS
Prelude.Show, forall x.
Rep CreateOpenIDConnectProvider x -> CreateOpenIDConnectProvider
forall x.
CreateOpenIDConnectProvider -> Rep CreateOpenIDConnectProvider x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateOpenIDConnectProvider x -> CreateOpenIDConnectProvider
$cfrom :: forall x.
CreateOpenIDConnectProvider -> Rep CreateOpenIDConnectProvider x
Prelude.Generic)
newCreateOpenIDConnectProvider ::
Prelude.Text ->
CreateOpenIDConnectProvider
newCreateOpenIDConnectProvider :: Text -> CreateOpenIDConnectProvider
newCreateOpenIDConnectProvider Text
pUrl_ =
CreateOpenIDConnectProvider'
{ $sel:clientIDList:CreateOpenIDConnectProvider' :: Maybe [Text]
clientIDList =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateOpenIDConnectProvider' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:url:CreateOpenIDConnectProvider' :: Text
url = Text
pUrl_,
$sel:thumbprintList:CreateOpenIDConnectProvider' :: [Text]
thumbprintList = forall a. Monoid a => a
Prelude.mempty
}
createOpenIDConnectProvider_clientIDList :: Lens.Lens' CreateOpenIDConnectProvider (Prelude.Maybe [Prelude.Text])
createOpenIDConnectProvider_clientIDList :: Lens' CreateOpenIDConnectProvider (Maybe [Text])
createOpenIDConnectProvider_clientIDList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProvider' {Maybe [Text]
clientIDList :: Maybe [Text]
$sel:clientIDList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Text]
clientIDList} -> Maybe [Text]
clientIDList) (\s :: CreateOpenIDConnectProvider
s@CreateOpenIDConnectProvider' {} Maybe [Text]
a -> CreateOpenIDConnectProvider
s {$sel:clientIDList:CreateOpenIDConnectProvider' :: Maybe [Text]
clientIDList = Maybe [Text]
a} :: CreateOpenIDConnectProvider) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createOpenIDConnectProvider_tags :: Lens.Lens' CreateOpenIDConnectProvider (Prelude.Maybe [Tag])
createOpenIDConnectProvider_tags :: Lens' CreateOpenIDConnectProvider (Maybe [Tag])
createOpenIDConnectProvider_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProvider' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateOpenIDConnectProvider
s@CreateOpenIDConnectProvider' {} Maybe [Tag]
a -> CreateOpenIDConnectProvider
s {$sel:tags:CreateOpenIDConnectProvider' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateOpenIDConnectProvider) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createOpenIDConnectProvider_url :: Lens.Lens' CreateOpenIDConnectProvider Prelude.Text
createOpenIDConnectProvider_url :: Lens' CreateOpenIDConnectProvider Text
createOpenIDConnectProvider_url = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProvider' {Text
url :: Text
$sel:url:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Text
url} -> Text
url) (\s :: CreateOpenIDConnectProvider
s@CreateOpenIDConnectProvider' {} Text
a -> CreateOpenIDConnectProvider
s {$sel:url:CreateOpenIDConnectProvider' :: Text
url = Text
a} :: CreateOpenIDConnectProvider)
createOpenIDConnectProvider_thumbprintList :: Lens.Lens' CreateOpenIDConnectProvider [Prelude.Text]
createOpenIDConnectProvider_thumbprintList :: Lens' CreateOpenIDConnectProvider [Text]
createOpenIDConnectProvider_thumbprintList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProvider' {[Text]
thumbprintList :: [Text]
$sel:thumbprintList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> [Text]
thumbprintList} -> [Text]
thumbprintList) (\s :: CreateOpenIDConnectProvider
s@CreateOpenIDConnectProvider' {} [Text]
a -> CreateOpenIDConnectProvider
s {$sel:thumbprintList:CreateOpenIDConnectProvider' :: [Text]
thumbprintList = [Text]
a} :: CreateOpenIDConnectProvider) 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 CreateOpenIDConnectProvider where
type
AWSResponse CreateOpenIDConnectProvider =
CreateOpenIDConnectProviderResponse
request :: (Service -> Service)
-> CreateOpenIDConnectProvider
-> Request CreateOpenIDConnectProvider
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 CreateOpenIDConnectProvider
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateOpenIDConnectProvider)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"CreateOpenIDConnectProviderResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [Tag] -> Int -> CreateOpenIDConnectProviderResponse
CreateOpenIDConnectProviderResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"OpenIDConnectProviderArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Tags"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable CreateOpenIDConnectProvider where
hashWithSalt :: Int -> CreateOpenIDConnectProvider -> Int
hashWithSalt Int
_salt CreateOpenIDConnectProvider' {[Text]
Maybe [Text]
Maybe [Tag]
Text
thumbprintList :: [Text]
url :: Text
tags :: Maybe [Tag]
clientIDList :: Maybe [Text]
$sel:thumbprintList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> [Text]
$sel:url:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Text
$sel:tags:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Tag]
$sel:clientIDList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
clientIDList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
url
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
thumbprintList
instance Prelude.NFData CreateOpenIDConnectProvider where
rnf :: CreateOpenIDConnectProvider -> ()
rnf CreateOpenIDConnectProvider' {[Text]
Maybe [Text]
Maybe [Tag]
Text
thumbprintList :: [Text]
url :: Text
tags :: Maybe [Tag]
clientIDList :: Maybe [Text]
$sel:thumbprintList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> [Text]
$sel:url:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Text
$sel:tags:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Tag]
$sel:clientIDList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
clientIDList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
url
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
thumbprintList
instance Data.ToHeaders CreateOpenIDConnectProvider where
toHeaders :: CreateOpenIDConnectProvider -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateOpenIDConnectProvider where
toPath :: CreateOpenIDConnectProvider -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateOpenIDConnectProvider where
toQuery :: CreateOpenIDConnectProvider -> QueryString
toQuery CreateOpenIDConnectProvider' {[Text]
Maybe [Text]
Maybe [Tag]
Text
thumbprintList :: [Text]
url :: Text
tags :: Maybe [Tag]
clientIDList :: Maybe [Text]
$sel:thumbprintList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> [Text]
$sel:url:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Text
$sel:tags:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Tag]
$sel:clientIDList:CreateOpenIDConnectProvider' :: CreateOpenIDConnectProvider -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"CreateOpenIDConnectProvider" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"ClientIDList"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
clientIDList),
ByteString
"Tags"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
ByteString
"Url" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
url,
ByteString
"ThumbprintList"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Text]
thumbprintList
]
data CreateOpenIDConnectProviderResponse = CreateOpenIDConnectProviderResponse'
{
CreateOpenIDConnectProviderResponse -> Maybe Text
openIDConnectProviderArn :: Prelude.Maybe Prelude.Text,
CreateOpenIDConnectProviderResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateOpenIDConnectProviderResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateOpenIDConnectProviderResponse
-> CreateOpenIDConnectProviderResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateOpenIDConnectProviderResponse
-> CreateOpenIDConnectProviderResponse -> Bool
$c/= :: CreateOpenIDConnectProviderResponse
-> CreateOpenIDConnectProviderResponse -> Bool
== :: CreateOpenIDConnectProviderResponse
-> CreateOpenIDConnectProviderResponse -> Bool
$c== :: CreateOpenIDConnectProviderResponse
-> CreateOpenIDConnectProviderResponse -> Bool
Prelude.Eq, ReadPrec [CreateOpenIDConnectProviderResponse]
ReadPrec CreateOpenIDConnectProviderResponse
Int -> ReadS CreateOpenIDConnectProviderResponse
ReadS [CreateOpenIDConnectProviderResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateOpenIDConnectProviderResponse]
$creadListPrec :: ReadPrec [CreateOpenIDConnectProviderResponse]
readPrec :: ReadPrec CreateOpenIDConnectProviderResponse
$creadPrec :: ReadPrec CreateOpenIDConnectProviderResponse
readList :: ReadS [CreateOpenIDConnectProviderResponse]
$creadList :: ReadS [CreateOpenIDConnectProviderResponse]
readsPrec :: Int -> ReadS CreateOpenIDConnectProviderResponse
$creadsPrec :: Int -> ReadS CreateOpenIDConnectProviderResponse
Prelude.Read, Int -> CreateOpenIDConnectProviderResponse -> ShowS
[CreateOpenIDConnectProviderResponse] -> ShowS
CreateOpenIDConnectProviderResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateOpenIDConnectProviderResponse] -> ShowS
$cshowList :: [CreateOpenIDConnectProviderResponse] -> ShowS
show :: CreateOpenIDConnectProviderResponse -> String
$cshow :: CreateOpenIDConnectProviderResponse -> String
showsPrec :: Int -> CreateOpenIDConnectProviderResponse -> ShowS
$cshowsPrec :: Int -> CreateOpenIDConnectProviderResponse -> ShowS
Prelude.Show, forall x.
Rep CreateOpenIDConnectProviderResponse x
-> CreateOpenIDConnectProviderResponse
forall x.
CreateOpenIDConnectProviderResponse
-> Rep CreateOpenIDConnectProviderResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateOpenIDConnectProviderResponse x
-> CreateOpenIDConnectProviderResponse
$cfrom :: forall x.
CreateOpenIDConnectProviderResponse
-> Rep CreateOpenIDConnectProviderResponse x
Prelude.Generic)
newCreateOpenIDConnectProviderResponse ::
Prelude.Int ->
CreateOpenIDConnectProviderResponse
newCreateOpenIDConnectProviderResponse :: Int -> CreateOpenIDConnectProviderResponse
newCreateOpenIDConnectProviderResponse Int
pHttpStatus_ =
CreateOpenIDConnectProviderResponse'
{ $sel:openIDConnectProviderArn:CreateOpenIDConnectProviderResponse' :: Maybe Text
openIDConnectProviderArn =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateOpenIDConnectProviderResponse' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateOpenIDConnectProviderResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createOpenIDConnectProviderResponse_openIDConnectProviderArn :: Lens.Lens' CreateOpenIDConnectProviderResponse (Prelude.Maybe Prelude.Text)
createOpenIDConnectProviderResponse_openIDConnectProviderArn :: Lens' CreateOpenIDConnectProviderResponse (Maybe Text)
createOpenIDConnectProviderResponse_openIDConnectProviderArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProviderResponse' {Maybe Text
openIDConnectProviderArn :: Maybe Text
$sel:openIDConnectProviderArn:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Maybe Text
openIDConnectProviderArn} -> Maybe Text
openIDConnectProviderArn) (\s :: CreateOpenIDConnectProviderResponse
s@CreateOpenIDConnectProviderResponse' {} Maybe Text
a -> CreateOpenIDConnectProviderResponse
s {$sel:openIDConnectProviderArn:CreateOpenIDConnectProviderResponse' :: Maybe Text
openIDConnectProviderArn = Maybe Text
a} :: CreateOpenIDConnectProviderResponse)
createOpenIDConnectProviderResponse_tags :: Lens.Lens' CreateOpenIDConnectProviderResponse (Prelude.Maybe [Tag])
createOpenIDConnectProviderResponse_tags :: Lens' CreateOpenIDConnectProviderResponse (Maybe [Tag])
createOpenIDConnectProviderResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProviderResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateOpenIDConnectProviderResponse
s@CreateOpenIDConnectProviderResponse' {} Maybe [Tag]
a -> CreateOpenIDConnectProviderResponse
s {$sel:tags:CreateOpenIDConnectProviderResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateOpenIDConnectProviderResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createOpenIDConnectProviderResponse_httpStatus :: Lens.Lens' CreateOpenIDConnectProviderResponse Prelude.Int
createOpenIDConnectProviderResponse_httpStatus :: Lens' CreateOpenIDConnectProviderResponse Int
createOpenIDConnectProviderResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateOpenIDConnectProviderResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateOpenIDConnectProviderResponse
s@CreateOpenIDConnectProviderResponse' {} Int
a -> CreateOpenIDConnectProviderResponse
s {$sel:httpStatus:CreateOpenIDConnectProviderResponse' :: Int
httpStatus = Int
a} :: CreateOpenIDConnectProviderResponse)
instance
Prelude.NFData
CreateOpenIDConnectProviderResponse
where
rnf :: CreateOpenIDConnectProviderResponse -> ()
rnf CreateOpenIDConnectProviderResponse' {Int
Maybe [Tag]
Maybe Text
httpStatus :: Int
tags :: Maybe [Tag]
openIDConnectProviderArn :: Maybe Text
$sel:httpStatus:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Int
$sel:tags:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Maybe [Tag]
$sel:openIDConnectProviderArn:CreateOpenIDConnectProviderResponse' :: CreateOpenIDConnectProviderResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
openIDConnectProviderArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus