{-# 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.RegisterUser
(
RegisterUser (..),
newRegisterUser,
registerUser_customFederationProviderUrl,
registerUser_customPermissionsName,
registerUser_externalLoginFederationProviderType,
registerUser_externalLoginId,
registerUser_iamArn,
registerUser_sessionName,
registerUser_userName,
registerUser_identityType,
registerUser_email,
registerUser_userRole,
registerUser_awsAccountId,
registerUser_namespace,
RegisterUserResponse (..),
newRegisterUserResponse,
registerUserResponse_requestId,
registerUserResponse_user,
registerUserResponse_userInvitationUrl,
registerUserResponse_status,
)
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 RegisterUser = RegisterUser'
{
RegisterUser -> Maybe Text
customFederationProviderUrl :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
customPermissionsName :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
externalLoginFederationProviderType :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
externalLoginId :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
iamArn :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
sessionName :: Prelude.Maybe Prelude.Text,
RegisterUser -> Maybe Text
userName :: Prelude.Maybe Prelude.Text,
RegisterUser -> IdentityType
identityType :: IdentityType,
RegisterUser -> Text
email :: Prelude.Text,
RegisterUser -> UserRole
userRole :: UserRole,
RegisterUser -> Text
awsAccountId :: Prelude.Text,
RegisterUser -> Text
namespace :: Prelude.Text
}
deriving (RegisterUser -> RegisterUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterUser -> RegisterUser -> Bool
$c/= :: RegisterUser -> RegisterUser -> Bool
== :: RegisterUser -> RegisterUser -> Bool
$c== :: RegisterUser -> RegisterUser -> Bool
Prelude.Eq, ReadPrec [RegisterUser]
ReadPrec RegisterUser
Int -> ReadS RegisterUser
ReadS [RegisterUser]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterUser]
$creadListPrec :: ReadPrec [RegisterUser]
readPrec :: ReadPrec RegisterUser
$creadPrec :: ReadPrec RegisterUser
readList :: ReadS [RegisterUser]
$creadList :: ReadS [RegisterUser]
readsPrec :: Int -> ReadS RegisterUser
$creadsPrec :: Int -> ReadS RegisterUser
Prelude.Read, Int -> RegisterUser -> ShowS
[RegisterUser] -> ShowS
RegisterUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterUser] -> ShowS
$cshowList :: [RegisterUser] -> ShowS
show :: RegisterUser -> String
$cshow :: RegisterUser -> String
showsPrec :: Int -> RegisterUser -> ShowS
$cshowsPrec :: Int -> RegisterUser -> ShowS
Prelude.Show, forall x. Rep RegisterUser x -> RegisterUser
forall x. RegisterUser -> Rep RegisterUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterUser x -> RegisterUser
$cfrom :: forall x. RegisterUser -> Rep RegisterUser x
Prelude.Generic)
newRegisterUser ::
IdentityType ->
Prelude.Text ->
UserRole ->
Prelude.Text ->
Prelude.Text ->
RegisterUser
newRegisterUser :: IdentityType -> Text -> UserRole -> Text -> Text -> RegisterUser
newRegisterUser
IdentityType
pIdentityType_
Text
pEmail_
UserRole
pUserRole_
Text
pAwsAccountId_
Text
pNamespace_ =
RegisterUser'
{ $sel:customFederationProviderUrl:RegisterUser' :: Maybe Text
customFederationProviderUrl =
forall a. Maybe a
Prelude.Nothing,
$sel:customPermissionsName:RegisterUser' :: Maybe Text
customPermissionsName = forall a. Maybe a
Prelude.Nothing,
$sel:externalLoginFederationProviderType:RegisterUser' :: Maybe Text
externalLoginFederationProviderType =
forall a. Maybe a
Prelude.Nothing,
$sel:externalLoginId:RegisterUser' :: Maybe Text
externalLoginId = forall a. Maybe a
Prelude.Nothing,
$sel:iamArn:RegisterUser' :: Maybe Text
iamArn = forall a. Maybe a
Prelude.Nothing,
$sel:sessionName:RegisterUser' :: Maybe Text
sessionName = forall a. Maybe a
Prelude.Nothing,
$sel:userName:RegisterUser' :: Maybe Text
userName = forall a. Maybe a
Prelude.Nothing,
$sel:identityType:RegisterUser' :: IdentityType
identityType = IdentityType
pIdentityType_,
$sel:email:RegisterUser' :: Text
email = Text
pEmail_,
$sel:userRole:RegisterUser' :: UserRole
userRole = UserRole
pUserRole_,
$sel:awsAccountId:RegisterUser' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:namespace:RegisterUser' :: Text
namespace = Text
pNamespace_
}
registerUser_customFederationProviderUrl :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_customFederationProviderUrl :: Lens' RegisterUser (Maybe Text)
registerUser_customFederationProviderUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
customFederationProviderUrl :: Maybe Text
$sel:customFederationProviderUrl:RegisterUser' :: RegisterUser -> Maybe Text
customFederationProviderUrl} -> Maybe Text
customFederationProviderUrl) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:customFederationProviderUrl:RegisterUser' :: Maybe Text
customFederationProviderUrl = Maybe Text
a} :: RegisterUser)
registerUser_customPermissionsName :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_customPermissionsName :: Lens' RegisterUser (Maybe Text)
registerUser_customPermissionsName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
customPermissionsName :: Maybe Text
$sel:customPermissionsName:RegisterUser' :: RegisterUser -> Maybe Text
customPermissionsName} -> Maybe Text
customPermissionsName) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:customPermissionsName:RegisterUser' :: Maybe Text
customPermissionsName = Maybe Text
a} :: RegisterUser)
registerUser_externalLoginFederationProviderType :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_externalLoginFederationProviderType :: Lens' RegisterUser (Maybe Text)
registerUser_externalLoginFederationProviderType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
externalLoginFederationProviderType :: Maybe Text
$sel:externalLoginFederationProviderType:RegisterUser' :: RegisterUser -> Maybe Text
externalLoginFederationProviderType} -> Maybe Text
externalLoginFederationProviderType) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:externalLoginFederationProviderType:RegisterUser' :: Maybe Text
externalLoginFederationProviderType = Maybe Text
a} :: RegisterUser)
registerUser_externalLoginId :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_externalLoginId :: Lens' RegisterUser (Maybe Text)
registerUser_externalLoginId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
externalLoginId :: Maybe Text
$sel:externalLoginId:RegisterUser' :: RegisterUser -> Maybe Text
externalLoginId} -> Maybe Text
externalLoginId) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:externalLoginId:RegisterUser' :: Maybe Text
externalLoginId = Maybe Text
a} :: RegisterUser)
registerUser_iamArn :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_iamArn :: Lens' RegisterUser (Maybe Text)
registerUser_iamArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
iamArn :: Maybe Text
$sel:iamArn:RegisterUser' :: RegisterUser -> Maybe Text
iamArn} -> Maybe Text
iamArn) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:iamArn:RegisterUser' :: Maybe Text
iamArn = Maybe Text
a} :: RegisterUser)
registerUser_sessionName :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_sessionName :: Lens' RegisterUser (Maybe Text)
registerUser_sessionName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
sessionName :: Maybe Text
$sel:sessionName:RegisterUser' :: RegisterUser -> Maybe Text
sessionName} -> Maybe Text
sessionName) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:sessionName:RegisterUser' :: Maybe Text
sessionName = Maybe Text
a} :: RegisterUser)
registerUser_userName :: Lens.Lens' RegisterUser (Prelude.Maybe Prelude.Text)
registerUser_userName :: Lens' RegisterUser (Maybe Text)
registerUser_userName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Maybe Text
userName :: Maybe Text
$sel:userName:RegisterUser' :: RegisterUser -> Maybe Text
userName} -> Maybe Text
userName) (\s :: RegisterUser
s@RegisterUser' {} Maybe Text
a -> RegisterUser
s {$sel:userName:RegisterUser' :: Maybe Text
userName = Maybe Text
a} :: RegisterUser)
registerUser_identityType :: Lens.Lens' RegisterUser IdentityType
registerUser_identityType :: Lens' RegisterUser IdentityType
registerUser_identityType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {IdentityType
identityType :: IdentityType
$sel:identityType:RegisterUser' :: RegisterUser -> IdentityType
identityType} -> IdentityType
identityType) (\s :: RegisterUser
s@RegisterUser' {} IdentityType
a -> RegisterUser
s {$sel:identityType:RegisterUser' :: IdentityType
identityType = IdentityType
a} :: RegisterUser)
registerUser_email :: Lens.Lens' RegisterUser Prelude.Text
registerUser_email :: Lens' RegisterUser Text
registerUser_email = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Text
email :: Text
$sel:email:RegisterUser' :: RegisterUser -> Text
email} -> Text
email) (\s :: RegisterUser
s@RegisterUser' {} Text
a -> RegisterUser
s {$sel:email:RegisterUser' :: Text
email = Text
a} :: RegisterUser)
registerUser_userRole :: Lens.Lens' RegisterUser UserRole
registerUser_userRole :: Lens' RegisterUser UserRole
registerUser_userRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {UserRole
userRole :: UserRole
$sel:userRole:RegisterUser' :: RegisterUser -> UserRole
userRole} -> UserRole
userRole) (\s :: RegisterUser
s@RegisterUser' {} UserRole
a -> RegisterUser
s {$sel:userRole:RegisterUser' :: UserRole
userRole = UserRole
a} :: RegisterUser)
registerUser_awsAccountId :: Lens.Lens' RegisterUser Prelude.Text
registerUser_awsAccountId :: Lens' RegisterUser Text
registerUser_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Text
awsAccountId :: Text
$sel:awsAccountId:RegisterUser' :: RegisterUser -> Text
awsAccountId} -> Text
awsAccountId) (\s :: RegisterUser
s@RegisterUser' {} Text
a -> RegisterUser
s {$sel:awsAccountId:RegisterUser' :: Text
awsAccountId = Text
a} :: RegisterUser)
registerUser_namespace :: Lens.Lens' RegisterUser Prelude.Text
registerUser_namespace :: Lens' RegisterUser Text
registerUser_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUser' {Text
namespace :: Text
$sel:namespace:RegisterUser' :: RegisterUser -> Text
namespace} -> Text
namespace) (\s :: RegisterUser
s@RegisterUser' {} Text
a -> RegisterUser
s {$sel:namespace:RegisterUser' :: Text
namespace = Text
a} :: RegisterUser)
instance Core.AWSRequest RegisterUser where
type AWSResponse RegisterUser = RegisterUserResponse
request :: (Service -> Service) -> RegisterUser -> Request RegisterUser
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 RegisterUser
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RegisterUser)))
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 ->
Maybe Text
-> Maybe User -> Maybe Text -> Int -> RegisterUserResponse
RegisterUserResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RequestId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"User")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"UserInvitationUrl")
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 RegisterUser where
hashWithSalt :: Int -> RegisterUser -> Int
hashWithSalt Int
_salt RegisterUser' {Maybe Text
Text
IdentityType
UserRole
namespace :: Text
awsAccountId :: Text
userRole :: UserRole
email :: Text
identityType :: IdentityType
userName :: Maybe Text
sessionName :: Maybe Text
iamArn :: Maybe Text
externalLoginId :: Maybe Text
externalLoginFederationProviderType :: Maybe Text
customPermissionsName :: Maybe Text
customFederationProviderUrl :: Maybe Text
$sel:namespace:RegisterUser' :: RegisterUser -> Text
$sel:awsAccountId:RegisterUser' :: RegisterUser -> Text
$sel:userRole:RegisterUser' :: RegisterUser -> UserRole
$sel:email:RegisterUser' :: RegisterUser -> Text
$sel:identityType:RegisterUser' :: RegisterUser -> IdentityType
$sel:userName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:sessionName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:iamArn:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginId:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginFederationProviderType:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customPermissionsName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customFederationProviderUrl:RegisterUser' :: RegisterUser -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customFederationProviderUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customPermissionsName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
externalLoginFederationProviderType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
externalLoginId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
iamArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sessionName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
userName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` IdentityType
identityType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
email
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` UserRole
userRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
namespace
instance Prelude.NFData RegisterUser where
rnf :: RegisterUser -> ()
rnf RegisterUser' {Maybe Text
Text
IdentityType
UserRole
namespace :: Text
awsAccountId :: Text
userRole :: UserRole
email :: Text
identityType :: IdentityType
userName :: Maybe Text
sessionName :: Maybe Text
iamArn :: Maybe Text
externalLoginId :: Maybe Text
externalLoginFederationProviderType :: Maybe Text
customPermissionsName :: Maybe Text
customFederationProviderUrl :: Maybe Text
$sel:namespace:RegisterUser' :: RegisterUser -> Text
$sel:awsAccountId:RegisterUser' :: RegisterUser -> Text
$sel:userRole:RegisterUser' :: RegisterUser -> UserRole
$sel:email:RegisterUser' :: RegisterUser -> Text
$sel:identityType:RegisterUser' :: RegisterUser -> IdentityType
$sel:userName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:sessionName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:iamArn:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginId:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginFederationProviderType:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customPermissionsName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customFederationProviderUrl:RegisterUser' :: RegisterUser -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customFederationProviderUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customPermissionsName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
externalLoginFederationProviderType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
externalLoginId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
iamArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sessionName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
userName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf IdentityType
identityType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
email
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf UserRole
userRole
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
namespace
instance Data.ToHeaders RegisterUser where
toHeaders :: RegisterUser -> 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 RegisterUser where
toJSON :: RegisterUser -> Value
toJSON RegisterUser' {Maybe Text
Text
IdentityType
UserRole
namespace :: Text
awsAccountId :: Text
userRole :: UserRole
email :: Text
identityType :: IdentityType
userName :: Maybe Text
sessionName :: Maybe Text
iamArn :: Maybe Text
externalLoginId :: Maybe Text
externalLoginFederationProviderType :: Maybe Text
customPermissionsName :: Maybe Text
customFederationProviderUrl :: Maybe Text
$sel:namespace:RegisterUser' :: RegisterUser -> Text
$sel:awsAccountId:RegisterUser' :: RegisterUser -> Text
$sel:userRole:RegisterUser' :: RegisterUser -> UserRole
$sel:email:RegisterUser' :: RegisterUser -> Text
$sel:identityType:RegisterUser' :: RegisterUser -> IdentityType
$sel:userName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:sessionName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:iamArn:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginId:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginFederationProviderType:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customPermissionsName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customFederationProviderUrl:RegisterUser' :: RegisterUser -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CustomFederationProviderUrl" 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
customFederationProviderUrl,
(Key
"CustomPermissionsName" 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
customPermissionsName,
(Key
"ExternalLoginFederationProviderType" 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
externalLoginFederationProviderType,
(Key
"ExternalLoginId" 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
externalLoginId,
(Key
"IamArn" 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
iamArn,
(Key
"SessionName" 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
sessionName,
(Key
"UserName" 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
userName,
forall a. a -> Maybe a
Prelude.Just (Key
"IdentityType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= IdentityType
identityType),
forall a. a -> Maybe a
Prelude.Just (Key
"Email" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
email),
forall a. a -> Maybe a
Prelude.Just (Key
"UserRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= UserRole
userRole)
]
)
instance Data.ToPath RegisterUser where
toPath :: RegisterUser -> ByteString
toPath RegisterUser' {Maybe Text
Text
IdentityType
UserRole
namespace :: Text
awsAccountId :: Text
userRole :: UserRole
email :: Text
identityType :: IdentityType
userName :: Maybe Text
sessionName :: Maybe Text
iamArn :: Maybe Text
externalLoginId :: Maybe Text
externalLoginFederationProviderType :: Maybe Text
customPermissionsName :: Maybe Text
customFederationProviderUrl :: Maybe Text
$sel:namespace:RegisterUser' :: RegisterUser -> Text
$sel:awsAccountId:RegisterUser' :: RegisterUser -> Text
$sel:userRole:RegisterUser' :: RegisterUser -> UserRole
$sel:email:RegisterUser' :: RegisterUser -> Text
$sel:identityType:RegisterUser' :: RegisterUser -> IdentityType
$sel:userName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:sessionName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:iamArn:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginId:RegisterUser' :: RegisterUser -> Maybe Text
$sel:externalLoginFederationProviderType:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customPermissionsName:RegisterUser' :: RegisterUser -> Maybe Text
$sel:customFederationProviderUrl:RegisterUser' :: RegisterUser -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/namespaces/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
namespace,
ByteString
"/users"
]
instance Data.ToQuery RegisterUser where
toQuery :: RegisterUser -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterUserResponse = RegisterUserResponse'
{
RegisterUserResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
RegisterUserResponse -> Maybe User
user :: Prelude.Maybe User,
RegisterUserResponse -> Maybe Text
userInvitationUrl :: Prelude.Maybe Prelude.Text,
RegisterUserResponse -> Int
status :: Prelude.Int
}
deriving (RegisterUserResponse -> RegisterUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterUserResponse -> RegisterUserResponse -> Bool
$c/= :: RegisterUserResponse -> RegisterUserResponse -> Bool
== :: RegisterUserResponse -> RegisterUserResponse -> Bool
$c== :: RegisterUserResponse -> RegisterUserResponse -> Bool
Prelude.Eq, ReadPrec [RegisterUserResponse]
ReadPrec RegisterUserResponse
Int -> ReadS RegisterUserResponse
ReadS [RegisterUserResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterUserResponse]
$creadListPrec :: ReadPrec [RegisterUserResponse]
readPrec :: ReadPrec RegisterUserResponse
$creadPrec :: ReadPrec RegisterUserResponse
readList :: ReadS [RegisterUserResponse]
$creadList :: ReadS [RegisterUserResponse]
readsPrec :: Int -> ReadS RegisterUserResponse
$creadsPrec :: Int -> ReadS RegisterUserResponse
Prelude.Read, Int -> RegisterUserResponse -> ShowS
[RegisterUserResponse] -> ShowS
RegisterUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterUserResponse] -> ShowS
$cshowList :: [RegisterUserResponse] -> ShowS
show :: RegisterUserResponse -> String
$cshow :: RegisterUserResponse -> String
showsPrec :: Int -> RegisterUserResponse -> ShowS
$cshowsPrec :: Int -> RegisterUserResponse -> ShowS
Prelude.Show, forall x. Rep RegisterUserResponse x -> RegisterUserResponse
forall x. RegisterUserResponse -> Rep RegisterUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterUserResponse x -> RegisterUserResponse
$cfrom :: forall x. RegisterUserResponse -> Rep RegisterUserResponse x
Prelude.Generic)
newRegisterUserResponse ::
Prelude.Int ->
RegisterUserResponse
newRegisterUserResponse :: Int -> RegisterUserResponse
newRegisterUserResponse Int
pStatus_ =
RegisterUserResponse'
{ $sel:requestId:RegisterUserResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:user:RegisterUserResponse' :: Maybe User
user = forall a. Maybe a
Prelude.Nothing,
$sel:userInvitationUrl:RegisterUserResponse' :: Maybe Text
userInvitationUrl = forall a. Maybe a
Prelude.Nothing,
$sel:status:RegisterUserResponse' :: Int
status = Int
pStatus_
}
registerUserResponse_requestId :: Lens.Lens' RegisterUserResponse (Prelude.Maybe Prelude.Text)
registerUserResponse_requestId :: Lens' RegisterUserResponse (Maybe Text)
registerUserResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUserResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:RegisterUserResponse' :: RegisterUserResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: RegisterUserResponse
s@RegisterUserResponse' {} Maybe Text
a -> RegisterUserResponse
s {$sel:requestId:RegisterUserResponse' :: Maybe Text
requestId = Maybe Text
a} :: RegisterUserResponse)
registerUserResponse_user :: Lens.Lens' RegisterUserResponse (Prelude.Maybe User)
registerUserResponse_user :: Lens' RegisterUserResponse (Maybe User)
registerUserResponse_user = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUserResponse' {Maybe User
user :: Maybe User
$sel:user:RegisterUserResponse' :: RegisterUserResponse -> Maybe User
user} -> Maybe User
user) (\s :: RegisterUserResponse
s@RegisterUserResponse' {} Maybe User
a -> RegisterUserResponse
s {$sel:user:RegisterUserResponse' :: Maybe User
user = Maybe User
a} :: RegisterUserResponse)
registerUserResponse_userInvitationUrl :: Lens.Lens' RegisterUserResponse (Prelude.Maybe Prelude.Text)
registerUserResponse_userInvitationUrl :: Lens' RegisterUserResponse (Maybe Text)
registerUserResponse_userInvitationUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUserResponse' {Maybe Text
userInvitationUrl :: Maybe Text
$sel:userInvitationUrl:RegisterUserResponse' :: RegisterUserResponse -> Maybe Text
userInvitationUrl} -> Maybe Text
userInvitationUrl) (\s :: RegisterUserResponse
s@RegisterUserResponse' {} Maybe Text
a -> RegisterUserResponse
s {$sel:userInvitationUrl:RegisterUserResponse' :: Maybe Text
userInvitationUrl = Maybe Text
a} :: RegisterUserResponse)
registerUserResponse_status :: Lens.Lens' RegisterUserResponse Prelude.Int
registerUserResponse_status :: Lens' RegisterUserResponse Int
registerUserResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterUserResponse' {Int
status :: Int
$sel:status:RegisterUserResponse' :: RegisterUserResponse -> Int
status} -> Int
status) (\s :: RegisterUserResponse
s@RegisterUserResponse' {} Int
a -> RegisterUserResponse
s {$sel:status:RegisterUserResponse' :: Int
status = Int
a} :: RegisterUserResponse)
instance Prelude.NFData RegisterUserResponse where
rnf :: RegisterUserResponse -> ()
rnf RegisterUserResponse' {Int
Maybe Text
Maybe User
status :: Int
userInvitationUrl :: Maybe Text
user :: Maybe User
requestId :: Maybe Text
$sel:status:RegisterUserResponse' :: RegisterUserResponse -> Int
$sel:userInvitationUrl:RegisterUserResponse' :: RegisterUserResponse -> Maybe Text
$sel:user:RegisterUserResponse' :: RegisterUserResponse -> Maybe User
$sel:requestId:RegisterUserResponse' :: RegisterUserResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe User
user
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
userInvitationUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status