{-# 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.QuickSight.GenerateEmbedUrlForRegisteredUser
(
GenerateEmbedUrlForRegisteredUser (..),
newGenerateEmbedUrlForRegisteredUser,
generateEmbedUrlForRegisteredUser_allowedDomains,
generateEmbedUrlForRegisteredUser_sessionLifetimeInMinutes,
generateEmbedUrlForRegisteredUser_awsAccountId,
generateEmbedUrlForRegisteredUser_userArn,
generateEmbedUrlForRegisteredUser_experienceConfiguration,
GenerateEmbedUrlForRegisteredUserResponse (..),
newGenerateEmbedUrlForRegisteredUserResponse,
generateEmbedUrlForRegisteredUserResponse_status,
generateEmbedUrlForRegisteredUserResponse_embedUrl,
generateEmbedUrlForRegisteredUserResponse_requestId,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GenerateEmbedUrlForRegisteredUser = GenerateEmbedUrlForRegisteredUser'
{
GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
allowedDomains :: Prelude.Maybe [Prelude.Text],
GenerateEmbedUrlForRegisteredUser -> Maybe Natural
sessionLifetimeInMinutes :: Prelude.Maybe Prelude.Natural,
GenerateEmbedUrlForRegisteredUser -> Text
awsAccountId :: Prelude.Text,
GenerateEmbedUrlForRegisteredUser -> Text
userArn :: Prelude.Text,
GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
}
deriving (GenerateEmbedUrlForRegisteredUser
-> GenerateEmbedUrlForRegisteredUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateEmbedUrlForRegisteredUser
-> GenerateEmbedUrlForRegisteredUser -> Bool
$c/= :: GenerateEmbedUrlForRegisteredUser
-> GenerateEmbedUrlForRegisteredUser -> Bool
== :: GenerateEmbedUrlForRegisteredUser
-> GenerateEmbedUrlForRegisteredUser -> Bool
$c== :: GenerateEmbedUrlForRegisteredUser
-> GenerateEmbedUrlForRegisteredUser -> Bool
Prelude.Eq, ReadPrec [GenerateEmbedUrlForRegisteredUser]
ReadPrec GenerateEmbedUrlForRegisteredUser
Int -> ReadS GenerateEmbedUrlForRegisteredUser
ReadS [GenerateEmbedUrlForRegisteredUser]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GenerateEmbedUrlForRegisteredUser]
$creadListPrec :: ReadPrec [GenerateEmbedUrlForRegisteredUser]
readPrec :: ReadPrec GenerateEmbedUrlForRegisteredUser
$creadPrec :: ReadPrec GenerateEmbedUrlForRegisteredUser
readList :: ReadS [GenerateEmbedUrlForRegisteredUser]
$creadList :: ReadS [GenerateEmbedUrlForRegisteredUser]
readsPrec :: Int -> ReadS GenerateEmbedUrlForRegisteredUser
$creadsPrec :: Int -> ReadS GenerateEmbedUrlForRegisteredUser
Prelude.Read, Int -> GenerateEmbedUrlForRegisteredUser -> ShowS
[GenerateEmbedUrlForRegisteredUser] -> ShowS
GenerateEmbedUrlForRegisteredUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateEmbedUrlForRegisteredUser] -> ShowS
$cshowList :: [GenerateEmbedUrlForRegisteredUser] -> ShowS
show :: GenerateEmbedUrlForRegisteredUser -> String
$cshow :: GenerateEmbedUrlForRegisteredUser -> String
showsPrec :: Int -> GenerateEmbedUrlForRegisteredUser -> ShowS
$cshowsPrec :: Int -> GenerateEmbedUrlForRegisteredUser -> ShowS
Prelude.Show, forall x.
Rep GenerateEmbedUrlForRegisteredUser x
-> GenerateEmbedUrlForRegisteredUser
forall x.
GenerateEmbedUrlForRegisteredUser
-> Rep GenerateEmbedUrlForRegisteredUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateEmbedUrlForRegisteredUser x
-> GenerateEmbedUrlForRegisteredUser
$cfrom :: forall x.
GenerateEmbedUrlForRegisteredUser
-> Rep GenerateEmbedUrlForRegisteredUser x
Prelude.Generic)
newGenerateEmbedUrlForRegisteredUser ::
Prelude.Text ->
Prelude.Text ->
RegisteredUserEmbeddingExperienceConfiguration ->
GenerateEmbedUrlForRegisteredUser
newGenerateEmbedUrlForRegisteredUser :: Text
-> Text
-> RegisteredUserEmbeddingExperienceConfiguration
-> GenerateEmbedUrlForRegisteredUser
newGenerateEmbedUrlForRegisteredUser
Text
pAwsAccountId_
Text
pUserArn_
RegisteredUserEmbeddingExperienceConfiguration
pExperienceConfiguration_ =
GenerateEmbedUrlForRegisteredUser'
{ $sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: Maybe [Text]
allowedDomains =
forall a. Maybe a
Prelude.Nothing,
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: Maybe Natural
sessionLifetimeInMinutes =
forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: Text
userArn = Text
pUserArn_,
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration =
RegisteredUserEmbeddingExperienceConfiguration
pExperienceConfiguration_
}
generateEmbedUrlForRegisteredUser_allowedDomains :: Lens.Lens' GenerateEmbedUrlForRegisteredUser (Prelude.Maybe [Prelude.Text])
generateEmbedUrlForRegisteredUser_allowedDomains :: Lens' GenerateEmbedUrlForRegisteredUser (Maybe [Text])
generateEmbedUrlForRegisteredUser_allowedDomains = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUser' {Maybe [Text]
allowedDomains :: Maybe [Text]
$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
allowedDomains} -> Maybe [Text]
allowedDomains) (\s :: GenerateEmbedUrlForRegisteredUser
s@GenerateEmbedUrlForRegisteredUser' {} Maybe [Text]
a -> GenerateEmbedUrlForRegisteredUser
s {$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: Maybe [Text]
allowedDomains = Maybe [Text]
a} :: GenerateEmbedUrlForRegisteredUser) 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
generateEmbedUrlForRegisteredUser_sessionLifetimeInMinutes :: Lens.Lens' GenerateEmbedUrlForRegisteredUser (Prelude.Maybe Prelude.Natural)
generateEmbedUrlForRegisteredUser_sessionLifetimeInMinutes :: Lens' GenerateEmbedUrlForRegisteredUser (Maybe Natural)
generateEmbedUrlForRegisteredUser_sessionLifetimeInMinutes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUser' {Maybe Natural
sessionLifetimeInMinutes :: Maybe Natural
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe Natural
sessionLifetimeInMinutes} -> Maybe Natural
sessionLifetimeInMinutes) (\s :: GenerateEmbedUrlForRegisteredUser
s@GenerateEmbedUrlForRegisteredUser' {} Maybe Natural
a -> GenerateEmbedUrlForRegisteredUser
s {$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: Maybe Natural
sessionLifetimeInMinutes = Maybe Natural
a} :: GenerateEmbedUrlForRegisteredUser)
generateEmbedUrlForRegisteredUser_awsAccountId :: Lens.Lens' GenerateEmbedUrlForRegisteredUser Prelude.Text
generateEmbedUrlForRegisteredUser_awsAccountId :: Lens' GenerateEmbedUrlForRegisteredUser Text
generateEmbedUrlForRegisteredUser_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUser' {Text
awsAccountId :: Text
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
awsAccountId} -> Text
awsAccountId) (\s :: GenerateEmbedUrlForRegisteredUser
s@GenerateEmbedUrlForRegisteredUser' {} Text
a -> GenerateEmbedUrlForRegisteredUser
s {$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: Text
awsAccountId = Text
a} :: GenerateEmbedUrlForRegisteredUser)
generateEmbedUrlForRegisteredUser_userArn :: Lens.Lens' GenerateEmbedUrlForRegisteredUser Prelude.Text
generateEmbedUrlForRegisteredUser_userArn :: Lens' GenerateEmbedUrlForRegisteredUser Text
generateEmbedUrlForRegisteredUser_userArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUser' {Text
userArn :: Text
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
userArn} -> Text
userArn) (\s :: GenerateEmbedUrlForRegisteredUser
s@GenerateEmbedUrlForRegisteredUser' {} Text
a -> GenerateEmbedUrlForRegisteredUser
s {$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: Text
userArn = Text
a} :: GenerateEmbedUrlForRegisteredUser)
generateEmbedUrlForRegisteredUser_experienceConfiguration :: Lens.Lens' GenerateEmbedUrlForRegisteredUser RegisteredUserEmbeddingExperienceConfiguration
generateEmbedUrlForRegisteredUser_experienceConfiguration :: Lens'
GenerateEmbedUrlForRegisteredUser
RegisteredUserEmbeddingExperienceConfiguration
generateEmbedUrlForRegisteredUser_experienceConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUser' {RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration} -> RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration) (\s :: GenerateEmbedUrlForRegisteredUser
s@GenerateEmbedUrlForRegisteredUser' {} RegisteredUserEmbeddingExperienceConfiguration
a -> GenerateEmbedUrlForRegisteredUser
s {$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration = RegisteredUserEmbeddingExperienceConfiguration
a} :: GenerateEmbedUrlForRegisteredUser)
instance
Core.AWSRequest
GenerateEmbedUrlForRegisteredUser
where
type
AWSResponse GenerateEmbedUrlForRegisteredUser =
GenerateEmbedUrlForRegisteredUserResponse
request :: (Service -> Service)
-> GenerateEmbedUrlForRegisteredUser
-> Request GenerateEmbedUrlForRegisteredUser
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GenerateEmbedUrlForRegisteredUser
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GenerateEmbedUrlForRegisteredUser)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int
-> Sensitive Text
-> Text
-> GenerateEmbedUrlForRegisteredUserResponse
GenerateEmbedUrlForRegisteredUserResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"EmbedUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"RequestId")
)
instance
Prelude.Hashable
GenerateEmbedUrlForRegisteredUser
where
hashWithSalt :: Int -> GenerateEmbedUrlForRegisteredUser -> Int
hashWithSalt
Int
_salt
GenerateEmbedUrlForRegisteredUser' {Maybe Natural
Maybe [Text]
Text
RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
userArn :: Text
awsAccountId :: Text
sessionLifetimeInMinutes :: Maybe Natural
allowedDomains :: Maybe [Text]
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe Natural
$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
allowedDomains
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
sessionLifetimeInMinutes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration
instance
Prelude.NFData
GenerateEmbedUrlForRegisteredUser
where
rnf :: GenerateEmbedUrlForRegisteredUser -> ()
rnf GenerateEmbedUrlForRegisteredUser' {Maybe Natural
Maybe [Text]
Text
RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
userArn :: Text
awsAccountId :: Text
sessionLifetimeInMinutes :: Maybe Natural
allowedDomains :: Maybe [Text]
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe Natural
$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
allowedDomains
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
sessionLifetimeInMinutes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration
instance
Data.ToHeaders
GenerateEmbedUrlForRegisteredUser
where
toHeaders :: GenerateEmbedUrlForRegisteredUser -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
GenerateEmbedUrlForRegisteredUser
where
toJSON :: GenerateEmbedUrlForRegisteredUser -> Value
toJSON GenerateEmbedUrlForRegisteredUser' {Maybe Natural
Maybe [Text]
Text
RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
userArn :: Text
awsAccountId :: Text
sessionLifetimeInMinutes :: Maybe Natural
allowedDomains :: Maybe [Text]
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe Natural
$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AllowedDomains" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
allowedDomains,
(Key
"SessionLifetimeInMinutes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
sessionLifetimeInMinutes,
forall a. a -> Maybe a
Prelude.Just (Key
"UserArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userArn),
forall a. a -> Maybe a
Prelude.Just
( Key
"ExperienceConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration
)
]
)
instance
Data.ToPath
GenerateEmbedUrlForRegisteredUser
where
toPath :: GenerateEmbedUrlForRegisteredUser -> ByteString
toPath GenerateEmbedUrlForRegisteredUser' {Maybe Natural
Maybe [Text]
Text
RegisteredUserEmbeddingExperienceConfiguration
experienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
userArn :: Text
awsAccountId :: Text
sessionLifetimeInMinutes :: Maybe Natural
allowedDomains :: Maybe [Text]
$sel:experienceConfiguration:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser
-> RegisteredUserEmbeddingExperienceConfiguration
$sel:userArn:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:awsAccountId:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Text
$sel:sessionLifetimeInMinutes:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe Natural
$sel:allowedDomains:GenerateEmbedUrlForRegisteredUser' :: GenerateEmbedUrlForRegisteredUser -> Maybe [Text]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/embed-url/registered-user"
]
instance
Data.ToQuery
GenerateEmbedUrlForRegisteredUser
where
toQuery :: GenerateEmbedUrlForRegisteredUser -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GenerateEmbedUrlForRegisteredUserResponse = GenerateEmbedUrlForRegisteredUserResponse'
{
GenerateEmbedUrlForRegisteredUserResponse -> Int
status :: Prelude.Int,
GenerateEmbedUrlForRegisteredUserResponse -> Sensitive Text
embedUrl :: Data.Sensitive Prelude.Text,
GenerateEmbedUrlForRegisteredUserResponse -> Text
requestId :: Prelude.Text
}
deriving (GenerateEmbedUrlForRegisteredUserResponse
-> GenerateEmbedUrlForRegisteredUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GenerateEmbedUrlForRegisteredUserResponse
-> GenerateEmbedUrlForRegisteredUserResponse -> Bool
$c/= :: GenerateEmbedUrlForRegisteredUserResponse
-> GenerateEmbedUrlForRegisteredUserResponse -> Bool
== :: GenerateEmbedUrlForRegisteredUserResponse
-> GenerateEmbedUrlForRegisteredUserResponse -> Bool
$c== :: GenerateEmbedUrlForRegisteredUserResponse
-> GenerateEmbedUrlForRegisteredUserResponse -> Bool
Prelude.Eq, Int -> GenerateEmbedUrlForRegisteredUserResponse -> ShowS
[GenerateEmbedUrlForRegisteredUserResponse] -> ShowS
GenerateEmbedUrlForRegisteredUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GenerateEmbedUrlForRegisteredUserResponse] -> ShowS
$cshowList :: [GenerateEmbedUrlForRegisteredUserResponse] -> ShowS
show :: GenerateEmbedUrlForRegisteredUserResponse -> String
$cshow :: GenerateEmbedUrlForRegisteredUserResponse -> String
showsPrec :: Int -> GenerateEmbedUrlForRegisteredUserResponse -> ShowS
$cshowsPrec :: Int -> GenerateEmbedUrlForRegisteredUserResponse -> ShowS
Prelude.Show, forall x.
Rep GenerateEmbedUrlForRegisteredUserResponse x
-> GenerateEmbedUrlForRegisteredUserResponse
forall x.
GenerateEmbedUrlForRegisteredUserResponse
-> Rep GenerateEmbedUrlForRegisteredUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GenerateEmbedUrlForRegisteredUserResponse x
-> GenerateEmbedUrlForRegisteredUserResponse
$cfrom :: forall x.
GenerateEmbedUrlForRegisteredUserResponse
-> Rep GenerateEmbedUrlForRegisteredUserResponse x
Prelude.Generic)
newGenerateEmbedUrlForRegisteredUserResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
GenerateEmbedUrlForRegisteredUserResponse
newGenerateEmbedUrlForRegisteredUserResponse :: Int -> Text -> Text -> GenerateEmbedUrlForRegisteredUserResponse
newGenerateEmbedUrlForRegisteredUserResponse
Int
pStatus_
Text
pEmbedUrl_
Text
pRequestId_ =
GenerateEmbedUrlForRegisteredUserResponse'
{ $sel:status:GenerateEmbedUrlForRegisteredUserResponse' :: Int
status =
Int
pStatus_,
$sel:embedUrl:GenerateEmbedUrlForRegisteredUserResponse' :: Sensitive Text
embedUrl =
forall a. Iso' (Sensitive a) a
Data._Sensitive
forall t b. AReview t b -> b -> t
Lens.# Text
pEmbedUrl_,
$sel:requestId:GenerateEmbedUrlForRegisteredUserResponse' :: Text
requestId = Text
pRequestId_
}
generateEmbedUrlForRegisteredUserResponse_status :: Lens.Lens' GenerateEmbedUrlForRegisteredUserResponse Prelude.Int
generateEmbedUrlForRegisteredUserResponse_status :: Lens' GenerateEmbedUrlForRegisteredUserResponse Int
generateEmbedUrlForRegisteredUserResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUserResponse' {Int
status :: Int
$sel:status:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Int
status} -> Int
status) (\s :: GenerateEmbedUrlForRegisteredUserResponse
s@GenerateEmbedUrlForRegisteredUserResponse' {} Int
a -> GenerateEmbedUrlForRegisteredUserResponse
s {$sel:status:GenerateEmbedUrlForRegisteredUserResponse' :: Int
status = Int
a} :: GenerateEmbedUrlForRegisteredUserResponse)
generateEmbedUrlForRegisteredUserResponse_embedUrl :: Lens.Lens' GenerateEmbedUrlForRegisteredUserResponse Prelude.Text
generateEmbedUrlForRegisteredUserResponse_embedUrl :: Lens' GenerateEmbedUrlForRegisteredUserResponse Text
generateEmbedUrlForRegisteredUserResponse_embedUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUserResponse' {Sensitive Text
embedUrl :: Sensitive Text
$sel:embedUrl:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Sensitive Text
embedUrl} -> Sensitive Text
embedUrl) (\s :: GenerateEmbedUrlForRegisteredUserResponse
s@GenerateEmbedUrlForRegisteredUserResponse' {} Sensitive Text
a -> GenerateEmbedUrlForRegisteredUserResponse
s {$sel:embedUrl:GenerateEmbedUrlForRegisteredUserResponse' :: Sensitive Text
embedUrl = Sensitive Text
a} :: GenerateEmbedUrlForRegisteredUserResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
generateEmbedUrlForRegisteredUserResponse_requestId :: Lens.Lens' GenerateEmbedUrlForRegisteredUserResponse Prelude.Text
generateEmbedUrlForRegisteredUserResponse_requestId :: Lens' GenerateEmbedUrlForRegisteredUserResponse Text
generateEmbedUrlForRegisteredUserResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GenerateEmbedUrlForRegisteredUserResponse' {Text
requestId :: Text
$sel:requestId:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Text
requestId} -> Text
requestId) (\s :: GenerateEmbedUrlForRegisteredUserResponse
s@GenerateEmbedUrlForRegisteredUserResponse' {} Text
a -> GenerateEmbedUrlForRegisteredUserResponse
s {$sel:requestId:GenerateEmbedUrlForRegisteredUserResponse' :: Text
requestId = Text
a} :: GenerateEmbedUrlForRegisteredUserResponse)
instance
Prelude.NFData
GenerateEmbedUrlForRegisteredUserResponse
where
rnf :: GenerateEmbedUrlForRegisteredUserResponse -> ()
rnf GenerateEmbedUrlForRegisteredUserResponse' {Int
Text
Sensitive Text
requestId :: Text
embedUrl :: Sensitive Text
status :: Int
$sel:requestId:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Text
$sel:embedUrl:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Sensitive Text
$sel:status:GenerateEmbedUrlForRegisteredUserResponse' :: GenerateEmbedUrlForRegisteredUserResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
embedUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
requestId