{-# 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.CognitoIdentityProvider.SignUp
(
SignUp (..),
newSignUp,
signUp_analyticsMetadata,
signUp_clientMetadata,
signUp_secretHash,
signUp_userAttributes,
signUp_userContextData,
signUp_validationData,
signUp_clientId,
signUp_username,
signUp_password,
SignUpResponse (..),
newSignUpResponse,
signUpResponse_codeDeliveryDetails,
signUpResponse_httpStatus,
signUpResponse_userConfirmed,
signUpResponse_userSub,
)
where
import Amazonka.CognitoIdentityProvider.Types
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data SignUp = SignUp'
{
SignUp -> Maybe AnalyticsMetadataType
analyticsMetadata :: Prelude.Maybe AnalyticsMetadataType,
SignUp -> Maybe (HashMap Text Text)
clientMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
SignUp -> Maybe (Sensitive Text)
secretHash :: Prelude.Maybe (Data.Sensitive Prelude.Text),
SignUp -> Maybe [AttributeType]
userAttributes :: Prelude.Maybe [AttributeType],
SignUp -> Maybe UserContextDataType
userContextData :: Prelude.Maybe UserContextDataType,
SignUp -> Maybe [AttributeType]
validationData :: Prelude.Maybe [AttributeType],
SignUp -> Sensitive Text
clientId :: Data.Sensitive Prelude.Text,
SignUp -> Sensitive Text
username :: Data.Sensitive Prelude.Text,
SignUp -> Sensitive Text
password :: Data.Sensitive Prelude.Text
}
deriving (SignUp -> SignUp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignUp -> SignUp -> Bool
$c/= :: SignUp -> SignUp -> Bool
== :: SignUp -> SignUp -> Bool
$c== :: SignUp -> SignUp -> Bool
Prelude.Eq, Int -> SignUp -> ShowS
[SignUp] -> ShowS
SignUp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SignUp] -> ShowS
$cshowList :: [SignUp] -> ShowS
show :: SignUp -> String
$cshow :: SignUp -> String
showsPrec :: Int -> SignUp -> ShowS
$cshowsPrec :: Int -> SignUp -> ShowS
Prelude.Show, forall x. Rep SignUp x -> SignUp
forall x. SignUp -> Rep SignUp x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SignUp x -> SignUp
$cfrom :: forall x. SignUp -> Rep SignUp x
Prelude.Generic)
newSignUp ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
SignUp
newSignUp :: Text -> Text -> Text -> SignUp
newSignUp Text
pClientId_ Text
pUsername_ Text
pPassword_ =
SignUp'
{ $sel:analyticsMetadata:SignUp' :: Maybe AnalyticsMetadataType
analyticsMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:clientMetadata:SignUp' :: Maybe (HashMap Text Text)
clientMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:secretHash:SignUp' :: Maybe (Sensitive Text)
secretHash = forall a. Maybe a
Prelude.Nothing,
$sel:userAttributes:SignUp' :: Maybe [AttributeType]
userAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:userContextData:SignUp' :: Maybe UserContextDataType
userContextData = forall a. Maybe a
Prelude.Nothing,
$sel:validationData:SignUp' :: Maybe [AttributeType]
validationData = forall a. Maybe a
Prelude.Nothing,
$sel:clientId:SignUp' :: Sensitive Text
clientId = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pClientId_,
$sel:username:SignUp' :: Sensitive Text
username = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pUsername_,
$sel:password:SignUp' :: Sensitive Text
password = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pPassword_
}
signUp_analyticsMetadata :: Lens.Lens' SignUp (Prelude.Maybe AnalyticsMetadataType)
signUp_analyticsMetadata :: Lens' SignUp (Maybe AnalyticsMetadataType)
signUp_analyticsMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe AnalyticsMetadataType
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:analyticsMetadata:SignUp' :: SignUp -> Maybe AnalyticsMetadataType
analyticsMetadata} -> Maybe AnalyticsMetadataType
analyticsMetadata) (\s :: SignUp
s@SignUp' {} Maybe AnalyticsMetadataType
a -> SignUp
s {$sel:analyticsMetadata:SignUp' :: Maybe AnalyticsMetadataType
analyticsMetadata = Maybe AnalyticsMetadataType
a} :: SignUp)
signUp_clientMetadata :: Lens.Lens' SignUp (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
signUp_clientMetadata :: Lens' SignUp (Maybe (HashMap Text Text))
signUp_clientMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe (HashMap Text Text)
clientMetadata :: Maybe (HashMap Text Text)
$sel:clientMetadata:SignUp' :: SignUp -> Maybe (HashMap Text Text)
clientMetadata} -> Maybe (HashMap Text Text)
clientMetadata) (\s :: SignUp
s@SignUp' {} Maybe (HashMap Text Text)
a -> SignUp
s {$sel:clientMetadata:SignUp' :: Maybe (HashMap Text Text)
clientMetadata = Maybe (HashMap Text Text)
a} :: SignUp) 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
signUp_secretHash :: Lens.Lens' SignUp (Prelude.Maybe Prelude.Text)
signUp_secretHash :: Lens' SignUp (Maybe Text)
signUp_secretHash = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe (Sensitive Text)
secretHash :: Maybe (Sensitive Text)
$sel:secretHash:SignUp' :: SignUp -> Maybe (Sensitive Text)
secretHash} -> Maybe (Sensitive Text)
secretHash) (\s :: SignUp
s@SignUp' {} Maybe (Sensitive Text)
a -> SignUp
s {$sel:secretHash:SignUp' :: Maybe (Sensitive Text)
secretHash = Maybe (Sensitive Text)
a} :: SignUp) 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 a. Iso' (Sensitive a) a
Data._Sensitive
signUp_userAttributes :: Lens.Lens' SignUp (Prelude.Maybe [AttributeType])
signUp_userAttributes :: Lens' SignUp (Maybe [AttributeType])
signUp_userAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe [AttributeType]
userAttributes :: Maybe [AttributeType]
$sel:userAttributes:SignUp' :: SignUp -> Maybe [AttributeType]
userAttributes} -> Maybe [AttributeType]
userAttributes) (\s :: SignUp
s@SignUp' {} Maybe [AttributeType]
a -> SignUp
s {$sel:userAttributes:SignUp' :: Maybe [AttributeType]
userAttributes = Maybe [AttributeType]
a} :: SignUp) 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
signUp_userContextData :: Lens.Lens' SignUp (Prelude.Maybe UserContextDataType)
signUp_userContextData :: Lens' SignUp (Maybe UserContextDataType)
signUp_userContextData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe UserContextDataType
userContextData :: Maybe UserContextDataType
$sel:userContextData:SignUp' :: SignUp -> Maybe UserContextDataType
userContextData} -> Maybe UserContextDataType
userContextData) (\s :: SignUp
s@SignUp' {} Maybe UserContextDataType
a -> SignUp
s {$sel:userContextData:SignUp' :: Maybe UserContextDataType
userContextData = Maybe UserContextDataType
a} :: SignUp)
signUp_validationData :: Lens.Lens' SignUp (Prelude.Maybe [AttributeType])
signUp_validationData :: Lens' SignUp (Maybe [AttributeType])
signUp_validationData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Maybe [AttributeType]
validationData :: Maybe [AttributeType]
$sel:validationData:SignUp' :: SignUp -> Maybe [AttributeType]
validationData} -> Maybe [AttributeType]
validationData) (\s :: SignUp
s@SignUp' {} Maybe [AttributeType]
a -> SignUp
s {$sel:validationData:SignUp' :: Maybe [AttributeType]
validationData = Maybe [AttributeType]
a} :: SignUp) 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
signUp_clientId :: Lens.Lens' SignUp Prelude.Text
signUp_clientId :: Lens' SignUp Text
signUp_clientId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Sensitive Text
clientId :: Sensitive Text
$sel:clientId:SignUp' :: SignUp -> Sensitive Text
clientId} -> Sensitive Text
clientId) (\s :: SignUp
s@SignUp' {} Sensitive Text
a -> SignUp
s {$sel:clientId:SignUp' :: Sensitive Text
clientId = Sensitive Text
a} :: SignUp) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
signUp_username :: Lens.Lens' SignUp Prelude.Text
signUp_username :: Lens' SignUp Text
signUp_username = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Sensitive Text
username :: Sensitive Text
$sel:username:SignUp' :: SignUp -> Sensitive Text
username} -> Sensitive Text
username) (\s :: SignUp
s@SignUp' {} Sensitive Text
a -> SignUp
s {$sel:username:SignUp' :: Sensitive Text
username = Sensitive Text
a} :: SignUp) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
signUp_password :: Lens.Lens' SignUp Prelude.Text
signUp_password :: Lens' SignUp Text
signUp_password = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUp' {Sensitive Text
password :: Sensitive Text
$sel:password:SignUp' :: SignUp -> Sensitive Text
password} -> Sensitive Text
password) (\s :: SignUp
s@SignUp' {} Sensitive Text
a -> SignUp
s {$sel:password:SignUp' :: Sensitive Text
password = Sensitive Text
a} :: SignUp) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
instance Core.AWSRequest SignUp where
type AWSResponse SignUp = SignUpResponse
request :: (Service -> Service) -> SignUp -> Request SignUp
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 SignUp
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SignUp)))
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 CodeDeliveryDetailsType
-> Int -> Bool -> Text -> SignUpResponse
SignUpResponse'
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
"CodeDeliveryDetails")
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))
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
"UserConfirmed")
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
"UserSub")
)
instance Prelude.Hashable SignUp where
hashWithSalt :: Int -> SignUp -> Int
hashWithSalt Int
_salt SignUp' {Maybe [AttributeType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
password :: Sensitive Text
username :: Sensitive Text
clientId :: Sensitive Text
validationData :: Maybe [AttributeType]
userContextData :: Maybe UserContextDataType
userAttributes :: Maybe [AttributeType]
secretHash :: Maybe (Sensitive Text)
clientMetadata :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:password:SignUp' :: SignUp -> Sensitive Text
$sel:username:SignUp' :: SignUp -> Sensitive Text
$sel:clientId:SignUp' :: SignUp -> Sensitive Text
$sel:validationData:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:userContextData:SignUp' :: SignUp -> Maybe UserContextDataType
$sel:userAttributes:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:secretHash:SignUp' :: SignUp -> Maybe (Sensitive Text)
$sel:clientMetadata:SignUp' :: SignUp -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:SignUp' :: SignUp -> Maybe AnalyticsMetadataType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AnalyticsMetadataType
analyticsMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
clientMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
secretHash
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
userAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UserContextDataType
userContextData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AttributeType]
validationData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
clientId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
username
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
password
instance Prelude.NFData SignUp where
rnf :: SignUp -> ()
rnf SignUp' {Maybe [AttributeType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
password :: Sensitive Text
username :: Sensitive Text
clientId :: Sensitive Text
validationData :: Maybe [AttributeType]
userContextData :: Maybe UserContextDataType
userAttributes :: Maybe [AttributeType]
secretHash :: Maybe (Sensitive Text)
clientMetadata :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:password:SignUp' :: SignUp -> Sensitive Text
$sel:username:SignUp' :: SignUp -> Sensitive Text
$sel:clientId:SignUp' :: SignUp -> Sensitive Text
$sel:validationData:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:userContextData:SignUp' :: SignUp -> Maybe UserContextDataType
$sel:userAttributes:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:secretHash:SignUp' :: SignUp -> Maybe (Sensitive Text)
$sel:clientMetadata:SignUp' :: SignUp -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:SignUp' :: SignUp -> Maybe AnalyticsMetadataType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AnalyticsMetadataType
analyticsMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
clientMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
secretHash
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
userAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UserContextDataType
userContextData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AttributeType]
validationData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
clientId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
username
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
password
instance Data.ToHeaders SignUp where
toHeaders :: SignUp -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSCognitoIdentityProviderService.SignUp" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON SignUp where
toJSON :: SignUp -> Value
toJSON SignUp' {Maybe [AttributeType]
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe AnalyticsMetadataType
Maybe UserContextDataType
Sensitive Text
password :: Sensitive Text
username :: Sensitive Text
clientId :: Sensitive Text
validationData :: Maybe [AttributeType]
userContextData :: Maybe UserContextDataType
userAttributes :: Maybe [AttributeType]
secretHash :: Maybe (Sensitive Text)
clientMetadata :: Maybe (HashMap Text Text)
analyticsMetadata :: Maybe AnalyticsMetadataType
$sel:password:SignUp' :: SignUp -> Sensitive Text
$sel:username:SignUp' :: SignUp -> Sensitive Text
$sel:clientId:SignUp' :: SignUp -> Sensitive Text
$sel:validationData:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:userContextData:SignUp' :: SignUp -> Maybe UserContextDataType
$sel:userAttributes:SignUp' :: SignUp -> Maybe [AttributeType]
$sel:secretHash:SignUp' :: SignUp -> Maybe (Sensitive Text)
$sel:clientMetadata:SignUp' :: SignUp -> Maybe (HashMap Text Text)
$sel:analyticsMetadata:SignUp' :: SignUp -> Maybe AnalyticsMetadataType
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AnalyticsMetadata" 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 AnalyticsMetadataType
analyticsMetadata,
(Key
"ClientMetadata" 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 (HashMap Text Text)
clientMetadata,
(Key
"SecretHash" 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 (Sensitive Text)
secretHash,
(Key
"UserAttributes" 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 [AttributeType]
userAttributes,
(Key
"UserContextData" 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 UserContextDataType
userContextData,
(Key
"ValidationData" 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 [AttributeType]
validationData,
forall a. a -> Maybe a
Prelude.Just (Key
"ClientId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
clientId),
forall a. a -> Maybe a
Prelude.Just (Key
"Username" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
username),
forall a. a -> Maybe a
Prelude.Just (Key
"Password" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Sensitive Text
password)
]
)
instance Data.ToPath SignUp where
toPath :: SignUp -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SignUp where
toQuery :: SignUp -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SignUpResponse = SignUpResponse'
{
SignUpResponse -> Maybe CodeDeliveryDetailsType
codeDeliveryDetails :: Prelude.Maybe CodeDeliveryDetailsType,
SignUpResponse -> Int
httpStatus :: Prelude.Int,
SignUpResponse -> Bool
userConfirmed :: Prelude.Bool,
SignUpResponse -> Text
userSub :: Prelude.Text
}
deriving (SignUpResponse -> SignUpResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignUpResponse -> SignUpResponse -> Bool
$c/= :: SignUpResponse -> SignUpResponse -> Bool
== :: SignUpResponse -> SignUpResponse -> Bool
$c== :: SignUpResponse -> SignUpResponse -> Bool
Prelude.Eq, ReadPrec [SignUpResponse]
ReadPrec SignUpResponse
Int -> ReadS SignUpResponse
ReadS [SignUpResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SignUpResponse]
$creadListPrec :: ReadPrec [SignUpResponse]
readPrec :: ReadPrec SignUpResponse
$creadPrec :: ReadPrec SignUpResponse
readList :: ReadS [SignUpResponse]
$creadList :: ReadS [SignUpResponse]
readsPrec :: Int -> ReadS SignUpResponse
$creadsPrec :: Int -> ReadS SignUpResponse
Prelude.Read, Int -> SignUpResponse -> ShowS
[SignUpResponse] -> ShowS
SignUpResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SignUpResponse] -> ShowS
$cshowList :: [SignUpResponse] -> ShowS
show :: SignUpResponse -> String
$cshow :: SignUpResponse -> String
showsPrec :: Int -> SignUpResponse -> ShowS
$cshowsPrec :: Int -> SignUpResponse -> ShowS
Prelude.Show, forall x. Rep SignUpResponse x -> SignUpResponse
forall x. SignUpResponse -> Rep SignUpResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SignUpResponse x -> SignUpResponse
$cfrom :: forall x. SignUpResponse -> Rep SignUpResponse x
Prelude.Generic)
newSignUpResponse ::
Prelude.Int ->
Prelude.Bool ->
Prelude.Text ->
SignUpResponse
newSignUpResponse :: Int -> Bool -> Text -> SignUpResponse
newSignUpResponse
Int
pHttpStatus_
Bool
pUserConfirmed_
Text
pUserSub_ =
SignUpResponse'
{ $sel:codeDeliveryDetails:SignUpResponse' :: Maybe CodeDeliveryDetailsType
codeDeliveryDetails =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SignUpResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:userConfirmed:SignUpResponse' :: Bool
userConfirmed = Bool
pUserConfirmed_,
$sel:userSub:SignUpResponse' :: Text
userSub = Text
pUserSub_
}
signUpResponse_codeDeliveryDetails :: Lens.Lens' SignUpResponse (Prelude.Maybe CodeDeliveryDetailsType)
signUpResponse_codeDeliveryDetails :: Lens' SignUpResponse (Maybe CodeDeliveryDetailsType)
signUpResponse_codeDeliveryDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUpResponse' {Maybe CodeDeliveryDetailsType
codeDeliveryDetails :: Maybe CodeDeliveryDetailsType
$sel:codeDeliveryDetails:SignUpResponse' :: SignUpResponse -> Maybe CodeDeliveryDetailsType
codeDeliveryDetails} -> Maybe CodeDeliveryDetailsType
codeDeliveryDetails) (\s :: SignUpResponse
s@SignUpResponse' {} Maybe CodeDeliveryDetailsType
a -> SignUpResponse
s {$sel:codeDeliveryDetails:SignUpResponse' :: Maybe CodeDeliveryDetailsType
codeDeliveryDetails = Maybe CodeDeliveryDetailsType
a} :: SignUpResponse)
signUpResponse_httpStatus :: Lens.Lens' SignUpResponse Prelude.Int
signUpResponse_httpStatus :: Lens' SignUpResponse Int
signUpResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUpResponse' {Int
httpStatus :: Int
$sel:httpStatus:SignUpResponse' :: SignUpResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SignUpResponse
s@SignUpResponse' {} Int
a -> SignUpResponse
s {$sel:httpStatus:SignUpResponse' :: Int
httpStatus = Int
a} :: SignUpResponse)
signUpResponse_userConfirmed :: Lens.Lens' SignUpResponse Prelude.Bool
signUpResponse_userConfirmed :: Lens' SignUpResponse Bool
signUpResponse_userConfirmed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUpResponse' {Bool
userConfirmed :: Bool
$sel:userConfirmed:SignUpResponse' :: SignUpResponse -> Bool
userConfirmed} -> Bool
userConfirmed) (\s :: SignUpResponse
s@SignUpResponse' {} Bool
a -> SignUpResponse
s {$sel:userConfirmed:SignUpResponse' :: Bool
userConfirmed = Bool
a} :: SignUpResponse)
signUpResponse_userSub :: Lens.Lens' SignUpResponse Prelude.Text
signUpResponse_userSub :: Lens' SignUpResponse Text
signUpResponse_userSub = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SignUpResponse' {Text
userSub :: Text
$sel:userSub:SignUpResponse' :: SignUpResponse -> Text
userSub} -> Text
userSub) (\s :: SignUpResponse
s@SignUpResponse' {} Text
a -> SignUpResponse
s {$sel:userSub:SignUpResponse' :: Text
userSub = Text
a} :: SignUpResponse)
instance Prelude.NFData SignUpResponse where
rnf :: SignUpResponse -> ()
rnf SignUpResponse' {Bool
Int
Maybe CodeDeliveryDetailsType
Text
userSub :: Text
userConfirmed :: Bool
httpStatus :: Int
codeDeliveryDetails :: Maybe CodeDeliveryDetailsType
$sel:userSub:SignUpResponse' :: SignUpResponse -> Text
$sel:userConfirmed:SignUpResponse' :: SignUpResponse -> Bool
$sel:httpStatus:SignUpResponse' :: SignUpResponse -> Int
$sel:codeDeliveryDetails:SignUpResponse' :: SignUpResponse -> Maybe CodeDeliveryDetailsType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe CodeDeliveryDetailsType
codeDeliveryDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
userConfirmed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userSub